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

Update to also include results on LEDs

Browse Source
This commit is contained in:
William Moore 2023-08-06 06:48:41 -05:00
parent 64fa6a8f02
commit 903e4d758f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/1802mc/SCC.bas
View File

@ -24,8 +24,8 @@
120 INPUT X$ 120 INPUT X$
130 I=INP(0,4) 130 I=INP(0,4)
140 IF I=1 GOSUB 2000:G=G+1 140 IF I=1 GOSUB 2000:G=G+1
150 IF I=2 PRINT "GAME OVER! YOU SCORED: ", B:GOSUB 8000:END 150 IF I=2 PRINT "GAME OVER! YOU SCORED: ", B:GOSUB 8000:OUT(0,4,B):END
151 IF G=3 PRINT "GAME OVER! YOU SCORED: ", B:GOSUB 8000:END 151 IF G=3 PRINT "GAME OVER! YOU SCORED: ", B:GOSUB 8000:OUT(0,4,B):END
160 IF H=1 IF C=1 IF K=1 B=0:GOSUB 7000 160 IF H=1 IF C=1 IF K=1 B=0:GOSUB 7000
170 GOTO 110 170 GOTO 110
1000 IF H=0 GOSUB 6000:GOSUB 5000 1000 IF H=0 GOSUB 6000:GOSUB 5000