Ultraviolet: uv 48K.B

Es parte de la publicación: Ultraviolet
Tamaño del archivo: 5768
md5: 5b64a293b056c9eaaa3c334fec909061
  10 REM  PRINT  OR  RESTORE ~ VERIFY :8 CAT ~ VERIFY 08 RANDOMIZE ~ VERIFY 08 VERIFY 0# NEXT  GO SUB Sd REM  GO SUB Sb REM x2f REM +~ VERIFY 0 STEP  CLOSE # REM  RESTORE *d REM "d REM > STEP  CLOSE # REM  GO SUB Cb REM  LLIST :f REM =2f REM   OVER  LLIST STR$  LET <> RESTORE [b REM ! THEN 90 FOR ) FOR  PRINT  RESTORE STR$  LLIST <># STEP ? REM +>-PEEK (>+PEEK ( CAT <> GO SUB [d REM CODE [D]2d REM <>adcaddandbitcalccfcp cpldaadecdefex exxin incjp jr ld lddldinegnopor orgoutpoppusresretrl rlarlcrldrr rrarrcrrdrstsbcscfsetslasrasrlsubxorhalcpdcpidjnim indiniotdotibcdehlspixiybcdehl(anzz,ncc,popep,m, FOR  RETURN >=PEEK ( NEXT #PEEK (+ PAUSE #PEEK >=++ NEXT LEN  FOR <= FOR >=PEEK (#PEEK >=+ GO TO  RETURN >=PEEK >= PLOT   RESTORE  THEN ' RESTORE  THEN ' THEN ' THEN 'O LLIST <>:g REM  RETURN >= RESTORE :M CLS  RETURN N CLS (G AND &o FOR  PLOT  !M CLS 4 LLIST  MERGE ~NOT A CLS # PRINT :h REM :i REM  MOVE x<> STEP  CLS  RETURN (X:M CLS O RESTORE ~ RETURN +( RETURN ;( RETURN ( RETURN )(# FOR N CLS LN ( AND &o FOR   PAUSE  CAT  LLIST  RESTORE  OR  MERGE PEEK  9# SAVE OG MOVE  LET  LLIST ~ RETURN ;( RETURN ( RETURN )( RETURN +(# GO TO  GO SUB Cd REM <>#~ RETURN 0( PRINT  RETURN 1( RETURN 2( CAT  BORDER  MOVE STR$  AND &o FOR  LLIST  RESTORE  [P] CAT  STEP  CIRCLE  FOR y RETURN  v>p2j REM ▖ OR ##~ RETURN a I## STEP   GO TO y RETURN ( RETURN (STR$  REM STR$ x AND FW:d REM _hPEEK  STR$ x AND xPEEK   INVERSE  CLEAR STR$ x AND _ MERGE # STEP  LOAD  REM  MOVE # STEP  GO TO y STEP / GO TO QSTR$ x RETURN ▖(>2>:▘_ GO SUB  e>p2j REM ##~ RETURN a @## STEP   GO TO y RETURN ( RETURN ( REM  AND :d REM _hPEEK  >▚xPEEK  ▚ INVERSE ▚ CLEAR  MERGE # STEP  LOAD  REM  MOVE  GO TO y RETURN ##  STEP  GO TO y STEP / GO TO > RANDOMIZE ▝ RETURN   INVERSE  CLEAR  MERGE  STEP  GO TO y RETURN   VERIFY  RETURN   VERIFY  STEP / GO TO > RANDOMIZE ▝ MOVE _ R>02j REM [Q]~ VERIFY a8 STEP 5 REM ySTR$ (( STEP  REM STR$ Q:d REM _hPEEK  STR$ x AND  AND _#>xPEEK   INVERSE  CLEAR  MERGE # STEP  LOAD  REM  MOVE  `> 2j REM >8 PRINT ##0PEEK (< RANDOMIZE y VERIFY 8 CAT y STEP 4 GO TO  LET ▝## PRINT  STEP   GO TO y RETURN ( MOVE ▘_ THEN hPEEK   LET  INPUT #>xPEEK   THEN  INVERSE  THEN  CLEAR  MERGE # STEP  LOAD  REM  MOVE  LET  REM  [>h2j REM  STEP >SGN  PRINT  MERGE ### STEP  GO TO y RETURN   ~ VERIFY A8 VERIFY 0 STEP { GO TO  STEP  REM  MOVE  LET :d REM _:e REM 2d REM  RETURN ,(## LET  STEP 4 GO TO  MOVE  LET ▝W MERGE ~ VERIFY A8 VERIFY 0 STEP { GO TO  STEP  REM  MOVE  DEF FN  RETURN  >02j REM >? >02j REM LN  RETURN  >02j REM >/ >02j REM >' n>p2j REM  CLS  MERGE ##~ RETURN ((6 STEP  GO TO y RETURN (! VERIFY 0y STEP / GO TO  MOVE z▝xSTR$   INVERSE  CLEAR x AND 0_ GO TO y STEP 4 GO TO  MOVE {▝ RETURN h  MOVE { AND 0{ AND 0_>xPEEK   INVERSE  CLEAR  MERGE # STEP  LOAD  REM  MOVE  R>x2j REM #~ RETURN b ## STEP  REM  RESTORE :d REM *h REM #"h REM *k REM w#"k REM  LLIST  LET NOT TAB  IF  RETURN w  ## STEP  REM  RESTORE *k REM :d REM w#:e REM w#"k REM *h REM ##"h REM  BEEP  RETURN s( CAT /## RESTORE ~ RETURN ( RETURN ;(# NEXT *k REM  MOVE  OR w# IF NOT  CLS  GO SUB [h REM  CLEAR  GO SUB Sh REM  LET NOT TAB  IF  RETURN  >>`2j REM #~ RETURN a > > FOR  PRINT #~ RETURN s( CAT #####~ RETURN l > READ   INVERSE  CLEAR  READ  >`2j REM > INK  ,>`2j REM ####>cPEEK  +++ STEP 5 REM y STEP 4 GO TO y AND @_ GO SUB  REM :d REM _ FLASH  PAUSE  RETURN  >p2j REM  NEXT NOT s LOAD  RETURN  0>h2j REM #>(PEEK (NOT >INT  PRINT  MERGE NOT  OUT  INPUT #~ RETURN h > DIM xPEEK   DIM  INVERSE  DIM  CLEAR  0>h2j REM # STEP  GO TO y RETURN (-~ RETURN ,(##~ VERIFY A8 VERIFY 8 STEP  LOAD  REM y STEP 4 GO TO y AND W:d REM _ STEP © LET {2d REM  NEW ~ VERIFY A VERIFY ? PRINT 0 STEP © LET  LET 8 STEP  LOAD  REM :d REM _ STEP ; CLS  RESTORE  GO SUB [d REM *h REM CODE  GO SUB R8#CODE  GO SUB R8 CAT  GO SUB Z[F]_ LLIST <> GO SUB Z FOR  GO SUB R+▝ GO SUB R8 CAT  GO SUB Z] LLIST <> RETURN CHR$ E POKE >`2j REM  STEP  RETURN  IF  LINE [C] PAUSE  STEP  GO TO y RETURN CHR$ w NEXT ~ RETURN i G GO SUB  O GO SUB  POKE  RETURN a Q##~ RETURN (( RETURN i W GO SUB  REM  RETURN r "_ GO SUB  PRINT #~ RETURN b > > PRINT ~ VERIFY A8 VERIFY 8+++ STEP  REM ::d REM _:e REM 2d REM  GO TO  GO TO  STEP 5 REM y STEP 4 GO TO  OR y AND 8 PRINT ##~ VERIFY :8 STEP 5 REM  LET ▝ RETURN (( STEP  REM  LET STR$ y AND  RETURN W:d REM _hPEEK   LET  AND STR$ STR$  AND _>xPEEK   INVERSE  CLEAR  MERGE # STEP  LOAD  REM  MOVE  RETURN b > > PRINT  RETURN h ####~ VERIFY :8 STEP   GO TO >p▝ REM 6:d REM _ RETURN x( RETURN y(+; INVERSE  CLEAR  MERGE # STEP  LOAD  REM >,PEEK (# IF #~ VERIFY :8 STEP   GO TO  MOVE y AND p_ REM  PRINT  STEP  REM :d REM 2e REM  LET 2d REM  MOVE 6:8 VERIFY 0 CAT  VERIFY 0 IF  STEP { GO TO  STEP  REM ~ RETURN ,(# SAVE #~ RETURN a 2:d REM _:e REM 2d REM  " FOR  RETURN b C GO SUB  S NEXT  RETURN s s PLOT  #~ RETURN x  INVERSE  CLEAR "~ RETURN ((yy RETURN   PLOT   RETURN  ! MERGE ~ VERIFY :8 STEP { GO TO  STEP  REM  MOVE :d REM _:e REM 2d REM  $~ VERIFY [01 BEEP ~ RETURN h > RANDOMIZE  RETURN x  INVERSE  CLEAR  RANDOMIZE   INVERSE  CLEAR  MERGE ~ VERIFY :8 STEP { GO TO  STEP  REM  MOVE ! VERIFY :8 OR  STEP { GO TO STR$  STEP  REM y RETURN  K GO SUB  [ GO SUB  POKE  RETURN  { GO SUB  PRINT  RETURN  * INVERSE  PRINT  RETURN  * CLEAR  PRINT *:d REM _:e REM 2d REM  >`2j REM FN  GO SUB #~ RETURN r LN  >`2j REM [Q] GO SUB #~ RETURN r VAL  BORDER  RETURN  >02j REM D GO SUB  LIST  RETURN  >X2j REM CODE  >02j REM VAL  RETURN  6>x2j REM ## STEP  REM  GO SUB [d REM  GO SUB Sk REM ~ RETURN ;( RETURN (( RETURN #  PAUSE  GO SUB Sh REM  LET NOT TAB  IF # STEP  REM  GO SUB [d REM  GO SUB Sh REM  INPUT  RETURN  B>`2j REM #~ RETURN  ( RETURN d ATTR [T] GO SUB ##~ RETURN c ### STEP 5 REM y STEP 4 GO TO y AND 9 GO SUB _ REM  OPEN #:d REM _ PAUSE  RETURN  @>p2j REM STR$ ##~ RETURN b(x AND G~ RETURN d(x AND G~ RETURN h #X~ RETURN x  INVERSE  CLEAR a  FOR x AND x >p2j REM  OR #EXP  RETURN  > 2j REM >xNOT t INPUT  RETURN  0>X2j REM #~ RETURN i M GO SUB  E GO SUB  POKE  RETURN  (><> GO TO y STEP 4 GO TO y AND LN  LIST  PRINT >02j REM  LET  RETURN  F>02j REM  OR  THEN #~ RETURN (( MERGE  STEP   GO TO  MOVE ySTR$ _ RETURN h STR$ x AND  LIST #~ RETURN x  INVERSE  CLEAR  THEN  MERGE # STEP  LOAD  REM  MOVE STR$ x AND 2e REM  > #~ RETURN a > LOAD NOT NOT  PRINT  RETURN ! o GO SUB  NOT NOT  PRINT  RETURN # > #~ RETURN a > LOAD NOT NOT  PRINT  RETURN % g GO SUB  >h2j REM ## STEP  REM :d REM  AND <= >p2j REM [I]NOT  GO SUB  RETURN ( >02j REM >7 STOP  RETURN ) > 2j REM >LN NOT t INPUT  PRINT >02j REM  LET  RETURN *  #NOT NOT  PRINT  RETURN + ( POKE  RETURN , 8 PLOT   RETURN - >p2j REM [A] RETURN . >02j REM FN / >X2j REM >v02j REM  LET  RETURN 0 POINT  GO SUB #~ RETURN r(_ RUN  RETURN 1 [R] BORDER  RETURN 2  REM ### STEP b LET <> RETURN 3 >X2j REM #~ RETURN 0 F RETURN 1 V^ GO SUB `2j REM  LET  RETURN 4 SCREEN$ [U] RETURN 5 [S] PLOT   RETURN 6 SQR  GO SUB  COS  NEXT >X2j REM ~ RETURN d  RETURN i( CAT x( CAT  CLS #~ RETURN q  CONTINUE >x2j REM ### STEP  REM  GO SUB [h REM  MERGE  GO SUB [d REM  GO SUB Sh REM ~ VERIFY A8 VERIFY 8# POKE  STEP > GO TO  MOVE  GO SUB Sh REM  LET NOT TAB  IF  RESTORE  OR  MERGE  BEEP :j REM *v REM w#"v REM  MOVE STR$  LLIST <> RESTORE >  BEEP *v REM #"v REM  LLIST <> PRINT  THEN ? THEN ? THEN ? THEN ? PRINT  AND 0 STEP  REM  IF  LET  STEP / GO TO  LET [B] AND 0 STEP  REM  IF  STEP  MOVE  RUN <> OR  LIST  CIRCLE  STEP  SAVE  DRAW  STEP  SAVE [M] COPY  STEP  SAVE  PLOT   COPY  STEP  SAVE NOT IN  IF  DRAW z/W{/_y RETURN 10xATN y>= COPY  STEP PEEK  RUN <> MOVE  RUN STR$ <>~ RETURN ;( RETURN (# POKE #~ RETURN (:▝/<2▝/+<>#~2LEN /#~2VAL />2▝/++<> *t REM "t REM "v REM !▞/5~ RETURN  ) OR  MERGE  RESTORE  STEP IN  RETURN  COPY ( RANDOMIZE  RETURN    CAT  COPY  RETURN p  STEP  CLS  REM  STEP k LLIST  MOVE STR$ !X"t REM  STEP  CLS <>!▖/6!<> PRINT  OR  MERGE  RESTORE :j REM  PRINT >?2j REM !▖/6!>  STEP PEEK  RUN  RANDOMIZE !▖/6! LET  STEP  POKE  IF  LLIST  MOVE STR$  LET <>SGN !M CLS CODE w#zCOS   SAVE  GO SUB KS/*K/ GO SUB B RESTORE STR$ *S/> REM  GO SUB LEN  ~ RETURN g  PRINT  CAT  STEP SIN  IF ###~ RETURN  REM ( CAT #~ RETURN o "m REM "o REM +++++~2LEN /#~2VAL /######~ RETURN g( CAT CODE 2g REM <2▝/<2q REM  GO SUB KS/*K/ GO SUB B RESTORE STR$ *S/> REM  GO SUB LEN  ~ RETURN f  PRINT  CAT #~ RETURN i+  REM  STEP k*▖/"r REM !X"t REM  STEP ATN  IF *m REM ~ VERIFY A8) VERIFY 0% STEP > GO TO >x2j REM *m REM ~ RETURN ;( RETURN ( STEP PEEK  RUN # LET  STEP > SAVE  STEP k SAVE NOT p IF *m REM ~ RETURN ! !>(2j REM #~ RETURN ;( RETURN ( STEP PEEK  RUN # LET  VERIFY linestat> BEEP 2j REM  TO  RANDOMIZE  STEP PEEK  RUN  RANDOMIZE  STEP  MOVE  RUN  MERGE *VAL / STEP  CLEAR  RUN  MOVE  STEP PEEK  RUN  RANDOMIZE  STEP  OR  IF & STEP  CLEAR  RUN *m REM ~ VERIFY a8 VERIFY 0~ STEP PEEK  RUN # LIST *m REM  STEP  GO SUB  STEP VAL  SAVE  2b REM  MERGE  MERGE 3 MOVE 3 GO SUB Sb REM  OR *h REM  STEP  CLEAR  RUN STR$ A*k REM b REM w STEP  OUT  RUN #"k REM  RESTORE *h REM #"h REM  LLIST  FOR  STEP  PAPER  IF ~ RETURN ;( RETURN ( STEP PEEK  RUN # LET  STEP > SAVE  STEP k SAVE *m REM ~ RETURN ;( RETURN (# POKE #~ RETURN ("m REM NOT z RANDOMIZE #####~ RETURN  REM ( CAT #~ RETURN f  CONTINUE :q REM =2q REM >=2g REM NOT % CLS  INPUT  STEP VAL  SAVE "####<>CODE 2</"v REM <>} AND 0 SAVE  STEP  MOVE  RUN *▝/<> STEP PEEK  RUN  STEP  MOVE  RUN STR$ <>*m REM NOT x REM !▖/~ RETURN *m REM >= STEP  MOVE  RUN  LET <> RETURN :8 AND  STEP PEEK  RUN <>2j REM *t REM "v REM <>#~ RETURN (<>"v REM CODE 2</<>STR$ "k REM NOT P LIST  GO SUB Kh REM :g REM <>:g REM  RETURN >= STEP AT !X"t REM "v REM CODE 2</*o REM NOT  IF  OR  STEP { GO TO STR$ <> RETURN ;( RETURN  LINE n GO TO NOT h GO TO                                f REM    STEP k>2</>U BEEP >N BEEP >A BEEP >U BEEP >T BEEP >H BEEP >O BEEP >R BEEP >I BEEP >Z BEEP >E BEEP >D BEEP >  BEEP >C BEEP >O BEEP >P BEEP >Y BEEP ! COPY W#6 BEEP  CLS  RETURN :TAN / RETURN  RETURN CHR$ t CLS NOT  INK  SAVE  NEXT ! FORMAT / REM ; GO SUB VAL U REM  GO SUB VAL !TAN /6 RETURN ! INVERSE " STEP /! FORMAT /6ACS 6  CLS   PLOT   GO SUB #6  CLS !x REM 6#6 #6NOT #6[#6 IF !kn5 REM   GO SUB VAL <> STEP   GO TO y RETURN  CIRCLE  CAT <> STEP  REM +>-PEEK #:d REM   RETURN ▝ CIRCLE  CAT  RETURN 
  6393 CLEAR 59956
  12 RANDOMIZE USR 28184
  20 BORDER 0: PAPER 0: INK 6: CLS 
  30 PRINT "48K version of "; INK 3;"ULTRAVIOLET"; INK 6;" is"
  40 PRINT "now installed in high memory. Itcan be run by RAND USR 60000.   Please read the instructions    carefully before using this     program."
  50 PRINT AT 10,0;"© 1982 ACS Software"
  60 PRINT TAB 7;"Leeds, U.K."
  70 INK 6
  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 ! PAUSE o#~ IF #  LET <>                                                                                                                                                                                                          
  90 RANDOMIZE USR 28888
  100 PLOT  140,16: DRAW 52,80: DRAW 52,-80
  200 IF INKEY$="" THEN  GO TO 200
  210 NEW 
  300 REM go
  310 REM org 28255
  320 REM ld hl,Fixload;ld de,59957;ld bc,32;ldir;ret;Fixload;cp 9;jr c,+2;rst 8;defb 25;call 60468;ret;Fixdisplacement;call 60032;dec hl;ld a,45;cp (hl);inc hl;ld a,(60004);jr nz,+5;cp 127;ret c,;rst 8;defb 25;cp 130;jr -7
  330 REM org 25742
  340 REM call 59957
  350 REM finish
  360 RANDOMIZE USR 60000