0 REM ! LET <>"CHR$ / STEP I] NEXT GO SUB {=/ LLIST ! RESTORE !v RESTORE CLEAR THEN INKEY$PEEK *O/ FOR <>2[<!>=CODE STEP i^ STEP >=CODE ";^Kpe STEP ^[A]e STEP ^ STEP NEXT ] STEP NEXT ]7 STEP ^D STEP ^E STEP ^R!` STEP "^H STEP ^A STEP ^6 STEP ^Nf STEP ^> STEP b^D![I]ATN STEP e^ STEP [NOT [I]ATN 'z STEP X^{ PRINT !>=CODE STEP i^ STEP [ STEP >=CODE LET STEP X^![A]USR 0 GO SUB VAL <>FN a`!>=CODE "3^ GO SUB SD^ STEP V^ STEP i^ STEP [ STEP > STEP X^! STEP LUSR STEP V^ STEP > STEP X^ CLS CODE OPEN # RETURN STEP USR ";^<>>P CLEAR © GO SUB yB<>@!USR y STEP X^x2^CODE 2/ NEXT INK STEP [ INK RESTORE GO SUB [ POKE / STEP = LLIST $>=2^ NEW CLS <>
1 CLEAR VAL "24575": RANDOMIZE USR VAL "23872"
