G@L|H}6CD l0C)HCC WhL/h `CmCDiD`  R@PG1  Y0@R !L` D  C D     G)16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD`Gz{!!PLACAGINPUSTARMEMSCHRPOMENSNAMEPRFPMECHPOSEXVVVBEAABGOUSTDATETIMROC@}CP @ @ %&-.5@Bgd@EV Bi` B \p  @uyA~}C@ )0189@AHK@PS@XY`ahio@}C @ !@"@$#.$+.%@36&@:BIRTHDAY CARDBY JOHN SLABYANTIC MAGAZINEH<;@}C  ,;@,;@",;@ &-,;@ 18,H6->G ? AKAdAU%(}?(PRESS ANY KEY TO RUN. } C F:Ad,"AU@ )Y Ap-EAdAU+6-KQ5 APUYO0_agk@ouY A yK } C A '0@#)A0@-1@59@=CK A`GgDRAW CAKE#UAe@kq@u1,A } C@x C/A@@"U/@P&*@@.7(=-@P;?@xCI=@MR@VX^`fS:2DRAW ICING< } C @ )-@@@E#@'-5,@P1IA/AE W,@PMQ@`Uci/A@`gm{,@Pqu@ay/ } C A@aFw-@P)A@-5+,@B9A?,%@EI@BMUS,%@Y]@Cai_,@Dmus,%@y@D}C+w PDRAW CANDLESR! 6-!@0/7!6-@0;FU)6-@bJQ'+%@Uo,)6-A&Za-@s@}C ',@03/@@ =@$,I,@&08U/@(<Q]6-&a c AU^d.+@bg@kmsu{}CS:.$n B& AUx B*L A %PLAY SONG #AP[!-@_c@Pgz!"@ ~}C W2@@ $@(.;2@28@<@@DJW2@NT@X\@`kF:@ o, A@}G ,**81,96,121,15,0,96,121,3,81,96,121,156""0,0,0,3,72,91,121,30,0,0,0,3@&&81,96,121,30,0,0,0,3,60,72,91,30J""0}G,0,0,1,64,81,108,60,0,0,0,3T**81,96,121,15,0,96,121,3,81,96,121,15^""0,0,0,3,72,91,121,30,0,0,0,3h&&81,96,121,30,0,0}G,0,3,53,64,81,30r!!0,0,0,3,60,81,96,60,0,0,0,3|**81,96,121,15,0,96,121,3,81,96,121,15 0,0,0,3,40,0,60,30,0,0,0,3}G%%47,60,72,30,0,0,0,3,60,81,96,30""0,0,0,3,64,81,108,30,0,0,0,3&&72,91,121,30,0,0,0,3,45,60,72,15$$0,60,72,3,45}G,60,72,15,0,00,0,3%%47,60,72,30,0,0,0,3,60,81,96,30550,0,0,3,53,64,91,30,0,0,0,3,60,81,96,60,0,0,0,0BLOW OUT CA}CNDLES/ @/2 @0$(@,0@4=Y,@(AE@(IO'/@$SW@([a9/@"ei@&muE"@yO}C@ Y A% O,@($(@',2',@)6:@(>D9/@2HL@(PXE"@\bO AfmW sy-~}C ',@&3/@($G-@(,@@0KK S6-%W E6-@OSY];2cekmsu{E}G AXCHANGE WORDSb #A  A@l2264,64,64,64,64,64,64,64,64,64,64,64,64,64,64v( 6.6.LET'S EAT }CRCAKE( Ap 6.AdAU F:Ad,"AUAP @ VINITILIZE STRINGSE (}}C (OLD OR NEW (O/N)";7@$(<@,F,4NE A@&7@JN<@R,0O& AK6.STEPHEN'6.FEBR}CUARY 6,198226.MALE>6-@"wH AK$* (}&(NAME OF BIRTHDAY PERSON*N( SEX (M/F)N7@{<}C@,0M*7@<@,0FAP A (AGE &"(DATE OF UPCOMING BIRTHDAY &  A}C A $ 6-B:,6- ($6-@,7 ;-@;M%@:7<,,"@2QW16-]z; A%=)@:7<,, @e~ } C*@:7<,,!@1a3 A`= A* A /"67<,.>:@:7<,,%, "$4%"@e6-A(% AP>!}!C '"@ 6-A`'6-%2R6-%@6D$\%"@Hi6-A(% Af'"@mu6-@y'6"}"C-z6-%@I$H (}D(5 DO YOU WISH TO PLAY A RECORDEDQ oMESSAGE (Y/N).H7@sw<@{,4#}#CN$$$7@<@&,0YA *t A D(/($WHAT IS LENGTH OF MESSAGE IN SECONDS3A6-'@xD$$}$C MODIFY DISPLAY LIST+ A@$,!%@04@8>+ A0BjPRINT GREETING/!6-F:,%F:%@n,$AV/6-%}%C%A2   #AUC-@$(@,:"+%%@>L/ C"@PA <<168,225,176,240,185,64,226,169,&}&C<242,180,232,164,225,185$PRINT NAME.$ 6-B:,$6-+@ @G&,'@KV87-@Zd3%@hz%%@:7<,,%@2~'}'C7 B@@?$MODIFY DISPLAY LISTI A@CK!&@OS@qW_5%@cg@ksI%@uw@(}(C E%@v@e!.%@w%8F:A`,E%@x<PF:Aa,D@TX@\`'-fhnuD(@y )})C  76-+@ (&B:,,'@,4*-@8?7(@CY/!6-F:,%F:%@],$AV/6-%A)& #A *}*CP/-@@)"+%&@-t/ %%226,169,242,180,232,164,225,185PLAY TUNE7 "%2z+}+C@ @7@ !, F:@ 0B, A W 9%2HJPRXZ`h9!@lA V //130,},CA,10,100,10,80,10,65,22,80,10,65,33,5,0 DRAW PRESENT1@EI@M['Ae@_e1@iz_,A @b~-}-C'/A @ 9/@@!@ %+K-@@/3@b7=U AAG_@KV3-@ Z^@bbh#,@lt//@x3 .}.C  3-@@ A #,@F$,//@60=3 %?0@AE@IM@QW'@[c36-@go?6-@s*1-/}/C ,@u%-,@4&1 436-&@8B6-&@FL3!RcA >!io As$H0}0C-@ AB $ JUMP,ADDRESS AND LAST GR.2 \%@FJ@NV+%@Z^@ebjB%@nF:A`,Y1}1C%@2F:Aa,\$GR. AND STARTB+@6:%@>d?6-F:A`,%F:Aa,$AV%@hB$ 6-&+P:'@2}2C ,$@ ,%"@#*@'>"6.%$%"@BH*@Lc"6.%$%"@gm*@q"6.%$3}3C' 6.$pDRAW FACEz @+1,@359@=C1/@3GK@OUC,@2Y]@agU,@2ko@syg/@4~4}4C@$y/@0@$ ,@2$(@%,2/@26:@'>G @KQ,@(UY@']c1,@)gk@(ouC/@2y@(5}5C U,@2@'g,@3 $@'(.y,@226@):@,@3DH@)LU @Y_,@2cg@0kq1/@3uy@3~6}6CC/@2 @5U/@  @5$*g/@.2@36<y,@$@D@6HN/@$RV@FZ`,@dh@3lu',@y@47}7C '/@@A3DRAW SHIRT/TOPg @7=,@AE@VIO1/@SW@E[aC/@ei@BmsU/@'w@H8}8Cg/@) @V$$7@#'<@+4,4MAa8YDRAW HAIR & EYE-GIRLC _e,@im@3qw1,@{9}9C@4 C/@@6! @%+,@'/3@7=1,@(AE@IOC,@)SW@[aU,@(ei@ms_@wq,@:}:C@5 /@@6'/@+/@639'/@=A@"EK9/@OS@W]K/@%ae@io]/@6sw@{o;};C/@4 @/@@"(/@,0@4=/@AE@5Iu$ DRAW HAIR,EYE,AND EAR -BOY @y,<}<C@ @11,@@2 &C/@*.@228U/@<@@(DJg/@NR@V\y/@`d@hn/@rv@"z,=}=C@ @"'/@ @$*'/@%.2@6?o/@3CG@KQ'/@3UY@]c9/@)gk@ouK/@ y@>}>C ]/@@o/@ $@1(1 @5;,@?C@$GM1/@QU@$Y_C,@cg@#kqU/@uy@~?}?Cg,@ @y/@ @$*,@.2@6<,@@D@HQX @U[,@_c@!gm1,@'qu@yC,@}@C@& @U/@0@ <X$XTITLE PAGEb +@@F'0@JLRTZ^A0dh@lp@tz[0@~A}AC@ @g6-@%s6-@)16-@5;6-AJl(-@NR@V]((@arHaPyv+-@vz@~B}BC+(@ BiThAy+-@$(@,3+(@7KCoPuEr'-@OS@W^'(@bzCaD*AR@~C}CC4(*( by John SlabyROTATE COLORS-@8<@@@Ge0MS@W]+0@ag@kq?0@u@D}DC M6-%@Y!@$e6-@(33"@7?6-@CK'6-@OW36-@[f3"@jr6-@v'6-@E}EC 36-@3"@ (6-@,4'6-@8@36-@DO"-@SW@[  "$@$$ALLOW CASSETTE TOF}FC: PLAY MESSAGEE$$TIME IS IN UNITS OF 4 SECONDS.J'@>@FT'B@@RXeT!F:@i,A ^B@G}GC@` $ D:BDAYCARDSTEPHENSTEINKEMENSNAMEPRFPMECHPOSEXVVVBEAABGOUSTDATETIMROC@0HG D  C D     )16CS S)  C)D1 p p I}IG0 C9DI pCDL~CiCDiD` DD˙` d J)L !J}JGD L(( LL()  L| L( S LH 0p n  K}KG CY?  q  L L  ` )L}LG `A! d߰")-݆ "  $G@LLL&0") $G%M}MGH0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0N}NG)8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH)O}OG  hyhyB q L> Lm JJ  Ln*` dB%'P}PG8  H H` 1 { LL   !L     Hh SY?  q  1LQ}QG  !? S   q 1 L   Ll  Lg E`L   !L)  q 1LR}RG) `L0AM݊L݉ ML  N݆LLLNLMLHG!@S}SG1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  qT}TG L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF U}UG G) *Gȩ GȽG GȌd q q G`  8   0G  `DV}VGCEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`YW}WG`piH n0)բY? 08`0 X}XG  0$L GGȽG L `8L`LY}YG8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`Z}ZGE8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE[}[G H8EEȱEEȩEh J E8   . m  i`LI!)E1FR\}\G1LJ舩9GIH`LJJ`HGHh l`]}]G S gL   8 rii `дCDCG W  ^}^C#C  Lq` X٨`DOS( SYS IIIIIIIIIIIIIIIC`0 ߩ0}} _}_C @ %|+-3G||DDOS PVDOSDOS[ `SYS sx}}`}`C}`@#'}3rt}|a}aCBDBDAYCARD CHDOS !SYS}b}bCV 0`BDELV !B c}cG`LV   !L IL]   TU J ]L!T  #      TU d}dG L ? .  t`GBJ V~DEHI B V0dVe}eGQDEHI VF9 ,0 ,0 s0hhL  L` H hDHEhf}fGDEL8HI   0 HI,0 0  9 .G VLOg}gG,0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHIh}hG V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHIi}iG VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO j}jGSTILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -k}kGLLu DEHILV 9 .l 9 .l  `` s$B VBHl}lGI|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVLm}mG1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2en}nC)1i1232435ޥ<<8X:;Z\}}oG 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. Dp}pCUPLICATE DISKC. COPY FILE ^K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILEb M. RUN AT ADDRESSF. LOCK Fq}qCILE )N. CREATE MEM.SAVG. UNLOCK FILE- RO. DUPLICATE FILEH. WRITE DOS FILESW9!&x#!7&p))'&X*./)L''-؆莟r}rGR'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1is}sGil ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 0t}tGJB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILEu}uGN !B 1L " 1 !BDED:}:1BJ|DE 1DEBHv}vGI 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L w}wCS BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWEDjy COPYING---DN:}x}xC # 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: By}yG 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#z}zGPdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%{}{G 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C:A%,ҠΛ'AR@/J'ΠƠқ$ ANn$ĠǠЛ *-@rv@z*( }GIn this example,(we are NOT using(the ANTIC chip or(Direct Memory Access (to fetch Players ! }C( or Missiles.#- A d-$(>:A%,ҠΛ()-@$hl@ p)(Notice h }Cow easy*'-@$@7'( it is to add ,#-@$;?@CZ#( Color to .*-@$^b@f*(Graphics Mode 0.2 }C .6-A  A5.ŠҠԛ<:-@$9=@AX$( Like this!06-@P\b: Af>?B2HAv' }C3B2IAD?ԠӠΠΛA6-A7= AAJF(-@$NR@Vr((It's also easyP(-@$v@ }C((to change thatQ6-@$!%@ )< (color.,6-A@F6 AJSU{-YeAT@iq36-@uy#@} }CY?AKAO {ؽ޳Z'A@]k'A@oxd A| }Cf"(>:A%,"-@@!xi(And it's easy toj(go back to the regulark(playfield color.l A | }CnAB2H 'B2I&IAŠӠƠΛs AMiu((>:A%,(((-@mq@ux( }CPYou can also fill}(the entire screen(with all 5 players.6-ATZ A^!((Like so:!6-#@ }C . A9.Š̠ӠϠΛ, A=P(>:A%,,-@TX@\##(The playfield is now hidi }C8ng!((!(6-AP A< (Now I'll put it in (of the players.36-A }C  A3A#@!%%@)4X6-A8> ABU&(>:A%,8-@Y]@aX(Next, when you press a }Cgkey,!!(I'll shrink the playfield9(for a moment by poking 9(Location 559 with 33.d A k(>:A%,4A }C Y@ %@2@6-A!'J A+9dAY@=A%@2E)( ()(Next, let's set each player(to a di }Cfferent color.' A )'AY@-1%@25FA@JX'A@d\j9A@nKAAD }CM]AAԠӠϠԠӛ(>:A%, AQZ.-@^b@f.(Notice that player }Css $$(0-3 are the playfield(but Player 4 (at right)%%(is in front of the playfield. A w Q( }C>:A%,*A#@ %@$TQԠӠĠŠȠқ2-@X\@`2(As you can see, Player 4 }Ce%%((the one made up of missiles)##(always displays in front of@(all playfields.! A i.(>:A%,@-@ }C@ Cu(Let's get rid of the 2(playfield again.< A GbI(>:A%,cA#@fj%@ntu-@x@ }C()( Playfield now hiding.) A ,J<(>:A%,*A#@NR%@V\<-@`d@h (In conclusion }Cq, here's an(example of how you can!!(overlap players to create(a multicolored object." A u(>:A }C%,$w%A#@%@"&%@2*wԠ٬ŠȠҬŠĠԠΠӠЛ }C4+$$ԠӠĠϠЛ, B2H@H8T Ҡ6(B2I@HX\%@`(Р@'B2P }C$'ŠƠΛ^B2Q*9hB2R?NrB2STc|B2TixB2U} }C *-@@4*(The three colors'-@8<@@['( at left were %-@_c@g%( produced by(- }C@ @+((Players 0 & 1.)-@/3@7T)(You can use the&-@X\@`&( same idea to'-@ }C@ $'( make a multi-(-@(,@0L((colored flying%-@PT@Xq%( spacecraft!(-@uy@"} }C1((ĠƠ AXA#@59%@=X٠ӠΠԠƠĬŠȠқp }C B2V@'B2W@"09B2X@4BKB2Y@FpԠ̠ӠϠŠțR-B2`A }C%@H %@%@QRԠ̠ӠϠŠț*A@U*ԠҠқ&A@ }C$&Ҡқ&A@(J&Ҡқ&A@Np&Ҡқ&A@t& }Gқ/??Š٠ϠŠŠҠàӛ0)B2aAU)ŠҠҰ:B2b }GAUұ? B2cAU ҠD B2dAU ҠF!B2eAU!Ҡ$ }C-@ M $ -F:Ad,AU*AdAU-$* AQZ?-@^b@"f%( TAP ANY KEY5( TO }C CONTINUE? A7-@ $@!(-'( : ?7( J $ Š̠ӠΠΛ$B2H }C@H($ҮӮаB2I@H,0%@24E%%B2P@HIM%@QU$@2Yj%%B2Q@Hnr%@v$@2 }C%%B2R@H%@"$@2&7//B2S@H;@%+@DH$@2LQ,%@Uf$//B2T@Hjo%+@sw$@2{,% }C@.//B2U@H!%+@%)$@2-2,%@$68$D:GR0PMILIP C. SEYERANTIC MAGAZINE APRIL 1984 LG29700 ? CHR$(125):IF SECOND THEN 2972029710 DIM FILE$(27),CHFILE$(27),ANS$(1),TXT$(20):SECOND=129720 CLOSE #1:OPEN #1,6,0,"}CUD:*.*":TRAP 2974029730 INPUT #1,TXT$:? TXT$:GOTO 2973029740 CLOSE #1:TXT$="":TRAP 4Y029750 POKE 702,64:? :? "Do you want}C@ to change the disk ";29760 INPUT ANS$:IF ANS$<>"Y" THEN TRAP 4D0:RETURN 29770 GOTO 2979029780 GOSUB 29950:GOTO 2976029}G790 ? :? "OCK, NLOCK, ENAME, RASE or ORMAT"29800 INPUT ANS$:IF ANS$="L" THEN CMD=35:GOTO 2986029810 IF ANS$="U" THEN C}GMD=36:GOTO 2986029820 IF ANS$="R" THEN CMD=32:? :? "Enter OLDNAME,NEWNAME":GOTO 2987029830 IF ANS$="E" THEN CMD=33:GOTO 298}G6029840 IF ANS$="F" THEN CMD=254:CHFILE$="D:":GOTO 2988029850 GOSUB 29950:GOTO 2980029860 ? :? "Enter FILENAME ";29870 FI}GLE$="":INPUT FILE$:CHFILE$="D:":CHFILE$(3)=FILE$:IF FILE$="" THEN GOSUB 29950:GOTO 2987029880 IF ANS$>"F" THEN 2993029890 ?}G :? "Do you really mean it ";29900 INPUT ANS$:IF ANS$="Y" THEN 2993029910 GOTO 2970029920 GOSUB 29950:GOTO 2990029930 TRA}GP 29940:XIO CMD,#1,0,0,CHFILE$:GOTO 2970029940 GOSUB 29950:GOTO 2970029950 POKE 712,68:? CHR$(253):POKE 712,0:RETURN 0 TRAxCB/00f'u'OSSOOTSMLHSHNDH@1GKAQOSAQWZ@"_b@gj@or@w@}C  @2 @"# *. A625@:=@ BE@JM@RUZ]@bmB7i@rsz@}C@P @6AT =>DRISKY RESCUEBY J.D. CASTENANTIC MAGAZINE}C APRIL 1984 A!d=-'+@/17E%6-1"@#IQ=6-@"U`iQ6-@%dj&F:@nu,,-@y@}C =(@ Q"!<Aun) )@2@,#6-)6-sc Ab,"6-F:B2d,16-F:B}C(@,96-%I*"ATW6-&@,4c6-@8FxI6-&+!LQ,;2W[@_c@gm%@q&I"A}CP{5 1!"@2+)"Ab5 A/3%@%7D$}"@Hc6- AP @Gg6- AP!!}C!A(* A6A."AiA2v"AfAP;!6-%+"AG,&+"AQ,'"; Az%$}C@%I )"@ ('6-@,8&I6-%@<@&@DK$+"@Oc,7 1!"@2gw)"Ab7 A{%}C$@%%)"@%6-) A)/%$@%3>3!@ABH* @GLX6-3 A\b%$@%f!!!A(* A6}CA ="AfAPJ6-?:A6, 6-%@AK."'@O_8A3J,@cg@k "+2@}C@ @@76-%+I-@/3@7>Y(@BM{2@QSY[aciq!@u6-P:H}C:,$+@&&,%@",$@&9) 1)@2=K*AbAOb- 1!@2f*Ab'6--6-}C-  APK 6-%A)!,@17- =C7@2GOK,%@SW@[fL"@jp)"@t 6-6L}C2@ @u%$@@"&@*FJ6-?:A6, 6-%@JT."'@Xh8A3J,@lp@t "}C+2@ @@@"(76-.4I-@8<@@GY(@KV{2@Z\bdjlr!@}C 6-P:H:,$+@&"&,%@&+,$@/B) 1)@2FT*AbAXk- 1!@2o*Ab'6}C&--6-  AP6-%@*4"'@8H)A3;,@LP@T^?Q,@bf@jpc/@tx@|}Cq6-@@ &u,@@ #)/@-1@ 5V6-?:A6, "+2@Z^@bf@jn@rx76-}}CI-@ @Y(@){2@-/57=?EM!@Q[6-P:H:ag,$+@&kr&,%@v,$@}C$86-?:Ac,18@2(6*AbA:M - 1!@2Q*Ab'6--6-  AP }C-A 6@!4-'+@/;L2%@?C@GfP T ^ A|6-&+&@2j,$+"Ab, A}C , @2/,Ab#,@-@35;@6?%DHX2NV%@Z`z2fhnpvx}}C0A%A11  ,6-&@4O1AA^~@wSU[a@2ek1,@oqwC/@}C O6-@ [6-@"$Ra6-g6-qAb~(Auc5!@V^-@bl1,%@prx5 }Ch} ,%-?P@ ?P$*;-04@8>a2DJ$@NPVZ@^&e yA%A} }C$mM AAA1@(*06C@ :<BHM ALUwY-@Y]@ah,(@l >-@}C @ Y(@D |* A*F:B2d,"JfA F:B2d,"@jA AP}C  -@`6@"&N2,2%@`6:@>B@FL&'@PpZB7`^ h Ar@tx,~6}C -6-%@  \ @$86-6-8-@<>DI6@MQT2W[@_c@gX \  6-%$}C 6-%@)6-%@#;-@'+@/6H(@:DT"@HN`6-T^n6-&@bl|6-&@px @|}C6-@ * @(!6-$@,6/6-%@:BC-@FJ@NV`-@Z\bg6@ko|2uy@ }}C@%   A`o #A )/!-59@a=C5-IM@Q_9"O2@cg@kuS g-{}C@*k o T -AeA`6?P.F<-B7aB7g@J^BF J T Abkg +@oAY}CHP6-?:C:$h˅̥ͩj΢ˑ͈`,,g6-F:A,&@La+-$AV%@e$AV%A/"5}C9 Q;@,;@*,h6-F:@.3,&@7a|-A6A"v!%$+"@ek)"@o,% G6-F:A}C!,%AV$F:A,[-@%)@-r67,.>:F:%A,,v AV16-F:A`,%AV$F:Aa,E}C%@0A4WAAgiA@4T{BBAAY@4Xl&z A(@p}.A}C@ ;@A APRAAdA@R?`j!p6-z AP+6-@dj6-px'6-@|}C36-@ ?6-K6-@#+W6-@P/6f(@:E(@Ie-*. * -*. - - - .(@i+* * * * * , * }C *0a#(@+ **, * +*. **. +*,B(@/J * . * * * * *a(@Nl * * * +*, * * *5k(@pwk(@{}CBO-*. -. -*. -. - . -.* * * * * * * * **, ** +*. * * * *** . *F Z* * * * *:C%(@^* * +, +*, +, +*, +,C(@}C $by jd casten?j(@(/4(@3 Ƞź KAP:'AV,jA&AV$F:A}C ,DH(@,(@6 H(@:= C c I^6-?:A6,&-im@q46-%@}C B"'@LA3^,$(@,;J{ "+2@?C@GK@OS@W]76-cgI-mq@uY(@}C{2@"$*>S&F:B2d,"@Bg & AX' A/(@k}TIME LEVEL SCO}C RE@(@  25R-@!@%,_(@08q-@<@@DK~(@Oa A%$@Pen]6-t6-@}C '6-@";-@u#)]2@-1@59@=A@EK2@OQWY_agm Aqw%$@%{b}Cvv(@ d-"*).* *0 1*6 *+. ***. -*, * * +*.* +. -, *-**, +, +*, -*,gvv(@}C d* "* *-**&(*.- 6+*.***, *; ;?*E. *,I T*. * *] ^+b*w * +**lq)(@{}C*. +, +, *?(@$6 +***.q(@:=$D M+***.-*.-R*S.\ k+, +,qv(@o +***.v(}C@ P +*.& '*. /*6 ;-*B C+G*d. +, +, -***. *vK:(@hn( *z * }C * +* !*. -*,H6-&@%2K$vv(@6:d-?*A.-J*O. *S U**^ k+*.**, +, +p*x. **} }C +*, **-*. +*vv(@/2d6*6@E**L*LR `* +, +, +, *f g*s t*z *-*}C.-* , * $+, +, *vv(@(,d*> E** -***KKP*h, ***, *-*.-*.* * +,l x+, +, +, *} }C +.-*vv(@!-d.-*.-**.-2*G. +, +, +, +, * *V [* * +e*f.l m*s u**y +**,}C +*, *c:(@!(+., 5* * +:*N. -*,F6-@RZR6-@^h`6-&@lyc$pp(@}}C_-*.* !*% &** >**-***, *. * -B*C,H P+*** * +T*T_ l* *vS(@psBw }C * * !* ** *, -+1?*, +**,v(@CFQ e+*.-*.-*.w,(@is***.y +, +}C, +, *w(@< -+*.-*.-.-*.-**.4 F+, +,+, +, ***.S _*vv(@cgd*k s+*.-**.-w*, *, }C +, +, * '*5.-.-.-.-, *> X+,+,+,+, * -U:(@\`(.n t* *+|* } C*. *,F6-R6-@#/U$*:-59@=C32IKQSYj7 :$Rp(@ny}2(@} } C the score of thee(@ O%game you just played is highest yetp(@S]W$(@a B(@ } C ___T-@"&@*1s@59@=?EfKAdAU\h-@jn@ry$)@} } C 5(@ 8>:,CA%O67,.>:,S ^@<h APnn255,60,36,231,36,60,255,0,186,214,124,16,16,124,2 } G54,198,188,250,127,112,60,120,251,254,251,120,124,62,54nn246,103,197,61,95,254,14,60,30,223,127,0,0,9,6,9,6,15,9,0,0,196,}G102,127,102,196,0,255,128,65,34,20,8,255ll0,255,126,255,231,195,231,255,126,255,191,255,251,223,255,255,117,255,111,59,12}G7,30,29,7,0,255,247,126QQ220,180,248,232,128,3,7,30,47,59,119,95,250,192,240,124,248,190,250,119,251mm104,160,255,185}G,127,2,201,199,240,14,76,18,6,169,0,153,127,2,136,208,238,76,65,6,185,147,2,201,0,240,26ll201,130,240,22,185,128,2,201,0,}G240,7,201,130,240,3,76,13,6,169,199,153,128,2,76,13,6,169,199,153,147,2ll76,13,6,160,255,185,128,1,201,199,240,12,76,82,6}G,169,0,153,128,1,136,208,238,96,185,148,1,201,0,240,26ll201,130,240,22,185,129,1,201,0,240,7,201,130,240,3,76,77,6,169,19}G9,153,129,1,76,77,6,169,199,153,148,1kk76,77,6,104,160,0,185,12,2,170,169,0,153,12,2,200,192,20,208,5,138,153,11,2,96,185}G,12,2,201,193,208,8CC153,11,2,169,0,153,12,2,76,139,6,72,169,242,141,22,208,104,64kk60,96,162,193,60,96,162,193,53,0,}G0,0,53,0,0,0,60,96,162,193,60,96,162,193,64,0,0,0,64,0,0,0,64,96,121kk144,64,96,121,144,60,96,121,144,60,96,121,144,72,96}G,121,144,72,96,121,144,72,96,121,144,72,96,121,144mm72,91,217,0,72,91,217,0,72,91,144,0,72,91,144,0,72,91,121,0,72,91,121}G,0,72,0,0,0,81,0,0,0,72,91,128,162mm72,91,128,162,81,0,128,162,81,0,128,162,0,0,144,0,0,0,144,0,0,0,162,0,0,0,162,0,60,96}G,162,193,60,96,162mm193,64,0,0,0,72,0,0,0,64,0,0,0,72,0,0,0,81,0,0,0,81,0,0,0,72,96,243,0,72,96,243,0,0,96,162,0,0,96,162}G,0mm81,0,243,0,72,0,243,0,60,96,162,0,60,96,162,0,72,96,243,0,72,96,243,0,72,96,144,0,72,96,162,0,72,96,243kk0,72,96,}Cr243,0,72,96,144,0,72,96,162,0,72,96,243,0,72,96,243,0,0,0,144,0,0,0,162,0,0,0,243,0,0,0,243,0D:RISKY@w@mC8$%uDLSTDLSTSCRLSCRHMEMEMHMEMLAd<?@DHA@LPAATW@d\`AVdgBlpAVtw@d| }C MEMORY WINDOW!!BY DAVE MENTLEY, BASED ON APROGRAM BY MIKE MOREY(ANTIC MAGAZINE APRIL 1984F_ +}C Ap)@@d-;B7t@d17M@;=CI_@MQ@0UfP'AR@jx'AY@3|}CLZ%-A6Ac"!% d6-A@6-AAn!6-F:@P[,!6-F:@_,x AR}C/AS6-$AV%'A`5C'Aa@G\A(>:A%,,(d current memory=A( TO } C %AU##( 7PAGE= P:'AV,I+T:=@,"FU)F:Ad,"@4Y_76-eqIAdwK+!}!CR: ,"@!)F:Ad,"@U%?96-%AVKAdENK+R:TY,"@]l)F:Ad,"@Tp96-&AV"}"C KAdK+R:"',"@+:)F:Ad,"@>H96-%@LXKAd^gK+R:mr,"@v)F:Ad#}#C,"@ 96-&@&KAd,5% ;)!BR%6-BR$6-P:'AV,$6-&AV$ $}$Cw A`%FF112,112,112,66,0,0,2,2,2,2,2,2,2,0,0,71,0,0,0,2,7,7,7,2,6,65,0,6 D:MEMWINDO@d| s%C#l  AXLPB0NZ*,24;<CDKLRTZ\bdkl st |&}&C + $AdAU0@(*04@8>70@BDJN@RXQ0@\^dh@lrc@v@'}'Cu@ @7'{(}AR@+4++(#U++(#| ANTIC MONTHLY DISK APR. 198(}(C 4 |++(#.8++(#Yc @ gr-@vA)})C $ GG;@@,;@ "),;@@-4,;A8?,;@CJ,;@@Nh, "D1:MENU" &&@lp@tv|*}*CD:*.* 6,6."3 96 @0=Ji6-%@NX(6.7@\`<@dm,A67@ qu<@ y,.+}+C .i67@ <@,.7@ $<@(A,3 6.|67B:,%@EU,.367B:,%@Yg,.G67@ko<@s,.(--,},C@>B:,:7<,4 G67<,..] 6.=:, @BJD67@NR<@V],.7@ae<@ir,]67@v<@-}-C,.0$@'(''7@+/<@3?,4FREE@CL- @ Pi2() <@mF''7@.}.C<@ ,4FREE@"K @ &1P(7@59<@=N,)|U @0R[W'!-@6_f+'@jo,%@s' |Z+/}/C+(#|& 0|[ ( |8 = F P|\++(#qd-(-("0}0C1 Select HELP.BAS for information.xAR7@[@DH@9LR'-@VZ@"^dC(p SELECTIONM 1}1CA0Q[ B4P:,A00"@8B&6.7@FJ<@Ni,0 AELB6.7+&@mr,$@v%@2}2C<+&@ ,$@%@$,L B(337@7;<@?N,4 36.7@RV<@Zf,!7@jn<@r,4DOS!.3}3C0 6.-@?B:,07<,4 AH67B:,%@Cr,.7<,   6.! 6.D1:!67B:,%@v,.?4}E4C AR@'-@@"#)? 1 DLOADING ? AHN@RV@9Z`1@dh@lv5%? Bz5}5CK-@ @"-  0CANNOT RUN 7 @4:A B>\K A0D1:MENU.bdkl st |Y6CoEiͩkΩ͙kCop j`j {j`Hi͝Νh`}!7}7CoL"UNEM:D"NURͩkΩ͙kCop j`j {j`Hi͝Νh`} 8CQCD RECSEBYRECSECBYTRNULASTFIRSTAREAEXCHPNUMWORKUSERINLE[\cdjlrt@z@]9}9C  %' -/ 57 =? FGMdNOTE & POINT DISK UPDATEnBY JERRY WHIT]:}:GEsANTIC MAGAZINExThis program demonstrates!!random access disk updatingusing NOTE and POINT. A];};CQ""ĠήԠĠś""үŠΠӠ 6-%@U\ @`n"@r("(^}<Gqr$/$LGGTXBPNTANSMIXACWCXGMIMATYPPCNROUNDBPCDITHSCSCORROUNCANSXXTOPSEDELPROC-=}=CL _MMM(AAA* (R (z u77 Bfr @dg @lo @tw@|->}>C@@@#Ay'+Ay/27:@5?B@GJ@OR@WZ@_b@ gj@or@2wBpE-?}?C@ @"!@r"A "%#@*-$A25%@:=&@PBE'@IK(QMATH WIZARDBY MATHEW RATCLIFF-@}@C1ANTIC MAGAZINE APRIL 1984 8&;A3,;@@5<,;@U@^,/6-C:,86-C:,WW67@bf<@`j,.<ܥTUV-A}AC8W (h(hh#hhhhWW67@a<<A ,.<hh hhL݅բ &eԢ-B}BGޥ(WW67A!<A,.<*ސXeԅԥYeՅeԅԐեԅ֥Յנ٢2WW67A<A@,.<-C}CCK)誅` @ eڢۢ&eۅ۩<WW67AA<AO,.<ȱԅEۦ Оf&&-D}DGffȥF<<67A<A3,.!eԅԐвץօԥׅн`PAA6.7h hhhhXԥYթנ -E}ECGQԑ`Z**A=USR(ADR(GTX$),ADR(B$),LEN(B$),X,Y)dGG9@KR,9@V],9@ah,;@@ls,;@@w,;@-F}FC,n{6-@6-@!)'6-@-536-@9A?6-@EKK6-QYW6-@]ec6-@ioo6-u{6--G}GCx AO -@ "(-6@15H2;?@%CJ$+%@NS,@WL O$$6.ROUND # $67@ -H}HC ,.=:,&&6-?:@FLG2@PRXZ`bhJ$A`A-L}LGpA9/6.% + + + + + + 9 A9/6.% - - - - - - 9 A-M}MC<//6.% x x x x x x " -@@D@H` 68,-,'6-P:$H:ft,,%'!Ax6'-N}NC 6-P:$H:,,%'!A@ !6-6-6-JA@APA`T68,-% Ap^68-O}OC(,-& Aph68,-$rW#6-@,3$+&@7<,%@@L967<%@P`,.=:,W67%@dj<%@n,.=:,| -P}PC / -@ @6@)/68,-@-<6-P:$H:BH,,%@L% 6-8,68,-8,!68,-% $> +-Q}QC@$A/>6-?:,@ AC96-?:@FLG2@PRXZ`bhoX! u!,%@-X}XCAb/%@@2#6l66-A@$H:<C,6-IM@QU@Y`v;2fl@px72@|-Y}YC%@ @; J%2$&,.46<BG2@FHNPVX^rJ$Q 6-&-@vx}-Z}ZC6? M2 AV$H:&+,@/@Q .-@DH@LU.8,"[pA06-&@t'6-$@-[}[CH %@$ 506-8,- A06-&#6-&@9U- Ap "6-@$Y]%@Ha$6-"$4 6. 67-\}\C@,.=:,467B:,%@<,.&&6-?:)-@$su{)-`}`CA(* MATH WIZARD *H&&(   RW-@EI@MU#(>:@Yc,7-@gk@7owE(>:@{,-a}aC I W(>:@,\G-@#@'IG(>:A$, USE STICK 0 >:@'MT,>:@1Xb,fG-@(fj@nG(>:A$,-b}bC,UP/DN>:A$,L/R>:A$,pW-@04@8@#(>:@DN,7-@RV@7ZbE(>:@ft,I W(>:@x,z-c}cC1-@ @#-@71(>:A$,7-@(;Q(>:A$,)-@4Un7(>:A$,!-@8r(>:A$-d}dC,! W-@@ &#(>:@&*4,7-@8<@7@HE(>:@LZ,I W(>:@^q,#.-@uy@}-e}eG"%-*(. 4,5,Minimum Starting #4,7,Maximum Starting #3,9,% Correct to Advance3,11,Diffi-f}fGculty Increment6,13,Rounds Per Game3,15,Problem Type4,17,(1) Addition4,18,(2) Subtraction4,19,(-g}gG3) Multiplication..2,21,Move STICK 0 UP/DOWN to Select Item--2,22,Left-Decrease Right-Increase Value$##2,23,Press -q}hCtS]ddiCbDBDAYCARDBASb'HDOS (SYSb*oDUP- ySYSb*GR0PM BASb DISKXIO LSTbORISKY BASb MEMWINDOBASb%MENU jCb6AUTORUN SYSb&DOC )TXTbAHELP- BASbI<MATHWIZ BASb>ARENA BASbLITEPEN BASb<MATCHBOXBASMLLOADER kC =FPSTART +*AFPASM SRC.XTESTX0 b3WHEEL BASb 9CAIDRIVELSTb oPHONDRIVBASbySAFESPC LGOb8UPDATE BASlC BRKKEYIO bERRTRPIOBASqC to Begin Game.36-@5!)6-@-5'6-@9A36-@PEP8-@TX@\B -L77AA -r}rCNA0A@APA`V( Ap`( Apj%(P:ARX$'@\,% Apt( Ap~-s}sC$( Ap(6-%@(7 6-@;?@CI+-@MQ@Uk%2( 6 0-@os@w%0(>-t}tC:@',>:@1,--@0"&@*0$%@4M-(>:AH,*6-R:S\,*(+T:bw,,A0g"@{+-u}uC-@0 @$%@"9(>:@ &0,E6-@P4<Y-@@D@HR] g AVa'"@eo6-%@s' Ap-v}vC '"@6-&@5' Ap56-+"@9A,&+"@EL,+Rr5 A AD-@0v@-w}wC$%@ &( ,6-8 @$,D6-@0;!@?G6-@KV '-@Z^@bn '6-@PrJ -@-x}xC 6@<2#@'+@/;@ J A?77A APAAA@Ap(# 6-y}yC -%#6-@)2!&@-76-&@;F<2-@JZ( #-@^i((2 AmF# 6-%!-z}zC@#6-@ P %@$.6-%@2=Z2-@AQ( #-@U`((2 Adwd# 6-%!@{#-{}{C6-@ n @!6-@%0xF-@ 4E( $-@ IQ<(P:AU[$'@_g,F Ak# 6-% @-|}|C #6-@!@ (6-@ ,72-@;K( #-@OZ((2 A^q# 6-%!@u#6-@-}}}C @6-@*2-@.>( #-@BM((2 AQ\V-@`d@hn+-@rv@z%-~}~C2( 6 >6-%J @&V6-@*5!@9A6-@EPA-@T_((-@cg@ku%A(>:@'y,>:-}C@1,)6-&@" @&.)6-@2=@ -@ACIN6@RV<2\`@`dh@l@ -@-}C  A@6-#+6-@/E'6-A @6-P:AIO$'@S,APA`Ap6.-}CE+= A6.-= A"6.x=,-@I67 A0 AP+6. 1 76-@-}C2@J-B:,&@!4F6-?:,"*8%@BG,"@Kf3 A = AO lt!,%@xA-}C 7/%@%@#E6-&@'<O ApK -@@BHM6? QUG2[gAU$H:mr,@vK -}C =6-%@R!Av)6-Av3 AP= A  A@wVX^ ' Ap  A-}C/' A&3 A@6-%36-%P:$H:5:,%@>J,06-ANr : !6-6-D6-@v A-}G D:MATHWIZBPNTANSMIXACWCXGMIMATYPPCNROUNDBPCDITHSCSCORROUNCANSXXTOPSEDELPROC,CD67/SDISTTPPPCMSCSLSSLICVVVNOVW^_fgnovw}1}C   !" )* 12 9:ABIJQRYZabijqry1}C $%,-45<=EARENA PSYCHOTICABY E.F. WOLPAWANTIC MAGAZ1}CINE APRIL 1984'6-%6-@)1'6-@5>T ABH ALR! AVq6AVF:A,@ AuJ A1}CT A AAF:@#4,-AF:@8?,7 ACIA AMV0@Z\bf@jn70tx@|1}C@ Q0@@@!'k0@+-35;Aw6-GM AQb A7@fv2AF:@z,%1}C@DA8@u&VA9@*6hAA<LAF:@PU,%@YgA@k ++AP:H:1}C@,$AU,%@G!6-?:AB,!6-?:A,x6-%@KU+6-&@Y`$+"@d,TAVF:A,%@1}C $+"@,t-@!@P%,&+$@0G,x **F:A@,"MQ*"W[@_y26-F:A@,"@}1}C( A0 2 @@"@#'@E+655"@:@)"@DJ)"@NT)"AX\A`m6-%@q6-&@1}CA2@ A@ @$,U-@04@08BY {2@FHNPVX^d"jp2@tv|1}C  A @#.!"@26@:C#9/2@GUAP&$@Y]@ae@io9 @s(kAA1}C@ 72@%'-5C6-@9AO6-@0EQaA9W]k @al*!! @pv)!@%z@1}C-y6-&@ "./AA4:;6-@NMA9@RXo2@\^dflnty @51}C.V6-$+6@,V2@#A'.%+$@ 27,%@@;B$+ @FK,@OS@Wo0:6-F:A@,:"u)"@1}C)"A @e6!!!@#)* @%-1@05@7!!"@DJ)"@NRAV_< @clA"rv@zB1}C"A 6-&@'C`6-%@+3*'A7?"P:'ACJ,4 A%NXB6-%@\bT-@fj@n`(CARS-E1}C"-@ @ ("(SCORE-H @,R_NEXT LINE HAS 42 SPACESd-X\@"`d#-jqQ((} 1}C 'U w2@+-35;=CI AM^eQAR@ bh!6-n3AA1}C ?6-QA9@!*fg-@.2@6H!(CARS-3-@LP@ Tg@(SCORE-R-@ko@!sg(ARENA1}C h%6-%@$%"@$(,A 0?i*6-P:'@CH,%@QLT*-@Xinc%6-P:H:@mr,$@7v,%@1}CG6-P:H:@,$@ ,%@$4O1c@28KAp!!"@'OU*"@YrAs' -#(>:@Rv%P:'@1}C#,,' u 6-xc%6-P:H:@',,$@705,%@9EG6-P:H:@IN,$@RW,%@[kO1c@2oA z -1}C(#}j-@ -&.7(>:@R2:%P:'@>J,,; g2@N\AP&$@`d@hl@pj$mm104,1}G172,2,6,173,120,2,201,13,240,66,201,14,240,82,201,11,240,42,201,7,240,6,173,1,6,76,13,6,141,1,6,173XX3,6,145,203,200,208,1}G2,230,204,177,203,141,4,6,173,1,6,24,109,5,6,145,203,152,141,2jj6,96,141,1,6,173,3,6,145,203,136,208,226,198,204,76,48,6,1}G141,1,6,173,3,6,145,203,152,24,105,40,144,2YY230,204,168,76,48,6,141,1,6,173,3,6,145,203,152,56,233,40,176,2,198,204,168,1}C@76,48,6(-ABAb"!% ($,AY@4DO.h-@SW@[_#-et*($6-@9x=(1}C$A U-@9$a-@(:h($1-@>T($ 2p-@X\@`f#-@jy*($6-@7}1}C=($A ]-@@!%@)/i-@3Ep(13-@7Ia(1 6x-@ei@mq@uy+-}1}C2(1>-@9(E(1I e-.2@86:@>Fq-@J\x(1;-@`(1 $t #A%.1}C%@# F:%@#O,%A(B-AcAF"LP bA@StAA'BBA$1}GOO72,169,14,141,10,212,141,22,208,169,0,141,26,208,169,224,141,9,212,104,64Xn%6-F:A`,%AV$F:Aa,F%@1}C F:%@,%@"^-%@&,%@#08j@<Mn ].-%@$QW%@([c'@g+ .$ll112,235,21}G35,40,40,235,235,195,195,104,195,195,235,235,40,40,235,235,88,207,207,168,168,168,168,207,207[[56,243,243,42,42,42,42,2431}G,243,8,192,192,48,48,12,12,3,3,160,12,12,48,40,40,170,40,40 24,20,20,85,85,85,85,20,20LL32,255,255,255,255,255,255,21}G55,255,136,170,170,170,170,170,170,170,170ll96,20,20,64,64,64,64,20,20,128,20,20,1,1,1,1,20,20,144,20,20,65,65,65,65,0,0,1}G152,0,0,65,65,65,65,20,20\\168,130,130,0,0,0,0,130,130,176,5,5,60,12,15,12,51,34,184,60,60,255,119,119,255,255,51%%191}G2,252,60,252,48,56,48,204,204CC400,60,227,60,60,60,195,195,0,800,165,165,165,165,90,90,90,90-1K AF:A1}C,&@ *+2A6-F:A,$AVK#A6F""6@J[Ab3-ae@i"%%%) 31}C$ AUA AF:A,&@(Y76-F:A,$AVA#Ap""6@]i$3-os@w"%1}G%%) 3 Adll112,235,235,40,40,235,235,195,195,104,195,195,235,235,40,40,235,235,88,207,207,168,168,168,168,201}G7,207[[56,243,243,42,42,42,42,243,243,8,3,3,12,12,48,48,192,192,160,48,48,48,40,40,170,40,40 LL136,255,255,255,255,2551}G,255,255,255,32,170,170,170,170,170,170,170,170$$192,252,248,252,48,48,56,48,48XX96,20,20,85,85,85,85,20,20,128,20,201}G,85,85,85,85,20,20,144,20,20,85,85,85,85,20,20!!152,20,20,85,85,85,85,20,20[[168,0,0,40,40,40,40,0,0,176,20,20,12,63,1}G12,12,51,34,184,60,60,255,221,221,255,255,204AA400,0,60,203,60,60,60,60,60,800,90,90,90,90,165,165,165,165-1 %%11}G65,207,133,205,165,208,133,206#==104,172,255,6,173,10,210,41,3,201,3,240,53,201,2,240,65%>>201,1,240,33,240,0,169,100,11}G45,205,200,208,2,230,206,177*NN205,208,17,169,50,24,145,205,165,205,133,207,165,206,133,208,152,141,255/??6,96,169,100,1}G145,205,136,208,227,198,206,76,188,6,169,1004>>145,205,152,24,105,40,144,2,230,206,168,76,188,6,169,100966145,205,152,51}C,6,233,40,176,2,198,206,168,76,188,6H2 #A0b!-AA%"+/ 2$/6-&@fl Apv/"|1}CA%6-&@ A"(% @,=AY@4AG72@KMSU[]ciI-@mq@u[@w1}CA(i( GAME OVERT:$),"@-1A5>76-DL6-@PV-@wZ\bh7 @lw@ -@D{1}C 6@L2@@ !'%$@+/@37@;As0@EGMQ@U]&P:'@ah,0@lntx@|&1}CP:'@ , Ee%2@!@u%)@-1@5=A6-?yAE%@IM'AQYM6-@]eY6-@iqe6-@uJ%6-1}CP:H:@ ,$@,%@#90@'+@/7M0@;?@CIi2OS@ W[@_g2@ko@@sw@{1}C O_2@ @p@4'6-$96-$+%?8F,K6-$+%?JS,_!@WnATAYt)-1}C@ E2!'1I c0@59@=A@EK}0@OQWY_k$V-@os@w)(1}C;-@@ 7L( YOU HAVE WONV A; EE108,15,1,1,108,15,1,1,108,7,128,25,144,25,162,25,1,15,81,15,1}C 0,0 #A% : ""%+72@/179?AGS:$ ;2@W]@ae@iq--@u1 ;1}CP A% ??81,10,1,1,81,10,1,1,81,10,1,1,81,20,91,45,96,10,81,50,0,0 #A0Tc  ""iu$ ;2@y1}C@ @--@1 ; A0\\486,130,130,0,0,0,0,130,130,494,5,5,60,12,15,12,51,34,502,60,60,255,119,119,21}C'UCOFLAPENOFHH@,/@47@<?@DHA&LMTXA\ALIGHT PEN DOODLE5}CBBY JOHN AND MARY HARRISONANTIC MAGAZINE APRIL 1984 AFU 'B2w[i'B2w@m6-F:B2d5}C ,"@ @I(!6-F:Ad,!6-F:Ad,2%% &@MU)!%@Y]@@al<!! @vpv*!@z@5}C@F 6-P @86-A%%Z)6-&@v<j!AY)6-AYd26-F:Ae,&@nv&!@z265}C-@ n 6-$5x$# @59?@CX# AP# @e\b@f# AP# @5}C@ +# AP# A%@/D# AP6-@HW$+@[_%@cjk0pt@x@5}C 70@ @@#Q0@')/3@7=k0@AE@IM@QZ @^e],kms'/AY5}C9/AY@K/$(@,0]/68>I-@MQ@U`6-@do@s6- 5}C$,$@0&@@"-./$@015&@9=@AJ8))/@NU%+&@Y^,$@0bf@juB!@yA5}EC @L))-@%+&@!,$@0%)@-EVAe`++@IN@RTZ\bS:j A`t))/@5}C %+&@,$@0@ +~/$@0/3&@7;@?W ',A5@[i'/A@@m',A5@5}C'/A@@R2AdAU2F:Ad,AUA @Va @eiAmv Az5}C= F:Ad,"AUA%AdAU%"@AG6-MS% AW` @do!@s6-@5}C4 , F:Ad,AUA  @8C!@GO6-@S / A D:LITEPEN4{CD55,255,51D:ARENASTTPPPCMSCSLSSLICVVVNOVW^_fgnovw}0G-MARKMBLINEBOARDFNAMEJWININDEXALTPLAYSXXYYWINLOSEDRAWWFACTOMOVENUHUMACMPTPLAYEWIC9}C?CBLANMARKEKEYIMOVIIJJINDEMAXWEIGHWEIGHPLASUDFHNPVX^`fhnpvx@}9}C @   "# *+ 23:;BCJKRSZ[bcjkrsz9}C %&-.56=>EF MN!UV"]^#ef$mn%uv&}9}C' ()* !+(),01-89.@A/GQnOO;@U\,;A`d$@ho,;@s,;@r9}C,;@ ,;@#,x11;@$'.,9@29,;@r=D,9@H],86.>:@:X,%@2aj,867@n,.>:@:O,%@29}C,467@ ,.%67AW$1,.467@5C,.G$67@GK<@ OS,. \ d8-@hl@pC67,.G9}C< 6.""6.    (-BF@J"$68,-( 1,2,3,8,9,4,7,6,5RR6.H9}CP        (-VZ@^"$68,-( 96,184,19}C75,272,254"76-@#6-%@'/)6-@3=76-%@AJ,'6-PV6-\b'6-hs636-@w6-9}C@ '6-36-@4h A |9 +@8NAVA&90TV\^doG67@s,. %679}C@r,. =67@,.7@#7,G A 06-=C6-I(((WINS= LOSES= DRAWS=( PAT9}CTERNS=B:,'@4-@ "(/4(@3Pdo you want to goJ-VZ@^`fl1-@pt@xJ(9}C@ firstyn >-#'@+-3D4F:B2y,"@Hr> A!$F:Ad, AU$6-@v 9}C b#@@*K:0)@.6B-@:>@BIW*@MS%@2W^b@bx2"@:Y,6-@|9}C&6-@ 26-@-2"@:N,6-@19&6-@=E26-@I[ 6-@_hH-nr@v+-9}C @ 1-@(@7 D H 3%6-%@;?&@CJ$+"@NY,36-%@]f&-@jlr0* " 9}C(@ / your move* A:* " (@3q my move * APD AN''A@AAuA 9}C b,-@ ,(@ 7 a draw l<-@;DB:,@Ha(6-@:7,,<67<,.>:gy,vE6-&@}9}CD%#6-@:7,,76-%$+ AU,E67<,.>:, 6-%@H]#A9-@ae@is"92y9}C@ @M-@#$@ '/ ?257=?EGMC M A4440,1,0,1,53,1,53,1,47,2,53,19}CI,0,2,42,1,0,1,40,1A@A@A@A@,-@MOU\,(@`w i win <-@{B9}C:,@ $(6-@:7,,<67<,.>:*<,E6-&@@%#6-@:7,,76-%$+ AP,E67<,.>:,  69}C-%@ #A9-@$(@,6"92<B@FJ@NY M-@]c$@ go ?2uw}9}C C M A*@@81,1,81,1,81,1,81,2,162,3,162,1,144,1,121,1,81,3,81,1,76,140081,1,81,2,91,2,81,2,91,2,9}C108,1,102,1,136,5H,-@ &-,(@1H you win R<-@LUB:,@Yr(6-@:7,,<67<,.>:x,\E9}C 6-&@,%#6-@:7,,76-&$+!2U,E67<,.>:,f p6-%@Yn#A z9-@rv@z"9}C92 @@*M-@.4$@ 8@ ?2FHNPVX^C M AGG193,4,193,39}CA,193,1,193,3,162,3,173,1,173,3,193,1,193,3,204,1,193,5]-%GN](@RX7@\`<@do,|7@sw<@{,9}C |7@ <@#,-%@'.(@2A]-%@EL](@PV7@Z^<@bm,|7@ qu<@ y,9}C|7@ <@!,-%@%,(@0?]-%@CJ](@NT7@X\<@`k,|7@os<@w,|9}C7@ <@,b -A!%@).6@26<2<B@FJ@NV@ b2\^dflnt$9}C' 6-6-6-@2 '6-@ $L 1" A`+6-%@Pf!6-+6-%@j !6-69}C- A $ -*@#? Ap. -*@C`8AA0AdB) Ap)A`9}C A0AL006-8@!,$++&,'@0;,%+&,'@?i,V67<,.7<,` A 0j--os@cw@ 9}CF-6-@:7%,,t67%<%,.7<, ~$2+F:B2y,@JS,.-@W[@ _m2 G/+T:sv,"|,9}C)+R: ,@,C-@!%@ )8G -@<@@DYA/+F:B2y,"@]c,)+R:in,@r,;6-@9}C>'A$A/+F:B2y,"@!',)+T:-2,@6?,;6-@C^>'A$$+F:B2y,"@b,$ A 6-@:}C$@ * A*-@.2@ 6e$7<,4 *6-  A8$-@irB:,&@v@:}C*6-86-%@  3-@$(@d,0@ 4D%6-36-%@H#7<,47<,''# A ( 2@:}C 6-B:,%@.67,.7@!%<@)G,@( NEW PATTERN<;-@KO@ S_'6-%%@cp;67<,.>:v,F;:}C7<,4 ;67<,.>:@&&P:+%@*/,'@3I,,P Z?'67%@MS<%@W\,.>:bk,36-@ow?6-@ {d:}C )6-%@ 6-!)6-'6n,-%@:L,6-@:7,,$$H:Rn,x !6-6-&%@r ;:}C" )#( PATTERN RESET16-&@ -D; A@!!67%@ HN<%@ R,.>:,3 -"@:7,,-6-@:7&%:}C@+,,36-  A6-196-@=H-@LP@"TX@\mAA6-@:7@:7q,%@:7@:7%:}C@ ,%@:7@:7%@ ,d*+"A`,)+"A3, '* A A`-jn@r "8:}C ,6-@ <  "  $6"A`6-@@W@"A36-@[gJ)+"@kq,*+"w,)6-: } C@!T$- A -@%)@-/5EP:$$-@IRB:,&@VZ@^m6-P:'@qv,%@z: } C A 6. A"56.  @9R6. 67B:,%@Vf,.=:,** @j 7<%@: } C, -%@  %@$. @2M@:7,, $  @Q\ !@`m$$@qu+{&: } C =$-@ B:,&@@".=6-P:'@27,%@;F0 AJ\6.: A`s6. D @w6.: } C N667B:,%@/,.=:,6( 7<%@3F, X5-%@ JP%@T*(@:7,, . 1(5 b))(! PRESS:}CD ANY KEY TO CONTINUE GAME.l77+F:Ad,"AU,*+F:B2y,"@HM,AQZvK +@^tAVA&90z:}C (KAdAU9-@,.4;,(@?_ your move6 A 09$M +el-@pt@x:}C2K:M( Recall previous learning?#)@6G(>:,#@K@:Y,$(( What dev:filename:}C * A *@ @$&,9=-@=AAWEL$)@P0"AU3'= A x67,.>:,:}C @$ ,(,(! Sorry, unable to open that file.*$( Please try again.$ A >"("( Save current:}C@ learning.H( What dev:filenameR\* A!`*@DH@LNT`f @dm@q$p,(,(:}Cf! Sorry, unable to open that file.z(((WINS= LOSES= DRAWS=( PATTERNS=B:,'@j$ D1:TI:E}CV !(  !( 68,-68,- A#6-&@Zf#ARlŠ^}G"7 A(7(" ENTER RECORD NUMBER TO UPDATE OR,($( TYPE 0 AND RETURN TO QUIT(6 6-P:,(A@L^}C @ Q)! (>:A%,B( ENTER A NUMBER FROM 1 TO L AJ%@Uf8,8,%@jyT16.7@}^}C<@,16.7@<@$-,^16.7@%15<@'9D,16.7@(HL<@0P^,h'6.7@1bf<@4j,'(>:A%,r))^}Cc(!ENTER UPDATED INFORMATION OR JUST|,,($PRESS RETURN TO LEAVE ITEM UNCHANGED+ 6. 67@4gt,. +67@x,.^}C3(( LAST NAME: C 6-B:,(967@7;<@?F,.7@JN<@Rh,C A067@l<,.(( F^}C*IRST NAME: C 6-B:,(967@.2<@$6=,.7@AE<@$I_,C A`67@cg<@k%,.(( AR^}C(EA CODE: C 6-B:,(967@%,0<@'4;,.7@%?C<@'G],C A67@%ae<@$i%,.(( EXCH^}C%ANGE: C 6-B:,(967@()-<@018,.7@(<@<@0DZ,C A 67@(^b<@'f%,.((NUMBER:^}C C 6-B:,(967@1$(<@4,3,.7@17;<@4?U,C AP67@1Y]<@0ap%,.&@t8,8^}C ,0 @::@&:@*.@24:_D:TELEPHON.DATD AN0 +e((BASIC"(IS-^ } C@20b͠ΛvRR;@6=,;@AH,;@LS,;@W^,;@bi,;@4mt,;@4x,&^!}!C&9A ,9A,;@!),U +/5@9=@AG1@KO@9SaCAR@eUAA`^"}"CŠˠٛ'@"@d&o'B7tA-(-(" TELEPHON.DAT RANDOM ACCESS UPDATE+(+(s INSERT TEL^#}#CEPHON.DAT DISK THEN*('($ NPRESS WHEN READY*(FAU@Rc*F:B2y,@gu<AU@yF ^$}$CAD AP@%D@)-@139SD:TELEPHON.DAT06-Y(>:A%,& AP0 A^%}%CQD:UPDATERECSEBYRECSECBYTRNULASTFIRSTAREAEXCHPNUMWORKUSERINLE[\cdjlrt@z@\&C%J WELCOME TO THE ANTIC MONTHLY DISK n Most of the &'}'Gprograms on this disk arewritten in Atari BASIC. Some requirespecial hardware or specific instruc-tions. We recommend you &(}(Grefer to thecorresponding issue of ANTIC forcomprehensive documentation. If youwish to order a back issue, or needsubscri&)})Gption information, contact usat (415) 957-0886 or, for credit cardorders, dial (800) 227-1617, Ex. 133.In California,(800)&*}*C 722-3545, Ex. 133XXXThe menu that appeared on the screenwhen you booted the disk will onlyrun programs with a .BAS ex&+}+Gtender.If you try to run a program and the response is 'cannot run Filename',then check the file extender withthe followi&,},C4ng list:XXX.BAS BASIC saved program, use menu; sRUN or LOAD and RUN..LST BASIC listed program, ENTERz the&-}-C*n RUN..EXE Assembly language 'Load and1 NGo' file. Remove BASIC, bootU pDOS, type L then enter thew filena&.}.C)me..ASM Assembly language source code0 Mfrom Atari Assembler Editor.T Must be assembled..M65 Same as .ASM on&/}/CRly MAC/65..SYN Same as .ASM only Synassembler.AMC Same as .ASM only AMACXXXV.OBJ Machine language object file. &0}0C $Same as .EXE but not 'Load and+ GGo'. Refer to correspondingN article..ACT ACTION! source code..SYS Res&1}1CBerved for DOS system files..PLT Pilot language, requires PilotI xcartridge..LGO Logo language, requires Logo} &2}2C0 cartridge..TXT Text file. Usually accessed7 Nby another program.XXXRAll programs from ANTIC issues datedprior &=}3C3#$yANSCOCCINROTWISNNCONVV;<CDKLST[\cdklstz@ N4}4C   ZZ WHEEL\BY JUNGBO YANG^ANTIC MAGAZINEd;@^h,# +@l( COLOR [0-14]N5}5C#,G0@"30@&,%@04@8>G0@BH@LU( @Ym6-A%6-@q(,N6}6C%@p6-@X(R,VX,VY  6-%R-"FU#6-P:G:,$@pY`,- Ad!!6-P:G:,$O:G:$,,$N7}7C@p$,!!6-P:E:,$O:E:$,,$@p(?,L /%%!!EK)@pOSAW( MORE? [Y/N] x 4YN8}8C A +3D:WHEELNCONVV;<CDKLST[\cdklstz@ L%9G5 ? "}":? :? "ǺϠԠΠӠ":? "Ƞˠ"6 ? "Š٠ŠՠҠ":? "ŠR:}:CS̠Ů":? :? "TYPE 'CONT' TO CONTINUE":STOP 10 REM ǺϠԠΠa ͠ȠˠR;};Gě20 REM C.A.I DRIVER PROGRAM30 PORTA=54016:REM PORTA DATA OR DIRECTION REGISTER40 PACTL=54018:REM PORTA CONTROL REGISTER,R<}<GSELECTS WHETHER PORTA WILL BE A DATA OR DIRECTION (INPUT/OUTPUT) REG.45 POKE PACTL,56:REM SET PORTA AS A DIRECTION REGISTERRF}=Gto August 1984 were reproducedfrom ANTIC's Archive. We have up-dated them from our HELP columns and most are compatible wi&>}>Gth the XLmachines. We have worked to insurethat our programs operate as pub-lished, but we consider all our software lis&?}?Cytings to be works in progress which we encourage you, thereader, to personalize and enhance.Good luck, and ENJOY! } &@}@C J-ANTIC ED WELCOME TO THE ANTIC MONTHLY DISK n Most of the $"ACiwLINEA;xx ;A ,;@?P,; (}@T[;@_c@gio D:DOC.TXT*B}BC A (@)2lB:,!@-5-7@9=<@AT,4XXX0(3(E-@X\@"`X( ӠΠ\b(}*C}CCl @@ <( @@%da@)/ B39*-@=A@"ER("ΠҠՠҠˠҠVa%D:MENU*D}DCD:HELPLINEA;xx ;A ,;@?P,; (}@T[;@_c@gio D:DOC.TXT(EGCTACTO.-MARKMBLINEBOARDFNAMEJWININDEXALTPLAYSXXYYWINLOSEDRAWWFACTOMOVENUHUMACMPTPLAYEWIC8FG50 POKE PORTA,8:REM SELECT BIT 3 AS AN OUTPUT BIT.THE OTHER BITS WILL NOT BE USED AND WILL REMAIN AS INPUT BIT60 POKE PACTL,RG}GCI60:REM RESET PORTA AS A DATA REGISTER65 POKE PORTA,8:REM INTIALIZE "OFF"M SETTING70 REM NOW IF WE SET BIT 3 (POKE PORTA,8RH}HG)BIT LINE 3 WILL GO HIGH,IF WE POKE PORTA,0 BIT LINE 3 WILL GO LOW80 REM LINES 10-70 SELECT PORTA,BIT3 AS AN OUTPUT LINE90 RI}IGDIM C$(3)100 INPUT C$110 IF C$="ON" THEN POKE PORTA,0120 IF C$="OFF" THEN POKE PORTA,8130 GOTO 100140 REM LINES 100-130 RJ}JGLET YOU TURN ON OR OFF APPLIANCES BY EITHER TURNING ON OR OFF BIT 3FF" THEN POKE PORTA,8130 GOTO 100140 REM LINES 100-130 PDKCnto FR0 and store0300 JLDX #PRIN&255 ;low byte goes in X register0310O LDY #PRIN/256 ;high byte goes in Y register03FL}LC20 2JSR FSTOR ;use FR0 to memory routine03307 `LDA #1200&255 ;store decimal integer0340e lSTA FR0q ;1200 in FR0FM}MC0350 LDA #1200/2560360! bLDA #LINE3&255 ;prompt for TERM0570g uSTA ICBAL0580z LDAFS}SC #LINE3/2560590 #JSR WRITE0600( MJSR INPUT ;input TERM into FR00610R ZJSR FMUL^ x;FR0=TERM*LOG(IAPR+1)0620} FT}TC!JSR FMOVE ;transfer to FR10630& .JSR ZFR02 A;set FR0=00640F NJSR FSUBR m;FR0=-TERM*LOG(IAPR+1)0650r JSR EXP10 FU}UC ;FR0=(IAPR+1)^(-TERM)0660 AJSR FMOVE ;transfer to FR10670F NJSR ZFR0R a;set FR0=00680f lLDA #1r ;store 1 inFV}VC FR00690 STA FR00700 &JSR IFP+ E;convert to FP in FR00710J RJSR FSUBV r;FR0=1-(IAPR+1)^(-TERM)0720w LDX #DFW}WC$ENOM&255 ;store result in DENOM0730) LDA #LBUFF/256 ;and INBUFF+1 (high byte)1370C TSTA INBUFF+11380Y dLDA #01390i uSTA CIX1400z JSRFg}gC AFP &;convert number in LBUFF1410+ .RTS7 ;to FP number in FR01420 LINE1 .BYTE "ENTER THE INITIAL PRINCIPAL:",$Fh}hG9B1430 LINE2 .BYTE "ENTER THE APR:",$9B1440 LINE3 .BYTE "ENTER THE TERM:",$9B1450 LINE4 .BYTE "MONTHLY PAYMENT IS:",$9B14Fi}iC560 ;1470 ;set up automatic run from binary load1480: H*= $02E01490M .WORD START1500 ;place the FP location names inFj}jC7 a file1510 ;called FPROUTS.SRC before assembling1530< H.END 01490M .WORD START1500 ;place the FP location names inDBkCS A DATA REGISTERA,@ 2,INTIALIZE "OFF"6 SETTINGFiiNOW IF WE SET BIT 3 (POKE PORTA,8)BIT LINE 3 WILL GO HIGH,Rl}lCiIF WE POKE PORTA,0 BIT LINE 3 WILL GO LOWP55LINES 10-70 SELECT PORTA,BIT3 AS AN OUTPUT LINEZ;@m,dn 4Rm}mC ON%x 4OFF@)2 A6WWLINES 100-130 LET YOU TURN ON OR OFF APPLIANCES BY EITHER TURNINGRn}EnC% ON OR OFF BIT 3 D:CAIDRIVER+-3P JJǺϠԠΠ^ ͠ȠˠěP$oC ^AZZ$&-.56=>EFMNUV]^ef lPHONE DRIVERVp}pC 6-@ ;A5,(>:A%,X-@9=@AeX(>IF YOU WISH TO DIAL A TOLL FREEl NUMBER TYPE (TOLLVq}qC FREE).u-@@t_(EPLEASE PRINT THE NUMBER YOU WISH TO CALL IN THIS FORMAT (123-4567).e(q6-@ xuVr}rCxB@)- $A(4- I7@8<<@@P,4TOLLU6-@T\a6-@`n(>:A%,x AP?Vs}sC AR@'-@@!J?(PLEASE WAIT CALLING(B@@VN_<B@@cl=-rAP Vt}tCA6-A:7<,,B"!)6-@-8Fi-@<J#B@PV7-\`@dv; MB@@zaVu}uC- @$e i K"@(=ApP+6-%@AI"@MW+6-%@[lZC "6-@p(}'6-Vv}vC9ARC @!*_-04@8E d @eIX (}-@\`@d]S(K IF YOU ARE DIALIVw}wCSNG A TOLL FREE NUMBER DIAL IN THIS FORMAT(1-800-123-4567).Y(]-B@Y_)-eiAm- 6-@Vx}xC   @0I6-%@!)1"@-3)"@7=)"@AK?6-%@OUI @Yb @f D:PHONDRIVIVERTyyGTO MODE2FS HT CSMAKE "START ( ( ( .EXAMINE 561 ) * 256 ) + .EXAMINE 560 )REPEAT 3 [.DEPOSIT :START 112 MAKE "START ( :STARZz}zGT + 1 )].DEPOSIT :START 71 MAKE "START ( :START + 1 ).DEPOSIT :START 17 MAKE "START ( :START + 1 ).DEPOSIT :START 59 MAKE Z{}{G"START ( :START + 1 )REPEAT 11 [.DEPOSIT :START 7 MAKE "START ( :START + 1 )].DEPOSIT :START 65 MAKE "START ( :START + 1 )Z|}|G.DEPOSIT :START ( .EXAMINE 560 ) MAKE "START ( :START + 1 ).DEPOSIT :START ( .EXAMINE 561 )ENDRT 112 MAKE "START ( :STARXc}CQCD RECSEBYRECSECBYTRNULASTFIRSTAREAEXCHPNUMWORKUSERINLE[\cdjlrt@z@^~}~C  %' -/ 57 =? FGMdNOTE & POINT DISK UPDATEnBY JERRY WHIT^}CyEsANTIC MAGAZINExThis program demonstrates!!random access disk updatingusing NOTE and POINT. A}^}CQ""ĠήԠĠś""үŠΠӠ 6-%@U\ @`n"@r("(^}CV !(  !( 68,-68,- A#6-&@Zf#ARlŠ^}G"7 A(7(" ENTER RECORD NUMBER TO UPDATE OR,($( TYPE 0 AND RETURN TO QUIT(6 6-P:,(A@L^}C @ Q)! (>:A%,B( ENTER A NUMBER FROM 1 TO L AJ%@Uf8,8,%@jyT16.7@}^}C<@,16.7@<@$-,^16.7@%15<@'9D,16.7@(HL<@0P^,h'6.7@1bf<@4j,'(>:A%,r))^}Cc(!ENTER UPDATED INFORMATION OR JUST|,,($PRESS RETURN TO LEAVE ITEM UNCHANGED+ 6. 67@4gt,. +67@x,.^}C3(( LAST NAME: C 6-B:,(967@7;<@?F,.7@JN<@Rh,C A067@l<,.(( F^}C*IRST NAME: C 6-B:,(967@.2<@$6=,.7@AE<@$I_,C A`67@cg<@k%,.(( AR^}C(EA CODE: C 6-B:,(967@%,0<@'4;,.7@%?C<@'G],C A67@%ae<@$i%,.(( EXCH^}C%ANGE: C 6-B:,(967@()-<@018,.7@(<@<@0DZ,C A 67@(^b<@'f%,.((NUMBER:^}C C 6-B:,(967@1$(<@4,3,.7@17;<@4?U,C AP67@1Y]<@0ap%,.&@t8,8^}C ,0 @::@&:@*.@24:_D:TELEPHON.DATD AN0 +e((BASIC"(IS-^}C@20b͠ΛvRR;@6=,;@AH,;@LS,;@W^,;@bi,;@4mt,;@4x,&^}C&9A ,9A,;@!),U +/5@9=@AG1@KO@9SaCAR@eUAA`^}CŠˠٛ'@"@d&o'B7tA-(-(" TELEPHON.DAT RANDOM ACCESS UPDATE+(+(s INSERT TEL^}CEPHON.DAT DISK THEN*('($ NPRESS WHEN READY*(FAU@Rc*F:B2y,@gu<AU@yF ^}CAD AP@%D@)-@139SD:TELEPHON.DAT06-Y(>:A%,& AP0 A^}CQD:UPDATERECSEBYRECSECBYTRNULASTFIRSTAREAEXCHPNUMWORKUSERINLE[\cdjlrt@z@\C/?AdFA 6-A6""A @@J]! 6-%@ag! @ k('Afb}C'Ag@H<--169,0,133,17,141,255,2,141,240,2,133,77FL[Ҡ_P??169,0,141,82,0,141,198,2b}C],169,255,141,197,2,104,64,104,999Z ɩd104,64,104,999D:BRKKEY6-%@ag! @ k('Af`SC ERRORLNERRO%&,& B&ERROR HANDLING ROUTINEy%%6-AV$F:A,%F:A,"yH(f}CLYOU HAVE MADE AN ERROR!H($CAREFULLY ENTER YOUR RESPONSE AGAIN.,y-@PAP 6y B  D:ERRTRPf}CIO ERRORLNERRO%&,& B&ERROR HANDLING ROUTINEy%%6-AV$F:A,%F:A,"yH(dE