0 BORDER 0: POKE 2SLL ,0: POKE 2RRCA,0: CLS : RANDOMIZE USR (PEEK 2DARK+((PEEK 2STAR*2DI)+1EI))
65535 REM Cyberlode V1.1 Adrian Singh ring me on 0472 74768
49643 CONTINUE CODE GO SUB WPI >? GO SUB G.X&'6[L] INVERSE . CLOSE # INK GO SUB W NEXT GO SUB O INVERSE b INK RESTORE MERGE OR INVERSE hSCREEN$ GO SUB bw,wATTR CLEAR ▗ CLEAR TAB CLEAR b INVERSE T CLEAR AT wh CLEAR ib CLEAR cPOINT YOUFN GPIWALY INVERSE T CLEAR M INVERSE } CLEAR DhYoJ>▘gTx OVER G] CLEAR }wx VERIFY *gT GO SUB VAL STR$ MOVE LLIST INK CODE glp,q+ RESTORE LET ;; INVERSE READ INVERSE wf INK z PLOT << INVERSE g INVERSE } THEN CIRCLE THEN [A]<G INVERSE }O INVERSE RESTORE READ RESTORE MOVE q OR RESTORE GO SUB VAL .a MOVE STR$ MERGE INPUT Ox[J]GzK&^ GO SUB O GO SUB _VAL$ w GO SUB [Q]xLEN PLOT <>LEN jAg BEEP s GO TO ] RETURN S>=q[J]7jY# MERGE MBgFS?CABS [R]pBCODE RETURN ©BWFCHR$ CLCODE PAUSE CHR$ 7b
788c+ AND CLABS CODE W<[E] STOP IN INPUT SQR FOR [P] INPUT [D] NEXT 5aM> NEXT bVAL POKE 9+[M]/▞ BORDER Nz<=[O]USR /[J]h▟ DIM STEP PEEK sIN FhCHR$ OPEN #Y[B]s[C][IN i8+U▛gINT kSS+ PAUSE BRIGHT >=z DRAW LEN s RANDOMIZE {x OR THEN ]▛P5h=~[T] FLASH <=[Q]u[Q]<[S]▚y LLIST <=INT LN CLS SAVE GO SUB DIM kB/[C]QuS[S]K▜[D]SGN PRINT GO SUB STR$ INVERSE ▝oM={ COPY INT ?INKEY$[E]Q@ OUT NNOT BIN >= OPEN #HPEEK TO B LINE y SAVE ?[L]R[R] STOP >[F]f[T][K]CHR$ 2B CLS ([G]}$ INVERSE READ PF PAUSE ATN NEXT LINE INK [R][P][L] LPRINT NEXT PAPER n{wUHG CIRCLE TO 8[G]POINT [[M]/7TAB INPUT RANDOMIZE LN RUN 7 BRIGHT <= MOVE CIRCLE DEF FN [M]_[E]e SAVE 0NCODE <>/;[J]B TO OR GO SUB GLEN dkk PLOT a CLEAR 03▗m LET EXP STR$ < TO m DATA [A]Ww MOVE READ y+ STOP [P]g>= INK [U]>ATN /ATN OgPOINT :} DRAW TAB ASN iv%E LINE {AT POINT INPUT LIST GO SUB STOP BEEP TAN MOVE [G]▛ SAVE MERGE LINE OUT SGN EXP PEEK [D]USR CLEAR PAUSE PIBIN [R]INKEY$ FLASH ▖ RESTORE [K]CODE TO <>▙[T][A]▟▘ RUN CLOSE # LET ACS ATTR [I] PRINT REM COPY BRIGHT INK OVER COS LPRINT [N][C]<= DATA STR$ AND CLS FN INT CAT GO TO DIM VAL$ NOT VAL TAB [S][H] POKE [B] VERIFY THEN LN [F][P] DRAW RANDOMIZE RETURN OPEN #ABS SIN BORDER ▗ LLIST NEW [L]>=RND PAPER LOAD ▞ DEF FN READ FORMAT STEP CHR$ ATN [E]LEN PLOT FOR CIRCLE ASN SCREEN$ IN [M][J][O] NEXT [Q] INVERSE ERASE ▜[U]▝▚SQR CONTINUE OR IF CODE SCREEN$ GO SUB NEXT INPUT LLIST CLOSE #ATN ERASE [F]▖ CLS VERIFY <> BRIGHT IN INT ABS [A]NOT RETURN LET [U]<=[S]RND CIRCLE ▛ NEW [J]AT CAT LINE ▟[Q][D]
