Is a part of release: | The Sucker Demo |
File size: | 2675 |
md5: | 18b460ae0abebb68a1bcd2b237ab333f |
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<>