Infrared: *DIS. 48.B

Es parte de la publicación: Infrared
Tamaño del archivo: 7095
md5: 144e5d7c669e90d520a479b98deb8073
  10 REM ▙▖▞▛▟ DEF FN ▚▜▝▘▗ AND )9 BRIGHT  DRAW  CLOSE # STEP BIN  POKE  GO TO  DATA  TO PEEK IN LN EXP INT SQR SGN ABS  RETURN 5=%+-; READ  FOR 4<$#,3 DIM  PAPER  IF  ERASE NOT CHR$  PAUSE  REM  STOP  LINE 80 (wpqrstu62"~:©xyz{|}>FG@ABCDENOHIJKLMRSTU^_XYZ[/]fg`abcde&*!nohijklm. RANDOMIZE 1ACS ATN VAL LEN SIN COS TAN ASN  PLOT   LET STR$  MOVE  LLIST  PRINT  OR  MERGE  RESTORE <> CIRCLE  SAVE  FORMAT USR  LIST  CONTINUE  LPRINT >=<= CAT  BEEP  OUT  BORDER  LOAD  RUN  COPY [O][P][I][J][K][L][M][N] OVER [G][H][A][B][C][D][E][F] VERIFY VAL$ CODE FN POINT SCREEN$ ATTR AT TAB  INPUT JZjzFV^x@HPX`hCSsW_K[GO{yAIQYaiBRbrFG@ABCDENOHIJKLMVWPQRSTU^_XYZ[/]fg`abcdenohijklmvwpqrstu~©xyz{|}▚▜▝▘▗▙▖▞▛▟[G][H][A][B][C][D][E][F][O][P][I][J][K][L][M][N]INKEY$PI[Q][R][S][T][U]RNDVAL$ CODE FN POINT SCREEN$ ATTR AT TAB ACS ATN VAL LEN SIN COS TAN ASN PEEK IN LN EXP INT SQR SGN ABS  AND <=USR STR$ CHR$ NOT BIN  OR  DEF FN  CAT >=<> LINE  THEN  TO  STEP  VERIFY  BEEP  FORMAT  MOVE  ERASE  OPEN # CLOSE # MERGE  OVER  OUT  CIRCLE  INK  PAPER  FLASH  BRIGHT  INVERSE  NEW  BORDER  LPRINT  LLIST  STOP  READ  DATA  RESTORE  INPUT  LOAD  CONTINUE  DIM  REM  FOR  GO TO  GO SUB  PLOT   RUN  LIST  LET  PAUSE  NEXT  POKE  PRINT  RETURN  COPY  SAVE  RANDOMIZE  IF  CLS  DRAW  CLEAR &' !"#$%./()*+,->?89:;<=▙▖▞▛▟ DEF FN ▚▜▝▘▗ AND PIIN =<~:©xyz{|}>ATN [O][P][I][J][K][L][M][N] OVER [H]CODE [Q]LN FG@ABCDEVAL [A]FN [R] BRIGHT EXP  PAPER 8NOHIJKLM[S]INT VWPQRSTUSIN [C]SCREEN$ [T]SQR ^_XYZ[/]COS [D]ATTR [U]SGN %$fg`abcde&TAN [E]AT RNDABS -,nohijklm.ASN [F]TAB )9+#*! LLIST  RESTORE  DIM INKEY$PEEK 54wpqrstu6ACS [G]VAL$  LET  PRINT STR$  OR  FOR  MOVE  MERGE ;3 RANDOMIZE  DRAW  IF  SAVE  CLOSE # ERASE 0 FORMAT BIN CHR$  USR  POKE  PAUSE  LIST  GO TO  REM  CONTINUE  DATA  STOP  LPRINT  TO  LINE (>= NEW  RETURN  PLOT   VERIFY  INPUT  FLASH  OPEN # STEP NOT 2"JZjzBRbrxW_y@AHIPQXY`ahiCSsFG@ABCDE▚▜▝▘▗ AND <=USR STR$ CHR$ NOT BIN  OR NOHIJKLM▙▖▞▛▟ DEF FN  CAT >=<> LINE  THEN  TO  STEP VWPQRSTU[G][H][A][B][C][D][E][F] VERIFY  BEEP  FORMAT  MOVE  ERASE  OPEN # CLOSE # MERGE ^_XYZ[/][O][P][I][J][K][L][M][N] OVER  OUT  CIRCLE  INK  PAPER  FLASH  BRIGHT  INVERSE fg`abcdeINKEY$PI[Q][R][S][T][U]RND NEW  BORDER  LPRINT  LLIST  STOP  READ  DATA  RESTORE nohijklmVAL$ CODE FN POINT SCREEN$ ATTR AT TAB  INPUT  LOAD  CONTINUE  DIM  REM  FOR  GO TO  GO SUB vwpqrstuACS ATN VAL LEN SIN COS TAN ASN  PLOT   RUN  LIST  LET  PAUSE  NEXT  POKE  PRINT ~©xyz{|}PEEK IN LN EXP INT SQR SGN ABS  RETURN  COPY  SAVE  RANDOMIZE  IF  CLS  DRAW  CLEAR '/? (8!)9"*:#+;$,<%-=▙▚~FNV^fn[O]) READ  FOR " RANDOMIZE ▜w2©GOW_go[P]▖px@HPX`h[I]▞▝qyAIQYai[J]▘rzBJRZbj[K]▛s{CKS[ck[L]▗t|DLT/dl[M]▟u}EMU]em[N] DEF FN  AND 6> OVER  BRIGHT  DRAW  CLOSE #BIN  POKE  GO TO  DATA  TO  PAPER  IF  ERASE CHR$  PAUSE  REM  STOP  LINE !1:*80 (OGJCBZSRjbzsrK[{FNV^fnv~▚▙[G][O]INKEY$VAL$ ACS PEEK  AND  DEF FN  VERIFY  OVER  NEW  INPUT  PLOT   RETURN GOW_gow©▜[H][P]PICODE ATN IN <= CAT  BEEP  OUT  BORDER  LOAD  RUN  COPY @HPX`hpx▖[A][I][Q]FN VAL LN USR >= FORMAT  CIRCLE  LPRINT  CONTINUE  LIST  SAVE AIQYaiqy▝▞[B][J][R]POINT LEN EXP STR$ <> MOVE  INK  LLIST  DIM  LET  RANDOMIZE BJRZbjrz▘[C][K][S]SCREEN$ SIN INT CHR$  LINE  ERASE  PAPER  STOP  REM  PAUSE  IF CKS[cks{▛[D][L][T]ATTR COS SQR NOT  THEN  OPEN # FLASH  READ  FOR  NEXT  CLS DLT/dlt|▗[E][M][U]AT TAN SGN BIN  TO  CLOSE # BRIGHT  DATA  GO TO  POKE  DRAW EMU]emu}▟[F][N]RNDTAB ASN ABS  OR  STEP  MERGE  INVERSE  RESTORE  GO SUB  PRINT  CLEAR INKEY$PI[Q][R][S][T][U]RND NEW CSs[K{ THEN 6"*!)9+ READ # DIM  LLIST  RESTORE  RANDOMIZE  BRIGHT  DRAW  CLOSE # STEP BIN  POKE  GO TO  DATA  TO  PAPER  IF  ERASE NOT CHR$  PAUSE  REM  STOP  LINE 2":*!1 DEF FN  AND  NEW  THEN  RETURN  FLASH 80 (6> PLOT   OPEN # VERIFY  INPUT  OVER  LLIST ~ RETURN  STOP ( STEP G INK # PRINT # RESTORE <> STEP k!</6 STEP [Q] CIRCLE Starting address?   STOP >W! COPY W#w DRAW <>! PAPER  CIRCLE + OR # RESTORE  STEP IN  LLIST  RETURN e(- RETURN (% RETURN 08 LOAD  RETURN :0 FOR w RESTORE  BEEP  LLIST  RESTORE  STEP IN  LLIST  RETURN  COPY   RUN  COPY   CLEAR   SAVE STR$  CAT #STR$ 6<>STR$ STR$ NOT S INK ! PAPER  CIRCLE  RETURN ( VERIFY 0)DM))O GO TO " OUT  CIRCLE <> RESTORE  MERGE  OR  BEEP STR$  MOVE ! DATA  CIRCLE 4 LLIST <> STEP CODE  CIRCLE  STEP  NEW  CIRCLE  STEP ) INK  STEP k GO SUB [ OUT  CIRCLE  RETURN  GO SUB   CIRCLE  GO SUB LEN (K; RETURN  INVERSE ( RETURN  CLEAR  !] CIRCLE  GO SUB LEN (5!b CIRCLE  GO SUB LEN ("!m CIRCLE  GO SUB LEN (!▜ CIRCLE  GO SUB LEN (! LLIST  CIRCLE 6! LLIST  CIRCLE 6! LLIST  CIRCLE 6! LLIST  CIRCLE 6>2</![Q]P"▗/>2▞/* OUT  CIRCLE  RESTORE  STEP  INVERSE  INK 2 LIST  CIRCLE  STEP  DRAW  INK  DRAW  STEP  DRAW  INK [M] COPY  STEP  DRAW  INK  PLOT   COPY  STEP  DRAW  INK } AND 0 STEP G INK <> DRAW z/W{/_y STEP G INK <> LLIST " OUT  CIRCLE >  STEP G INK : LLIST  CIRCLE G GO SUB [ OUT  CIRCLE  STEP D PAPER >  STEP G INK  PRINT : LLIST  CIRCLE  RETURN (2G>[A]G▜G>  STEP G INK  RANDOMIZE ! NEW  LIST  AND 0 RETURN :8 AND  STEP G INK  NEW  AND 0 RETURN :8 AND  STEP G INK <>>2 DATA  CIRCLE * OUT  CIRCLE ~! OPEN # GO SUB LEN  >h2 STOP  CIRCLE  STEP [Q] CIRCLE call  STOP NOT  PLOT   LPRINT !J OPEN # GO SUB LEN  >h2 STOP  CIRCLE  STEP [Q] CIRCLE jp  STOP NOT  PLOT   LPRINT !T OPEN # GO SUB LEN  >h2 STOP  CIRCLE  STEP [Q] CIRCLE jr  STOP NOT  PLOT   LPRINT !PEEK  OPEN # GO SUB LEN  >X2 STOP  CIRCLE  STEP [Q] CIRCLE ret  STOP * OUT  CIRCLE ~ RETURN <>CHR$  PLOT   LPRINT NOT  CLOSE # CONTINUE !<= OPEN # GO SUB LEN  >p2 STOP  CIRCLE  STEP [Q] CIRCLE rst  STOP NOT  PLOT   LPRINT ! OPEN # GO SUB LEN  >p2 STOP  CIRCLE  STEP [Q] CIRCLE adc  STOP NOT  PLOT   LPRINT ! OPEN # GO SUB LEN  >p2 STOP  CIRCLE  STEP [Q] CIRCLE add  STOP NOT  PLOT   LPRINT !N CIRCLE  GO SUB LEN  >02 STOP  CIRCLE  STEP [Q] CIRCLE and  STOP NOT  PLOT   LPRINT !& OPEN # GO SUB LEN  >02 STOP  CIRCLE  STEP [Q] CIRCLE cp  STOP NOT  PLOT   LPRINT !/ OPEN # GO SUB LEN  >p2 STOP  CIRCLE  STEP [Q] CIRCLE dec  STOP NOT  PLOT   LPRINT !; OPEN # GO SUB LEN  >p2 STOP  CIRCLE  STEP [Q] CIRCLE ex  STOP NOT  PLOT   LPRINT !> OPEN # GO SUB LEN  >p2 STOP  CIRCLE  STEP [Q] CIRCLE inc  STOP NOT  PLOT   LPRINT !Y OPEN #T GO SUB LEN  >`2 STOP  CIRCLE  STEP [Q] CIRCLE ld  STOP NOT  PLOT   LPRINT !TAB  OPEN # GO SUB LEN  >02 STOP  CIRCLE  STEP [Q] CIRCLE or  STOP NOT  PLOT   LPRINT !ACS  OPEN # GO SUB LEN  >p2 STOP  CIRCLE  STEP [Q] CIRCLE pop  STOP NOT  PLOT   LPRINT !INT  OPEN # GO SUB LEN  >p2 STOP  CIRCLE  STEP [Q] CIRCLE push  STOP NOT  PLOT   LPRINT ! CAT  OPEN # GO SUB LEN  >p2 STOP  CIRCLE  STEP [Q] CIRCLE sbc  STOP NOT  PLOT   LPRINT ! CIRCLE  OPEN # GO SUB LEN  >p2 STOP  CIRCLE  STEP [Q] CIRCLE sub  STOP NOT  PLOT   LPRINT ! LLIST  OPEN # GO SUB LEN  >02 STOP  CIRCLE  STEP [Q] CIRCLE xor  STOP NOT  PLOT   LPRINT  RETURN  INVERSE ( RETURN  CLEAR  * OUT  CIRCLE #~ RETURN  THEN  LINE  GO TO  LPRINT NOT n PAPER  RETURN ? >X2 STOP  CIRCLE  STEP [Q] CIRCLE ccf STOP NOT  CLOSE # CONTINUE  RETURN / >X2 STOP  CIRCLE  STEP [Q] CIRCLE cpl STOP NOT  CLOSE # CONTINUE  RETURN ' >X2 STOP  CIRCLE  STEP [Q] CIRCLE daa STOP NOT  CLOSE # CONTINUE  RETURN  NEXT   CIRCLE  STEP [Q] CIRCLE di STOP NOT  CLOSE # CONTINUE  RETURN  >p2 STOP  CIRCLE  STEP [Q] CIRCLE djnz  STOP NOT  PLOT   LPRINT  RETURN  CLS   CIRCLE  STEP [Q] CIRCLE ei STOP NOT  CLOSE # CONTINUE  RETURN  INK  >p2 STOP  CIRCLE  STEP [Q] CIRCLE exx STOP NOT  CLOSE # CONTINUE  RETURN v >X2 STOP  CIRCLE  STEP [Q] CIRCLE halt STOP NOT  CLOSE # CONTINUE  RETURN  >X2 STOP  CIRCLE  STEP [Q] CIRCLE nop STOP NOT  CLOSE # CONTINUE  RETURN  FLASH  (>X2 STOP  CIRCLE  STEP [Q] CIRCLE in a,(   ) STOP !▖/444*▗/PI GO SUB R"▗/NOT  PLOT   LPRINT  RETURN  OPEN # ,>X2 STOP  CIRCLE  STEP [Q] CIRCLE out (   ),a STOP !▖/444444*▗/PI GO SUB R"▗/NOT  PLOT   LPRINT  RETURN  >02 STOP  CIRCLE  STEP [Q] CIRCLE rla STOP NOT  CLOSE # CONTINUE  RETURN  >02 STOP  CIRCLE  STEP [Q] CIRCLE rlca STOP NOT  CLOSE # CONTINUE  RETURN  >02 STOP  CIRCLE  STEP [Q] CIRCLE rra STOP NOT  CLOSE # CONTINUE  RETURN  >02 STOP  CIRCLE  STEP [Q] CIRCLE rrra STOP NOT  CLOSE # CONTINUE  RETURN 7 >X2 STOP  CIRCLE  STEP [Q] CIRCLE scf STOP NOT  CLOSE # CONTINUE  RETURN  GO SUB CHR$  DIM  OUT * OUT  CIRCLE #~! REM  OPEN # GO SUB LEN  LINE  FLASH ! INPUT  OPEN # GO SUB LEN  >X2 STOP  CIRCLE  STEP [Q] CIRCLE im  STOP NOT  PLOT   LPRINT ! LET  OPEN # GO SUB LEN  (>X2 STOP  CIRCLE  STEP [Q] CIRCLE in  ,(c) STOP !▖/44444*▗/PI GO SUB R"▗/NOT  PLOT   LPRINT ! SAVE  OPEN # GO SUB LEN  LINE ACS  FLASH ! CLOSE # GO SUB LEN  >X2 STOP  CIRCLE  STEP [Q] CIRCLE out (c), STOP NOT  PLOT   LPRINT ! CLOSE # GO SUB LEN  LINE  BRIGHT  RETURN POINT  >02 STOP  CIRCLE  STEP [Q] CIRCLE cpd STOP NOT  CLOSE # CONTINUE  RETURN D >X2 STOP  CIRCLE  STEP [Q] CIRCLE neg STOP NOT  CLOSE # CONTINUE  RETURN E >X2 STOP  CIRCLE  STEP [Q] CIRCLE retn STOP NOT  CLOSE # CONTINUE  RETURN M >X2 STOP  CIRCLE  STEP [Q] CIRCLE reti STOP NOT  CLOSE # CONTINUE  RETURN EXP  >02 STOP  CIRCLE  STEP [Q] CIRCLE cpdr STOP NOT  CLOSE # CONTINUE  RETURN [R] >02 STOP  CIRCLE  STEP [Q] CIRCLE cpi STOP NOT  CLOSE # CONTINUE  RETURN LEN  >02 STOP  CIRCLE  STEP [Q] CIRCLE cpir STOP NOT  CLOSE # CONTINUE  RETURN SCREEN$   CIRCLE  STEP [Q] CIRCLE ind STOP NOT  CLOSE # CONTINUE  RETURN INT  >X2 STOP  CIRCLE  STEP [Q] CIRCLE indr STOP NOT  CLOSE # CONTINUE  RETURN [S] >X2 STOP  CIRCLE  STEP [Q] CIRCLE ini STOP NOT  CLOSE # CONTINUE  RETURN SIN  >X2 STOP  CIRCLE  STEP [Q] CIRCLE inir STOP NOT  CLOSE # CONTINUE  RETURN FN  >`2 STOP  CIRCLE  STEP [Q] CIRCLE ldd STOP NOT  CLOSE # CONTINUE  RETURN LN  >`2 STOP  CIRCLE  STEP [Q] CIRCLE lddr STOP NOT  CLOSE # CONTINUE  RETURN [Q] >`2 STOP  CIRCLE  STEP [Q] CIRCLE ldi STOP NOT  CLOSE # CONTINUE  RETURN VAL  >`2 STOP  CIRCLE  STEP [Q] CIRCLE ldir STOP NOT  CLOSE # CONTINUE  RETURN SQR  >X2 STOP  CIRCLE  STEP [Q] CIRCLE otdr STOP NOT  CLOSE # CONTINUE  RETURN COS  >X2 STOP  CIRCLE  STEP [Q] CIRCLE otir STOP NOT  CLOSE # CONTINUE  RETURN ATTR  >X2 STOP  CIRCLE  STEP [Q] CIRCLE outd STOP NOT  CLOSE # CONTINUE  RETURN [T] >X2 STOP  CIRCLE  STEP [Q] CIRCLE outi STOP NOT  CLOSE # CONTINUE * OUT  CIRCLE ~ RETURN  THEN CHR$ BIN  DIM #~! CLOSE #@ GO SUB LEN  > 2 STOP  CIRCLE  STEP [Q] CIRCLE bit  STOP NOT  PLOT   LPRINT !M CLOSE #@ GO SUB LEN  > 2 STOP  CIRCLE  STEP [Q] CIRCLE res  STOP NOT  PLOT   LPRINT !▟ CLOSE # GO SUB LEN  >02 STOP  CIRCLE  STEP [Q] CIRCLE rl  STOP NOT  PLOT   LPRINT ![F] CLOSE # GO SUB LEN  >02 STOP  CIRCLE  STEP [Q] CIRCLE rlc  STOP NOT  PLOT   LPRINT ![N] CLOSE # GO SUB LEN  >02 STOP  CIRCLE  STEP [Q] CIRCLE rr  STOP NOT  PLOT   LPRINT !RND CLOSE # GO SUB LEN  >02 STOP  CIRCLE  STEP [Q] CIRCLE rrc  STOP NOT  PLOT   LPRINT !TAB  CLOSE #@ GO SUB LEN  > 2 STOP  CIRCLE  STEP [Q] CIRCLE set  STOP NOT  PLOT   LPRINT ! GO SUB  CLOSE # GO SUB LEN  >02 STOP  CIRCLE  STEP [Q] CIRCLE sla  STOP NOT  PLOT   LPRINT ! PRINT  CLOSE # GO SUB LEN  >02 STOP  CIRCLE  STEP [Q] CIRCLE sra  STOP NOT  PLOT   LPRINT >02 STOP  CIRCLE  STEP [Q] CIRCLE srl  STOP NOT  PLOT   LPRINT * OUT  CIRCLE ###~NOT  POKE  OUT >2 READ  CIRCLE * OUT  CIRCLE ~![H] MERGE  GO SUB LEN   STEP [Q] CIRCLE hl STOP NOT ] NEW ![R] MERGE  GO SUB LEN   STEP [Q] CIRCLE (hl) STOP NOT ] NEW !LEN  MERGE  GO SUB LEN   STEP [Q] CIRCLE af STOP NOT ] NEW !TAN  MERGE  GO SUB LEN   STEP [Q] CIRCLE bc STOP NOT ] NEW  RETURN   STEP [Q] CIRCLE (bc) STOP NOT ] NEW !EXP  MERGE  GO SUB LEN   STEP [Q] CIRCLE de STOP NOT ] NEW  RETURN   STEP [Q] CIRCLE (de) STOP NOT ] NEW !CHR$  MERGE  GO SUB LEN   STEP [Q] CIRCLE m STOP NOT ] NEW ! OR  MERGE  GO SUB LEN   STEP [Q] CIRCLE nc STOP NOT ] NEW !<> MERGE  GO SUB LEN   STEP [Q] CIRCLE nz STOP NOT ] NEW ! STEP  MERGE  GO SUB LEN   STEP [Q] CIRCLE p STOP NOT ] NEW ! FORMAT  MERGE  GO SUB LEN   STEP [Q] CIRCLE pe STOP NOT ] NEW ! OPEN # MERGE  GO SUB LEN   STEP [Q] CIRCLE po STOP NOT ] NEW ! VERIFY  MERGE  GO SUB LEN   STEP [Q] CIRCLE z STOP NOT ] NEW  RETURN <=  STEP [Q] CIRCLE 0 STOP NOT ] NEW  RETURN  CAT   STEP [Q] CIRCLE 8 STOP NOT ] NEW  RETURN  BEEP   STEP [Q] CIRCLE 16 STOP NOT ] NEW  RETURN  OUT   STEP [Q] CIRCLE 24 STOP NOT ] NEW  RETURN  BORDER   STEP [Q] CIRCLE 32 STOP NOT ] NEW  RETURN  LOAD   STEP [Q] CIRCLE 40 STOP NOT ] NEW  RETURN  RUN   STEP [Q] CIRCLE 48 STOP NOT ] NEW  RETURN  COPY   STEP [Q] CIRCLE 56 STOP NOT ] NEW ! PAPER  MERGE  GO SUB LEN  * OUT  CIRCLE #n& STEP [G] STOP NOT  CLOSE # CONTINUE ! LLIST  MERGE  GO SUB LEN  a* OUT  CIRCLE #^#Vbk STEP [G] STOP NOT  CLOSE # CONTINUE  LIST  CIRCLE  STEP ASN  STOP  DRAW  STEP ASN  STOP [M] COPY  STEP ASN  STOP  PLOT   COPY  STEP ASN  STOP } AND 0 DRAW z/W{/_y RETURN 10xATN y>= COPY  STEP G INK  RESTORE  PRINT * OUT  CIRCLE ~ RETURN  FLASH ( RETURN  OPEN #(! DATA  CIRCLE 4 LET  LLIST <>! READ  MERGE  GO SUB LEN   STEP [Q] CIRCLE ( STOP * OUT  CIRCLE #^#Vbk STEP [G] STOP  STEP [Q] CIRCLE ) STOP NOT ] NEW ! RESTORE  MERGE  GO SUB LEN  ( GO SUB [ OUT  CIRCLE * OUT  CIRCLE  STEP " READ NOT ] NEW ##PI RETURN ©8 GO SUB D_PI GO SUB R_ STEP [G] STOP <>! MERGE . GO SUB LEN   STEP [Q] CIRCLE a STOP NOT ] NEW !3 MERGE  GO SUB LEN   STEP [Q] CIRCLE b STOP NOT ] NEW !C MERGE  GO SUB LEN   STEP [Q] CIRCLE c STOP NOT ] NEW !W MERGE  GO SUB LEN   STEP [Q] CIRCLE d STOP NOT ] NEW !g MERGE  GO SUB LEN   STEP [Q] CIRCLE e STOP NOT ] NEW !w MERGE  GO SUB LEN   STEP [Q] CIRCLE h STOP NOT ] NEW !▜ MERGE  GO SUB LEN   STEP [Q] CIRCLE l STOP NOT ] NEW  RETURN 1(!IN  MERGE  GO SUB LEN   STEP [Q] CIRCLE sp STOP NOT ] NEW  RETURN  READ   STEP [Q] CIRCLE (sp) STOP NOT ] NEW  RETURN  INVERSE  >x2 LLIST  READ  RETURN  CLEAR CHR$  DATA >y2 LLIST  READ * OUT  CIRCLE #~ RETURN  DIM   PRINT : LLIST  READ 2 DATA  LET  STEP [Q] CIRCLE (i ) STOP NOT  CLOSE # CONTINUE ![H] MERGE  GO SUB LEN   PRINT : LLIST  READ 2) DATA  LET  STEP [Q] CIRCLE i  STOP NOT ] NEW ![R] MERGE # GO SUB LEN  9 PRINT : LLIST  READ 2F DATA  LET  STEP [Q] CIRCLE (i  STOP * OUT  CIRCLE ##~PI RETURN ©8 GO SUB D PRINT  STEP [Q] CIRCLE - STOP  PRINT  STEP [Q] CIRCLE + STOP  LET o& STEP [G] STOP  STEP [Q] CIRCLE ) STOP NOT ] NEW  RETURN "  STEP [Q] CIRCLE ( STOP * OUT  CIRCLE #NOT  IF  STOP  RETURN  THEN  NOT F NEW NOT = READ  RETURN  GO SUB CHR$ P RESTORE * OUT  CIRCLE #~! BORDER  MERGE  GO SUB LEN  NOT  LLIST  RETURN F NOT  STOP  RETURN V  STEP [Q] CIRCLE 1 STOP NOT ] NEW  RETURN ^  STEP [Q] CIRCLE 2 STOP NOT ] NEW ! LOAD  MERGE  GO SUB LEN  NOT G READ ! NEXT  MERGE  GO SUB LEN  NOT Y READ ! PRINT  MERGE  GO SUB LEN  NOT k READ ! RUN  MERGE  GO SUB LEN  NOT } READ ! RANDOMIZE  MERGE  GO SUB LEN  NOT  READ ! CLS  MERGE  GO SUB LEN  NOT [R] READ ! CLEAR  MERGE  GO SUB LEN  NOT COS  READ  RETURN G  STEP [Q] CIRCLE i STOP NOT ] NEW  RETURN O  STEP [Q] CIRCLE r STOP NOT ] NEW  RETURN K NOT D LLIST  RETURN [ NOT f LLIST  RETURN { NOT <> READ NOT v DATA  RETURN  THEN CHR$ BIN  DIM * OUT  CIRCLE #~!CHR$  VERIFY  GO SUB LEN  NOT  LLIST !<> VERIFY  GO SUB LEN  NOT G READ ! FORMAT  VERIFY  GO SUB LEN  NOT Y READ ! BEEP  VERIFY  GO SUB LEN  NOT k READ ! OVER  VERIFY  GO SUB LEN  NOT } READ ! RESTORE  VERIFY  GO SUB LEN  NOT  READ ! GO TO  VERIFY  GO SUB LEN  NOT [R] READ ! NEXT  VERIFY  GO SUB LEN  NOT COS  READ ! VERIFY  GO SUB LEN  NOT  STOP ! VERIFY  GO SUB LEN  NOT VAL$  DATA !2 VERIFY  GO SUB LEN  NOT INT  DATA !J VERIFY  GO SUB LEN   STEP [Q] CIRCLE 3 STOP NOT ] NEW !b VERIFY  GO SUB LEN   STEP [Q] CIRCLE 4 STOP NOT ] NEW !z VERIFY  GO SUB LEN   STEP [Q] CIRCLE 5 STOP NOT ] NEW ![C] VERIFY  GO SUB LEN   STEP [Q] CIRCLE 6 STOP NOT ] NEW !SCREEN$  VERIFY  GO SUB LEN   STEP [Q] CIRCLE 7 STOP NOT ] NEW NOT BIN  DIM * OUT  CIRCLE ###~!CHR$  VERIFY  GO SUB LEN  NOT 9 DATA NOT CHR$  RESTORE : READ  CIRCLE  RETURN (NOT  CLOSE # CONTINUE >2 READ  CIRCLE  STEP [Q] CIRCLE , STOP * OUT  CIRCLE ~ RETURN  GO SUB  NOT  VERIFY  BORDER  RETURN  THEN  NOT M CONTINUE  RETURN  INVERSE ( RETURN  CLEAR  NOT ▚ BORDER !Y BEEP  GO SUB LEN  * OUT  CIRCLE NOT s STOP !d BEEP  GO SUB LEN  * OUT  CIRCLE NOT  STOP !x BEEP  GO SUB LEN   STEP [Q] CIRCLE ( STOP * OUT  CIRCLE NOT  IF  STOP ! IF  VERIFY  GO SUB LEN  NOT  LLIST ! BEEP  GO SUB LEN  NOT  LLIST  RETURN  NOT Q LLIST  RETURN   STEP [Q] CIRCLE af' STOP NOT  CLOSE # CONTINUE  RETURN  NOT s LLIST !z BEEP  GO SUB LEN  NOT  READ  RETURN  NOT D LLIST  RETURN  NOT f LLIST  RETURN 9 NOT <> READ ! BEEP NOT G READ ! BEEP  GO SUB LEN  NOT Y READ !" BEEP  GO SUB LEN  NOT k READ !- BEEP  GO SUB LEN  NOT } READ !8 BEEP  GO SUB LEN  NOT  READ !C BEEP  GO SUB LEN  NOT [R] READ !N BEEP  GO SUB LEN  NOT COS  READ !▗/5!▖/4 STEP [Q] CIRCLE   STOP NOT  CLOSE # CONTINUE * OUT  CIRCLE #~ RETURN  THEN  NOT ABS  CONTINUE ! IF  VERIFY  GO SUB LEN  NOT 9 DATA ! BEEP  GO SUB LEN  NOT  DATA  RETURN 6 * OUT  CIRCLE ##NOT s STOP  RETURN *  STEP [Q] CIRCLE ( STOP * OUT  CIRCLE #NOT  IF  STOP  RETURN ! * OUT  CIRCLE #NOT  STOP NOT  BORDER * OUT  CIRCLE #~!~ BEEP  GO SUB LEN  NOT G READ ! BEEP  GO SUB LEN  NOT D LLIST ! BEEP  GO SUB LEN  NOT f LLIST ! BEEP  GO SUB LEN  NOT  LLIST !▖ BEEP  GO SUB LEN  NOT <> READ  RETURN W  STEP [Q] CIRCLE i STOP NOT  CLOSE # CONTINUE  RETURN _  STEP [Q] CIRCLE r STOP NOT  CLOSE # CONTINUE !▛ BEEP  GO SUB LEN   STEP [Q] CIRCLE ( STOP * OUT  CIRCLE #NOT  IF  STOP NOT v BORDER * OUT  CIRCLE #~!▙ BEEP  GO SUB LEN  NOT  LLIST !INKEY$ BEEP  GO SUB LEN  NOT G READ !PEEK  BEEP  GO SUB LEN  NOT Y READ ! VERIFY  BEEP  GO SUB LEN  NOT k READ ! INPUT  BEEP  GO SUB LEN  NOT } READ ! CIRCLE  GO SUB LEN  NOT  READ ! CIRCLE  GO SUB LEN  NOT [R] READ !6 CIRCLE  GO SUB LEN  NOT COS  READ NOT v BORDER * OUT  CIRCLE ###~!▙ BEEP  GO SUB LEN  NOT 9 DATA NOT v BORDER >F2 CLOSE #: STOP  CIRCLE ![P]Z#w DRAW # PRINT : LLIST  CIRCLE G LET #w#w# RANDOMIZE  PRINT !SIN Z DRAW <>>2</ STEP [Q] CIRCLE Press: C to continue  P to copy        R to restart   E to exit STOP >O!IN Z@#w DRAW  STEP IN  RETURN c( RETURN p(# RETURN r(% RETURN e>= GO TO  STEP k>2</.!&"▖/![Q]P2▗/NOT ▛ DIM  STEP AT S INK  GO SUB [ OUT  CIRCLE ! OPEN #PI GO SUB R PAPER  SAVE  DIM  OR  STEP  RETURN >2</>!2▖/* OUT  CIRCLE : LLIST  CIRCLE _" OUT  CIRCLE  RESTORE  OR  MERGE  PRINT  STEP _ INK  LET  MOVE STR$  LLIST STR$  LINE NOT  COPY  CONTINUE  LET STR$ STR$ STR$ STR$ STR$ >2</&."▖/!SIN P"▗/ STEP [Q] CIRCLE Not Z80 code! STOP > BEEP 2 STOP  CIRCLE  STEP  NEXT  CONTINUE NOT  COPY  CONTINUE  STEP k>2</.!&"▖/ STEP [Q] CIRCLE unauthorized disassembly STOP > BEEP 2 STOP  CIRCLE ![P]Z#w DRAW NOT  COPY  CONTINUE             STEP k>2</ STEP [Q] CIRCLE UNAUTHORIZED COPY STOP > BEEP ! COPY W#w DRAW  RETURN :TAN / RETURN  RETURN   CAT NOT ▚ DIM *S/ OPEN #. GO SUB VAL *S/= AND  ERASE 4 GO SUB VAL !TAN /6 RETURN *S/##6#6#6ACS > w DRAW   RUN ACS #w DRAW <>                                             
  11 CLEAR 53955
  12 RANDOMIZE USR 29756
  14 BORDER 0: PAPER 0: INK 6: CLS 
  15 PRINT "The 48K version of "; INK 2;"INFRARED"; INK 6;" is"
  16 PRINT "now installed in high memory. Itcan be run by RAND USR 54000.   Please read the instructions    carefully before using this     program."
  17 PRINT AT 10,0;"© 1982 ACS Software"
  18 PRINT TAB 7;"Leeds, U.K."
  80 REM P4? COPY  LET  COPY  COPY  COPY  DRAW Q4@PR4 S4 T4 COPY USR © RETURN # COPY  LET U4 COPY  COPY USR © RETURN # COPY  LET V4 DRAW @@ STOP W4@@ STOP PT COPY USR @"QT0@# COPY  DRAW RT@@ ST@ TT COPY USR @UT COPY USR @ COPY  LET VT▖@@ COPY  LET WT▖@@ RETURN Pt▖@@"Qt COPY USR © RETURN # COPY  LET Rt St@ Tt Ut COPY  RANDOMIZE  COPY  COPY  CAT  COPY  RETURN Vt COPY  LIST © COPY  COPY  DRAW !#^#~ IF #  LET <>                                                                                                                                                                                                          
  81 RANDOMIZE USR 30452
  82 PLOT  140,16: DRAW 52,80: DRAW 52,-80
  83 IF INKEY$="" THEN  GO TO 82
  84 NEW 
  900 INPUT a: FOR n=a TO 99999 STEP 10: PRINT n,PEEK n: NEXT n
  24832m INPUT ds[B]CO▗