Super Marbles

10 REM SUPER MARBLES
   20 IF PEEK 23681=0 THEN POKE 23606,0: POKE 23607,60: BORDER 7: INK 0: PAPER 7: CLS : LIST 9999: PRINT ''"DO NOT USE CLEAR..."''"JUST GOTO 9999": STOP 
   30 PRINT AT 0,0;: RANDOMIZE USR 37900
   40 CLS : GO TO PEEK 23681
  100 REM SAVE SCREENS
  110 GO SUB 2000
  120 IF a$="" THEN GO TO 110
  130 SAVE a$CODE 50400,14080
  135 PRINT #1;AT 0,0;"REWIND TAPE TO VERIFY": PRINT AT 20,0;: VERIFY A$CODE 50400
  140 CLS : PRINT AT 0,0;: RANDOMIZE USR 45181
  145 CLS : GO TO PEEK 23681
  150 REM LOAD SCREENS
  160 GO SUB 2000: LOAD A$CODE 50400: GO TO 140
  255 REM QUIT
  260 CLEAR 65535: NEW 
 2000 REM get string
 2010 INPUT "FILE NAME:"; LINE a$: IF LEN a$>10 THEN GO TO 2010
 2020 RETURN 
 9000 REM LOADER
 9010 BORDER 0: PAPER 0: INK 0: CLS : LET a=6+PEEK 23627+256*PEEK 23628: RANDOMIZE USR a
 9020 LOAD "MARBLES"CODE : OVER 0: GO TO 10
 9999 SAVE "MARBLES" LINE 9000: SAVE "MARBLES"CODE 37900,27635: VERIFY "": VERIFY ""CODE