@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr g( (c)1983 Action Computer Services  B JKIHiDiELV`Lg} g BLV`0LWhShl LTh &` Fj`8冨凪` hEӅӥ} h`ʆǪƩ Ɛee` hƦʆǢ &Ɛeǐ h hLh h'&&&8儨児}祂*Lh&&*ń8&&Lh i`hihiHHȱȱLahc !#3`}LThJJJJ`H ahh`Hȩh 0hLi 9hLi gLi gLi gH8 }`HhHh jLi BHI V䅠Li LTj gLiԆ ؠPIPP` } jP gLi jLqj jLj jLjH- zj8塪墨hLj jLqj jLj jȹP` }텠8堨塪 j芨Oȩ-`PP LjP棩 Ѥģ0-ģ6000:,80H }& &ehe&eģ0ʥ 8堅塅`$ sj&*i0:0i sjƦ`¢ 护 }°ڱ%ȱ%E sjLl担CS jLlI jLlH kLl jLl &B V iNLMȑ}` MLN%B VLiS:lE:lH j ll i jh)0IllLi[\ZUVT` lll}` mLj lLRj lLvj) ` mLj h` 0d Thҥ `2)2}ҩ`p`0)9m`@0)ӈJJJJ)`Ѕ`ȱ`` mȥ`Hh}ƣĢ`ƥĤ`Ѣ ~n`ȱѢĦ`膡`}`ťƤe8夰Ln Ƥ8`ŦeѠe桊Ln LDAY c}_hi HA "3DUfw"3DDDUUUfff#o !#&(*-/8o  No3 ) }ko}oR,0,L2p,p+p.p-p+p]p,p^p]p-p^p.pLjpsp-p.pLLp` TLtpopp  }lLp̠̠̺p j  loo jLp p j lLp RATE OF INCREASE:p j lo jLq } q j mILps mMoLqopp  lLPq̠̠̺q; j lLxq RATE OF INCREASE:qc j} mMoLqopp  lLqINITIAL SKILL LEVEL:q j lLqŠƠźq jppMoLrr mM oL}rooLr8oopooo mM!oLOroɸo LOromopooio  loo jLhr rd jLr mM} oLroLr8oo mM!oLrodLro lo jLr r j mM o mM!oLZskplpopd}kplpL1snpmp ooL.soɮo L.sopLWslpkpN i8ȍmpnpLdslpkpnpmp /pL q8}oo oo`Ls l Wo`C GenPLsLomoMoissoiLoeMoi8ssssssst}stt͘stsLttP8ssss mco*(mdos mos*(mo8ssss mgo*(mho}s m)ps*(m*pȱssLs8sso6omo7oioM`Ltoi(ooio o oott o o}Lku o mco o*(mdooqooq oo o o mgo o*(mhooqooq oo oo o o }Lt`Lou o oouu o oL.vG o mco o*(mdooqoqi(oi o o mgo o*(mhooqu!}oquuou oL#v o ooi(o oi oLu o oL}u`L2v o ooPvPv o oLvR o mco o*(m"}dooqoqi(oi o o mgo o*(mhooqvoqvvov oLvEro oLv`oi#}(o oi oLv o oL@v`Lw o ooww o oLwi o mco o*(mdooqoqi(oi o o $}mgo o*(mhooqwoqwwow oLwo oooi(o oi oL~w o oLw`Lw mM o "oM o%}Lx lu8oooo /vLxoo v`L x mM!o "oM!oLIx luoo /vLFx8oooo v`=LNx m&}"oLx luoJxaomoboio s /vLxJxo s vooLx8o܅o h /p`L'}x l  ~IL2~L%~2} /p`TLC~( hXeYeioioXi_YiooL?~o ooooi ~oi3}~~o~ oL~RNo oL~?~o oL~?~IL~`8o(oooLs~`k = Ldoo i4}oeooeoomoooioo oLg oo8oo oooo  oȌ oF o oLQ o o z5}h o rm8 ȍo o o oLFDU oooi  oiL2E= Ҡ6}Loi(o oi oL o oL m o o i io oL5$8o oo o7}oн oLq8 ( XiwYi Ů寐LT`L x z a|L$ | |L } ~L @~L! L8}LL``MODULEBYTE POINTER PTCARD I,L,S=88,CENTER,SKILL=[2000],LINE, SKILL_LEVEL,SCORE=[0],HISCORE=[0]BYTE COL,HEIGHT,SHAPE,C:}URSOR=752,KEY=764, INC=[2],UP=[14],DOWN=[13], LEFT=[11],RIGHT=[7],JOYBYTE ARRAY C=[$11 $22 $33 $44 $55 $66 $77 ;} $11 $22 $33 $44 $44 $44 $55 $55 $55 $66 $66 $66], INDEX=[0 4 7 10 13 16 19 21 22 24 26 28 31 33 35 38 40 42 4<}5 47], ROTATE=[7 8 9 10 13 16 6 0 1 2 11 12 3 14 15 4 17 18 5]CARD ARRAY TOP(5),BOT(5), TOP_SHAPE=[480 481 482 =} 483 0 1 242 240 1 2 240 241 2 0 1 2 240 1 242 1 2 241 241 >} 2 1 242 1 2 0 1 2 1 482 1 2 0 241 242 481 2 241 ?} 2 0 1 2 1 242], BOT_SHAPE=[720 721 722 723 240 481 482 480 481 242 480 481 482 240 241 @}482 480 481 482 481 482 1201 721 482 481 722 241 722 480 241 242 721 7A}22 721 242 480 481 482 721 722 481 722 240 481 242 721 482] PROC WAIT(CARD W) CARD Z B}FOR Z=0 TO W DO ODRETURNPROC SELECT_SKILL_LEVEL() CARD FAST,TIME=[5000] BYTE B=[1],DIR CURSOR=1 DIR=UP POSITION(7,13) PC}RINT("̠̠̺") POSITION(28,13) PRINTC(SKILL) PRINT(" ") POSITION(7,15) PRINT(" RATE OF INCREASE:") POSITD}ION(28,15) PRINTB(INC) PRINT(" ") WHILE STRIG(0)=1 DO IF STICK(0)=UP THEN DIR=UP POSITION(7,13) PRINT("̠̠E}̺") POSITION(7,15) PRINT(" RATE OF INCREASE:") FI IF STICK(0)=DOWN THEN DIR=DOWN POSITION(7,13) PRINT("INITIF}AL SKILL LEVEL:") POSITION(7,15) PRINT("ŠƠź") FI IF DIR=UP THEN IF STICK(0)=LEFT AND SKILL>0 THEN G}SKILL==-B FI IF STICK(0)=RIGHT AND SKILL<3000 THEN SKILL==+B FI POSITION(28,13) PRINTC(SKILL) PRINT(" ") ELSE H} IF STICK(0)=LEFT AND INC>0 THEN INC==-1 FI IF STICK(0)=RIGHT AND INC<100 THEN INC==+1 FI POSITION(28,15) PRINTB(INC) PI}RINT(" ") FI IF STICK(0)=LEFT OR STICK(0)=RIGHT THEN FAST==+1 B=1 IF FAST>100 THEN TIME=0 IF SKILLJ}>10 AND SKILL<2990 THEN B=3 FI ELSE TIME=(20000/FAST)-200 FI ELSE FAST=2 FI WAIT(TIME) OD SKILL_LEVEK}L=3000-SKILLRETURNPROC GR10() BYTE DINDEX=87,GPRIOR=623 ;GRAPHICS(10) FOR 400/800 COMPUTERS GRAPHICS(8+16) DINDEX=10 GPRIL}OR=128RETURNPROC ASSIGN_SHAPE() CARD J1,J2,J BYTE ATTRACT=77 J1=INDEX(SHAPE) J2=INDEX(SHAPE+1)-1 FOR J=J1 TO J2 DO TOPM}(J-J1)=TOP_SHAPE(J) BOT(J-J1)=BOT_SHAPE(J) OD HEIGHT=J2-J1 COL=C(SHAPE) ATTRACT=0RETURNPROC DROP_SHAPE() CENTER==+N}40 FOR I=0 TO HEIGHT DO PT=CENTER+TOP(I) PT^=0 PT=CENTER+BOT(I) PT^=COL ODRETURNPROC ERASE_SHAPE() FOR I=0 TO HEIGHT O}DO FOR PT=CENTER+TOP(I)+40 TO CENTER+BOT(I) STEP 40 DO PT^=0 OD ODRETURNBYTE FUNC AREA_NOT_CLEAR() FOR I=0 TO HEIGHT DP}O FOR PT=CENTER+TOP(I)+40 TO CENTER+BOT(I) STEP 40 DO IF PT^<>0 THEN RETURN(1) FI OD ODRETURN(0)PROC DRAW_SHAPE()Q} FOR I=0 TO HEIGHT DO FOR PT=CENTER+TOP(I)+40 TO CENTER+BOT(I) STEP 40 DO PT^=COL OD ODRETURNPROC LEFT_SHAPE() IF STICR}K(0)=LEFT OR JOY=LEFT THEN ERASE_SHAPE() CENTER==-1 IF AREA_NOT_CLEAR() THEN CENTER==+1 FI DRAW_SHAPE() FIRETURS}NPROC RIGHT_SHAPE() IF STICK(0)=RIGHT OR JOY=RIGHT THEN ERASE_SHAPE() CENTER==+1 IF AREA_NOT_CLEAR() THEN CENTER==-T}1 FI DRAW_SHAPE() FIRETURNPROC ROTATE_SHAPE() BYTE OLD_SHAPE IF STRIG(0)=0 OR JOY=0 THEN ERASE_SHAPE() OLD_SHAPE=SU}HAPE SHAPE=ROTATE(SHAPE) ASSIGN_SHAPE() IF AREA_NOT_CLEAR() THEN SHAPE=OLD_SHAPE ASSIGN_SHAPE() FI DRAW_SHAPE() V} IF SKILL>1500 THEN WAIT(3*(SKILL-1500)) FI FIRETURNPROC TITLE_SCREEN() GRAPHICS(0) SETCOLOR(4,9,0) SETCOLOR(2,9,0) PUTW}E() PRINTE(" THE THINKING MAN'S VIDEO GAME...") PRINTE(" *public domain software*") PRINTE(" By Douglas SkrX}ecky") PUTE() PUTE() PRINTE(" ԠүҠ") PRINTE(" ӠҠϠԠ") PRINTE(" Y}Ԡ٠٠ϠŠ") PUTE() PRINT(" CURRENT SCORE: ") PRINTCE(SCORE) PRINT(" HIGH SCORE: ") IFZ} SCORE>HISCORE THEN HISCORE=SCORE FI PRINTCE(HISCORE) SCORE=0 SELECT_SKILL_LEVEL() KEY=255RETURNPROC INIT_BOARD() CAR[}D Y40,YBYTE ARRAY COL= [0 $44 $2E $0E $2B $64 $C6 $94 $34] GR10() Y40=0 MOVEBLOCK(704,COL,9) FOR Y=1 TO 192 DO FOR PT=S\}+Y40 TO S+Y40+15 DO PT^=PT OD FOR PT=S+Y40+26 TO S+Y40+40 DO PT^=PT OD Y40==+40 OD Y40=187*40 FOR Y=0 TO 7 DO FO]}R PT=S+Y40+16 TO S+Y40+25 DO PT^=PT OD Y40==+40 ODRETURNBYTE FUNC SCREEN_NOT_FILLED() FOR PT=S+600+16 TO S+600+25 DO^} IF PT^<>0 THEN RETURN(0) FI ODRETURN(1)PROC CHOOSE_SHAPE() BYTE R=$D20A,ATTRACT=77 ATTRACT=0 CENTER=S+18 SHAPE=RAND(7)_} ASSIGN_SHAPE() DRAW_SHAPE()RETURNBYTE FUNC ABOVE_BOTTOM() CENTER==+40 FOR I=0 TO HEIGHT DO PT=CENTER+BOT(I) IF PT^`}<>0 THEN CENTER==-40 RETURN(0) FI OD CENTER==-40RETURN(1)PROC PLAY_WITH_SHAPE() FOR L=1 TO 6 DO DROP_SHAPE() JOY=Sa}TICK(0) IF STRIG(0)=0 THEN JOY=0 FI IF STICK(0)=DOWN THEN WAIT(100) ELSE WAIT(SKILL_LEVEL) FI OD LEFT_SHAPE() RIGHT_SHAb}PE() ROTATE_SHAPE()RETURNPROC CHECK_PAUSE() IF KEY<>255 THEN KEY=255 WHILE KEY=255 DO OD WAIT(5000) KEY=255 FIc}RETURNBYTE FUNC SOLID_LINE() BYTE ERASE LINE=S+186*40+16 WHILE LINE>S+95 DO ERASE=1 FOR PT=LINE TO LINE+9 DO IF Pd}T^=0 THEN ERASE=0 FI OD IF ERASE=1 THEN RETURN(1) FI LINE==-40 ODRETURN(0)PROC ERASE_LINE() BYTE R=53770 CARD DOWN e}BYTE POINTER CT SCORE==+SKILL/100 SKILL==+INC IF SKILL>3000 THEN SKILL=3000 FI SKILL_LEVEL=3000-SKILL DOWN=LINE FOR I=1 f}TO 70 DO SOUND(0,I,10,I RSH 4) FOR PT=DOWN-200 TO DOWN STEP 40 DO FOR CT=PT TO PT+9 DO CT^=R OD OD OD SNDRST() DOg} ;LOWERS HEAP FOR PT=DOWN TO DOWN+9 DO CT=PT-240 PT^=CT^ OD DOWN==-40 UNTIL DOWN/ }ԩЩoЩX(Р@`` Ù@@@$1ԩ0ԩ Щ  }L4HHHƩŭi ԍIIЎЌЌEťL&8 ԍIIЎЌЌ }ieL&hhh@Ԡ))hhh@ v_ \b \LNO CARTRIDGEh' <0 } $2 0P vL RUN FROM WHAT ADDRESS?TYPE "Y" TO CREATE MEM.SAV' ~0Y s0 ' 1 L FL1MEM.SAV FILE ALRE }ADY EXISTSu( <0 2 0 0(( (( 1 ~0Yr8廅8庅ưL( `Hh`HH2  }hh`3m3i0Lj(mέ` (H Q(hL(33© âHh0 } 8 mL( )`͖ iL)8 ͖`8ɀL7)i  L)` THE }DRILLING RIG IS REQUIRED TO DRILL EACH WELL : THIS TAKES ABOUT TWENTY DAYS. TYPICALLY, THE RIG DRILLS A HOLE OF 15 INCHE }S DIAMETER TO ABOUT 900 FEET..... AND THEN RUNS 11 INCH STEEL PIPE CALLED "CASING" INTO THE HOLE AND CEMENTS IT INTO PLAC }E. IT THEN DRILLS A 10 INCH HOLE TO ABOUT 3500 FEET..... AND RUNS 8 INCH CASING, AND CEMENTS IT. IT THEN DRILLS A 7 INCH } HOLE TO BELOW THE OIL RESERVOIR... AND RUNS 5 INCH CASING, AND CEMENTS IT. THIS CASING IS PERFORATED OVER THE RESERVOIR } INTERVAL TO BE PRODUCED...... AND 2 INCH PRODUCTION TUBING IS RUN TO THIS DEPTH. THE STEEL CASING & CEMENT PREVENT OIL }FLOWING ANYWHERE EXCEPT UP THE 2 INCH PIPE TO THE SURFACE. WHEN THE WELL IS FINISHED, VALVES ARE INSTALLED AT THE SURFA }CE. THESE VALVES, THE XMAS TREE, CONTROL THE FLOW FROM THE WELL. THE RIG THEN MOVES OFF THE WELL. TO PRODUCE THE O }IL IN AS EFFICIENT A MANNER AS POSSIBLE, A NUMBER OF WELLS ARE DRILLED INTO THE RESERVOIR. MOST WELLS ARE PRODUCT }ION WELLS.....SOME WILL BE INJECTION WELLS. AT ARCHERSVILLE, GAS NATURALLY PRODUCED WITH THE OIL IS REINJECTED } INTO THE CREST OF THE RESERVOIR. THIS MAINTAINS PRESSURE IN THE RESERVOIR AND HELPS TO DRIVE OIL TO THE } PRODUCTION WELLS. SPACE IS NEVER LEFT BELOW GROUND. THE SPACE OCCUPIED BY THE PRODUCED OIL IS } FILLED WITH EITHER GAS, WATER AND/OR OIL. OIL FLOWS TO THE SURFACE WITH THE ASSOCIATED GAS. THESE FLU }IDS ARE SEPARATED IN A VESSEL CALLED A "SEPARATOR". OIL IS PUMPED TO THE STORAGE TANKS. GAS IS REI }NJECTED INTO THE RESERVOIR. THE SEPARATION AND OTHER PROCESS FACILITIES WILL BE LOCATED AT T }ROTTS PARK OIL IS THEN PUMPED TO THE EXPORT TERMINAL WHERE IT CAN BE LOADED ONTO ROAD TANKERS OR RAI }L TANKERS. FOR FURTHER INFORMATION PLEASE CONTACT THE SALES DEPARTMENT ATARI INTERNATIONAL (U. }K.) INC TEL: (0753) 33344 THIS PRESENTATION BRIEFLY OUTLINES THE OIL EXTRACTION PROCESS PRO }POSED FOR ARCHERSVILLE DEVELOPMENT. PRODUCTION WELL } INJECTION WELLLOOKING AT THE OIL RESERVOIR ITSELF .... LOOKING AT THE SURFACE PRO }CESS FACILITIES .... HEY THERE! DID YOU SEE THAT WILD TITLE SCREEN??? IF NOT BOOT IT UP AGAIN, BUT }THIS TIME LOAD IT UP THROUGH SMART D.O.S. THE ATARI OIL DEMO, IMPORT FROM ENGLAND C/O }THE SUTTON BROS. @Bz Y7wԍ/Јԩ ;/X( > Й 6 6 } (o 8  6Ѝ  Mԩ ԍL8,i i`HH ԩ>ԍ }ԭ 0ЩzЩЩvL7Эhh@ } }L8pB NP }NPA8pppppppppppBx A8(ԠЈ }81ԩ0ԩ:YPX͍=%؍$z  oЩ ԍЈ Щԩ } >/Щĩԩ#F^:$_:$ '4:95:96:9y ;ԍЩ81 }ԩ0ԩ"/ԩ@ԩ ԍ 8  8  8  LB  pA@ }@  @@@@@@7`:*' " ' *rpJGBGJRPb0  @ȂȂ6v6RTVHHĭ  }԰ĭЭЩȍ ;L ;:й:й:Ȅ ];hh@ЭЭЭЭЭЭЭЩЍЍЍ }Щ`ЭЭЭЭЭЭЭЭЭЭЭЭ` }z莪8  8  8   8  }  8 >U8   8 Ɂ }8  8  cHFDB 8   8   8 } y @  8   8  $H?::H  }8  `Э k? ? > ? =Lb䭎BK ÝK`(K K>KUK` }"K} >K`Kv 6@`DΒ?A >KLL>K }LMKΆ`) L`L`i})*,L`_ΒZ)K }>LML\?KMLMMK`Q E' Zp Cw |H O R! q $I !J 9K      Θ }^iح)iN JJJJiM `IΛL @`)4@D D8@EF EF<@G G`3Ufw }UUUfU3w } } }LBpppppppB Np }B ABppppppppppB ABԍЍЍЍЍЍ }ЍЩB1ԩ0ԩDpYXE%ɍ$ 8oЩЈ }Щԩ >/ТFj,, `r C\,ĩԩ((  KDԍЩB1 }ԩ0ԩE%ύ$"/ԩ@ԩ ԍ 8  8  LH``HHH ԍ 0ЩЩv }LEDP 46ЎLEDЭhhh@ЍЍЍЍЍЍЍТ(  .B.B8   8 } 8   ЩЩЍР 8   jЩlЩeЍР 8  )?. }B 1αLEE  LUE.B L E.B ( 8  ЍЍЍЍЍЍЍ }Щ(  8  .B.B` ELb䭕ЭLb䭲L;F,j,J)8尅i, < }Fiji, YFiɈ``` } } }LFIppB }TLPTPTPT/Щč M }ԩԢ8 č JI1ԩ/0ԩ"/ԩ@ԩЩ ԍ 8  8  8  L }$`dhlHHč ԭ E"ԠĩЩЩ6Э LJ ȄLJzJ ԩЩhh@ MOSԍЍЍ }ЍЩ( M 8  8  8   80L)K  )  ML)KЍ Щ Ѝ Щ }2׍XЩxЩЩР? zWSɊOS }אOS 8  ЍЍЍ`ЭХ)ip L^L` L 5M M }rLLbξI2JJɊ*LLsο`7J)i Liϩ }``װ ` )JJiMSH%MH-MHʈꭚ)) }#ɫ ɫ LM`X\(PM((Ʊ䥾i(ư`$miP } HiPHi` } } } }ҀR }exportterminalR }ҀRR }?DDDDDDDDDDDDDDDDDDDDDDVRCM }KXRoilCXRJGGGGGGGGGGGGGGG }LCJGGGGGGXGGGGGGLRFICF!!Q!PPXPP!!!8 }IoilRFICF!QPPPPPQPNQN"IRoilFI }C?BBBBBBBBBBNNQPQPPPQQP!EEEEEEEEEEEEEEEEEEEEE"""""""""""""""TTTTTSCAMF999999999999"I }RF"""""""""""""""IYOCAF9""9"999"9"""IRF"""""""""""""""I:C }AKHHHHHHHHHHHHHMRF"""""""""""""""I:YWYWoilRF }"""""""""""""""I:CARF"""""""""""""""I:CAoil }RKHHHHHHHHHHHHHHHM:CAR }:CAR: } } } } } }ҀҀ }?DDDDDDDDDDDDDDDDDDDDDDVCMKXC }XCJGGGGGGXGGGGGGLCF!!Q!PPXPP!!!8IoilCF }!QPPPPPQPNQN"IC?BBBBBBBBBBNNQPQPPPQQP!EEEEEEEEEEECAMF999999999999"ICAF9""9" }999"9"""ICAKHHHHHHHHHHHHHMYWYWoilCA }CAoilCACA }CAREخȊ   } }RexportterminalRR }RRRoil }RJGGGGGGGGGGGGGGGLRFIRFI }RoilFIEEEEEEEEEE"""""""""""""""TTTTTSRF"""""""""""""""IYW }RF"""""""""""""""I:RF"""""""""""""""I:RF"""""""""""""""I:R }F"""""""""""""""I:RKHHHHHHHHHHHHHHHM:R:R }:R:EخȊ  }  UUU0  T׻? < }0000 << 0}UUUUUUUUUUUUUUUUUUUUUUUUSUUUUUUTUUUUUUUUUUUT?UUUUUUTUUUUUUUUU ?}UUUOUUUUUUPUUUUUUUUUUUUPUUUP?UUUUUUUUUUUUUU?UUU@?UUUUUUUUUUUUUUO @}UUU@UUUUUUUUUUUUUUSUUU@UUUUUUUUUUUUUUUTUUP?UUUUUUUUUUUUUUUU A}UUUUP?UUUUUUUUUUUUUUUUSUUTUUUUUUUUUUUUUUUUUTUQTUUUUUUUUUUUUUUUUUU? B}UAU?UUUUUUUUUUUUUUUUUUOUQUUUUUUUUUUUUUUUUUUUSU@UUUUUUUUUUUUUUUUUUUTUU C}U@?UUUUUUUUUUUUUUUUUUUU?UUUP?UUUUUUUUUUUUUUUUUUUUOUUPUUUUUUUUUUUUUUUUUUUUSUU@ D}UUUUUUUUUUUUUUUUUUUUUTUUUUUQUQUUUUEUUUUQUUU??UPU@U@UAUUTTTU@UUUC<?@ E}TTPPP??? P@@0  F} G} H} I} J} K} L}UUUUUUUUUUUUUUUUUUTTTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU M}}UT4UUUUUUUUUUUUUUUUUUUUUUUUuUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUWUUUUUUWWUUUUUUUuUuUUuUWUuUUUUUW]UUUUUUWWUUUUU]uU N}UUuUuUuUUUuUuuWWWUU]WWUUUUu]U}U]UuUuu]U]UUWUUuUWUUW]UUUU]UUU]UUUuUUUuUUu]UuU]UUUUWUUUuUUU]UUWUTU O}UUTuU@UUSWuWWU@ª ** P} Q} R} S}"" T} U} V} W} X} Y} Z} [} **** *"???? \} ]} ^} _}? `} ?00? 3 (*"0<* a} ª?* b}ª? c}򪪪?*ʪ d}򪪪?*ª? e} 𪪪 f} 𪪪  g}* q} B3THINK OBJB09THINK ACTBjTHINK DOCB-ATARIOILOBJBPICTURE LSTB USR LSTB<PICTURE B SNAPSHOTARC r}3 s} 3 t}  u} v} w} x} y} z}UUPUUUUP? {}UUUUUUC*?ª |}*?ª* }}𪪪ʪ*?򪪪 ~}ʪ *?15 THEN }3029 POKE DISP+I,X-1:I=I+1:GOTO 2830 IF X<>79 THEN 3231 POKE DISP+I,X-1:I=I+3:GOTO 2832 IF X=65 THEN 3433 I=I+1:GOTO 28}34 I=USR(SPOKE,708,68,202,148,12,0)35 OPEN #2,4,0,"D:PICTURE"36 X=USR(CIO,7,AD,7680):CLOSE #2:X=USR(RAINBOW)37 GOTO 37z1 REM ŠŠӠ2 REM ϠŠΠàӠ3 STOP 1000 REM Šˠ1001 INPUT} XXX1002 DPEEK=ADR("hhh̠̅ȱ̅`")1003 I=USR(DPEEK,XXX):? I1004 REM ŠŠ1005 DPOKE=ADR("h}hhԠhhȥ֑`")1006 X=USR(DPOKE,ADDRESS,WORD,WORDN)1007 REM ŠŠ1008 SPOKE=ADR("hh}h̠hh`")1009 X=USR(SPOKE,BYTE,BYTEN)2001 REM נ2002 RAINBOW=ADR("hiЎ }`")2003 I=USR(RAINBOW)3001 REM Ҡ٠3002 CLEAR=ADR("hhhhheЅҥeхөЦ`}Ѣ")3003 I=USR(CLEAR,LOCATION,NUM)3005 REM ҠӠ3006 CLEAR256=ADR("hhhԩ`")3007 I}=USR(CLEAR256,START-LOCATION)4001 REM Я͠Š4002 UP=ADR("hhhˠˈ`")4003 DN=ADR("hhh}ˠȑˈ `")4004 I=USR(UP,MYPMBASE+512+Y):Y=Y-14005 I=USR(DN,MYPMBASE+511+Y):Y=Y+14007 REM ٠Ԡ}4008 SHIFT=ADR("hhhhhhh`")4009 I=USR(SHIFT,FROM,TOO,BYTES)5000 REM Ϡ}5001 CIO=ADR("hhhbhehdhihh LV")5002 X=USR(CIO,7,ADDRESS,BYTES)]}}UU_UUUUUUUWUUUUUUUWUUU}UUUU_UUUUUU_UUWUU_UUU_U^UZ_UUUWUU}UUjWUUUUUU^UUUUUUUUUU_VUUUUU^}WZUUUUU_U{Uj_UUUUU_UUj_UUUUUW[_}ժWUUUUUWUnUժWUUUUUUUU{UVUUUUUUUUUV}UUUUUUU[_VUUUUUUUn_ZUUUUUUUջ{WZ}UUUUUUUUNUZUUUUUUUWjUUUUUUU^h_jUUU}UUUU[_jUUUUUUU_RWj_UUUUUUU_պ0Wj_UUUUUUU_}V_UUUUUUU_W˻_UUUUUUU_^b_UUUUUUU_[}`__UUUUUUU_n__UUUUUUU_պ{W_UUUUUUU_}.W_UUUUUUU_Wj_UUUUUUU_Vj_UUUUUUU}[g}}jUUUUUUU}^}jUUUUUUUu[]jUUUUUUUun}]ZUUUUUUUu]ZUUUUUUU`WZUUUUUUUոWV}UUUUUUU.VUUUUUUWW{VUUUUUWVZ.ժW}UUUUU][绻;ժWUUUUU]^uj_UUUUU]{uj_UU}UUU}np}ZUUUUUu{{ ]VUUUUUn^_UUUUUWջ}8WjWUUU_.ÀWZ_UUU_׻UU_UUU}UUUUW׻UWUVUW}^[^}[n{}n{_n_} ___}_ջ WW}׻nnn׻ @ }P׻  ; n׻ } 7׻?V}nW {??^^..0?[y;} ?^<.??[|{ ^<..}??[8?^8?[}?^n^[ [:{??^ nn}[;?0?^H. ?[ B{;}^w2n.??W47{;V:?׻}{{@r. &׻绻7 }׻PX׻{}nn׻;n@}WջW.S._{{;}_ ._[x {;_n_}{ 0_n `{{}nl-.[P8*;^`(2n}[ ^ NUWUUWV}UWUUU׻;UUUUU_n.UU___׻} {;__W(..WWUUջ$;WUUWun }]W_u{6SK]_]nX uꪫ_]{J }u_]^ uW][ WWV¢B.!n}WWYڻC; WȄj.W7*_ջh˻GW_}ʪ_u.W_7_uB']_ un@vn]~ }u[D ]~777*}^.n}~][@ 1u~7*_}_Vn1~*__W0: __ nWʯ__}ջC` W__n`_ʯ__[`{_: __P}6: __T{ʯ__T@~__`}˻{W~ʯ_ DW~:*P@5_~*P}_~7*_TC___URU_77_4W}_ W@4_W WP _W7*WUUW}WU@UWU@UW_P__}_UUꪪ__U@U_WPWWU}UUU_UWUPUW__UUUU__UU_}UPUUU_UUUUUWUUUUWUUUU_UWU }UUUUUUUUUUUUU_ } }7READ1ST.TXT!` i fL6e f1M8sм `3nbH 1r1y@Py: (Q# PAS:gΰ)#Ŝ;i!: }7g䄩qbrҀЈpa:DžN)eI# Bs1g2aA)X!DX0T:h@Ȩa6n:)4s̢ C'f\TV1o@|QN0d}ڦ$CݙB*@ڧc6lIMtr c(;ХS' mҮ8'O_Ӹ1޽ijŔc9d^-T Wtdcu6~gjD=kBkk}gxQFBƵy1GD8њCEfhHX&"])`\u#Șl$cB1eB1Y$UwE!Fh7`w<_|5g]&VUb!dUlБG}a-ZGm d#cIPh`b<&UF_ 1bCx-`b [pH(xoǩBL)jk QA -4CfI$XqVhMdRdQO-&#_=l}½v_W6^ h 8QsBmHSo݋}dqFjaA{ ',=v$m[5qaaq Fg8wrZWXBƚLƤ}) RRQLAmp3v4aڬq:vPqӖpӪZicFszP*$MwCAV 3 .8$$ Ω!}æ'XfVd}ը)6A@C . D| 34IQA STʧ{[Ar&yKIܳH . `+  S2W=YR0}J]!γ̸@SNAP.DOC!` Y fL6e f1M8sмJ9.bTCŋ7@1$9r )< iI h8Q#G};4|(2:sAMi$ 3C'M\H11;ńY(F;iPNpQ&yAp7d( #g!7Sg8eƤ & ҸQ@n΀}7 ļQI횩w>Z&2^UNyb'O8)y󨥂ƭV;61A to4W"CWX,qI;FR !Ugpu?lQe2@~(V'}7EV[^qh(D^c0uAUtG8!urD7im`nW^Pr⏮b8Xrp%aXFHT7B$}@^Qj= B AE8QA0SP!ECP IՄQbb qjD$1ӡTHr䐣&m鶑f,نZA,*m#epK5j[pnI"b6ٍvj;Rh697C3ɰbÉnɽbAMF}BSB~"S(@EP|ee)* W!Qz+'$uGuRէRVe*RUB>0\+a*V'Y=gBH˦JD" L }f8$lrΓ)I zY &H5!hcHiPΊdBH7𸡰z"Ϗ"H,I]2Uow']EmyȏM(eQjl#-+v !}}r]e_Lk%f/zf'^j=]-E!=ןYPm%r9f$(A{+Dԏ/tAJE½Є's#UT1{5bQw7,t6W"}*`AfX.<':. NSNAPM.DOC!`k Y fL6e f1M8sмJ9.bFA@/fŐ b$b #}$u*I %F|H )34e a0 BoPtJM\ yDi(Nb*Er Xu .­qԬw>0 7UӸQ $ X)}QdqY}eptQzR 0-ZGwn+'s\]G5le=yWqWSUcѝuz/ɡ}6ik]D+*b X*}{y|;#==S+^4AS(RԆgLrBJiB3Ti+XrREHACK13.DOC3!`lV m fL6e f! 0c(+}Ō P I"F06B !&*oڀ@RGAdȒ3\ yD9 qqb9e@IC )N@D(Q iԪGg,4n(5 8lҌ CödQrjJj,}usм 2/9.11ԡER9 Ҭ bkda>SEihɓ" 9s2̀qRDJ& 8BEJ!TTUU'p\ FG_]uaadSUjlk/}Hu͑NSAb!HQdFkxSOFTBOOT.DOCS!` i fL6e f1:b޼ hŐ b#b $u*0}pI`#TZ5}\yQIT)gCn0YF@CG~}Fv/veBOQ FqfeiAQa-(5xزHwL {Z&(i!__}?u+P6}|elFVc72-(p tc<Ԥ:AG^.Hi$ [f*IƋm*Fr-hUMo9`rM]pYrADJXڋeEw[K8eyUa7}01EnÑeԧ$u6c1"J"79$GQFƢ&d\XQ69(` R2pKWBY Mñ@@ef/VS6ABa@ (R8}?2hhK2G!Y\hŸYJᲊDY )Ȥ&.)QҞz1dJ 1Ԫ3IqF+ ˀ:dZl"O!՛ph6 '|E4!9}5zLP!Ab.qa93ҷ0!>Mq ZB$4,Q1AIhe,%.'۸ZᖹԣL?|&xJK\$"󪗍2Zo,y:}І4 $ifD6=s?ZT=Q E@B2ZږTASKCOM.DOC!`\ m fL6e fA%̜5c޴QCŋۀ@1$9r;})<5@RGdȓ&.T"a@s2uؔ(D9S嵐F2uAqgϟ.v6)zk#u7u䌙4S U9maԍ;AIXF r<}$Ȑ6jMB.6o:'Ҷo@lS3͘˙vu Bcs܄3:d&7sZӅy-eq."#yXO6p;yNLNǶN F ]$F=}ab =$FtQFB1U7\qAG4e\vTRf!)Đn%xёqlPSƘ[iL$ecUA4E N=$Xc~"q،94>}vqw_gV@B"_$^fK  7Drt6Ba[œO@ Ef]QQH5gfxax0S=URa!HarGVZk{yWFt[ur( lta?}ae=Bˬaagb HeFitFQfd:V-orBR ayҸX"ad(EXflvam۶ qĹ2JG c*Jh\Da@}Q^E SDVWqWYAgz.Waƶy-CVPύf;fc+!E 5T%GM0u!rBB1zФUi_{,UA}l}"L.p)Fu& ZCX'GECY“QNYS8 TZe1ĝSLC>7DE=8o#?Gn3?+}}TMEB}fVP"O*D)8B)8?CƢADVANCED.DOC!` @@@͘:mʸN7n@y#2lʌy8e4|fdySC}Ę0)b0pyCsHbF;i$L9 Ĉʖ/cR #RפK<) <,AȤ2hŒY!y^&Ll;SAׯKsD}QN'&$4P!4d7gVgӊpy7 ֙IpHB`qGyqgVDSP!mnc*VԤ}pAl| pa/9Eu[Riq4Y犖 G}cUmIwP$Gkhe[!WԹzcU0DYBaׄH6Z(ozdW`dn`=B U%a7$QGv `tWT(Sʲؙ=7nlbH}JLZP<ې QFiUqkep]41mRh֮fEHf^mf2M" N1"(Yaʖ!y6YUMt2bgicd;7I}v hQ["]D͢ASS8M@CE K0G'EIRԙFFCASOE5UQ–ZJ{U5XOX]Rǯ1a@EcuJ}GeCmKU7B ;{Då CfPKӓAaC KD1Tᦲ?O) r &"FO&tX%,sc( hK} :1(âAQR@X+Nfa.;G?VhI! N8 \ LPIJ܀%~.D]%4Lb! 4̄/ݩH4ld;@`} J6^PwL}47^DxXPM}-b`AM ~\jww;e* ^"*BR$@wS}ٴ"_|y6WSd1E_j~=;E_WƌdSϓ@iT-'<:X@\6anRؖZ}$#AHt"`=IЦPhT A< ! t{ 'tFsڂ<psbatoʒ o(:%<'aAWШC7OǭBU([}62zJ 0a i,j"A11PVО 18 Ļ!~O&[5 Yv!x!69LHҶ|$$#YdoUN#旤% )4sv9ROH\}4DL-mI@P$L(81ҏ)Ar @ :gJ! A!5c( HQe4@Dd u`dkYלَZŎbC HIOIDH05]}f`rhUG&uDS"(>S*&asA6ƝG`:Rzv^-TASKCOM.ASM!` 1`j-fjm!2hcӌ _}N9sҸ9Μ2$UyŒ7m@< 2%ɔM4@ҡIM2ܐ1M8sмbSlt(T@8yO*n:nl±k'CT!R"4tL2H*.بcA`}x XG'M qaV&pq7޾,|ċ?X @ il4b RЂXۅ,Ty„ :V ({KX`2Ng M%N]mj:8 J&P\ Be(HIT : f} 9˩h A'%tZBZP'"t*3Sy{6˸7r;jک wN܋=❏JNvS /'ȝyҿ[ysT4L`SNAg}P11.COM!`R QR-$d@8ԩC8)Vȁ'2hAl z`TL psi=Ps)='4 sF^utⰆ?# 'ѥ(KJCrv~~ *vNaZQ#Hi}T tДj9⬽^UC#I]`Ad1aS ;P޵+O5{`2z r3́Tg -, -9 hrx \2"F^Uj}B 2J+>U` AtOoK+2*[E FaFwH dUOL\ҁpEekq&i)GX&$Г Dnh$ 5h0\BCk}M+7 7FO0@&@#0J44O# 8@ cC4,5X DB44B6RN#쳠H3$꯻ (l}(ςD  JUY 1t4FdlP* 09HECtQH|ۈ2n#[*"``c,ʖHk+@7b$3I*~8$$3&آQZm}hQH@@ H ꫱Z뭹^k'4 ,H+'4"ߋ~J)y,3 &bF QCѸ  JCK*n}M넻B 2$4;xD D *CtbL Y0K#4 83 488RFd F+0 Za4B[;*5d Co} V탮 &:aap: 4b /}W*2ѥqw8t1V0@5j؈XBp_ZݻsV85u;p}aC c+ػ٬$1 CІy \83"xD<@;"IÑdXL]+* BF/Z"|}ӜgD!o~0),Lz CG5akQ2#I͡J4 *U氦#gCůȪ;ڊ^ b# 0&B H}0=4?UhUF"π 0n,`@=Fmj#m='U ڊ),m*@Tlt`aÇ4niwd'rӭt"26EJI}n@薝d@%@X!F`8P6d7`?ĂoE$PY!f4P$3AX$  3m$Ơ9@39@{<309̈͘} j ahG+5L ̤D/ P34 ̎@ D8#SOFTBOOT.COM!`ܻ R H%@ XXPF }B >Lqb+/qIdd)UŐ#K: #KZ]ĐcTw@Ib@&.I&S@$qJ Lh)"CR# T޴:DH}:YxSB:!)H+䘔"ƏSLBtΟC$2 yL6ۄIs0ng2m`Do7˄0BSarFlAfSi}E|] l~u$uiЁS<hA upm %/( g-vB&Nb0lD1da;@202 )$BxU0JQd@F,P.0#9 }DPRT`1y3*Hm@ Ơ` gICb/# ]GT Lc &j4 x ,;AA*0](S~a@i)}T5YQ( z_ p@Nt?Ac8bHF`8i pK= `y&[ݱV X:$ƒ`[V4~KbP}hEc/@wMv]E^7[};wF{] wlDZ4b& Zsm#1V`q.Gπ }:77sA#r@F "AVA62!AQrhЊ9B d0Y B ԇl @3 zd@2 cl ?;|)ጀ810}TF.q =!Bȫಗ'dZ\!dWpBn_4# 05`F  A FgG;Ͱ qVԭu2CRS`@ AsԠ}BnY7q5PE݉ 8pRpD;YLxPo!OX@-d*; FB"ώ5~ChG0toBB9Qqi[ǭE5`}Oދ>8;R7Bνn`C7FÔ@4xHZt8lFDͨ;<Њp}~070;igxl 0:3wL}+oJfXڏn_bGkTDONl4BoA0~!Qy,F)ajwI@B0|]`O_$4RF7(>E}a8O)~#H67~ ׁhp78 jpl  `Dqp.p@/81:h?ȃ7Ch1Gk@*7x} pF@807 71-LR-f`@:3`Hl@ @opnpP@INw(od@$g f$ eDRra@inh`H}o0u0/8S3<3te ..Pm t3=3 C 90&T" .B0hvs؋mu0e0 (e@ie3 #NP}5.0O s c"pa i(M 8. .0tpXȈ oP/2aP1 O@Hs@HsБT ((h}Aa~DB莛0((ek@igPI>3uЇ (?S~(0H)xPiaP6' 0~x^K9nt)T MP}MOp  ~HgЕoЎfm~)g3sr]iȊZ Li i-YF0ixS0t o@ul~yy}N9?CxGPNPRL0N0T U0S&7DG(R@h81PPk 8FlI4~)E`7h )MС*)5`}ke빣h#emsf1X㹤mEș_"ym `b0heڧt@ee9(3t88Ɏ}xI]-هy`)~ @$uR@U. A@u*ٝ2' ꘐE2~ItjK"DR(i(ƙȎi*:᪬|iJJj}J!zaڣtJtpe`x=*br`F/t1l- 8DHPL e.p.٨l2|Zzh-ozpPa@}YXَ)k`w{?Ih:ʎ.Bdz*V{~(򘘤$k X3s/|$y(ʎD ' {Vk cڰm}0M*˙OeْإD8 p@I3j PxZ B SpH{J+ٝ8 z RP9ey`*k?}+.9JZLɋȣyyb CɲI`p ˻츿s izM`B [˞.ʗl |Bbmab鮢}:ceH}ϋx;jߊڗ?[GyxG^ oedx t)Xȉ)+pۀ1/aPVZ} 1|e*iZ?LXVG}c$&^+o1˙ Fyhp()I$(ID;Ay*ix ̜9i:moŘ 7ko`m SJ}yˣ*CDȃw ҸԠϰ7 -jˉ'N z&zkۧ֋^Yʿ*ʩ?(->C ɚH'aPFћdO}H.0DrPɍIw!ؐ)~քy0ٷ Lٞ$K `y/N}dԲj] ez)kʖOm~9-=UFy1-}KĂ `ܐ0ȫ&^DBE 옔~x0I*IP窪z((k n p =(7.eq;}z`ٙ^d*IG}.AРn.P~&KIkpP ͇bٻضHa`p ٙR Xr ۤ,Cnۍ2k˹^b9ѠhMm (i`Z8( }78zK =3t0·-Q>B։I\ sЛ$pC0 0 0 P P  ` ȀV 0(P } p  A`J T(p__́ 91^ Ԁh h hhH$ 9Q Y 9Ar X: p<` }p qs x<EA MLp C  J   0   D 9i;' ^A ~ @ } -]%9 KJi~'; K @\-Q@ Z~{; ^7^p_)A  }7^ @   `{#P0. AA   АP @b` <}x~6?^_A 3^~  @p_5^  6 M   (MX6? `E0 }Q`d a x 0  0  Lp.  Y 9x @c<F $ 9Q؀p}_`_  9A I%   h KKJ S ? ???gP t HL  4} _Hb0 `E; p_ ~A@ ^~ @p_ ~  HHH00 `E`{ A@p D  0V } `&~`^ p_ ; _P`4 0 Р `&30`Ep QAVրp`91^X @  L }pGP6p`P P`0@@RP`p00ap 0B 00p 0P0q 0P0`PP}`` wP p@00  0 P#00`\P!PP X   + }0 Y \ & &  Z<Q pA A  @G4\