Astro

0 REM LPRINT LPRINT p0,/OOG▜▐84 POKE PAUSE PAUSE STOP LLIST r▛hRNDCHR$ ▐ MOVE DIM E SPECTRUM Aq@ 0@    @p TO ""@10 USR    USR USR LPRINT VAL 0FREE  COPY COPY COPY COPY COPY COPY FREE        ASTRO INSTRUCTIONS                                          YOU ARE LOST IN DEEP SPACE   AND TRAPPED IN A ASTEROID STORM.TO SURVIVE YOU MUST DESTROY THE     ASTEROIDS...OR AT LEAST               AVOID THEM.                                            EACH ASTEROID YOU DESTROY WILL GAIN YOU 50 POINTS.ANY YOU MISS     WILL COST YOU 10 POINTS                                             USE OF KEYBOARD                                                     O LEFT                          P RIGHT                     SPACE FIRE BOMB                                          YOU MAY ALSO USE THE JOYSTICK.                                  YOU ONLY HAVE ONE LIFE TO LIVE          SO GOOD LUCK...88088FREE NNBrrFREE 8888FREE BFREE ppFREE <BFREE @FREE @FREE rrFREE FREE B$$FREE rrFREE FREE BBFREE FREE B>88<$$FREE rrrxHHFREE rrFREE FREE B@pprFREE FREE BBrrrFREE FREE @@STICKppFREE FREE B@STICKpppFREE B@^NNFREE BBBFREE rrrFREE 888FREE LHFREE rrr`@@pprFREE FREE ZZBrrrFREE BBrrrrFREE NNBBBFREE FREE BBFREE pppFREE BBNNNFREE FREE BBFREE tvrFREE B@FREE 8888BBBrrrFREE BBBv44<rrrBZZFREE $$$FREE rrrBBBFREE 8884ief▜ON ERRk.   mmmm mmmm mmmmm mmmm mmmm       m  m m  m   m   m  m m  m       m  m m      m   m  m m  m       mmmm mmmm   m   mmmm m  m       m  m    m   m   m m  m  m       m  m m  m   m   m mm m  m       m  m mmmm   m   m  m mmmmPLAY MODEDEMO MODEINSTRUCTIONSQUITWRITTEN BY ERIC BOISVERTCOPYRIGHT BYTE POWER 1986.m Q U I TDP EL MA OY MODE SCORE:00DEMO MODE ab cd efab cd ef  ab cd efab cd ef   klg  h  i  j          abcdefghij               a  bc  de  f        ab cd ef RESTORE FOR FOR LLIST s#r+<> RESTORE ATN FOR GO SUB B PAUSE RESTORE >bkLN  CLS EXP  SAVE STOP ATN RESTORE FOR B0 CLS MERGE !j\>w!Km STEP ro!6\>ON ERRw!7\>jw!ON ERR\>[w!STICK\>hw!Mm STEP ro!Om STEP ro!Qm STEP ro!Sm STEP ro!Um:x\w#6> OPEN # PRINT >? OPEN # PLOT STEP REM !▄\>>=w!Wm STEP ro>> BEEP m$ STEP FLASH !> BEEP n STEP FLASH !> BEEP !Wm GO SUB [Wm STEP ATTR o*WmATN GO SUB R LINE ▙pNOT fp> BEEP > BEEP n STEP FLASH !> BEEP > BEEP > BEEP n STEP FLASH !> BEEP > BEEP > BEEP n STEP FLASH !> BEEP >> BEEP n STEP FLASH !> BEEP >> BEEP n STEP FLASH !>> BEEP n STEP FLASH !> BEEP !\>w!Ym STEP ro>Km BEEP > BEEP o STEP FLASH !> BEEP STEP hv>Km BEEP > BEEP o STEP FLASH !> BEEP STEP hv![m STEP ) STEP m&![mw#6!]m STEP ) STEP m&!]mw#6!_m:\w#6*[mATN GO SUB RCHR$ VAL$ q!Km GO SUB [Km STEP ATTR o*KmATN GO SUB RCHR$ VAL$ q!Km STEP ro*[mATN GO SUB RCHR$ OUT q!Km GO SUB [Km STEP ro*KmATN GO SUB RCHR$ OUT q!Km STEP ro*]mATN GO SUB RCHR$ INPUT qNOT [r*_mATN GO SUB R LINE CLEAR qNOT (r!Ym GO SUB [Ym STEP ATTR o*YmATN GO SUB R LINE rNOT q!am STEP roNOT s*_mATN GO SUB R LINE [r*_mATN GO SUB R LINE [r*_mATN GO SUB R LINE [r*_mATN GO SUB R LINE [rNOT BEEP q!am STEP ro*KmATN GO SUB RCHR$ ©r!am STEP ro*KmATN GO SUB RCHR$ hr!am STEP ro*KmATN GO SUB RCHR$ INKEY$rNOT n©*_mATN GO SUB RCHR$ STR$ r!am STEP roNOT s*_mATN GO SUB RCHR$ INK r!am STEP ro*_mATN GO SUB RCHR$ LET r!am STEP ro*_mATN GO SUB RCHR$ sNOT n© STEP REM *amATN GO SUB RCHR$ .s> BEEP > BEEP o STEP FLASH !> BEEP < STEP DIM 0 STEP FOR <>!Wm STEP ro!cm STEP ro> BEEP :Wm BEEP *amATN GO SUB RCHR$ hso STEP FLASH !> BEEP *amATN GO SUB RCHR$  so STEP FLASH !> BEEP STEP POKE u*WmATN GO SUB R LINE ASN s> BEEP :Wm BEEP o STEP FLASH !> BEEP !Wm GO SUB [Wm STEP roNOT Fs!Wm STEP ro!cm STEP ro>Wm BEEP > BEEP *amATN GO SUB RCHR$ LOAD so STEP FLASH !> BEEP *amATN GO SUB RCHR$ to STEP FLASH !> BEEP STEP POKE u*WmATN GO SUB R LINE <t>Wm BEEP > BEEP o STEP FLASH !> BEEP !Wm GO SUB [Wm STEP roNOT STEP s!Wm STEP ro!cm STEP ro>Wm BEEP > BEEP *amATN GO SUB RCHR$ vto STEP FLASH !> BEEP *amATN GO SUB RCHR$ ▙to STEP FLASH !> BEEP STEP POKE u*WmATN GO SUB R LINE NOT t>Wm BEEP > BEEP o STEP FLASH !> BEEP !Wm GO SUB [Wm STEP ATTR oNOT Tt!Wm STEP ro!cm STEP ro> BEEP :Wm BEEP *amATN GO SUB RCHR$ CLEAR to STEP FLASH !> BEEP *amATN GO SUB RCHR$ o STEP FLASH !> BEEP STEP POKE u*WmATN GO SUB R LINE Ju> BEEP :Wm BEEP o STEP FLASH !> BEEP !Wm GO SUB [Wm STEP ATTR oNOT FLASH t!Wm STEP ro!cm STEP ro> BEEP :Wm BEEP o STEP FLASH !> BEEP STEP POKE u!Wm GO SUB [Wm STEP ATTR o*WmATN GO SUB R LINE huNOT bu> OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT x STEP DIM 0 STEP FOR STEP REM >> BEEP o STEP FLASH !> BEEP *amATN GO SUB RCHR$ LET u>>'o STEP FLASH !> BEEP NOT STICK!em GO SUB [cm STEP ro!gm GO SUB [em STEP ro> OPEN # PRINT :cm OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT :em OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT :gm OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT >8 OPEN # PLOT !Ym STEP ro!Ym GO SUB [Ym STEP ATTR o*YmATN GO SUB R LINE ▞vNOT mv!cm GO SUB [cm STEP ro<>!im STEP ro!im GO SUB [im STEP ATTR o*imATN GO SUB R LINE IN vNOT SPECTRUM v<>!km:x\w#6!mm GO SUB [Um FOR GO SUB q FOR 6!mm GO SUB [mm STEP SIN o GO SUB Kkm STEP ro STEP CHR$ o STEP ro!Um GO SUB [Um GO SUB Kkm STEP ro*UmR IF w!Um GO SUB [km STEP ro!Wm STEP ro<>> OUT OPEN # CLEAR !_m FLASH RETURN w#6>© OPEN # CLEAR !om FLASH RETURN w#6![m STEP ) STEP m&![mw#6!]m STEP ) STEP m&!]mw#6*omATN GO SUB RCHR$ ▀w!]m STEP ro*_mATN GO SUB RCHR$ lw![m STEP ro*_mATN GO SUB RCHR$ COS w![m STEP ro*[mATN GO SUB R PAUSE CHR$ wNOT ▐x*[m GO SUB R IF $x*SmATN GO SUB R LINE $x>:Sm BEEP o STEP FLASH !>:Sm BEEP o STEP FLASH !>:Sm BEEP o STEP FLASH !> BEEP !Sm GO SUB [Sm STEP ro*[mATN GO SUB R PAUSE ▐x*SmATN GO SUB R LINE ▐x!Sm GO SUB [Sm STEP ATTR o>:Sm BEEP o STEP FLASH !>:Sm BEEP o STEP FLASH !>:Sm BEEP o STEP FLASH !> BEEP *]mATN GO SUB RCHR$ INPUT x*MmATN GO SUB RCHR$ INPUT x!Mm STEP ro!qm GO SUB [Sm STEP ro> OPEN # PRINT > PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT >' OPEN # PLOT <>*Sm GO SUB [mm GO SUB R IF y!sm GO SUB [Sm GO SUB Kmm STEP ATTR o*mm GO SUB [Sm GO SUB R IF 'y!sm GO SUB [mm GO SUB KSm STEP ATTR o!um GO SUB KWm STEP ATTR o*sm GO SUB [um GO SUB R IF EyNOT PAUSE y*Sm GO SUB [mmATN GO SUB R PAUSE ly>:Sm BEEP o STEP FLASH !>:Sm BEEP o STEP FLASH !>:Sm BEEP o STEP FLASH !> BEEP !Sm GO SUB [Sm STEP ro*Sm GO SUB [mm GO SUB R IF PAUSE y!Sm GO SUB [Sm STEP ATTR o>:Sm BEEP o STEP FLASH !>:Sm BEEP o STEP FLASH !>:Sm BEEP o STEP FLASH !> BEEP *OmATN GO SUB R PAUSE hz*Sm GO SUB [mmATN GO SUB RCHR$ hz*MmATN GO SUB RCHR$ hz!Mm STEP ro!qm GO SUB [Sm STEP ro> OPEN # PRINT > PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT >' OPEN # PLOT <>>Mm BEEP :qm BEEP o STEP FLASH !> BEEP !Mm GO SUB [Mm STEP ATTR o*MmATN GO SUB R PAUSE VAL$ z!Mm STEP ro> OPEN # PRINT >? OPEN # PLOT <>>Mm BEEP :qm BEEP o STEP FLASH !> BEEP !wm GO SUB [mm STEP ATTR o!ym GO SUB [mm STEP ro*Mm GO SUB [WmATN GO SUB R LINE IF z*Mm GO SUB [BEEP mATN GO SUB R LINE IF z<>*qm GO SUB [mmATN GO SUB R LINE "ON ERR*qm GO SUB [wmATN GO SUB R LINE "ON ERR*qm GO SUB [ymATN GO SUB R LINE "ON ERR<>!ON ERRm GO SUB [BEEP m STEP ro> OPEN # PRINT > PLOT > OPEN # PRINT > PLOT > OPEN # PRINT >7 OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT >2 OPEN # PLOT >Wm BEEP :wm BEEP o STEP FLASH !>BEEP m BEEP :mm BEEP o STEP FLASH !>ON ERRm BEEP :wm BEEP o STEP FLASH !> BEEP !im STEP ro STEP SPECTRUM v!Om GO SUB [Om2 STEP ro>ON ERRm BEEP :wm BEEP o STEP FLASH !>Mm BEEP :qm BEEP o STEP FLASH !>Wm BEEP :wm BEEP o STEP FLASH !> BEEP STEP USR v!Mm STEP ro<> STEP USR v>:Sm BEEP o STEP FLASH !>:Sm BEEP o STEP FLASH !>:Sm BEEP o STEP FLASH !> BEEP !BEEP m GO SUB [Wm STEP ro>Wm BEEP :mm BEEP o STEP FLASH !>BEEP m BEEP :mm BEEP o STEP FLASH !> BEEP *amATN GO SUB RCHR$ ▜STICK STEP +w*amATN GO SUB RCHR$ gSTICK STEP LOAD x!Ym STEP ro!Ym GO SUB [Ym STEP ATTR o*YmATN GO SUB R LINE PEEK STICKNOT sSTICK*MmATN GO SUB R LINE STEP STICK STEP iz>Wm BEEP :mm BEEP o STEP FLASH !> BEEP !Wm GO SUB [Wm STEP ro*WmATN GO SUB RCHR$ 0BEEP >BEEP m BEEP :mm BEEP o STEP FLASH !> BEEP STEP USR v*OmATN GO SUB R LINE 0BEEP !Om GO SUB [Om STEP ATTR o>> BEEP GO SUB KOm STEP DIM 0 STEP r1o STEP FLASH !> BEEP !©m GO SUB [Sm STEP ro!▝m GO SUB [Sm STEP ATTR o*WmATN GO SUB R PAUSE xBEEP NOT TAN BEEP *WmATN GO SUB RCHR$ ▜BEEP NOT TAN BEEP *mm GO SUB [SmATN GO SUB R LINE LEN BEEP *mm GO SUB [▝mATN GO SUB R LINE LEN BEEP *mm GO SUB [©mATN GO SUB R LINE LEN BEEP NOT TAN BEEP NOT FREE *amATN GO SUB RCHR$ CLEAR BEEP > OPEN # CLEAR !▀m FLASH RETURN w#6!]m STEP ) STEP m&!]mw#6!▀m GO SUB [▀m GO SUB K]m STEP ro*▀mATN GO SUB R LINE CLEAR BEEP NOT IF oNOT STICK!Wm STEP ro> OPEN # PRINT > PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT >>= OPEN # PLOT > OPEN # PRINT >7 OPEN # PLOT >Wm BEEP :mm BEEP o STEP FLASH !>BEEP m BEEP :mm BEEP o STEP FLASH !> BEEP *MmATN GO SUB R LINE ▘FREE >Mm BEEP :qm BEEP o STEP FLASH !> BEEP >:Sm BEEP o STEP FLASH !>:Sm BEEP o STEP FLASH !> BEEP :▝m BEEP o STEP FLASH !>:▝m BEEP o STEP FLASH !>:▝m BEEP o STEP FLASH !> BEEP > BEEP :▝m BEEP o STEP FLASH !>:▝m BEEP o STEP FLASH !>:Sm BEEP o STEP FLASH !>:▝m BEEP o STEP FLASH !>:Sm BEEP o STEP FLASH !> BEEP !Wm GO SUB [Wm STEP ro*WmATN GO SUB R LINE b©NOT ▘FREE TAN STEP DIM 0 STEP FOR NOT IF o STEP REM !▐mh STEP ro!Wm STEP ro!cm STEP ro!▜m GO SUB [▐m FOR GO SUB q FOR 6*▜mATN GO SUB R LINE LET ©> OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT >7 OPEN # PLOT >Wm BEEP :cm BEEP :▜m BEEP > BEEP STEP DIM 0 STEP FOR !cm GO SUB [cm STEP ro!▐m GO SUB [▐m STEP ro*cmATN GO SUB RCHR$ 0 !cm STEP ro!Wm GO SUB [Wm STEP ro*▐mkATN GO SUB R LINE ? NOT f©!]m STEP ) STEP m&!]mw#6!_m FLASH RETURN w#6*]mATN GO SUB RCHR$ v *_mATN GO SUB RCHR$ v NOT ? NOT FORMAT o
    1 IF PEEK 23681<>0 THEN RANDOMIZE USR 28624: RANDOMIZE USR 0
    2 CLS : LIST 9999: STOP 
 9999 SAVE "ASTRO" LINE 1: VERIFY "ASTRO"