Update pong.bas

topherPedersen · Sep 24, 2018 · aaaf790 · aaaf790
1 parent be9de70
commit aaaf790
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/pong.bas b/pong.bas
@@ -153,15 +153,16 @@
 3040 FOR X = 0 TO 7
 3050 ZZ=X
 3060 NEXT X
-3100 REM X 
-3101 PRINT @ 170, "PLAY AGAIN ?"
+3100 PRINT @ 170, "PLAY AGAIN ?"
+3101 SET(58, C1, 5): SET(58, C2, 5): SET(58, C3, 5)
 3102 PRINT @ 261, "'Y' FOR YES 'N' FOR NO"
+3103 SET(58, C1, 5): SET(58, C2, 5): SET(58, C3, 5)
 3104 PS=0: CS=O
 3105 NG$=INKEY$
 3120 IF NG$="Y" THEN 3400
 3130 IF NG$="N" THEN 4000
 3140 GOTO 3030
 3400 GOTO 7
 3500 RETURN
-4000 REM X
+4000 CLS
 5000 END