The Sucker Demo: SUCKER.B

  10 POKE 23693,0: BORDER 0: CLS : GO SUB 20: POKE 23693,71: LOAD   "SUCKER.1"CODE : RANDOMIZE USR 26000: STOP 
  20 RANDOMIZE USR VAL "PEEK 23637+256*PEEK 23638-2358": RETURN : REM ! GO SUB J0u% GO SUB VAL NOT 0u STEP [C];; LLIST n RESTORE  INK  MOVE  INK !@ RESTORE  INK x RETURN   RETURN  CLEAR  OGy INK w$ LLIST  LLIST #  INK  LLIST   DEF FN !X INK x RETURN   RETURN  CLEAR  OGy INK w#xLEN   OVER  CLS <> CLS  CLS  CLS f CLS SCREEN$ U CLS ( CLS *TFN P CLS *( CLS [Q]U CLS * CLS [Q]T CLS PI CLS FN @((((/ CLS  RETURN  COPY **,<<=[Q]@[Q]PPEEK | IF  PRINT *(??>=[Q]T LIST  COPY CODE U((*=??SCREEN$ T CONTINUE  DRAW  CLS  * CLS @ CLS *SCREEN$ U,=> CLEAR <_CODE  CLEAR >= CLEAR <>CODE @ CLS  CLEAR ?= CLEAR < LPRINT USR  LPRINT  LIST  SAVE |>?? CLEAR <?? IF  DRAW  CLS  LIST  COPY  CLEAR <??<< LOAD  RETURN < CLS (((<?? P( PRINT  *( CLS @[Q] CLS UP[Q]P CLS .??AT ~ COPY  OUT  CLEAR <?? DRAW  LPRINT  CLS ? CLS  DRAW  LPRINT  CLS 0 CLS  CLS < CLS  CLS  CLS >= CLEAR < IF |<?*(<??>=A[Q]USR  LIST ~((* CLS  CLS 5U(*)>=[R]} REM  CLOSE #SGN x CLS ?? CLS  SAVE USR  CLS f CLS  COPY  RETURN x CLS ?? CLEAR <CODE  MERGE  IF =USR *58<<>>?SCREEN$ USCREEN$ U*( CLS @  CLS  @@(*(,<ATTR  CLEAR ©??> CLEAR <=? LPRINT x LPRINT  CLS [I] LIST > CLS ?==<<IN  CLEAR  COPY O CLEAR ((>??>= RESTORE  IF ] CLS  CLS @*A▘C| LIST  CLEAR USR =?> CLEAR < LOAD 8  CLS c~NOT f< CLEAR  CLS  COPY  CLEAR cc© CLEAR c©`~``© CLS  CLEAR c>cs{ogc? CLEAR ? COPY  CLEAR ©`~``©|fccf| CLS cw© CLEAR c? CLEAR ?cs{ogc|fccf|>`>c> CLS  CLS  CLEAR < CLEAR  COPY  CLEAR @@ CLEAR USR { READ  CLEAR  CLEAR USR <80 CLS 6? CLEAR ?cs{ogc CLS  CLEAR cc> CLEAR c>cs{ogc©`~``© CLS < CLEAR ?>cc?>>cc?>©`~c> CLEAR  CLS 9© CLEAR USR @ CLS  CLS  BORDER  CLS USR @ CLS  CLEAR  COPY  COPY  COPY  COPY  LIST  LIST  SAVE  SAVE  COPY  COPY  CLEAR ? COPY  COPY  LIST  LIST  SAVE  SAVE  COPY  COPY  COPY  COPY  CLEAR  LIST  COPY  COPY  COPY  COPY  LIST  LIST  SAVE  SAVE  COPY  COPY 0088 COPY  COPY  CLEAR  COPY  COPY  CLS  COPY  COPY  CLS  COPY  COPY  COPY  COPY  LIST  LIST  SAVE  SAVE  COPY  COPY 0088 COPY  COPY  CLEAR  COPY  COPY  CLEAR ? COPY  COPY USR USR  LPRINT  LPRINT  COPY  COPY  CLS  COPY  COPY  CLS  COPY  COPY  CLEAR ? COPY  COPY USR USR  LPRINT  LPRINT  COPY  COPY  COPY  COPY  LIST  LIST  SAVE  SAVE  COPY  COPY  CLEAR 0 COPY  COPY qq LLIST  LLIST  CLS ( CLEAR 88 CLEAR 0 CLEAR  CLEAR 0 CLEAR 0088 CLS  LIST  LIST  SAVE  SAVE 88 CLEAR 0 CLEAR <<>>7733 CLEAR  CLS 88 CLEAR 0 CLEAR <<>>7733 CLEAR  CLEAR 0pp88 CLS  CLEAR 0pp8888 CLEAR 0 CLEAR 1133 CLEAR ?STR$ STR$ ▝▝ CLEAR  CLS ( CLEAR  CLEAR 088 CLEAR  CLEAR ? CLEAR 0 SAVE  SAVE  LIST  LIST pp88 CLS 0088 CLEAR  CLEAR 088 CLEAR 11 CLEAR 0 TO  TO  GO TO  GO TO ||<< CLS  CLEAR ? CLEAR 0 CLEAR  DRAW  CLEAR 11 CLEAR 0 TO  TO  GO TO  GO TO ||<< CLEAR 088pp CLS  CLEAR 088pp CLEAR 088 CLEAR 3311 CLEAR 0▝▝STR$ STR$  LLIST  LLIST qq CLS ( CLEAR  COPY  COPY  SAVE  SAVE  LIST  LIST  COPY  COPY  CLEAR 0 COPY  COPY  COPY  COPY  COPY  SAVE  SAVE  LIST  LIST  COPY  COPY  COPY  COPY  SAVE  SAVE  LIST  LIST  COPY  COPY  CLEAR 0 COPY  COPY  COPY  COPY  CLS  COPY  COPY  CLS  COPY  COPY  CLEAR 0 COPY  COPY  CLEAR  COPY  COPY  CLEAR 0 COPY  COPY  COPY  COPY  CLEAR ? COPY  COPY  LPRINT  LPRINT USR USR  COPY  COPY  CLS  COPY  COPY  CLS  COPY  COPY  CLEAR ? COPY  COPY  LPRINT  LPRINT USR USR  COPY  COPY  COPY  COPY  SAVE  SAVE  LIST  LIST  COPY  COPY  CLEAR 0 COPY  COPY 99 COPY  COPY  CLS ( CLEAR  COPY 8 CLEAR 0 COPY  LIST  SAVE  CLEAR  COPY  CLEAR 0?? COPY  SAVE  COPY 80 COPY  LIST  SAVE  COPY 8 CLEAR 0 COPY  LIST  SAVE  CLEAR  COPY  CLEAR 01 COPY <| GO TO  TO  COPY  CLS  COPY  CLS  COPY  CLEAR 0?? COPY  CLEAR  DRAW  DRAW  COPY  CLEAR 01 COPY <| GO TO  TO  COPY ?? CLEAR 0 COPY USR  LPRINT p8 COPY  CLS  COPY  CLS  COPY ?? CLEAR 0 COPY USR  LPRINT p8 COPY 8 CLEAR 0 COPY  LIST  SAVE  CLEAR  COPY  CLEAR 013 COPY 9q LLIST STR$ ▝ CLS ( CLEAR  CLEAR 08 COPY  CLEAR  SAVE  LIST  COPY  CLEAR 0?? COPY  SAVE  LIST  COPY 80 COPY  SAVE  LIST  LIST  LIST  COPY  CLEAR 08 COPY  CLEAR  SAVE  LIST  COPY 37><80 COPY  CLEAR  COPY  CLS  COPY  CLS  COPY  CLEAR 08 COPY  CLEAR  SAVE  LIST  COPY 37><80 COPY  CLEAR  COPY  CLEAR 0?? COPY 8p LPRINT USR  COPY  CLS  COPY  CLS  COPY  CLEAR 0?? COPY 8p LPRINT USR  COPY  CLEAR 08 COPY  CLEAR  SAVE  LIST  COPY ??3100 COPY ▝STR$  LLIST q COPY  CLS  CLS  CLS  CLS  CLS ?©© CLEAR  COPY  NEXT  LPRINT  SAVE  DRAW  RETURN  RETURN  CLEAR  COPY  BORDER  CLEAR  CAT  BORDER  CLEAR  COPY  CLEAR [P] CLEAR  COPY  NEXT  CLEAR  RANDOMIZE  NEXT  CLEAR  COPY ▙ COPY r NEXT  NEXT  CLEAR  COPY s NEXT  NEXT  CLEAR  COPY ? NEXT  CLEAR  COPY  CLEAR  RETURN  CLEAR  COPY  CLEAR r CLEAR  COPY  CLEAR s CLEAR  COPY  CLEAR  CAT  CLEAR  COPY  CLEAR  DEF FN  CLEAR  COPY ~~ CLEAR  COPY  CLEAR s CLEAR  COPY  CLEAR  RETURN  CLEAR  COPY ~ CLEAR © CLEAR  COPY  CLEAR [O] CLEAR  COPY  CLEAR r CLEAR  COPY ©© CLEAR  COPY  CLEAR  RETURN  CLEAR  COPY r~~ CLEAR  COPY rNb CLEAR  COPY  CLEAR r CLEAR  COPY  CLEAR r CLEAR  COPY  CLEAR r CLEAR  COPY  CLEAR © CLEAR  COPY  CLEAR  CAT  DEF FN  CLEAR  COPY  CLEAR [O] CLEAR  COPY  CLEAR r CLEAR  COPY rrsr CLEAR  COPY © NEXT  CLEAR  COPY  CLEAR ©? CLEAR  COPY  NEXT  RETURN  RETURN  DRAW  SAVE  LPRINT  CLEAR G CLEAR G CLEAR B CLEAR G CLEAR B CLEAR G' CLEAR E CLEAR A@ CLEAR GE CLEAR ME CLEAR M E CLEAR ME LIST 
  22529ioKRVAL$  LOAD  CONTINUE MYTAB  PLOT  TAB a DATA [A]eJYSCREEN$  LIST Nsuck.p DATA @@ RETURN RNDn DATA dRNDAT  READ %AT  GO TO UVAL$  SAVE  DATA lO2358 LLIST mm[A]b@[M] INPUT @@SGN v<>c@e<>