@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}} HE |||DDOS DOSDOS SYS }}}}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   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;DELV䌚 !B y`@ʆ 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 V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 4)h n# J KI  & a&$E˩̩˙iȱi5),}` >ɛ(`HHH7ͩЍ&ud˩ [)ـȄαHȱH`"1ȱ-}iL="Щ.Ȅ̈́Ω" U˩L ܩeͅ$%"h0hh(` @ '`XXFIND/@&%/%DI6.!cDEL DELET q..}!eLOC u.!eUN UNLOC y.!cRE RENAM }KIL .!eE ENTE .!eLO LOA .!eRUN!Z.!cS SAV .!cLI LIST!ZL LIS/}%.!eBL BLOA&HEL&FORMA%.!cM MOV#WDO$D1:*.* R110HH %L# g"ѩ}0}HH( % V |" i) ƅ˩څ˩̥HH % L Зȑˈȱ1}ȑˠ) JJJJi0ȥ)i0JƩ L - L $hhL΢ ͙8ΨeHiH %hhL#2}`!б#Э$Щ V%0L ЖL&J K Lt Έ)0 ȱHȱH`͈ͤ ` $L&3} 3!ـȩ:ـ/ 1%  D  :` ͌ `Ω ЀХ4}d00]:Y8 8 0  HH8X˥Y̠( =" =" hhL&爭)5} ѩ ,0 3! =" -". G" ;" -"hh˩L  T" G"`e˅ː`H h`H****)h)c"` @6}`XiYi` # `( #( ~# #( =" ~# # #L# ="87} #$( # /# #( ~# # # # ="$( #( # /#'X+X` D#` # D#` ~# ݀8}0 ( #`( # ;"`˝``˭`˭`H# h,A0L@L4h9} L - HHB8名呍 %|ɈЩIH Ω1ف.I&&  > H$:}Ω1iHH %0HH B %0Т&  LE: $H$H %0D1:DOS.SYS`HHͩ?;}ȩ % H%H %H%H %ЩϢ&  YФͩ `K:&˩&̠ #Р $ ~#Р $L' <}L͠,oـHDH:HH hHiHDiHE % B Vۢ&  hhh,=}`BJ IHhhhEhDHHLV eΝDiE͹~/͹NΞͩ L>} L#&  Lˆ̥˦ ȱ(ɛ(`?' a&L DISK DRIVE 1ARE YOU SURE??INSERT DISK2;HIT ANY KEY (S=TO SC?}REEN)OUT OF RAM ALREADY EXISTSBAD LOAD FILEDISKIO 4.3 by Bernard OppenheimAntic 1/85Type HELP for commands}COMMAND@}S: DIR Directory DIRn Dir. Drive n FORMAT Format disk WDOS Write DOS.SYS.X->LI.-A}>LISTD List to disk.S->S. ->SAVE Save to disk.E->E. ->ENTER Enter to mem..L->LO.->LOAD Load to mem..R-> RUND B}Run disk file.K-> LOCK Lock file.U->UN.->UNLOCK Unlock file.N->RE.->RENAME Rename file.D->DEL.>DELETE Delete file.C}B->BL.->BLOAD Binary load.M->M. ->MOVE Move file.R9 runs #9 etc. To use DOS type KILL.Reboot to restore DISKIO. }!"zDATCHK3LLENLINEADRCHAD E} qqDISKIO VERSION 4.3 -- BY BERNARD OPPENHEIM. ANTIC, JANUARY,1985. PUBLIC DOMAIN. REQUIRES DOS 2.0S.ǴF}D;A,;@,'6-B'hDF:A,"AU@--@AX")A5%- jj104,104,G}104,133,205,104,104,170,104,133,204,104,133,203,24,165,203,101,205,133,203,144,2,230,204,160ii0,177,203,133,212,200,177,2H}03,133,213,48,72,232,228,212,240,10,134,212,165,213,9,128,133,213,208,57ll200,177,203,133,205,56,233,3,133,206,169,0,168,I}74,144,2,9,128,81,203,200,196,206,144,244,133,207,74,74kk74,74,201,10,144,3,24,105,7,105,48,209,203,208,13,200,200,196,20J}5,240,167,136,165,207,41,15,16,230,96hh104,104,133,204,104,133,203,160,0,132,213,177,203,56,233,48,201,10,144,2,233,7,10,K}10,10,10,133,212 FF200,177,203,56,233,48,201,10,144,2,233,7,24,101,212,133,212,96,0 A @"6-?:A6<<<,( L}:AAU>A @ !AAU#6-&=(LINE  IS MISSING@ q*(!READY TO CREATE AUTORUN.SYSM} FILE?5@U@@K:b)@n@q V@9@@ D:AN}UTORUN.SYSC#@ L6-C:,V @>"6-B:,&@'@:,!@G>@:, @q@;-@6.7O},#6-@:,/"@3;6-AU*@  @N-@@"6.7,36-?:AG<,@*@P}D N @@B%6-F:A8,%AV$F:A9,.6-F:,?6-F:%@,B$HHFFFF0C1D342968AD01Q}A0C9CAF009C908D06EA9238DF71DA50C8D4A1EA50D8D4B49HH1EA949850CA91E850DA9F9A226206126A024888888B91A03C945D0F6B91B03856AHHR}CBA9FC991B03B91C0385CCA91C991C03A00FB1CB99FC1C8810F8A9868D001DA91EHH1D8D011D18A004B1CB69018D881DC8B1CB69008D891DA9358DE7S}02A9298DE802ECHH60203EF608C99BF005EEF91D286098488A48A206B5CB48CA10FAADF91DF0378516HHCDA9008DF91D85D08DFE02ADF202F026BT}AADF61DD0038EF61DECF61DD075A96493HH85CBA91E85CCD00320FB1DA0FFC8C4CDF0F6B1CBC9FFF05B297FD98005D0E9B10DHHCB10EAC884CEB1U}CB48C8B1CB4860000000223100C8B1CB10FB981869034C3D2282HHA00084D0A92E998005C884CD84CEA922CDF71DF00BA95585CBA91E85CC4CA52073V}HHA5D0D0DCA9801865CD8524A9058525A9058522A2F96895D2E830FA68AA68A8A9AAHH9B286020401520271DA9008DF91D60FF585846494E442F40W}26252FB11E254449B6HHD21F362EC4216344454CAE20A444454C4554C520712ECB21654C4F43CB20752E6B HHD52165554EAE20A4554E4C4F43CB2X}0792ECE21635245AE20A452454E414DC52015!HH7D4B494CCC20972EC5216545AE20A4454E5445D220E32ECC21654C4FAE20A44CAF"HH4F41C420E3Y}2ED2216552554EC4215A2ED3216353AE20A4534156C520E32ED82166#HH634C49AE20A44C495354C4215A4CAE20A44C4953D41E252EC22165424CAE20AZ}4D0$HH424C4F41C4260648454CD02683464F524D41D425192ECD21634DAE20A44D4F565B%HHC523E657444FD3249EFF44313A2A2E2A9B20B419A902[}8552A931A004C4CDD003DA&HHAD83058DF81D8D311FA006A93048A91F48A90320D6259810034CBC23206722A93B'HH008DEE0585D1A97D8DC605A91\}D8DC705A99B8DC805A9C648A90548A028A909A2A9(HH0020D625ADEE05D010A91C8DC6058DC705A99B8DC8052056E4207C22A220F81878)HHA5D169]}0185D1D82901F00AA9C685CBA90585CCD008A9DA85CBA90585CCA5CB48BF*HHA5CC48A014A90520D62598100620B4194C061EEEEE05A00DA920D1CBD09^}7CEEEBC+HH05A01288B1CBC891CB88D0F7C8B1CBC891CBA000A5D129F0D006A92091CBD00968,HH4A4A4A4A18693091CBC8A5D1290F18693091CB4A_}90C6A9208DD8058DD9054CA23A-HH1F202D204C061E8DEF05A4CE20EF2020C324A5D0F00568684C061EE6CEA220A944.HH00A4CD9980053898E5CEA`}818A98065CE48A905690048ADEF05C903D002A0042052/HHD6259810066868984CBC2360A921D0B1A923D0ADA924D0A9A4CE20EF202056252C0HHF0a}0530074C061EA920D096A90085D04C261EAD4A1E850CAD4B1E850D4C74E4A00B1HH0020FB1DA4CE88B1CB297F998005B1CB3008C820CB20E6CE10EDC8Bb}1CB48C8B11B2HHCB48A4CE608CF005E6CDA4CD88B98005998105CCF005D0F4A92099800560A4CEA53HH20EF2020C3244C261E203321ADF71DD98005c}D013C8C8A93AD98005D02F20CB20304HHA931998005D02520CB20ADF71D998005C820CB20A944998005C820CB20ADF81DC55HH998005C820CB20A93d}A99800560B98005C920D020C4CDF01CC6CD8CF005B98105626HH998005C4CDF003C810F3A920998105ACF00510D960A4CEA920997F05D080E6D0D87He}HA5CDC902F064AD8205C930305DC93A105938E920C910D002A9008DF105AD83059A8HH38E9208DF205C910300AC91A1006A5CDC903D00BADF1058DF20f}5A9808DF105A5609HHCB48A5CC4838A558E91285CBA559E90085CCA015B1CBD005A928203D22A9142014:HH3D22A001B1CBD0096868A90085D04C26g}1ECDF205D0E788ADF105297FD1CBD0DDE8;HHC8C8B1CBC900F004C90AD0D1A9208D81058D82052CF10530038D8305A0012033F9<HH21A90B203D22Ah}002202D22A92E204722A9F8203B22A007202D226885CC6885CB2F=HHA90185CE4CA520B1CBF0062054222047228810F360C6CC1865CB85CB9002E6CC4Ai}>HH608D80059848A00020CB2068A860482A2A2A2A2903AA68299F1D63226020400007?HH6018A55869168DF505A55969008DF605A9FF8DF7056020Aj}623EEF705AEF705F035@HH0B8EF805CAD006ADEE05F00160A212A028208023CEF805F011A028207E23A000A0AHH209223A928203D22D0EAA014207Ek}23A000209223A212A014209423A003B1CBD031BHH034C1F23A902203D2238A5CBE9148DF305A5CCE9008DF405A212A000208023A2E7CHH24A028208l}023202F2320B123A028207E2320A623A00220922320B123A914203D96DHH22A224A028209423A212A028208023A013B98005F003202F23A027A9009158m}8805EHH10FBA02BA911915860A9008DF905204423ADF905F0016020B12320442360ADF7E5FHH058DF805A000207E23A200A012C8E8E00CF015B9800n}5DD8005300DF0F0A212A04CGHH28209423EEF90560A028209223A9D8203B22CEF805D0CD60A200A9128DFA05B101HHHCB9D8005E8C8CEFA05D0F460o}A200A9128DFA05BD800591CBE8C8CEFA05D0F46010IHHADF50585CBADF60585CC60ADF30585CBADF40585CC6048ADF71DC923F01420B498JHH1968Ap}2FF9A85B92C41B930034C40B94C34B968A2028E860420E6BD20B4194C06F6KHH1EA903202D20A59048A59148A9079D420338ADE502E5908DFD05A8ADE6q}02E5913DLHH8DFE0520E52598107CC988D0A9BD49038DFE05BD48038DFD0520B419A4CEA931DBMHHD98105D02EA9498DA926A9A9A22620BE19A0FF8r}CFC02CCFC02F0FBADFC028CFC42NHH02A220C93ED00CA9FF8DFE02A99D48A924D00EA4CEA9319981059818698048A9A3OHH0548A008A90320D62598s}309FA59048A59148A90B9D4203ACFD05ADFE0520E5258FPHH9830881007A9D0A22620BE1920B419A9008DFE024C061E453AA220ADF81D8DBA40QHH2t}4A9B948A92448A008A90320D6259830B910D944313A444F532E535953A5D0D056RHH0160A200A98048A90548A4CDA93F998005C8A90B20D62520B419A0u}04A91848A958SHH2548A90320D625A000A91848A92548A90720D62585D0A9CFA22620BE1920B41940THHA959C5D0D004A90085D0A4CDA9209980056v}04B3AADF81D8D9A26A98E85CBA926C5UHH85CCA000A206208023E6D0A01384CD20C324A5D0D017A00D207E23E6D0A00E84EFVHHCD20C324A5D0D005w}A9FE4C27204C061EA6CDA0FF8CFB05A92CC8CAF06FD98005DAWHHD0F7EEFB058888B9800548A944998005B9810548AD8805998105A93A998205E81AXx}HHE8E88E4803984820B4196848186980488D4403A9006905488D4503A004A9032057YHHD625C0AAF014EEFB05A90B8D4203A2002056E4A9DBA22620BEy}1920B41968A868ABZHH99810568998005A92C998205ADFB05609D4203C903D006989D4A031009A9009D22[HH4903989D4803688DC505688DC405689z}D4503689D4403ADC40548ADC505484C568C\HHE4A4CE20EF20A210A9008D9E1518A98165CE9D4403A90569009D4503A4CDB97E8B]HH05C92FD00EC6{}CDC6CDB97F05C94ED003CE9E15A4CDA99B99800520A415E000D05A^HH034C061EE003F00620AA194CBC23A9EBA22620BE1920AA194C061E85CB86CCA50|}B_HHCBA6CC20BE19A0FF08C8B1CBF00E28F0EEC99B08E6CBD002E6CCD0EE2860A93F90`A2272061264C061E2044FFaHHISK DRIVE 1ARE YOU}} SURE??INSERT DISK2;HIT ANY KEY (S=TO SCREEN)!08b11OUT OF RAM! ALREADY EXISTS!BAD LOAD FILE!7Bc1D1D1D449CdIIISKIO ~}4.3 by Bernard Oppenheim!Antic 1/85!Type HELP for commands!CAe007D4313fnnOMMANDS:!! DIR Directory! } DIRn Dir. Drive n! FORMAT Format disk! 62ghhWDOS Write DOS.SYS!.X->LI.->LISTD List to disk!.S->S. ->}SAVE Save to disk!.E->E. ->ENTER EF1hkknter to mem.!.L->LO.->LOAD Load to mem.!.R-> RUND Run disk file!.K-> } LOCK Lock file!.EBimmU->UN.->UNLOCK Unlock file!.N->RE.->RENAME Rename file!.D->DEL.>DELETE Delete file!.B->BL.->BLOAD } BiF4jmmnary load!.M->M. ->MOVE Move file!!.R9 runs #9 etc. To use DOS type KILL.Reboot to restore DISKIO.!24k00E20}2E3020D1D47 D2:DISKIO.BASINEADRCHAD !31900 REM SEARCH UTILITY êθDZ31901 REM BY SCOTT SHECK31902 REM ANTIC MAGAZINE31903 GOSUB }31907:POKE 4,1:POKE 2,PEEK(136):POKE 3,PEEK(137)31904 ZZ=USR(1536):IF PEEK(4)=0 THEN 3192531905 A=PEEK(0)+PEEK(1)*256:IF X= }10 THEN LIST "P",A:GOTO 3190431906 LIST A:GOTO 3190431907 RESTORE 31908:GRAPHICS 0:IF PEEK(1537)<>216 THEN FOR X=1536 TO 16 }38:READ A:POKE X,A:NEXT X31908 DATA 104,216,160,0,177,2,133,0,200,177,2,133,1,201,124,208,11,165,0,201,156,208,5,160,031909 } DATA 132,4,96,200,177,2,133,204,200,200,177,2,197,203,208,4,32,91,6,96,201,0,240,35,201,131910 DATA 240,31,201,14,208,4,169 },7,208,7,201,15,208,11,200,177,2,132,206,24,101,206,168,177,2,201,2031911 DATA 240,209,201,22,208,206,32,91,6,76,2,6,031912 } DATA 165,2,24,101,204,133,2,144,2,230,3,9631913 ? :? ,"SEARCH UTILITY":POKE 82,0:COUNT=128:ZZ=PEEK(130)+PEEK(131)*256:? :? }COUNT;" ";31914 A=PEEK(ZZ):? CHR$(A-128*(A>=128));:IF A<128 THEN 3191931915 COUNT=COUNT+1:IF PEEK(ZZ+1)=90 AND PEEK(ZZ+2)=2 }18 THEN 3192031916 IF COUNT=148 THEN POKE 82,14:POSITION 14,231917 IF COUNT=168 THEN POKE 82,28:POSITION 28,231918 ? :? CO }UNT;" ";31919 ZZ=ZZ+1:GOTO 3191431920 POKE 82,2:POSITION 2,23:? :? "NUMBER";:INPUT A:POKE 203,A:? "CREEN OR RINTER";3192 }1 X=PEEK(764):IF X<>10 AND X<>62 THEN 3192131922 ? "}":RETURN 31923 ? "}":? :FOR ZZ=31900 TO 31914:? ZZ:NEXT ZZ:? "CLR:POKE }842,12:CONT";:POSITION 2,0:POKE 842,13:STOP 31924 ? "}":? :FOR ZZ=31915 TO 31928:? ZZ:NEXT ZZ:? "CLR:POKE842,12:?CHR$(125)"; }:POSITION 2,0:POKE 842,13:END 31925 ? :? "END OF SEARCH":? :? " AGAIN (Y/N) ?";:POKE 764,25531926 IF PEEK(764)=43 THEN POKE } 764,255:GOTO 3190031927 IF PEEK(764)=35 THEN POKE 764,255:GOTO 3192331928 GOTO 3192631902 REM ANTIC MAGAZINE31903 GOSUB X545LNILTTMLINECNPASYEARSFFINABADASHIIIXFINPFESBABJTPTOTTITOTBORDRGSNFINISLI}NEPRINTBEGISJSELECFFINYEARSIPAKEYADBAMSBABCALDPMMPMAVAAYEAARATFVAFYEAPVBAMKSNBSNYKERETRN@}@ AU@@@@AUA  @9 @v @ s @0@}PB&& L Y Bf   } ''!A0"#$A %@ &'$(((A)A*A+,-@./}0?ff1A3c2@345B67AP8A3c9BP:A;@6?}A@AAA BAUC##D@êƳ¸DZ <<< HOME LOAN >>> <<< ANALYSIS } >>> <<< COPYRIGHT 1982 >>>( <<< J. F. SKINNER >>>2 <<< VERSION 1.1 >>>< <<< FOR ANTIC M}AGAZINE >>>F A3PPINPUT ROUTINER"@ AT"@ A#0Z{ A4`-@@}K:96-@E-@(U( 1 gARs-@({6.1d")@"A}nH"AU!AdAU3AR@>@H Ax:"A&*!@'6-&@267,. : }>:,!A++ @F)"@G)!@WA'67<,.>:,(>:,'6-%@ AMO}VE CURSOR?6-F:B2y,!6-T:,06-F:A2,?6-F:Ad,#"@)"# A "AU6}-8," @-@&( '"@)"@'6-%@'"@)"@'6-&@!}@6-@ @6-@-@&(=>-@@E  Ap"ApA}pApApA A A PAA AA0APAA!0A!A"0A"}A#A#0,AdAU Ap6CALCULATE@"@ A#0J7"@ A) # A$0- }A'`7 ApT-"@ A) # A%- Ap^! A)  A$0! A&h"@ Ar } Ap|c$cPOKE 77,0: POKE 580,1:ZZZ=PEEK(16):IF PEEK(16)>128 THEN POKE 16,ZZZ-128:POKE 53774,ZZZ-128<AdAU}'A@d9A<$i%2@@U@@9-@@u= _2@}b$iKSND?0@@@?2@A@@y-@A =2@}Q-@AU o0@@r$yBSNDi%2@AAA9-@}@u= _2@b$iGSNDPRINT SCREEN6-@ A6}-%@ A6-@) +AR@) AQ0@@@70@@}@Q0@@%%( Π( $ Month--(  YEARS } % $&(0 ( DATEPRININTBAL:(DPRINT SCREEN LINENN 6.=:,B:,"@467@}<@,. N67@<@,.=:,X A@bE 6.=:,/7B:,&@&7B:,&@67B:,%@,..00v AE67B:,%@,..00 Ae Ad}E 6.=:,/7B:,&@&7B:,&@67B:,%@,}..00 Ap67B:,%@,..0067B:,%@,..00$"6.0.00$ A A}E 6.=:,/7B:,&@&7B:,&@67B:,%@,.}.00 A67B:,%@,..00+-@(-&-@+(%-@( -@(%(}@ A0$ AuAdAU (  (E 6.=:,/7B:,&@&7B:,&@67B:,%@,..00 Aw67B:,%@,..00 } A E 6.=:,/7B:,&@&7B:,&@67B:},%@,..00 A67B:,%@,..00 B K-@@(TOTAL1-@@5(G-}@@K(*00(' 4(>(H//(&}R>-@@!>(# =print =go to the next year\>-@@">(# =return to the MAIN MENU} fB"!-@@!B( p'AdAU'B2y@z06-F:B2y},!6-T:,06-F:Ad, "@'  A0" A @I"@  A3)6-}56-@ ? A `I A@ A  '  A0$COPY SCREEN TO PRINTER}-AdAU!6-AU-6-@?-@@!?($ Position Paper and press ŭ ?-@@"}?($ (Press to Exit Print Mode) !6-F:Ad,!6-F:B2y,7"@3!AdAU-6-AU7 }A@7"@!B2y@-6-@7 A` AAdAU>-@@!>(# } $-"@-3 ŠΠ. -8-@@8B -L})@V!!67%@<%@,.>:,` j=6-F:B2y,"@0B2y@3'= A`t3~ }AdAU$SCREEN OUTPUT 6-6-%%@'AR'AdAU  6-} A0+A@ !6-@ + A A$0 6-6-6-6-U-@@!>(# } CALCULATING P-@$@!U(?-@@"?($ (Press to Exit Calculation) }6-&@ -@%@-@@6-%@( @ A@26-@6-%}@< 6-$F&&6-P:+%>P,$A,'AP(6-$A6-P:,(6-'AZ 6-&6-%6-%d}76-F:B2y, @!'-6-@7 A0n  APx 6-&AR@  -@@!}D( CALCULATING  f2@@@@2@ *} A@  % 6-&6-6-%6-&# A@ @# A0.-@@ .(LAST} PAYMENT %%!%( +  BALLOON A0$ START+@%@ A70}@ @70@@@70@@@70@0@@@} @ @" @ HOME ' @ LOAN ,* @ ANALYSIS* }@6## @ Ԡ @## @ ٠͠ J @T## @ } ^g @,1/@C/@@U/@g/h"F:B2y,@}" A@r @AdAU| A0ENTER PURCHASE PRICE 6-A:, A2PENTER INTEREST} RATE 350 A4` 6-A:,6.6-'A6-@ A2PENTER LENGTH 6-A:,6-@} A2P&ENTER FIRST MONTHD 6-A:,N% @)!@%6-@X A2PbENTER FIRST YEAR} 6-A:, A2PENTER AMORTIZATION YEAR 6-A:, A2PENTER DOWN PAYMENT 6-A:,  }A4` A2PENTER BALLOON PAYMENT " 6-A:,6-@" A2P*ENTER MONTHLY PAYMENTH0 6-A:,6.} A) & A%0 A2PRENTER APPRAISED VALUEp 6-A:,z A2P <<>> 6-A:}, A2P ENTER RATE OF APPRECIATION 6-A:, A'` A2PENTER RESALE VALUE 6-A:, A}2P SELECT PRINT SCREEN$ 1 A36-@%6-@16-@. A `8 6-B A2PL }ENTER RESALE YEARj 6-A:,t A2P~ CALC MONTHLY PAYMENT A%` 6-+&,&6-'A  6-6-}% 5"+6-+@%,#+$@,5 A$ ))6-+@%,#++$@,&@, 6-$$'+&@, } A%' &&6-P:+%>P,$A,'A E 6.=:,/7B:,&@&7}B:,&@67B:,%@,..00 A%( 67B:,%@,..00 B $-@(@ }$(  -@(@ ( $ , A4`"F:A,"@, A4` 67B:,%@,..00 } A%0 CALCULATE PURCHASE PRICE( 6-'A2 5"+6-+@%,#+$@,5 A&0< ))6-+@%},#++$@,&@,F 6-+$+&@,,'+$,P 6-P:%?P,Z 6-%%d %-@(@%( n} -@(@(x $ CALC APPRECIATION RATE 6-+&,'+&, 6-+',$A &&6-P:+%>P,$A},'A %-@(@%(  -@(@( $ CALC FUTURE RE VALUE  6-" }A( " A(    A(P -@+&, 6-%+$+'A,, 6-P:,   A(}" -@+&,, 6-&+$+'A,,6 6-P:,@  J %-@(@%( T -@(@}(^ $h CALCULATE PV OF BALLOONr IAR@'B2y@3"?6-I A0P| "} A0P >-@@!>(# Calculating Present Value  >-@@">(# of Balloon Payment}  6- _-@+$@,=2@@@@_2@ --@}'@"-(++$@,&,  6-F:B2y, 6-+&+$,, 2 )"@%6-('2 A0@ } 6- &&6-P:+%>P,$A,'A >-@@!>(#=up =down =compute >-@}@">(#Type a number and then press  $ FORMAT AT SCREEN '6-6-'6-@ ;}@@'@@91+; A& 'AR@'AdAU0 Q0@@@70}@@@Q0@@: 00(' D (N (X //(&}b 1-@@1( HOME LOAN ANALYSISl 3-@@3( (c) 1982 by J}im Skinnerv A50 -@@  00('  ( ( //(&}   AR@ >-@@!>(#=up =down =compute >}-@@">(#Type a number and then press  Ap PRINTER OFF LINE B-@@">(# } B  AdAU "@ A0 AP INITIALIZE *@e}@*AdAU* ##@@S:4 70@@70@> '6-A}6-A'6-A0H ss;@,;@,9@,;@@,;@,;@,;@,;@,;}@,;@,R 6-BP6-AP'6-@P36-@0?6-@K6-AW6-AUc6-@o6-@}{6-A6-A\ k6-A6-%#6-A/6-;6-G6-BPS6-B _6-@}k6-A3ca 11;@9,;@5,;@8,9@,f 467@,. %67@@,. 467@,.h 116.'| } | j --6.# then press l 006.&----------------------------------}----p + A A7! A&+ A$0z A INPUT ERROR  6.0' >-@@!>(# I coul}dn't read the last number  >-@@">(# you typed... Please try again.  @   B } A0 MAIN SCREEN 5-@@5(Purchase Price.........  5-@@5(Down Payment........}...  5-@@5(Interest Rate.........  5-@@5(Balloon Payment........  5-@}@5(Length of Loan in Years 5-@@ 5(Monthly Payment........ 5-@@5(Year } of First Payment. 5-@@5(Month of First Payment. $5-@@5(Amortization Year...... } .<-@@<(" 85-@@5(Appraised Value........ B5-@}@5(Appraised Year......... L5-@@5(Appreciation rate...... V5-@@5(Re}sale Value........... `5-@@5(Resale Year............ j8-@@8( } t$~.#-@@"'68,-+ .$++1,1,1,7,7,5,7,2,6,4,2,4,1,7,4,5,7,4,1D2:HOMELOAN.B}AS545LNILTTMLINECNPASYEARSFFINABADASHIIIXFINPFESBABJTPTOTTITOTBORDRGSNFINISLIqrZINOTECNOTEKCODENRNGCCRSINSHFLOOLDSCODEMAXTISCORNRNDCLELINPOINROUNWRONITINTEMCOLREDS}B@@ }ê}Ƕ MUSIC FLASHCARDSBY JAMES W. BROWNANTIC MAGAZINEd&&9@#,;@#,9@#,n;@},;@,sTITLE SCREENx +@yk0@@70@@@Q0@@}k0@@@{7-@7(@* * * * * |7-@7(@ } *}7-@7(@ MuC fShRd 7-@7(@ 7}-@7(@* Y 7-@7(@ *7-@}7(@ JaS w. BrN 7-@7(@ 7-@ 7(@}* 1 @@ASTER,7 SPACES,CTRL-Y,INV 8,INV-CTRL-S,7 SPACES,INV-CTRL-J7-@7(@ } *7-@7(@ 7-@7(@ * * * * * }SET UP NOTE VALUES #A-@@#"68,- -@@#"67<,.  }-@@#"68,- e -@#@6@?28,@@S-@@P }W a Ae \-@@!628,@@J-@@PN X A\  6-Ad } KEYCODE BUFFER(6-AR6-A(6-6@START MAIN LOOP'6-@P6-A'6- }@-#(How many notes do you want- A  Ae B  @A`  +@d}.(.(#Enter Ǡ for treble (G clef) only.,(,(!Enter Ơ for bass (F clef) only.%(%(Enter Ӡ for whole s}taff.% A A% B0S*0F*0GAp+DRAW STAFF, +@@-%0}@@%STAFF.90@@@9NOTE (AND TEXT LUMINANCE)/+0@@@+TEXT WINDOW}0*0@@@*BACKGROUND1-@@6-@@;##6-@$%@6$&@2@},@/AYE G J #AP",T-@@Y "/^ h #A`"},m-@@r "/w |',@(@I',@(@U@-@}PICK A NOTE AND SHOW ITG%6-@%P:H:,$@#,G24F* @A}4G*!@A A DRAW IT6-WAIT FOR KEYPRESS 6-#6-&@-}@#  @A@(}NOTE?  AF:,"AUA F:,"8,A`WRONG} - BUZZ6-%@1%2@@@1AU7-@ 72}!@6- @Ae A RIGHT - PLAY THE NOTE""28,@@}$ 6-8,"$6-AT2@@!!RIGHT OR TIMEOUT -- SHOW IT(}NOTE IS }7<,)-@$@ )AU A6-%  WRAP-UP/%2}/+6-P:',;( ( (('( SCORE = *(-(0(;9 SPACES-!*-( THAT'S BETT}ER!3 *3( YOU'RE NOT CONCENTRATING.@( ( (((:(# To play again, enter ٠ Π@6-}4YAPJ (} (((((>(! Next stop: The Lincoln Center!A(D(G(J(##ROTATE COLORS ON TITLE }SCREEN6-F:A,= -@6@9%A F:%A,= A$DRAW LINE},&@/%@$ UNDRAW NOTE4 BACKGROUND>,&@H//%@&@//%@ }&@M//%@%@//%@%@RK/%@'/&@%@=/&@&@K!}/&@W#@*@#@\&@$P:'@,& A$DRAW NOTE;%6-@@%P:H"}:,$@,;6-@$%@ @,&@//%@&@//%@&@//%#}@%@//%@%@K/%@'/&@%@=/&@&@K/&@ @$}#"@)"@# A$PP35,40,45,47,53,60,64,72,81,91,96,108,121,128,144,162,182,193,217,243,0,0,0%}33A,G,F,E,D,C,B,A,G,F,E,D,C,B,A,G,F,E,D,C,B,A,GJJ63,61,56,42,58,18,21,63,61,56,42,58,18,21,63,61,56,42,58,18,21,63,61&}20,40,20,4,26,7,26,1320,16,14,19,8,22,8,2814,32,20,34,26,32,30,2826,24,20,22,17,24$10,51,10,53,8,5'}3,8,50%12,48,17,46,22,48,26,52&26,56,24,60,22,62,17,64'15,65,12,66,8,67INPUT ERROR TRAPS* ((}* A`1'(1 Ap)6-F:@,&A(& )$@)}B7t$D2:MUSFLASH.BASRSINSHFLOOLDSCODEMAXTISCORNRNDCLELINPOINROUNWRONITINTEMCOLREDS-pqCXPYPNNSXSYABCDFIXXBCRSTSSLXYXYZYYZATFFXYX1X2YRX1RYRX2IDMES+}@@@@@ ,}-} !"#$%&'()*+,-..}/01234Ǫθǵdn +@-@@:(@ MGC/} AETL-@n(@one moment please...n6-@9@,9@,9@5,9@,90}@,;AV,;AV,;AV,;AV,;@ ,6-A 6-A  A0x5-@@"$1}68,-("168,-5 771,1,1,-1,1,0,0,0,-1,1,-1,-1,-1,0,0,0,0,1,0,-1,0,0B6-P:C:,'AV,*6-C:,&$AV62}ABAB6-P:C:,'AV,*6-C:,&$AV6ABAB6-P:C:,'AV,*6-C:,&$AV3}6ABAB6-P:C:,'AV,*6-C:,&$AV6ABA-@@5&68,-4}* >-@@ B"S68&@$,-W l68@,-@68@,-@6-@ 31,30,26,25}4,29,27,51,53,486-+@4G,($}WHAT FILE DO YOU WANT TO WORK WITH?0GB:, @A%%7@6}<@,4C:A@$$7@<@,0DA +@ )-@?P-A,$@7}U/$@@Y c@u,@/@y@w #A`!-@'"068,-968,8}-U,$@%@5s/$@%@5%8,8,w 110,0,0,1,0,4,0,6,1,0,2,0,1,1,2,2,3,3,2,4,4,8D"@9}6-$6-T:,:"@*"D AH&)T:,")"@26->6-@H A:}"56-%@!@)6-@56-@,T 6-6-R:,%6-%8,$26-%8,$>!AJ6-;}T A 6 6-A@%!@y6-% A@J 6-@yTP ,1<}6-!6--@%3,PT:,"@Ap^# @ A# Aph' 6-  Ap,=}'/%%r8 B"F:AS,".6-@8 Ap|i6-F:AT,(!@#* @`I8&@$,!>}*"@S A@] A@i6-9"@G*"@# A@- Ap96-9"@3*"@?}# A@- A96-%"Ap6-% A@9"@*"@# A@- AP96-@}9"@b*"@# A@- A 96-9"@V*"@# A@- A96-#A}"@ A@# A 0#"@a A@# A @#"@5 A@# A 9"@@*"@#B} A@- A 96- Ap @56-$U6-8+&@5,'@,96-8+&@5,'@,C}G%!@yU6-@y&%!A6-A&$?6-8&@$,?6-+P:'@&?0,,$@%@D}&'!@6-&@' AP0<6-&@'6-$@5%@06-O:,96-O:,<$:"A 6-6E}-$D"A 6-6-$NA-,/)6-%@5!@yA6-@yX( 6-A 6-F}A %6-($b @$l"A 6-6-$v?-#-1%!@y?6-@yG}&%!@y6-@y&%!A6-A&%!A6-A& ,%%/%%, H} "#6-A )6-,$ 6-6-$ @$6-?:A6<,6-$*"@6-I}'6-A *$6-@$%2@`@@G2@AP@@[-@J}_ 22@$6-"A 6-6-$K}"A 6-6-$ E 6-6-6-O:&,%6-O:&,)E-@?*6-%$G:,6-&$G:L},*6-%$E:, !@y6-@y* 6-4!@y6-@y> 6-HM} @6-@R!A6-A\"A f"@Ap% ,/,/N}% A z -,/  6-6-6-F @%,%6-A 16-A =6-C6-O}F$6-@ A`f , A P4@@D-Ar9%T*@F:,X c@P}f$g A P*@@:-Ar9%G)@MQ \@d1g$--6-F:@,Q}%AV$F:@,%A@36-R:,!6-T:,- @0'3$"@A `$:6-R:,R}!6-T:,-"7 A@:$5"@6-%@)!@56-5"@6-&@)S} 56-@!0@! A 5 #A@!-A6A%"+/ 2#5$##104,104,104,T}133,209,173,254,6##133,212,173,255,6,133,213,169$ 0,133,231,160,1,165,85,145.$$203,133,233,133,214,165,84,1458$$U}205,133,234,133,215,132,232,32B!!184,6,133,230,197,209,208,1L!!96,32,221,6,177,203,133,214V%%177,205,133,215,230,21V}4,165,214`201,80,176,8,32,184,6,208j 3,32,164,6,198,214,198,214t""165,214,201,255,240,8,32,184~6,208,3,32,16W}4,6,230,214##230,215,165,215,201,192,176,832,184,6,208,3,32,164,6$$198,215,198,215,165,215,201,11144,8,32X},184,6,208,3,32 164,6,198,232,240,4,200,76!!52,6,164,231,240,95,132,232%%177,212,145,205,177,207,145,203!!13Y}6,208,245,160,1,169,0,133231,76,52,6,32,221,6,230$$231,240,75,164,231,165,214,145$$207,165,215,145,212,164,235,Z}9632,200,6,169,7,157,66,3""32,86,228,164,235,197,230,96 $$132,235,165,214,133,85,165,215 133,84,162,96,169,[}0,157,723,157,73,3,96,32,200,6( 169,11,157,66,3,165,209,322##86,228,164,235,96,165,234,133<!!84,165,233,133,8\}5,96,32,237F6,104,104,96,0,0,0,0D2:PALETTE.BASSSLXYXYZYYZATFFXYX1X2YRX1RYRX2IDMES<DE NAMEOBFLABASCHACSEPPPPP0P1P2P3DELAA A6BhdB^}BsDA Bx BD B BV By@BBSB@ ';@ ,;@ ,'6-_}/ #A0!-A6Ae%"+/  >:A%,(k-@ @k Q****ROVING CUPID**** IF CUPID DOES N`}OT FLY HIT BREAK AND RUN AGAIN, JUST A HINT!2!  WHAT IS YOUR NAME!<8  WHO IS THE OBJECT4 OF YOUR AFFECTIa}ONS8F55-->RESERVE PM GRAPHICS AND CHARACTER-SET TABLESP5AP:+F:A,&@,'@,$@G+@%b}@^6-F:A,$AV6-+F:A,%@,$AVZ!!--> BORDERS AND DECORATIONSdk0@@@c}70@@Q0@@@k0@@@n76-F:AV,$AV7AVF:A,d}%@x<6--%A#*F:%,86-%@< L6-@d$@/-%@%@:F:%e},H6-%@L _-@#-9 @>:Aa,E-@[ @>:Aa,_ u-f}@#-D @>:Aa,>:Aa,P-@q @>:Aa,>:Aa,u -@@g}( @HAPPY:-@@S @ VALENTINE'Se-@@v @DAY-@ @ @q}B'DOS SYSB+AUTORUN SYSB@DDISKIO BASBSEARCH LSTBlHOMELOANBASB,MUSFLASHBASB3*PALETTE BASB]CUPID BASB_BLONDELLBASB GUITUNERBASB VALENTINBASBKSCRAMBLEBASB7ECRYPTO BASBP|HIGHSEASBAStoH-@@& @DAY8-@ @H @toS"-@&B:,'@@/ @r}A-@@S @from/"-@&B:,'@@ / @""--> ESTABLISH PLAYER DOMAINS;6s}-%A$6-%A-6-%A6;6-%A-->CLEAR PLAYER SPACES+-%A$%A H'+ t}--> LOAD PLAYER DATA9 #A@6-%@R+-%@#/"59 /6-%@`!-%@%"+u}/ /6-%@S!-%@%"+/ /6-%@`!-%@%"+/ ""--> SET UP PLAYER-MISv}SLE DMA"BByF:A,,B2w@6'AY@b'A#@@KA@'A@w}9A@KA@J--> FLY RIGHT TO LEFTT -AA6@^#B2H&@#x}B2Ih-'@"P:'@,#6-(- A r-"@B2P-B2Q|-"B2Qy}-B2P  A--> FLY LEFT TO RIGHT-AA#B2H#B2I&@z}-'@"P:'@,#6-(- A 5"@#B2P&@5B2Q5"#B2Q{}&@5B2P  A A@--> REVERSAL ROUTINE\AP:'AV,;A&P:'|}AV,$AVMA@$\6-?:A6,\AP:'AV,;A&P:'AV,$AVMA@ }}\6-?:A6,\AP:'AV,;A&P:'AV,$AVMA@\6-?:A6,_AP:~}'AV,;A&P:'AV,$AVMA@\6-?:A6,_$^%2A1@9-@}@0[2A1^$ ++--> MACHINE CODE REVERSAL SUB ROUTINE 104,164,205,136,177 203,}133,206,32,19 6,165,207,145,203 136,16,242,96,162 7,24,38,206,102 207,202,16,248,96-->PLAYER DATA}OO24,60,60,60,60,60,92,92,159,159,191,255,255,143,135,135,71,71,7,7,7,3,1,1NN0,0,192,192,224,224,224,224,224,224,192,19}2,192,224,240,240,240,16,16,16255,252,248,240,224,192 120,254 D:CUPID.BASCHARLES@.BhdBlKL..BEFISTARTADBYTBUFFERTFCIOMEDIPINICICCOICBADICBLEICSTAABdAAr!}Q @ @ @h @2 B0AtBR@2A4A6!}A@A5šθǸdP +((,(ŠƠ̠86-AD6-BdP6-An!}; 6-&;;%A',;@ ,;@ ,;@,xJ#@@K:&(J(oot Tape or isk Binary F!}ile:46.>:,%67&%@0,.467@,.g6-@6-@%6.hhh=67@,.>:Ap,O67@!},.LVg67@,.>:A(,.)@.@f*@hAP) (>:, (@:B,6.) A0!}I6-&@$ 6.>:,I67@,.>:P:+&%A','A(,,H6-P:'AV,$6-&$AV667@,.>:,!}H67@,.>:,V6-%@"6-P:'AV,26-&$AVD67@,.>:,V67@,.>:,e-@@$!}"'67,.>:,+ e24,96,169,60,141,2,211,169,0,133,10,169,0,133,11,76,0,0H6-P:'AV,$6-&$AV667@!},.>:,H67@,.>:,'67@#,.>:,'67@$,.>:,*# ( (Filling buffer...*-%/"67,.>:!},6-%('"P:',/(*D BR(A(&ҠĠΠӡD&( (( ˠ!}"@:B,A ˠ"K((Enter filename(D(#(Use AUTORUN.SYS for automatic use)G(K,J 6.B:,!@!}27@<@,0D:;6.D:J67@,.6G Ap@5@@8(G( Writing..!}.@)*@AU)*@AUJy6-P:'AV,$6-&$AV1*@>*@O6-P:'AV,_6!}-&$AVl*@y*@T* AP*F:A,!@Ap^*@A$)*@@<*!}@A%O*@@`6-P:'AV,p6-&$AV}*@*@h) B'g@&( Fin!}ished.)rI-(Error F:A, trying to access1(<@?(I A|ԠŠ[( ("(Insert, Rewi!}nd Tape.:(Press PLAY & RECORD=([(Press when ready.J A0@8@@A(C:;(!}J( Writing...* AP*F:A,!@A0/@ B'g&( Finished.)(,(/N(6(Error F:A!}, when writing boot tape9(D@N AϠ売?6-@26-A4'6-A636-A@!}?6-A5B6-P:C:,'AV,*6-C:,&$AV2%B%%@L6-&%@$6-P:'AV,46-&!}$AV<%L%%@%@6-?:C:,<,AF:,$ 032,007,035,169,000,141 060,00!}6,141,050,006,141 066,006,141,008,210,141 000,208,141,001,208,141 002,208,141,003,208,141 076,006,169,004!},141,111$ 002,169,010,141,054,006* 141,053,006,169,003,1410 015,210,169,100,141,0026 210,169,232,141,071,006!}< 169,016,141,234,037,169B 003,141,072,006,169,200H 141,073,006,169,000,141N 049,006,141,057,006,141T 059,!}006,141,004,006,141Z 000,006,141,064,006,141` 065,006,169,048,141,007f 212,141,058,006,032,068l 034,160,168,1!}62,035,169r 007,032,092,228,169,120x 141,002,006,169,103,141~ 033,006,141,003,006,032 145,038,032,211,034,16!}9 001,141,111,002,169,003 141,029,208,169,001,141 030,208,032,070,035,032 060,036,032,145,036,032 01!}5,037,032,184,035,032 221,035,032,237,037,032 060,036,173,004,208,240 005,169,000,141,051,006 173,007,208!},240,005,169 001,141,062,006,173,005 208,201,001,208,044,160 012,185,081,038,153,003 059,136,016,247,032,!}237 037,169,207,141,001,210 160,125,140,000,210,140 193,002,166,020,228,020 240,252,200,208,241,160 !}000,140,029,208,076,150 037,201,008,208,024,169 001,141,066,006,169,000!141,250,061,141,250,062!162,050,0!}32,096,037,202!208,250,076,031,033,201!002,208,008,173,066,006!240,175,076,114,037,173 !067,006,240,044,20!}6,068&!006,208,021,169,000,141,!067,006,141,235,037,1692!001,141,053,006,169,2168!141,194,002,076,161,033>!!}173,068,006,074,141,003D!210,074,074,024,105,040J!141,235,037,076,161,033P!173,006,208,240,024,169V!032,141!},068,006,141,067\!006,169,000,141,057,006b!169,246,141,194,002,032h!096,037,076,161,033,173n!014,208,201,001,!}208,011t!162,004,032,096,037,202z!208,250,076,085,033,201!002,240,210,206,069,006!208,005,169,100,141,069!}!006,173,069,006,201,050!144,008,169,008,141,235!037,076,161,033,169,000!141,235,037,173,013,208!201,0!}04,144,005,206,073!006,240,050,173,076,006!208,029,206,074,006,208!024,173,071,006,056,233!001,141,071,00!}6,173,072!006,233,000,141,072,006!240,008,169,030,141,074!006,076,147,032,173,071!006,208,243,169,001,141!}!076,006,076,202,033,076!203,032,169,112,141,000!042,141,001,042,141,002!042,162,020,160,003,169!060!},141,001,006,169,086!153,000,042,200,173,000!006,153,000,042,173,001"006,200,153,000,042,200 "238,001,006,!}202,208,230"169,070,153,000,042,169"000,200,153,000,042,169"059,200,153,000,042,200""169,006,153,000,042,1!}92("068,208,246,200,169,065."153,000,042,169,000,2004"153,000,042,141,048,002:"169,042,200,153,000,042@"1!}41,049,002,096,162,001F"160,000,032,140,034,200L"192,010,208,248,162,010R"032,140,034,200,192,015X"208,248,17!}3,010,210,201^"150,144,008,224,004,240d"009,202,076,110,034,224j"018,240,001,232,032,140p"034,200,192,250,208!},228v"162,001,032,140,034,200|"208,250,160,004,169,065"153,010,070,136,016,250"032,187,034,096,134,205"!}169,000,133,203,169,060"133,204,162,000,169,000"145,203,230,204,232,228"205,208,247,169,001,145"203,230,!}204,232,224,020"208,247,166,205,169,194"141,250,061,169,195,141"250,062,096,160,004,185"096,038,153,024,0!}59,185"101,038,153,044,059,185"106,038,153,064,059,136"016,235,096,160,016,185"199,038,153,001,059,136"!}016,247,169,255,141,252"002,173,252,002,162,008"221,216,038,240,006,202"016,248,076,227,034,138"010,01!}0,010,105,020,141"075,006,160,016,169,000#153,001,059,136,016,250#096,169,062,141,047,002 #169,001,141,111!},002,032#047,035,169,166,141,192#002,141,193,002,169,216#141,194,002,141,195,002$#169,001,160,003,153,008!}*#208,136,016,250,096,1690#052,133,204,169,000,1336#203,162,029,160,000,145<#203,200,208,251,230,204B#202,!}208,244,096,172,033H#006,174,002,006,173,000N#211,074,176,005,192,040T#240,001,136,074,176,005Z#192,200,240,0!}01,200,074`#072,176,031,169,024,141f#234,037,224,080,208,021l#238,004,006,173,004,006r#201,008,208,008,169,00!}0x#141,004,006,206,000,006~#076,130,035,202,104,074#176,026,169,016,141,234#037,224,150,208,016,206#00!}4,006,016,008,169,007#141,004,006,238,000,006#076,160,035,232,142,002#006,140,033,006,096,024#216,173,004!},006,141,004#212,032,226,033,032,232#035,076,098,228,173,053#006,141,034,006,173,054#006,141,002,208,173,!}002#006,141,001,208,173,050#006,141,000,208,173,060#006,141,003,208,173,061#006,141,035,006,096,162#!}005,160,255,136,208,253#202,208,248,096,169,000#141,048,006,173,048,006#168,024,105,052,133,204#169,000,1!}05,000,133,203#185,016,006,168,169,000$162,008,145,203,200,202$208,250,172,048,006,185$233,037,024,105,19!}3,141$039,036,169,037,105,000$141,040,036,185,032,006 $153,016,006,168,162,000&$189,255,255,145,203,200,$!}232,224,008,208,245,2382$048,006,173,048,006,2018$004,208,178,096,173,049>$006,208,040,173,132,002D$208,034!},173,033,006,141J$032,006,173,002,006,056P$233,003,141,050,006,169V$050,141,051,006,141,049\$006,173,234,037,!}141,052b$006,169,005,141,001,210h$096,173,052,006,201,024n$208,006,206,050,006,076t$121,036,238,050,006,206z!}$051,006,016,012,169,000$141,049,006,141,032,006$141,001,210,096,173,051$006,141,000,210,096,173$067,0!}06,240,001,096,173$055,006,208,036,172,053$006,204,033,006,046,056$006,174,054,006,236,002$006,046,056,00!}6,173,010$210,237,075,006,205,075$006,176,248,109,075,006$141,055,006,096,173,056$006,074,072,144,013,173!}$054,006,201,045,144,006$206,054,006,076,222,036$173,054,006,201,203,176$243,238,054,006,104,074$176!},006,238,053,006,076$245,036,206,053,006,208$008,238,053,006,169,001$141,055,006,206,055,006$173,053,006,!}205,003,006$240,009,173,010,210,205%058,006,144,001,096,169 %001,141,057,006,096,173%059,006,208,045,173,0!}57%006,240,033,173,054,006%141,060,006,173,053,006"%141,061,006,169,050,141(%062,006,141,059,006,173.%0!}54,006,205,002,006,1444%006,169,000,141,063,006:%096,169,001,141,063,006@%096,173,063,006,240,006F%238,060,00!}6,076,079,037L%206,060,006,206,062,006R%208,011,169,000,141,059X%006,141,057,006,141,060^%006,096,173,064,006!},024d%105,010,141,064,006,173j%065,006,105,000,141,065p%006,096,160,012,185,066v%038,153,003,059,136,016|%!}247,173,071,006,024,109%064,006,141,064,006,173%072,006,109,065,006,141%065,006,032,237,037,032%031,039,!}169,000,141,001%210,141,003,210,160,098%162,228,169,007,032,092%228,160,010,185,111,038%153,063,059,136,0!}16,247%169,255,141,252,002,173%252,002,201,255,240,249%076,000,032,195,060,024%036,000,000,000,000,060%!}114,165,129,000,000,000%000,000,048,050,039,062%048,189,126,000,012,076%228,124,012,189,126,000%000,00!}3,003,000,000,000%000,032,016,000,032,169%009,141,070,006,174,064%006,173,065,006,032,023%038,169,029,141!},070,006&174,071,006,173,072,006&032,023,038,169,049,141 &070,006,174,073,006,169&000,032,023,038,096,134!}&212,133,213,032,170,217&032,230,216,160,000,132$&031,177,342,072,041,031*&238,070,006,174,070,0060&157,!}020,059,104,048,0056&164,031,200,208,232,169<&000,232,157,020,059,096B&185,175,181,128,179,161H&182,165,164,1!}28,168,165N&178,129,096,176,175,175T&178,128,176,178,169,174Z&163,165,179,179,129,096`&115,099,111,114,101,09!}8f&111,110,117,115,109,097l&103,105,099,232,233,244r&192,225,238,249,192,235x&229,249,254,254,254,000~&23!}9,239,239,000,000,024&036,102,024,060,126,126&102,060,126,126,255,255&255,160,000,185,000,224&153,000,056!},185,000,225&153,000,057,185,000,226&153,000,058,136,208,235&160,007,141,244,002,185&122,038,153,008,056,!}136&016,247,160,015,185,130&038,153,016,056,136,016&247,169,056,141,244,002&096,101,110,116,101,114&!}064,108,101,118,101,108&064,072,081,077,089,073&031,030,026,024,029,027&051,053,048,060,060,060&081,072,0!}81,000,000,060&060,060,081,072,081,000&081,072,081,000,081,072&081,000,081,091,096,108&108,121,121,121,24!}3,217'193,243,182,243,000,000'243,217,193,243,182,243'000,243,182,243,000,243'182,243,000,243,182,182'!}162,162,243,243,243,160 '000,140,001,210,140,003&'210,169,239,141,005,210,'141,007,210,185,225,0382'141,004!},210,185,000,0398'141,006,210,165,020,105>'020,197,020,208,252,200D'192,031,208,231,169,000J'141,005,210,141,!}007,210P' 096D:BLONDELL.BASTFCIOMEDIPINICICCOICBADICBLEICSTAABdAAr 'RATUNPNTPP@šθǹ%}9@, +@%@/-@@/(@ gIa TnR-A0 ( +%}AR@25-@@5(Use the E/A/D/G/B/CONTROL-E<7-@@7(keys for a six-string guitar.F%}0-@ @0(Depress the shift key P;-@@;(!to tune the second set of stringsZ5-@@%}5(for a twelve-string guitar.x-@"68,- 6-F:Ad,6-@$+"@B,%@%}$+"@c,%@$+"@X,%@$+"@a,%@$+"@!,%@$+"Ap,%@$+"A,mm6-%%}@$+"A',%@ $+"A",%@$+"A%,%@$+"@,%@$+"A4,"A5%}336-P:+Cx'+@$8,,&@,'AV,;;6-P:Cx'+@$8,,&@&AV$%?P,QB7h@%}!B7`-B7bQB7c+@$@,%@-@A0 YAd72%}Y2@ A5770,165,220,294,392,494,659,330,440,588,784,494,659%}D2:GUITUNER.BASPNTPP@šθǹ$0?@5KNFDMC 11;@ ,)};@ ,;@A,;A%,##@@K: +(.-@.(-COMPUTER VALENTIN)}E-2(<&&(PRESS AFTER EACH REPLY.F(P""(WHO IS THIS VALENTINE FORZd(n(WHO IS IT FROMx)}--(}PRESS ANY KEY, THEN GO GET !)@@ +@0@@)}0@0@@0@@ @-@@ ")} , /,@5&/@5&  @",@@,/@@6,@)}&@@/@5@J @T-@@^,@ &h/%@r | @)}-@1@5@,@,@ ,%@@,%@@ 6.>:)},-@@ 67B:,%@,.- 67B:,%@,.>:,  6.67B:,%@,.)} 67B:,%@,.[[67B:,%@,.C, YOU TURN MY HEART UPSIDE DOWN! WILL YOU BE MY VALENTINE? LOVE, 67B)}:,%@,.&67B:,%@,. 067B:,%@,.:AR@D(>:A%,N-@B:,&@@)}XAV@bAWl(7<%@9,v-@@    A**13,16,1)}1,18,9,19,7,19,6,19,5,19,4,193,19,2,18,1,17,0,16D:VALENTIN.BASERCHARLES@(}m%%TPLTXPLTYFIRSTSXOFFIREWWORDSLPREVXPREVYTTOFLNGAOFARBLBTTIMSCOREWIWINNEROUNR-}ANDOLDUNONSSADDGOA@@ @ -} @ @@@@-}@ !"#$%&'()*-}+,-./ !!SCRAMBLE êθdzBY F. NEIL SIMMSANTIC MAGAZINE. AP-} A.** init and begin **&** time delay loop **( F:A@,@@2$5** INPUT: string TP.}$ **6**** OUTPUT: LN (nonblank LEN(TP$)) **7?-@@$7<,4 26-&@5'? @e< 6-@.}A$** move cursor **m 6-8,6-8,1)&@2GB7`%$@@%@@[B7a%Ahm.}@w 8,68,- ,I#"@)"@)"@16-&@= @I6-@.}I#"@ )"@)"@16-%@=!@I6-@C!@* @'6-&@5 @.}%C6-@%C!@* @'6-%@5!@%C6-@%/ 1%@2,&68,-/6.}8,-$##** mark square or end word **68,-@: 6-8,6-8,6-8,&1:!A"A.}B"AB** always mark square if first letter **11O:8,&,!@)O:8,&,!@AY!B7`.}%$@`%@`5B7a%AhA%A(G,P68,-Y68,-:67%<%,.>:&@2,) @ :68,.}-%@ A==** square was already marked - process word if valid **H!@+2AU@@. }5 AH** array full **o!B7`%$@`%@`5B7a%AhL8, @Ao** word is too . }short to count **T6-$A%$@C67%@<%@,.7<%@ ,T68,-%@67<%@ ,.. }p(-@@46-+&@,$@@-@b(@7%@<%@,f p A@i-@. }@/6-+&@,$@C-@@&e(@7%@<%@,i Q68,-$@@. }@-@%@$@Q(@8,& 1%@2,X$** main play loop **B7a%$@.}0T:,*8,068,-0T:@,*8@,068@,- F:AB,.}ArAB@6-(*6-@ $@6-@$%@I6-8,R6-8,`6-$@r@@.}, 6-R:,@" A, A0! 6-T:,(*(8,! A** update TIME **6-F:A@,.}AP 6-&@XA@@`'@@9-@ @K(@ X(A& A.}&** end of main loop **** end of round **V A'*-@6?0<B2yHA@.}R @@V T@@'-@@(@ duplicates:T-@"8,!@6-" .}A0 338, @)8@, @A@B A(-@8(@ matches: B A.}3> A(-@@ >(@accept < > rejectV-@.(@ B-.}@H6-R A5V -)-@ 9(@= O-@@n(@.}A@A @@Q'8, *8@, AQ** skip following if not end of game **.}18,!8@,'6-1 A##8,"8@,A 6-@H-@@>(@.}player #%@ wins!H A.-@@.(@ it's a tie!-@PAP@1A.}@; @@W2@@{2@A&@@  A' A A@.} A ! A%/6-%@A@@g-@&@$+!@ ,@u(@ A&<& A.}&** start next round **? A& AP! A?** end of game - restart **** display letter grid **T.}@@+(@>:A%,=-@T(@cRbLO-@@%;6-P:F:,$@'A.}V,%@K67<,.7<,O -@@/6-+&@,$@;-@](@7%@<%@.},q-@@&(@7%@<%@, ** border **m-@@@3-@@. }9-H(@V-%@ e(@i m m-@@@3-@@9-H(@.!}V-%@ e(@i m  9-@6-+6-@ $5 A9 4$ ** build sc."}oring window ** Q@@1-@@=-@Q(@ -%@@)(@.#}0 5-@I(@]-%@@(@8&@$+"@,,  K%2A .$}@@7A@@A @@K A' s-@@'(@9-@ @J(@.%}200\-@@s(@round:  $& ** "go on" prompt **( t@@'-@ H(@.&}press to go on]F:B2y,"@`'j APt A2 IT:,*T:@,--@@ ?(@.'}FIREI A&< %%(T:,)(T:@,A& F H-@$(@6-@ E(@H$.(} ** turn off sound ** *B7a'B7c*$ ** 4 clicks ** L-@@)A@@.)};B2yE @@I L$ ** find and delete dups ** q@-@%A$8,$@&@%A$.*}@S6.7<%@ ,_6-qB2y 4A0` 88-%@8,$@&@%A$.+}@ 07<%@ ,A0U ##F:A@,*(A05 %%(T:,)(T:@,A07 b67<%@ .,},.(7-%@$@D(@VA@A b6-@     KA@A  @@.-};-%@$@H(@K$ &&** find matches and eliminate ** e2-@8,$@&@ ..}@E6.7<%@ ,WB2ye4A3 ::-A8@,$@&@ %A@ 0./}7<%@ ,A3u / @@/(T:,)(T:@,A3@ g67<%@ ,.)67<%@ ,.;-@@.0}H(@ZA@A]'g A3/  4  > / @@-@@,(@/$ $$** let play.1}ers review words ** m6-@L-@%A$8,$@&@ %A$@_6.7<%@ ,m4A6.2} -%@$@,(@@-@@^-@%@$&@v(@7@<,z .3}6- 36-R:,!6-R:@,3A@@  !!@*@A5` -@@ )(@.4}K2A@@U @@g-@@ {(@reject A5 !!@*@.5}A5@ -@@ )(@K2A@@U @U6-@$+ @,%+&.6}@,$+@, b68,-8,%#@@?-@%@$@P(@8,b@@ 3 .7}@@-@@ 3(@accept%%(T:,)(T:@,A5 A' @@ U#-@.8}%@$@9(@no wordsKA@AU @@/-%@$@,(@/$** i.9}nitialize var's **t 6. 67A ,.)67@,./6.C-@R68,-a68,-p68,-@.:}t c68,-@-68@,-@B68,-@W68@,-@c6-A$** in.;}itialize **m +@/6-F:A`,%AV$F:Aa,;6-@PG6-B7pa0@@@m6-@P).<}-@@%%@) E%@@e.%@ F:A`,E%@!F:Aa,;A ,;.=}@ ,9@,9@,9@,9@,9@,9@,;@%,;@,;@,;@,9@.>},9@,9@,jj6.`AAAAAAAABBBCCCDDDDEEEEEEEEEEFFGGGHHHIIIIIIIJKKLLLLLMMMNNNNNOOOOOOPPPQRRRRSSSSSTTTTTUU.?}UUVVWWXYYYZ= A@6.(68,-=68@,- A  A%#6-@5@@.@}G-@@U(@g-@@y(@0 -@@'(@0 '@@.A}IA@@'-@@ I(@ select GOAL:   B-@8(@press to be.B}ginB @@&6-F:B2y,&"@AQpY"@6-%@P)!A56-@PG-@@ Y.C}(@ (t-@@ )(@;-@@N(@start`A@@j @@t .D}AQ 2K-@$(@6-@ E(@K6-P$D3:SCRAMBLE.BASWINNEROUNR,p45UiABTIDPCQXNFPSL@ 2F} 52G}@@5@@K:hh;@&,;@&,;@&,;@,;@,;@,;@2H},;@,9@&,;@,;@,:$6.ABCDEFGHIJKLMNOPQRSTUVWXYZ. A :6-@@(++(" SHOU2I}LD I LOAD A SAVED GAME(Y/N) - A p0Y@2: @p-@@C::@A"@2J} B" AF.@ ( [B]tape error* A . PP-@@&&68,-167,._5 2K}A6-@M6-@P#ZL-@@@367,. H67,. L dA +@'02L}@@A0@@@i@-@@.(@ CRYPTO-GRAM@B2y@n0-@@2M}0(@ * * * * * * *x1-@@1(@ SKILL LEVEL-4-@@4(@# OF PLAYERS2N} - I-@@ .(@ PRESS STARTI(@ TO BEGIN0 A 6-F:B2y,0"@A2O}5"@6-%@)!@56-@5"@6-%@)!@56-@ A ! 2P} A !A@A..(& ENTER PHRASE (20 TO 75 CHARACTERS)++B:, @ )B:,!@uA A2Q}P;%6-P:H:,$@P,%@3-@7"; 1 A 1( PLEASE WAIT WHILE I GENERATE2( A2R}N CODE2-@@&<%6-P:H:,$@&,%@<8,"@ApS"@C"@2S})"@)"@ )"@)"@!S67<,.7<,"&67<,.7<,"68,-@& ,A 6-B:,-@&6-2T}16.7<,A4 A`696-%@!@&&67,./67,.9 A`@07<,AT67,.2U}7<,67,._^L"@C"@)"@)"@ )"@)"@!L67,.h m 6- @8A2V}r= -@8@6@-7<,4 36-= A| H A -@@)(CD/LT=-@2W}@&H6.7<,TA-@%P:'@,$@@%&P:'@,$@P( 7<,T K-@@ $2X}(7@<,*!<-@@K(7%@, A PA-@@ +(ENTER CODE LETTERA( AND 2Y}VALUE06-@  A '6-&@d06.>:,@6-@" A '67<,.>:,3"@2@67<,._JA-@2Z}%P:'@,$@@%&P:'@,$@J(7<,,-@7<,4,67<,.7<,& 0 A2[} P4AN%-@$@"( % AO-@@)+@=0@@O-@2\}@Z(@ * * * * * * *<(@ * CORRECT *Z(@ * * * * * * *?-AP2]}@;2@@?  A  A P: -AP6@62@@: ) 2^})2; A  A P;( PLAY AGAIN (Y/N)  A p4Y@2_} A ) A )( OPTIONS ARE: *>( S - SAVE GAME((  Q - QUIT>( P - PLAY AGAIN40(  2`}SELECT =>  A p04SAP> 4Q A  AH 4P A  @M ARC6-A2a} @p9@@C:C Bf\(@(@*(@7(@D(@Q(2b}@\@p +S +'0@@@A0@@@SAR@2c}(}CRYPTO-GRAM$'-@!(==> ')@"@'' A!!"@2*"@"A @2d}!! @e)!@A -@!( >:,$K-@@$(7@<,*!<-@@K(2e}7%@,$ )@6.>:,( $H(THE ANSWER WAS:!6.+ A PH( ˠנ٠Ԡ2f}f-@AP=2@'@ %@A c2f$-@A 2g}$!!A STITCH IN TIME SAVES NINEIIEARLY TO BED AND EARLY TO RISE MAKES A MAN HEALTHY WEALTHY AND WISE%%THE EARLY2h} BIRD CATCHES THE WORM99DO UNTO OTHERS AS YOU WOULD HAVE OTHERS DO UNTO YOU00PLOP PLOP FIZZ FIZZ OH WHAT A RELIEF IT 2i}IS$..A LONG TIME AGO IN A GALAXY FAR FAR AWAY.((WHY DID THE CHICKEN CROSS THE ROAD8//TO BE OR NOT TO BE. THAT IS TH2j}E QUESTIONB--THOU SHALT NOT COVET THY NEIGHBORS WIFELMAY THE FORCE BE WITH YOUV55BEGINNERS ALL-PURPOSE SYMBOLIC IN2k}STRUCTION CODE`33WE THE PEOPLE OF THE UNITED STATES OF AMERICAj77DON'T FIRE UNTIL YOU SEE THE WHITES OF THEIR EYESt552l}YOU CAN FOOL SOME OF THE PEOPLE ALL OF THE TIME~,,PROGRESS IS OUR MOST IMPORTANT PRODUCT88ONE SMALL STEP FOR MAN; ONE2m} GIANT STEP FOR MANKIND55EVERY ACTION HAS AN EQUAL AND OPPOSITE REACTION##I HAVE NOT YET BEGUN TO FIGHTDDFASTER T2n}HAN A BULLET; MORE POWERFUL THAN A SPEEDING LOCOMOTIVEWHO WAS THAT MASKED MAN44THEIRS NOT TO REASON WHY; THEIRS BUT2o} DO OR DIE((TO ERR IS HUMAN. TO FORGIVE DIVINE,,A LITTLE LEARNING IS A DANGEROUS THING88HE'D FLY THROUGH THE AIR 2p}WITH THE GREATEST OF EASE@@LAUGH AND THE WORLD LAUGHS WITH YOU; CRY AND YOU CRY ALONE00MARRIED IN HASTE; WE MAY REPEN2q}T AT LEISURE55O CAPTAIN! MY CAPTAIN! OUR FEARFUL TRIP IS DONE..THESE ARE THE TIMES THAT TRY MEN'S SOULS >>TIGER! T2r}IGER! BURNING BRIGHT IN THE FORESTS OF THE NIGHT''TALL OAKS FROM LITTLE ACORNS GROW<<I THINK THAT I SHALL NEVER SEE A2s} POEM LOVELY AS A TREE(22FOR FOOLS RUSH IN WHERE ANGELS FEAR TO TREAD2&&WHEN IN ROME DO AS THE ROMANS DO<11FRIENDS R2t}OMANS COUNTRYMEN LEND ME YOUR EARSF::FROM THE HALLS OF MONTEZUMA TO THE SHORES OF TRIPOLIPCCIN FOURTEEN HUNDRED NINETY 2u}TWO COLOMBUS SAILED THE OCEAN BLUEZ88MARY HAD A LITTLE LAMB ITS FLEECE AS WHITE AS SNOWdEEI SHOT AN ARROW INTO THE AIR;2v} IT FELL TO EARTH I KNEW NOT WHEREn11IF AT FIRST YOU DON'T SUCCEED TRY TRY AGAINxAAHE THAT FIGHTS AND RUNS AWAY MAY TUR2w}N AND FIGHT ANOTHER DAY::IT TAKES A HEAP OF LIVING IN A HOUSE TO MAKE IT HOME==IT WAS A ONE-EYED ONE-HORNED FLYING PU2x}RPLE PEOPLE EATER++I CAN'T BELIEVE I ATE THE WHOLE THING33SAY THE SECRET WORD AND WIN A HUNDRED DOLLARS**DAMN THE2y} TORPEDOES; FULL SPEED AHEAD??TWAS THE NIGHT BEFORE CHRISTMAS AND ALL THROUGH THE HOUSE22HEY MISTER TAMBOURINE MAN PL2z}AY A SONG FOR ME,,EVERYTHING THAT GOES UP MUST COME DOWN55HICKORY DICKORY DOCK THE MOUSE RAN UP THE CLOCK D:CR2{}YPTO.BASOPQRSTUVWXYZHSJLCQXNFPSL@ 0''CCCCCCCC1CG0CG1HG0HG1SL0SL1SDSNSHS1S2SBWW2HADPLTSISSBBCIHSXSSXYHHW6}}OLHGHIBXYODIIWWPDDDTTVGVGHQQYEEEFFLRUDDXYUUUDKKBBHHZZWW6~}@ @ @ @ @6}@@ 6}!"#$%&'()*+,-./06}123456789:;<=>?6}@ABCDEFGHIJKLMNO6}PQRSTUVWXYZ[\]^6}_`abcdefǪ¸Ƕ ##*****************************6}##* *##* HIGH SEAS BY TOM HUDSON *(##* A.N.A.L.O.G. COMPUTING *2##* 6} *<##*****************************F("(0,1,2,3,4,5,9,10P%@%*** LEFT MARGIN ***6}Z>>9<,;A,9<,;A,9<,9<,9<,d33;@P,;,;,;,;,;,;,;,n:9<,6}9,;,68,-(68,-168,-:68,-x< --68<,-)68<,-468<,-8 < G --6}68<,-)68<,-- 868<,-C68<,-G 1 6. 67A,. +67@,.16.W<6.2DESTROYER SUBMA6}RINE CRUISER BATTLESHIPA-CARRIER KH:, ?PW6-?P1 (}1(# =6-A6}-@#-=(>:, ++++++++++5-@!)(>:, ++++++++++16-%5 G-@"(6}Ҡ4-@!@G(Ҡ A! > A!0*(I'M SETTING UP MY FLEET.4 A"p> A! ;6} A!01(IT'S TIME TO SET UP YOUR SHIPS.; A!`c 6-6-6- A +6-@16-76-A A M6-6}@!S6-Y6-c A G6-@16-6-% A 16-@A76-=6-G A X A! (%H:6}, ?P:(I WILL GO FIRST.D A!`N A! X A0)( YOU GO FIRST! A!`) A! *** HUMAN'S TUR6}N ***: A! %(ENTER YOUR SHOT - ):B:,A"- 6. A%- )!) )!A,P6-%$%6}7<,0 & A!@<(OOPS - TRY AGAIN!F A!`P Ap667<,.2@L8<,!6.*2688<,<,-88<,<6},%B6-88<,<,L APJ? 6.  A A!@5(YOUR SHOT MISSES!? A!`T67<,.1 A0^d 6}A A!@)( IT'S A HIT!!!3 A!`d8<,ApAAA0APh&r "6- Ap6}| A0 "6- Ap A0 "6- Ap A0 "6- Ap A06} A0 6-A-@7( YOU SUNK MY 7+&,$%<$,!!!A A!` 6-%"A! 6}A0-@%%($6 A!@"(INCORRECT INPUT!, A!`6 Ap*** HUMAN SET-UP *** A! 6}--(SHIP: 7<%, --- LENGTH: &+('(BOW COORDINATE (EG. B4) - +0($(STERN COORDINATE - 6}(:B:,)B:,AD 6.6. A%N )!) )!AX )!) )!Ab,6-N:&6},6-N:&,,O:&,AlAO:&,%O:&,+&,# A!P7(SHIP WON'T FIT!A A v 6-6- 6-&6}6-&. -6-%6-%.8<,!A 6-&6-&P -6-%6-%1-@$%@%6}:(7<,E68<,-P68<,-68<,- $, A!P"(INCORRECT INPUT!, A ) A!P( NO DIAGONALS6}!) A ( A!P((SHIP OVERLAPS ANOTHER! A!` A *** COMPUTER'S TURN ***8<, 6-6} A8<, 6- A'8<, )8<, 6-' A 6- 8<, 6- A '86}<, )8<, 6-' A  8<, 6- A * 6-4-!A-*** SRCH FOR NEXT HIT ***>,!@u6}A `,*** SYSTEMATIC ***H 6-6-R 6-%!A \" A"7<,0 APf( A@(!6}*H:, ?APp AP"A z AP 6-6- 6-%!@uA `" A"6}7<,0 A ( A@(!*H:, ?A  A "A  A 2 -- A6}27<,0 A ! 6- AP!"A    2 -- A27<,0 A! 6-6} A !"A   &% A A %A@ A0 $ 6- $ A 6}A   $$ A0 $. 6- $86-P:H:,$,6-P:H:,$,B6-%$%$L6-+%,'&P:,6}'V$`C 6-6- Ap6-&6-6,6-6 Ap@6-%%C$jC 6-6- Ap6-%6-,6-66 A6}p@6-%%C$t; 6--&%!-&%; )!) )!A`~$6-%$%7<,42$6-%  6}$ 6-6-6-( 6-%6-%% )!) )!($ 8<,$ 6-% A/ - 688<,<86}<,,-(6-&, /$ 6-6-J 6-6-6- A%6-+6-26-686-B AJ6-%J 6-6-6}6- A%6-+6-16-86-6B AJ6-% 6- 6-$ 6-6-6- ( 6-6}%6-%%!)!) ) ($8<,"$ 6-% A(G 6.=:,)67,.>:@:7B:,,,%@,26.=:,G676}@,.7B:,,2) 6. 68<,-)8<,"AP<' 6.*'688<,<,-88<,<,%F" A67<,.1"66}-%P A! ( MY SHOT IS Z-@$%%(d: 4  A!@&( IT'S A MISS!0 A!`: Apn- A!6}@( IT'S A HIT!' A!`-6-x A67<,.268<,-6-%S 6-6-6-88<,<,P8<,6}A0APApAAS& "6- A0 Ap "6- A0 Ap 6}"6- A0 Ap "6- A0 Ap Ap 6-<-@<(YOUR 7+6}&,$%<$, HAS BEEN SUNK! A!` A$$*** ONE MORE COMPUTER-SINK *** 6-%"A!" 6-6} Ap,""*** SINK SHIP SUBROUTINE ***67 6-6-6-$H:,!?P*6-06-76-6@ --J6}8<, A`T+"A+*** RANDOM DIR SHOT ***^ 6-6- A hAr 6-6-| !6}6-8&<,  6-8%<,% "*"6-&6-% A % "*"6-%6-% A A`6} 6-6- !6-8<&,  6-8<%,% "*"6-6-&% A % "*"6-6-%6}% A ;  ;*** NOW YOU KNOW THERE ARE PARALLEL SHIPS *** --8<,   & 6-66}- A AP 6-6-6- !6-8&<,&  6-8%<,0")"A:6}AD 6-6-6-N !6-8<&,X  6-8<%,b")"Al  &v"AP6}"6-6%P:H:,$,""A 8%<,6-6 6-%6- A "6-6%P:H:,$,""AP86}<%,6-6 6-6-% A S-@ !6-%P:H:,$,16-%P:H:,$,:6-8,F68,-8,O68,-S 6}5 -28,A A A @A `5&Z 6-6-6-6-% Ap+6-26-686-B ApL6-%%6}Z A! A pZ 6-66-6-6-& Ap,6-26-86-B ApL6-%%Z A! 6}A pZ 6-6-66-6-& Ap,6-26-86-B ApL6-%%Z A! A p Z 6-6-6}6-6-% Ap+6-16-86-6B ApL6-%%Z A!8 6-%6-%1 )!@ ) )!@ 56} 8&  8<, &* 6-6- A 4   &> *** SCREEN SUBROUTINES ***H( A!0( % A!06}($R-@$\-@$f-@ $p *** TIME DELAY ROUTINE ***z-A $***6} END-OF-GAME CODE *** " A%`/ A!` A! ! A!0/"A" ( YOU WIN!! A"0(I W6}IN!!) A!@%(ANOTHER GAME (/)) 4N% 0Y A!@(% A"0%""*** SET COMPUTER'6}S SHIPS ***[ 6-6- A#6-%6-/ A#56-;6-E A#K6-Q6-[ A# 6-6- A#6}$-6-P:H:,$,6-P:H:,$,-6-P:H:,$, ,)%A# A#@A#`A#,&  A# & 6-6-6}6-6-6& A$$ +&, A#. % 6-6-6-6-% A$8 +&, A#B % 6-6-6-6}6-% A$L  A#V  6-6-6-66-` 6-6- 8<,A#j A 6-%6-% * A6}8<,*H:@, ?A#t = 6-&6-&!6*!6=8<,*H:, ?A#~ 0-+&,6-%6-%6}08<,A# ; 6-%6-% * ;8<,*H:, ?A# = 6-&6-&!6*!6=8<,*H:, ?6}A#   - 6-%6-%- )!) )!A$ !!8<,*H:, ?A#  6-6-68<,- 6}1-+&,6-%6-%*68<,-. 1$ *** DECODE GRID INPUT *** 06-@:7<,,&@e06-@:7B:,,,&@H6} 06-@:7<,,&@e06-@:7B:,,,&@H $ ++*** SHOW COMPUTER'S LAYOUT AT END *** D --6-8<6},.-@%%4":( D A% **(>:@:7+&,$%<+&,$%,,%A(,   $D3:HIGHSEAS.BASHHW4x