caranmegil/retrocoding
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update to fix a goto error

Browse Source
This commit is contained in:
William Moore 2023-08-15 23:24:17 -05:00
parent b081401666
commit af7236cbba
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/altair8800/BEETLE.bas
View File

@ -23,7 +23,7 @@
90 X$=INPUT$(1) 90 X$=INPUT$(1)
100 I=INP(255) 100 I=INP(255)
110 IF I>1 THEN GOTO 1000 110 IF I>1 THEN GOTO 1000
120 IF I=1 THEN PRINT "THANKS FOR PLAYING THIS ROUND!":GOTO 20 120 IF I=1 THEN PRINT "THANKS FOR PLAYING THIS ROUND!":GOTO 50
130 GOSUB 200 130 GOSUB 200
140 IF W=1 GOTO 1000 140 IF W=1 GOTO 1000
150 IF W=0 GOTO 80 150 IF W=0 GOTO 80