Apple-2-SW/bastools
1
0
Fork 0
mirror of https://github.com/AppleCommander/bastools.git synced 2025-01-15 04:29:56 +00:00
Code Issues Projects Releases Wiki Activity

Adding width of shape to calculations. #16.

Browse Source
This commit is contained in:
Rob Greene 2018-06-23 23:10:56 -05:00
parent efbf0973bb
commit 09fd3a4bca
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:Y=10
70 X=10+$WIDTH$:Y=10+$HEIGHT$
80 FOR S=1 TO $COUNT$
90 DRAW S AT X,Y
100 X=X+$WIDTH$:IF X < 279 THEN 140
110 X=10:Y=Y+$HEIGHT$:IF Y < 159 THEN 140
100 X=X+$WIDTH$+5:IF X < 279 THEN 140
110 X=10+$WIDTH$:Y=Y+$HEIGHT$+5:IF Y < 159 THEN 140
120 HOME:VTAB 21:PRINT "PRESS ANY KEY":GET A$
130 X=10:Y=10
130 X=10+$WIDTH$:Y=10+$WIDTH$
140 NEXT S
150 HOME:VTAB 21:PRINT "DONE":GET A$
160 TEXT:HOME