G@L|}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`G D  C D     )16CS S)  C)D1 p p }G0 C9DI pCDL~CiCDiD` DD˙` d J)L !}GD L(( LL()  L| L( S LH 0p n  }G CY?  q  L L  ` )}G `A! d߰")-݆ "  $G@LLL&0") $G% } GH0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 } G)8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) } G  hyhyB q L> Lm JJ  Ln*` dB%' } G8  H H` 1 { LL   !L     Hh SY?  q  1L } G  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}G) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}G1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q}G L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF }G G) *Gȩ GȽG GȌd q q G`  8   0G  `D}GCEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}G`piH n0)բY? 08`0 }G  0$L GGȽG L `8L`L}G8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}GE8FEh( 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( ySYS IIIIIIIIIIIIIIIC`0 ߩ0}}~}C HE %|+-3G||DDOS PVDOSDOS[ `SYS sx}~}C}nxL**~}C CDOS SYS~}CV 0`BDELV !B }G`LV   !L IL]   TU J ]L!T  #      TU  } G L ? .  t`GBJ V~DEHI B V0dV!}!GQDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}"GDEL8HI   0 HI,0 0  9 .G VLO#}#G,0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$}$G V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%}%G VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}&GSTILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}'GLLu DEHILV 9 .l 9 .l  `` s$B VBH(}(GI|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)})G1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}*C)1i1232435ޥ<<823Z\}}+G 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,},CUPLICATE DISKC. COPY FILE ^K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILEb M. RUN AT ADDRESSF. LOCK F-}-CILE )N. CREATE MEM.SAVG. UNLOCK FILE- RO. DUPLICATE FILEH. WRITE DOS FILESW9!&x#!7&p))'&X*./)L''-؆莟.}.GR'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}/Gil ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}0GJB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}1GN !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}2GI 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3}3CS BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWEDjy COPYING---DN:}4}4C # 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5}5G 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}6GPdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7}7G 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}>G//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 2.?}?GD2:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@}@G L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}AGP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}BG  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}CGFINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}DG, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}EG0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}FGINSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}GGL1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}HG% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I}IG JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ}JG,A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}KG}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}LGBE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}MGhAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}NGGIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}OG0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}PGA"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}QC?NAME TOO LONG B VL ` L1I H1EӝDL1DEI|mDiE` V0`8d/8 i:"2!22 1R}RG L ERROR- 128ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS}SG HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uT}TG HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uUC2"#zABCDRAMTOCBASCADSPACDT9;ACIKRSZ[bcjkrsz V}VC  _* ALL OCCASION CARD *`* BY WILLIAM HENSON *a* ANTIC MAGAZINE *b* FEBUARY, 1984 W}WC *c*d&&SMILE,0,60,90,126,90,102,60,0,26n$$TREE,0,0,24,60,126,24,24,0,200x&&CAKE,0,0,42,42,4X}XG2,127,127,127,57$$LOGO,28,28,28,28,42,73,0,0,250##CAR,0,0,56,68,127,127,34,0,70&&PICKUP,0,0,12,10,127,127,34,0,87Y}YG&&VAN,0,0,126,125,127,127,34,0,156))SHAMROCK,0,24,24,124,124,16,8,0,212&&PUMPKIN,4,8,60,90,126,66,60,0,38%%HEZ}ZC(ART,0,54,127,127,62,28,8,0,52;@ ,8,;@ <H,;@ LX,;@ \d, +ju-AyA[}[C@ s#"   " SELECT BACKGROUND #,6#@6-F:A,J6-&@wT\}\CA^ +@0h6-$AVr-6hA#|%F:BsD%, 6-%@dlp$@t"]}]C- @P"+%,  "A) 6. 67@ T_,.)67@c,.!!6. happy mothe^}^Cr's day !!6. !from+ _!!6. elizabeth and bill AV%@c##SETCOLOR 0,INT((14*R_}_CND(1))),2--0@P:+@!'$H:@+2,,,@6A-@EI@MT-Z^@bl,(@p7,,(@`}`C 7@<,&"-"@&-"(@1:0-@D@HR:,(@Vc7,,(@gm7@q<,D"-a}aC@ "(@ N-&*@ .8X,(@<I7,,(@MS7@Wa<,b"-gk@ov"(@zb}bC l-@@U* v  A.=D:CARDACIKRSZ[bcjkrsz =cG}~fSYMISYMISTRINPSASHARSYMBCOSTSHTCOSTPRICESHCURRVALYIELDDIVINCOMECHANGENREIREGSHGCOGVAGIN d}dCJOLGDEGYI!')/179?A@GIOQ@WY@ _a@ gi@ oq@ wy@ } e}eC@ @#$+,34;<CDKLST[\cdklstz  f}fC-** STOCK PORTFOLIO *** SPREAD SHEET1 ** BY ERIC VERHEIDEN ** ANTIC MAGAZINE ** FEBUARY, 19 g}gC 84 *#!*,(GG;@07,;@;B,;@FM,;@QX,;@\s,;AV,2119Aw,;A h}hC ,9A,9A',<GG9A+2,9A6=,9AAH,9ALS,9AW^,9Ab,F A0P/+ "PDAT i}iC3E OLD FILE OR REATE NEW FILE/Z! 4C6-9?! ACRd0U@Vln A6-6@px,,@ j}jC@ ) D:STOCK.DAT@-K4A6-%@OX"^A0 Ap A0 k}kC &6.7@<@1,&68,-A:,--67@5;$&@?F,.7@JN<@R`,&6.7@dh<@ l,&68,-A:,& l}lC 6.7@3 <@@/,&68,-A:,&6.7@X37<@c;,&68,-A:,68,-8,$8,68,-8,$8,68,-A m}mC/$8,'8,68,-8,$8,)68,-5>)8,"DZA##68,-A^$+8,&8,,'8,$"7 n}nC@  +- FILE NOT FOUND7 @/,-)  DD, HANGE, IST, RINT OR AVE-64PA P@4LA o}oC% pJ4SA T56-%@)1!A5o2 TOO MANY RECORDS5&^4AAh0CAsr ST p}pCOCK TO CHANGE|LB:,!$.*@:7@28,,"@2<DB67@HO,.7@Sl,L A2B:, @p(67B:,%@ q}qC,. 2 A6-"/56-%@3S!+ STOCK NOT FOUND5 AWd&&6.7@hn$&@rv<@z$, r}rG0A 8, SHARES 06.=:8,, A`0 COST PER SHARE $,6.=:8,, A`,  TOTAL C s}sGOST $96.=:8,, A`9 CURRENT PRICE PER SHARE $/6.=:8,, A`/ CURRENT VALUE $26.=:8, t}tG, A`2 CURRENT YIELD %46.=:8,, A`4 DIVIDEND PER SHARE $(6.=:8,, A`( INCOME u}uC;$/6.=:8,, A`/  NET CHANGE %- A?) ELETE OR ODIFY ENTRY-4MA@&0D v}vC$A00"A0://67@(.$&@29,.7@=C$%@GW,D-&@[mN+68,-8%@q,+68,-8 w}wC%@,X+68,-8%@/,+68,-8%@3F,b+68,-8%@JZ,+68,-8%@^q,lC68,-8%@u,+68, x}xC-8%@ ,?68,-8%@ 2,C v6-&@6< A@M6-%@QlM  NEW SYMBOLI67@pv$&@z,. y}yC7@$&@<@-$,MLB:,!3=*@:7@AG,,"@2KSB67@W^,.7@by,L A`B:,"} z}zCA 2B:, @)(67B:,%@-G,. 2 A67@KQ$&@U,.#  NEW SHARES68,-8,# {}{C B:,!I68,-A:,! NEW COST68,-8,!B:,!O68,-A:,* NEW CURRENT PRICE&68,- |}|C8,*B:,!W68,-A:,%  NEW DIVIDEND!68,-8,%B:,!]68,-A:,  A  A` }}}C6-%@96-  SYMBOL*LB:,!?I*@:7@MS,,"@2W_B67@cj,.7@n,L A42 ~}~C B:, @(67B:,%@9,. 2 A >67@=C$&@G,.H SHARES68,-R COST68 }G,-\#  CURRENT PRICE#68,-f DIVIDEND68,-p68,-8,$8,z68,-8,$8,68,-A }C+$8,'8,68,-8,$8,)68,-1:)8,"@VA @##68,-AZt$+8,&8,,'8, Ax. }C@ .@@$2P: A6@.@DK.@OS@WY_mE: Aq7@ }C 7@ @5 D:STOCK.DAT;; @9p) #SHR SYMBOL COST/SH TOTAL COST PRICE/SH 88 @t'CURR V }C*ALUE %CHG DIV/SH INCOME YIELD"04A8Q6-?:C:,X$,B6.=:8,,6-@\gL6-@k A@V6. }C=:8,,6-%8,`6-@)!E APj6.=:8,,t6-@6Ix A@~6.=:8,,6-%8,6-@H| }C& AP, 6-8,"6.=:%N:,'@*K,, A`C67,.%#67@QOS,.X `767@Wdt&B:,,.C6-@Tx }C6.=:8,,6-@`H A@6.=:8,,6-%8,6-@qLp AP6.=:8,,*6-@wt A@ }C *67@ ,.% @ 0 2 @4;2 @?uGRAND TOTAL SHARES : 6.=:, A0: @yG }C2RAND TOTAL COST $: 6.=:, A0: @6lGRAND TOTAL VALUE $ : 6.=:, A0: @pGRAND TOTA }CL INCOME $6-A@$+&,'; 6.=:, A`; @DiAVERAGE INCREASE %(6-Am$'2; 6.=:, }C A`; @%AVERAGE YIELD) :%<6-A>_$'F; 6.=:, A`; @cqINCOME/COSTw % }C P6-'@.Z8 6.=:, A08 @2VINCOME PER MONTH $d6-'@RZwn8 6.=:, A08 @{ }CCINCOME PER WEEK $x6-'A 8 6.=:, A08 @GhINCOME PER HOUR $@lr Av)  }CA`&6.7@<%@9,)$ AP6-%@=W$F A`*67%@[_,. j t=67%@x&,. }CC6-F$A:, ?16.0.005-@59@=l !B:,+67,..5 A@:7,,"@FpA }C"  A B:," 67%@&<,.00'B:,"%@@J'67%@Nc,.0-B:,!%@gq-6.7@u<%@ }G,$%%104,104,133,244,104,133,243,104%%104,133,242,104,104,133,216,133$$215,198,215,166,89,202,134,213## }G202,134,231,202,134,225,160,0"%%132,212,132,230,132,224,132,214,$$152,145,212,200,208,250,24,1026 214,160,0,152,72, }G36,214,16@""3,24,113,224,170,104,145,224J##138,200,208,240,162,0,138,168T""177,212,72,133,217,169,0,133^219,160 }G,7,10,38,219,6,217h 144,7,24,101,216,144,2,230r##219,136,16,239,24,101,243,133|%%218,165,219,101,244,133,219,164 }G##215,177,218,168,177,224,72,24##105,1,145,224,104,168,104,145$$230,232,228,242,144,192,36,214$$16,165,165,213,1 }C866,231,134,213133,231,198,215,16,152,96-@<AQ"67,.>:, $ D1:STOCK.OGVAGIN sEC+OFFPARBOD56=>EFMNUV]^efmnuv }}C    !()0189@AHIOf*** MONEY MATTERS j** BY WARWICK }CB@FS*(-(i(((W ŠȠƠΠn(s}C(((ORIGINAL INVESTMENT# K$x A}(((INTEREST RATE\ % A%(((COMPOU}C>NDING PERIODS PER YEAR # A5(((TOTAL YEARSQ s# AE6-'$?w6}C-$+@ A%,#+$,((Š = $""(P:$AEI%?`MR,$?V( ԠĠ  ( }C A0  A,- +#)'0@-1@59@=*(-(1''(ŠŠƠҠ6(;''(AMOUN}CT EACH DEPOSIT @$@ AE''(INTEREST RATEP %J A%O''(DEPOSITS PER YEAR }C =#T A5Y''(NUMBER OF YEARS TO SAVEC e#^ AEc6-'$?ixh''6-$++@|%}C ,#+$,&@?,'m(r(Š = w""(P:$ACG%?`KP,$?T|( ԠĠ  ( }CA0 A- +!''0@+/@37@;*(-(++(#ԠѧĠҠ٠Ҡ((((AMO}CLUNT OF PLANNED WITHDRAWALS $ A (((EXPECTED INTEREST RATET % A%(((PLANNED WITHDR}CiAWALS PER YEAR # A5!(((NUMBER OF YEARS TO MATURITY #& AE+6-$?m0556-$'$+}C@ &@'++@[%',#+$,,,5(:%%(͠Ԡѧ = ?""(P:A_e$%?`in,$?rD//(}C3 $ Ӡ  I(N A07KS A- +QW'0@[_@cg@ky*(-(%%(} }C6 ŠǠΠ((((REGULAR PAYMENTE x$ A(((ORIGINAL AMOUNT BORROWED} }Ci $ A%(((NUMBER OF PAYMENTS PER YEAR # A5(((ANNUAL INTEREST RATEs % A}COE(((TOTAL NUMBER OF PAYMENTS MADE # AU6-'ASl 6-'CC6-$+@p%,#&$++@}C%,#&+@%,,'&+@!Q$, ((Š = ""(P:$AUY%?`]b,$?f(  }C (% A0,* A- +28'0@<@@DH@LZ*(-((` ȠƠ((}C!!(INITIAL AMOUNT E$ A !!(INTEREST RATEO m% A 0-@q-$+}C@ %'AT,#(( = #(( = $-%@X(##(FOR ADDITIONAL YEARS, H}CBIT 1""(TO CONTINUE PROGRAM, HIT 2 A "@FYA E"@]c A0g A L- +}C '0@@@q*(-(Q(V++(# $ ΠԠŠƠ[(`&&(ORIGINAL VALUE} }C+ $e A j&&(INFLATION RATE9 Y%o A0t&&(YEARSp #y A@}C~(::6-P:A$$$+@(.&'A29,#%?`=B,$?F( = ( ԠĠ  }Ci ( (##(FOR ADDITIONAL YEARS, HIT 1""(TO CONTINUE PROGRAM, HIT 2 Au"@mA"}C@  A0 A  ( (,,(#ENTER NUMBER OF ADDITIONAL YEARS -  A66(-ENTER INFLATION R}C;ATE FOR ADDITIONAL YEARS - % A ::6-P:A?F$$+@JP&'AT[,#%?`_d,$?h -% ( (}CY##(Π $ = ( ԠĠ  ( Au- +_e'0@im@qu@y*(}C)-(hb(Z THIS PART OF THE PROGRAM WILL2 GIVE FURTHER DETAILS ON THE VARIOUS CALCULATIONSe(h((CHOOSE:-}G-(% 1. WHAT WILL MY INVESTMENT BE WORTH?$$( 2. VALUE OF REGULAR SAVINGS%%( 3. ANNUITY OR PENSION INCOME))(! 4.}G HOW MUCH DO I OWE ON MY LOAN?--(% 5. GROWTH OF INTEREST BEARING INVEST--(% 6. DEVALUATION OF THE $ BY INFLATION}C4( 7. BACK TO MAIN MENU A ??A!8dA!@A!pA"A"5A"`@0ho41 +u@}C10@ @@'9/(,(!+ ŠȠƠΠ/(>qq(h This function will compute the worth of a}Gn investment at a specified futuretime. The original investmenCMM(Et can be asavings account, a term deposit, bondsor a r}Getirement fund.Hh(h(\ It may also be used to estimate the future value of an antique or a piece of real estate. M__(}CbW Just enter what you estimate the appreciation rate is in place of the Ԡ.R A1foW As\7 +}C @ 10@@#@'4(7(a-(-(" ŠŠƠҠfgg(^This function will compute }Gthe future value of regular equal amounts deposited in an interest kdd(\bearing investment such as a savings account, in}C4surance policy or retirement savings plan.p A18Au AELz7 +RX@\b10@fj@nr@v4(7(}G/(/($ ͠٠Ԡoo(fThis function will compute the amount required to provide regular incom}Ce over a specified period ofkk(b time such as pension payments. It can also be used to determine the amount requir}CVed to provide??(7 living expenses while attending college or university. A1Zc Agn7 +t@}C10@ @@,4(7(*(*(0 ŠǠΠmm(dThis function will compute the balanceowin}Ceg on a loan after a specified number of payments such as a!!( bank loan or a mortgage. A1ir Av7 +}C @10@@"&@*;4(7(#(#(? ȠŠƠpp(hThis function will show how money }C Ogrows year by year when placed in an interest bearing investment. A1S\ A `g7 +ms@w10@}C@ @4(7(/(/($ $ ΠԠŠƠoo(fThis function will compute the effect on inf}Glation on the doller. It can also be used to calculate oo(gdepreciationon a piece of equipment. Just enter the depr}C6eciation rate in place of the ΠŮ A1:C AG ( ((CHOOSE: ''(1. CONTINUE WITH THIS FUN}CTCTION? ((( 2. FURTHER DATA ON CALCULATIONS? (3. BACK TO MAIN MENU?  A0Xg "@ky$ "@}}CA  "@@0 ((CHOOSE:! (1. TO USE THIS FUNCTION& ''(2. FURTHER DATA ON CALCULATIONS+ (}C23. BACK TO MAIN MENU0  A0@5 "@6D$: "@HLA P[? "@_c@0g D:MONEYMATzG32000 REM Type Your Program Once -- "TYPO"32100 CLR :DIM Q$(20):QF=7:CLOSE #QF:? "File for output ";32110 INPUT Q$:OPEN #QF}G,8,0,Q$:QREM=032130 QCNT=1:FOR QADDR=PEEK(130)+256*PEEK(131) TO PEEK(132)+256*PEEK(133)-132140 QSUM=QSUM+PEEK(QADDR)*QCNT:Q}GCNT=QCNT+1:NEXT QADDR32150 ? #QF;"Variable checksum = ";QSUM:? #QF32160 QADDR=PEEK(136)+256*PEEK(137):? #QF;" Line num ra}Cnge Code Length"32170 QLINE=PEEK(QADDR)+256*PEEK(QADDR+1)32180 IF QLINE>=32000 THEN END 32190 QLEN=0:QSUM=QLEN:QCNT=QL}GEN:? #QF;" ";QLINE,"- ";32200 IF NOT (QCNT<12 AND QLEN<500 AND QLINE<32000) THEN 3227032220 QLEN=QLEN+PEEK(QADDR+2):QCNT}G=QCNT+132230 IF PEEK(QADDR+4)=0 AND QREM THEN QADDR=QADDR+PEEK(QADDR+2):GOTO 3226032240 FOR QADDR=QADDR TO QADDR+PEEK(QADDR}G+2)-132250 QSUM=QSUM+PEEK(QADDR):NEXT QADDR32260 Q$=STR$(QLINE):QLINE=PEEK(QADDR)+256*PEEK(QADDR+1):GOTO 3220032270 QSUM=Q}C\SUM-676*INT(QSUM/676):QCNT=INT(QSUM/26)32280 ? #QF;Q$,CHR$(65+QCNT);CHR$(65+QSUM-26*QCNT);"` ";QLEN32290 GOTO 32180N #QFxC=-.tMAFBSHIFCTRMODLINLWPLHE@DF@LNUV]^dfmnuv}}C   ! () 0189@AHIPQXY`ahiot_y* FAS}C T FINGERS *4`* BY CRAIG CHAMBERLAIN *a*8 FANTIC MAGAZINEJ R*b*V cFEBUARY, 1984h o*c}*}C *tdT(>:A%,1(FAST FINGERS BOOT FILE MAKERQ(by Craig Chamberlain 8/1/83T(np&9A,9@px,;}C@ ,:-4A>"G68,-K _-@8<@p@\c"l68,-p xW;I:bt,&AP,'6-@x36-}C@d?6-A(K6-%W6-+`9&(PLEASE ENTER INPUT DEVICE SPEC*94AdK(>:A%,(READ}CY$ A A@@ &<K A`,)@@U(>:,6E"@'Yf!67,.>:@(ju,/6-%@y;6}C-@(E AP;4!@'!'* @2+7*6-8%@(;k,4 AP@4!A$* A(*6-8&@`o,4 APE}C"4!AT* A`*6-8&@&d,4 APJ*!AR 6-8&A,* APT56-j!A')6-&}CA(56-@$Y7 6-@(7&)67,.>:@9;F,76-%@JS^%"Y6-A`% APc$ @'}C!6-%8,$ APh%"@2%-6-@31F% APm, @@JX"6-%8&@\r,, APr*"@@v 6-%}C8@6 ,* APw*"@A#/ 6-%8@'3I,* AP|* @HMY 6-8&@]s,* AP* @Xw 6-}C8&@! ,* AP* @e$0 6-8&@4J,* AP, @N\"6-%8&@d`v,, AP* @z 6}C -8&@A T,* AP%"A#6-A0% AP%"A$6-@yXk% AP;"qy6-@}}C -67,.>:@`,;6-%@ /6-8&@3M,'67,.>:,6-%@QW' A[w F:A,A6A{}CG67,.>:AU, @*2A0>DA@dBlG(M(TOTAL:  KEYSTROKES+!ApM(WARNING:}CF TOO BIG FOR PAGE SIXL((CASSETTE OR DISK )6-@:,L @gJP)!@hT])4AalA6-@pw$+"@g{,}C0'6-B3+76-AA A s6-@4;:@?C@GIOf D:AUTORUN.SYSG@jsR@ws7}C@ <@Q,0 A +(APPEND4!(NO+ A `(6-@U\%+7@`d<@hv,4Y,`7@z<@}C,0Y*7@<@,0NA,(LOAD ADDRESS () ( A0,96-A6+(PATCH ADDRESS (}C) 5 A@9Z6-@ N'( SPEED 1-9 () 1 AP5Z @RX)!@ \v)P:,A@&N6-@z}C-@ +6-$@%/ N68@`)0,-'@48&@<T0(6-%6-%@WX& A,6-6 AD6-%A}CN A\6-%@V/f At6-%@)3G~ A6-%@2Kb: A6-%@Vf% A36-%@}C= AK6-%@+U Ao68@I/E,-P:'AV,68@QI,-&AV$P:'AV,XM 6-&&6-&AV$P:}C!'AV,76-P:'AV,A A%;MA0bh(@?CI` D:AUTORUN.SYS;*@dsAUN*@wAU}C [*@ h*@6lW6-%A%5*@:X&AV$P:'AV,M*@\P:'AV,W APvr#@}C@ A(C:6*@$&,3X*@7UP:+%AP,'A(,e*@Ybr*@fr7*@v%@U}C&AV$P:+%@U),'AV,Y*@-6P:+%@U:L,'AV,m-@PT@Xcq"~*@gv E-|}CA'*@"8,+ 9(@&?EAi*@CRA&)*@VZ@^e<*@ixA'O*@|}C@\*@i*@+@/5 B9^)(ERROR F:A,# Bb&)D"%68,-&AV}C$P:'AV,A68%@,-P:'AV,D$ nn165,16,41,63,133,16,141,14,210,162,55,189,57,6,157,57,6,202,16,247,142,2}G52,2,232,142,255,2,189,113,6,157!mm113,6,232,208,6,238,29,6,238,32,6,201,255,208,237,169,7,162,6,160,57,32,92,228,24,96,16}G5,20,41,1,208,46"kk174,252,2,232,208,40,174,113,6,238,70,6,208,3,238,71,6,142,252,2,232,208,23,169,64,141,190,2,165,16,9#}GGG192,133,16,141,14,210,169,7,162,228,160,98,32,92,228,76,98,228,96*jj63,21,18,58,42,56,61,57,13,1,5,0,37,35,8,10,47,40,}G62,45,11,16,46,22,43,23,50,31,30,26,24,29,27,51,53+kk48,7,6,32,14,34,38,66,2,54,15,55,102,117,96,70,98,71,78,162,142,143,1}G34,135,12,116,119,172,108,118,52,44,158,180,1834 12,15,28,31,37,40,70,73,78>169,60,141,2,211 D:FASTFING}GRECLERLMCLEATOTAMENMSTRPOLARRAYWORKDINDEVRECLASTINLECHOICEBLANKPAPELINEARRAFIRSTAREAE}CXCHPNUMTABLECHOICVOLUM%&-.56=>EFMNUV]^ef mn tv |}C  !')0179?AHIOQXY_agioqwy}}C N* TELEPHONE DIRECTORY ** BY JERRY WHITER k** ANTIC MAGAZINEo ** FEB}C UARY, 1984 *d-6-@4'6-@+#6-&- B0Ԡś-  ((SORTING6-) }C@- F6-P:'@,% -&'(.2-6:6-$F6-+%,$$7&<,/7&<,'$ A$$6.}G7&<,$67&<,.7&<,.67&<,. 8 !A@B   Ġś#  (}C*( READ DATA:# B`@.6-! 6-%!(RECORD # + 6-$&67<%,.(!(+  } GA P  Šś  5  ((+(I HAVE NO DATA TO WRITE5 BP (( WRITE DATA: B` } C @  -(RECORD #  6-$&6.7<%, ((   BP } GҠś  (( ALTER DATA:1( ('(I HAVE NO DATA TO ALTER1 BP*(&(ENTER LAST N } GAME FOR SEARCH* 6-B:,(A@P(( SEARCHING -6-$&(.47<%&,AA(  } G ( (( NOT FOUND( BP( ((7<%,6(2(&IS THIS THE RECORD TO BE ALTERED (Y/N)6"4NAA}G," 4Y67<%,." A`P6 AAԠś5  ((+(I HAVE NO DATA TO PR}GINT5 BP(( PRINT DATA:6-)()(TYPE S FOR SCREEN DISPLAY ONLY-)( TYPE P TO USE SCREEN AND PRINTER-}C4SAQ, 4P6- AQ0O APPU  (#67@%SW<@%[h,. <67@)lp<@)t,.-U6}C7@3 <@3G,.- - 6-$&6.7<%, 67<@$KT,.7<@$Xd,++67@&hl<@(pw,.7@%{<}C@',++67@0<@2%,.7@()-<@01=,(++67@4AE<@7IP,.7@1TX<@4\,2( 3< P BP}GpzҠנś 6-%6-$&B !6-&(8(NO ADDITIONAL RECORDS AVAILABLE}GB BP((ENTER NEW DATA:(( LAST NAME: 6-B:,(A`P67<%&,.(( FIRST NAME}C,: 6-B:,(A`` 67%@08<%%@<,.(( AREA CODE: 6-B:,(A`p 67%}C@$<%%@#T,.(( EXCHANGE: 6-B:,(A` 67%@'X`<%%@&d,.((NUMBER:}C' 6-B:,(A` 67%@0+3<%%@)7,.   XbԠϠÛlv  ((BASIC(}C9IS''͠Λ$'.'AA;@=D,;@HO,;@SZ,;@^e,;@i,;,8'**;,;}C,;@ ,;,;@81,B'"6-P:I:,',&@5^";$,L'2 6. 67$,. '67@b,.26.7<,V'36-B@}C66-B 0'-A36-Bp* +!@:B!@FJ@9N +1(-(!TYPE C FOR CASSETTE OR D FOR DISK1}G+ 4C6.C: B  +* 4D 6.D:TELEPHON.DAT* B *+ B ..ՠś..5 }C0@ @50@!@%)@-8/@<x/1AR(1(ANTIC TELEPHONE DIRECTORY/@ |}CI&/ ( (RECORDS IN MEMORY=0/(RECORDS AVAILABLE=&:/@MkD/((M E N UN/@oX/(((1}G) ENTER NEW DATAb/(((2) READ IN DATAl/(( (3) SAVE DATAv/(((4) ALTER DATA/(( (5) SORT DATA/}CE(((6) PRINT DATA/(((7) EXIT TO BASIC/> B!-@IM@"Q,(>:AV,26->AR/FAd } CAU'-@@"Q+ B(ENTER YOUR CHOICEF/$ 6-A:,$ )!@UfB!/I BjIA`0A 0!}!CYA00A@0A0AP0Ap022îӛ267+0@]g)0@kq@u70"}"C@O6$:/((PRESS START FOR MENU+B2y/ : F:B2y,@SBP: >?(/($PRESS START WHEN#}#C8 I/O DEVICE IS READY;B2y? > F:B2y,@<YB`>   $hB(-@]l6$2@p( rB$$}$G N'F:A,"A6' BP*NP(F(ERROR F:A, AT LINE F:A,%AV$F:A,P BP%}%G D:TELEPHONRECLERLMCLEATOTAMENMSTRPOLARRAYWORKDINDEVRECLASTINLECHOICEBLANKPAPELINEARRAFIRSTAREAE &G996 REM ANTIC MAGAZINE FEBRUARY 1983997 REM CHARACTER SET EXAMPLE #1998 REM BY CHRIS CHABRIS999 REM REQUIRES 16K1000 REM !'}'G*** CHARACTER SET EXAMPLE #11010 GRAPHICS 2:POKE 752,1:POKE 82,1:POKE 83,38:PRINT CHR$(125):REM - SET UP GRAPHICS MODE1020 !(}(GDIM LINE$(20),QU$(38),ANS1$(38),ANS2$(38),AN$(1),EX$(38),TAN$(10)1030 POSITION 6,2:PRINT #6;"ELECTRIC":POSITION 6,4:? #6;"ci!)})Crcuits"1040 PRINT " >Character Set Sample Program":PRINT "I by Chris Chabris"1050 GOSUB 1570:REM - REDEFINE CHA!*}*GRACTERS SUBROUTINE1060 POKE 756,CH/256:REM - ACTIVATE NEW CHARACTER SET1070 REM - NOW PRINT OUT THE CIRCUIT ON THE SCREEN F!+}+GROM DATA STATEMENTS1080 RESTORE 19201090 FOR LOOP=0 TO 91100 READ P,LINE$1110 POSITION P,LOOP:PRINT #6;LINE$;1120 NEXT L!,},CFOOP1130 REM - PRINT INITIAL MESSAGE1140 PRINT CHR$(125)1150 PRINT "R gPress ":PRINT "k when you are ready!-}-G to begin."1160 POKE 53279,01170 IF PEEK(53279)<>6 THEN 11701180 REM - NOW WE'RE READY TO BEGIN THE QUESTIONS1190 RESTORE!.}E.G 20201200 FOR LOOP=1 TO 51210 PRINT CHR$(125);1220 READ QU$,ANS1$,ANS2$,AN$,EX$,TAN$1230 PRINT QU$:PRINT ANS1$:PRINT ANS2!/}/G$1240 FOR LOOP2=1 TO 50:SOUND 0,100,10,8:NEXT LOOP2:SOUND 0,0,0,01250 OPEN #1,4,0,"K:"1260 POKE 702,64:REM - KEYBOARD TO A!0}0GLL CAPITALS1270 GET #1,AN1280 CLOSE #11290 IF AN=ASC(AN$) THEN 1400:REM - CORRECT ANSWER1300 FOR LOOP2=1 TO 100:SOUND 0,2!1}1G50,10,8:NEXT LOOP2:SOUND 0,0,0,01310 PRINT CHR$(125);1320 PRINT QU$1330 PRINT "The correct answer is ";TAN$;".":PRINT EX$!2}2G1340 PRINT "Press to go on.";1350 OPEN #1,4,0,"K:"1360 GET #1,AN1370 IF AN<>155 THEN 13601380 CLOSE #11390 GOTO 1!3}3G500:REM - NEXT QUESTION1400 REM - CORRECT ANSWER1410 FOR LOOP2=1 TO 75:SOUND 0,150,10,8:NEXT LOOP2:SOUND 0,0,0,01420 PRINT!4}4C CHR$(125)1430 PRINT "" @You are correct."1440 PRINT "H Press to go on."1450 OPEN #1,4,0,"K:"1460 GE!5}5GT #1,AN1470 IF AN<>155 THEN 14601480 CLOSE #11490 RIGHT=RIGHT+11500 REM - NEXT QUESTION1510 NEXT LOOP1520 PRINT CHR$(12!6}6CA5)1530 PRINT " You have completed this short quiz"1540 PRINT "F with a score of ";(RIGHT/5)*100;" per cent."1550 GOTO !7}7G1550:REM - USER MUST PRESS BREAK OR SYSTEM RESET TO EXIT1560 END 1570 REM ** REDEFINE CHARACTER SET1580 REM - FIRST, RESER!8}8GVE MEMORY1590 CH=PEEK(106)-8:CH=CH*256:REM - STARTING ADDRESS OF NEW CHARACTER SET AREA1600 REM - NOW RELOCATE THE OLD SET!9}9G1610 FOR LOOP=0 TO 10231620 BYTE=PEEK(57344+LOOP)1630 POKE CH+LOOP,BYTE1640 NEXT LOOP1650 REM - NOW WE'RE READY TO POKE I!:}:GN THE NEW CHARACTER DEFINITIONS1660 RESTORE 17301670 READ NUM:IF NUM=-1 THEN RETURN :REM - IF DONE, GO BACK1680 NUM=NUM*8:!;};GREM - OFFSET INTO NEW CHARACTER SET MEMORY1690 FOR LOOP=0 TO 7:READ BYTE:POKE CH+NUM+LOOP,BYTE1700 NEXT LOOP1710 GOTO 1670!<}<G:REM - READY FOR ANOTHER CHARACTER1720 REM - CHARACTER REDEFINITIONS1730 DATA 1,24,24,24,255,255,0,0,01740 DATA 2,24,24,24!=}=G,31,31,0,0,01750 DATA 3,24,24,24,248,248,24,24,241760 DATA 4,24,12,6,3,3,6,12,241770 DATA 5,64,192,64,64,224,0,0,01780 DA!>}>GTA 6,0,24,60,36,36,165,231,01790 DATA 7,24,24,24,248,248,0,0,01800 DATA 10,255,0,60,0,255,0,60,01810 DATA 26,0,0,0,255,255!?}?G,24,24,241820 DATA 27,24,24,24,31,31,24,24,241830 DATA 28,224,32,96,32,224,0,0,01840 DATA 32,224,32,224,128,224,0,0,01850!@}@G DATA 59,126,129,189,165,189,165,129,1261860 DATA 60,0,0,0,255,255,0,0,01870 DATA 61,24,24,24,24,24,24,24,241880 DATA 62,0!A}AG,0,0,248,248,24,24,241890 DATA 63,0,0,0,31,31,24,24,241900 DATA -11910 REM - DATA FOR SCREEN1920 DATA 2,1930 DATA 1,!B}BC_\\[\\:\\\:\\\^1940 DATA 1,]" 9] ] ]1950 DATA 1,*> r$ $ $1960 DATA 1,* $ $ $қ1970 DATA 1,*w $ $ !C}CC $ 1980 DATA 1,] /] ] ]1990 DATA 1,"4\i!\\\!\\\'2000 DATA 1,ҠĠҠ2010 DATA 2,s 2020 REM!D}DCY - QUESTIONS FOLLOW2030 DATA 1. What does the symbol & represent?2040 DATA (a) coulombs` (b) webers2050 DATA (c) ohms!E}EC (d) newtons2060 DATA C,Ohms measure resistance.,2070 DATA 2. The resistors are connected in ...2080 DATA (a!F}FC) series 4(b) parallel2090 DATA (c) sequence; (d) inversion2100 DATA B,They are each in separate branches.,!G}GCI2110 DATA 3. What is the equivalent resistance?2120 DATA (a) 0.13 &R n(b) 8.0 &2130 DATA (c) 58 &y (d) !H}HCw72 &2140 DATA B,Eq. Resistance=Voltage/Current (24/3),2150 DATA 4. The power supplied is ...2160 DATA (a) 220 w} !I}IC $(b) 190 watts2170 DATA (c) 24 w/ (d) 72 w2180 DATA D,Power in a ciruit=Voltage X Current.,2190 DATA 5. Th!J}JC3e current in resistor 1 is ...2200 DATA (a) 0.83 a< Y(b) 1.5 a2210 DATA (c) 3.0 ac (d) 1.2 a2220 DATA D,Curr!K}KGent=Voltage/Resistance (24/20),997 REM CHARACTER SET EXAMPLE #1998 REM BY CHRIS CHABRIS999 REM REQUIRES 16K1000 REM %LC{slcharasm1{btLISTING TWO&-; Character set movement subroutine; Stored in MOVE$; Call from Atari BASIC with:%M}MC&; JUNK=USR(ADR(MOVE$),CH,57344)ROM+ .EQU3 o$00D4 ; Address of ROM character set - should be $E000RAMt wEQU| $%N}NC?00D6 ; New location of character set from variable "CH"INITC FPLAS ; Discard number of parameters from BASIC%O}OC PLA STA "RAM+1* .PLA6 9STA> ARAMF x; Store the address of the RAM set from the stack} %P}PC PLA STA ROM+1% )PLA1 4STA9 EFMNUV]^ef mn!uv"}1y}yC# $%& !'()(/** THE GANTLET **** BY STEVE GROLL ** ANTIC MAGAZINE **1z}zC FEBUARY, 1984 *)*2 +@6<-@@D@HO8(@Sg ŠJ-@ko@sZ(@1{}{C BYl-@@(@#< 2-@@DAHT (;@X_,2 Bcl2]@ prx'@1|}|C 9@%E6-+1Q6-7=]6-CLdO +@PV@Zj! B+@nt=,@9x@ 1}}}C O,@9 @ m-@$(A,586-+@79?$H:@CI,,%@MVY6-+@Z`$H:@dj,,%@ntc@xi,1~}~Cm c%6-P:@ $H:@ &,,%@*4G6-P:@8>$H:@BH,,%@LRQ@VdW,c6-@hq- Bu1}C# B- A!,_ +@%+@/3109=@AE@I[; BG6-@_gS6-@ kq_6-w6o 1}C@ ,@@1/@8#'@+1C,@59@=CU/@8GK@OUo0@Y]@ae@ir@W,@v@1}C'/@ @9,@'!@%+K/@'/3@7=W6-CLJK @P\, B`h)"@lt56-@3xA6-1}C@ K AO/"@ $*"*2%6-@6K/ AT;"@OU*"@Ya%6-@ em16-@q; Ah1}C w"@ *"@!'6-%@%-36-@1A= BI6-GO_"@SY)"@']gm6-%@kw A0m/+1}C"@@)"@9,*"@!*"'/;6-@83;G6-@?EQ@IOc,@SW@[au/@ei@ms/@w@1}C/@9 @6-@ +o"@/5!/@99=@AG3/@!KO@SW=]cO/@ gk@oua/@y@1}C m6-w@(},6-@,7|;"@(;A*"@EM%6-@QY16-@ ]r; A;"@(v*"@1}C %6-@16-@0; A;"@84:*"@>F%6-@4JR16-@Vk; A;"@8ou*"@y%61}C-@316-@ '; A!!"-3*"@7;A?J"@NA A0 B A01}C B A +@!''0@+/@ 37@;AA0@EGMOU]M6-@agW@kqi,@8uy@}1}C{,@8 @,@6 @$*,@6.2@6<6-BK5 @Oa B#6-@ek5,@os@ w 1}C@, B"Q"@&,*"@ 06+,@9:>@BH=/@9LP@TqG BQ A/w6-1}C@#% B/ Aa +@'-@1710@;?@CEKQK0@UW]_ewU Ba6-@{1}CE @ , B!E!'-* @ 17*"@9;?ACX/ B6-@\d%6-@ h/ A _ +@1}C@ #6-@/6-$*;6-08G6-@9<BS6-HN_6-T]C-cg@k,#/16-1}C%@?6-%@#C  @'+,15@ 9?1/@9CG@ KOC,UY@]cU/@9gk@oug,@y1}C y/@@,@ $@(./@ 24:C,@GK@OU'/@"Y]@ag9,@ko@syK/@"}1}C@],@@ o/@"$(@,2,@6:@>D/@"HL@PY+ @]e6-@iq%6-@ u+,1}C Q#"@ *"@*"@!'-@+1?,@59@=CQ,@ GK@OZ="@^d@hl+,rv@ z=,1}C @="@$@(.+,@926@ :@=,@9DH@LW="@[a@ek+,@oqw=,@ 1}C = B!"@%+#@/R),3 B= A@$"X\A `k."@9osA0w81}C" A1B"@ $A3(1o +@5;@?C10IM@QSY_K0@cg@ko@sye0@}1}C !o B,'+@/5'/@89=@AE1KQC,@9UY@ ]cU,@9gk@ou_@yq,1}C@ @}6-@8 @$0,6-6?1 @CI,@ MQ@U[1,@)_c@gpC Bt/"@1}C )+"@* @),9 BC A-8"@9<@ADN_%+"TZ)"@^e,*"@is36-%@w=@1}CC,O6-@2U,_ A 3%+"@6<)"@@G,*"@KU36-%@Yd"@hA  G"@1}C*"@ +,@@$=,@ (,@0CG A  @GU,6-@Y* B A 0 ="@1}C*"@ +,@@$=/@ (,@09 O +@=C@GU! B+[_=,ei@ mqO,w@1}C  @,@!'1/@9+/@39;@=CU0@GK@OS@W]g,@ ae@ioy,@)sw@{1}C,@ @ '6-@%6-+1'6-7@ @DP, BTZ="`f*"@jp*"@tI6-@1}C S@ _,@ q,#'@+3}6-@7L A0 i#"@PV*"@Z`*"@dl/6-@ptA,z@1}C  S,@_6-#8i A0 /"@<B*"@FN%6-@Re/ A0 %"ks6-@w% A01}C  !!"*"!A%0 C"@4:@>L,+6-@PZ96-%@^sC A0 C"@w@1}C,+6-@ 96-%@$9C A0 %"@=C*"@GM%6-S^ /6-@bj6-@n% B/ A1}C%00  B A00 +@)/@3910@=?EGMSK0@W[@_c@gwU B_@{q1}C,@ @/@@"+& o,@/3@7='/@#AE@IO9/@#SW@[aK,@ ei@ms]/@3w@1}Co,@0 @0 /@0!%@)/',@137@;A9/@6EI@MSK,@6W[@_e]/@6im@ qwo,@4{1}C@ /@4@,@&"&@*0/@&48@<E: ],@"IM@QW'/@"[_@ci9/@mq@uK,@%1}C@ ]/@%@%D ,@)-@17'/@;?@CI9,@MQ@U[K/@ _c@gm],@qu@yo/1}C@ @ ,@@ &/@*.@28/@<@@DMN ,@QU@Y_'/@cg@kq9/@uy@}1}CK,@ @]/@ @$*o,@.2@6</@@D@HQX ,@UY@]c',@gk@ou9,@y@1}C K/@@]/@ $@(.o,@26@ :@/@DH@LR,@VZ@^d/@hl@pwb }1}C,@ @1,@  @$*;@.4M,@8<@@HY6-@LRc@Vdi,u6-@hp6-@t6-1}Cd g"@)0 @$(@,256-8@I-@DHALTM g0Z^@bf@jsg Bw#"1}C@ *"@-(3,?6-@4,4K6-@8>U@BZ[,e Bq6-@^d}6-jr6-@v =61}C-%@ )6-"23 B= A6A "@EIAMc A1r +@gm@qw10@{1}C@ @K0 $@(.e0@26@:>@BTo B{6-@X^6-do 36-@sy6-}1}C '6-@36-@% -@)8 G%6-P:@8<B$H:@FL,,%@PZG6-P:@^d$H:@hn,,%@r 11}C   A3 / @$>, B+6-%@BO/  %"U]6-@at% A4 + @x,1}C B +6-%@" E#"(,*28*"@<D/6-@HN;6-TiE A3* ="@m B'6-1}C&@36-)= A3E4 k"@-3@7;+,AE@IM=,SW@[cI6-@goU6-@ sa6-@1}C"k A3> A3PW W @&2,"8<)BF;,LP@TXM,^b@fW A4`Z C6-P:@81}C $H:@,,76-P:@$$H:@(0,,C6-6J\ 1f PaA4p - @ei'0os@wy}1}C-,z -@@'+-@+/@37E0=?EI@MYI ]-@]a@eiw0oqwy}1}C{  B  m B!+6-%@/7'"@;E56-&@IQI-@UY@]ac0gios@wm B1}C m"@@+,3-@/3@ 7A7 A@ESG,[-@W[@__ c m A4 W"@1}C @ %6-@!16-@ %;7,A BM6-AVW A4` )"@Z^d,) A4 "1}C A5$ A4` +@(.@2810@<@@DFLRK0@VX^b@fle0@pt@x@1}Co B{6-@6-%-6-@8176-=F g @JN'0TX@\^dp-,7@tC6-@1}C O6-@[6-!g6-'0 ;,@ 48@<B'/@ FJ@NV;"@ZkA5@ ',@)os@w'/@)1}C@  G"@!*"@%)#/55,@9=@AGG/@ KO@S^ @bh6-ny @}1}C6-  7 B!6-@%-7"@15*";?A7CN }#"@RX*"@ \b*"@fj-px9,@|1}CE/@ S6-%@]@#)i6-/Ns A5} A5@ }#"@RX*"@)\b*"@fj-px9,@|1}CE/@ S6-%@_6-%+i@/5s A69N} A5@ W#"@RX* @\`*"fj-p7 A5A1}C@M6-@(W A5  Q#"@,2*!@'6:*"@J'1 A6NT;@X`G6-@dyQ A50#6-@ }1}C B# A5P,@!%@ )/'/@37@ ;C36-@GM=@QmC,M BP$P,@(qu@ y'/1}C@0 @ 1@ =6-@$@C,M BP$t +@DJ@NT10@X\@`bhnK0@rv@z@1}C e0@@ @#0)-@139K B6-@OU6-[c6-@gp~],@tx@|1}C'/@ @9/@@#)K/@-1@5;]/@?C@GP],@%TX@\b'/@1fj@nt9/@1x@1}C K/@% @]/@%#@'0_ @4:,@>B@FL1,@PT@X^;@bhM,@(lp@t_,@(1}C@ "@A8 3G , B7?#"@CK/6-@OY=6-%@]rG A7K#"@v*"@1}C *"@ /6-@A,@1#'@+@K A73"@DL6-@PZ)6-%@^s3 A7K#"@w*"@1}C *"@/6-@ A,@$(@,AK A7!!"@EI*"OSA@Wb/6-@fn6-@r% B1}C)/ A7P B A7P1,@-1@5;'/@ ?C@GZ1 A7U +@^d@hn10@rv@z@1}C K0@@%e0@)+139Ko B{6-@OW6-@[c6-@go6-@s6-@ 1}C s @,@@!'1/@+/@39C,@0=A@EKU/@0OS@W]_@aoe,s/%@sa1}C , B#"@%16-&@)/;@3KA,K BW6-@Oda A@ E#"@hn*"@rx*"@|1}C/6-@ ;6-@E AE!,E#"@006*"@:@*"@DL/6-@PX;6-@\bE AFfq!!"@uy*"}1}CA ; B6-@ #+%6-@/716-@;P; A@ WA"@TZ)"@^d)"@hn)"@rx)"@ |)1}EC"@ M6-W AH(6-.4 AG8CC-"@GM)"@QW)"@[a)"@ek96-qwC AH{1}C6-  AG"\@ &.6-@2GaK ,/%@KS'"Ya36-@eoA6-&@sK AG1}C f)6-&@"%)6-@)Up B A@ K ,/%@Ya'"go36-@sA6-%@1}C K AH%6-%@B B% A@ (#DD6-++F:@FU,$AV%F:@Yi,,$AV%F:@ ms,,'@`w2#%61}C -P:'@` ,%6-P:'@`(,'q +@,2-@6:@>E@(@Iecongratulations youR-@im@qxq(@|1}Cmade it! it took'v-@ $@(/'(@3@you:9-@DH@LSW(@Wp i-@tx@|1}Cv(@ $'X-@@!(,(@,4&$@`8>>-@BF@JQX(@U_P:&$@`cm,.'.-@qu@y.(1}C@) PRESS START8' F:B2y,@->B@B' @PBI8J`,OQW]'/@9acio9/@9sw@{K1}C/ @]/"0`$Jm -@48@<A6@EKD2@OU$@Y]@ae@isH j2@wy}1}C  m$Kb-@$(@,292@6:A>B@FJ@NX= _2@\^dflntb$dKe 1}C-A @ 6@ <2@$*@.2@6@@ b2@DFLNTV\je$Kb-@nr@v92@1}C@ @@%= _2@)+139;AOb$,Lb-@SW@[a92@ei@%mq@uy@}1}C = _2@ &2b$ N` B6(3(WHICH DIRECTION SHOULD I MOVE7:(\(HOW MANY STEPS SHOULD1}C I TAKE`HNC-@!'1!,C27;@?AGIOdRN 4U6-&@h\N 4D6-%@1}CfN 4R6-%@2nN 4L6-&@6JzN 1NP^$N0-"@9bh)"@lp)"v)"1}C0$0u ,/2!@%'-1@5=C-@AE@IMe2SU[]cekwi }-@{1}C@  :u"@)$Du B-] D:GANTLETWMOLOUUPKHBCSEMIHfhopwx}0?CJ:;CQhAXXYYWDIFDDPFLCCCTSHIDYHDQS@Y[@bcjkrsz5}C   %& -. 56 =>EFMNUV]^efmnuv}5}C  !()0189@AHIPQ WGALACTIC GLOOPBY GUY AITCHI5}CNSONANTIC MAGAZINE ΠήӠԠ:&;@ RY,9@0]d,9@0hy,0#A : A }5}C 68@,-@ -68@$),-@-5B68@9>,-@BJW68@NS,-@W_l68@ch,-@lt68@x,-@5}C 68@,-@!68@%*,-@.668@:?,-@CK68@OT,-@X`6-@dl6-@px6-@|5}C Q +@ -@@%9(@)@ INITIALIZINGM-@DHALlQ  y AF:A,&@pv*+@zK65}C-+F:A,%@6,$AVgAV'AV%@:_yAA .-A(Ac*%F:BsD%,.  5}C]-@ @'#"36-+%@d',,$@06G-<@@DK"U%%Y ]  n-6-F:A`,%F:Aa,$AV5}C%@' 9@K-@ $@"(/n(@3> SCORE=0D TSHIPS=5B #AX^!-dh@"lv%"1-@z5}C>(@ 3B 'AA'A @V7HiAY@bLZ'B2w@^l9BBy@@pKAA5}GRW6-BdiAwA$_AvA$#A3-A6AV7"=A U-A`AsY"5}C3_ f 6-?:A`,(AvA<-9=@AO@"P%%AST fB2HA$0_BB5}C'AH#9AI@'5KBB@d9?U#A0CI_ AMXd2# @\b)!@fl)!@pv/6-|5}C2$eAA@%!+-,%@/5A-;?@CI]2@MQ@UW]ia 2@mouw}5}C4$d-6-F:A`,%F:Aa,$AV%@(8@9@DTM-A(AX`%F:BsD%,d U 6-%5}C"@ #6-Aa/6-@2!)=-@-?Q68,-8,%@CRU '"@Vy6-Ab'6-Ac'"@}5}C#6-Ad'6-Ae3"@'E6-Af'6-Ag36-KV3-@Zx6-8,#6-8,31%@|5}C)""&6-A)#A0*3I%2@79?AGIOUI2@Y_'@cg@ko@s[ ,5}C,%@)@2)7,&@-5C"@9?M@2CM[,&@Q\"@%`u AP#!@y* 5}C@ # A00@#@'2&8,!@6K0 Asi @OU* @Y_) @ci*!@ms* @w)!@5}C * @)!@*!@"(* @,2s A6Mz$6-+F:Aw,'@QV,&@ZnE6-+F:Av,'@rw,&@{d5}CT: ,"*"%p6-@)/z A3@j6-%?PDR%%AXf9%AlB"P:,V%A5}C:A)j%AA):6-F:B2R,!@>T( AP:B2xZy# 68,-68,- # A}5}C  @% ,!,%@!%C2+/A35;?@CKW-@OS@Wa[ e@2euk,y,%@y25}C,<6-%+@07$,%@;A/-@ EI@"MT<(@Xg,%@kx668,-P:@|$5}CH: ,,%@E68,-@">N6-8,W6-8,e6-%@BJ}!@NU%+$@Y`,6-fl Ap' A5}C\-8,8,(@1 2-8,8,%@5<A(@@OP68,-@S[\6-@_oW(68,-P:@sw$H:}5}C,,%@ 16-8,?6-&@P!'K -3W6-9B)-@ FJ@"NU&(@Yk )$T @2o,8,8,-5}C,8,8,%@96-@ )H8, @ -5T6-@9G8,!@KS6-@Wb-@fm (@q,-5}C@ =(@I-@ #*Z(@.8|2>BAFHNR@V^-@bf@ jy{ -@}5}C$(@  0-@$A(@(6M-@ :A^(@ES {-@WY_d6?%hos2uyA}6}C# E2 "(*08Q6-@2<F_6-%@JRs"@VZA ^m$X"s$Y$66}C-*!AAR$$Y6-%@.86-%@<BA2@FHNPVX^fM!@jrY6-@ve06}C@ @)@w"(3#A,4I-@8>$@BiO"X68,-a68,-e G-@mq@u!@26}C-,@ 9/@$= G#A0(3-@7;@?G4-AKO@ESX6@\`P2fl@pt@xT 6}CX z2 %.}' A2Pl6-?:A`,$BBVb6B2Hhx@#AT-}6}C@ X"h%%@3,l  -@028=6?%AG<2@KWA0@[o@ RAv@4sdAw6}CA$vBB@d 2@$&,.46<I86-%@MS#-@W[@#_f8(@jn@r&"6}C@ A )"B2HA$#A0-8"$ iiG L,[ `,o t,} 6}C , $!ii3 7,H K,\ _,p t,} 6 } C "ii $,3 8,G L,[ `,o x#ii} 6 } C , #,4 y,    ,$..    ,}6 } C ,-!@%+32139;AI7 Y2OSAWY_c@gov-@!su{66 } C@ @%,#/@'< ABI%2OYA_c@goB-@!su{66 } C@ L@2X,#d/@'5h |-@9=AA 6-?:B,0,0,0,0,0,0,0,0,0TT1,8,16,48,126}G0,252,188,204,120,2,0,0,16,16,48,120,220,188,3,220,120,0,0,0,0,0,0gg4,0,0,0,0,32,16,48,120,5,204,188,252,120,0,0,0,0,6,0,6}G0,0,0,0,0,16,16,7,48,120,220,188,220,120,0,0gg8,255,0,0,0,0,0,0,0,9,128,64,32,16,8,4,2,1,10,1,2,4,8,16,32,64,128,11,192,16}G92,192,192,192,192,192VV192,12,3,3,3,3,3,3,3,3,13,0,1,7,31,63,125,123,246,14,60,255,231,219,141,14,15,15gg15,0,128,226}G4,248,252,190,94,111,16,236,236,247,123,125,191,159,135,17,15,15,12,195,255,60,195,255[[18,183,55,239,222,62,253,251,231,6}G19,129,64,64,32,24,6,1,0,20,255,60,3,15,15,15,207,40mm21,159,126,254,252,248,224,128,0,23,255,254,254,252,252,248,249,2416}G,24,255,255,255,127,127,191,63,31,25ee129,102,90,60,60,90,102,129,26,243,224,224,199,207,239,255,255,33,159,15,15,199,2316}G,239,255,255GG173,120,2,41,1,208,3,32,43,6,173,120,2,41,2,208,3,32,67,6,173,120HH2,41,4,208,3,32,91,6,173,120,2,41,8,6}G208,3,32,106,6,76,98,228,160,8GG174,240,6,202,224,33,144,13,142,240,6,189,0,44,157,255,43,232,136FF16,246,96,160,8,176}G4,240,6,232,224,218,176,245,142,240,6,189,5,44GG157,6,44,202,136,16,246,96,174,241,6,202,224,48,144,223,142,241,6GG146}G2,0,208,96,174,241,6,232,224,201,176,208,142,241,6,142,0,208,9655162,255,169,0,157,0,44,202,224,0,208,248,104,96 1296}G,90,60,255,0,255,126,24L__3,1,6,2,9,3,12,4,15,5,4,6,7,5,10,4,13,3,16,2,3,3,6,4,9,5,12,6,15,7,4,8,7,7,10,8,13,5,16,4M4436}C6,5,6,6,9,7,12,8,15,9,4,10,7,9,10,10,13,7,16,6 +@:C-@GK@OV1(@ZqC-@uy@}6}Ca(@ $s-@(,@07(@;r F:Ad,AU$%-@v@6}G % A  __193,126,96,193,126,96,193,193,193,126,96,193,126,96,193,193,182,121,91,182,121,91,182,182 !!193,126,96}CJ6,193,126,96,193,0D1:GLOOPXXX.BASFLCCCTSHIDYHDQS@Y[@bcjkrsz4*C F11RUN THIS PROGRAM TO ALTER LOMEM FOR 'GLOOP' v +LR-@VZ@^@(POKE 743,114:POKE 744,46:N:}CEWC(F(v(RUN >:@43,D:GLOOPXXX.BAS>:@47A,*-@EGM['AB@_*&D1:GLOOPRUN.BAS6:N8zG02 ;GRAPHICS, DRAWTO AND FILL04 ;PAGE #'S FROM 1982 TECH. REF. NOTES06 ;PROGRAM BY JT.08 ;ASSEMBLE AND TYPE "BUG"; "G0602"> } G10 ;12 ;SET UP PLAYFIELD COLOR REGISTERS14 ;pg. 6216 COLPF0 = $2C418 COLPF1 = $2C520 COLPF2 = $2C6 ;TEXT WINDOW22 COLP>!}!GF3 = $2C724 COLPF4 = $2C8 ;BACKGROUND26 ;SOME COLORS YOU CAN USE pg. 19028 GOLD = $1830 REDOR = $3432 BLUE = $7834 GREE>"}"GN = $C436 ;38 ;CURSOR REGISTERS pg. 61,212-22540 ROWCRS = $5442 COLCRS = $5544 NEWROW = $6046 NEWCOL = $6148 CRSINH = >#}#G$02F050 OLDROW = $5A52 OLDCOL = $5B54 FILDAT = $2FD ;FOR FILL COLOR56 ATACHR = $2FB ;FOR DRAW COLOR58 *=$0600 ;STARTING>$}$G ADRESS60 DEV .BYTE "S:" :SCREEN62 LDX #$60 ;IOCB #664 LDA #$3 ;OPEN66 STA $342,X ;ICCOM COMMAND CODE68 LDA #DEV&$00>%}%GFF ;MASK OFF HI BYTE70 STA $344,X ;ICBAL BUFFER ADR. LO BYTE72 LDA #DEV/256 ;HI BYTE74 STA $345,X ;ICBAH76 LDA #$0C ;>&}&GREAD/WRITE. SPLIT SCREEN78 STA $34A,X ;ICAX180 LDA #3 ;GR. 382 STA $34B,X ;ICAX284 JSR $E456 ;LET CIOV HANDLER DO IT>'}'G86 LDA #REDOR ;RED-ORANGE FOR PF188 STA COLPF190 LDA #292 ;IN GR.3 DATA VALUE FOR PF1 = 294 ;SEE TECH. NOTES APPENDIX >(}(GH, 60-62, 188-18996 STA ATACHR98 LDA #0 ;PLOT AND0100 STA OLDCOL0102 LDA #120104 STA OLDROW0106 STA COLCRS ;DRAWT>)})GO POSITIONS0108 STA ROWCRS0110 LDX #$60 ;IOCB #60112 LDA #$11 ;DRAW COMMAND pg. 60,2180114 STA $342,X ;ICCOM0116 JS>*}*GR $E456 ;CIOV0118 LDA #0 ;DRAW NEW POSITIONS0120 STA ROWCRS0122 JSR $E4560124 LDA #00126 STA COLCRS0128 JSR $E456>+}+G0130 LDA #120132 STA ROWCRS0134 JSR $E4560136 LDA #00138 STA ROWCRS0140 LDA #1 ;PF0 COLOR DATA0142 STA FILDAT ;>,},GFILL WITH PF0 COLOR0144 LDX #$600146 LDA #$12 ;FILL CODE0148 STA $342,X0150 JSR $E4560152 STOP JMP STOP ;HOLD ON SCR>-}-GEEN0154 ;NOW MAKE YOUR OWN PLAYFIELDS#'S FROM 1982 TECH. REF. NOTES06 ;PROGRAM BY JT.08 ;ASSEMBLE AND TYPE "BUG"; "G0602"<'.C  :DDL!")*129:ABH[*** OS DEMO 1 _** BY FRED PINHO *B/}/C0* ANTIC MAGAZINE ** FEBUARY, 1984 *B*K d +@OU6-[4(NORMAL SCREEN(NO DLI).R(CAB0}0C2N YOU SEE THE LETTERS?dҠҮҠҮ1 @6<,@ @BHN1/@ RV@Zc1 @gm,@qsy1/B1}1C@ @(1 @!,@)%'-31/@)7;@?P2AR@TZ A^e<'0ko@sw@{'B2}2C AA'0@!@%+' A/8F'0@<@@DH@LR' AV_P'0@cg@ko@sy' A}B3}3C Z'0@ @@#' A'0d'0@48@<@@DJ' ANWn'0@[_@cg@kq' Aux'0@B4}4C @ @' A*+"@.<!BB@d@F+ @J66ŠƠ̠ũϠӠB5}5C0ɛ;(>:A%,%(SETTING UP DLI!16-@4:; A>p%%6-F:A`,%AV$F:Aa,96-%@$t9ҠB6}6CsŠ̫ҠҮŠ̫AA6AҠҮŠɬĠҠҮŠɬ7 #A!-y@B7}7Ci%"3A6%7 @@72,169,202,141,10,212,141,23,208,169,148,141,24,208,104,649Ao'A@B8}8C9BBA55ӠĠӠƠɠś!!ŠϠӠɛ@( DONE!,(B9}9C!CAN YOU SEE THE LETTERS?6 A%+@ @ /:,-@>BAF $D:PINHO1** BY FRED PINHO *@^:Cm5 REM Ӡ̠͠ԠΠΠήԠӠԠƠҭԠӠĠΧΠ֮ՠ®r10 REM ***F;};C*"20 REM *< F*30 REM *M XODD MAN OUT` j*40 REM *v xBY} F<}<C 5*50 REM * JOHN AND MARY HARRISON *60 REM *O Y*70 REM *e hFORs *80 REM *F=}=C ANTIC MAGAZINE $*90 REM *> G*95 REM c*160 DIM FACE$(48)600 FORF>}>G I=1 TO 48:READ X:FACE$(I,I)=CHR$(X):NEXT I700 TRAP 720:OPEN #4,9,0,"D:RECORD.DAT":GOTO 760720 REM TRAP ROUTINE IF RECORD.DF?}?CDAT DOES NOT EXIST740 CLOSE #4:OPEN #4,8,0,"D:RECORD.DAT"760 TRAP 4H0780 REM INPUT CHILD'S NAME800 GRAPHICS 0:OPEN #5,4,F@}@G0,"E:"820 POSITION 2,5:? "Hello. What is your name? ";:INPUT #5;NAME$840 POSITION 2,7:? "Plug your joystick into port numbFA}AGer 1 and press the fire button to begin."860 IF STRIG(0)<>0 THEN 8601070 FOR DEL=1 TO 25:NEXT DEL1360 RAM$(209,256)=FACE$(FB}BG1,48)2860 POSITION INT(LE)*4+3+(CHOICE=7),8:? #6;"\"2880 POSITION 9,1:? #6;":;"2900 IF INT(LE)<>ODD THEN 30002920 POSITIOFC}CGN 9,2:? #6;"<="2940 FOR K=121 TO 0 STEP -5:SOUND 0,K,12,8:SOUND 1,K+5,12,8:NEXT K:SOUND 0,0,0,0:SOUND 1,0,0,02960 FOR DEL=1FD}DG TO 75:NEXT DEL2980 POSITION 9,1:? #6;" ":POSITION 9,2:? #6;" ":? "}":RETURN 3000 POSITION 9,2:? #6;">?"3020 FOR K=1 TO FE}EG30:SOUND 0,60,12,7:SOUND 0,60,12,8:NEXT K:SOUND 0,0,0,03040 IF FLAG=0 THEN WRONG=WRONG+1:FLAG=13060 POSITION 9,1:? #6;" ":FF}FGPOSITION 9,2:? #6;" "3080 POSITION INT(LE)*4+3+(CHOICE=7),8:? #6;"[":? "}":GOTO 25403100 REM REWARD ROUTINE3120 POKE AF,0FG}GG3140 GRAPHICS 21:FOR I=0 TO 2:SETCOLOR I,4,6:NEXT I:SETCOLOR 4,7,0:C=13160 DISP$="YEAH":PYO=22:GOSUB 37603180 DISP$=NAME$:FH}HGPYO=31:GOSUB 37603200 IF WRONG=0 THEN 32403220 DISP$=" RIGHT":DISP$(1,1)=STR$(10-WRONG):GOTO 32603240 DISP$="PERFECT"326FI}IG0 PYO=40:GOSUB 37603280 REM ROUTINE FOR ATLEAST 8 RIGHT3300 IF WRONG>2 THEN 40603320 COLOR 1:PLOT 40,0:DRAWTO 40,10:PLOT 3FJ}JG5,5:DRAWTO 45,53340 COLOR 2:PLOT 42,3:DRAWTO 38,7:PLOT 38,3:DRAWTO 42,73360 REM ROUTINE FOR ATLEAST 9 RIGHT3380 IF WRONG>1FK}KG THEN 40603400 COLOR 1:PLOT 10,12:DRAWTO 20,12:PLOT 15,7:DRAWTO 15,173420 COLOR 2:PLOT 17,9:DRAWTO 13,15:PLOT 13,9:DRAWTO 1FL}LG7,153440 COLOR 1:PLOT 60,12:DRAWTO 70,12:PLOT 65,7:DRAWTO 65,173460 COLOR 2:PLOT 67,9:DRAWTO 63,15:PLOT 63,9:DRAWTO 67,153FM}MG480 REM ROUTINE FOR 10 RIGHT3500 IF WRONG>0 THEN 40603520 SETCOLOR 2,3,4:COLOR 33540 FOR LP=1 TO 15:X=INT(80*RND(0)):Y=INTFN}NG(20*RND(0))3560 GOSUB 3940:PLOT X,Y:NEXT LP3580 REM SOUND EFFECTS FOR PERFECT SCORE3600 LO=503620 FOR I=1 TO 20:FOR J=0 TFO}OGO 133640 SETCOLOR 0,J,83660 SETCOLOR 1,J+1,83680 SETCOLOR 2,J+2,83700 SOUND 0,LO,10,14:LO=LO-1:IF LO<35 THEN LO=503720 NFP}PGEXT J:NEXT I:SOUND 0,0,0,03740 GOTO 40603760 PXO=(80-LEN(DISP$)*10)/2:PX=PXO:C=1:COLOR C3780 FOR I=1 TO LEN(DISP$):PY=PYOFQ}QG3800 CHAR=ASC(DISP$(I,I))-32:PTR=CHAR*8+13820 FOR J=PTR TO PTR+7:BITM=ASC(ROM$(J,J)):DIV=1283840 FOR K=1 TO 83860 IF BITM/FR}RGDIV>=1 THEN PLOT PX,PY:BITM=BITM-DIV3880 DIV=DIV/2:PX=PX+1:NEXT K:PX=PXO:PY=PY+13900 C=3-C3920 COLOR C:NEXT J:PXO=PXO+10:PFS}SGY=14:COLOR 1:NEXT I:RETURN 3940 REM EXPLOSION SOUND3960 SOUND 2,75,8,15:V1=15:V2=15:V3=15:ICR=0.0793980 SOUND 0,20,8,V1:SOFT}TGUND 1,40,8,V2:SOUND 2,70,8,V34000 V1=V1*ICR:V2=V2*(ICR+0.05):V3=V3*(ICR+0.08)4020 IF V3>1 THEN 39804040 SOUND 0,0,0,0:SOUNFU}UGD 1,0,0,0:SOUND 2,0,0,0:RETURN 4060 REM CONDUCT RECORD KEEPING AND LOOK FOR JOYSTICK INPUT TO CONTINUE4080 ? #4;NAME$:? #4;FV}VGCHOICE:? #4;10-WRONG4100 IF STRIG(0)<>0 THEN 41004120 GOTO 8804140 GRAPHICS 0:CLOSE #4:END 4160 REM 4500 DATA 0,7,24,32,FW}WG76,76,64,644520 DATA 0,224,24,4,50,50,2,24540 DATA 64,72,68,67,32,24,7,04560 DATA 2,10,18,226,4,24,224,04580 DATA 64,67,6FX}XG8,70,32,24,7,04600 DATA 2,194,34,18,4,24,224,0DATA 64,72,68,67,32,24,7,04560 DATA 2,10,18,226,4,24,224,04580 DATA 64,67,6D0YG5 REM Ӡ͠ӠԠԠϠΠӠήԧӠԠƠҭԠӠĠΧΠ֮®10 REM ***ZZ}ZC*#20 REM *> H*30 REM *L _ODD MAN OUT MONITORc m*40 REM *} Z[}[C *50 REM *" $BY0 :*60 REM *U *70 REM * JOHN AND MARY HARRISON *8Z\}\C0 REM *" ,*90 REM *9 l  AXLPB0NZ<( ((@$CF@KLRld "( st |J`}`C + $AdAU0@(*04@8>70@BDJN@RXQ0@\^dh@lrc@v@Ja}aCu@ @7'{(}AR@+4++(#U++(#| ANTIC MONTHLY DISK FEB. 198Jb}bC 4 |++(#.8++(#Yc @ gr-@vAJc}cC $ GG;@@,;@ "),;@@-4,;A8?,;@CJ,;@@Nh, "D1:MENU" &&@lp@tv|Jd}dCD:*.* 6,6."3 96 @0=Ji6-%@NX(6.7@\`<@dm,A67@ qu<@ y,.Je}eC .i67@ <@,.7@ $<@(A,3 6.|67B:,%@EU,.367B:,%@Yg,.G67@ko<@s,.(--Jf}fC@>B:,:7<,4 G67<,..] 6.=:, @BJD67@NR<@V],.7@ae<@ir,]67@v<@Jg}gC,.0$@'(''7@+/<@3?,4FREE@CL- @ Pi2() <@mF''7@Jh}hC<@ ,4FREE@"K @ &1P(7@59<@=N,)|U @0R[W'!-@6_f+'@jo,%@s' |Z+Ji}iC+(#|& 0|[ ( |8 = F P|\++(#qd-(-("Jj}jC1 Select HELP.BAS for information.xAR7@[@DH@9LR'-@VZ@"^dC(p SELECTIONM Jk}kCA0Q[ B4P:,A00"@8B&6.7@FJ<@Ni,0 AELB6.7+&@mr,$@v%@Jl}lC<+&@ ,$@%@$,L B(337@7;<@?N,4 36.7@RV<@Zf,!7@jn<@r,4DOS!.Jm}EmC0 6.-@?B:,07<,4 AH67B:,%@Cr,.7<,   6.! 6.D1:!67B:,%@v,.?Jn}nC AR@'-@@"#)? 1 DLOADING ? AHN@RV@9Z`1@dh@lv5%? BzJo}oCK-@ @"-  0CANNOT RUN 7 @4:A B>lK A0D1:MENU."( st |HYpCoEiͩkΩ͙kCop j`j {j`Hi͝Νh`}Nq}qCoL"UNEM:D"NURͩkΩ͙kCop j`j {j`Hi͝Νh`}LrC%J WELCOME TO THE ANTIC MONTHLY DISK n Most of the Rs}sGprograms on this disk arewritten in Atari BASIC. Some requirespecial hardware or specific instruc-tions. We recommend you Rt}tGrefer to thecorresponding issue of ANTIC forcomprehensive documentation. If youwish to order a back issue, or needsubscriRu}uGption information, contact usat (415) 957-0886 or, for credit cardorders, dial (800) 227-1617, Ex. 133.In California,(800)Rv}vC 722-3545, Ex. 133XXXThe menu that appeared on the screenwhen you booted the disk will onlyrun programs with a .BAS exRw}wGtender.If you try to run a program and the response is 'cannot run Filename',then check the file extender withthe followiRx}xC4ng list:XXX.BAS BASIC saved program, use menu; sRUN or LOAD and RUN..LST BASIC listed program, ENTERz theRy}yC*n RUN..EXE Assembly language 'Load and1 NGo' file. Remove BASIC, bootU pDOS, type L then enter thew filenaRz}zC)me..ASM Assembly language source code0 Mfrom Atari Assembler Editor.T Must be assembled..M65 Same as .ASM onR{}{CRly MAC/65..SYN Same as .ASM only Synassembler.AMC Same as .ASM only AMACXXXV.OBJ Machine language object file. R|}|C $Same as .EXE but not 'Load and+ GGo'. Refer to correspondingN article..ACT ACTION! source code..SYS ResR}}}CBerved for DOS system files..PLT Pilot language, requires PilotI xcartridge..LGO Logo language, requires Logo} R~}~C0 cartridge..TXT Text file. Usually accessed7 Nby another program.XXXRAll programs from ANTIC issues datedprior R}Gto August 1984 were reproducedfrom ANTIC's Archive. We have up-dated them from our HELP columns and most are compatible wiR}Gth the XLmachines. We have worked to insurethat our programs operate as pub-lished, but we consider all our software lisR}Cytings to be works in progress which we encourage you, thereader, to personalize and enhance.Good luck, and ENJOY! } R}C J-ANTIC ED WELCOME TO THE ANTIC MONTHLY DISK n Most of the P"CiwLINEA;xx ;A ,;@?P,; (}@T[;@_c@gio D:DOC.TXTV}C A (@)2lB:,!@-5-7@9=<@AT,4XXX0(3(E-@X\@"`X( ӠΠ\b(}V}Cl @@ <( @@%da@)/ B39*-@=A@"ER("ΠҠՠҠˠҠVa%D:MENUV}CD:HELPLINEA;xx ;A ,;@?P,; (}@T[;@_c@gio D:DOC.TXTTCd 53774,112200 POSITION 11,1:? "ĠΠԠ"210 POSITION 2,3:? "":POSITION 20,3:? "i ":? 220 TRAP 3Z}G50230 CTR=0240 INPUT #2;NAME$:INPUT #2;LEVEL:INPUT #2;SCORE250 X=20-LEN(NAME$)260 ? NAME$;:POKE 201,X:? ,LEVEL;:POKE 201,Z}G9:? ,SCORE270 CTR=CTR+1280 IF CTR<15 THEN 240290 ? "Press RETURN to contiue.";300 INPUT #5;Z$310 ? "}":GOTO 200320 REM Z}GFILE DOES NOT EXIST TRAP330 IF PEEK(195)<>170 THEN ? "ERROR - ";PEEK(195);" IN LINE 170":CLOSE #2:END 340 ? "FILE RECORD.DAZ}GT DOES NOT EXIST. UNABLE TO PROVIDE REPORT.":CLOSE #2:END 350 REM OUT OF DATA TRAP360 POKE 84,20:POKE 201,10:POKE 752,037Z}G0 IF PEEK(195)<>136 THEN ? "ERROR - ";PEEK(195);" IN LINE ";PEEK(186)+256*PEEK(187)380 CLOSE #2390 ? "Press RETURN to contiZ}CBnue"400 INPUT #5;Z$:? "}"410 ? "Do you want to delete the storedH information? ";:INPUT #5;Z$420 IF Z$(1,1)="Y" THEN OZ}CBPEN #2,8,0,"D:RECORD.DAT":CLOSE #2430 END t to delete the storedH information? ";:INPUT #5;Z$420 IF Z$(1,1)="Y" THEN OX,C  @DA@"!!(Press RETURN to contiue.,@HY6 (} A]@FILE DOES NOT EXIST TRAPJZ}CDMF:A,Ap?(ERROR - F:A, IN LINE 170J@HMTPB(:FILE RECORD.DAT DOES NOT EXIST. UNABLE TOZ}C PROVIDE REPORT.M@=P^OUT OF DATA TRAPh9@AE@ IW'A@[g9ARmrZF:A,Z}CTA6Z(ERROR - F:A, IN LINE F:A,%AV$F:A,|@X (Press RETURN to continueZ}C@ 9(}I<(3Do you want to delete the stored? Tinformation? I@XeQ7@im<@q,4YF@Z}C@ * D:RECORD.DATQ@.ND1:MONITOR.BASTY ##v*##*XKC1000 )*=$6001010 ;1020 SAVMSC =0 <$581030 FR0A B=I U$D41040 FREZ [=b n$DA1050 FR2s t={ $E^}C 01060 FR1 = #$E61070 CIX( )=0 B$F21080 INBUFF =I $F31090 ;1100 ; X=USR(1536,ADR(A$),N,L)1110 ;112^}G0 ; A$ - ENTRIES TO BE SORTED1130 ; N - NUMBER OF ENTRIES1140 ; L - LENGTH OF ENTRIES1150 ; X - ADDRESS OF POINTER TABL^}C E1160 ;1170 PLA1180' /PLA11908 ;STA@ MINBUFF+11200V ^PLA1210g jSTAo INBUFF1220 ^}C PLA1230 PLA1240( +STA0 8CIX1250A IPLA1260R ZPLA1270c fSTAk uFR0+41280} ^}C STA FR0+31290 DEC$ .FR0+313007 :LDX? LSAVMSC+11310U ]DEX1320f iSTXn xFR0+11330} ^}C DEX1340 STX 'FR1+113500 8DEX1360A DSTXI SFR2+11370\ _LDYd k#01380t wSTY| F^}CR01390 STY FR11400) ,STY1 9FR21410B ESTYJ eFR0+21420 PASS0 TYA1430n qSTAv (FR0),Y^}C1440 INY1450 "BNE' UPASS01460 ;1470 PASS1 CLC1480 PASS2 RORZ dFR0+21490m pLDYu #01500 ^}C TYA1510 SET1 !PHA1520* -BIT2 LDAC MFR0+12120V YLDX^ hFR1+12130q tSTXy FR0+^}C12140 STA !FR1+12150* -DEC2