Apple-2-SW/bastools
1
0
Fork 0
mirror of https://github.com/AppleCommander/bastools.git synced 2024-06-17 08:29:30 +00:00
Code Issues Projects Releases Wiki Activity

Changing shape demo code to (hopefully) be a bit more generic. #16.

Browse Source
This commit is contained in:
Rob Greene 2018-06-24 15:13:27 -05:00
parent 33289a18fb
commit 89262427bb
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tools/st/src/main/resources/demo-template.bas
View File

@ -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