@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu  } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 138ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8ux% D 4 4R3'S 5@ҩB363ޙy%șy%șy%iiHݩDž%373T}3ii3i33i33i33i3Ѝd2@ԩ>/o4 "1#5K5CDEU}F [3Z3C3i3733 ҝB601 ($)% )i<3)?3)V}83 )i.3)83333333d2 4p55 BD4EHI VW}LK!L!L! 4 44 "#HI B 0#5 VL 4 4 4d2#HX}I B 0K5 VL  BD4EHI V\3ԭ)) !" $)) !)Y} $ML #4L!d2 4 @)𦪽303Й3 ҩOҩ3 6338JH38-H 6 )?i3 )iZ}3 %6@ 6hh 633 %633ҍҍ5H$ $h85H $$h h$L!ҍ3 ҍ[}ҎҎ BD5E'HI VL^$Oҩҍ3 6ТPO 6[38-HZ38JH %6 6PO \}6hhҍ %63 #  #  #L!,V3 #,W3 #,X3 #`HH3hh`hHiD#333 h<]}4 $5855əi5 $5HL $5h'$ h$$5 h$h` BND5EOH^}I VLtHJJJJ s$h) 0 BHILV䩀x`X`@$%% "1#($)`4444 _}ҩ`HiD$3ҍҪ h )i<3 )i.33Щ33353L$q3r3s3t3u3v3`}w3x3q3y3q3 y% y%Lb%%`HHH1A6hhh@3L18x,V3Z3 Z3Z3\3,W3Z3 Z3Z3\3,X3 [3a}2[3[3,Y3 [3ɰ[3[3[3Э\3\3Z3C)]3C 3D33L23L23330^Ls23b}3% }3 3333 33L233i3 )i<3 )i.3L23003 }3 33333 c}33L2 )i3333L23}330LɰH3}33ɺ:!6333+33 3333d}L1L_佔383338333333333L23 )?33 030L2 A33L3 I33L3 A33L2 I33L2 e})` )Ii` ??   B67 ԍЌT|D8f}@ !P(@ Π OPTION-Level:1 g} SELECT-Speed:1 START -Play Game 㩠 SPACE -Pause h}Π Shield Energy:70 Enemies Left :99 Level Number : 1 㩠i} Enemy Speed : 1 Π Ġ¡ՠΡ ӠԼ ΠYOUj} LOSE-PUSH START H` B VB@D6EHIhHI)i JhKLVA6`TUV` 6` BHIA6LV 6`Bk}HIA6LVSH` B VB@D6EHIhHI)i JhKLVA6`TUV` 6` BHIA6LV 6`B0100 .OPT NOLIST0105 *=$1F000110 BP0115 LDA #2 ;INIT RESET KEY0120 STA 90125 LDA #BP&2550130 STA 20135 L m}DA #BP/2560140 STA 30145 LDA #00150 STA 5800155 STA LN ;LVL VAR=00160 STA SP ;SPD VAR=00165 STA 82 n} ;LMAR=00170 STA JLOCK ;UNLOK JOYSTIK0175 LDA #390180 STA 83 ;RMAR=00185 LDA #70190 JSR GRAPHICS0 o}195 LDA #640200 STA 160205 STA 53774 ;NO BREAK0210 LDA #HPOS&2550215 STA $C0 ;DEC ADR L0220 STA PHPOS p} ;HPOS PTR L0225 LDA #HPOS/2560230 STA $C1 ;DEC ADR H0235 STA PHPOS+1 ;HPOS PTR H0240 LDY #00245 MAKEDEC02 q}50 LDA #$DE ;"DEC ABS,X"0255 STA DECS,Y0260 LDA $C0 ; ADR TO DEC L0265 INY0270 STA DECS,Y0275 LDA $C1 r} ; ADR TO DEC H0280 INY0285 STA DECS,Y0290 LDA $C0 ;INC BY 8 ADR FOR0295 CLC ; 'DEC' INSTR TO030 s}0 ADC #$08 ; GET NXT IN LYR0305 STA $C0 ; OF STRS0310 LDA $C10315 ADC #00320 STA $C10325 INY t};MAKE NXT INSTR.0330 CPY #72 ;DONE ALL?0335 BCC MAKEDEC ;N:CONT0340 LDA #DLII&255 ;Y:INIT ADR TO0345 STA $C0 u} ; MAKE DLI IN0350 LDA #DLII/2560355 STA $C10360 LDA #LT&255 ;INIT PTR TO0365 STA PLT ; LUM TBL0370 LD v}A #LT/2560375 STA PLT+10380 LDX #0 ;#DLI'S DONE0385 OMDLI0390 LDY #0 ;#INSTR'S DONE0395 IMDLI0400 LDA w} DLIP,Y ;GET INSTR.0405 STA ($C0),Y ;PUT IN DLI0410 INY ;NXT BYT0415 CPY #15 ;DONE?0420 BCC IMDL x}I ;N:GET ANOTHER0425 LDA $C0 ;Y:INC ADR WHERE0430 CLC ; DLI IS PUT IN0435 ADC #15 ; MEM0440 y} STA $C00445 LDA $C10450 ADC #00455 STA $C10460 LDA PHPOS ;CHG DLI INSTR0465 CLC ; TBL SO NXT DLI047 z}0 ADC #1 ; REFERS TO NXT0475 STA PHPOS ; STAR'S HPOS0480 LDA PHPOS+10485 ADC #00490 STA PHPOS+10495 LDA {} PLT ;SAME FOR LUM.0500 CLC0505 ADC #10510 STA PLT0515 LDA PLT+10520 ADC #00525 STA PLT+10530 INX0535 C |}PX #192 ;DONE 192 DLIS?0540 BCC OMDLI ;N:KEEP MAKING0545 LDA #3 ;Y:ENABLE P/M0550 STA 532770555 STA E }}RP ;LVL 1 PSE0560 LDA #$40 ;PMBASE=$40000565 STA 542790570 LDA #62 ;SDMCTL=SGL LINE0575 STA 5590580 ~} LDA #1 ;GRPRIOR0585 STA 6230590 STA 752 ;CURSOR OFF0595 LDA ELVT ;GET LVL 1 SPD0600 STA ELVL } ;STORE IN PGM0605 LDA #$31 ;INIT MSGS0610 STA LNGM0615 STA SPGM0620 LDA #14 ;SET UP P/M COL0625 STA 704 }0630 STA 7050635 STA 7060640 LDY #00645 TYA0650 BLANKPM0655 STA $4300,Y ;CLR M1-40660 STA $4400,Y ; P00665 } STA $4500,Y ; P10670 STA $4600,Y ; P20675 INY0680 BNE BLANKPM ;DONE ALL 256?0685 LDX #32 ;Y:X=OFSET TO M }00690 LDA #$800695 STA X ;INIT CRSHR POS0700 STA Y0705 FM STA $4300,X ;FILL M30710 INX0715 CPX #224 ; }BOT OF SCREEN?0720 BCC FM ;N:CONT FILL0725 LDX #0 ;Y:INIT STR COLS0730 STX CTR0735 OLP0740 LDY #00745 } ILP0750 LDA C,Y ;GET LUM FROM TBL0755 STA LT,X ;STORE IN BIG TBL0760 INX0765 INY0770 CPY #8 ;DON }E W/SML TBL?0775 BCC ILP ;N:KEEP XFER0780 INC CTR ;Y:NXT GRP0785 LDA CTR0790 CMP #24 ;DONE W/SCREEN }?0795 BCC OLP ;N:XFER SML TBL0800 LDA #0 ;Y:BLK BCKGROUND0805 STA 7100810 TAX0815 FILL0820 LDA $D20A }0825 STA HPOS,X ;RND STAR HPOS0830 INX0835 CPX #192 ;DONE 192?0840 BCC FILL ;N:MORE RND HPOS0845 LDA 56 }0 ;Y:SET UP DLI0850 STA $C0 ; LINE0855 LDA 5610860 STA $C10865 LDY #20870 LDA ($C0),Y0875 ORA #$8008 }80 STA ($C0),Y0885 LDA #SVBI&255 ;ADR FOR SETUP0890 STA $0228 ; COUNTDOWN TIMER0895 LDA #SVBI/256 ; ROUTINE0900 }STA $02290905 LDA #DLI&255 ;DLI ADR0910 STA 5120915 LDA #DLI/2560920 STA 5130925 LDX #00930 INITE0935 LDA $D20A }0940 AND #$7F0945 CLC0950 ADC #60 ;RND ENM X0955 STA EX,X0960 AND #$3F ;RND ENM MOVE0965 STA ELIM,X } ; LIMIT0970 AND #$03 ;RND ENM DX0975 SEC0980 SBC #10985 STA EDX,X0990 REINITY0995 LDA $D20A ;RND ENM Y1 }000 AND #$7F1005 CLC1010 ADC #461015 STA EY,X1020 AND #$03 ;RND ENM DY1025 SEC1030 SBC #11035 BEQ REINITY } ;NO ZERO DY!1040 STA EDY,X1045 LDA #0 ;MVMENT CTR=01050 STA ECTR,X1055 STA ELOCK,X ;UNLOK ENM1060 LDA # }$FF ;#VECTS MOVED=1065 STA NV,X ; NEG:ENM ADVANC1070 LDA #5 ;ENM SHP CTR=5=1075 STA ESC,X ; SMALLE }ST FRAME1080 LDA #71085 STA EP,X ;TMR PSE=71090 STA ET,X ;TMR=71095 INX1100 CPX #3 ;DONE ALL 3 ENM }?1105 BCC INITE ;N:INIT NEXT1110 LDA ERP ;Y:ENM RTN PSE*8=1115 ASL A ; ENM FIRING PSE1120 ASL A112 }5 ASL A1130 STA OKF1135 LDA #$701140 STA SHIELD ;INIT SHIELD1145 LDA #$991150 STA REM ;INIT REMAINING115 }5 LDA #0 ;POS 0,01160 STA 6561165 STA 6571170 STA 6581175 TAX ;X=IOCB0=SCRN1180 LDA #11 ;IC }COM=PUTCHR1185 STA $03421190 LDA #SMSG&255 ;ICBADR=SMSG1195 STA $03441200 LDA #SMSG/2561205 STA $03451210 LDA #15 }8 ;ICBLEN=1581215 STA $03481220 STX $03491225 STX $02FF ;NO CTRL-11230 JSR $E456 ;CIOV1235 ST LDX #0 } ;PSE ABT 1 SEC1240 OP1245 LDY #01250 IP1255 DEY1260 BNE IP1265 DEX1270 BNE OP1275 STX $02FF ;NO CTRL-11 }280 LDA 53279 ;CONSOLE KEY1285 CMP #7 ;TOUCHING A KEY?1290 BEQ ST1295 CMP #5 ;SELECT?1300 BNE NSEL }1305 JMP SELECT1310 NSEL CMP #3 ;OPTION?1315 BNE NOPT1320 JMP OPTION1325 NOPT CMP #6 ;START?1330 BNE ST1335 } JMP START1340 OPTION1345 LDX LN ;INC LEVEL NUMBER1350 INX1355 CPX #31360 BCC LNS1365 LDX #01370 LNS STX L }N1375 LDA ELVT,X ;GET ENM LVL1380 STA ELVL ;STORE IN PGM1385 LDA #35 ;POS 33,01390 STA 6571395 LDA #0 }1400 STA 6581405 STA 6561410 STA $0348 ;ICBLEN=0:DATA1415 STA $0349 ; STORED IN ACCU.1420 LDA #11 ;IC }COM=PUTCHR1425 STA $03421430 INX ;CHG LVL TO ASCII1435 TXA1440 ORA #$301445 STA LNGM ;STORE IN GMSG }1450 LDX #$00 ;X=IOCB0:SCREEN1455 JSR $E456 ;CIOV1460 JMP ST ;BACK TO PAUSE1465 SELECT1470 LDX SP } ;INC ENM SPD BY 11475 INX1480 CPX #31485 BCC SPS1490 LDX #01495 SPS STX SP1500 LDA ERPT,X ;GET NEW PAUSE15 }05 STA ERP ; &STORE IN PGM1510 LDA #35 ;POS 33,11515 STA 6571520 LDA #01525 STA 6581530 STA $0348 };ICBLEN=0:DATA IN1535 STA $0349 ; ACCU.1540 LDA #11545 STA 6561550 LDA #11 ;ICCOM=PUTCHR1555 STA $034215 }60 INX ;CHG SPD TO ASCII1565 TXA1570 ORA #$301575 STA SPGM ;STORE IN GMSG1580 LDX #0 ;X=IOCB0: }SCREEN1585 JSR $E456 ;CIOV1590 JMP ST ;BACK TO PAUSE1595 START1600 LDX #0 ;POS 0,01605 STX 656161 }0 STX 6571615 STX 6581620 LDA #11 ;ICCOM=PUTCHR1625 STA $3421630 LDA #GMSG&255 ;ICBADR=GMSG1635 STA $034416 }40 LDA #GMSG/2561645 STA $03451650 LDA #158 ;ICBLEN=1581655 STA $03481660 LDA #01665 STA $03491670 JSR $E45 }6 ;CIOV1675 LDA #1 ;SET FLAG=PUT1680 STA EFLAG ; CRSHAIR ON SCR1685 STA $21A ;ENABLE SET RTN1690 }LDA #1921695 STA 54286 ;ENABLE DLI1700 MAIN1705 LDA $D20F1710 AND #$04 ;PRESSNG ANY KEY?1715 BNE NOSPACE17 }20 LDA 537691725 CMP #$21 ;PRESSING SPACE?1730 BNE NOSPACE1735 JSR STPI ;STP ALL INTER.1740 KEYED1745 LDA } $D20F1750 AND #$04 ;STILL PRESSING?1755 BEQ KEYED1760 PAUSED1765 LDA $D20F1770 AND #$04 ;PRESSING A KEY? }1775 BNE PAUSED1780 LDA 537691785 CMP #$21 ;PRESSING SPACE?1790 BNE PAUSED1795 RELEASE1800 LDA $D20F1805 AND } #$04 ;STILL PRESSING?1810 BEQ RELEASE1815 JSR STRI ;RESTART INTER.1820 NOSPACE1825 LDA #01830 STA 77 } ;NO ATTRACT MODE1835 LDA $D010 ;FIRE BUTTON?1840 BNE EFIRE ;N:ENM'S FIRE1845 JMP FIRE ;Y:YOU FIRE1850 }EFIRE1855 LDA OKF ;TIME FOR ENM TO1860 BEQ DOEFIRE ; FIRE?1865 JMP MAIN1870 DOEFIRE1875 LDA ERP ;RESTO }RE ENM FIRE1880 ASL A ; CTR1885 ASL A1890 ASL A1895 STA OKF1900 LDA $D20A1905 ELVL=*+11910 CMP #64 } ;FIRE ACCORDING1915 BCS MAIN ; TO PROBABILITY1920 AND #$031925 CMP #31930 BEQ MAIN1935 TAX ;ENEMY # } FIRING1940 LDA NV,X1945 BEQ MAIN ;IF RECEDING,QUIT1950 BMI MAIN ;IF ADVANCNG,QUIT1955 LDA ELOCK,X1960 BN }E MAIN ;IF LOCKED,QUIT1965 STX EL1970 LDA #$20 ;START ENM LASER1975 STA $D200 ; SOUND1980 LDA #$4F1985 } STA $D2011990 LDA #1 ;LOCK ENEMY1995 STA ELOCK,X2000 LDA #2 ;COLOR 22005 JSR COLOR2010 LDX EL2015 } LDA EY,X ;CHG ENM PLR Y2020 SEC ; INTO GR 7 YPOS2025 SBC #262030 LSR A2035 PHA2040 TAY2045 LDA EX },X ;CHG ENM PLR X2050 SEC ; INTO GR 7 XPOS2055 SBC #452060 PHA2065 TAX2070 LDA #02075 JSR PLOT } ;PLOT2080 LDA $D20A ;RND YPOS2085 AND #$3F2090 CLC2095 ADC #82100 TAY2105 STA LY2110 LDA $D20A ;RND X }POS2115 AND #$7F2120 CLC2125 ADC #162130 TAX2135 STA LX2140 LDA #02145 JSR DRAWTO ;DRAWTO TO HERE2150 LDA }#64 ;FLASH SCREEN RED2155 STA 7122160 STA 7102165 LDA #0 ;COLOR 02170 JSR COLOR2175 PLA ;STA }RT XPOS FOR2180 TAX ; LASER2185 PLA ;START YPOS FOR2190 TAY ; LASER2195 LDA #02200 JS }R PLOT ;'UNPLOT' THIS PT2205 LDA #0 ;END XPOS FOR2210 LDX LX ; LASER2215 LDY LY ;END YPOS222 }0 JSR DRAWTO ;ERASE LINE2225 LDX EL2230 LDA #0 ;UNLOCK ENEMY2235 STA ELOCK,X2240 STA $D200 ;TURN OFF S }OUND2245 STA $D2012250 STA 712 ;BLACKEN SCREEN2255 STA 7102260 LDA SHIELD2265 PHA2270 CMP #22275 BCC LOSE } ;YOU KILLED?2280 JSR STPI2285 SED2290 PLA2295 SEC2300 SBC #2 ;DECREASE SHIELD2305 STA SHIELD2310 P }HA2315 CLD2320 JSR STRI2325 LDA #36 ;POS 36,02330 STA 6572335 LDA #02340 STA 6582345 STA 6562350 PLA23 }55 JSR PN ;PRINT NEW SHIELD2360 JMP MAIN ;BACK TO MAIN2365 LOSE2370 LDA #$8F ;DISTORTION,VOL2375 STA } $D201 ; FOR YOUR EXPL2380 STA JLOCK ;LOCK JSTICK2385 LDX #$80 ;EXPL DURATION2390 LO LDY #02395 LI LDA $D2 }0A2400 STA $D200 ;RND FREQ2405 STA 712 ;RND COL2410 STA 7102415 DEY2420 BNE LI2425 DEX2430 BNE LO } ;LOOP YOUR EXPL2435 STX $D200 ;TURN OFF SOUND2440 STX $D2012445 STX 712 ;BCK COL=02450 STX 7102455 ST }X 656 ;POS 0,02460 STX 6572465 STX 6582470 LDA #112475 STA $0342 ;ICCOM=PRNCHR2480 LDA #LMSG&255 ;ICBADR= }LMSG2485 STA $03442490 LDA #LMSG/2562495 STA $03452500 LDA #39 ;ICBLEN=392505 STA $03482510 STX $03492515 } JSR $E456 ;CIOV2520 JMP RES ;WAIT FOR RESTART2525 FIRE LDA #$4F ;START YOUR LASER2530 STA $D201 ; SOUND }2535 LDA #12540 STA $D2002545 STA JLOCK ;LOCK JOYSTIK2550 JSR COLOR ;COLOR 12555 LDA #02560 STA 53278 };CLR OLD COLL.2565 LDX #802570 LDY #792575 JSR PLOT ;PLOT 80,792580 LDA X ;CHG CROSSHAIR X2585 SEC } ; TO GR.7 XPOS2590 SBC #452595 PHA2600 TAX2605 LDA Y ;CHG CROSSHAIR Y2610 SEC ; TO GR.7 YP }OS2615 SBC #262620 LSR A2625 PHA2630 TAY2635 LDA #02640 JSR DRAWTO ;DRAWTO TO HERE2645 LDA #02650 JSR COLO }R ;COLOR 02655 LDA #02660 LDX #802665 LDY #792670 JSR PLOT ;ERASE LASER STRT2675 PLA ;LASER END }Y2680 TAY2685 PLA ;LASER END X2690 TAX2695 LDA #0 ;TURN OFF SOUND2700 STA $D2002705 STA $D20127 }10 JSR DRAWTO ;ERASE LASER2715 LDA #0 ;UNLOK JOYSTIK2720 STA JLOCK2725 LDA $D008 ;CHECK FOR ANY2730 BE }Q CH2 ; COLLISIONS2735 JSR HIT2740 CH2 LDA $D0092745 BEQ CH32750 JSR HIT2755 CH3 LDA $D00A2760 BEQ NOHIT2765 } JSR HIT2770 NOHIT2775 JMP EFIRE ;LET ENM FIRE2780 HIT2785 BIT ONE ;HIT P0?2790 BEQ ONEOK2795 LDX #0280 }0 JSR EXPLODE2805 ONEOK2810 BIT TWO ;HIT P1?2815 BEQ TWOOK2820 LDX #12825 JSR EXPLODE2830 TWOOK2835 BIT FO }UR ;HIT P2?2840 BEQ FOUROK2845 LDX #22850 JSR EXPLODE2855 FOUROK2860 RTS2865 EXPLODE2870 PHA ;SAVE } COLL REG2875 TXA ;SAVE WHICH ENM2880 PHA ; TO EXPLODE2885 LDA ELOCK,X ;ENM LOCKED?2890 BEQ CAN }EXP2895 PLA2900 PLA2905 RTS2910 CANEXP PLA ;RESTORE WHICH TO2915 PHA ; EXPL.&SAVE AGN2920 CLC } ;GET WHICH PLR2925 ADC #$44 ; BAND TO USE2930 STA EXPADR2935 LDA #1 ;LOCK ENEMY2940 STA ELOCK,X2945 } LDA EY,X ;GET ENM YPOS2950 TAY2955 LDX #02960 EXPLP2965 LDA EXPSHP,X ;PUT EXPLOSION2970 EXPADR=*+22975 STA $ }FF00,Y2980 INX2985 INY2990 CPX #12 ;ALL 12?2995 BCC EXPLP3000 PLA3005 TAX3010 LDA #60 ;KEEP THIS EX }PL.3015 STA EXPCTR,X ; ON FOR 1 SEC3020 JSR STPI ;STP INT3025 SED3030 LDA REM3035 SEC3040 SBC #13045 STA }REM ;REM=REM-1(DEC)3050 LDA SHIELD3055 CMP #$993060 BEQ NOIS3065 CLC3070 ADC #13075 STA SHIELD ;SHIELD=S }HIELD+13080 NOIS CLD3085 JSR STRI ;STR INT3090 LDA REM3095 PHA3100 CMP #3 ;>=3 LEFT?3105 BCS CANR3110 } LDA #0 ;CANT RESTORE3115 JMP STORR3120 CANR LDA #1 ;CAN RESTORE3125 STORR STA R,X3130 PLA3135 BEQ WIN } ;IF KILL ALL,WIN!3140 LDY #36 ;POS 36,13145 STY 6573150 LDY #03155 STY 6583160 LDY #13165 STY 6563170 }JSR PN ;PRNT #REMAINING3175 LDA #36 ;POS 36,03180 STA 6573185 LDA #03190 STA 6583195 STA 6563200 LDA } SHIELD3205 JSR PN ;PRINT NEW SHIELD3210 PLA ;RESTORE COL REG3215 RTS ;BACK TO CALLER3220 W }IN LDX #0 ;POS 0,03225 STX 6563230 STX 6573235 STX 6583240 LDA #11 ;ICCOM=PUTCHR3245 STA $3423250 LDA # }WMSG&255 ;ICBADR=WMSG3255 STA $3443260 LDA #WMSG/2563265 STA $3453270 LDA #79 ;ICBLEN=793275 STA $3483280 S }TX $3493285 JSR $E456 ;CIOV3290 RES LDA 53279 ;PRESSING START?3295 CMP #63300 BNE RES3305 JMP $E474 ;'PRESS }' RESET3310 PN PHA3315 LSR A ;GET HIGH NIBBLE3320 LSR A3325 LSR A3330 LSR A3335 JSR CA ;PRINT3340 } PLA3345 AND #$0F ;GET LOW NBL&PRT3350 CA ORA #$30 ;CHG TO ASCII3355 LDX #11 ;ICCOM=PUTCHR3360 STX $342 }3365 LDX #0 ;ICBLEN=0=DATA IN3370 STX $348 ; ACCU.3375 STX $3493380 JMP $E456 ;CIOV3385 STPI3390 LD }A #$80 ;STOP INTERRUPTS3395 STA $D40E3400 SEI3405 RTS3410 STRI LDA #$C0 ;ENABLE INTER.'S3415 STA $D40E3420 C }LI3425 RTS3430 SVBI3435 LDA #DVBI&255 ;ENABLE DEF VBI3440 STA $02243445 LDA #DVBI/2563450 STA $02253455 LDA #IVB }I&255 ;ENABLE IMM VBI3460 STA $02223465 LDA #IVBI/2563470 STA $02233475 LDA #CRTN&255 ;ENABLE CTDN TMR3480 STA $022 }8 ; ROUTINE3485 LDA #CRTN/2563490 STA $02293495 LDA #13500 STA $021A3505 RTS3510 CRTN3515 LDA #03520 STA $ }02FF ;NO CTRL-13525 INC 708 ;PULSE YOUR LASER3530 LDA OKF ;UPDATE OKF (ENM3535 BEQ NUOKF ; FIRE CTR })3540 DEC OKF3545 NUOKF3550 LDX #23555 CKEXP3560 LDA EXPCTR,X ;ENM EXPLODING?3565 BEQ NXEXP3570 DEC EXPCTR,X ;D }EC EXPL CTR3575 BEQ STPEXP ;IF DONE EXP,STOP3580 LDA #$20 ;ELSE,KEEP EXPL3585 STA $D202 ; SOUND ON3590 LD }A #$0F3595 STA $D2033600 NXEXP DEX3605 BPL CKEXP ;DONE ALL ENM'S?3610 LDA #1 ;RESET CTDN TMR3615 STA $21A }3620 RTS3625 STPEXP3630 TXA3635 PHA3640 CLC ;GET WHICH PLR3645 ADC #$44 ; BAND TO USE3650 STA ERE }XAD3655 LDA EY,X3660 TAY3665 LDA #03670 STA $D202 ;STOP EXPL SOUND3675 STA $D2033680 TAX3685 EREX3690 EREXA }D=*+23695 STA $FF00,Y ;ERASE EXPL3700 INX3705 INY3710 CPX #12 ;DONE ERASING?3715 BCC EREX3720 PLA3725 T }AX3730 LDA $D20A ;RND XPOS3735 AND #$7F3740 CLC3745 ADC #603750 STA EX,X3755 LDA $D20A ;RND YPOS3760 AN }D #$7F3765 CLC3770 ADC #463775 STA EY,X3780 LDA #$FF ;ENEMY=ADVANCING3785 STA NV,X3790 LDA #03795 STA 5327 }8 ;NO COLL W/EXPL.3800 LDA #5 ;ENEMY=STARTS3805 STA ESC,X ; OUT SMALL3810 LDA #73815 STA ET,X ;EN }M TMR=73820 STA EP,X ;ENM TMR PSE=73825 LDA R,X3830 BEQ NOU ;CAN WE UNLOK?3835 LDA #03840 STA ELOCK,X };UNLOK3845 NOU JMP NXEXP ;NXT EXPL.3850 DVBI3855 INC S1 ;STAR1 CTR=..+13860 INC S2 ; 23865 INC S3 } ; 33870 INC S4 ; 43875 INC S5 ; 53880 INC S6 ; 63885 INC S7 ; 73890 INC S8 ; }83895 LDX #03900 PAUSE3905 LDA S1,X ;NEED TO RESET3910 CMP PS,X ; THIS CTR?3915 BCC SKIP3920 LDA #0 } ;RESET CTR3925 STA S1,X3930 JSR DECS ;AND MOV THE STRS3935 CPX #13940 BCS SKIP3945 JSR DECS3950 SKIP3955 } INX ;NEXT LEVEL3960 CPX #8 ;DONE ALL 8 LVLS?3965 BCC PAUSE3970 JMP $E462 ;RET TO SYSTEM3975 DECS }3980 *=*+72 ;DEC STRS IN LYR3985 RTS ; (CREATED RTNE)3990 DLI3995 PHA ;SAVE REGS4000 TXA }4005 PHA4010 TYA4015 PHA4020 DLII4025 *=*+2880 ;SET STR HPOS,LUM4030 PLA ;RESTORE REGS4035 TAY404 }0 PLA4045 TAX4050 PLA4055 RTI4060 IVBI4065 LDA JLOCK ;LOCKED JOYSTIK?4070 BEQ JMOVE4075 JMP ERTN4080 JMOVE }4085 LDX #14090 CHECKJOY4095 LDA #15 ;GET 15-STICK(0)4100 SEC4105 SBC 6324110 BIT ONE ;UP?4115 BEQ N }OTONE4120 LDY Y4125 CPY #32 ;IS Y AT TOP?4130 BCC NOTONE4135 DEC Y ;DEC Y TWICE4140 DEC Y4145 STX E }FLAG ;FLAG-REDRAW4150 NOTONE4155 BIT TWO ;DOWN?4160 BEQ NOTTWO4165 LDY Y4170 CPY #182 ;IS Y AT BOT?4 }175 BCS NOTTWO4180 INC Y ;INC Y TWICE4185 INC Y4190 STX EFLAG ;FLAG-REDRAW4195 NOTTWO4200 BIT FOUR } ;LEFT?4205 BEQ NOTFOUR4210 LDY X4215 CPY #50 ;IS X LEFTMOST?4220 BCC NOTFOUR4225 DEC X ;DEC X TWICE }4230 DEC X4235 NOTFOUR4240 BIT EIGHT ;RIGHT?4245 BEQ NOTEIGHT4250 LDY X4255 CPY #201 ;IS X RTMOST?4260 B }CS NOTEIGHT4265 INC X ;INC X TWICE4270 INC X4275 NOTEIGHT4280 LDX X ;UPDATE XPOS4285 STX $D0044290 } INX4295 INX4300 STX $D0054305 INX4310 INX4315 STX $D006 ;STORE IN HPOSM24320 LDA EFLAG ;NEED TO REDRAW? }4325 BEQ ERTN ;N:MOVE ENEMIES4330 LDA #0 ;Y:REDRAW CROSS-4335 STA EFLAG ; HAIR4340 TAX4345 LDY Y435 }0 PUTLOOP4355 LDA $4300,Y ;GET OLD MBYTE4360 AND #$C0 ;SAVE ONLY M34365 ORA PSHAP,X ;FORCE IN C-HAIR4370 STA } $4300,Y ;STORE FINAL BYT4375 INX4380 INY4385 CPX #12 ;DONE ALL 12?4390 BCC PUTLOOP4395 ERTN4400 LDA #044 }05 STA EC4410 STA $C0 ;($C0)=PTR TO PLR4415 LDA #$44 ; BAND CURRENTLY4420 STA $C1 ; IN USE4425 LDX }EC4430 ELOOP4435 LDA ELOCK,X ;ENEMY LOCKED?4440 BEQ CKTM4445 JMP NEXENM4450 CKTM DEC ET,X ;DEC ENM'S TIMER4455 B }EQ DOTHISENM ;IF ZERO,MOVE HIM4460 JMP NEXENM ;ELSE DO NEXT ENM4465 DOTHISENM4470 LDA EP,X ;RESET THIS ENM'S447 }5 STA ET,X ; TIMER4480 LDA NV,X ;GET #VECTRS MOVD4485 BEQ DSAPPR ;ZERO=DSAPPR4490 BMI APPEAR ;NEG#=APP }EAR4495 JMP CONTERTN ;POS#=MOVING4500 DSAPPR4505 STA CTR4510 LDA ESC,X4515 CMP #54520 BCS SETAPR ;DONE DISAPPR }ING?4525 ASL A4530 CLC4535 ADC ESC,X4540 ASL A4545 ASL A4550 LDY EY,X ;Y=PTR TO ENM PLR4555 TAX };X=PTR 2 ESHP TBL4560 RECLP4565 LDA ESHAP,X ;GET SHAPE BYTE4570 STA ($C0),Y ;STORE IT IN P04575 INX4580 INY4585 } INC CTR4590 LDA CTR4595 CMP #124600 BCC RECLP4605 LDX EC4610 INC ESC,X ;NEXT FRAME4615 JMP NEXENM ;NXT E }NM4620 SETAPR4625 LDA #$FF ;#VECT CTR=NEG #:4630 STA NV,X ; ENM WILL APPEAR4635 LDA EY,X4640 CLC4645 ADC } #54650 STA EY,X4655 TAY4660 LDA #0 ;ERASE ENEMY4665 STA ($C0),Y4670 LDA $D20A ;RND ENM XPOS4675 AND # }$7F4680 CLC4685 ADC #604690 STA EX,X4695 LDA $D20A ;RND ENM YPOS4700 AND #$7F4705 CLC4710 ADC #464715 STA } EY,X4720 JMP NEXENM ;NXT ENM4725 APPEAR4730 DEC ESC,X4735 BMI DNAPPR ;DONE APPEARING?4740 LDA ESC,X4745 ASL } A4750 CLC4755 ADC ESC,X4760 ASL A4765 ASL A4770 LDY EY,X ;Y=PTR TO ENM PLR4775 TAX ;X=PTR TO SHP }TBL4780 LDA #04785 STA CTR4790 APLP4795 LDA ESHAP,X ;GET ENM SHP BYT4800 STA ($C0),Y ;PUT IT IN PLR4805 INX48 }10 INY4815 INC CTR4820 LDA CTR ;DONE 12 BYTES?4825 CMP #124830 BCC APLP4835 LDX EC4840 LDA EX,X ;GET }ENM'S XPOS4845 STA $D000,X ;STORE IN HPOS4850 JMP NEXENM ;NXT ENM4855 DNAPPR4860 LDA $D20A ;RND MAX # VECTRS }4865 AND #$074870 CLC4875 ADC #44880 STA MNV,X4885 ERP=*+14890 LDA #14895 STA ET,X ;ENM TMR=14900 STA EP,X } ;ENM TMR PSE=14905 LDA #14910 STA NV,X ;#VETCS MOVED=14915 JMP NEXENM ;NXT ENM4920 CONTERTN4925 LDA EX },X ;ENM'S X=..+DX4930 CLC4935 ADC EDX,X4940 STA EX,X4945 CMP #48 ;OFF LEFT EDGE?4950 BCC CEDIR4955 CMP } #201 ;OFF RIGHT EDG?4960 BCS CEDIR4965 LDA EY,X ;ENM Y=..+DY4970 CLC4975 ADC EDY,X4980 STA EY,X4985 CM }P #186 ;OFF BOT EDGE?4990 BCS CEDIR4995 CMP #33 ;OFF TOP EDGE?5000 BCC CEDIR5005 INC ECTR,X ;N:INC CTR }4 ENM5010 LDA ECTR,X ;HAS IT MOVED5015 CMP ELIM,X ; THE LIMIT?5020 BCS CEDIR5025 PUTENM5030 LDY EY,X ;Y=P }TR TO ENM PLR5035 LDX #0 ;X=PTR TO SHP TBL5040 PUTELP5045 LDA ESHAP,X ;GET ENM SHAPBYT5050 STA ($C0),Y ;STO }RE IN ENM PLR5055 INY5060 INX5065 CPX #12 ;DONE ALL 12?5070 BCC PUTELP5075 LDX EC5080 LDA EX,X ;GET EN }M XPOS5085 STA $D000,X ;STORE IN HPOS5090 NEXENM INC $C1 ;NXT PLR BAND5095 INC EC ;NXT ENM CTR5100 LDX EC } ;DONE W/ALL 35105 CPX #3 ; ENMS?5110 BCS RETIMM5115 JMP ELOOP ;CONT W/NXT ENM5120 RETIMM5125 JMP $E45 }F ;BACK TO SYSTEM5130 CEDIR5135 LDA EY,X ;RESTORE ENM YPOS5140 SEC5145 SBC EDY,X5150 STA EY,X5155 LDA EX, }X ;RESTORE ENM XPOS5160 SEC5165 SBC EDX,X5170 STA EX,X5175 INC NV,X ;#VECTS MVED=..+15180 LDA NV,X ; }LIMIT YET?5185 CMP MNV,X5190 BCC CNTCEDIR5195 LDA #0 ;NV=0:FLAG-ENM5200 STA NV,X ; WILL RECEDE5205 STA }ESC,X ;RSET ENM SHP CTR5210 LDA #75215 STA ET,X ;ENM TMR=75220 STA EP,X ;ENM TMR PSE=75225 JMP NEXENM !} ;UPDATE NXT ENM5230 CNTCEDIR5235 LDA #0 ;RESET MVEMNT CTR5240 STA ECTR,X5245 LDA 53770 ;SET A NEW5250 A "}ND #$3F ; MOVEMENT LIMIT5255 STA ELIM,X5260 LDA EX,X5265 BPL POSEDX ;IF X=LF,DX=RT5270 BMI NEGEDX ;IF X=RT #},DX=LF5275 NEWEDY LDA EY,X5280 BPL POSEDY ;IF Y=UP,DY=DN5285 BMI NEGEDY ;IF Y=DN,DY=UP5290 JMP PUTENM ;DRAW S $}HAPE5295 POSEDX5300 JSR GETPOS ;GET RND ENM +DX5305 STA EDX,X5310 JMP NEWEDY5315 NEGEDX5320 JSR GETNEG ;GET R %}ND ENM -DX5325 STA EDX,X5330 JMP NEWEDY5335 POSEDY5340 JSR GETPOS ;GET RND ENM +DY5345 STA EDY,X5350 JMP PUTENM &}5355 NEGEDY5360 JSR GETNEG ;GET RND ENM -DY5365 STA EDY,X5370 JMP PUTENM5375 GETPOS5380 LDA 53770 ;GET RND 1 '}-35385 AND #$035390 BEQ GETPOS5395 RTS5400 GETNEG5405 LDA 53770 ;GET RND -1 TO -35410 AND #$035415 BEQ GETNE (}G5420 EOR #$FF5425 CLC5430 ADC #15435 RTS5440 ONE5445 .BYTE 1 ;FOR 'BIT' INSTR.5450 TWO5455 .BYTE 2 ; SAME5460 )} FOUR5465 .BYTE 4 ; SAME5470 EIGHT5475 .BYTE 8 ; SAME5480 Y5485 .BYTE 0 ;CROSSHAIR Y5490 X5495 .BYTE 0 ;CROSSHAIR *}X5500 EFLAG5505 .BYTE 0 ;C-HAIR REDRAW FLAG5510 PSHAP5515 .BYTE $00,$00,$0C,$0C,$0C,$3F,$3F,$0C,$0C,$0C,$00,$00 ;CRSSHA +}IR SHAPE5520 C5525 .BYTE 14,12,10,8,8,6,4,2 ;STARS' COLOR (LUMINANCE) TABLE5530 S15535 .BYTE 0 ;CTR FOR STAR LAYER 155 ,}40 S25545 .BYTE 0 ; 25550 S35555 .BYTE 0 ; 35560 S45565 .BYTE 0 ; -} 45570 S55575 .BYTE 0 ; 55580 S65585 .BYTE 0 ; 65590 S75595 .BYTE 0 ; .} 75600 S85605 .BYTE 0 ; 85610 PS5615 .BYTE 1,1,2,3,4,6,9,14 ;STR SPD5620 CTR5625 .BYTE 0 /};MISC COUNTER5630 DLIP5635 .BYTE $AD ;"LDA ABSOLUTE"5640 PHPOS5645 .WORD HPOS ; ADR FOR LDA5650 .BYTE $AC ;"LDY ABS 0}OLUTE"5655 PLT5660 .WORD LT ;ADR FOR LDY5665 .BYTE $8D,$0A,$D4 ;STA WSYNC5670 .BYTE $8D,$07,$D0 ;STA HPOSM35 1}675 .BYTE $8C,$15,$D0 ;STY COLRM35680 EX5685 .BYTE 0,0,0 ;ENEMY XPOS TABLE5690 EY5695 .BYTE 0,0,0 ;ENEMY YPOS TABLE57 2}00 ESHAP5705 .BYTE 0,0,0,0,146,186,254,198,0,0,0,05710 .BYTE 0,0,0,0,146,254,198,0,0,0,0,05715 .BYTE 0,0,0,0,84,124,68, 3}0,0,0,0,05720 .BYTE 0,0,0,0,0,56,0,0,0,0,0,05725 .BYTE 0,0,0,0,0,16,0,0,0,0,0,05730 EDX5735 .BYTE 0,0,0 ;ENEMY DX TABL 4}E5740 EDY5745 .BYTE 0,0,0 ;ENEMY DY TABLE5750 ECTR5755 .BYTE 0,0,0 ;# STEPS TRAVELED5760 ELIM5765 .BYTE 0,0,0 ;MAX # 5} STEPS TO XVL5770 NV5775 .BYTE 0,0,0 ;#VECTORS TRAVELED5780 MNV5785 .BYTE 0,0,0 ;MAX VECTS TO XVEL5790 ESC5795 .BYTE 6} 0,0,0 ;ENM SHAPE CTR5800 EP5805 .BYTE 0,0,0 ;ENM TIMER PAUSES5810 ET5815 .BYTE 0,0,0 ;ENM TIMERS5820 EC5825 .BYTE 0 7} ;CTR FOR ENM MVEMNT5830 JLOCK5835 .BYTE 05840 ELOCK5845 .BYTE 0,0,0 ;ENM 'LOCK' STATUS5850 EL5855 .BYTE 0 ; 8}ENEMY FIRING LASER5860 LX5865 .BYTE 0 ;LASER TERMINAL X5870 LY5875 .BYTE 0 ;LASER TERMINAL Y5880 EXPSHP5885 9}.BYTE 20,64,10,160,4,17,132,33,4,80,2,40 ;EXPLOS SHAPE5890 EXPCTR5895 .BYTE 0,0,0 ;EXPLOSION COUNTER5900 OKF5905 .BYTE :}0 ;ENM OK2FIRE CTR5910 ELVT5915 .BYTE 64,128,192 ;ENM LVL TBL5920 ERPT5925 .BYTE 3,2,1 ;ENM RTN PAUSE TBL5930 LN5 ;}935 .BYTE 0 ;LEVEL #5940 SP5945 .BYTE 0 ;ENEMY SPEED5950 SMSG5955 .BYTE " Π OPTION-Level:1 <} "5960 .BYTE " SELECT-Speed:1 "5965 .BYTE " START -Play Game "5970 .BYT =}E " 㩠 SPACE -Pause "5975 GMSG5980 .BYTE " Π Shield Energy:70 "5985 .BYTE " >} Enemies Left :99 "5990 LNGM=*+375995 .BYTE " Level Number : 1 "6000 SPGM=*+37 ?}6005 .BYTE " 㩠 Enemy Speed : 1 "6010 WMSG6015 .BYTE " Π Ġ¡ՠΡ "6020 @} .BYTE " ӠԼ "6025 LMSG6030 .BYTE " ΠYOU LOSE-PUSH START "6035 SHIEL A}D .BYTE 0 ;SHIELD ENERGY6040 REM .BYTE 0 ;#ENM LEFT6045 R .BYTE 0,0,0 ;ENM UNLOCK FLAG6050 GRAPHICS6055 PHA ; B}SAVE ORIG. #6060 LDX #$60 ;IOCB 6(SCREEN)6065 LDA #12 ;CLOSE #66070 STA $342,X ;(JUST TO BE6075 JSR $E456 C} ; SAFE!)6080 LDA #3 ;OPEN #66085 STA $342,X ;COMMAND #6090 LDA #SCRDEV&255 ;ADDR OF "S:"6095 STA $344,X D};LO BYTE6100 LDA #SCRDEV/256 ;AND NOW THE6105 STA $345,X ; HI BYTE6110 LDA #1 ;LENGTH OF SCRN6115 STA $348 E},X ; I.D. IS ONLY6120 LDA #0 ; ONE CHARACTER6125 STA $349,X ; (THE 'S')6130 PLA ;GET IT BACK6135 P F}HA ;BUT STILL SAVE6140 EOR #16 ;REVERSE BIT 56145 AND #16 ;KEEP ONLY BIT 56150 CLC ;ADD 12 G}TO IT6155 ADC #126160 STA $34A,X ;=ICAX1 SPEC6165 PLA ;ORIG. MODE #=6170 STA $34B,X ; ICAX2 SPEC6175 J H}MP $E456 ;AND JMP TO CIO!6180 COLOR6185 STA COLNUM ;STORE IT FOR6190 RTS ; LATER USE6195 POSITION6200 I}STY 84 ;VERT POS6205 STX 85 ;HOR POS LO BYTE6210 STA 86 ;HOR POS HI BYTE6215 RTS ;BYE!6220 J}PLOT6225 JSR POSITION ;POSITION CURSOR6230 LDX #$60 ;SCREEN (IOCB6)6235 LDA #11 ;PUT CHARS COMD6240 STA $342 K},X ;STORE IN ICCOM6245 LDA #$00 ;BUFLEN OF ZERO6250 STA $348,X ; MEANS GET/PUT6255 STA $349,X ; DATA TO/FROM L}6260 ; THE ACCUM.6265 LDA COLNUM ;PUT COLOR # IN6270 ; ACCU B/C LEN=06275 JMP $E456 ;JM M}P TO CIO6280 DRAWTO6285 JSR POSITION ;POSITION CURSR6290 LDX #$60 ;SCRN (IOCB6)6295 LDA #17 ;DRAW LINE CMD63 N}00 STA $342,X ;STORE IN ICCOM6305 LDA #0 ;ZERO BUF LEN6310 STA $348,X ; B/C NO DATA6315 STA $349,X ; IS XF O}ERRED!6320 LDA COLNUM ;STORE COL # IN6325 STA $02FB ; 2FB FOR CIO6330 JMP $E456 ;AND GO TO CIO6335 SCRDEV6340 P} .BYTE "S" ;SCREEN I.D.6345 COLNUM6350 BRK ;COLOR# STORAGE6355 HPOS6360 *=*+192 ;TBL STR POS6365 LT Q}6370 *=*+192 ;TBL STR LUM6375 *=$02E06380 .WORD BP ;DOS RUN ADR5 HPOS6360 *=*+192 ;TBL STR POS6365 LT NAM1)8@ SVT0YT0YT0YT0VYT0YT0YT0YT0VX70T270T2V727;>0T0V<0T9<0TS}9V<96920T0V7T7H;6967V7666766676667666H9<6V 9677H;697V 7666766676T}667666H96<6V 777 66 64 66 77; 69 67 69 V ;;> 6< 6; 6< >0T0V 2`34`V2 30$000 3/$/0V/ 3-$U}-0+3*(*V+T-T/TTTV2`34`V2300003///V/3---+3*3(3*V#`=# +3*3+3*V}-*V/`=/ /3-3/3-0-V2 2 2 2 2 2 2 2 4 4 4 4 6 6 6 6 V7 7 7 7 9 9 9 9 ; ; ; ; W}= = = = V>H69=$69 =$69 V>H69=$69 =$69 V>>0>0>0>6V>>0>0>06>V=9>9=9>9V=-X}---0T0V9H37363432T;TV7T4T9TTTV 6H3432313/T37TV!6`340T0V"T99999Y}99V#999999;=V$=3>T;;39T1V%20T9>3=3;39V&;393;393;393;39T999Z}99V';393;393;393;39T9>3=3;39V(;393;393;393;39T99999V);393;393;393;39T0[};H#(*V*70T09H(*/V+60T0;6= 6> 6=;V,;696996764V-20T9>3=3;39V.;393;393;\}393;39T99999V/;393;393;393;39T9>3=3;39V0;393;393;393;39T99999V1;3]}93;393;393;39T09H-6+6*6V270T09H+6*6(6V360T0;6= 6> 6=;V4;696996764V52-/12^}24626462646264626V66124667666766676V799:686:686:6;0T0V8/H342313/3-V92T6_}T2TT0V:70T270T2V;727;>0T0V<<0T9<0T9V=<96920T0V>7T7H;6967V?76`}66766676667666H9<6V@9677H;697VA7666766676667666H96<6VB777 66 64 66 77; 69 a}67 69 VC;;> 6< 6; 6< >0T0VD2`34`VE2 30$000 3/$/0VF/ 3-$-0+3*(*VG+T-T/TTTVH2`34`Vb}I2300003///VJ/3---+3*3(3*VK#`=# +3*3+3*-*VL/`=/ /3-3/3-0-VM2 2 2 2 2 c}2 2 2 4 4 4 4 6 6 6 6 VN7 7 7 7 9 9 9 9 ; ; ; ; = = = = VO>H69=$69 =$69 VP>H69=$69 =$69 d}VQ>>0>0>0>6VR>>0>0>06>VS=9>9=9>9VT=----0T0VU9H37363432T;TVV7T4Te}9TTTVW6H3432313/T37TVX6`340T0VYT9999999VZ999999;=V[=3>T;;3f}9T1V\20T9>3=3;39V];393;393;393;39T99999V^;393;393;393;39T9>3=3;39V_g};393;393;393;39T99999V`;393;393;393;39T0;H-6+6*6Va70T09H+6*6(6Vb60T0;6= 6> 6=q}1B%DOS SYSB*)DUP SYSBSINVASIONOBJBlINVASIONSRCBRNACHTMUSAMPBoQUIZZER BASBEPREACTOR BASB TITLE GM ;Vc;696996764Vd20T9>3=3;39Ve;393;393;393;39T99999Vf;393;393;393;3r}9T9>3=3;39Vg;393;393;393;39T99999Vh;393;393;393;39T0;H937363Vi70T09H736s}343Vj60T0;6= 6> 6=;Vk;696996764Vl2-/1224626462646264626VmTVn99:686:68t}6:6;0T0Vo/H342313/3-Vp2T6T2TT0Vq20T-20T-Vr2-2690T0Vs90T690T6Vt9u}636/0T0VuT06T67<3;3937Vv937393739373937T77777Vw937393739373937T7<3;39v}37Vx937393739373937T77777Vy937393739373937T7<3;3937Vz938393839383938T8w}8888V{;393;393;393;39T9<3:3937V|736373637363736T66666V}937393739373x}937T37353332V~231323132313231T11111V4323432343234323T3&(*+-V0.Ty}*+-.1V42T24679V:0;0<0=0V>3V>`6343634363436343634363434 36 V70T27z}0T2V727;>0T0V<0T9<0T9V<96920T0V7T7H;6967V7666766676667666H96{}<6V9677H;697V7666766676667666H96<6V777 66 64 66 77; 69 67 69 V;;> 6< 6; 6< |}>0T0V2`4`V2 30$000 3/$/0V/ 3-$-0+3*(*V+T-T/TTTV2`34`V2300003///V}}/3---+3*3(3*V+`>++3*3+3*3-3*V/`>//3-3/3-303-3V2 2 2 2 2 2 2 2 4 4 4 4 6 6 ~}6 6 V7 7 7 7 9 9 9 9 ; ; ; ; = = = = V>H69=$69 =$69 V>H69=$69 =$69 V>9=9>9=9}V>&&&&0T0V2H303/3-3+T4TV0T-T2TT0V;H39373634T<TV;`390T0VT>>>}>>>>V>>>>>3<3936V637T4432T*V+0T27363432V432343234323432T32}2222V432343234323432T27363432V432343234323432T22222V4323432343234}32T04H2606/6V00T02H0/-V/0T0466 67 664V462/2260/-V+0T27666462V46264}6264626462T22222V462646264626462T27666462V462646264626462T22222}V462646264626462T0@H>6<6;6V<0T0>H<6;696V;0T0466 67 664V27;>>6<;9V7&(}*++-6+6-6+6-6V/*+-//06/606/606V22361636163640T0V(H4-+4*4(4&V231303/}3221202/2V(H4-+4*4(4&V23436372242627V90T0>0T0V70T2/+/2V727;>060V}70T2/+/2V727;>060V70T070T0V70+$+ +0T0VVTVTV/0TTTTTTVTV}TVTV& & & & & & & & & & & & & & & & V& & & & & & & & & & & & & & & & V & & & &} & & & & & & & & & & & & V & & & & & & & & & & & & & & & & V &0002206/ 6- V ++}**+0T0V /`60`V/ 6-$-0- 6+$+0V(0(0$0!0V&T*T+TTTV/`60`V/6----6+++V(0}(6($0$6$V+`=+ #3!3#3!$!V+`=+ +3*3+3*3-3*V/ / / / / / / / 0 0 0 0 0 0 0 0 V/} / / / 2 2 2 2 2 2 2 2 7 7 7 7 V6 6 6 6 6 6 6 6 7 7 7 7 7 7 7 7 V6 6 6 6 6 6 6 6 }7 7 7 7 7 7 7 7 V660606066V440404064V4 4 4 4 6 6 6 6 4 4 4 4 6 6 6 6 V4TTT}TTTTV-H3+3*3(3&T/TV+T(T-TTTV *H3(3&3%3#T+TV!*`3(0T0V"-H3+3*3(3&T}/TV#+T(T-T+TV$+3*T7736T+V%**++--**V&((**++((V'**}++--**V(((**++((V)*0T06`6V*40T04`6V+2679769 6; 697V,7662666421}V-2*++--**V.((**++((V/**++--**V0((**++((V1*0T06`6V24}0T04`6V32679769 6; 697V47662666421V52-/1224626462646V661246676}66766676V7969:686:686:6;0T0V8+3V9*T-T*TTTV:/0TTTTTTV;TV<TV=TV>& & }& & & & & & & & & & & & & & V?& & & & & & & & & & & & & & & & V@& & & & & & & & & &} & & & & & & VA& & & & & & & & & & & & & & & & VB&0002206/ 6- VC++**+0T0VD/`6}0`VE/ 6-$-0- 6+$+0VF(0(0$0!0VG&T*T+TTTVH/`60`VI/6----6+++VJ(0(6($0$6$VK}+`=+ #3!3#3!$!VL+`=+ +3*3+3*3-3*VM/ / / / / / / / 0 0 0 0 0 0 0 0 VN/ / / / 2 2 2} 2 2 2 2 2 7 7 7 7 VO6 6 6 6 6 6 6 6 7 7 7 7 7 7 7 7 VP6 6 6 6 6 6 6 6 7 7 7 7 7 7 }7 7 VQ660606066VR440404064VS4 4 4 4 6 6 6 6 4 4 4 4 6 6 6 6 VT4TTTTTTTVU-H}3+3*3(3&T/TVV+T(T-TTTVW*H3(3&3%3#T+TVX*`3(0T0VY-H3+3*3(3&T/TVZ+T(}T-T+TV[+3*T7736T+V\**++--**V]((**++((V^**++--**}V_((**++((V`*0T06`6Va40T04`6Vb2679769 6; 697Vc7662666421Vd2*++-}-**Ve((**++((Vf**++--**Vg((**++((Vh*0T06`6Vi40T04`6Vj267}9769 6; 697Vk7662666421VlTVm6124667666766676VnTVo+3Vp*T-T*TT}TVq&0T0T0T0VrTVsTVtTVu(())++((Vv&&(())&&Vw(())++((Vx&&}(())&&Vy(())++((Vz&&(())&&V{$$&&(($$V|$$&&''$$}V}""!!""--V~..--..-+V*0TT`TVTVT0T&(*+-V.0/00010V22}23400032V///32230/-V+0TVTVTVTV& & & & & & & & & & & & & & & & V}& & & & & & & & & & & & & & & & V& & & & & & & & & & & & & & & & V& & & & & & & &} & & & & & & & & V&0002206/ 6- V++**+0T0V/`30`V/ 3-$-0- 3+$+0V(0(0$0!0V&}T*T+TT0V/`30`V/3----3+++V(0(($0$$V#`>##3!3#3!3$3!V+`>++3*3+3*3-}3*V/ / / / / / / / 0 0 0 0 0 0 0 0 V/ / / / 2 2 2 2 2 2 2 2 7 7 7 7 V6 6 6 6 6 6} 6 6 7 7 7 7 7 7 7 7 V6 6 6 6 6 6 6 6 7 7 7 7 7 7 7 7 V6 6 6 6 7 7 7 7 6 6 6 6 7 }7 7 7 V6T0T0T0TV&H303/3-3T(TV0T-T20T0V/H3-3+3*3(T0TV/`3-0T0V2H30}3/3-3+T4TV0T-T20T0V03/T003/T$V##$$&&##V!!##$$!!V}##$$&&##V!!##$$!!V#0T03/`6V-0T0-`6V+/02062 64 620V06/+//6}-+*V+#$$&&##V!!##$$!!V#/0222//V--//00--V/0T0};`6V90T09`6V7/02062 64 620V/27;;6976VTVTVTV$3V#0T0T0T0V$3V#0T}0/0T0V40T060T0V& & & & & & & & & & & & & & & & V& & & & & & & & & & & & & & & & }V& & & & & & & & & & & & & & & & V& & & & & & & & & & & & & & & & V&0T0/0T0V/0$} 0T0VVTVTV0T0TV#&0T0V$0T!$0T!V$!!0T0V}VV V V !!##V }!!#0T0V TV`3`V0000VTT0T0VTV`3`V0000V    }V    VVVVVV}!#!!# V!!!!!!!!V!0T0VT`T0TVTTTTV T003}TTV!0!H3 33V"TTTTV#TTTTV$TT!TTV%0T0T0T0V&}0T0T0T0V'0T0T0T0V(0T0T0T0V)TV*V+V},!!!!V-0T0T0T0V.0T0T0T0V/0T0T0T0V00T0T0T0V1TV2}V3V4!!!!V5V6V7}!!""#0T0V8`3!`V9TTTTTV:0T0TV;#&0T0V<$0T!$0T!V=$!}!0T0V>V?V@VAVB}!!##VC!!#0T0VDTVE`3`VF0000VGTT0T0VHTVI`3`VJ0000}VK    VL    VMVNVOVPVQ}VR!#!!# VS!!!!!!!!VT!0T0VUT`T0TVVT}TTTVWT003TTVX0!H3 33VYTTTTVZTTTTV[TT!}TTV\0T0T0T0V]0T0T0T0V^0T0T0T0V_0T0T0T0V`TVaV}bVc!!!!Vd0T0T0T0Ve0T0T0T0Vf0T0T0T0Vg0T0T0T0VhT}ViVjVk!!!!VlVm}Vn!!""#0T0Vo`3!`VpTTTTTVq0T0TVr!0T0V}s!0T!0TVt!0T0Vu0T0T0T0Vv0T`T0Vw0T`T0Vx0T`T0Vy0T`T0Vz0T`T0V{0T0}T`V|0T`T0V}3V~V0T!V$"T!"%V(4&T`T0VTVTVV0T0}TV#&0T0V$0T!$0T!V$!!0T0VVV}VV!!##V!!#0T0VTV`3`V00}00VTT0T0VTV`3`V0000VVV}VVVVV0T0VT`T0 TV!T}TTTVT003TTV0&H3%3$3!VT!T#T TV!TTTTVTT}TTV0T0T`V0T0T`V0T0T0T0V0T0T`VT#!  V!$!V}!#$$$$V&&&&V0T0T`V0T0T`V0T0T`V0T0T`VT#!  V!}$!V!#$$$$V&&&&V!!V#!##}$$V&&''(0T0V`3`V0T0T`V`3`V0T0T`V0T00T0VV}VVV#&#V0$ 0T0VVTV}TV&0T0T0T0VT0T0T0T0VT0T0T0T0VT0T0T0T0V# # # # # # # # # # # # # # # # V$ $ }$ $ $ $ $ $ $ $ $ $ $ $ $ $ V # # # # # # # # # # # # # # # # V $ $ $ $ $ $ $ $ $ $ }$ $ $ $ $ $ V #0T0T0T0V TV TVTVTVTVTVTVTV`7TTTVTVTVTVTV}TV220202026V220202062V1 1 1 1 2 2 2 2 1 1 1 1 2 2 2 2 V1T`T0TVTVTV T}V!TV"TV#TV$TV%TV&TV'TV(TV)T0T0/`V*T`-`V+TV,TV-TV.TV/TV0TV1T`/`V2T`-`V3}TV4TV5TV6TV7TV8TV9TV:&0T0T0T0V;TV<TV=TV># # # # # # # # # # # # # # # # V}?$ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ V@# # # # # # # # # # # # # # # # VA$ $ $ $ $ $ $ }$ $ $ $ $ $ $ $ $ VB#0T0T0T0VCTVDTVETVFTVGTVHTVITVJTVK`6T0TVLTVMTVNTVO}TVPTVQ220202026VR220202062VS1 1 1 1 2 2 2 2 1 1 1 1 2 2 2 2 VT1T0T0T0TVUTVVT}VWTVXTVYTVZTV[TV\TV]TV^TV_TV`T`3/`VaT`-`VbTVcTVdTVeTVfTVgTVhT`/`ViT`}-`VjTVkTVlTVmTVnTVoTVpTVqTVrTVsTVtTVuTVvTVwTVxTVyTVzTV{TV|TV}TV~}TVTVTVTVTVTVTVTVTVTVTV# # # # # # # # # # # # # # # # V$ $ $} $ $ $ $ $ $ $ $ $ $ $ $ $ V# # # # # # # # # # # # # # # # V$ $ $ $ $ $ $ $ $ $ }$ $ $ $ $ $ V#0T0T0T0VTVTVTVTVTVTVTVTV`>T0TVTVTVTVTVT}VTVTVTVTVTVTVTVTVTVTVTVTVTVT`>(`VT`&`VTVTVTVTVT}VTVTVT`&HTVTVTVTVTVTVTVTVTVTVT`00T0V# # # # # # # # # # }# # # # # # V# # # # # # # # # # # # $ $ $ $ V# # # # # # # # # # # # # # # # V# }# # # # # # # # # # # $ $ $ $ V#0T0&0T0V&0T0T0T0V0T02%3%.4).'%).%+,)%.%.!#(4-}53)+#/-0/3%$"97!-/:!2472)44%."92-#()#(!+,9%+,)%.%.!#(4-l66PPPPPPPPPKKKP75P71P71P8P1MGPROMPCONFIRP19CONVERFQGFCLSQSTANSCNTQCVERSSRCHGANS}FINDPB1PB2PU1PU2PC1PC2LIMIZDATP25CCCAEDON} } !"#$%&}'()*+,-./0123456}789QUIZ MASTERBY ERIC TUCKER%%(c)1990, ANTIC PUBLISHING, INC. g6-@6-%}6-%'6-%/6-%76-%?6-%G6-%O6-%W6-%_6-$g6-$U6-AR6-&$!6-%+6-$%}36-$=6-%$E6-$M6-%U6-%' 6-$&6-$$6-&'6-&R/;$%,;$,;%,;$%,;,;},R6.hԩՠեɠ`(NA6.7hhhhhةԩըإ٥`N6.>:%%,-T%;$},;$%,;%,;$%,T6.(hԩhhi(ԥiՈLԈ`2]]6.Shhhhhhhhhܠ)a{8 }ץߥ٩ԅ`ϥօԥׅ`PUU6.KhhՅhԅhhhhڠץ8؅ԥم`}QK#;,;,;,;,;,;,7-@@;"G67,.>:,K Rk-@@"'67,.>:,+ ?-}@@C"O67,.>:,S g-@@k"Sc67,.>:, '-@@+"767,.>:,; O-@}@S"_67,.>:,c T27,69,155U27,70,155V27,45,49W27,45,48X15,155,155Y18,155,155Z}%6-I:,&$;,%K:dD $%+AYD(" nQ*(" }򠭭Q(" s: 6-?:C:,,!'-:(Select option:xU( } !(9(A - Add new entriesU(L - Load file from disk^(S - Save file to disk/( E - Edit file}H(B - Browse thru file^(T - Test yourselff (P - Printout study sheet<(I - Index of disk filesQ(C - Clear memo}ryf(Q - Quit programT  (,( Memory used: B:, bytesN( Memory left: &B:, bytesTZ(Number of }entries: J(P:A$B:,'%',% of memory in useZAY$%#%%$& "$%#  "$% $}"$%*0 $$"$%*0 $"$%*0 $"$%*0 $"$*0 $} "$% $"$%*0 $"$%A ( %$76-?:C:,,$$%-7( }2 -%2("ENTER BLANK TO RETURN TO MAIN MENUR(-("please limit entries to two lines;R( otherwise they wi}ll be truncated: -( Π$'(4@: 4 :((Ҡ()@}/64: L F(2Is the above information correct? (y/n)L %  %$$96-}?:C:,,-.(٠Ԡġ1(5 9 8C,6.7<$%&+$%&B:,,$+B:, $%,,30C67B:,%,.=,,6.}7<$%&+$%&B:,,$+B:, $%,,B;67B:,%,.!67B:,%,./67B:,%,.76-%; M6-?:C:,,$$}%+-M(ENTER BLANK TO RETURN TO MENUK -!(Load file from disk9( ?K$%$!} $&( Filename: ! C A SAR($/9 A C A `6,(I/O ERROR!! (n}umber F:,)0 6 $ 4A i . 6-.( Overwrite resident file? (y/n)+ "$%6.!(O+ }A h8 "$%67B:,%,.>:,.( Do not o8 A h ( A b(verwrite resident file!( (} (! $ ("( 6-&&(Loading  from disk..." 67B:,%,." A x} L 6-?:C:,:, 6- 6*6-?:C:,<B-H  (  ( ) )(Is this O.K.? (y/n)  }"$%   $%( A2s ; A267B:,%,.+67B:,%,.;67B:,%,. 67B:,%,. }WABAB'6-?:C:,,--B(Browse thru fileW( S'(Press to return to men}uS('Show Question or Answer first? (Q/A) "$% "$%*$(" $%A (6-+"$,%(} Show )7(questionA A@@(answer5( first5("You want auto answer cover? (Y/N) %. 6-}(($(Do not c. A@ (C="(over answers automatically%(- $$0(4 9(= &6-?:C:,,}6-(&6.S -(Q1:!(A1:+(Q2:5(A2:?(Q3:I(A3:S AFL -$%}B(*Options: < >   1 2 3 J H L%%1 -%1(Now starting with entry #$F:%%,"%$}Ad@WF:Ad,"$&AA! 6-AA@"$%! "$*! %"$%* & %}$!+"$)"$%,*!! %$ %+"$%)"$%,* &% %$" $%*!$ %$$ "$% %$&}"$%*! %* ( AA,4 -$%4(Return to main menu? (Y/N). %  0 AA6 }6-& 6-76.8 AF AA@ 6-%!&6-&A6.B %%J 6-&}6.O %%T 6-%6.Y %%^76-?:C:,,- $$! -6-?:C:,,7 AAh 6-&}$%&!AA8mC6-?:C:,<$&,'6-?:C:,<$&,56-&@:7,,C67<,.>:,r6-%&  %w AA }A -%A(Jump to what entry? (1-&)  % )!&)P:, %6.!}! ( &! AAU'(Keystrokes and their functions:-0(U( < Scroll backward three entries"}j'(> Scroll forward three entriesI( Scroll backward one entryj( Scroll forward one entry>*6. Toggle ans#}wer cover of entry #2-:(> G"(J Jump to specified entryG( H Help with keystroke functions(( Es$}cape to main menu%($% -6-?:C:,<, %-%+ ,%+&!,. -%$+&, B:, $$(%}. AF@ 8(7<$,6-@:7$,, 8BY%$$$+&,B:,!$(7$%   $\ "6- AG f6-?:C:,(verbatim answers onlyH AQ (user approved answers](/($To what file should I0} save questionsP(that you answer incorrectly?VY(] V 8(*Save questions answered incorrectlyV(und1}er the filename  ( (( -6-?:C:,, AQB-$-%%,,(#C2}ORRECT: 0 WRONG: 0 PERCENT: none( B6-((6-P:H:,$,%! 6- -#5( 3}('B:, $+(5 AQe(,(7<$,6-@:7$,, ,By*B:,!$(7$% to return to main menu03 -(#6-*6.03(29 9++$*$&,)+$*5}$&,,* $AR<"$&*!AR0F"$&ARPP AQpZ>67,.>:,6-%(>:,.F:%,!$&6}6-%>(d AQpn6 6-&67<,. #F:%,"/-$&%6(x (>:, AQp47}  "6. ART "67&,. ART67,.7%, 6-&I -%'(8}-0(;B:, $?(I AR,(7<$,6-@:7$,, ,ByB:,!$(7$%}T: P:A$'+%,,%U$p_6-?:C:,,AB'AB--F(Printout study sheet_( ?}zY)(!ENTER BLANK TO RETURN TO MENUJ(Enter a two-line title:M(TY{ 4 |**("Regular or Co@}ndensed print? (R/C)~* $%*$% (* A`#6-$%@$$+"$%,#6-* ("$ (ReguA}lar* A`$( Condensed( print( ( =( Printing... Aa,P:6"$%=(B}(( A` - &&6.7<&&+&&B:,,$+B:, &,,4&6.7<&&+&&B:,,$+B:, C}&,,4(@/ 6.-@%%&+67<,. / (@ &(@(@&(@D}'(Print job finished!!# ' 0#(Printer not responding!!(, 0 X]6-?:C:,,A'AE}--E(Index of disk files]( bJ'(Press for D1:*.*J(Press to return to F}menul, (Filespec: ,%%$&vF:%%,"$&Ap0F:%%,"@(  # G}4#6.D:*.*:B:,!@*7<,4:)7<,4:06.: Ap 6.D:67@,.I"(FilespH}ec: '1 Aq <F AqI() ( () ApF:@,!(   I}3)(I/O ERROR!! (number F:,)- 3 $@G $$6-?:C:,,%-6( CLEAR MEMORYG( J J} (( ^@6-?:C:,,(+(MEMORY CLEARED!!26.86-< @ 4!G $$6-?:C:,,%-6( QUIT PK}ROGRAMG( >!  (( H!+ $&+$%$R!: &-(&6-?:C:,,.L}&47:(# 4' 2#- B:,!$7<,4:)7<,4:*6.-$<# 6.D:67,.$'I )(6M}-&$$++!$,*+$&,,F6-&$$++!&,*+ $&,,I$'1  (*(Press any key to continue. 1$'(Is this ON}K? (Y/N)' "$%6-$$' $%( %)' 6- $.' !B:,' A0p3'$D2:QUIZZER.BAO}S (Y/N)' "$%6-$$' $%( %)' 6- $.' !B:,' A0p3'$D2:QUIZZER.BAKLE"["SLVSQXNNSCHSEXYSCLVLSCXYTSBONUDFDHBQ} @@R} !"#S}$%&' NUCLEAR REACTORBY Dennis Debro%%(c)1990, ANTIC PUBLISHING, INC.PZw +T}@AY@6-+F:A,&@,$AVw6-?:C: hhhhh͢ˑ͈`,<BsD<,d" U}A n;-@"-%$@%1 ; Ax<<;@2,9@,9@,;@,V};@,6-@6-@'6-36-@%?6-@K6-@W6-@c6-@6. hhhH9 W}eЍ Ԉh8`6-@6-@6- A A +@!AV'AV3@X}U6-F:@,%AV$F:@,gA@yA @8AAQA@R--%@@Y}%@Y9AM%A AQ #-%@`%A@@ /AC%@AG g-@Z}+@%,$@6-P:H:,$@,%@%6-P:H:,$@ ,%@+-;(@W-@[}AU@ s2@@w 2 !@6-@-\}@668,-P:H:,$@,%@[68,-P:H:,$@ ,%@_ m-@6-%8,%@ $8,]}A4 '-@+@%,$@I6-P:H:,$@,%@k6-P:H:,$@ ,%@q-^}(@ D -@6@<2@@@ D i-7(@ 0_}00000 0I-@i(@ 00 25o 6.=:,#-@&B:,0(@B-@`}O(@X6.=:,o-@ &B:,@x(@-@@6-P:H:,$@,%@b6-P:H:a},$@ ,%@x+,)+,A!Q%6-P:H:,$@,%@G6-P:H:,$@ ,%@Q A0b}--@-+8,,)+8,,A#Q%6-P:H:,$@,%@G6-P:H:,$@ ,%@Q A0c} \ -(@%6-@6@T2$@@X \ %2AT@d}@G2@AU@@d-@6@2AT@2@AU@e}6-?:C:,<@, t-@)6-%8,%@ $8,5A49 K6-%%@ $Z6-F:A2,`f}tA@wy!6-%+"@,&+"@,?6-%+"@,&+"@,y+"@,)+g}"@,)+"@,)+"@ ,Ai@=2@A(@@_2@h}i A%%2@"76-@72@,E 1i}E+@2,*+@G,*+@7,*+@ ,A6BP:'B,"*"@( Ap46-B6-%@;j}`"@ 6-%AP' AR06.=:,G-@&B:,T(@`6-@@n"@76-%A+k}6-&@5 A@>6.=:,U-@&B:,b(@n6-@J%6-% AT=6-l}@%&F:@,,-@@=(@ ^-6-P:H:@,$,%@-!APh6-%8,%@ $8,m}968,-8,%+!8,,&+ 8,,W68,-8,%+!8,,&+ 8,,y2@AP@@2@n}r318,8,"@7)@3 A|+8,",*+8,",A AP-@o}AU@;2@@@GASA _Ac 2@6-p}&@A@'A @89AAK-@X(@dp6-@|6q}-@6-@%6- A5r-@@,(@ 6#AJ-@@P"r2r}%2@A2@@e2@&@@@s}{-@$@6-?:C:,<@,  S%2G2@Mt}S6-K6-?:C:,<@,K+F:B2y,"@,)+T:,",A036-%@"A)6-u}3 A A`X6-%+P:%,$@,&!B26-D-@X(@000000a-@v}@1(@LEVEL COMPLETEC-@@a(@0 6.=:,#-@&B:,0(@w}E #Ap!-@@)"E2@@2@@@5-@$@x}9 [2}2@ 6-@6-@6-@%6-%@y}!@6-@)6-%@!@)6-@ ; 6-!@#6-&@/ @;6-z}@36-%@%-@A) 3 A5B -@6@>2$@@B &{}AB6---@A(@0000000$:| @#-@@@-@|}6@\2@ @p-@@t x | DH @6-%@)6-;-@}}H(@N(%2($X +@!AV'AVK6-F:A`,%AV$F:Aa,%@~}_&@@qs-@@%@ bA@'A @89-@@V(}@h-@@(@gs-@@%92AT@@}[2@AU@@o6-?:C:,<@,s hp -@6@<2AT@X2}@AU@l6-?:C:,<@,p lg-@@3(@TOP SCORE 000000E-@g(@}press to beginq*-@&B:=:,,@*(@vG6-?:C:,<@,GF:B2y,@*T:,}A06-@6-@'6-36-@%?6-@K6-@W6-@c6-@6. hhhH}9 eЍ Ԉh8`6-@6-@6- A5C -@6@<2@ @}@ C$1,0,0,0,0,0,0,255,2552,255,255,0,0,0,0,0,0''3,128,128,128,128,128,128,128,1284,1,1,1,1,1,1,1,1}##5,60,36,36,66,129,255,255,126$$6,126,189,219,255,36,90,66,165 7,24,16,60,88,60,24,36,102''8,255,255,255,25}5,255,255,255,255##9,60,126,118,98,110,98,118,60 11,24,8,60,26,60,24,36,102!!13,24,24,60,90,60,24,36,102!!14},24,24,60,90,60,24,36,102!!15,24,24,60,90,60,24,36,102 !!16,0,127,99,99,99,99,99,12717,0,56,24,24,24,62,62,62 } 18,0,127,3,3,127,96,96,127*19,0,126,6,6,127,7,7,1274$$20,0,112,112,112,112,119,127,7> 21,0,127,96,96,127,3,3,1}27H##22,0,124,108,96,127,99,99,127R23,0,127,3,3,31,24,24,24\##24,0,62,54,54,127,119,119,127f25,0,127,99,99,12}7,7,7,7k26,0,56,56,24,24,0,24,24p##33,0,63,51,51,127,115,115,115z&&34,0,126,102,102,127,103,103,127##35,0,127,}103,103,96,99,99,127&&36,0,126,102,102,119,119,119,127$$37,0,127,96,96,127,112,112,127$$39,0,127,99,96,111,103,10}3,127!!41,0,127,28,28,28,28,28,127##44,0,48,48,48,112,112,112,126&&45,0,103,127,127,119,103,103,103&&46,0,103},119,127,111,103,103,103$$47,0,127,99,99,103,103,103,127$$48,0,127,99,99,127,112,112,112&&50,0,126,102,102,127,11}9,119,119##51,0,127,96,127,3,115,115,127 52,0,127,28,28,28,28,28,28&&53,0,103,103,103,103,103,103,127$$54,0,}103,103,103,103,111,62,28##57,0,103,103,103,127,28,28,28$-1.ii64,162,25,64,162,25,64,162,25,64,162,30,72,182,20,7}2,182,25,72,182,30,81,193,20,81,193,20,81,193,20381,193,20,64,217,308108,3,108,2,108,1,108,3B91,2,96,1,96,2,10}8,1L108,2,114,1,108,31 +@A@p1A@A-@@)-@@A(@} GET READY! -@6@<2@ @@ R-@@j(@ ~}-@    $D1:REACTOR.BAS@ @@ R-@@j(@ ~5  4fxTIMEPIGOLDMINE TITLEC 1987 WILLIAM A. AUSTINd1 +@}A1AR@n-@@x(@ THE GOLD MINE} A-@@}(@ ThE gOd Mie A-@@(@ gold MINE A-@@}(@  A-@@(@ te GOLD mine A,-@}@6(@ Te mine; A-@@(@ thE GOld MIne A-@}@(@ THe GOld MIne AX-@@b(@ THE GOLD MINEg AS-@}@&(@8-@@S(@  A =( By(=( } William A. Austin% D:GOLDMINE -@6?%B2A@;2@AP@}? B$ -@6@ -APA%6@/2@/2@@}  $ D:TITLE.GM6@ -APA%6@/2@/2@@!