Color-Pad

0 REM @! COPY DATA GO SUB VAL <> USR LPRINT LIST SAVE q<>!@ GO SUB VAL <> DATA ! COPY <> GO SUB VAL <><>! COPY DATA GO SUB VAL <>d? STOP ▛              PAPER:trans     INK:trans     BRIGHT:FLASH:SAVELOADQUITUNDO████████████aaa RESTORE FOR FOR LLIST s#r+<> RESTORE ATN FOR GO SUB B PAUSE RESTORE >bkLN  CLS EXP  SAVE STOP ATN RESTORE FOR B0 CLS MERGE STEP REM STEP oh STEP ON ERRh!STICK\>hw!ON ERR\>gw!dh STEP !fh STEP !hh STEP !jh STEP !lh STEP !nh STEP !ph STEP NOT Ck!rh STEP >rh BEEP > BEEP >> BEEP >> BEEP >> BEEP >> BEEP >> BEEP h STEP FLASH !> BEEP !rh GO SUB [rh STEP *rhATN GO SUB R LINE jNOT EXP i> BEEP > BEEP h STEP FLASH !*nhATN GO SUB RCHR$ 3jh STEP FLASH !> BEEP *nhATN GO SUB R LINE aj>:nh BEEP h STEP FLASH !>> BEEP h STEP FLASH !> BEEP > BEEP > BEEP h STEP FLASH !*phATN GO SUB RCHR$ ▛jh STEP FLASH !> BEEP *phATN GO SUB R LINE EXP j>:ph BEEP h STEP FLASH !>> BEEP h STEP FLASH !> BEEP > BEEP > BEEP h STEP FLASH ! GO SUB Kjh STEP DIM 0 STEP r1> BEEP > BEEP > BEEP h STEP FLASH ! GO SUB Khh STEP DIM 0 STEP r1> BEEP > BEEP > BEEP h STEP FLASH !> BEEP > BEEP h STEP FLASH !> BEEP > BEEP h STEP FLASH !> BEEP > BEEP h STEP FLASH !> BEEP <> STEP TAB i!\>w>lh BEEP > BEEP >> BEEP i STEP FLASH !>> BEEP > BEEP STEP DIM 0 STEP FOR ! SPECTRUM h STEP ) STEP m&! SPECTRUM hw#6!RNDh STEP ) STEP m&!RNDhw#6!PIh:\w#6*PIhATN GO SUB RCHR$ EXP k STEP ON ERRhNOT ▞m* SPECTRUM hATN GO SUB RCHR$ CLOSE #k*RNDhATN GO SUB RCHR$ CLOSE #kNOT wk>lh BEEP > BEEP >> BEEP i STEP FLASH !>> BEEP > BEEP * SPECTRUM hATN GO SUB RCHR$ l*lhATN GO SUB R PAUSE l!lh GO SUB [lh STEP * SPECTRUM hATN GO SUB RCHR$ Al*lh GO SUB R IF Al!lh GO SUB [lh STEP i*RNDhATN GO SUB RCHR$ PlNOT SlNOT Fk*lhATN GO SUB RCHR$ ▗l!nh GO SUB [nh STEP *nhATN GO SUB RCHR$ ▗l!nh STEP *lhATN GO SUB RCHR$ ASN l!ph GO SUB [ph STEP *phATN GO SUB RCHR$ ASN l!ph STEP *lhATN GO SUB RCHR$ NEW l!jh GO SUB [jh STEP *jhATN GO SUB RCHR$ NEW l!jh STEP *lhATN GO SUB RCHR$ hh GO SUB [hh STEP *hhATN GO SUB RCHR$ hh STEP *lhATN GO SUB RCHR$ 0m!POINT hd STEP <>*lhATN GO SUB RCHR$ Im!POINT h>= STEP <>*lhATN GO SUB RCHR$ bm!POINT h, STEP <>*lhATN GO SUB RCHR$ ▀m STEP ▜h STEP [hx STEP DIM 0 STEP FOR STEP TAB iNOT Fk STEP jNOT Fk!\>w STEP [h>dh BEEP :fh BEEP >> BEEP >> BEEP >> BEEP >> BEEP >> BEEP i STEP FLASH !> BEEP STEP DIM 0 STEP FOR ! SPECTRUM h STEP ) STEP m&! SPECTRUM hw#6!RNDh STEP ) STEP m&!RNDhw#6!PIh:\w#6*PIhATN GO SUB RCHR$ Gn>dh BEEP :fh BEEP >> BEEP >> BEEP >> BEEP >> BEEP >> BEEP i STEP FLASH !> BEEP STEP ohNOT Ck* SPECTRUM hATN GO SUB RCHR$ bn*RNDhATN GO SUB RCHR$ bnNOT FORMAT m>dh BEEP :fh BEEP >> BEEP >> BEEP >> BEEP >> BEEP >> BEEP i STEP FLASH !> BEEP * SPECTRUM h GO SUB R IF LINE n! SPECTRUM h GO SUB [ SPECTRUM h STEP i*fhATN GO SUB R LINE LINE n!fh GO SUB [fh STEP * SPECTRUM h GO SUB R IF CLEAR n! SPECTRUM h GO SUB [ SPECTRUM h STEP i*fhATN GO SUB R LINE CLEAR n!fh GO SUB [fh STEP i* SPECTRUM hATN GO SUB RCHR$ "o*dhATN GO SUB R LINE "o!dh GO SUB [dh STEP i* SPECTRUM hATN GO SUB RCHR$ Go*dhATN GO SUB R LINE Go!dh GO SUB [dh STEP *RNDhATN GO SUB RCHR$ VoNOT YoNOT cm>dh BEEP :fh BEEP >:ph BEEP >:nh BEEP >:jh BEEP >> BEEP >:hh BEEP i STEP FLASH !> BEEP !ATTR h GO SUB [dh STEP #i GO SUB Kfh STEP COPY LLIST STEP !TAB h GO SUB [dh STEP #i GO SUB Kfh STEP X STEP !TAB h GO SUB [TAB h FOR GO SUB q FOR 6*ATTR h:TAB hwNOT cm1
    1 CLS : IF PEEK 23681=0 THEN CLS : LIST 9999: STOP 
    2 PRINT AT 8,12;"COLOR-PAD";AT 10,2;"WRITTEN BY KRISTIAN BOISVERT";AT 12,8;"©1986 BYTE POWER"
    3 PAUSE 600
   10 PRINT AT 0,0;: GO TO USR 26945
  100 REM SAVE
  110 INPUT "FILE NAME:"; LINE A$
  120 IF LEN A$>10 OR LEN A$<1 THEN GO TO 110
  130 SAVE A$CODE 58623,6912
  140 INPUT "VERIFY? "; LINE Q$
  150 IF Q$="Y" OR Q$="y" THEN VERIFY A$CODE 58623
  160 RANDOMIZE USR 26715: PRINT AT 0,0;: GO TO USR 26954
  200 REM LOAD
  210 INPUT "FILE NAME:"; LINE A$
  220 IF LEN A$>10 THEN GO TO 210
  230 LOAD A$CODE 58623
  240 RANDOMIZE USR 26759: RANDOMIZE USR 26715: PRINT AT 0,0;: GO TO USR 26954
  300 REM QUIT
  310 CLS : PRINT AT 10,0;"ARE YOU SURE?"
  320 LET Q$=INKEY$
  330 IF Q$="Y" OR Q$="y" THEN PRINT USR 0
  340 IF Q$="N" OR Q$="n" THEN RANDOMIZE USR 26715: GO TO USR 26954
  350 GO TO 320
 9999 SAVE "COLOR-PAD" LINE 1: VERIFY "COLOR-PAD"