Apple-2-SW/jsbasic
1
0
Fork 0
mirror of https://github.com/inexorabletash/jsbasic.git synced 2025-05-14 09:38:16 +00:00
Code Issues Projects Releases Wiki Activity

Sample fix

Browse Source
This commit is contained in:
Joshua Bell 2016-12-03 15:28:45 -08:00
parent 2553fe88ea
commit 2db989212f
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
samples/sample.miniindy.txt
View File

@ -5,7 +5,7 @@
50 VTAB 18 : HTAB 6 : PRINT "Left & Right Arrow Keys move" 50 VTAB 18 : HTAB 6 : PRINT "Left & Right Arrow Keys move"
60 VTAB 19 : HTAB 7 : PRINT "any other key goes straight" 60 VTAB 19 : HTAB 7 : PRINT "any other key goes straight"
70 VTAB 21 : PRINT "Press any key to play" 70 VTAB 21 : PRINT "Press any key to play"
80 GET KEY : TEXT : HOME : REM wait for keypress then clear screen and begin 80 GET KEY$ : TEXT : HOME : REM wait for keypress then clear screen and begin
90 DIM RL(13) : DIM RR(13) : FOR X = 1 TO 13 : RL(X) = 1 : RR(X) = 35 : NEXT : REM Set default road width 90 DIM RL(13) : DIM RR(13) : FOR X = 1 TO 13 : RL(X) = 1 : RR(X) = 35 : NEXT : REM Set default road width
100 REM left & right arrow keys, any other straight 100 REM left & right arrow keys, any other straight
110 W = (W = 0) * 10 + W - .01 + (W < 0) : REM determine width of road 110 W = (W = 0) * 10 + W - .01 + (W < 0) : REM determine width of road
@ -24,4 +24,3 @@
240 FOR MY = 1 TO 1000 : NEXT MY : REM Slow the emulator down some 240 FOR MY = 1 TO 1000 : NEXT MY : REM Slow the emulator down some
250 IF C = 0 THEN 100 : REM check if still on the road 250 IF C = 0 THEN 100 : REM check if still on the road
260 HOME : PRINT "YOUR SCORE WAS:"T : REM And you're done 260 HOME : PRINT "YOUR SCORE WAS:"T : REM And you're done