8(;F=OF SYSMOC.I   c}E q0 \C)CC8`DCeECiD` RP h1$E ȍ @y b Y)hܭ]L]` q  DMD   u j)`0  ,p0i2 &28jJ1f02 9 g iJf0i1)xԍӭ232002XԦ`  *'  } *(L `(  L l pL[,L] C i0 } p  gފދLh ( LD 0  C  C  \i +$+0'}; $(%)  b L[C `D P^߰")(݃   $DD}G@НL]S")M T H0 G$Ș݃ b 8$}$%8(() T `$E0(0)8`$GE` P} Li 8GD }L[ PH >iJ ;  yyB } ' |L[ "E( % H$ H#`L]B  0 G LO<  ( d lH۪!A3 A }jA !B EIC Y$E0 F  < 7 JN8Ndâ!,P h0ʠJd,6 } ' r/ $ ɛ ` '  L[  l }-     }    L[L  }  '  L[   p  ` g  l }) g ' }L[) ̠,L]T-0 |LM N݃:ː6UV LM N L(TU N,)M}LL[IL3GDIɛ ɜ DI  , JȊGм  G I) GȦ=}*GG ȄI1200820I H1E 1h0hIGI2ȢI`FE 0ɛ rɛ$ l '}蚦TTUVD`M L$:;Pyȱ$` r  iȱ$/:ȱ$VWyA**⩀ / }`$***? mL]-+ȱ$ɛ m* ? g. $0f.?'@ wAsTt/` }0: gL  `$0`j`& CpCi s L0JCܢj? I#}𴽎F ގМގ& & 0 C4 08L`0   | 레L] EGȽGȽ}G | E` 8,  }EG)݀G)ȱGȱG`"!L] l!i}栠$8  (IƭIp  h,g+j? 8 ii(Lq)! }S S0$} ) E9`H)N,L]8GH Lq`gNgfj****8jHi h` } 2J  &e2i`"%?&;^$IM ! ! <u hh`$}Ev옝^! 1EHFHjm GHm H`u$Ev`L=? +`!,pFE ȄD8 }q D&E`I0` i`+DOS SYSMOC.I   J ٍ = ) F)}8`Ll T!U<; Ln <JM -18     HH =}D 1 :  /1[F:M #.!  `>C #   #`>   e}L'>/b;\I\o@ @LK~ L  % /e  LL H}H0S0N:;=91D,1ɛK$ɛ`:;ʾ  ,ɛ}`XYȄ #`DTDRLUFFFCICLRSJ==CIYEEONSMDLNOOUAOOOARPLNCL#####PANVBNFR*),-PQOR}a/%<}) j ө  RES L%-, # 3 0 %   4(H 4(` }( 3  #  ZOiۨ L4RE 3 =F S Z +8!} 0+  FF % 4 4& 4(X)Y    # 4 ʤ Ȅ L"}F F LH hL4`*J 0 B B 0a   8#}    Lkl  );<  : ` 0 } T T 7̀΀$}LIl <;`<L 3   #/ ! R( 7 7   7 89i L7 ,(&  %} L480  ` Ln    `   HJJJJ h) ii0 ``0  ,BLV&}[J  B Vso Fhh` GH ,H hɐɀɡ)HDCȱCɛeCD먥D h'}N MSп` ED` OIH`hhXhh  nL Free Fil-SBreakI/O-Error 128Disk f(}ullWrite protectedFile MismatchBad FilenameDOS II+/D - Version 6.4 RUN:(c) '87 by S.D.Br`čLLockedDe)}vice doneDIR fullNot foundLoad?Bad DOSHex?AbortFromToHD) S)Eh` ɛLn ;LD1:DC.COMF SY}**MMXYZZSECHATIMGRGRGRGRGGBAGDBAGGOLKEZRMRMSDSDOSSDSSCAANDGOLPGOLDDDD+}FFDRWAYWWWWW1W2W3W4LCOUNOMOMFRCCPITCDURATIO,} -} !"#$%.}&'()*+,-./012345/}6789:;<=>?@ABCDE0}N6-@6-@*6-@66-@B6-@N6-@3+@%@$(@ 3(@1} Q#(@ THE HALLS OF THEB(@ LEPRECHAN KINGQ(@ .(@ created.(2}@ +(@ by+(@  Q#(@ 2(@ Q(@ 3}  %-@@ ! B% x AF:A,&@+@%@6-F:A,$AV4}6-F:A,AV-@% -@@c" %5} q)-@d@q%%AF) r)-@r@y%%AD) s)-@@%%A() 6}t'-@@"#%' #@* @##A@@#Ap6-%@16-7}@%"@)"@16-@ ""6@ A@ @5,/ A "8}"6@A A0, A@} @@5+,@@=,@@O,@9}@a,@@k@2},@@[6-6-'6-36-? @I:}@7[,@@" @#A U@#Ap-1@@9"@2C@7U,@;}@G6-@6-@"#")6-/6-;6-@G6-@" 6-6-<}AAQ@w"R:,"@" A6-R:,"@6-&@&=}"@6-%@0"@6-&@:"@6-%@D# 1"@56-#6-N">}A0 A Sw"@86-%6-2-6@0@0Q2O:,@@U w2?}X#"@ A# A%]"@76-@'6-@`D-@`@@6@`2@}@@|2@@@6-&@ ^G%2G2@A}g@@2,l @6,n:*"*"*"@*T:,"4@2:,oS "B}*"6-%@9%,+6-16-76-=6-I6-S Ap*"@9APv6-$6@C}"@A1&@1&@1%@1%@*AP% "*D}!6-@%6-% "* 6-@%6-% "*!6-@%6-% "* 6-@E}%6- A  6-@ !6-@  6-@  !6-@F}A  /"@*@5%6-@/ AP*/"@*@5%6-@/ AP4/"@*G}@5%6-@/ AP>/"@*@5%6-@/ APH%%6-P:H:,$@,%@R!!"@H}*"@5A@\!!"@*"@5A@f!!"@*"@5A@p!!"@*"@5A@z I} AP?6-%"@*@536-%@?6-@3"@*@5'6-%@36-@J}3"@*@5'6-%@36-@3"@*@5'6-%@36-@3"@*@5K}'6-%@36-@3"@*@5'6-%@36-@3"@*@5'6-%@36-@L}3"@*@5'6-%@36-@"@A@"@6-@"@6-M}@"@6-@"@6-@ A@p AP A##170,84,124,170,146,2N}54,40,108!!126,60,66,223,209,219,66,60!!170,85,170,85,170,85,170,85##60,126,219,255,189,195,126,60 0,0,7,253O},85,87,0,0 ""28,54,119,65,119,119,119,12724,24,126,126,24,24,24,24""31,35,69,249,137,138,140,248gg13,13,14,1P}3,2,14,4,14,5,15,4,15,5,16,8,16,15,15,16,15,13,16,14,16,2,18,5,18,7,18,9,18,15,18,17,181,0,18,0dd2,19,3,19,7,19,9,1Q}9,11,19,13,19,5,20,7,20,16,20,18,20,2,21,3,21,5,21,7,21,9,21,14,21,2,22,3,22$ee1,1,1,5,18,1,18,7,9,1,9,4,16,6,16,8,18,12,1R}8,16,16,14,16,17,16,20,16,22,13,10,13,11,13,17,13,18.gg9,9,9,10,8,13,8,14,3,16,3,17,0,0,0,23,0,23,19,23,19,23,19,0,3,1,9,1S},11,1,16,1,11,2,16,2,11,4,16,48ee4,6,9,6,3,3,5,3,6,4,7,4,3,5,4,5,11,5,12,5,14,6,16,6,11,7,12,7,2,8,6,8,8,8,9,8,11,8,14,8,5T},9,6,9Bnn11,9,13,9,16,9,17,9,1,10,3,10,6,10,7,10,15,10,17,10,6,11,7,11,9,11,11,11,2,12,3,12,17,12,18,12,5,13,6,13G&&10,U}13,16,17,11,13,11,17,-1,0,0,0Lhh4,2,5,5,13,7,4,9,8,9,12,10,18,11,15,12,3,13,9,13,5,14,13,14,12,15,4,16,15,17,6,18,4,21,12,V}22,15,20V2,6,-1,0`++17,2,15,22,16,22,18,22,9,12,17,22,-19~="@+,@=,W}>"6@@ ,,@>,>"6@@,,@>,X} AAv6-A,-@ 6@B2@d2@%+$@,@r6-&@Y}v J%2G2@J$C6-&@56-%P:H:,$A,Z}%@C6-&@b -@ 6@<2@ @@ b2;[}"6@)"6@%@7+,5@9;,$ L @8,L:LI=LI-1:IF LI=-3 THEN GOSUB 9150:GOSUB 600\}0:GOTO 2570 ' 1"@6!@2', 71%@"@6)@27,%@ 71&@]}"@6)@27,&@ 71&@"@6)@27,&@ 71%@"@6)^}@27,%@ <6-&@"6@( AP2 A`< A%p  @8, K6-@6-@_}!6-'6-36-@?6-@E6-K6- 6-@2 &"6@6-& A2 -A`} 9 E 6-6-!6-@-6-@96-@E6-@<  6-6-F 6-@2 A -a}@ 0@@ -@@P  0@@ -@@P b}   0@@ $%%6-P:H:,$@,%@"@A"@6-@c}"@6-@"@6-@"@6-@ AP"@6-@d}"@6-@"@6-@"@6-@"AC"@6-e}&@""@6-&@,"@6-%@6"@6-%@;) 1)"@6)"@9f}AAb@  ,B6-@2E+ 1"@6! A+ A%J @,O 6-6-To6-g}6-'6-36-?6-K6-W6-c6-o6-^c6-6-h}'6-36-?6-K6-W6-c6-h A%%6-P:H:,$@,%@i}!!"@*"@5AC!!"@*"@5AC!!"@*"@5AC!!"@*"@5j}AC AA 9 A0 A! A`/6-%@9 Ap< @26-%6-26@k}< A`qY"6@ A`,AVA$>-@Y(@ Ž rH-@@l}/(@ push trigger<"6@H6-s:0@@@:T:,"A`tW-@m}@P 50@I-@@PM W A`u& #A@"6@&6-w& @2 n}A`#AV&$z6-@##,//@3 6$XZZ0,0,19,0,19,0,19,23,19,23,0,23,0,23,0,0,3,3,o}5,3,5,2,5,2,9,1,11,1,14,3,16,3,14,2,14,2bgg9,4,11,6,9,6,11,4,16,5,14,5,14,6,14,6,9,10,11,10,11,10,11,12,11,12,9,12,9,12,9,p}10,3,5,5,5,5,6,5,6lYY3,9,3,10,5,9,5,10,14,9,14,10,16,9,16,10,3,12,3,13,5,12,5,13,14,12,14,13,16,12,16,13vRR10,15,10,17,q}9,16,11,16,3,17,5,17,14,17,16,17,3,19,5,19,14,19,16,19,8,20,9,20]]11,20,12,20,8,22,9,22,11,22,12,22,2,22,2,23,17,22,17,23r},12,21,12,21,8,21,8,21,3,19,3,20[[3,16,3,17,16,16,16,17,16,19,16,20,2,10,3,10,6,10,5,10,2,12,3,12,6,12,5,12,13,10,14,10s}//16,10,17,10,13,12,14,12,17,12,17,12,-1,-1__4,2,15,2,4,6,15,6,10,4,10,6,9,5,11,5,4,9,15,9,2,11,4,11,6,11,13,11,15,11,1t}7,11,4,13,15,13CC9,15,11,15,9,17,11,17,4,16,15,16,4,20,15,20,9,21,11,21,4,2,-1--10,21,10,13,10,12,10,11,10,22,10,12,-u}28@33121,6,96,6,91,6,81,1,0,8,121,8,96,8,91,8,81,1J440,8,121,8,96,8,91,8,81,2,96,2,121,2,96,2,108,1T990,8,96,8,96,8,v}108,8,121,2,121,6,96,2,81,4,81,4,91,2^770,8,91,8,96,8,91,8,81,2,96,2,108,4,108,4,121,1,-1(# #A2#"<#"6@w}A0P#"6-P:@P',Z#2@@d#"An#''2@%@@@x}x#-@ #%%2#%%2@#-@@ y}# A#$# #Ap#""6@$#6-P:$@,#""A#6-$@#2z}@@#''2@%@@@$-@ $%%2${}%%2@"$-@@ ,$ A`6$FF2,47,2,60,1,81,3,60,2,47,2,60,1,53,3,53,2,47,|}2,60,1,45,2,45,1,45@$WW1,47,1,47,1,53,1,53,3,60,1,0,1.5,47,.5,53,1,60,1,53,1,47,1,47,2,47,1,53,1,53,2,53J$ZZ1,47,1,40,2,4}}0,1.5,47,.5,53,1,60,1,53,1,47,1,47,2,47,1,53,1,53,1,47,1,53,3,60,1,0,-1T$}-@@4-@ 6@P~}2@ @T v2z }$'-@@'6-F:A,$'mA}F:A,-AF:A,BAF:A ,NA R f-@@j m$D:LEPRECHN.BASAw100 REM HARVEY WALLBANGER MODS110 REM CASSETTE MAKER PROGRAM120 REM 240 OPEN #1,8,128,"C:"241 PROG$(1,1)=CHR$(0)242 PROG}$(2,2)=CHR$(12)243 PROG$(3,3)=CHR$(250)244 PROG$(4,4)=CHR$(51) REM 240 OPEN #1,8,128,"C:"241 PROG$(1,1)=CHR$(0)242 PROGA;Q!B;======================================; HARVEY WALLBANGER by Charles Bachand;================================= }=====;======================================; Copyright (C) 1982 ANALOG Magazine;==================================== }==;------------------------;Operating System Equates;------------------------HPOSP0=$D000;player 0 horizontal pos }itionM0PF=$D000;missile 0/playfield collisionHPOSP2=$D002;player 2 horizontal positionHPOSP3=$D003;player 3 horiz }ontal positionHPOSM0=$D004;missile 0 horizontal positionP0PF=$D004;player 0/playfield collisionsP0PL=$D00C;player } 0 to player collisionsGRP2=$D00F;player 2 graphics registerCOLBK=$D01A;background colorGRACTL=$D01D;graphics con }trol registerHITCLR=$D01E;collision 'HIT' clearCONSOL=$D01F;console switch portAUDF1=$D200;audio frequency 1AUDC }1=$D201;audio volume 1AUDF2=$D202;audio frequency 2AUDC2=$D203;audio volume 2AUDF3=$D204;audio frequency 3AUD }C3=$D205;audio volume 3AUDF4=$D206;audio frequency 4AUDC4=$D207;audio volume 4RANDOM=$D20A;random number gener }atorIRQEN=$D20E;IRQ interrupt enablePMBASE=$D407;P/M base addressWSYNC=$D40A;wait for horizontal syncVCOUNT=$D }40B;scan line counterSETVBV=$E45C;set vertical blank vectorXITVBV=$E462;vertical blank exit vectorSIOINT=$E465;s }erial I/O initializationATRACT=$004D;atract mode counter;-----------------------;System Shadow Registers;--------- }--------------RTCLOK=$0012;system clockCDTMV1=$0218;system timer 1CDTMV2=$021A;system timer 2CDTMA1=$0226;sy }stem timer 1 vectorCDTMA2=$0228;system timer 2 vectorSDMCTL=$022F;DMA controlSDLSTL=$0230;display list pointerGP }RIOR=$026F;graphics prioritySTICK0=$0278;joystick 1STRIG0=$0284;trigger 1PCOLR0=$02C0;player 0 colorPCOLR1= }$02C1;player 1 colorPCOLR2=$02C2;player 2 colorPCOLR3=$02C3;player 3 colorCOLOR2=$02C6;playfield 2 colorCOLOR3 }=$02C7;playfield 3 colorCOLOR4=$02C8;background color;-------------------;Page Zero Variables;------------------ }-ORG$0080;area not used by systemPICDS2;rabbit image pointer;--------------------------;Player / Missile RAM S }pace;--------------------------ORG$3000;out of everyones wayPMDS$180;first area not usedMISLDS$80;Missile gra }phics areaPLR0DS$80;player 0 graphics areaPLR1DS$80;player 1 graphics areaPLR2DS$80;player 2 graphics areaPLR3D }S$80;player 3 graphics area;-------------------;Program entry point;-------------------JMPHARVEY;------------ }-----;Game display list;-----------------DLDB$70,$70;32 blank scan linesDB$70,$70DB$47;mode 2 line w/LMS bit }DWDISP;address of game displayDB$07,$07;9 more mode 2 linesDB$07,$07DB$07,$07DB$07,$07DB$07DB$70,$70;s }kip 16 linesDB$46;mode 1 lime w/LMS bitDWSLINE;address of score lineDB$41;jump on vertical blankDWDL;to start } of display list;---------------;Score line data;---------------SLINEDB'R'+$A0DB'A'+$A0DB'B'+$A0DB'B'+$A0 }DB'I'+$A0DB'T'+$A0DB'S'+$A0DB':'+$A0RNUMDB'3'+$A0;number of rabbitsDB' '+$A0DB'S'+$A0DB'C'+$A0DB' }O'+$A0DB'R'+$A0DB'E'+$A0DB':'+$A0SNUMDB'0'+$A0;score displayDB'0'+$A0DB'0'+$A0DB'0'+$A0;------------ }-----;Game over message;-----------------GOMSGDB'game'DB0,0,'ov'DB'er',$80PSMSGDB'pres'DB's',0,0,'s'DB }'tart',$80;-------------------;Initialization Code;-------------------HARVEYCLD;clear decimal flagJSRSIOINT; }stop cassetteLDA#'3'+$A0;display for '3'STARNUM;3 lives (display)LDA#3;get 3 livesSTALIVES;initialize counter }LDA#'0'+$A0;display for '0'STASNUM;store in the fourSTASNUM+1;bytes used for theSTASNUM+2;score displaySTASN }UM+3;area.MORELDA#60;get 1 second countSTATIM2ST;set reset valueSTACDTMV2;set system timer #2JSRCLSCRN;clear } game playfieldLDY#2;display 3 numbers (0-2)INUMSJSRPUTNUM;put the number on screenDEY;decrement number counter }BPLINUMS;done yet? No.LDA#DL&$FF;Yes. low byte DL addressSTASDLSTL;DL pointer (low)LDA#DL/256;high byte DL addr }essSTASDLSTL+1;DL pointer (high)LDA#$04;set PF over PLAYERSTAGPRIOR;graphics priorityLDA#40;high wallSTABYL }OC;starting locationLDA#196;low wallSTABYLOC+1;starting locationLDA#60;left wallSTABXLOC;starting location }STAHPOSP2;hardware registerLDA#184;right wallSTABXLOC+1;starting locationSTAHPOSP3;hardware registerLDA#122 };center screen-4 color clocksSTAHARX;Harvey's initial X positionLDA#55;center P/M-8 bytesSTAHARY;Harvey's initial } Y positionLDA#$2E;set P/M DMA on bitsSTASDMCTL;store in DMA controlLDA#3;set P/M enable bits onSTAGRACTL;sto }re in graphics controlLDA#PM/256;get high byte of P/M addrSTAPMBASE;point hardware to itLDA#$96;light blue color }STACOLOR2;default color too darkLDA#$48;pink colorSTACOLOR3;same hereLDA#$18;gold colorSTAPCOLR0;set rabbi }t colorLDA#$98;blue colorSTAPCOLR1;set missile 1 colorLDA#$34;red-orange colorSTAPCOLR2;left wall colorLDA }#$C4;green colorSTAPCOLR3;right wall colorLDA#1;initialize trigger flag-STASTRIGF;to no shot firedLDX#VB/256 };address of VB (MSB)LDY#VB&$FF;address of VB (LSB)LDA#7;deferred vertical blank optJSRSETVBV;set deferred Vblank }vectorLDA#T1&$FF;addr of timer 1 routine LSBSTACDTMA1;set timer 1 vector LSBLDA#T1/256;addr of timer 1 routine MS }BSTACDTMA1+1;set timer 1 vector MSBLDA#T2&$FF;addr of timer 2 routine LSBSTACDTMA2;set timer 2 vector LSBLDA#T2 }/256;addr of timer 2 routine MSBSTACDTMA2+1;set timer 2 vector MSBLDA#1;get 4.25 second countSTACDTMV1+1;set syste }m timer #1LDA#0;get a zeroSTAHITCLR;reset collision registersSTADIESW;rabbit is aliveSTATICTOC;reset tictoc c }ounterSTAVOL1;start with no tictoc soundSTAVOL2;start with no shuffle noiseSTAIRQEN;disable all IRQ interruptsL }DX#3;set index value to 3WINCZSTAWINC,X;zero wall mover counterSTASHOTX,X;zero X missile locationSTASHOTY,X;zer }o Y missile locationSTASINCX,X;zero X missile incrementSTASINCY,X;zero Y missile incrementDEX;next wall mover cou }nterBPLWINCZ;more walls/missiles? Yes.TAX;set index to zeroIM01STAMISL,X;clear Missile areaSTAPLR0,X;clear Pl }ayer 0, 1 areaINX;do next byteBNEIM01;done yet? No.LDA#$FF;turn on pixelsIM23STAPLR2,X;set Player 2, 3 area }INX;do next byteBNEIM23;done yet? No.;------------------------------------------;Main program used to generate the } display.;Actual game done entirely during display's;vertical blank processing routine.;------------------------------- }-----------HBARSINX;increment wall pointerTXA;transfer pointer to AccAND#1;mask off lowest bitTAX;put back i }n X registerLDABYLOC,X;get wall vertical positionLSRA;divide by 2, odd=carry setPHP;save carry flagVCHECKCMPVC }OUNT;compare with line counterBNEVCHECK;not yet!STAWSYNC;start at new linePLP;get carry flag backBCCONELIN;b }ranch on even line numberSTAWSYNC;wait for next lineONELINLDARANDOM;random background colorAND#$F6;max lum of 6 }STACOLBK;for horizontal wallsLDY#10;let's have 10 lines of thisLINESLDA#0;get a zero for overlapSTAGRP2,X;backg }round overlaps playerSTAWSYNC;wait for next lineLDARANDOM;random background colorAND#$F6;max lum of 6STACOLBK };for horizontal wallsDEY;decrement line counterBNELINES;10 lines done yet? No!LDACOLOR4;get original background }STACOLBK;store in backgroundLDALIVES;more livesBEQHB1;No. skip codeLDADIESW;a new life?BPLHB1;No.JMPMORE };Yes. more livesHB1LDACONSOL;check for start switchAND#$01;mask off bitBNEHBARS;start? No.JMPHARVEY;restart }game;-----------------------------------------;System timer #1 interrupt handler.;Used to speed up walls every 4.25 se }conds.;-----------------------------------------T1LDATIM2ST;get wall speedCMP#2;must stop at twoBEQTIM1;is it }two? Yes.DECTIM2ST;No, then decrementTIM1LDA#1;get 4.25 second cycle timeSTACDTMV1+1;reset timer #1RTS;return };-------------------------------------------;System timer #2 interrupt handler.;Used to move walls and initiate wall no }ise.;-------------------------------------------T2LDATIM2ST;get timer #2 valueSTACDTMV2;reset timer #2INCBYLOC };move top wall downDECBYLOC+1;move bottom wall upINCBXLOC;change left wall locationLDABXLOC;get new locationSTA }HPOSP2;change player 2 positionDECBXLOC+1;change right wall locationLDABXLOC+1;get new locationSTAHPOSP3;change } player 3 positionINCTICTOC;increment TIC-TOC counterLDATICTOC;get counter valueAND#1;just need 0 or 1 valueTAX };use for indexLDAMETRO,X;get sound frequencySTAAUDF1;change frequencyLDA#$08;get volume valueSTAVOL1;save i }n volume counterRTS;return;-------------------------------------------;Deferred vertical blank processing routine.; }Here is where all the actual game playing ;takes place. This could be quite long.;-------------------------------------- }-----VBLDADIESW;rabbit dying?BNEVB0;He sure is.LDALIVES;any lives left?BNEVB0;There sure are.JSRCLSCRN;c }lear screen of numbersLDX#0;initialize X with zeroSTXAUDC1;stop tictoc soundSTXAUDC2;stop dying soundSTXAUDC3 };stop gun noiseSTXAUDC4;stop number soundSTXCDTMV1;shut off the two timersSTXCDTMV1+1;ditto.STXCDTMV2;same her }e.GOPRTLDAGOMSG,X;get a characterBMIPSINIT;end of scring? Yes.STADISP+85,X;put on screenINX;increment indexJ }MPGOPRT;continuePSINITLDX#0;zero the indexPSPRTLDAPSMSG,X;get another characterBMIVBXIT;end of string? Yes.S }TADISP+144,X;put on screenINX;increment indexJMPPSPRT;continueVBXITJMPVBX;exit vertical blankVB0LDAP0PL;play }er/player collisionsSTAP0PLT;store in temp variableLDAP0PF;player to PF collisionsSTAP0PFT;store in temp variable }LDANSOUND;treasure sound counterBMINOSND;end of sound? Yes.DECNSOUND;decrement volumeLSRA;divide volume by 2 }ORA#$A0;add pure toneSTAAUDC4;change volumeNOSNDLDAVOL1;get tictoc volume valueBMISND2;if <0 we produce no sou }ndDECVOL1;decrement volume valueORA#$C0;mask on the distortionSTAAUDC1;generate the tictoc soundSND2LDAVOL2;g }et shuffle volumeBMISND3;if <0 we produce no soundDECVOL2;decrement volume valueORA#$80;mask on the distortionS }TAAUDC2;generate the shuffle noiseSND3LDAFREQ3;get shot frequencyINCFREQ3;increment shot frequencyINCFREQ3;do i }t againINCFREQ3;and one last timeSTAAUDF3;change frequency (lower)LDADIESW;is rabbit dyingBEQTMOV1;No. contin }ueINCDIESW;Yes. 2 second die periodINCPCOLR0;change rabbit colorsINCPCOLR0;againLDAPCOLR0;get numberASLA; }*2ASLA;*4ASLA;*8STAAUDF2;use as frequencyLDA#$88;get distortionSTAAUDC2;make soundJMPVBX;exit vertica }l blankTMOV1LDAWINC;check push wall upBEQTMOV2;push up? No.DECWINC;decrement push up counterLDABYLOC;get top } wall locationCMP#28;compare with top of screenBEQTMOV2;at top? Yes.DECBYLOC;move wall upTMOV2LDAWINC+1;check } push wall downBEQTMOV3;push down? No.DECWINC+1;decrement push down counterLDABYLOC+1;get bottom wall locationC }MP#204;compare bottom of screenBEQTMOV3;at bottom? Yes.INCBYLOC+1;move wall downTMOV3LDAWINC+2;check push wall }leftBEQTMOV4;push left? No.DECWINC+2;decrement push left counterLDABXLOC;get left wall positionSTAHPOSP2;move } left wall playerCMP#39;check for left wall limitBEQTMOV4;at limit? Yes.DECBXLOC;move wall leftTMOV4LDAWINC+3 };check push wall rightBEQTMOVX;push right? No.DECWINC+3;decrement push right counterLDABXLOC+1;get right wall pos }itionSTAHPOSP3;move right wall playerCMP#208;check for right wall limitBEQTMOVX;at limit? Yes.INCBXLOC+1;move } wall rightTMOVXLDA#0;get a zeroSTAATRACT;poke out atract modeSTAXTEMP;zero rabbit X incrementSTAYTEMP;zero r }abbit Y incrementLDASTICK0;get joystick valueCMP#$0F;at center position?BEQCENTER;Yes. skip codeLDARTCLOK+2;ge }t real time clock LSBAND#$07;at 1/7.5 second mark?BNECENTER;No. skip codeLDA#$10;get shuffle frequencySTAAUDF2 };set frequency registerLDA#$04;get volume valueSTAVOL2;set shuffle volumeCENTERLDASTICK0;get joystick valueSEC };set carry for subtractSBC#5;values 5-15 onlyASLA;5-15 now 0,2,4,...TAX;use for indexLDARTCLOK+2;get real ti }me clock LSBRORA;divide by 2RORA;divide by 4RORA;divide by 8RORA;carry set/reset at .13 secLDAPK1,X;get r }abbit picture LSBBCCPICMVL;other pic at .13 sec? No.LDAPK2,X;get alternate picture LSBPICMVLSTAPIC;store LSB of p }ic addressLDAPK1+1,X;get rabbit picture MSBBCCPICMVH;other pic at .13 sec? No.LDAPK2+1,X;get alternate picture MS }BPICMVHSTAPIC+1;store MSB of pic addressLDX#3;count 3 downto 0CHKSTKLSRSTICK0;shift bit into carryBCSCHKNXT;c }orrect direction? No.LDASTBLX,X;check X movement directionBEQCHK0;movement allowed? No.STAXTEMP;store X movement }valueCHK0LDASTBLY,X;check Y movement directionBEQCHKNXT;movement allowed? No.STAYTEMP;store Y movement valueCHKN }XTDEX;do next stick positionBPLCHKSTK;done yet? No.LDAP0PLT;get player 0 collisionCMP#$0C;left/right squeze? }BNENOSQUE;No. Check indvdual wallsDECRNUM;decrement lives displayDECLIVES;decrement lines counterINCDIESW;the r }abbit has died switchNOSQUEAND#$04;check left wall collisionBEQBMPRT;hit left wall? No.INCHARX;Yes. Move rabbit t }o rightLDA#0;get zero valueSTAXTEMP;stop rabbit X movementBMPRTLDAP0PLT;get player 0 collisionAND#$08;check r }ight wall collisionBEQBMPUP;hit right wall? No.DECHARX;Yes. Move rabbit to leftLDA#0;get zero valueSTAXTEMP;s }top rabbit X movementBMPUPCLC;clear carry for addLDABYLOC;top wall Y locationADC#4;offset by 4LSRA;divide by }2CMPHARY;compare rabbit Y locationBCCBMPDN;hit top wall? No.DECRNUM;decrement lives displayDECLIVES;decrement } lines counterINCDIESW;the rabbit has died switchBMPDNLDAHARY;get rabbit Y locationADC#10;offset by 10ASLA;mu }ltiply by 2CMPBYLOC+1;compare bottom wall YBCCNOBMP;hit bottom wall? No.DECRNUM;decrement lives displayDECLIVE }S;decrement lines counterINCDIESW;the rabbit has died switchNOBMPCLC;clear carry for addLDAHARX;get rabbit X pos }itionADCXTEMP;add X incrementSTAHARX;save new rabbit X positionSTAHPOSP0;position rabbit player 0CLC;clear ca }rry for addLDAHARY;get rabbit Y positionADCYTEMP;add Y incrementSTAHARY;save new rabbit Y positionTAX;use pos }ition as indexLDY#0;initialize picture counterMOVHARLDA(PIC),Y;get rabbit picture byteSTAPLR0,X;store in player 0 } areaINX;increment player pointerINY;increment picture pointerCPY#14;check for end of pictureBNEMOVHAR;at end }? No.LDASTRIG0;get trigger valueCMPSTRIGF;compare with trigger flagSTASTRIGF;save new trigger flagBCSNOFIRE;s }hot fired? No.LDAXTEMP;rabbit X incrementORAYTEMP;OR rabbit Y incrementBNEFIREGN;rabbit stationary? No.INCSTRI }GF;set trigger flag to 1BNENOFIRE;skip fire routineFIREGNLDA#$40;initialize frequencySTAFREQ3;zero audio freq 3 }LDA#$04;shot volume + distortionSTAAUDC3;enable volume 3INCSHOTS;increment shot pointerLDASHOTS;get shot point }erAND#3;make it 0-3 onlyTAX;use pointer for indexLDAXTEMP;get rabbit X incrementASLA;make shot twice as fast }STASINCX,X;set missile X incrementLDAYTEMP;get rabbit Y incrementASLA;make shot twice as fastSTASINCY,X;set mi }ssile Y incrementCLC;clear carry for addLDAHARX;get rabbit X positionADC#3;move to center X of rabbitSTASHOTX, }X;shot initial X positionLDAHARY;get rabbit Y positionADC#8;move to center Y of rabbitSTASHOTY,X;shot initial Y }positionNOFIRELDA#0;zero accumulatorTAX;zero X indexERASESSTAMISL,X;zero all missilesINX;next missile byteB }PLERASES;done? No.LDX#3;count 3 downto 0PLOTSLDASINCX,X;get missile X incrementORASINCY,X;OR missile Y incremen }tBEQNOPLOT;any movement? No.LDASHOTY,X;missile Y positionCLC;clear carry for addADCSINCY,X;add Y incrementS }TASHOTY,X;store new Y positionTAY;Y position now indexASLA;multiply by 2ADC#2;offset for compareCMPBYLOC+1; }compare with bottom wallBCCHITTP;hit bottom wall? No.JSRZINCXY;zero missile incrementsADCWINC+1;add 8 to wall inc }rementSTAWINC+1;new bottom wall incrementJMPPLOTNH;continueHITTPSBC#12;offset for bottom sideCMPBYLOC;compar }e with top wallBCSPLOTNH;hit top wall? No.JSRZINCXY;zero missile incrementsADCWINC;add 8 to wall incrementSTAW }INC;new top wall incrementPLOTNHLDAMISL,Y;get missile byteORAMISMSK,X;OR missile maskSTAMISL,Y;store new byteLD }AMISL+1,Y;get next missile byteORAMISMSK,X;OR missile maskSTAMISL+1,Y;store new next byteLDAM0PF,X;missile/playfie }ld collisionLDY#0;init Y registerMHPFRORA;collision?BCCMHPF0;No. No. No.JMPMHIT;Yes. Yes. Yes.MHPF0INY;tr }y next bitCPY#4;any more bits?BNEMHPF;Certainly! Yuk. Yuk.CLC;clear carry for addLDASHOTX,X;get missile X pos }itionADCSINCX,X;add X incrementSTASHOTX,X;store new X positionSTAHPOSM0,X;position missileCMPBXLOC+1;compare m }issile with wallBCCHITLF;hit right wall? No.JSRZINCXY;zero missile incrementsADCWINC+3;add 8 to wall incrementS }TAWINC+3;new wall incrementJMPNOPLOT;continueHITLFSBC#6;offset for right sideCMPBXLOC;compare with left wall }BCSNOPLOT;hit left wall? No.JSRZINCXY;zero missile incrementsADCWINC+2;add 8 to wall incrementSTAWINC+2;new wal }l incrementNOPLOTDEX;next missileBMINOPL1;missiles done? Yes.JMPPLOTS;continue loopNOPL1LDX#3;set up pointer }LDA#0;zero accumulatorCHKMISORASINCX,X;OR in X incrementsORASINCY,X;OR in Y incrementsDEX;decrement pointer }BPLCHKMIS;at end? No.CMP#0;check shot incrementsBNENOSSND;any increments? Yes.STAAUDC3;end shot soundNOSSNDLD }Y#0;initialize Y indexMISHITLSRP0PFT;shift collision to carryBCCMH1;collision w/number? No.JSRERANUM;erase the }numberLDAVTBL,Y;get value of numberPHA;save on stackJSRPUTNUM;put out a new numberPLA;get old numberTAY;u }se as counter valueBEQSCX;was it zero? Yes.SCORERLDX#3;point to score low digitSC1INCSNUM,X;increment digitLDA }SNUM,X;get digitCMP#'9'+$A1;past ATASCII '9'+color?BNESCY;No. continueLDA#'0'+$A0;reset digitSTASNUM,X;change }score displayDEX;point to next digitBPLSC1;score rolled over? No.SCYDEY;decrement valueBNESCORER;scoring done }? No.SCXJMPVBX;exit routineMH1INY;check next color digitCPY#3;done 0-2 yet?BNEMISHIT;No. continueVBXSTAHI }TCLR;clear collision registersJMPXITVBV;exit deferred vertical blankMHITTXA;save X registerPHA;on stackJSRER }ANUM;erase number hit andJSRPUTNUM;put a new one on screenPLA;pull X registerTAX;from stackJMPNOPLOT;continu }e on;-------------------------;Commonly used subroutines;-------------------------;Clear missile display areaZINC }XYLDA#0;get zero valueSTASINCX,X;zero missile X incrementSTASINCY,X;zero missile Y incrementCLC;clear carry fo !}r addLDA#8;get value for addRTS;we return to the program;Clear the game playfieldCLSCRNLDX#200;set 0-199 byte "}sLDA#0;to zeroCL0STADISP-1,X;store in displayDEX;count downBNECL0;past zero yet? No.RTS;return to program #};Put random number from 0-9 on screen at;a random location 0-199PUTNUMLDXRANDOM;get random numberCPX#200;is numb $}er < 200?BCSPUTNUM;No. try anotherLDADISP,X;see if space is occupiedBNEPUTNUM;Yes. try againPN0LDARANDOM;get %}another random numberAND#$0F;limit it to 0-15CMP#10;is number < 10?BCSPN0;No. try anotherSTAVTBL,Y;save numbe &}rORACTBL,Y;OR with colorSTADISP,X;put number on screenTXA;move screen offset to ASTAATBL,Y;save screen offset '}RTS;end of routine;Erase number from screenERANUMLDA#0;get zero for blankLDXATBL,Y;get # position on screen (}STADISP,X;blank number on screenLDARANDOM;get random numberAND#$1F;mask off high bitsORA#$10;make it $10-$1FS )}TAAUDF4;use as sound frequencyLDA#30;initialize-STANSOUND;volume counterRTS;end of routine;----------------- *}-----------;Program tables and constants;----------------------------MISMSKDB$03;missile 0 maskDB$0C;missile 1 m +}askDB$30;missile 2 maskDB$C0;missile 3 maskHARLF1DB0,0;left view #1DB$12,$0ADB$3C,$74DB$3C,$1CDB$1E, ,}$3EDB$3F,$7EHARLF2DB0,0;left view #2DB$0B,$0ADB$3C,$74DB$3C,$1CDB$1E,$3EDB$3E,$F7HARRT1DB0,0;right -}view #1DB$48,$50DB$3C,$2EDB$3C,$38DB$78,$7CDB$FC,$7EHARRT2DB0,0;right view #2DB$D0,$50DB$3C,$2EDB .}$3C,$38DB$78,$7CDB$7C,$EFHARFR1DB0,0;front view #1DB$42,$24DB$3C,$14DB$3C,$18DB$3C,$7EDB$7E,$E7HARF /}R2DB0,0;front view #2DB$42,$24DB$3C,$28DB$3C,$18DB$3C,$7EDB$7E,$E7HARDN1DB0,0;down view #1DB$44,$24 0}DB$3C,$14DB$3C,$18DB$3C,$7EDB$FE,$07HARDN2DB0,0;down view #2DB$22,$24DB$3C,$28DB$3C,$18DB$3C,$7E 1}DB$7F,$E0HARUP1DB0,0;up view #1DB$44,$24DB$3C,$3CDB$3C,$18DB$3C,$66DB$FE,$07HARUP2DB0,0;up view #2D 2}B$22,$24DB$3C,$3CDB$3C,$18DB$3C,$66DB$7F,$E0DB0,0PK1DWHARRT1;rabbit pictures set 1DWHARRT1DWHARRT1 3}DW0DWHARLF1DWHARLF1DWHARLF1DW0DWHARDN1DWHARUP1DWHARFR1PK2DWHARRT2;rabbit pictures set 2DWHARR 4}T2DWHARRT2DW0DWHARLF2DWHARLF2DWHARLF2DW0DWHARDN2DWHARUP2DWHARFR2CTBLDB$10,$50;color offset ta 5}bleDB$90METRODB38,41;tictoc tonesSTBLXDB$01,$FF;joystick X incrementsDB$00,$00STBLYDB$00,$00;joystick Y inc 6}rementsDB$01,$FF;---------------------;Variable Storage Area;---------------------HARXDS1;Harvey's X locatinH 7}ARYDS1;Harvey's Y locationBYLOCDS2;horizontal wall Y locationsBXLOCDS2;vertical wall X locationsVOL1DS1;tictoc 8} volumeVOL2DS1;shuffle volumeFREQ3DS1;shot frequencyNSOUNDDS1;pick number up soundTICTOCDS1;tictoc sound coun 9}terTIM2STDS1;wall speed timerWINCDS4;wall mover countersSTRIGFDS1;trigger compare registerXTEMPDS1;temporary :}variableYTEMPDS1;temporary variableP0PLTDS1;player 0 collision shadowP0PFTDS1;PL to PF collision shadowVTBLDS3 ;};value of #'s on screenATBLDS3;screen offset to #'sSHOTSDS1;shot enable counterLIVESDS1;number of lives leftDIE <}SWDS1;rabbit dying switchSHOTXDS4;missile X locationSHOTYDS4;missile Y locationSINCXDS4;missile X incrementSI =}NCYDS4;missile Y incrementDISPDS200;screen display areaENDHARVEYle Y locationSINCXDS4;missile X incrementSI M#$\dxPROGPNTLINCOUNBYTTOTACHECKSU:@@XA0@AptAIdHARVEY WALLBAN?}GERnDISK MAKER PROGRAMx;A,6-@6-A  A %6-%@%-@@@}"67,.>:,6-%@6-% (LINE:""AP (BAD CHECKSUM: LINE  & F:A}A,"@A@(BAD DATA: LINE &..@@ D:AUTORUN.SYS @B}<<255,255,0,52,216,57,76,71,52,112,112,112,112,71,7,15600058,7,7,7,7,7,7,7,7,7,112,112,70,27,52,2054BB65,3,52,242,C}225,226,226,233,244,243,218,211,192,243,227,4904AA239,242,229,218,208,208,208,208,103,97,109,101,0,0,111,7185AA118,10D}1,114,128,112,114,101,115,115,0,0,115,116,97,114,8645BB116,128,216,32,101,228,169,211,141,35,52,169,3,141,245,10632$>>E}57,169,208,141,43,52,141,44,52,141,45,52,141,46,52,12016.==169,60,141,228,57,141,26,2,32,220,56,160,2,32,231,135738<<56F},136,16,250,169,3,141,48,2,169,52,141,49,2,169,14976B@@4,141,111,2,169,40,141,219,57,169,196,141,220,57,169,16812L@@60,G}141,221,57,141,2,208,169,184,141,222,57,141,3,208,18767V@@169,122,141,217,57,169,55,141,218,57,169,46,141,47,2,20518`??H}169,3,141,29,208,169,48,141,7,212,169,150,141,198,2,22305j??169,72,141,199,2,169,24,141,192,2,169,152,141,193,2,24073t??I}169,52,141,194,2,169,196,141,195,2,169,1,141,233,57,25935~??162,53,160,204,169,7,32,92,228,169,137,141,38,2,169,27698<J}<53,141,39,2,169,153,141,40,2,169,53,141,41,2,169,29013==1,141,25,2,169,0,141,30,208,141,246,57,141,227,57,30599AA14K}1,223,57,141,224,57,141,14,210,162,3,157,229,57,157,32572@@247,57,157,251,57,157,255,57,157,3,58,202,16,238,170,34654@L}@157,128,49,157,0,50,232,208,247,169,255,157,0,51,232,36746??208,250,232,138,41,1,170,189,219,57,74,8,205,11,212,38761M}@@208,251,141,10,212,40,144,3,141,10,212,173,10,210,41,40567AA246,141,26,208,160,10,169,0,157,15,208,141,10,212,173,424N}43AA10,210,41,246,141,26,208,136,208,237,173,200,2,141,26,44448==208,173,245,57,240,8,173,246,57,16,3,76,99,52,173,46O}274==31,208,41,1,208,177,76,71,52,173,228,57,201,2,240,48040<<3,206,228,57,169,1,141,25,2,96,173,228,57,141,26,49593P}??2,238,219,57,206,220,57,238,221,57,173,221,57,141,2,51702 BB208,206,222,57,173,222,57,141,3,208,238,227,57,173,227,54Q}121==57,41,1,170,189,207,57,141,0,210,169,8,141,223,57,55792@@96,173,246,57,208,60,173,245,57,208,55,32,220,56,162,57R}840(<<0,142,1,210,142,3,210,142,5,210,142,7,210,142,24,594302882,142,25,2,142,26,2,189,47,52,48,7,157,92,58,60421<==S}232,76,240,53,162,0,189,58,52,48,7,157,151,58,232,62136F??76,254,53,76,189,56,173,12,208,141,236,57,173,4,208,64052P>>1T}41,237,57,173,226,57,48,9,206,226,57,74,9,160,141,65873Z<<7,210,173,223,57,48,8,206,223,57,9,192,141,1,210,67638d>>173,U}224,57,48,8,206,224,57,9,128,141,3,210,173,225,69524nAA57,238,225,57,238,225,57,238,225,57,141,4,210,173,246,71915x>>57V},240,26,238,246,57,238,192,2,238,192,2,173,192,2,74010>>10,10,10,141,2,210,169,136,141,3,210,76,189,56,173,75546@@229W},57,240,13,206,229,57,173,219,57,201,28,240,3,206,77704BB219,57,173,230,57,240,13,206,230,57,173,220,57,201,204,80041AX}A240,3,238,220,57,173,231,57,240,16,206,231,57,173,221,82404??57,141,2,208,201,39,240,3,206,221,57,173,232,57,240,84481Y}@@16,206,232,57,173,222,57,141,3,208,201,208,240,3,238,86686??222,57,169,0,133,77,141,234,57,141,235,57,173,120,2,8850Z}4==201,15,240,16,165,20,41,7,208,10,169,16,141,2,210,89965==169,4,141,224,57,173,120,2,56,233,5,10,170,165,20,91514[}CC106,106,106,106,189,160,57,144,3,189,182,57,133,128,189,93369>>161,57,144,3,189,183,57,133,129,162,3,78,120,2,176,949\}66??16,189,209,57,240,3,141,234,57,189,213,57,240,3,141,96955??235,57,202,16,232,173,236,57,201,12,208,9,206,35,52,98]}886>>206,245,57,238,246,57,41,4,240,8,238,217,57,169,0,100909>>141,234,57,173,236,57,41,8,240,8,206,217,57,169,0,1027^}53??141,234,57,24,173,219,57,105,4,74,205,218,57,144,9,104474"AA206,35,52,206,245,57,238,246,57,173,218,57,105,10,10,1_}06389,@@205,220,57,144,9,206,35,52,206,245,57,238,246,57,24,1083906BB173,217,57,109,234,57,141,217,57,141,0,208,24,173,`}218,110416@@@57,109,235,57,141,218,57,170,160,0,177,128,157,0,50,112132JCC232,200,192,14,208,245,173,132,2,205,233,57,1a}41,233,57,114456T@@176,63,173,234,57,13,235,57,208,5,238,233,57,208,50,116463^AA169,64,141,225,57,169,4,141,5,210,238,2b}44,57,173,244,118604h??57,41,3,170,173,234,57,10,157,255,57,173,235,57,10,120293r??157,3,58,24,173,217,57,105,3,157,247c},57,173,218,57,121999|AA105,8,157,251,57,169,0,170,157,128,49,232,16,250,162,123910==3,189,255,57,29,3,58,240,127,189,d}251,57,24,125,3,125520@@58,157,251,57,168,10,105,2,205,220,57,144,12,32,208,127206@@56,109,230,57,141,230,57,76,31,56e},233,12,205,219,57,128975@@176,9,32,208,56,109,229,57,141,229,57,185,128,49,29,130669@@34,57,153,128,49,185,129,49,29f},34,57,153,129,49,189,132093>>0,208,160,0,106,144,3,76,195,56,200,192,4,208,245,133890BB24,189,247,57,125,255,57,157,g}247,57,157,4,208,205,222,136101@@57,144,12,32,208,56,109,232,57,141,232,57,76,111,56,137681@@233,6,205,221,57,176,9,3q}B&DOS SYSBV*LEPRECHNBASBHARVCASSLSTBHARVEY ASMB7>HARVEY BASB=~THUNDER BASBMANIAC BASB ?MENU BLPRETTY BASBgOSLOT BASBMANDISK LST2,208,56,109,231,57,141,231,139653;;57,202,48,3,76,232,55,162,3,169,0,29,255,57,29,141030;;3,58,202,16,247,201,0,208,r}3,141,5,210,160,0,78,142562??237,57,144,40,32,10,57,185,238,57,72,32,231,56,104,144114??168,240,23,162,3,254,43,52,18s}9,43,52,201,218,208,8,145978CC169,208,157,43,52,202,16,238,136,208,233,76,189,56,200,148161??192,3,208,206,141,30,208t},76,98,228,138,72,32,10,57,149860??32,231,56,104,170,76,111,56,169,0,157,255,57,157,3,151494&>>58,24,169,8,96,162,200,u}169,0,157,6,58,202,208,250,1532610BB96,174,10,210,224,200,176,249,189,7,58,208,244,173,10,155489:@@210,41,15,201,10,176v},247,153,238,57,25,204,57,157,7,157287D??58,138,153,241,57,96,169,0,190,241,57,157,7,58,173,159082N==10,210,41,31,9,16,w}141,6,210,169,30,141,226,57,96,160475X883,12,48,192,0,0,18,10,60,116,60,28,30,62,63,161177b88126,0,0,11,10,60,116,60,28x},30,62,62,247,0,0,161989l<<72,80,60,46,60,56,120,124,252,126,0,0,208,80,60,163333v;;46,60,56,120,124,124,239,0,0,66,36,y}60,20,60,24,164368<<60,126,126,231,0,0,66,36,60,40,60,24,60,126,126,16550977231,0,0,68,36,60,20,60,24,60,126,254,7,0,z}0,166455::34,36,60,40,60,24,60,126,127,224,0,0,68,36,60,1674108860,60,24,60,102,254,7,0,0,34,36,60,60,60,24,168251{}8860,102,127,224,0,0,62,57,62,57,62,57,0,0,38,1691599957,38,57,38,57,0,0,110,57,134,57,86,57,74,57,1700386674,57,74,|}57,0,0,50,57,50,57,50,57,0,0,122,1707438857,146,57,98,57,16,80,144,38,41,1,255,0,0,0,171733110,1,255,226,2,227,2,0,52}},0,0,0,0,0,0,172498 D:HARVEY.BAS8857,146,57,98,57,16,80,144,38,41,1,255,0,0,0,171733110,1,255,226,2,227,2,0,52(8mCCDMDBYTHEXC1QC70CCCCCCCCC1C1C1C1C1C12C56C56C71C71C71DLIRSC70SKILLEVELLE}VELLEVELLEVELWLEVELWWIDTHWIDTHPMFLAS@ } } !"#$%&'(})*+,-./012d APn 2$x-@}P $36-@:7<,,&@H36-@:7%<%,,&@H-6-8,%$8,6-%*F:B7p,-$33"}I%;,;,;AB,9@",/+@5-I( initializing -"6}7,.>:, > -"67,.>:, --@"1":68,-> E 6-6-"%-B:,&/ A0=}Aq%A E K 6-6-@!"+-B:,&5 A0CB%G K ?-BB!} 5-A6Ap;? %+A%B7tAE !6-F:,%AV$F:,%)%1%E%@}$@e%%@%F:,%%@&F:, g%@ A01AP:C:,'AV,UA}C:,&+F:A,$AV,gBBA)AR-)(THUNDER ISLAND%-@"%(}"6-@ 6("Copyright (C)1983 ANALOG Computing,/ -%-@P/26"@%}@K  -@QAU)2- 9@PE@PKJ+AA!A"+ AT}A -"((-A(ONEүŠ^(-@((h 6-6-r*-}@'(&-A* |F:B2y,A@. 6-%6-&$+",-%".(ONE 2 A} "(TWO "*!6- Ap A  A F:B2y,A% 6-%"%6-&}$+"@,# "#6-&@0$+"@1,2@  A ApF:B2y,A"}A@1 6-+ , 6-&$P:+&,',16-&P:+&,',(6- A56-+ @(,&6-&$P:+&,',56}-P:+&,',&")")"6-0")")"6-:")")"6-D")")"6-N")")"6}-X")")"6-b+ +@!A+B7tAl?#6-@$+",%AU$+",+6-$36-$9"}?6-v "6-%@P@P%O-@x,%/@E) 9-@E?,K/}@wO A 2- # A/A=-AA [67<,.0)67AB<AB,.0267,}.N6-P:H:,$A,%@'[67<,.1QA6!A7A3-A8=2@$Q6-?:B'B2QA&HR-}62&A&.-2 6 @ ARA@$R!-A !6-\AD}f_6-F:,%AV$F:,%)%@G=%@H@eN%@IF:,_%@PF:,p6-?:Aq,2z}6-?:B, AUA 0%%P:H:,$A,AA P 6-2@. 6-%2}!"AU+2.%"@%%0&$+",$+",##F:A`,)F:Aa,A  F:AX, 2@ } F:AY, 2@@# -  A# A6-?:A,2(F:A`,B2}I(B2Q(F:Aa,B2H(B2P76-?:C:,,#-B2HB2Q)- 7 A* CONST}ANTSGG0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,16,128,560,561,709,710,711,712* DLI ROUTINE$3372,169,14,141,10,212,141,}23,208,169,88,104,64.* RAINBOW ROUTINE8??104,169,6,232,142,10,212,142,24,208,205,31,208,208,242,96B* HEX DATAL}990,1,2,3,4,5,6,7,8,9,0,0,0,0,0,0,0,10,11,12,13,14,15V* TIMER ROUTINE`jj6818A9A9655885CDA903655985CEA93C8D2202A9068D}230260A514C906B0034C5FE4A9008514EE1F06AD1F06C90AD032A900jjj8D1F06EE2006AD2006C90AD023A9008D2006EE2106AD2106C906D014A9008D2}106EE2206AD2206C90AD005A9008D2206A000tbbA204C001F004C004D008A91A91CDC81890F0BD1E06491091CDC8CAD0E54C5FE468AD60E48D2202AD61}E48D230260~* P/M-STICK ROUTINEjj68A2008D1E06AE1E06A9009D16069D1806BD10068D1A06BD12068D1B06BD78024A9003EE1B064A489003}CE1B06205B74AD1Ejj06AABD10068D1A06BD12068D1B06684A9003EE1A064A9003CE1A06205B74EE1E06AD1E06C902D0AC60A55885CBA55985CCAD}jj1A064A4A184865CB85CBA90065CC85CC680A0A8D0E06A903186D0E0638ED1A068D0E06A9008D1D06AD1B06A2040A2E1D06E0jj03D00B8D1C06AD1D}0648AD1C0648CAD0EA8D1C0668186D1C068D1C06686D1D068D1D0618A5CB6D1C0685CBA5CC6D1D0685CCjjA000B1CBAE0E064A4AA000B002A0FFC8CAE}0FFD0F2C001D00160A90138ED1E06A8AD1E06AAB91206CD1B06D009B91006CD1Ajj06D00160AD1E06A8208775AD1A06DD1006F011FE16060A18692D9D}00D038FD14069D02D0AD1B06DD1206F052FE16069027A2jj7DC001D00FBD80729D8272BD80739D827318900CBD00729D0272BD00739D0273CAD0DE189}026A202C001D00FBD80729D7E72jjBD80739D7E7318900CBD00729DFE71BD00739DFE72E8E07FD0DC98AAAD1B069D1206AD1A069D100660AD1A06E000}D010C900jjD004EE1A0660C94ED014FE180660C94ED004CE1A0660C900D004FE1806606068688D0806688D0706AD0AD2290FC90FF0F78Djj0306A}D0AD2291FC91A10F78D0406200577B1CDC931D0DFA9008D0906AD0406C9019005A0192062770E0906AD0406C919B005jjA01B2062770E0906AD0306C9}019005A0002062770E0906AD0306C90EB005A034206277AD0906C900F09AAD04060A186D0406jj8D0A06AD03060A186D03068D0B06A514F0FCA900851}4A9148D00D2AD0AD229038D0F06C900D019AD09062908F019CE0406EEjj0B06206C77EE0B06206C774CCE76AD0F06C901D022AD09062904F022EE0406}EE0A06EE0A06EE0A06EE0B06206C77EE0B0620 jj6C774CCE76AD0F06C902D019AD09062902F012CE0306EE0A06206C77EE0A06206C774CCE76AD09062}901F097EE0306EE0B06jjEE0B06EE0B06EE0A06206C77EE0A06206C77A9188D00D2200577A93191CD38AD0106E9018D0106AD0206E9008D0206C900D0}jj08AD0106C900D00160AD0AD2CD000690034CD9754CB875AD03068D050648AD0406A2008E0606A2040E05062E0606E002D008(jjAD060648AD050}648CAD0EB18686D05068D0506686D06068D0606680A186D04066D05068D0506AD060669008D060618AD07062jj6D050685CDAD08066D060685CEA01A60}B1CDC930D003EE090660A55885CBA55985CCAD0A064A4A184865CB85CBA90065CC85<jjCC680A0A8D0E0638AD0A06ED0E06AAE8A93FCAF006386A6A4C9}6778D0E06A9008D0C06AD0B06A2040A2E0C06E003D00B8D0DFjj06AD0C0648AD0D0648CAD0EA8D0D0668186D0D068D0D06686D0C068D0C0618A5CB6D0D}0685CBA5CC6D0C0685CCA000B1CB2DP0E0691CB60 D:THUNDER.BASD0648CAD0EA8D0D0668186D0D068D0D06686D0C068D0C0618A5CB6D0DD  ;@@XLINMA3ARAX@AU ##MANIAC CASSETTE MAKER PROGRAM5;}A9,6-+6-AI5#AP(6-2&6-%@&(CHECKING LINE <-@@F6-}%@PZ A@""@?F:A,%F:A,$AVW(LINE  MISSING!ZZ"A APd}67,.>:,n 6-%x  A@""@@(ERROR IN LINE &G'(READY CASSETTE AND PRESS RETU}RNG@@C:(@@==0,31,0,64,35,64,169,60,141,2,211,169,119,141,231,2,1439}BB133,14,169,79,141,232,2,133,15,169,38,133,10,169,64,133,1634==11,24,96,96,83,58,32,28,76,32,55,72,162,255,141,30,12}51CC208,232,224,4,240,246,142,184,79,169,2,141,187,79,32,148,2317FF75,172,185,79,185,232,76,133,176,133,180,185,233,7}6,133,177,2430AA133,181,189,127,79,24,201,3,176,18,32,210,64,32,184,65,1718??32,38,68,32,173,70,32,223,68,32,17,71,18}9,159,79,201,1484>>0,240,6,32,108,70,32,179,69,32,108,65,169,11,24,237,1382BB191,79,141,188,79,169,2,141,190,79,32,18}9,75,173,188,79,1995??141,181,79,32,61,65,32,253,73,32,178,64,32,180,71,32,1506>>248,71,173,127,79,201,7,240,3,76,49,}64,32,127,72,76,1645>>44,64,173,252,2,141,0,104,173,200,79,201,1,208,1,96,1739>>173,252,2,201,7,240,46,201,6,240,34,2}01,2,240,22,76,1943 CC250,64,189,135,79,24,233,47,157,173,79,189,139,79,24,233,2094@@16,157,177,79,96,169,1,141,195,79},76,250,64,169,2,141,1812BB195,79,76,250,64,169,3,141,195,79,172,195,79,185,127,79,2088(<<24,201,2,176,1,96,173,207,79},24,201,0,176,5,169,2,15362@@141,207,79,206,207,79,173,207,79,201,1,240,1,96,169,0,2086<AA141,207,79,160,1,185,127,79,2}4,201,2,144,7,200,152,201,1910FBB4,208,242,96,140,195,79,169,255,141,252,2,96,142,182,79,2282PGG140,183,79,162,255,232,}236,181,79,240,11,160,255,200,152,201,2766ZCC255,208,250,76,69,65,174,182,79,172,183,79,96,142,182,79,2291dEE162,255,23}2,236,181,79,208,250,174,182,79,96,189,127,79,24,2553n==201,2,176,1,96,24,201,7,144,1,96,24,105,10,141,187,1416xBB79,16}9,15,141,184,79,32,148,75,173,185,79,24,109,230,76,1798FF133,178,173,186,79,109,231,76,133,179,165,176,24,125,139,79,2185}FF133,176,165,177,105,0,133,177,160,0,177,178,145,176,200,152,2254AA201,15,208,246,254,127,79,96,189,131,79,201,1,208},1,96,2132??224,0,240,14,236,195,79,240,3,76,216,65,173,121,2,76,1960??38,67,189,120,2,76,38,67,169,1,157,131,79,173,}191,79,1577CC141,187,79,169,10,141,184,79,32,148,75,173,10,210,24,205,1867AA185,79,144,1,96,189,139,79,24,205,139,79,}144,50,24,233,1810@@1,24,205,139,79,176,35,169,15,141,114,3,189,135,79,24,1528@@205,135,79,144,15,24,205,135,79,176,3},76,38,67,32,163,1576::66,76,38,67,32,224,66,76,38,67,32,54,66,76,9,66,1053@@32,110,66,76,9,66,189,173,79,133,85,189,}177,79,24,233,1720>>0,133,84,32,36,70,160,0,177,178,201,0,208,29,230,85,1623??32,36,70,173,181,79,201,0,208,17,198,85},198,85,32,36,1631@@70,173,181,79,201,0,208,3,169,14,96,169,15,96,189,173,1836??79,133,85,189,177,79,24,105,17,133,84},32,36,70,160,0,1403AA177,178,201,0,208,229,230,85,32,36,70,173,181,79,201,0,2080"BB208,217,230,85,230,85,32,36,70,173},181,79,201,0,208,203,2238,AA169,13,96,189,173,79,133,85,189,177,79,133,84,32,36,70,17376AA169,16,141,181,79,160,0,140,}183,79,160,0,177,178,201,0,1864@EE208,94,165,178,24,109,193,79,133,178,165,179,105,0,133,179,2122JCC172,183,79,200,152,}205,181,79,208,221,173,114,3,41,11,96,2118T@@189,173,79,24,105,8,133,85,189,177,79,133,84,32,36,70,1596^AA169,16,141,18}1,79,160,0,140,183,79,160,0,177,178,201,0,1864hEE208,30,165,178,24,109,193,79,133,178,165,179,105,0,133,179,2058rBB172,}183,79,200,152,205,181,79,208,221,173,114,3,41,7,96,2114|>>173,114,3,41,15,96,201,14,240,29,201,6,240,59,201,7,1640@@2}40,33,201,5,240,65,201,13,240,19,201,9,240,71,201,11,1990>>240,28,201,10,240,77,96,32,222,67,76,161,67,32,0,68,1617@@}76,161,67,169,1,157,127,79,254,135,79,76,161,67,169,0,1778CC157,127,79,222,135,79,76,161,67,32,222,67,254,135,79,169,2061}>>1,157,127,79,76,161,67,32,0,68,254,135,79,169,1,157,1563??127,79,76,161,67,32,0,68,222,135,79,169,0,157,127,79,1578}AA76,161,67,32,222,67,222,135,79,169,0,157,127,79,76,161,1830AA67,32,189,67,189,135,79,157,0,208,189,119,79,201,1,240},1952??6,169,1,157,119,79,96,169,0,157,119,79,96,189,135,79,1650BB24,201,208,176,6,24,201,48,144,14,96,169,208,157,13}5,79,1890@@224,0,208,3,76,228,74,96,169,48,157,135,79,96,189,139,1921BB79,24,201,13,144,25,222,139,79,24,105,16,141,1}81,79,188,1660GG139,79,177,176,136,145,176,200,200,152,205,181,79,208,243,96,2592DD189,139,79,24,201,96,176,29,24,105},16,168,177,176,200,145,1944DD176,136,136,189,139,79,24,233,3,141,181,79,152,205,181,79,2133@@208,234,254,139,79,96,1}89,131,79,201,1,240,1,96,224,0,2172&BB240,57,236,195,79,240,46,169,0,157,131,79,189,139,79,24,20600BB233,14,24,205,139,}79,176,14,24,105,22,205,139,79,144,12,1614:@@169,1,157,123,79,96,169,0,157,123,79,96,169,2,157,123,1700D>>79,96,76,110,}68,173,121,2,76,110,68,189,120,2,201,6,1497N@@201,6,240,62,201,10,240,25,201,7,240,65,201,11,240,28,1978X@@201,5,240,68},201,9,240,31,201,14,240,71,201,13,240,73,2048b@@96,169,0,157,123,79,169,0,157,127,79,96,169,1,157,123,1702l@@79,169,0,}157,127,79,96,169,2,157,123,79,169,0,157,127,1690v??79,96,169,0,157,123,79,169,1,157,127,79,96,169,1,157,1659@@123,79,}169,1,157,127,79,96,169,2,157,123,79,169,1,157,1688@@127,79,96,169,0,157,123,79,96,169,2,157,123,79,96,224,1776BB0,24}0,38,236,195,79,240,27,173,191,79,141,187,79,169,10,2084AA141,184,79,32,148,75,173,10,210,24,205,185,79,144,1,96,1786<}<76,30,69,173,133,2,76,12,69,189,132,2,201,0,240,8,1412@@189,131,79,201,1,240,7,96,169,1,157,131,79,96,189,159,1925>>}79,201,0,240,1,96,169,1,141,196,79,169,0,157,131,79,1739AA189,127,79,201,1,240,8,169,254,157,151,79,76,68,69,169,2037}??2,157,151,79,189,123,79,201,0,240,9,201,1,240,13,201,1886AA2,240,17,96,169,255,157,155,79,76,105,69,169,0,157,155,1901}BB79,76,105,69,169,1,157,155,79,169,35,157,159,79,189,127,1805AA79,141,187,79,169,3,141,184,79,32,148,75,173,185,79,2}4,1778CC125,123,79,141,184,79,169,2,141,187,79,32,148,75,173,185,1922CC79,168,185,241,77,24,125,135,79,157,143,79,185},242,77,24,2020 EE125,139,79,157,147,79,188,147,79,189,110,78,25,128,105,153,1928EE128,105,96,222,159,79,188,147,79,18}9,110,78,89,128,105,153,2055 DD128,105,152,24,125,155,79,157,147,79,189,159,79,201,0,240,2019*BB74,189,143,79,24,125,15}1,79,157,143,79,24,233,47,133,85,17654AA189,147,79,24,233,16,133,84,32,36,70,173,181,79,24,201,1701>??0,208,31,230,85,3}2,36,70,173,181,79,201,0,208,19,188,1741HDD147,79,189,110,78,25,128,105,153,128,105,189,143,79,157,4,1819R@@208,96,169,}0,157,159,79,157,4,208,96,169,0,157,143,79,1881\CC157,4,208,96,140,183,79,165,84,141,187,79,173,193,79,141,2109fAA184,7}9,32,148,75,165,85,141,188,79,169,4,141,190,79,32,1791pDD189,75,173,185,79,24,109,188,79,141,185,79,173,186,79,101,2045z}DD89,133,179,173,185,79,24,101,88,133,178,165,179,105,0,133,1944CC179,160,0,177,178,141,181,79,172,183,79,96,189,143,79,}24,2060DD201,208,176,19,24,201,44,144,27,189,147,79,24,201,112,176,1972BB32,24,201,13,144,33,96,169,1,157,159,79,169,}208,157,143,1785AA79,76,121,70,169,1,157,159,79,169,44,157,143,79,76,121,1700@@70,169,1,157,159,79,96,169,1,157,159,7}9,96,189,127,79,1787BB141,184,79,169,3,141,187,79,32,148,75,173,185,79,24,125,1824CC123,79,141,181,79,189,119,79,141,}184,79,169,6,141,187,79,1976CC32,148,75,173,185,79,24,109,181,79,141,187,79,169,15,141,1817DD184,79,32,148,75,173,185},79,24,109,230,76,133,178,173,186,2064FF79,109,231,76,133,179,165,180,24,125,139,79,133,180,165,181,2178EE105,0,133,1}81,160,0,177,178,145,180,200,152,201,15,208,246,2281??96,189,4,208,24,201,0,208,73,189,12,208,24,201,0,208,1845BB65,1}60,0,142,181,79,152,24,205,181,79,240,39,189,135,79,1950AA24,217,143,79,176,30,24,105,8,24,217,143,79,144,21,189,1623B}B139,79,24,217,147,79,176,12,24,105,15,24,217,147,79,144,1628??3,76,98,71,200,152,24,201,4,208,200,96,169,1,157,159,1819}$@@79,96,222,163,79,169,1,153,159,79,189,163,79,24,201,0,1856.??240,1,96,169,1,141,197,79,169,2,157,127,79,152,201,0,18}118BB240,9,138,201,0,240,31,206,194,79,96,173,191,79,141,184,2202BBB79,169,10,141,187,79,32,148,75,173,185,79,141,181,7}9,32,1790LAA159,73,206,194,79,96,206,192,79,173,192,79,201,0,240,1,2170V??96,76,83,74,173,196,79,201,2,240,19,201,0,240},48,169,1897`BB2,141,196,79,160,0,140,198,79,169,175,141,1,210,172,198,2061jAA79,200,140,0,210,200,140,0,210,200,140,0,}210,200,140,0,2069tCC210,200,140,0,210,152,24,201,240,176,4,140,198,79,96,169,2239~@@0,141,196,79,141,1,210,96,140,183,}79,173,197,79,201,0,1916AA240,41,201,2,240,15,169,2,141,197,79,169,143,141,3,210,1993BB169,0,141,199,79,172,199,79,14}0,2,210,200,140,2,210,152,2094BB201,240,176,7,140,199,79,172,183,79,96,169,0,141,197,79,2158@@141,3,210,172,183,79,96},169,7,141,181,79,32,82,73,169,1817@@46,141,47,2,169,3,141,29,208,169,200,141,192,2,169,56,1715AA141,193,2,141,194,2,}141,195,2,169,0,141,197,79,141,196,1934AA79,169,104,141,7,212,160,1,140,191,79,169,3,141,192,79,1867AA169,16,162,0,15}7,167,79,232,224,6,208,248,32,43,74,169,1986??0,141,1,210,141,0,210,141,3,210,141,2,210,141,207,79,1837BB173,191,79,2}4,201,8,176,21,168,185,110,79,141,196,2,169,1923AA0,141,198,2,141,197,79,141,196,79,32,114,73,172,191,79,1835AA140,18}4,79,169,4,141,187,79,32,148,75,169,3,141,194,79,1824@@173,200,79,201,2,240,8,169,4,141,195,79,76,217,72,169,2025 AA1, }141,195,79,169,2,141,252,2,169,40,141,193,79,173,185,1962>>79,24,233,3,168,24,105,4,141,181,79,162,0,185,46,78,1512CC }157,0,208,157,135,79,185,78,78,157,139,79,173,191,79,157,2052(DD163,79,169,0,157,131,79,157,143,79,157,159,79,200,232,152, }21362BB205,181,79,208,216,169,1,141,163,79,160,0,169,0,153,128,2052<FF105,153,0,106,153,128,106,153,0,107,153,128,107,2 }00,152,201,1952FEE128,208,233,169,1,141,123,79,141,124,79,141,125,79,141,126,2038PBB79,169,1,141,127,79,169,0,141,128,7 }9,141,129,79,141,130,1733Z@@79,96,169,3,141,114,3,169,36,141,116,3,169,64,141,117,1561d??3,169,28,141,122,3,173,181,79,}141,123,3,162,48,32,86,1494nCC228,96,160,0,185,253,77,24,201,255,240,34,133,85,200,185,2356xCC253,77,133,84,169,85,32,2}21,75,200,185,253,77,133,85,200,2262@@185,253,77,133,84,169,85,32,2,76,200,76,116,73,96,142,1799>>182,79,162,0,160,0,}185,167,79,24,105,1,9,16,153,167,1489CC79,201,26,208,11,169,16,153,167,79,200,152,201,6,208,230,2106CC232,24,236,181,}79,208,221,174,182,79,32,206,73,96,160,86,2269AA173,48,2,133,180,173,49,2,133,181,177,180,24,105,7,133,1700DD178,200,}177,180,133,179,142,182,79,162,5,160,0,189,167,79,2212EE145,178,200,202,152,201,6,208,244,174,182,79,96,160,86,173,2486}BB48,2,133,180,173,49,2,133,181,177,180,24,105,45,133,178,1743FF200,177,180,133,179,160,0,169,65,145,178,200,152,201,10},240,2389@@5,205,192,79,208,241,169,0,145,178,96,160,86,173,48,2,1987GG133,180,173,49,2,133,181,177,180,133,178,200,1}77,180,133,179,2388BB160,0,185,118,78,201,255,240,9,24,233,31,145,178,200,76,2133==66,74,96,32,194,76,169,0,141,181,7}9,32,82,73,169,0,1464@@141,198,2,170,157,0,208,157,4,208,157,1,210,157,0,210,1980@@232,224,4,208,239,160,0,185,37,79,}24,201,255,240,9,24,2121BB233,31,145,88,200,76,119,74,160,12,162,0,189,167,79,145,1880"BB88,136,232,224,6,208,245,32,1}84,74,160,30,162,0,189,201,2171,DD79,145,88,136,232,224,6,208,245,169,255,141,252,2,173,252,26076??2,201,255,240,249,76},38,64,160,5,185,167,79,24,233,0,1978@AA24,217,201,79,176,15,24,105,1,217,201,79,144,6,136,152,1777JEE201,255,208,230,9}6,160,0,185,167,79,153,201,79,200,152,201,2567T==6,208,244,96,162,0,169,0,157,4,208,157,0,208,157,0,1776^AA210,157,1,21}0,232,224,4,208,239,32,54,75,173,194,79,24,2116h@@201,0,208,3,238,191,79,173,191,79,24,201,8,144,33,169,1942rBB1,141,19}1,79,160,0,169,200,141,181,79,140,183,79,32,159,1935|DD73,172,183,79,200,140,183,79,152,201,5,208,241,238,192,79,2425@@}32,127,72,76,44,64,169,175,141,1,210,162,0,165,88,133,1659CC178,165,89,133,179,32,86,75,232,224,16,208,240,169,0,141,216}7@@1,210,141,0,210,96,142,182,79,162,0,32,126,75,165,178,1799EE24,109,193,79,133,178,165,179,105,0,133,179,238,199,79},173,2166BB199,79,141,0,210,232,224,79,208,225,174,182,79,96,160,0,2288FF177,178,24,42,145,178,177,178,24,42,145,178, }200,152,205,193,2238CC79,208,237,96,169,0,141,185,79,141,186,79,142,182,79,162,2165==8,10,46,186,79,14,187,79,144,9,2!}4,109,184,79,144,3,1305EE238,186,79,202,208,235,141,185,79,174,182,79,96,142,182,79,2487??169,0,162,8,14,188,79,42,20"}5,190,79,144,6,237,190,79,1792EE238,188,79,202,208,238,141,189,79,174,182,79,96,141,181,79,2494AA142,182,79,140,183,7#}9,169,11,141,114,3,169,0,141,120,3,1676CC141,121,3,162,48,173,181,79,32,86,228,174,182,79,172,183,2044AA79,96,141,251$},2,142,182,79,140,183,79,169,17,141,114,3,1818BB162,48,32,86,228,174,182,79,172,183,79,96,32,194,76,169,1992>>2,141,1%}81,79,32,82,73,169,0,141,198,2,165,88,24,105,1482&CC61,133,178,165,89,105,0,133,179,160,0,185,163,78,201,255,20850@@240&},9,24,233,31,145,178,200,76,59,76,32,205,76,32,205,1821:AA76,32,205,76,32,205,76,32,205,76,169,255,141,181,79,32,1872D99'}61,65,32,61,65,32,61,65,32,61,65,32,61,65,32,61,851N??65,32,194,76,169,2,141,181,79,32,82,73,169,0,141,198,1634XBB2,16(}5,88,24,105,40,133,178,165,89,133,179,160,0,185,218,1864bBB78,201,255,240,9,24,233,31,145,178,200,76,142,76,32,194,2114l)}AA76,169,255,141,252,2,173,252,2,24,201,30,240,14,24,201,2056v??31,240,3,76,166,76,169,1,141,200,79,96,169,2,141,200,1790*}??79,96,169,12,141,114,3,162,48,32,86,228,96,169,1,141,1577@@196,79,32,180,71,169,2,141,181,79,32,61,65,173,196,79,17+}36AA201,0,208,238,96,51,242,76,0,106,128,106,0,107,128,107,179488128,105,140,92,76,44,28,12,12,12,12,12,4,4,4,4,689,}7712,12,28,12,204,124,12,12,12,12,12,4,4,4,4,12,4807712,28,12,12,28,108,204,12,12,12,4,4,4,4,12,49,5179958,50,52,56-},48,48,48,48,48,32,32,32,32,48,48,56,7369948,51,62,48,48,48,48,48,32,32,32,32,48,48,56,48,729::48,56,54,51,48,48,48,3.}2,32,32,32,48,140,92,76,44,8819928,12,12,12,12,12,10,10,9,9,27,12,28,12,204,124,5338812,12,12,12,12,10,10,9,9,27,12,2/}8,12,12,28,108,32588204,12,12,12,10,10,9,9,27,49,58,50,52,56,48,48,666==48,48,48,80,80,144,144,216,48,56,48,51,62,48,0}48,48,1217==48,48,80,80,144,144,216,48,56,48,48,56,54,51,48,48,1217 ::48,80,80,144,144,216,128,4,2,8,64,0,10,128,4,32,1}1092,,2,4,8,4,0,2,1,4,0,128,0,5,0,2,0,64,224 ++1,2,4,2,0,2,0,0,0,0,2,0,1,0,128,0,142*''0,1,2,1,0,0,0,0,0,1,0,0,0,0,2}0,0,54''0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0>++0,0,0,0,3,0,6,7,0,7,3,7,6,0,0,159,198H::0,159,0,159,28,159,52,159,78,1593},78,0,78,0,78,0,1187R7750,0,30,0,0,40,0,40,40,40,40,80,40,110,78,110,698\>>64,100,0,100,40,100,40,130,40,255,192,48,12,4}3,51,75,1250fBB112,176,51,96,160,192,51,58,128,192,51,72,120,128,51,51,1689p@@91,154,51,112,160,192,51,51,136,192,51,245},50,72,50,32,1469z9938,38,50,64,64,72,50,32,64,56,50,18,69,64,50,18,7978818,18,50,58,72,48,50,24,72,50,50,24,24,69,3,16}2,6426648,192,1,2,4,8,83,67,79,82,69,58,32,48,48,48,8699948,48,48,32,32,32,32,32,32,32,32,32,32,32,32,32,5609932,7}32,32,32,32,32,32,32,32,32,32,32,32,32,77,69,594;;78,58,255,32,32,32,32,32,77,65,78,73,65,67,33,32,10419932,32,32,32,8}32,32,32,32,32,32,32,32,32,32,66,89,6039932,32,32,32,32,32,32,32,32,32,32,32,32,82,73,67,638;;75,32,77,69,83,83,78,699},82,255,80,82,69,83,83,32,13329949,32,79,82,32,50,32,32,32,32,32,32,32,32,32,32,6449932,32,32,32,32,32,32,32,32,32,32:},32,32,32,32,32,5129932,32,49,32,45,32,79,78,69,32,80,76,65,89,69,82,9419932,32,32,32,32,32,50,32,45,32,84,87,79,32,8;}0,76,789;;65,89,69,82,255,83,67,79,82,69,58,32,32,32,32,32,11589932,32,32,32,72,73,45,83,67,79,82,69,58,32,32,32,852<}9932,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,5129932,32,32,32,80,82,69,83,83,32,65,78,89,32,75,69,965$9989,32,=}84,79,32,67,79,78,84,73,78,85,69,255,0,6,1190.@@52,101,199,167,54,162,176,52,49,155,138,27,59,59,1,49,15008 999>} D:MANIAC.BAS,78,84,73,78,85,69,255,0,6,1190.@@52,101,199,167,54,162,176,52,49,155,138,27,59,59,1,49,15008 99978>ARRAYFILE1FILE2NAMEDISKFILECOUNCHOICLOOSFIL1T$8 L@@} @ N<;A(,;@ ,;@ ,;@ ,;@,NA@% +A}AR@%(}2 6.D1:< 6.F67B:,%@,.*.*d @@n&6-@B}& A0x( A@(6-%@&&7@<@,4SYSAP..7@<@,4 DISKC} CATAP..7@<@,4 MENU AP&&7@<@,4DBHAPJJ7@<@,4D}7@<@,*7@<@,4RAP7"6-@!6.-6-7 A 3"@!!@E}@ 3-@ @6. _7@<@,0 767@ <@ ,.._67@<@F},.7@<@,++67@<@,.7@<@,NAME$ BUILT ", @( 6 () @G}(J 6.67B:,%@,. A 6-&@ A  A@9@@'H}-@@"9( RUN NUMBER 6-P:,& @)!AX 6.b&&6.7$@&@<$@I},l=-@@$7<,0 =67B:,%@,.7<,v  A &-@@"&( LOADING J}%(-@@"(( CAN'T RUN ;#@@K:0)@;@ A//@6K}@D:MENUD:MENU//@6@D:MENU A//@6p=QAaAEUU@tAE  +@$ @(0@2-@A`"M}@<6-A$'A`F6-@%@$G:,P!ApAZ,d /n @"N}A0x/AAY F:Ad,AU A@ D:PRETTY.BASd /n @ ecd33LMRPAYWINSOUNFPASPICDSBANKROLBEWIDELALMRDULMRLMRPSSTARXFR&P} &Q} &R}!"#$%&'()COLOR SLOT MACHINEBY MICHAEL A. IVINS&S}NOVEMBER 1981 B  u1;@`,;@`,;@`,;@ ,Q@@S:]6-Ai&T}6-A@u6-A)P 76.  26-@+6-AF76-A`HH6.>abcdefghabghefcdghcdefijcdghcdgh&U}cdefcdcdabghefcdcdefghFF6.:,801@@)-@@&]}0(>:,901@@)-@@0(>:,; A$@+!* $@'6-@+ E-$&^}@* $@%)6-@- F-$@%*$@P)6-@- G+!$@P* A '6-@+ J&_}*6-!-@$@#*  T!A ^@@ hA-@##-@ =( &`} A rn-@ #( I'M SORRY;(YOU HAVE GONE BROKEW(IF YOU WISH TO BUY MOREn(CHANGE PRE&a}SS |,(PRESS IF YOU,( WISH TO QUIT33F:B2y,@*F:B2y,@A4F:B2y,"@&b}*@@4 @Q-@ @#( THANK YOU;(FOR PLAYING, BETTERN(LUCK NEXT TIMEQ&-@ &c}@ &( 5 LINE PLAY%6-@ A%6-b-@ @"&( BANKROLL:8-@ @#D(BET&d}:V-@0@#b(WIN:8 @!-@ @!8 ٠Ϡ-@@ !!"&e})"@A`VT:,"&6-%@46-&@V2@P@@!**F:B2y&f},"@*"@&("@!-@@(  (("@!-@@(  *("@!&g}-@@(  ,("@!-@@(  .("@!-@@( 05-@)@"&h}  0-@$@#5 27"@!-@ @!7  5-@@  6%%2&i}: R:,"@A0?"A0D A#N X1@@)&j}-@@0(>:,D1@@V-@@](>:,q1@@-@@(>:,]1@&k}@)-@@0(>:,D1@@V-@@](>:,q1@@-@@(>:&l},b1@@)-@@0(>:,D1@@V-@@](>:,q1@@-@&m}@(>:,l/+"*,)+"*",6-%6-+6-/ m-"*"*+")",6-#6-)6-- n# "*"6-&n}6-6-# o-"*+")",*"6-#6-)6-- p3***A3"*+")",A)q-"*"&o}*+")",6-#6-)6-- r-"*+")",*"6-#6-)6-- t A0u 6-6-6- v"@&p}Aw-"*"*+")",6-#6-)6-- x/+"*,)+"*",6-%6-+6-/ y-"*+")",*&q}"6-#6-)6-- z# "*"6-6-6-# {-"*"*+")",6-#6-)6-- |3*A*&r}*3"*+")",A@}-"*+")",*"6-#6-)6-- ~ AB 6-6-6- "@&s}A-"*"*+")",6-#6-)6-- !!+"*,)+"*",AR-"*+")",*"6-#6-&t})6-- "*"AR-"*"*+")",6-#6-)6-- 3*A**3"*+")",AR&u}-"*+")",*"6-#6-)6--  AT 6-6-6- "@A-"*"*+"&v})",6-#6-)6-- !!+"*",)+"*,Ad-"*+")",*"6-#6-)6-- "*"Ad&w}-"*"*+")",6-#6-)6-- 3*A**3"*+")",Ad-"*+")",*"6&x}-#6-)6--  Ae 6-6-6- "@A/"A*"*"%6-%A / A&&y}-"*"*+")",6-#6-)6-- !!+"*,)+"*",Av-"*+")",*"6-#6-)6-- &z}A*"*"Av-"*"*+")",6-#6-)6-- 3*A**3"*+")",Av&{}-"*+")",*"6-#6-)6--  A 6-6-6- " 6-%-@)@""()&|}!* @%6-@) )@* @%%6-@) )@%*@P%6-@) )!&}}@P* A %6-@) g-@@(.-@@5(G-@@N(`-@@&~}g( 6--@$@! !A0 APWINNER SOUND-@-@@&}@@2@@  -@@@6@ 2@@&}  (%2($6-@-@@("-@4"(@:7<,,$ -&}6-%@2 <C @!-@4@@(@:7@ <@ ,,$ C$FB"@!-@4@B(@:&}7@ <@ ,,$@P$ZAR@"(>:A%,4-@@Z ! ab PAYS 2&}T AVF:A,%@:0@T0@@ )) !&} ab ab PAYS 5     ** "    cd cd cd PAYS 10     ** " &}   ef ef ef PAYS 14     ** "     gh gh gh PAYS 18     ** &}"  PAYS 20  ** "  MIX BARS PAYS 20 &}** "  PAYS 50   ++ #  ij ij ij PAYS 200 &}      *$4)AR@)-&}@@#>-@ H  R \$-@@,-@ @, ٠&}Ϡ-@@ ,-@ @, PLAY 1 TO 5 COINS-@@  $&}'AR@'-@@ -@@    -@@    $ -@&}@.  3 -@@  8  B +6-!-@4@#+( V $`  "*6-$&}@j  "*"6-$@t %"@*"*"%6-$@y 1#"@*"@*+")",16-$@~ %&}"A*"*"%6-$@ 1#"A*"A*+")",16-$@ %"A*"*"%6-$@ 1#"&}A*"A*+")",16-$@ "*"*"6-$@P "*"*"6-$@  %"*"*+")"&},%6-$@  %"*+")",*"%6-$@  %"*"*+")",%6-$@  %"*+")",*"%6-$@ &} /!"A*"*"* @/6-$A 9!"A*"*"*"@/6-$A 9 A& &-@4@#&}  &6-% -@)@"   $( -A@- 2@2  7&} -@@< -@@@@A 2@@F  P -@@@6@U &}2@@Z   _ -@@ d -A@i 2@&}n ) )2p -@@q -@@@ r +-@ @ +(Ҡ&}ԡs -@@  t -@@  v +-@ @ +( x  } /-@ &}@ /   $ -@A@% 2@@   (%2&}($ A'6-%P:H:,$@,$@3!@YA6-&@` I/6-%@%P:H:,$@&},$@;!@YI6-&@` I/6-%@"%P:H:,$@,$@;!@YI6-&@` )@w&})-@@ L-@@& 7<%@,46-%@@!@YL6-@ L-@@&&} 7<%@,46-%@@!@YL6-@ &-@@& 7<%@, +6-&@ @+6-&}%@` "@ A( !@A1 L-@@& 7<%@,46-%@@!@YL6&}-@ L-@@& 7<%@,46-%@@!@YL6-@ &-@@& 7<%@, &}+6-&@ @+6-%@`! "@ A(& !@A1`0 L-@@& 7<%@&},46-%@@!@YL6-@: L-@@& 7<%@,46-%@@!@YL6-@D &-@&}@& 7<%@,N +6-&@ @+6-%@`X  ] A(b {6-&@ @+6-&}%@`96-&@E @S6-%@`a6-&@m @{6-%@`l $#>:,4a*>:,0a#6-@&} "*"6-@/#"@*"@*"@/6-@/#"@*"@*+")",/6-@&}/#"A*"A*"A/6-@/#"A*"A*+")",/6-@/#"A*"A*"A&}/6-@/#"A*"A*+")",/6-@"*"*"6-@ #"*"*+")",#6-@ &}#"*+")",*"#6-@ #"*"*+")",#6-@ #"*+")",*"#6-@ "*"*"&}6-@ #"A*"*"#6-A" 6-%-@4@#" $'+6-+-A@%&}'2@';2@@@;2@@@' 'i%2&}G2@i2@j'& N-@@%N-&}A@*N2@@/N 4N -A6@9N2@@>N CN &}HN%%2MN&}q AF:A,&@*+@K6-+F:A,%@,$AV_AV&}'AVqAR@}D;@8,#B .-@@82"@67<,.>:,D  }!!(@ ******&}****** }!!(@ * * }!!(@ * slot * }!!(@ * *}!!(@ &} ************}(BY MICHAEL A. IVINS}bb104,169,0,133,203,133,205,169,224,133,206,165,106,24,105,1,133,204,160,0,177,20&}5,145,203,200}88208,249,230,204,230,206,165,206,201,228,208,237,96}6-?:C:,,#B!}""6@#$(}3&}-@"%%%) 3 B 0d}))520,170,170,170,170,170,170,170,170e}%%528,170,85,170,85,170,85,170,85&}f}!!536,170,0,170,0,170,0,170,0g}%%544,160,160,160,160,10,10,10,10h}552,80,80,80,80,5,5,5,5i}))560,128,128,160,160,1&}68,168,170,170j}!!568,2,2,10,10,42,42,170,170k}''584,234,184,46,139,46,186,224,170l}''600,167,28,114,200,114,156,39,170&}m}%%608,170,0,170,255,255,170,0,170n}$$616,1,171,7,175,31,191,127,255o}))624,255,127,191,159,175,167,171,169p}776,2&},82,82,81,1,81,80,80q}""784,170,168,128,64,64,64,0,0r}792,1,5,5,21,21,5,5,1s}!!800,64,80,80,84,84,80,80,64t}808,2&},10,10,42,42,10,10,2u}))816,128,160,160,168,168,160,160,128v}824,1,2,1,2,5,10,21,3w}$$832,0,128,64,128,64,160,80,128&}x}840,85,85,64,0,1,5,4,20y}848,85,84,4,16,80,64,0,0z}-1 D:SLOT.BAS1,3w}$$832,0,128,64,128,64,160,80,128$U10 REM MANIAC 32K DISK CHANGES150 ? "INSERT DISK WITH DOS, PRESS RETURN";:DIM IN$(1):INPUT IN$:OPEN #1,8,0,"D:AUTORUN.SYS"5*}000 DATA 255,255,6,64,127,79,169,60,141,2,211,169,119,141,231,2,20317480 DATA 10,0,11,0,38,64,224,2,225,2,38,64,0,0,0,0,678*}7490 DATA 99955,6,64,127,79,169,60,141,2,211,169,119,141,231,2,20317480 DATA 10,0,11,0,38,64,224,2,225,2,38,64,0,0,0,0,678(* +@*AVF:A,%@ 0@/A@AA@EU-@*}a-@{(@ eeeeeeeeeeee S-@@.6-H:,$@:!@@-O(@fS *}'6-@6-@!6-'6-(5 -(@e&-%@5(@e)5 1+"A)"A%*})"@f5 A*5 -(@&-%@5(@+;#"B)"B)"B16-%@;*} B,'"6-%@' @- 6-6-.a'2%@ @@;-@@? *}a2/d6-H:,$@&!@p:-@@Q-H:,$@`(@*}fd 0_/A A0A@APA`;"@G6-U6-%@_ B1-@*}"(@4-@@A(@S-@@`(@r-@@(@2H"R:,"@*}*!06-&@>6-%@PH @@<H"R:,"@*!@06-&@>6-%@PH @@*}FH"R:,"@* @06-%@>6-%@PH @@d @B{2@@@@3-@*}@%7 Y2{2@u-@-&(@4-*}%@C(@Q-&@`(@ef-u(@e['2%@ @@+ M2*}[6-&@# )"# B' @ DOCTORS@6-%@"*}@)6-@@6-H:,$@=!@.-%@H:,$@=(@$ POTS @6*}-%@"@)6-@@6-H:,$@ !@-@+-%@:(@BP-%@*}&@_(@fc q-%@(@e $ BIRD)6-%@"@)6-@-%*}@@&(@C:-%@@I(@D]-%@@l(@e6-H:,$@*}1"@!-@@1(@ee!@A@0$[-@@%-%@5(@*}emK-%@&@[(@ee! 1"A ! AM'2%A@@+ M2*}$ KONG76-%@"@+6-%@76-@5"@6-%@*})"@56-@-%@%@((@>-%@%@M(@k-&@%@*}%@z(@e-&@%@%@(@eI-@%@&(@e:-@%@*}I(@e..FOR A=1 TO 12POSITION 15,A? #6;"e"NEXT A! 1"A5! A""6-H:,$@%@(}/