Apple-2-SW/jsbasic
1
0
Fork 0
mirror of https://github.com/inexorabletash/jsbasic.git synced 2024-12-27 10:29:19 +00:00
Code Issues Projects Releases Wiki Activity

Tweak demo

Browse Source
This commit is contained in:
Joshua Bell 2013-08-17 22:04:19 -07:00
parent 9ab4cef8e1
commit 6abdce58c1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
samples/sample.basic.txt
View File

@ -226,9 +226,9 @@
2465 IF K = 10+128 THEN DX = 0 : DY = 1 2465 IF K = 10+128 THEN DX = 0 : DY = 1
2466 IF ( LX AND LX = -DX ) OR (LY AND LY = -DY) THEN DX = LX : DY = LY 2466 IF ( LX AND LX = -DX ) OR (LY AND LY = -DY) THEN DX = LX : DY = LY
2470 X = X + DX : Y = Y + DY 2470 X = X + DX : Y = Y + DY
2480 IF SCRN(X,Y) <> 0 THEN HTAB 1 : VTAB 23 : PRINT "Crashed! Press any key to continue: " : GET A$ : GOTO 5 2480 IF SCRN(X,Y) <> 0 THEN HTAB 1 : VTAB 23 : PRINT "Crashed! Press any key to continue: " : POKE 49168,0 : GET A$ : GOTO 5
2490 HTAB 1 : VTAB 21 : SC = SC + 10 : PRINT "Score: "; SC 2490 HTAB 1 : VTAB 21 : SC = SC + 10 : PRINT "Score: "; SC
2490 GOTO 2450 2490 FOR I = 0 TO 500 : NEXT : GOTO 2450
2500 REM Hires Demo 2500 REM Hires Demo
2510 HOME : HGR 2510 HOME : HGR