From 89262427bb15da6cf7caca21d5a789c393dfca76 Mon Sep 17 00:00:00 2001 From: Rob Greene Date: Sun, 24 Jun 2018 15:13:27 -0500 Subject: [PATCH] Changing shape demo code to (hopefully) be a bit more generic. #16. --- tools/st/src/main/resources/demo-template.bas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/tools/st/src/main/resources/demo-template.bas b/tools/st/src/main/resources/demo-template.bas index 28bbaff..6375853 100644 --- a/tools/st/src/main/resources/demo-template.bas +++ b/tools/st/src/main/resources/demo-template.bas @@ -4,13 +4,13 @@ 40 POKE 232,0:POKE 233,96 50 SCALE=1:ROT=0 60 HGR:HCOLOR=3 -70 X=10+$WIDTH$:Y=10+$HEIGHT$ +70 X=$WIDTH$:Y=$HEIGHT$ 80 FOR S=1 TO $COUNT$ 90 DRAW S AT X,Y -100 X=X+$WIDTH$+5:IF X < 279 THEN 140 -110 X=10+$WIDTH$:Y=Y+$HEIGHT$+5:IF Y < 159 THEN 140 +100 X=X+$WIDTH$+1:IF X < 279-$WIDTH$ THEN 140 +110 X=$WIDTH$:Y=Y+$HEIGHT$+1:IF Y < 159-$HEIGHT$ THEN 140 120 HOME:VTAB 21:PRINT "PRESS ANY KEY":GET A$ -130 X=10+$WIDTH$:Y=10+$WIDTH$ +130 X=$WIDTH$:Y=$WIDTH$ 140 NEXT S 150 HOME:VTAB 21:PRINT "DONE":GET A$ 160 TEXT:HOME