Apple-2-SW/jsbasic
1
0
Fork 0
mirror of https://github.com/inexorabletash/jsbasic.git synced 2024-06-01 17:41:32 +00:00
Code Issues Projects Releases Wiki Activity

Fix bad line numbers in sample

Browse Source
This commit is contained in:
Joshua Bell 2022-09-06 19:32:06 -07:00
parent 7ad4841d89
commit 4e5fc97a61
1 changed files with 288 additions and 291 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
samples/sample.basic.txt
View File

@ -15,10 +15,10 @@
75 PRINT "(14) Lores Drawing with Joystick" 75 PRINT "(14) Lores Drawing with Joystick"
80 PRINT "(15) Lores Colors" 80 PRINT "(15) Lores Colors"
85 PRINT "(16) Mandelbrot Set" 85 PRINT "(16) Mandelbrot Set"
85 PRINT "(17) Light Cycles" 86 PRINT "(17) Light Cycles"
90 PRINT "(18) Hires Demo" 90 PRINT "(18) Hires Demo"
92 PRINT "(19) DOS WRITE/APPEND" 92 PRINT "(19) DOS WRITE/APPEND"
94 PRINT "(20) ONERR ... RESUME" 93 PRINT "(20) ONERR ... RESUME"
94 PRINT "(21) CHR$ Tests" 94 PRINT "(21) CHR$ Tests"
95 PRINT: INPUT "Enter option: "; A : PRINT : HOME : ON A GOTO 100,200,300,400,500,600,700,800,1900,1000,1100,1200,2000,2100,2200,2300,2400,2500,2600,2700,2800 95 PRINT: INPUT "Enter option: "; A : PRINT : HOME : ON A GOTO 100,200,300,400,500,600,700,800,1900,1000,1100,1200,2000,2100,2200,2300,2400,2500,2600,2700,2800
98 HOME 98 HOME
@ -52,7 +52,7 @@
410 N = INT( RND(1) * 100 ) + 1 410 N = INT( RND(1) * 100 ) + 1
420 INPUT "Your guess? "; G 420 INPUT "Your guess? "; G
430 IF G = N THEN PRINT "Got it!" : PRINT : PRINT "Press any key: " : GET A$ : GOTO 5 430 IF G = N THEN PRINT "Got it!" : PRINT : PRINT "Press any key: " : GET A$ : GOTO 5
430 IF G < N THEN PRINT "Too low" : GOTO 420 431 IF G < N THEN PRINT "Too low" : GOTO 420
440 IF G > N THEN PRINT "Too high" : GOTO 420 440 IF G > N THEN PRINT "Too high" : GOTO 420
500 REM Guess your number 500 REM Guess your number
@ -61,8 +61,8 @@
530 PRINT "I guess ";G;" - enter 1 for too high, -1 for too low, 0 for got it" 530 PRINT "I guess ";G;" - enter 1 for too high, -1 for too low, 0 for got it"
540 INPUT R 540 INPUT R
550 IF R = 0 THEN PRINT "I guessed right!" : PRINT : PRINT "Press any key: " : GET A$ : GOTO 5 550 IF R = 0 THEN PRINT "I guessed right!" : PRINT : PRINT "Press any key: " : GET A$ : GOTO 5
540 IF R < 0 THEN MN = G + 1 : GOTO 560 551 IF R < 0 THEN MN = G + 1
550 IF R > 0 THEN MX = G - 1 : GOTO 560 552 IF R > 0 THEN MX = G - 1
560 IF MX = MN THEN PRINT "It must be "; MX; " - I guess you win." : END 560 IF MX = MN THEN PRINT "It must be "; MX; " - I guess you win." : END
570 G = INT( ( MX + MN ) / 2 ) : GOTO 530 570 G = INT( ( MX + MN ) / 2 ) : GOTO 530
@ -228,7 +228,7 @@
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: " : POKE 49168,0 : 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 FOR I = 0 TO 500 : NEXT : GOTO 2450 2491 FOR I = 0 TO 500 : NEXT : GOTO 2450
2500 REM Hires Demo 2500 REM Hires Demo
2510 HOME : HGR 2510 HOME : HGR
@ -286,6 +286,3 @@
2854 HTAB 36 : VTAB 1 : PRINT "4-->"; 2854 HTAB 36 : VTAB 1 : PRINT "4-->";
2860 VTAB 10 : HTAB 1 : PRINT "Press key to beep:"; : GET A$ : PRINT CHR$(7) 2860 VTAB 10 : HTAB 1 : PRINT "Press key to beep:"; : GET A$ : PRINT CHR$(7)
2870 VTAB 11 : HTAB 1 : PRINT "Press any key:"; : GET A$ : GOTO 5 2870 VTAB 11 : HTAB 1 : PRINT "Press any key:"; : GET A$ : GOTO 5