@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 D8uARAMTOPMBAS ##..... VBI Routine for reading!!..... T}joystick 0 and moving..... player 0<Reserve 3K of RAM for PMGF6-F:A,&@P6-$AVZ::ReadU} VBI data values and POKE into safe place in RAMd/-A$"+%A(%/ n104,160,10,162,6,169xV}7,76,92,228,173,1202,41,8,208,16,165203,201,200,240,30,230203,165,203,141,0,20824,144,20,173,120,2W}41,4,208,13,165,203201,50,240,7,198,203165,203,141,0,208,173120,2,41,1,208,24165,204,201,14,240,X}46160,1,177,204,136,145204,200,200,192,18,208245,198,204,24,144,28173,120,2,41,2,20821,165,204,Y}201,100,24015,160,17,177,204,200145,204,136,136,192,255"208,245,230,204,76,98,228,104,160,98,162,2286Z}169,7,76,92,228@--Change 3rd number in VBI to low byte ofJ..starting location for VBI routine in RAMT%A0[}@%A(^Change 5th number tohcorresponding high byter%A2|22Protect PMG area from accidental\} destructionA--Tell computer where to find player dataBBy( +@(Set up a graphics scre]}en4A@V4Set player 0 color to orange"AY@F"Enable PMG4B2w@4Turn on playe^}rs and missilesClear out player 0 area+-%A%A@'+ $$Initialize player 0 X-position_}'6-AA'B2H$$Initialize player 0 Y-position/6-@PA/A%@%%`}Read in player 0 bit image data1-@@"-%A%%1 60,126,255,255,255&255,189,129,66a},66036,36,36,24,24:22Turn on VBI routine by machine language callD6-?:%A(,N$$Turn off VBI routine with b}thisXmachine language callbA=USR(PMBASE+243)lD:BOOTCAMP.BAS%A(,N$$Turn off VBI routine with S-d%X;Vertical Blank Interrupt ExamplenX;xX;by Karl E. WiegesX; ATRACTMSTICK0x,SETVBV\6XITVBV d}b LEFT;& RIGHT<vX;%X;********************************%X;VERTICAL BLANK INTERRUPT ROUTINE%X;************* e}*******************X;@X;VBIQ>;;turn offPATRACT;;attract mode#XPOSP0;;move car 2#XPOSP0 f};;pixels to theQXPOSP0;;rightPHPOSP04,>Q>H O>PMGRPPLYRSTRT\ QYPOSP0f PPLYRSTRTSTICKRI g}GHTQSTICK0;;stick readingM>;;pointing right?HSTICKLEFT;;no,check leftQXPOSP0;;yes,get X-posRRIGHT;;at ri h}ght edge?FSTICKUP;;yes,check for up#XPOSP0;;no,QXPOSP0;;move one pixelPHPOSP0;;to the right,;;go check for i}DSTICKUP;;stick up STICKLEFTQSTICK0;;stick readingM>;;pointing left?HSTICKUP;;no,check for upQXPOSP0; j};yesRLEFT;;at left edge?FSTICKUP;;yes,check for up"XPOSP0;;no, move himQXPOSP0;;one pixel toPHPOSP0;;the k}left STICKUPQSTICK0;;stick readingM>;;pointing up?HSTICKDOWN;;no,check downQYPOSP0;;yesRTOP;;at top e l}dge?FVBIEXIT;;yes, leave VBIPPLYRSTRT;;no, use Y as#NBYTES;;offset pointer%>;;to move alien LOOPUPQ@P m}LYRSTRT7;;take a byte1;;shift to 1P@PLYRSTRT7;;byte lower 3;;in RAM"3;;point to next,)NBYTES;;done yet?6HLOO n}PUP;;no, go again@"YPOSP0;;yes, set newJ"NBYTES;;Y-positionT,^DVBIEXIT;;leave VBIh STICKDOWNrQSTICK0;;stick r o}eading|M>;;pointing down?HVBIEXIT;;no, leave VBIQYPOSP0;;yesRBOTTOM;;at bottom edge?FVBIEXIT;;yes, leave p}VBIPPLYRSTRT;;no, move alien%NBYTES;;down just like1;;we moved himLOOPDOWN;up, a byteQ@PLYRSTRT7;;at a ti q}me3P@PLYRSTRT711 ILOOPDOWN#YPOSP0;;set new Y-pos VBIEXIT&!XITVBV;;leave VBI0X; Q>;;right edge r} of PRIGHT;;alien area. Q>8;;left edge of PLEFT;;alien area.n QALIEN;;set up forx PNBYTES;;vertical motion X; s} X;turn on VBI routine X; %>VBI $>VBI Q> SETVBV END!END;;loop foreverBYTES;;vertical motion X; a``UUUUUUUU~BBBB~3333<<u}?A! <~$BB$? !A~<<~~<gg|v}|`a8p~~B$$Bff||p8~$$~~B~B~B~Bw} @~>6~~=<<<$$$$$$$~~$6~~``~~ffff~~~~~ff~``~ff~ff~x}`~~~~`~~`~aa2`@ F F@! >>=JJ OJ1 O kJ X kJ J3  M` L Ly}   \ VL *N L LNL@J0˭1̠Fˠ`XX˥Yi˥i̩`>/Щ@ԩo z}ȍ`` J` K` K`JK J`ȌȌ J{}`Ȍ J` J` J`Ȍ J|}`Ȍ J`Ȍ J`KL K` {K` K}}` 5K` XK`x J` J` K` L`  J`  &L`  L`  >L`X˥~}Yiȅ˥iiȅ˥i̩?`` i@LLi,LLML`mX˥Yi҅˥i}iՅ˥i̠i(˥i̠LLX˥Y̠i˥iL_Mm˥i` UMˍ )? }ͬΠ iͥiLM͙@ɀMN`ʎЩED}EFDLb䭄`` M` UM `BJKLcNK:`DNE V  B V`B}DEHI V B V}LO19L O<LhO>LzOLQ LSCL&VPLVNO L_XBLX` }kJ L L`0 XY01iiʠ L L RO` F`LO}LOX;Y<XY01iiXYȑ kJXYiȅiLOD:OP.PIC O}O>?BJKL0PK:-DPE VB=DEHI V B V>?=~LQɛL Q}A[i O 葸LP>?BJKLPK:DPE VB=DEHI VPQ B V>?=}~ɛ LPLP iOʈ LPhh LQ`.OPOIOCO詛O`;X<Y01ii;}ȭ<` L L`QR OBJKDOE VLLQ BDEHI V BDEHI V }BDEHI V BDEHI V BDEHI V BDEHI V B}DEHI V R}SBDEHI V BDEHI V BDEHI V BD}EHI V BDEHI V BDEHI V BDEHI V BDE}HI V BDE~SSHI V BDEHI V BĝDEHI VST B V LQ}` OBJKDOE VLLQBDEHI VBDEHI VBDEHI} VBDEHI VBDEHI VBDEHI VBDETUHI} VBDEHI VBDEHI VBDEHI VBDEHI V}BDEHI VBDEHI VBDEHI VBDEHI VUV}BDEHI VBDEHI VBĝDEHI VVW B V LQ` W VLL)V} W45 VLLSV45 W67XYiȅiiȅ}i: L`:` W649758 VLLV9 mWXLV8 mL}V W UM˅̅5iim4i89ȱiiiiLsW L`} Lȩȩ` Lȩȩȩȩ`ҩҩ2ҩҢ Jҍ`LX"r+w+sXXX˥Y}i˥i̠X iv˥i̠X J J`LX@LXɀLX WТ Jx 芙LX }ʊLX iLX LX W`  MJLX WТ Jx 芙LX SGH( CHANGSAVDAFMGLINKKKKKKKKKK1WDDZDFFTFTDKDERD} }U +A1AR@C@@d}UB7t@d36-A06-A@'6-AP36-B{6-@6-@'6-@36-@?6}-@K6-@W6-@c6-@o6-@ {6-@++(# *********************************(" * } ***(" * FORTUNE-WHEEL *$**(" * *.**(" * } DATA GENERATOR *8**(" * *B**(" * by *L**(" *} *V**(" * Robert Beatty *`**(" * *j**(" }*******************************~FF;@6,;@@,;,;@d,;@,;@,;,226.(TITLE PLACE } PERSON THING PHRASE    U(>:A%,A )ARU(&úӺ}.-@.(Data statement #&A1-@1( Category is 7$%<+%,$,, -,(Input data: 36 Char}acters max.7 -7((: : K:  6.-@6B )*!@d}* @)"@2867<,.>:,B A!0  "  A *""@ " A 43"A&}*!!(>:A&,)6-&3 A p>"AU' A!pH A pR -%(>:, \ )f6"A&}-6((>:A&,, 6 A `pAUA!@z6A  -@6( DATA K,:(P}OKE 842,12:CONT%-@7AB@:& 6-% A  Š٠ !BA2 **(>:}A%,Current categories are: +(-'(% 7$%<$%,+  1(1(&Do you want to rename categories (Y/N)} K:) @A2 AR --(%Input new category names (8 char max) }K:  -((% & 6. -0 & )"AU6-& A1p: C#!@d* @)"@2}167<,.>:,9(>:,C A1`D )"A&*!!(>:A&,)6-&N A1 X  b 67$%<$%,. l }ARv !( (!(Are these correct? 1K:)1"@xA0 55(>:A%,"Which c}ategory do you wish to use? +(-'(% 7$%<$%,+  K:) !! @I)!@S}A20 6-&@I$ŠŠ(Saving clues to ((ontinue or uit?K:})"@AAp@gA@02 A`(>:A%,&A 26-A@`= -=( 2990}0 DA=&B:REM ƠBB( 29920 D$=>:@4,>:@4,:REM Ӡ3(POKE 842},12:CONT-0AB@3&BB BG -(12(15,(POKE 842,12:CONT2-D}AB@G&"F(>:A%,"A @F(Continue entering clues? (Y/N),K:)6"}@$@@xAA@J ( (Loading FORTUNE-WHEELT% D:FORTUNE.BASŠԠŠ 6-}6- A`6-AP D:*.DAT! !B:, @AP67$%<$%,.7<, 6-%}"@AP AP@ B AR9(>:A%,9(#Fortune-Wheel clue files availabl}e:!(!(   -&..( |% 7$%<$%, | (( }2/(/($Press to append or for new file:<K:)F%6-&@I%@$AR0P}A@dZ\(((Enter a name for the new fileI(Use a max of eight letters:M\4ARd2 6.D:67},.(67B:,%,..DAT2 ASn )!&AQx: 6.D::67,.7$@%@<$@%@,=-B:},&7<,4 )7<,4.467,..DAT=6-B:,  A`6-ARpF((Loading (.(Please Standby.}..B-@AF `A (>:A%,"-E(ENTER >:@4,>:@4,H(K(`(POKE 842,12:CONT} -AB@&(>:A%,A  B((Number of clues - 6-B%-}@AP $pҭĠz, B(>:A%,,A @FF:A,"A8(1(Check d}isk drive,<@F A`p F:A,AeA``Q(,(!Try another name for the new fileM(Use a max of }eight letters:Q> 6.D:67@,.467B:,%@,..DAT> A`p)()(Unexpected error - F:A,}6($(Press any key to continue6AdAU F:Ad,"AUA`&(>:A%,"AdAU& 0u}$ D:DGEN.BAS to continue6AdAU F:Ad,"AUA`&(>:A%,"AdAU& 0u}^^K1KKKKKKKTPMKPMFPLROUNAKUGDABEEMKK1GUESVCLTMDEBUZMNYSPAMNWMWK1FSPIV}CHCGLACDDZDDUDUDWCLD@ }@ @ @} !"#$%&'()}*+,@-./012345@678@9}:;<%%*******************************%%* FORTUNE-WHEEL *%%* } *%%* A game show simulation *%%* *%%* by *}%%* *%%* Robert Beatty *%%* [70317,3045] * %%***********}******************** _ +A1AR@C@@dUB7t@d_ Bd}РΠn - (젠x, -,(Player 1 Spin Player 2y, -,(  }z, -,(|$ | | | |$ |{, -,(  }* -68,-68,-&}68,-*  6-ԠנĠ 6-%-@"(0 !-&(򡠠0 A-@}(Round -@&68,-  ΠΠ 6-&-  -  -( #}-@'-(  8,!-(FREE! 8,!-@(!(FREE4 -4(Player :pin, uy vowel or} uess?AdAUK:)"@q  AX "@f*8,!AI* &6-}* 0-N(Player  :Select VowelX A !"@c  ! A@  A0  }Π 6-6-P:H:,$@ ,% -B2y 6-%!@6- 6.7<%,-@ (&}-+$, 0 50FREEAp7M68,-8,% -?(Player  wins a FREE spin!C M A:}0TURNAu<>  -,(Player  loses a turn!0 4 > Av?0BANKAAL 68,- -6}(Player  goes bankrupt!: > B L AvN6-A:7<,,XԠҠb,  -,(Player :Select }LettergAdAUlK:)qK="*+"@e)"@i)"@s)"@y)"@,A K }A sI;"*@e*@i*@s*@y*@? I A v' @e)!@ ' A 4}8&@d,"- $ *6-4 A 68&@d,-!-%+&@e,@"!( ٠}Ҡ 6- -@:7,,Ap67<,.>:,? --+&,%(%-) 5-+&,%;( ? }"-+&,%(>:,6-%"  7 !6-#68,-8,&AP+6-%7AA   } 8,!   A 68,-8,%+$,   Aҡ&68,-8,%8,68,-&68,-}B  -.(Player  wins the round!6-: > B  -   " -"( } A!!6-+8,!8,,%+8,!8,,$ "6- A5  -5(Player  moves to the BIG boar}d -   ŠǠĠ+ (}-@+(젠; -!(堤--}@;(Player    -  %1 -1(Player , Enter five consonants* -/AdA}U4K:)9!! @e)!@A!>??"@e)"@i)"@s)"@y)"@A!}C-%+$,@ (>:,H 68,-M -  R/  -/(Player , enter one vowelWAd}AU\K:)a!! @e)!@A!@f??@e*@i*@s*@y*@}A!@k-@&@ (>:,p 68,-u -z -8,@:7,,A!67<,.>:8,,? }--+&,%(%-) 5-+&,%;( ? -+&,%(>:8,,   ӠҠɠ} -  *  -*(Player  :Your guess?K:6-*-&@( *AdAU} - - 6-%?6 "P:,2 2&-6(@1& 6-+%,&@('!}@1,6 A" F:Ad,"AUA"5D )6+ @e)!@,*A&*@2: D A"U}A&A"u9 !-&%@1(>:A&,>:AT,96-&AdAU A"5'67,.>:,-}&%@'(7,AdAU AR4A#-@(E-APAP}!2-2%1 ;2E2  A#5 - -@PAP  2A}     2A 68,-8,%BP & (}-&(젠$ - (}) / -(Player 1"-@&/(Player 2. / -("-@&/(3 / -(|$ |"-@&}/(|$ |8 / -("-@&/(= # -(8,-@(#(8,B , -,((Sorry, do}llars are simulated)G  -(Play again? (Y/N)L K:)Q +"@6-6-!(}+ AV} @xA#[  + F --%?(& C F$ 7 -4(% } 7$ , -2@% )2,$ 2-@!2@@% /2}2$ -AP $ /  -/(Do you want to use FREE spin? K:) /"@6}8,-8,&%6-&/ A0E @xA00 $ L -( -@()( /-6(8,B-@(I}(8,L$ I -( -@()( /-6(8,B-@(I(8, , -(Total-@')(Total,$} G-APAP#2/2%3 =2G2 $  6-- 6-@:7,,6-@:7,, G}A"@E*@e*@i*@s*@y*@G6-    $ '  . -.(Only vowels left,} Time to guess!  -   &  +  6-%!6-0  5   -(: $  -$(Both players lo}se!? ! -   ! AD ӠҠI *  -*(Player  :Your guess?N AdAUS }K:X $AR-&@$( ] -b > )>+ @e)!@,*A&*@2A1pg }A&A1l  !(>:A&,6-&q A1pv '67,.>:,-&%@'(7,{   C)@}"A&'-65(>:A&,9 C A1` AUA2 AR  4 ' A   -} (ǠҠ  -    .-%@-'(>:A&,+ .$ 6-P:H:,$,6- #B}%  "6-A:7<,, ( 8,"6-+%,$+ &,( A2U 68,- 0 6-%%"-&&68,-* 06}- 6-B:,  6. -6-@:7,, / @e)!@%67,.>:,/ A3 67,.-   6-@}&P:',   -( (-@@((7$%<+%,$, $' K0,RAIDERS OF THE LOST ARK'""K0,THE BRIDE O}F FRANKENSTEIN' K0,THE EMPIRE STRIKES BACK'""K0,THE MAN WHO KNEW TOO MUCH'K0,MOBY DICK'K0,OPERATION OVERLORD}'K0,PASSAGE TO INDIA'K0,TO KILL A MOCKINGBIRD'K0,AFTER THE GOLDRUSH'K0,BEVERLY HILLS COP'K0,PURPLE R}AIN'K0,PAINT YOUR WAGON'K0,GONE WITH THE WIND'K0,NIGHTS IN WHITE SATIN'K0,SPANISH HARLEM'##K0,HAVE YOU} NEVER BEEN MELLOW 'K0,ROCKY MOUNTAIN HIGH!'""K0,ROCKY HORROR PICTURE SHOW"'K0,ON THE WATERFRONT#'K0,TRUTH OR C}ONSEQUENCES$'K0,APOCALYPSE NOW%'""K0,HAPPY DAYS ARE HERE AGAIN&'K0,JAILHOUSE ROCK''$$K0,THE HUNCHBACK OF NOTRE DA}ME('K0,ODE TO BILLY JOE)'K0,DOCTOR ZHIVAGO*'K0,UP WHERE WE BELONG+'K0,YOUNG FRANKENSTEIN,'++K0,CLOSE ENCOUN}TERS OF THE THIRD KIND-'K0,CHICO AND THE MAN.'K0,THE MIRACLE WORKER/'K0,LOVE AT FIRST BITE0'K0,WE ARE THE WOR}LD1'!!K0,IN THE HEAT OF THE NIGHT2'''K0,INVASION OF THE BODY SNATCHERS3'K0,BEVERLY HILLBILLIES4'K0,SWISS FAMILY R}OBINSON5'K0,THE ADDAMS FAMILY6'K0,PORGY AND BESS7'K0,A NIGHT AT THE OPERA8'K0,THE ODD COUPLE9'!!K0,A STREET}CAR NAMED DESIRE:'K0,THE FRENCH CONNECTION;'&&K0,THE GOOD THE BAD AND THE UGLY<' K0,MAD DOGS AND ENGLISHMEN='%%K0, }THE BALLAD OF DAVEY CROCKETT>'K0,BREAKFAST AT TIFFANYS?'K0,GULLIVERS TRAVELS@'!!K0,IN THE HEAT OF THE NIGHTA' K0 },THE EMPIRE STRIKES BACKB' K0,THE DIARY OF ANNE FRANKC'K0,A FAREWELL TO ARMSD'K0,THE FLYING FISHERMANE'K0,IN L }IKE FLINTF'K0,ALICE IN WONDERLANDG'$$K0,THE MAN OF A THOUSAND FACESH'K0,THE GOODBYE GIRLI'K0,MAKE ROOM FOR DADD }YJ'K0,WAR OF THE WORLDSK'K0,RUN SILENT RUN DEEPL'K0,THE KING OF HOLLYWOODM'K0,THE PAPER CHASEN'K0,YANKEE  }DOODLE DANDYO'K0,HEAVEN CAN WAITP'##K0,THE ABSENTMINDED PROFESSORQ'$$K0,THE BEST YEARS OF OUR LIVESR'''K0,WHATEVER }HAPPENED TO BABY JANES'K0,THE MUSIC MANT'K0,AGAINST ALL ODDSU'**K0,RAINDROPS KEEP FALLING ON MY HEADV'K0,DIAL M} FOR MURDERW'$$K0,WAKE ME UP BEFORE YOU GO GOX' K0,FOR WHOM THE BELL TOLLSY'K0,ON GOLDEN PONDZ' K0,THE OLD MAN AN}D THE SEA[',,K0,SGT PEPPERS LONELY HEARTS CLUB BAND\'K0,MY FAVORITE MARTIAN]'K0,PUFF THE MAGIC DRAGON^'K0,FIBBE}R MCGEE AND MOLLY_'K0,THE MAN FROM UNCLE`'!!K0,DIARY OF A MAD HOUSEWIFEa'K0,THE WIZARD OF OZb'K0,FOLLOW THE FLE}ETc'K0,THE LONE RANGERd'""K0,THE CHATTANOOGA CHOO CHOOe'&&K0,THE ADVENTURES OF RIN TIN TINf'K0,COOL HAND LUKEg'%}%K0,THE BRIDGE ON THE RIVER KWAIh'K0,ESCAPE FROM NEW YORKi'""K0,THE BATTLE OF NEW ORLEANSj'))K0,DIAMONDS ARE A GIRLS} BEST FRIENDk'K0,CITIZEN KANEl'K0,DOCTOR STRANGELOVEm'K0,PHANTOM OF THE OPERAn'K0,CALIFORNIA DREAMINo'K0,}CAT ON A HOT TIN ROOFp'K0,THE MALTESE FALCONq'K0,THE WILD WILD WESTr'K0,WEST SIDE STORYs'K0,ROMANCING THE STO}NEt'K1,LITTLE BIG HORNu'K1,WALTONS MOUNTAINv'K1,WALT DISNEY WORLDw'K1,CENTRAL PARKx'K1,PICADILLY CIRCUSy}'K1,PETRIFIED FORESTz'K1,MOUNT FUJI{'K1,MOUNT ST HELENS|'K1,MOUNT RUSHMORE}'K1,MOUNT MCKINLEY~'""K1,YELL}OWSTONE NATIONAL PARK'K1,HYDE PARK'K1,SUEZ CANAL'K1,SAHARA DESERT'K1,ACAPULCO MEXICO'K1,ENGLISH CHAN}NEL',,K1,UNION OF SOVIET SOCIALIST REPUBLICS'K1,BERMUDA TRIANGLE'K1,THE TOWER OF LONDON'K1,THE BERING SEA}'K1,THE AEGEAN SEA'K1,WESTMINSTER ABBEY'!!K1,EVERGLADES NATIONAL PARK'K1,THE GRAND CANYON'K1,NEW YORK CI}TY'K1,THE HUDSON BAY'K1,PANAMA CANAL'K1,CAPE CANAVERAL'K1,CHESAPEAKE BAY'K1,LAKE VICTORIA'K1,RO}CKY MOUNTAINS'K1,GULF OF MEXICO'K1,THE PERSIAN GULF'K1,ALCATRAZ ISLAND'K1,MOUNT VESUVIUS'K1,VATICAN }CITY'K1,STRAIT OF GIBRALTAR'K1,MOUNT EVEREST'K1,SCOTLAND YARD'K1,EMERALD CITY'K1,THE CASPIAN SEA'}K1,WOLVERTON MOUNTAIN'K1,MOUNT KILIMANJARO'K1,PIKES PEAK' K1,THE TROPIC OF CAPRICORN'K1,AMITY ISLAND'}K1,THE RED SEA'K1,LAS VEGAS NEVADA'K1,THE IBERIAN PENINSULA'K1,THE GREAT BARRIER REEF'K1,TIJUANA MEXICO }'K1,GULF OF CALIFORNIA'K1,EASTER ISLAND'K1,GILLIGANS ISLAND'K1,SOUTHFORK RANCH'K1,MISSISSIPPI RIVER!}'K1,SALT LAKE CITY'K1,THE AMAZON RIVER'K1,WASHINGTON SQUARE'K1,GREENWICH VILLAGE'K1,THE MEDITERRANEAN"} SEA'K1,THE TASMAN SEA'K1,THE EQUATOR'K1,THE KREMLIN'K1,NIAGARA FALLS'!!K1,JELLYSTONE NATIONAL PARK'#}K1,THE CONTINENTAL DIVIDE'K1,ATLANTIC OCEAN'K1,PACIFIC OCEAN'K1,SHERWOOD FOREST'K1,INDIAN OCEAN'K$}1,THE BAY OF BENGAL'K1,GRAND CENTRAL STATION'K1,REPUBLIC OF SINGAPORE'K1,APENNINES MOUNTAINS'##K1,REPUBLIC %}OF THE PHILIPINES'K1,AUCKLAND ISLANDS'K1,FALKLAND ISLANDS'K1,THE BELGIAN CONGO'K1,COLORADO RIVER'K1,&}DEVILS ISLAND'K1,THE CARIBBEAN SEA'K1,CAYMAN ISLANDS'K1,MISSOURI RIVER'K1,THE ADRIATIC SEA'K1,THE AR'}CTIC CIRCLE'K1,IWO JIMA'K1,MOUNT SURIBACHI'K1,SAN ANDREAS FAULT'K1,RIO DE JANEIRO'K1,TRAFALGAR SQUAR(}E'K1,THE CANARY ISLANDS'!!K1,UNITED STATES OF AMERICA'K1,FORT KNOX'K1,ATLANTIS'K1,MOUNT WHITNEY'K)}1,THE FRENCH QUARTER'K1,THE FRENCH RIVIERA'K1,THE MARIANA TRENCH'K2,MARVIN HAMLISCH'K2,POPE JOHN PAUL'*}K2,SPIRO T AGNEW'K2,INGMAR BERGMANN'K2,HENRY KISSINGER'K2,ERNEST HEMMINGWAY'K2,FRANK SINATRA'K2,MA+}RILYN MONROE'K2,PRINCESS ANNE'K2,ELLIOTT GOULD'K2,WARREN BEATTY'K2,BILLY THE KID'K2,NELSON ROCKEFELL,}ER'K2,ELVIS PRESLEY'K2,GEORGE PLIMPTON'K2,MUHAMMAD ALI'K2,MOTHER TERESA'K2,DADDY WARBUCKS'K2,PA-}UL MCCARTNEY'K2,LOU GEHRIG'K2,WALTER CRONKITE'K2,VIRGIL GRISSOM'K2,JOHN MCENROE'K2,JAMES CAGNEY'.}K2,AL CAPP'K2,PAUL NEWMAN'K2,GEORGE WASHINGTON'K2,AGATHA CHRISTIE'K2,JOHN DILLINGER'K2,ULYSSES S GR/}ANT'K2,STEVEN SPIELBERG'K2,YASSER ARAFAT'K2,GEORGE ORWELL'K2,HUMPHREY BOGART'K2,JACK LONDON'K2,0}CAPTAIN AMERICA'K2,WILLIAM F BUCKLEY'K2,MORRIS THE CAT'""K2,FRANKLIN DELANO ROOSEVELT'K2,ADRIENNE BARBEAU1}'K2,GRANDMA MOSES(K2,BABE RUTH(K2,THE BIG BOPPER(K2,EDWARD G ROBINSON(K2,HANK AARON(K2,JOHNNY WEI2}SSMULLER(K2,JOHN F KENNEDY(K2,ZSA ZSA GABOR(K2,RICHARD M NIXON(K2,RONALD REAGAN (K2,ROOSTER COGBURN 3}(K2,ILLYA KURYAKIN (K2,LAWRENCE OF ARABIA (K2,BURT BACHARACH (K2,JAMES DEAN(K2,ELTON JOHN(K2,EDDIE R4}ICKENBACKER(K2,BUFFALO BILL(K2,WOLFMAN JACK(K2,BORIS KARLOFF(K2,LADY GODIVA(K2,STEPHEN KING(K2,5}FARRAH FAWCETT(K2,GROUCHO MARX(K2,JOHN LENNON(K2,MICKEY MOUSE(K2,ROD SERLING(K2,ORSON WELLES(K26},MARY TYLER MOORE(K2,ALAN LADD(K2,OSCAR THE GROUCH(K2,COOKIE MONSTER(K2,CAPTAIN AND TENNILLE (K2,BILL7}Y JEAN KING!(K2,WINNIE THE POOH"(K2,OLIVIA DE HAVILLAND#(K2,RALPH KRAMDEN$(K2,CALAMITY JANE%(K2,CHARLIE C8}HAPLIN&(K2,OLIVIA NEWTON JOHN'(K2,SALLY FIELD((K2,BRUCE SPRINGSTEEN)(K2,JAMES BOND*(K2,SIR WALTER RALEIGH9}+(K2,FELIX THE CAT,(K2,SUSAN ST JAMES-(K2,CHARLES DE GAULLE.(K2,ADOLF HITLER/(K2,MAYNARD G KREBS0(K2,:}JOHN ROSS EWING1(K2,LYNDON B JOHNSON2(K2,DONNY OSMOND3(K2,BEAU BRIDGES4(K2,SIR ALEC GUINNESS5(K2,DONALD D;}UCK6(K2,BEETLE BAILEY7(K2,WOODY WOODPECKER8(K2,MINNESOTA FATS9(K2,GYPSY ROSE LEE:(K2,GEORGE S PATTON;(<}K3,EMPIRE STATE BUILDING<(K3,THE STATUE OF LIBERTY=(K3,SATURDAY EVENING POST>(''K3,THE HANGING GARDENS OF BABYLON=}?(K3,THE BERLIN WALL@( K3,THE GREAT WALL OF CHINAA(K3,LIBERTY BELLB(K3,FEDERAL RESERVE SYSTEMC(''K3,COMPUSERV>}E INFORMATION SERVICED(K3,USS CONSTITUTIONE(K3,SPACE SHUTTLE COLUMBIAF(K3,WORLD TRADE TOWERG(##K3,UNIDENTIFIED ?}FLYING OBJECTH($$K3,CENTRAL INTELLIGENCE AGENCYI(K3,BROOKLYN BRIDGEJ(K3,SUPREME COURTK(K3,THE GREAT PYRAMIDL(@}K3,USS TITANICM(K3,THE ACROPOLISN(K3,HALLEYS COMETO(K3,THE BLUE SPRUCEP(K3,GREATEST SHOW ON EARTHQ(K3,GA}OLDEN GATE BRIDGER(K3,LEANING TOWER OF PISAS(K3,SMITHSONIAN INSTITUTET(K3,EIFFEL TOWERU(K3,MASON DIXON LINEVB}(K3,SEARS TOWERW(K3,CHICAGO DAILY TRIBUNEX(K3,WASHINGTON POSTY(K3,WALL STREET JOURNALZ(K3,WORLD TRADE CENTC}ER[(##K3,SEVEN WONDERS OF THE WORLD\($$K3,DECLARATION OF INDEPENDENCE](K3,LOCH NESS MONSTER^(K3,FRENCH FOREIGN LED}GION_(K3,SOAP BOX DERBY`(K3,FOUNTAIN OF YOUTHa(K3,SHROUD OF TURINb(K3,ABOMINABLE SNOWMANc(K3,LINCOLN MONUE}MENTd(K3,KENTUCKY DERBYe(K3,NATIONAL HOCKEY LEAGUEf(K3,CRYSTAL BALLg(K3,HOUSTON ASTRODOMEh(K3,NORTHERN LIF}GHTSi($$K3,OHARE INTERNATIONAL AIRPORTj(K3,BLARNEY STONEk(K3,HARVARD UNIVERSITYl(K3,HARVEY WALLBANGERm(K3,RG}ADIO FREE EUROPEn(K3,VOICE OF AMERICAo(K3,TEQUILLA SUNRISEp(K3,ARTIFICIAL HEARTq(K3,YANKEE STADIUMr(K3,NEH}W YORK MARATHONs(K3,LARGE MOUTH BASSt(K3,SOPWITH CAMELu(K3,UNIVERSAL STUDIOSv(K3,TAJ MAHALw(K3,ACADEMY AWI}ARDSx(K3,ANDREA DORIAy(K3,THE MANHATTAN PROJECTz(K3,MURPHYS LAW{(K3,TREASURY DEPARTMENT|(K3,ARC DE TRIOMPJ}HE}(K3,OVAL OFFICE~(K3,DEAD SEA SCROLLS(K3,INAUGURAL ADDRESS(K3,FAMILY TREE(K3,HARLEM GLOBETROTTERS(K}K3,UNITED NATIONS(K3,CY YOUNG AWARD(K3,PULITZER PRIZE(K3,NATIONAL ENQUIRER(&&K3,MOBILE ARMY SURGICAL HOSL}PITAL(K3,WINDSOR CASTLE(K3,SHETLAND SHEEPDOG(K3,GERMAN SHEPHERD(K3,THE PARTHENON(K3,MODEL T FORD(M}K3,THREE RIVERS STADIUM(K3,RIVERFRONT STADIUM(K3,PONTIAC SILVERDOME(K3,GREENWICH MEAN TIME(K3,BUCKINGHAN}M PALACE(K3,CANDLESTICK PARK(K3,MEXICAN CHIHUAHUA(K3,ST LOUIS ARCH(K3,TREATY OF VERSAILLES(K3,GRAND O}OLE OPRY(K3,TROPIC OF CAPRICORN(K3,TROPIC OF CANCER(K3,THE PENTAGON(!!K3,NATIONAL FOOTBALL LEAGUE(&&K3,UP}NITED STATES FOOTBALL LEAGUE(((K3,FEDERAL BUREAU OF INVESTIGATION(!!K3,INTERNAL REVENUE SERVICE(%%K3,DEPARTMENT OF TQ}RANSPORTATION(((K3,ENVIRONMENTAL PROTECTION AGENCY(&&K4,A DAY LATE AND A DOLLAR SHORT(**K4,WALK SOFTLY BUT CARRY A BR}IG STICK(K4,THE BUCK STOPS HERE( K4,ONLY THE GOOD DIE YOUNG(K4,KEEP YOUR EYES PEELED(K4,IT TAKES TWO TO TAS}NGO(&&K4,LAUGH ALL THE WAY TO THE BANK(""K4,SHOOTING FISH IN A BARREL(--K4,BAREFOOT PREGNANT AND IN THE KITCHEN(##T}K4,DONT LET THE BED BUGS BITE(K4,WHERES THE BEEF(--K4,SPEAK NOW OR FOREVER HOLD YOUR PEACE(K4,WASTE NOT WANT NOU}T(**K4,BIRDS OF A FEATHER FLOCK TOGETHER(K4,IN THE CAT BIRD SEAT(""K4,BLACK SHEEP OF THE FAMILY(&&K4,FAIR WINDSV} AND FOLLOWING SEAS(K4,DOWN IN THE DUMPS(K4,DONT TOUCH THAT DIAL(!!K4,REAL MEN DONT EAT QUICHE(!!K4,BURNING TW}HE MIDNIGHT OIL(K4,THAT TAKES THE CAKE(##K4,LET THE CAT OUT OF THE BAG(((K4,MORE THAN ONE WAY TO SKIN A CAT(%%KX}4,THE EARLY BIRD GETS THE WORM( K4,LEAVE NOTHING TO CHANCE(K4,A CHICKEN IN EVERY POT(K4,CHIP OFF THE OLD BLOCKY}())K4,CLEANLINESS IS NEXT TO GODLINESS(K4,RAKE OVER THE COALS(##K4,HORSE OF A DIFFERENT COLOR(K4,CAST IN CONCRZ}ETE(K4,CONFLICT OF INTEREST(K4,ROTTEN TO THE CORE(K4,THICK AS PEA SOUP(,,K4,ABSENCE MAKES THE HEART GROW FO[}NDER(%%K4,BEYOND THE SHADOW OF A DOUBT(K4,DYED IN THE WOOL(""K4,THERES NO PLACE LIKE HOME(K4,SPARE NO EXPENSE\}(K4,EYE FOR AN EYE(--K4,A FOOL AND HIS MONEY ARE SOON PARTED(K4,FISHING FOR CLUES(&&K4,FLATTERY WILL GET YOU ]}NOWHERE(K4,FORGIVE AND FORGET( K4,GOING AGAINST THE GRAIN(K4,MONEY BACK GUARANTEE(,,K4,ONLY HER HAIRDRESSER ^}KNOWS FOR SURE(++K4,SIX IN ONE HALF DOZEN IN THE OTHER(K4,HURRY UP AND WAIT(K4,JACK OF ALL TRADES(K4,WHOLE _}KIT AND CABOODLE(K4,GO FLY A KITE(K4,TOO POOPED TO POP(K4,AS THE CROW FLIES(++K4,CINCH BY THE INCH HARD BY `}THE YARD(K4,ITS NOT IN THE CARDS(K4,STUBBORN AS A MULE(K4,NO NEWS IS GOOD NEWS(##K4,PANIC IN THE HEARTS OF a}MEN(K4,LIKE TWO PEAS IN A POD(K4,WRINKLED AS A PRUNE( K4,PROOF IS IN THE PUDDING(K4,BETTER DEAD THAN REDb}(K4,CAUGHT UP IN RED TAPE())K4,BEER DRINKERS MAKE BETTER LOVERS( K4,WITHOUT RHYME OR REASON(!!K4,BACK IN THE SADc}DLE AGAIN(K4,BRING HOME THE BACON(,,K4,OUT OF THE FRYING PAN INTO THE FIRE(%%K4,IN ONE EAR AND OUT THE OTHER(d}K4,AS QUICK AS A WINK(K4,FLAT AS A PANCAKE(K4,PLAYING SECOND FIDDLE( K4,MORE DOLLARS THAN SENSE(K4,HIDING e}IN THE SHADOWS( K4,SKELETONS IN THE CLOSET(K4,A SIGN OF THE TIMES(##K4,RAINING LIKE CATS AND DOGS(##K4,TEMPORAf}RILY OUT OF SERVICE(K4,STOP LOOK AND LISTEN(K4,LET THEM EAT CAKE(**K4,THERES A SUCKER BORN EVERY MINUTE())K4,g}GIVE ME LIBERTY OR GIVE ME DEATH( K4,THREE STRIKES YOURE OUT(K4,WOUND TIGHT AS A DRUM(K4,COOL AS A CUCUMBER(q}B%DOS SYSB*)DUP SYSBSBOOTCAMPBASBcBOOTCAMPM65B$tBRKWORKSOBJB*DGEN BASBFORTUNE BASB"PRESETS B>TECHPOP ACTBBTECHPOP OBJB.TIMBRES K4,FIT AS A FIDDLE(K4,QUIET AS A MOUSE($$K4,THE GRASS IS ALWAYS GREENER(K4,LAST BUT NOT LEAST(K4,QUICK TOr} THE DRAW(!!K4,LIKE A FISH OUT OF WATER(K4,FOREVER AND A DAY(K4,TO BE OR NOT TO BE(&&K4,ALL THAT GLITTERS IS s}NOT GOLD(,,K4,GET UP GET DOWN GET FUNKY GET LOOSE)K4,TO TELL THE TRUTH)''K4,HEARD IT THROUGH THE GRAPEVINE)K4t},MAKE YOURSELF AT HOME)$$K4,THE END JUSTIFIES THE MEANSHqŠRq;@&,;@6,;@6,;@6,u};@,;@@,;@,;@,9@6,9@&,9@,9@,9@,9@,\q6-v}6-@'6-@36-@?6-@K6-@W6-@c6-@o6-@{6-@ 6-@6-w}@6-@fqc 6-6-A1@!6-A0-6-A096-A0E6-A0Q6-A0 ]6-A0%c6-pqK6x}-A0P6-A0U'6-A0e36-A0p?6-A1@K6-A2Pzq$$6.ABCDEFGHIJKLMNOPQRSTUVWXYZqjj6.`$800$ 50$60y}0$150$650TURN$400$900$100$700$250FREE$950$550$300$750$500TURN$850$450$200$350$999BANKqĠŠq.(.(# z}q 6-6-@eq B5qD:*.DATq qB:, @BE{}q67$%<$%,.7<,q 6-% B%q B Beq[+(Unexpected disk error - F:A5,I(|}Press any key to continue[AdAUq F:Ad,"AUBUq%q(( Select: lay gameq ( }} dit new dataq$$( oad new dataqK:)q"@Br"@i%~} D:DGEN.BASr*"@vB r Bxr$$( Clue files available...r#(#( r } -&r00( |% 7$%<$%, |$r )r ( .r++(# Select which Clue} file to load:8rK:)=r6-&@IBr )!&B@Gr 6.Lr'67<,.D:'67,.7$%}<$%,Qr=-B:,&7<,4 )7<,4.467,..DAT=6-B:,Vr [r2(( Loading (2( Please standby.}`r-A er(>:A%,A jrG -,(ENTER >:@4,>:@4,/(2(G(POKE 842,12:CONTor }-AB@&t(6-A(ƠӠt 9,tF26.(TITLE PLACE PERSON THING PHRASE }FӠ/uҮҠŠ0u(>:A%,A 2uU-@%(젠+-@(}by ROBERT BEATTYF-U( 70317,30453u#-@#(Initializing...4u -&68,- 5u1 #Bp-@}"-Ad%1 :u6-A6-%@$?u6-?:A,Du!AA(!ANu%%6-F:A`,%AV}$F:Aa,Xu%-%%@(!A0% bu#%A#BBAlu' (}AF:,'A F:,}vu$u''72,138,72,174,156,6,189,176,6,141u((10,212,141,24,208,189,200,6,141,23u((208,238,156,6,104,170,104,64,6,104}u&&169,7,160,168,162,6,32,92,228,96v''169,1,141,156,6,76,98,228,112,114 v--116,118,120,122,124,124,124,124,122,122v}--124,124,120,120,118,118,116,116,114,114 v##112,112,14,14,14,14,14,14,0,0*v0,0,0,0,0,0,14,14,14,144v14,14,14,14,1}4,14,0,0,0,0 D:FORTUNE.BAS,114,114 v##112,112,14,14,14,14,14,14,0,0*v0,0,0,0,0,0,14,14,14,144v14,14,14,14,1";preset 0 - rolloffM 32T 0 T 1 W 8 T 1 W 24 ;1T 0 T 1 W 8 T 1 W 24 ;1T 0 T 1 W 1 T 1 W 1 T 1 }W 1 T 1 W 1T 1 W 1 T 1 W 1 T 1 W 1 T 1 W 1 T 1 W 1 T 1 W 1 T 1 W 1 T 1 W 1 T 1 W 1 T 1 W 1 T 1 W 1 T 1 W 1T 0 T 1 W 1 T 1} W 1 T 1 W 1 T 1 W 1T 1 W 1 T 1 W 1 T 1 W 1 T 1 W 1 T 1 W 1 T 1 W 1 T 1 W 1 T 1 W 1 T 1 W 1 T 1 W 1 T 1 W 1 T 1 W 1 ;3}T 0 T 1 W 8 T 1 W 24 ;4END;preset 1 - cadence (triple)M 24T 0 T 1 W 8 T 1 W 4 T 0 T 1 W 8T 1 W 1 T 1 W 1 T} 1 W 1 T 1 W 1 ;1T 0 T 1 W 8 T 1 W 4 T 0 T 1 W 8T 1 W 1 T 1 W 1 T 1 W 1 T 1 W 1 ;1T 0 T 1 W 4 T 1 W 4 T 1 W 4T 0 T }1 W 4 T 1 W 4 T 1 W 4 ;3T 0 T 1 W 8 T 1 W 4 T 0 T 1 W 8T 1 W 1 T 1 W 1 T 1 W 1 T 1 W 1 ;1T 0 T 1 W 8 T 1 W 4 T 0} T 1 W 8T 1 W 1 T 1 W 1 T 1 W 1 T 1 W 1 ;1T 0 T 1 W 8 T 1 W 4 T 0 T 1 W 8T 1 W 1 T 1 W 1 T 1 W 1 T 1 W 1 ;1T 0 T 1 }W 4 T 1 W 4 T 1 W 4T 0 T 1 W 4 T 1 W 4 T 1 W 4 ;3T 0 T 1 W 20 T 1 W 1 T 1 W 1T 1 W 1 T 1 W 1 ;8}END;preset 2 - cadence (duple)M 32T 0 T 1 W 8 T 1 W 8 T 0 W 8 T 1 W 8;1T 0 W 8 T 1 W 8 T 0 W 8 T 1 W 4T 1 W 4 } ;2T 0 T 1 W 8 T 1 W 8 T 0 T 1 W 4T 1 W 4 T 1 W 4 T 1 W 4 ;3T 0 T 1 W 8 T 1 W 8 T 0 T 1 W 8T 1} W 1 T 1 W 1 T 1 W 1 T 1 W 1T 1 W 1 T 1 W 1 T 1 W 1 T 1 W 1 ;4T 0 T 1 W 8 T 1 W 8 T 0 W 8 T 1 W 8;1T 0 W 8 T 1 W 8 T 0 }W 8 T 1 W 4T 1 W 4 ;2T 0 T 1 W 8 T 1 W 8 T 0 T 1 W 4T 1 W 4 T 1 W 4 T 1 W 4 ;3T 0 T} 1 W 16 T 0 W 8T 1 W 1 T 1 W 1 T 1 W 1 T 1 W 1T 1 W 1 T 1 W 1 T 1 W 1 T 1 W 1 ;8END;preset 3M 12T 3 W 3 T 3 W 1 T 4 }W 1 T 3 W 2T 3 W 1 T 3 W 4 T 2 W 2 T 3 W 2 ;1T 3 W 3 T 3 W 1 T 4 W 1 T 3 W 2T 3 W 1 T 3 W 2 T 3 W 2T 2 T 3 W 2 T 3 W 2} ;2T 3 W 3 T 3 W 1 T 4 W 1 T 3 W 2T 3 W 1 T 3 W 4 T 2 W 2 T 3 W 2 ;1T 3 W 3 T 3 W 1 T 4 W 1 T 3 T 4W 2 }T 3 W 1 T 3 W 2 T 3 W 2 T 2T 3 W 4 ;4END;preset 4M 8T 3 T 5 W 2 T 5 T 6 W 2 T 2 T 5 W 2T 5 W} 2 T 3 T 5 W 1 T 6 W 1 T 5 T 6W 2 T 2 T 5 W 2 T 5 T 6 W 2 ;1T 3 T 5 W 2 T 5 T 6 W 2 T 2 T 5 W 2T 5 W 2 T 3 T 5 W 1 }T 6 W 1 T 5 T 6W 2 T 2 T 5 W 2 T 5 T 6 W 2 ;1T 3 T 5 W 2 T 5 T 6 W 2 T 2 T 5 W 2T 5 W 2 T 3 T 5 W 1 T 6 W 1 T 5 T 6}W 2 T 2 T 5 W 2 T 5 T 6 W 2 ;3T 3 T 5 W 2 T 5 T 6 W 2 T 2 T 5 W 2T 5 W 2 T 3 T 5 W 1 T 6 W 1 T 5 T 6W 1 T 6 W 1 T }2 T 5 W 1 T 6 W 1 T 5T 6 W 1 T 6 W 1 ;4END;preset 5M 14T 1 W 2 T 1 W 2 T 1 W 4 T 5 W 2 T 5 W 2 T 2 W} 4 ;1T 1 W 2 T 1 W 2 T 1 W 4 T 3 W 4T 2 W 2 T 6 W 1 T 6 W 1 ;2T 1 W 2 T 1 W 2 T 1 W 4 T 5 W }2 T 5 W 2 T 2 W 4 ;1T 1 W 2 T 1 W 2 T 1 W 4 T 3 W 2T 6 W 1 T 6 W 1 T 2 W 2 T 5 W 1T 5 W 1 } ;4END;preset 6M 14T 4 W 2 T 4 W 2 T 2 T 3 W 2 T 4 W 2;1T 4 W 2 T 4 W 2 T 2 T 3 W 2 T 4 T 6 W 1 T 6 W 1 } ;2T 4 W 2 T 4 W 2 T 2 T 3 W 2 T 4 W 2;1T 4 W 2 T 6 W 2 T 4 W 2 T 6 W 2 ;4END;preset 7M 16T 3 T} 6 W 4 T 4 W 2 T 3 W 2 T 6 T 3W 4 T 4 W 2 T 3 W 2 ;1T 3 T 6 W 4 T 4 W 2 T 3 W 2 T 6 T 3W 2 T 4 W 1 T 4 W 1 }T 4 W 2 T 3 W 2;2T 3 T 6 W 4 T 4 W 2 T 3 W 2 T 6 T 3W 4 T 4 W 2 T 3 W 2 ;1T 3 T 6 W 4 T 4 W 2 T 3 W 2 T 3 T} 4W 2 T 6 W 2 T 3 T 4 W 2 T 6 W 2 ;4END;preset 8M 12T 3 T 4 W 2 T 4 W 2 T 2 T 4 W 2 T 4W 1 T 4 W 1 T 3 T 4 W 2 T 4W} 2 T 2 T 4 W 2 T 4 T 6 W 2 ;1T 3 T 4 W 2 T 4 W 2 T 2 T 4 W 2 T 4W 1 T 4 W 1 T 3 T 4 W 2 T 4W 2 T 2 T 4 W 2 T 4 T 6 }W 2 ;1T 3 T 4 W 2 T 4 W 2 T 2 T 4 W 2 T 4W 1 T 4 W 1 T 3 T 4 W 2 T 4W 2 T 2 T 4 W 2 T 4 T 6 W 2 ;1T 3 T 4 W} 1 T 4 W 1 T 4 W 1 T 4 W 1T 2 T 4 W 1 T 4 W 1 T 4 W 1 T 4 W 1T 5 T 6 W 1 T 5 W 1 T 5 W 1 T 5 W 1T 2 T 5 W 1 T 5 W 1 T 5 W }1 T 5 W 1;4END;preset 9M 16T 3 T 6 W 4 T 6 W 4 T 4 T 6 W 4 T 3 T 6 W 4 T 3 T 6 W 4 T 6 W 4 T 2 T 4 W 4 T 3 T 6 W 4 } ;1T 3 T 6 W 4 T 6 W 4 T 4 T 6 W 4T 3 T 6 W 4 T 3 T 6 W 4 T 6 W 4T 2 T 4 W 4 T 3 T 6 W 2 T 4 T 6W 2 } ;2T 3 T 6 W 4 T 6 W 4 T 4 T 6 W 4 T 3 T 6 W 4 T 3 T 6 W 4 T 6 W 4 T 2 T 4 W 4 T 3 T 6 W 4 ;1T }3 T 6 W 4 T 6 W 4 T 4 T 6 W 4T 3 T 6 W 4 T 3 T 6 W 4 T 6 W 4T 3 W 4 T 6 W 4 ;4END W 4 ;1T h;TechPop Wes Philp; 160 Sand Pine Road; Indialantic, FL 32903;DEFINE END="$FE", ;end o!}f preset T="$FD", ;timbre W="$FC", ;wait M="$FB", ;metronome EOL="$FF", ;end-of-list !} A="$A",B="$B",C="$C",D="$D", E="$E",F="$F", QUIET="0 0 0"CARD ARRAY PRESETS(1)=[INCLUDE "PRESETS"EOL]BYTE !}ARRAY TIMBRES(1)=[INCLUDE "TIMBRES"EOL];; TRAP -------------------------------BYTE BRKKEY=$11PROC TRAP(BYTE N);stop on!} BREAK or any OS errorBRKKEY=0RETURN;; ALERT ------------------------------PROC ALERT(BYTE ARRAY STRING)PRINTF("%E%S%E"!},STRING)RETURN;; BUILD_DLI --------------------------MODULECARD VDLI_OLD=[0], CLOCK=[0];counts at 4*frame ratePROC!} BUILD_DLI();delay list interrupt servicer;increments 16-bit CLOCK;BYTE ARRAY DLISERVE(1)=[$48 ;PHA$18 !} ;CLC$A9 $01 ;LDA 1$6D] ;ADC LSBBYTE POINTER D1=CLOCKBYTE ARRAY D2(1)=[$8D] ;STA LSBBYT!}E POINTER D3=CLOCKBYTE ARRAY D4(1)=[$90 $03 ;BCC 3$EE] ;INC MSBBYTE POINTER D5=CLOCK+1BYTE ARRAY D6(1)=!}[$68 ;PLA$40] ;RTI;BYTE ARRAY MOD_LIST(1)=[0 8 16 24]BYTE I, NMIEN=$D40ECARD VDLI=$200BYTE !}POINTER BPCARD POINTER SDLST=560;;install the DLI service routineVDLI_OLD=VDLIVDLI=DLISERVENMIEN=$C0 ;DLI and VBI;modi!}fy the display listFOR I=0 TO 3 DO BP=2+MOD_LIST(I)+SDLST^ IF MOD_LIST(I)>=2 THEN BP==+2 FI BP^==%$80OD BP=SD!}LST^RETURN; ; UNBUILD_DLI ------------------------PROC UNBUILD_DLI()BYTE NMIEN=$D40ECARD VDLI=$200 N!}MIEN=$40 ;VBI onlyVDLI=VDLI_OLDGRAPHICS(0)RETURN;; KBD --------------------------------BYTE FUNC KBD(BYTE KCHAN,SCHAN)!};KCHAN=K: channel #;SCHAN=S: channel #;RETURN:; - operator-entered preset # (0-9); - $FF no entry; - $FE BREAK; - $!}FD invalid input; - $FC >; - $FB = '0 AND N<='9 THEN PUTD(SCHAN,N) PUTD(SCHAN,CR) N==-'0 ELSEIF N=CR THEN N=$FF ;ignore RETURN ELSE !} N=$FD ;invalid input FIFIRETURN(N);; FIND_PRESET ------------------------CARD FUNC FIND_PRESET(BYTE N);N=preset # (!}0,1 ...);RETURN:; - preset data address; - $FFFF if not foundBYTE I, PVCARD POINTER PP=PRESETSI=0DO PV=P!}^ ;LSB only IF I=N AND PV#EOL THEN ;done RETURN(P) ELSEIF PV=EOL THEN ;e.d-of-string found RETURN($FFFF)!} ELSEIF PV=END THEN I==+1 FI P==+2OD;; PREP_TIMBRE ------------------------BYTE FUNC PREP_TIMBRE();RETURN: numb!}er of timbres definedBYTE NT, I, DIST, LBYTE POINTER BPBP=TIMBRESFOR NT=0 TO 254 DO DIST=BP^ BP==+2 !}L=BP^ BP==+1 IF DIST=EOL THEN NT==RSH 1 RETURN(NT) ELSEIF L>0 THEN ;fix shapes by ORing distortion DIST!}==LSH 4 FOR I=1 TO L DO BP^==%DIST BP==+1 OD FIODRETURN(0) ;error return;; INIT_TIMBRE ------------!}------------PROC INIT_TIMBRE(BYTE N,V, CARD ARRAY ADDR);N=timbre # (0,1 ...);V=voice (0 or 1);ADDR=addre!}sses of 4 shape strings;BYTE I,J, L, CHANBYTE POINTER BP, AUDFBP=TIMBRESIF N#0 THEN ;skip over !}2*N timbre arrays J=N+N FOR I=1 TO J DO BP==+2 L=BP^ BP==+L+1 ODFI;FOR I=0 TO 1 DO CHAN=V+V+I ;Atari v!}oice # (0-3) BP==+1 AUDF=CHAN+CHAN ;set AUDF AUDF==+$D200 AUDF^=BP^ BP==+1 ADDR(CHAN)=BP ;timbre string address !} L=BP^ ;timbre string length BP==+L+1ODRETURN;; MODULATE ---------------------------PROC MODULATE(CARD ARRAY A!}DDR, BYTE ARRAY OFFSET);ADDR=addresses of 4 shape strings;OFFSET=clock offset for voices 0 & 1BYTE V, I!}DX, LSB, I,J, L, CHANBYTE POINTER BPBYTE ARRAY AUDC(1)=$D201CHAN=0 ;0-3FOR V=0 TO 1 DO ;loop over t!}he two voices LSB=CLOCK ;compute the shape index IDX=LSB-OFFSET(V) IF IDX>127 THEN IDX=127 OFFSET(V)=LSB+127 !}FI FOR I=0 TO 1 DO ;loop over two channels per voice BP=ADDR(CHAN);timbre string addr L=BP^ ;timbre stri!}ng length IF L>0 THEN IF IDX273 THEN N=273 ;overflow will occurFIDELTA=N*240IF D!}ELTA>32767 THEN DELTA==RSH 1 R==RSH 1FIDELTA==/RRETURN(DELTA+CLOCK);; CONTINUE ---------------------------BYTE FUNC!} CONTINUE(CARD ARRAY P, INT SPEED, BYTE N_TIMBRES);P=address of preset;SPEED=operator!} modification to tempo;N_TIMBRES=number of timbres defined;RETURN:; 0 - normal; 1 - error;BYTE INIT=[1], COM!}, VOICE, I, STATUSCARD R, N, NEXTINT METROBYTE ARRAY AUD(1)=$D200, OFFSET(2), !} NULL(1)=[QUIET]CARD ARRAY S_ADDR(4)CARD POINTER OLD_P=[$FFFF];IF INIT#0 THEN ;initialize INIT=0 STATUS=0 OLD_P!}=P VOICE=0 ZERO(AUD,9) FOR N=0 TO 3 DO S_ADDR(N)=NULL OD CLOCK=0 NEXT=CLOCKFI;IF NEXT<=CLOCK THEN ;proc!}ess a command from P array COM=OLD_P^ OLD_P==+2 IF COM=END THEN ;end of preset INIT=1 ELSEIF COM=T THEN ;!}timbre VOICE==!1 ;flip between 0 and 1 I=OLD_P^ OLD_P==+2 IF I32767 THEN ;negative R=2 FI N=OLD_P^ OLD_P==+2 NEXT=QUANTUM(R,N) ELSEIF COM=M THEN ;metron!}ome METRO=OLD_P^ OLD_P==+2 ELSE STATUS=1 ;error FIFIIF STATUS=0 THEN ;continue playing MODULATE(S_ADDR,!}OFFSET)ELSE ;error detected INIT=1FIRETURN(STATUS);; TECHPOP ----------------------------PROC TECHPOP()BYTE CLICK=!}731, ;XL keyclick switch RATE=730, ;XL cursor rep rate CRSINH=$02F0,;cursor inhibit SKCTL=$D20F, ;serial !}port cntrl SSKCTL=$0232,; ... shadow KCHAN=[7], ;kbd channel # N, N_TIMBRESCARD OLD_ERROR, P=[$FF!}FF]INT SPEED=[0];GRAPHICS(0)OLD_ERROR=ERRORERROR=TRAPCLICK=$FF ;disable XL keyclickSKCTL=3SSKCTL=3DEVICE=0CLOSE(KCH!}AN)OPEN(KCHAN,"K:",12,0)BUILD_DLI()CRSINH=$FFPRINTF("%E TechPop ")PRINTF("Synthesizer wp%E")RATE=3 ;fast !}key auto-repeat;N_TIMBRES=PREP_TIMBRE();setup timbresIF N_TIMBRES=0 THEN ALERT("invalid timbre format")FI;DO; N=KBD(!}KCHAN,SCHAN) N=KBD(KCHAN,0) IF N=$FF THEN ;no input ELSEIF N=$FE THEN ;BREAK key EXIT ELSEIF N=$FD THEN !} ALERT("?") ELSEIF N=$FC THEN ;speed up SPEED==+1 ELSEIF N=$FB THEN ;slow down SPEED==-1 ELSEIF N=$FF!} THEN ;no entry ELSE ;startup a new preset P=FIND_PRESET(N) SPEED=0 IF P=$FFFF THEN ALERT("invali!}d preset") FI FI IF P#$FFFF THEN ;continue playing the preset N=CONTINUE(P,SPEED,N_TIMBRES) IF N#0 THEN !} ALERT("invalid preset") P=$FFFF FI FIODBRKKEY=$FF;ERROR=OLD_ERRORCLICK=0 ;reenable XL keyclickUNBUILD_!}DLI()SNDRST()RETURNset") P=$FFFF FI FIODBRKKEY=$FF;ERROR=OLD_ERRORCLICK=0 ;reenable XL keyclickUNBUILD_ /-O (c)1983 Action Computer Services  B JKIHiDiELV`L=/%} =/ BLV`L//l L/ &` Fj`8冨凪` /EӅӥ%} /`ʆǪƩ Ɛee` /ƦʆǢ &Ɛeǐ 0 0L/ /'&&&8儨児%}祂*L/&&*ń8&&L/ [0`hihiHHȱȱL/c !#3`%}L/JJJJ`H /h`Hȩh r/L0 {/L0 %/L0 -/L0 3/H8%}`HhHh _1L0 BHI V䅠L0 L1 =/L0Ԇ ؠPIPP`%} 1P -/L0 1L1 1L1 2L1H- 18塪墨hL2 2L1 &2L1 1ȹP`%}텠8堨塪 1芨Oȩ-`PP 1P棩 Ѥģ0-ģ6000:,80H %}& &ehe&eģ0ʥ 8堅塅`$ 1&*i0:0i 1Ʀ`¢ 护%}°ڱ%ȱ%E 1L`3担CS R1L`3I 2L`3H 3L`3 1L`3 &B V 0NLMȑ%}` MLN%B VL0S:4E:4H L1 4 4 1 L1h)0I44L1[\ZUVT` @444%}` G4L1 :4L1 @4L1) ` G4L1 &0` 0d /ҥ `2)2%}ҩ`p`0)95`@0)ӈJJJJ)`Ѕ`ȱ`` 55ȥ`Hh%}ƣĢ`ƥĤ`Ѣ 5`ȱѢĦ`膡`%}`ťƤe8夰L5 Ƥ8`ŦeѠe桊L5 %}%}%}%}%}&}&} &}&}&}&} &}&}&}& }& }& }& }& }&}&} &}&}&}&}&}&}&}J6$     &}        &} P )  LDD`LDDDLD%E%S%EDDD C3`H&}mDDDh@0LEDDDԠEELEE}E E Eq Eq EEELE Ei&} E Ei E E E EL0E E E E E`LE@ԭDD 4`LEEELEELFI&}LEELFE 1ELFELFEI>L7FEE 1ELFEI<LRFEE 1ELFE0LF9ELFEE &}1EE 18E0ELFEMELFELFEE`LFFCFCFFFFFFMFLFFILFF&}F`LGFILG`LGFILGFFiFFiFLFL2GC.G-G)G)GLG-G.G+G-Gi-G.G&}i.G-G.G,G-G.G+GILGN)G)G`LG,GLG+G+G+G+GȌ*G,GGG*GLG-G.G +G-G.G*GL&}G)GLAG`LH 0GCGGGLHGmGGGG9H9HGLHGiGGiGGGGGm& }GGiiGiGGL.HGGL@IGmGmGGGGGmGGGGiGGiҍGGGGG&!}GGG mG*(mGGȑGGGGGmGGiiGiGGLH`LQI 0AIKI&"}EIEIL`JDGICImEIDIi8GIFIFILIFICImEIDIiGIiHIHILZJKI mAI*(mBI&#}MILILIMIJIJIL=JFIJILJFIiIILJJIIILImIILIMIiMILIMIIIL@JIIKImKIIIKIH&$}ILIEIL_I`LjJ 0aJcJdJLJdJcJdJcJ &0eJfJeJfJLJNfJneJNbJnaJbJaJfJeJ [0e&%}JfJeJmDfJmD`.O KLK 0JJLKJJJKJ KJ ҩ H5JJ&&}JJLKJ mKJ*(mKKJJLLKDDDJDJDJDJLL KKJ Ki KKiK&'}JILKȌJLLJIL?LJIJ KKJ Ki KKiKJJL8LKKJJ GDJJL