0 REM ! LET <>"CHR$ / STEP I] NEXT GO SUB {=/ LLIST ! RESTORE !v RESTORE CLEAR THEN INKEY$PEEK *O/ FOR !USR CLEAR © GO SUB yw< GO SUB yw= GO SUB yPEEK CHR$ !@[M] STEP PAUSE ]>7 STEP LOAD ]>9 STEP LOAD ]> STEP LOAD ]> STEP LOAD ]>+!FN a STEP PAUSE ]> STEP 2r▘!SGN ]"s▘NOT FN a"@▘!~ RETURN USR #~ RETURN NEW USR #~ RETURN USR MERGE ! OVER ] GO SUB VAL MOVE <> LOAD )) DRAW CODE OPEN # RETURN 'xLEN CLS !USR RESTORE OR CLEAR © GO SUB ySTR$ STEP COPY ] LLIST DIM / NEXT NOT =
1 BORDER NOT PI: PAPER NOT PI: INK VAL "7": CLEAR VAL "24575": RANDOMIZE USR VAL "23872"
