@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu  } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 138ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u; AMAZING; BY DAVID PLOTKIN; ANTIC MAGAZINEMODULE CARD SCRLOC=88,HIMEM=$2E5, PM_BASEADR,ADRES,ADRESB,SCT}ORE=[0] INT DIRX=[2],DIRY=[0],XDIR,YDIRINT ARRAY PXDR=[0 0 0 0], PYDR=[0 0 0 0]BYTE T=$DA,VCOUNT=$D40B, U} PMHITCLR=$D01E,DMACTL=$22F, GRACTL=$D01D,PMBASE=$D407, PRIORITY=$26F,X0,Y0,COUNT=[0], LV=[5],FT=[150],CD=[20]V}, PCLRM=711,COLR0=708,LOUD=[0], COLR1=709,COLR2=710,COLR4=712, FATE=53770,CURSH=752, TXTROW=656,TXTCOL=65W}7,LVL=[1], SND1=$D20F,SND2=$D208 BYTE ARRAY YLOCL(80), YLOCH(80),RSH2(160), PMHPOS(8)=$D000, X} PX(4)=[0 0 0 0],PY(4)=[0 0 0 0], BEGX(4)=[0 52 52 196], BEGY(4)=[0 38 166 38], PM_WIDTH(5)=Y}$D008,PLPTR, PM_MISMASK(4)=[$FC $F3 $CF $3F], PCOLR(4)=704,PMTOPF(8)=$D000, PMTOP(8)=$D008,PFCOL(8),PCOL(8)BZ}YTE ARRAY BM(0)=[$C0 $30 $C $3], CM(0)=[$0 $55 $AA $FF], CHMP1(0)=[0 0 129 129 66 66 36 36 24 24 24 24 36 36 6[}6 66 129 129 0 0], CHMP2(0)=[0 0 129 129 66 66 60 36 36 36 36 36 36 60 66 66 129 129 0 0], CRT(0)=[0 0 129 129 129 195\} 90 126 126 165 165 126 126 90 195 129 129 129 0 0], MSTATUS(0)=[0 0 0 0],ESTAT(4), MX(0)=[0 0 0 0],MY(0)=[0 0 0 0],]} BLK(0)=['U'U'U'U'Z''Y'e'Z''Y'e'U 'U'U'U];WIDTH=2,HEIGHT=8BYTE ARRAY LINE,DUMBYTE LOW=LINE,HIGH=LINE+1PROC DL^}AY(CARD WAIT)CARD COUNTFOR COUNT=0 TO WAIT DO OD RETURNPROC INIT7()BYTE LOW1,HIGH1,I CARD SCREEN=LOW1GRAPHICS(7) COLR0_}=44 COLR1=196 COLR2=106 COLR4=0 SCREEN=SCRLOC I=0WHILE I<80 DO YLOCL(I)=LOW1YLOCH(I)=HIGH1 SCREEN=SCREEN+40 I=I+1ODI=0 W`}HILE I<160 DO RSH2(I)=I RSH 2I=I+1OD RETURNINT FUNC HSTICK(BYTE PORT)BYTE ARRAY PORTS(4)=$278INT ARRAY VALUE(4)=[0 1 a}$FFFF 0]RETURN (VALUE((PORTS(PORT)&$C) RSH 2))INT FUNC VSTICK(BYTE PORT)BYTE ARRAY PORTS(4)=$278INT ARRAY VALUE(4)=[0 1 b}$FFFF 0]RETURN (VALUE(PORTS(PORT)&3))PROC UPDATE()TXTROW=1 TXTCOL=12 PRINTC(SCORE)RETURNPROC UPDATESHIP()BYTE LOOP5Tc}XTROW=1FOR LOOP5=1 TO 5 DO TXTCOL=31+LOOP5IF LV>=LOOP5 THEN PRINT("") ELSE PRINT(" ")FI OD RETURNPROC DRAW7(BYTE X,Yd},CLR)BYTE X1=$A0,Y1=$A1,CLR1=$A2LOW=YLOCL(Y1)HIGH=YLOCH(Y1)T=RSH2(X1)LINE(T)=(((BM(X1&3)!$FF)&LINE(T))% (BM(X1&3e})&CM(CLR1)))RETURNPROC FASTDRAW(BYTE ARRAY PICTURE BYTE WIDTH,HEIGHT,XX,YY)BYTE LCTR1,LCTR2 CARD LCTR3FOR LCTRf}1=0 TO HEIGHT-1DO LOW=YLOCL(YY+LCTR1) HIGH=YLOCH(YY+LCTR1) LCTR2=XX+WIDTH LCTR3=(LCTR1+1)*WIDTH-1 DO LINE(LCTR2)=PICTURg}E(LCTR3) LCTR3==-1 LCTR2==-1 UNTIL LCTR2=XX ODOD RETURNPROC PMGRAPHICS()ZERO(PMHPOS,8) ZERO(PM_WIDTH,5) DMACTL=$3Eh} PCOLR(0)=52PM_BASEADR=(HIMEM-$800)&$F800PMBASE=PM_BASEADR RSH 8HIMEM=PM_BASEADR+768PRIORITY==&$C0%17 GRACTL=3RETURNCAi}RD FUNC PMADR(BYTE N)IF N>=4 THEN N=0 ELSE N==+1 FIRETURN(PM_BASEADR+768+(N*$100))PROC PMCLEAR(BYTE N)CARD CTRBYTE ARRAj}Y PLAYADRPLAYADR=PMADR(N)IF N<4 THEN ZERO(PLAYADR,$100) ELSE N==-4FOR CTR=0 TO $100-1DO PLAYADR(CTR)==&PM_MISMASK(N) ODk}FIRETURNPROC WINDOW()BYTE LOOP5TXTROW=0 TXTCOL=0 CURSH=1PRINT("") FOR LOOP5=l}1 TO 2 DOTXTROW=LOOP5 TXTCOL=0 PRINT("|")TXTCOL=38 PRINT("|")OD TXTROW=3 TXTCOL=0PRINT("m}") TXTROW=1 TXTCOL=3 PRINT("SCORE: ")UPDATE() TXTCOL=20 PRINT("MEN LEFT: ")UPDATESHIP()RETURNPROC MOVEIT(Bn}YTE ARRAY SHAPE BYTE WHICH,NUM,XX,YY)ADRES=PMADR(WHICH)+YYMOVEBLOCK(ADRES,SHAPE,NUM)PMHPOS(WHICH)=XXRETURNPo}ROC PUTMAN()BYTE LPFOR LP=0 TO 3 DOMSTATUS(LP)=0 ESTAT(LP)=0 ODX0=120 Y0=102 MOVEIT(CHMP1,0,20,X0,Y0)FOR LP=1 TO 3 DOPXp}(LP)=BEGX(LP) PY(LP)=BEGY(LP)MOVEIT(CRT,LP,20,PX(LP),PY(LP)) ODRETURNPROC BORDER()BYTE L1,L2FOR L1=0 TO 159 DO FOR L2q}=0 TO 3 DO DRAW7(L1,L2,1) DRAW7(L1,L2+76,1)OD ODFOR L1=0 TO 79 DO FOR L2=0 TO 3 DO DRAW7(L2,L1,1) DRAW7(L2+156,L1,1)r}OD ODRETURNPROC DOTS()BYTE L1,L2FOR L2=8 TO 72 STEP 16 DO FOR L1=8 TO 156 STEP 8 DO DRAW7(L1,L2,3) OD ODFOR L2=16 TOs} 72 STEP 16 DO FOR L1=8 TO 156 STEP 16 DODRAW7(L1,L2,3) OD ODRETURNPROC BOARDDRAW()BYTE L1,L2BORDER()FOR L1=2 TO 36 t}STEP 4 DO FOR L2=12 TO 68 STEP 16 DO FASTDRAW(BLK,2,8,L1,L2)OD ODDOTS()RETURNPROC TESTCOL()BYTE LLFOR LL=0 TO 7 DOu}PFCOL(LL)=0 PCOL(LL)=0 ODDO UNTIL VCOUNT&128 ODFOR LL=0 TO 7 DOPFCOL(LL)=PMTOPF(LL)PCOL(LL)=PMTOP(LL) ODPMHITCLR=1 REv}TURNBYTE FUNC PMHIT(BYTE N,CNUM)IF N<4 THEN N==+4 ELSE N==-4 FIIF CNUM<4 THEN RETURN((PCOL(N) RSH CNUM)&1) ELSE CNUM==w}&3 RETURN((PFCOL(N) RSH CNUM)&1)FI RETURN(0) BYTE FUNC LLOC(BYTE XX,YY,CLR)BYTE X1=$A0,Y1=$A1,CLR1=$A2,L1,L2 LOW=YLOCL(x}Y1) HIGH=YLOCH(Y1)T=RSH2(X1) L1=X1&3L2=LINE(T)&BM(L1)IF (L2&CM(CLR1))=(BM(L1)&CM(CLR1))THENRETURN(1) FI;SOMETHING THERERy}ETURN(0)BYTE FUNC LKAHD(INT XD,YD BYTE XX,YY)BYTE XA,YA,XB,YB,RS1,RS2XA=XX-48 YA=(YY-32) RSH 1IF XD>0 THEN XA==+7+XD XB=z}XA YA==+1 YB=YA+7 ELSEIF XD<0 THEN XA==+XD XB=XA YA==+1 YB=YA+7 ELSEIF YD>0 THEN XB=XA+7 YA==+9 YB=YA ELSEIF YD<0 THEN {}XB=XA+7 YB=YA ELSE RETURN(0)FI RS1=LLOC(XA,YA,1) RS2=LLOC(XB,YB,1)IF RS1+RS2=0 THEN RETURN(1) ELSE RETURN(0);OKFI RETU|}RN(0);BLOCKEDPROC NEWLEVEL()BYTE LLSNDRST() SCORE==+COUNT*LVLUPDATE() COUNT=0 LVL==+1FOR LL=0 TO 7 DO PMCLEAR(LL) ODDO}}TS() PUTMAN()DIRX=0 DIRY=0 IF LVL<11 THEN FT==-10 CD==+10 FIRETURNPROC MSLDROP(INT XD,YD)BYTE TRIG=644,XA,YA,LP,MASK,LD~}=[0],TT=[0]IF LD>1 THEN LD==-2 FISOUND(1,LD LSH 3,10,LD)IF TRIG=1 THEN TT=0 FIIF TRIG=1 OR (XD=0 AND YD=0) OR TT=1 THEN }RETURN FIFOR LP=0 TO 3 DOIF MSTATUS(LP)=0 THEN MSTATUS(LP)=1 IF XD>0 THEN XA=X0 YA=Y0+9 ELSEIF XD<0 THEN XA=X0+7 YA=Y0}+9 ELSEIF YD>0 THEN XA=X0+4 YA=Y0 ELSE XA=X0+4 YA=Y0+18 FI MASK=PM_MISMASK(LP)!$FF LD=12 TT=1 MY(LP)=YA MX(LP)=XA PL}PTR(MY(LP))==%MASK PLPTR(MY(LP)+1)==%MASK PMHPOS(LP+4)=MX(LP) EXITFI OD RETURNPROC MSLGET()BYTE LP,LD1=[0]IF LD1>1 THE}N LD1==-2 FISOUND(2,LD1 LSH 4,10,LD1)FOR LP=0 TO 3 DOIF PMHIT(LP+4,0)=1 THENMSTATUS(LP)=0 LD1=12PLPTR(MY(LP))==&PM_MISMA}SK(LP)PLPTR(MY(LP)+1)==&PM_MISMASK(LP)PMHPOS(LP+4)=0 EXIT FI OD RETURNPROC GOTBUMPED()BYTE LQ,LD2=[0],LQ1IF LD2>0 THEN }LD2==-1 FISOUND(3,LD2 LSH 3,8,LD2)FOR LQ=0 TO 3 DO FOR LQ1=1 TO 3 DOIF PMHIT(LQ+4,LQ1)=1 THEN LD2=14 ESTAT(LQ1)=1 MSTATUS}(LQ)=0 PLPTR(MY(LQ))==&PM_MISMASK(LQ) PLPTR(MY(LQ)+1)==&PM_MISMASK(LQ) PMHPOS(LQ+4)=0 FI OD ODFOR LQ=1 TO 3 DO IF ESTAT}(LQ)>0 THEN ESTAT(LQ)==+1 PCOLR(LQ)=FATEFIIF ESTAT(LQ)=FT THEN ESTAT(LQ)=0 PMCLEAR(LQ) PCOLR(LQ)=(RAND(15) LSH 4)+6 PX(}LQ)=BEGX(LQ) PY(LQ)=BEGY(LQ) MOVEIT(CRT,LQ,20,PX(LQ),PY(LQ))FI OD RETURNPROC MUNCH()BYTE TIME=20,X1,Y1IF LOUD>1 THEN LO}UD==-2 FISOUND(0,8,LOUD LSH 3,LOUD)IF PMHIT(0,10)=0 THEN DLAY(1) RETURN FILOUD=12 X1=X0-48 Y1=(Y0-32) RSH 1DRAW7(X1+3,Y1+}4,0) DRAW7(X1+3,Y1+5,0)DRAW7(X1+4,Y1+4,0) DRAW7(X1+4,Y1+5,0)COUNT==+1 IF COUNT=135 THEN NEWLEVEL() FIRETURNPROC CHANGED}IR(BYTE WH)BYTE F,LPIF FATE2}00 THEN LD=200 FILC==-2 IF LC<30 THEN LC=30 FIIF (LC=30 AND LD=200) THEN EXIT FISOUND(0,LC,8,8) SOUND(1,LD,8,8)DUM(LC)=FA}TE DUM(LD)=FATE DLAY(250) DLAY(250) DLAY(250)OD SNDRST() FOR LC=0 TO 7 DO PMCLEAR(LC) ODLV==-1 UPDATESHIP()IF LV=0 THEN }ENDGAME() ELSE PUTMAN()PMHITCLR=0 FI RETURNPROC CHASE()BYTE LPFOR LP=1 TO 3 DO SMARTS(LP)PX(LP)==+PXDR(LP) PY(LP)==+PY}DR(LP)IF ESTAT(LP)=0 THENMOVEIT(CRT,LP,20,PX(LP),PY(LP)) FIOD RETURNPROC MOVEMAN()BYTE STCK=632,TIME=20XDIR=HSTICK(0) }LSH 1YDIR=VSTICK(0) LSH 1IF XDIR<>0 AND YDIR<>0 THEN YDIR=0 FIIF STCK=15 THEN XDIR=DIRX YDIR=DIRY FIIF LKAHD(XDIR,YDIR,X0},Y0)=1 THEN X0==+XDIR Y0==+YDIR DIRX=XDIR DIRY=YDIR ELSEIF LKAHD(DIRX,DIRY,X0,Y0)=1 THEN X0==+DIRX Y0==+DIRY ELSE DIRX}=0 DIRY=0FI MOVEIT(CHMP1,0,20,X0,Y0)RETURNPROC MAIN()BYTE XX,COUNT,TIMER=20,ATRACT=$4DSND1=3 SND2=0 INIT7() PMGRAPHICS}() PCLRM=50PLPTR=PMADR(4) DUM=PMADR(0)FOR XX=0 TO 7 DO PMCLEAR(XX) ODFOR XX=1 TO 3 DO PCOLR(XX)=(RAND(15) L}SH 4)+6 ODWINDOW() BOARDDRAW() PUTMAN() ENDGAME()DO TESTCOL() MUNCH() MOVEMAN() OUCH()MSLGET() CHASE() MSLDROP(DIRX,DIR}Y)ATRACT=0 GOTBUMPED() ODRETURN PUTMAN() ENDGAME()DO TESTCOL() MUNCH() MOVEMAN() OUCH()MSLGET() CHASE() MSLDROP(DIRX,DIR"0Sr (c)1983 Action Computer Services  B JKIHiDiELV`LiS } iS BLV`LSSl LS &` Fj`8冨凪` SEӅӥ } S`ʆǪƩ Ɛee` TƦʆǢ &Ɛeǐ 0T 0TLS T'&&&8儨児 }祂*LS&&*ń8&&LS T`hihiHHȱȱLSc !#3` }LSJJJJ`H Sh`Hȩh SLU SLU QSLU YSLU _SH8 }`HhHh ULU BHI V䅠LU LU iSLUԆ ؠPIPP` } UP YSLU VLU ULV 2VLUH- U8塪墨hL2V KVLU RVLU UȹP` }텠8堨塪 U芨Oȩ-`PP UP棩 Ѥģ0-ģ6000:,80H }& &ehe&eģ0ʥ 8堅塅`$ U&*i0:0i UƦ`¢ 护 }°ڱ%ȱ%E ULW担CS ~ULWI KVLWH FWLW VLW &B V UNLMȑ }` MLN%B VLUS:.XE:3XH xU 6X7X AU xUh)0I1X2XLAU[\ZUVT` lX1X2X }` sXLU fXLU lXLU) ` sXLU RT` 0d Sҥ `2)2 }ҩ`p`0)9-Y`@0)ӈJJJJ)`Ѕ`ȱ`` aYȥ`Hh }ƣĢ`ƥĤ`Ѣ Y`ȱѢĦ`膡` }`ťƤe8夰LZ Ƥ8`ŦeѠe桊LZ } ZZePZ  V`OZ ZZiVSPZVSUS }P`L [[[L/[[cU[gU[L[x{SfSP{SSU' [[L[[T[T[T[T }[T[TUO Z[LU[`PL[[͜[L[[͝[L[[[ 7W[iL[ 7W[L[[L[[ }44&&? [[ 7W[i[ 7W [44&&? 0 UBB$$$$BBBB<$$$$$$/48) }vZ)wZwZvZ SvZiwZio) o`L ```L5``L8``vZiwZi` RT }ee`` Lr`j`j` `n`m`j`L`n`m` tYL`8j`j`l`k`k`l`L`m`mk`n`ml` }j`=\k`l`L``L`ȌL%a'` ~U``Lia`LKa|aI ~U }&L\a|aZ ~U`L1aLa'av ~ULaSCORE: a ~U ]La MEN } LEFT: a ~U ^`}]ILa Taa `mazZi{Zaaa{ZzZ Yaa`L/b+b+bLTb+b\+b }\+bL4bxZfZZZ\L a+b+bLb+b[+b[+b[+b[+b[+b[+b\t a+bLzb`Lb }bbL cbbLcbb \^biLb \^bLbbLbbObLTcbbLNcbb \^bib \ }^bL!cbLc`VbLZcVcHVcLcUcUcLcVcUc \^UciUcLncVciVcL_cVcHVcLcUcUcLcVcUc \^ }UciUcLcVciVcLc`SLc bc$cL2d cDcL&dcc\ ^cicLccicLc Wc`cL:d6d }6dL_d6d\6d$\6dL?d )L_d6d6dLd6dЮ6d\6dЮ6d$\6dLrd`-SLddddLddid }Ld8dddLddd$\ S)`Led)ddd\ S)``moS*(mpL$e TeZ\Z\ }N[ڥ)e\eڅ\ie=D\ee=H\eD\=H\ELe``ȑLeLe Te8e0e8e J }e͎ee0LeeimeeeeeeieLmfee0LfemeeeeeeieLmf͐ee0LGfeie }ei eeeLmfee0LhfeieeeLmf`ee !eeee !eeemeLf`Lf``fL }f XZZ RTZeZZeZ ]ZZfͯfLgf o`fLf Wc ,bZZZZZ L1g8Z ZZi }Z`L=gfL?g T2g:gLXg8:g:g:g :g  XIL}g;gI2g 3gLg4g 5g ;gILg`8g8g }Lh8g\Lh8g\2g3g0LgZ6gZi 7gL-@@Y(@ press triggerkB-@#2# T}:,Ap  %+@"-@@<(@ ARENA N-@ @^(@byp-@}@(@ ʮv6-F:A,&@&AV26-A6D-@@ \(@ one }momentv0@@ @&&;@p,;@p,;AI,a6.h`167@ ,.>:,K67}@,.>:%@,W6-?:C:,,a#AP<"!6@%*6-%@26-%< A@~-6-F:@,$AV}%F:@,%@;6-%@L6-P:'AV,\6-&$AVhAQ~AP&$AV3AgAf}'At3As$/-A"+$AV%/ .'6-@6-'6-8l#A`}%$@ "--@@ T(@ENTERING LEVEL %@`6-l6-ATBH 6.-@@p}46-@:7<,,&@eH#A %$@L"67B:,%@,.=2A @@O-@@}i(@@p& 2 VZ6-@6-@`'6-36-?6-}K6-Z(@}`x#A`%$@ %@3-@@7"K67<,.>:A,O a-@@}x(@SCORE: jL-@@!!@7-@&@H(@ L t>-@@"4(}@LEVEL: %@> @LLAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALLAAAAA}AAAAALLAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA}AAAAAAAAAAAALLAAAAAAAAAAAAAAAAAAAALLAAAAAAAA}AAAAAAAAAAALLAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA LLAA}AAAAAAAAAAAAAAAAAAAAAAAAAAAA!!104,104,133,204,104,133,203162,0,160,11}77,203,157,131,157;;201,131,208,16,169,0,145,203,136,177,203,201,65,240,4169,131,145,203,20055201,132,208,20,16}9,0,145,203,232,200,192,15,240--51,177,203,201,65,240,4,169,132,145,203@@201,133,208,12,165,206,201,0,208,6,200,169,1}32,145,203,136@@201,134,208,12,165,206,201,0,208,6,136,169,131,145,203,200232,200,192,15,2403,76,11,6,138,24}105,6,170,224,180,240,19 165,203,24,233,185,144,2230,204,165,203,24,105,7022133,203,76,9,6,173,218,157,13}3,207,169,2,141(UU218,157,169,0,133,77,230,206,165,206,201,12,208,4,169,0,133,206,238,199,2,96,-120,0,0,0,0,0,0,0,255},255<255,255,255,255,255,255F!!60,24,189,231,231,189,24,60P0,0,0,85,42,0,0,0Z0,0,0,85,42,0,0,0d##192,96,}248,159,184,240,96,192n3,6,31,249,29,15,6,3x32,1,18,8,20,74,128,228,42,93,127,93,42,28,016,32,133,18,16}0,8,68,122,1,20,136,17,2,40,129129,32,0,2,80,0,9,01,64,8,0,0,32,2,032,1,18,8,20,74,128,2pLLAAAAABB }BBBBEBBBBBBBEBBBBBBBEBBBBBEBBBBBBBEBBBBBBBEBBBBBBBEBBBBBBBAAAAAz672,1338,2075,3043LLAAAAABEBEBBEBBBEEBBCBBBEBBEBBBEB }ECEBBEBBBBCBBBEBBCBBBEBEBBBBEBBEBAAAAA652,1290,2222,3113LLAAAAABBCBEBGBCBFBECDCCEGCCEFBCECDEBEFBCBECBBEDECBBBDBEBBC }EBCDEBFBAAAAA721,1025,3034,3169LLAAAAABBCBEBBBCBFBECBCCBGCCBFBCBBBEBEFBCBEBBBEDBCBBBDBEBBCBBCDBBFBAAAAA924,20 }42,3536,2129LLAAAAABBBBEEEBBBEEEBBBEEEBBBEEEBBBEEEBBBEEEBBFBBEEEBBBEEEBBBEEEBBBAAAAA764,1290,2222,3113LLAAAAABF }FFFGBGFFFEBGFFFFBFFFFFBFFFFFBFFBFEBEFFFFBFFBGBFBCEDDEFFFFBAAAAA811,1324,4108,2914LLAAAAABFGGGGFFFGGDGGCCCECEGEEGBBB}BBEGBBBBBFEFGBGGEEBBBBBEFEFGFGFBBAAAAA987,1115,3479,3194LLAAAAABGEGCBGBBCBDBEGBBDBBCBGEBBBBGBBDBCBBGBBDDBBGEGBBCBBB}GBDBBBGBAAAAA512,1213,3314,501LLAAAAABBBGBFFEBBFFGFFBBBBEGEBBBGEGBBGGGGDEEEEBBFBBFFBEBBCCECBBBFBBAAAAA512,113}1,3104,851$LLAAAAABBDDDDDBEBBGBGEGBDDDBBFBEGBGEBBBEEEBDDEDDBBCBBCBBDBBCBBEEGEBAAAAA.513,1214,3104,8518LLAAAAABBEEB}FBGGBDBEEBBBGGBEBBEEGEEBBBBBBGGEGGBBBFFDDGGBBBFEFBBGEBBAAAAAB717,1115,3479,3104LLLAAAAABBBBBEGEGEBFDFCDFBEGCGEBBBBFFF}BEEGEEBBDDDBBCCCBBEGBBGEBBEGBBAAAAAV987,1115,3759,3166`LLAAAAABBBFFFFBEEEEBDDDBGGGBCCCBEGGEBEGEGBBBFFFBCDCCECFFBBDBCC}BEGEBAAAAAj582,1283,3314,521tLLAAAAABBBEEEEBEEEGEEEEBEEEBEEGBBBBDDDCCGEEDEEEEEFFBCEGEDBBCCEBBBBBAAAAA~539,1502,2}345,3199LLAAAAABBBBBEBBBBBEGBFBGEBFFBCCBDDBGEBDBEGBBFBEEBGGBEGGBBBCCBBDDBBBAAAAA498,2639,2905,597 D2:ARENA.B}ASBBBBBEBBBBBEGBFBGEBFFBCCBDDBGEBDBEGBBFBEEBGGBEGGBBBCCBBDDBBBAAAAA498,2639,2905,597 D2:ARENA.B0 AB ARSMAKER.BAS$$- ABC'S OF THE ATARI COMPUTERS!!REPR}INTED IN ANTIC MAGAZINE(% +%;A(,;@,2#(#( This program creates a<$$(disk file called AUTOR}UN.SYSFM-(%which will RUN a SAVEd BASIC program.J(when the disk is booted.M(P++(# To create an AUTORUN.SYS file fo}rZDD( the program >:@4,D:MENU>:@4,, for example,d0-(%you'd type MENU and press [RETURN].0(nR(( } The resulting AUTORUN.SYS fileO("would RUN any program called MENU.R(x)(%(ENTER FILENAME TO AUTORUN)z!67@}<@,.RUN D:A67@<@,.>:@4,]67@<@%B:,,.z67@%B:,,.>:@4,..@}@ D:AUTORUN.SYS(@6-A#%B:,&@*@*@@}-@A#"1"@d'*@B:,&@1 A0*@ -B:,@6@}*@@:7<,, (@@",%%162,0,189,26,3,201,69,240,5,2326**232},232,208,244,232,142,105,6,189,26@((3,133,205,169,107,157,26,3,232,189J%%26,3,133,206,169,6,157,26,3,160T((0,162,16, }177,205,153,107,6,200,202^((208,247,169,67,141,111,6,169,6,141h''112,6,169,10,141,106,6,96,172,106r%%6,240,9,185,123!},6,206,106,6,160|''1,96,138,72,174,105,6,165,205,157''26,3,232,165,206,157,26,3,104,170 169,155,160,1,96,0,0,0,0,"}00,0,0,0,0,0,0,0,0,76 0,0,0 D:ARSMAKE.BAS26,3,232,165,206,157,26,3,104,170 169,155,160,1,96,0,0,0,0,< -.FiNUMACNUMPW AUTODIAL.BASBY CHARLES JACKSONANTIC MAGAZINE(1 +$}AA1A @2&&;@,;@ ,;@%,<(ŠF(̠%}ҠP(( by C. JacksonZ( (( Phone numberd(( Access Numbern*((Password*A&}@fxF((Insert TSCOPE disk.F(#Press [START] to write AUTODIAL.SYSB2y@ F:B2y,@'}A@:@:@@D:AUTODIAL.SYS(@(@^C]:(@]:(}@8A5(}AUTODIAL.SYS file created.8( AP8-@@ D:TSCOP)}E.OBJ8@++(#Remember to change the name of your''(TSCOPE.OBJ file to AUTORUN.SYS.D1:AUTODIAL.B*}ASDIAL.BAS0JB change the name of your''(TSCOPE.OBJ file to AUTORUN.SYS.D1:AUTODIAL.B#0cd<_rBBBBBNUCHSEDLCHCLXFRMXFS,} -} BEER PARTY ATARIBY DR. JOHN FERGUSONANTIC MAGAZINE2;@,dH@.}.@@K:HOPEN KEYBOARD FOR INPUTnQ +((=(%DO YOU WANT TO ADD TO A PREVIOUS FILE@/}(C(Q((Y/N)? xn)@@(6-46-@6-L6-X6-d6-n A0}Q( ( ((H(4MAKE SURE 'BEERDATA' IS IN DRIVE AND PRESS ANY KEY.K(N(Q()@6@6@1}@ D:BEERDATA9@%@9RETRIEVE OLD DATA +@CLEAR MEMORY$ B2}$CHANGE CHARACTER SETs +A A61A@CA@UAR@sSET COLORS A3}ND BLANK CURSORAV'AV>%6-F:A`,%AV$F:Aa,>CUSTOMIZE DISPLAY LIST)-@@ %4}%@) o%@@+%@@G%@@f%@[%@!@o%@"@5}E%@'@e.%@(F:A`,E%@)F:Aa,!:@'-:SET FIRST SC6}REEN$]@@](@: #$ '* %& [].$$(@ rate beers7} 1 to 98'@'-@@V))(!Poor Average Fine`--(% 8}j0-(% 1 2 3 4 5 6 7 8 90(t))(! (Enter +5+ if not tasted)~A@@'-@9}@A(@ BEER ++ - ?4( ( (4(# (Push spacebar to see results) A = A!6-&@H:}--@0@3(= A = A!6-&@H--@0@3(= A = A!6-&@H;}--@0@3(= A = A!6-&@H--@0@3(= A  A!6-&@H<}* SET SECOND SCREEN (}-]@@](@: sampled #$ '* =} %& beers []#$$(@ YOUR RATINGS ARE:('@'-@230( BEER +A+ =>}  3(<30( BEER +B+ =  3(P30( BEER +C+ =  3(d?}30( BEER +D+ =  3(x30( BEER +E+ =  3(E@@'-@@}@E(@ CORRECT? (:)$)@$@A9 6-%6-%6-%#6-%+6-%96A}-%@@6@@ D:BEERDATAC(@P(@](@j(@w(@B}(@@SAVE DATASET THIRD SCREENC%@!@+%@"@1(}C-C}]@@](@: #$ '* %& [](@ N =D} 9@'@9-@0(BUSCH 6-' A"0BEER B( E} |"0(BLACK LABEL 6-' A"0BEER D,( |60(MILLER 6-' A"0BEER E@F}( |J0(MEISTER BRAU 6-' A"0BEER AT( |^0(PABST LIGHT 6-' A"G}0BEER Ch//(' r//(' 1 2 3 4 5 6 7 8 9((( H} Average Score0( (0(" (Press spacebar to enter data)$)@$@ASHOW SCORE ROI}UTINE B A% 6--@3@% A#&% 6--@3@% A#0% 6--@3@J}% A#:% 6--@3@ % A#D% 6--@3@% A#N AGET KEY SUBROUTINEK}))@"@2') A0 @I)!@W&(>:AS,0 A $4ENTER DATA SUBROUTINE>L}-@5@!(&@HC2@@@@W-@@P[ }2-M}@5@(?$GRAPHING SUBROUTINE"($6-P:+',$@,"@(!$%N}-@(! "(!%$SCORE FORMAT SUBROUTINE (( 6-+',%>P 6.=:,$ 2B:,!@((7O}@<@,2 A#. B:,"@(08 B:,"@(.00V () $'CHARACTER SET SUBROUTINEP}'u AF:A,&@*+K6-+F:A,%@,$AVN(u("ONE MOMENT; ALTERING CHARACTER SET'56-Q}'AV6-)A5A$'D;@(,#B0.-@@(2"@67<,.>:,D .'CC104,16R}9,0,133,205,168,169,224,133,206,177,205,145,203,200,2088'44249,230,204,230,206,165,206,201,228,208,239,96B'6-?:C:,,L'S} #BV'""6@$`'1-@"-%$@%1 j' Bpt'!!1,124,124,56,56,56,16,16T},56~'""3,127,64,64,64,64,64,127,127'""4,224,32,62,35,33,33,225,225'''5,127,127,127,127,127,127,127,255'''6,225,254U},224,224,224,224,224,240'7,31,16,16,8,15,15,15,7'%%10,240,16,16,32,224,224,224,192'11,36,36,36,0,0,0,0,0'59V},7,7,3,3,3,1,1,31'$$61,192,192,128,128,128,0,0,240'-1 D1:BEER.BASAhͨW},3,3,3,1,1,31'$$61,192,192,128,128,128,0,0,240'-1 D1:BEER.BASAhͨ+,QfFNTEMPARFLALANUMHNUMLAADHADLI!Y} FADERII.BASBY PATRICK DELL'ERAANTIC MAGAZINE());@ ,!Z};@ ,;@,2=@+((!(+ B=A@<8 (1. Insert a DOS 2.0 disk8( in![}to your drive.FN()(2. Type in the filename of theG( resulting object file.J(NP APZB:, @!\}AdTT7@<@,4D*+7@<@,4:)7@<@,4:,A@n267@<@,.D:,67!]}@,.26.xI A04@@ D:DOS.SYS?@I A@F($(ԠӠˠ!^}8-@AP< F @P? AP*@@5@? ApA((̠Š!_}3-@AP7 A @PA(+( 嬠76-A A# "6-@!`};, A0 A>6-@!A@>@@ 6."-@B:,!a}@<$*@A:7<%@,,( 2 A< A=!67<,.>:A:7<%@,,,/6-%@3 = A!b}$6-P:'AV,$6-&$AV @@- 6-C:,6-P:'AV,-6-&$AV[6-!c}AH#%@@1%@?%@M%@[%@ 6-?:C:hhhLV,<@,1@!d} A1( }Ġ 988cc2552550000622510620020492302240760080631692551332240320020621662242240262!e}40038224013240009224cc007208239133234076011062133205032002062133206032002062133207032002062133208032002062133204076cc!f}011062169000133236133230165088133224133228165089133225133229032008063072162000134227041128133cc23510404112713322620801003!g}2008063133227032008063133226198226165235208042032008063133233076158cc0621982261692551972262082451982271692551972272082372!q}B%DOS SYSB*)DUP SYSBISAMAZE ACTBAAMAZE EXEB9ARENA BASB ARSMAKE BASB#AUTODIALBASB-+BEER BASB&XFADERII BASBFADERII EXEBbFADERII M65BFADERMODBASBINFOMOD BASBINFONEW BASB&LAZYLOADBASBDMIXADD LSTBHMIXDEMO DSPBMOMODEMIX BASBUSERCALLBASB VTABLE1 BASBVTABLE2ABASB VTABLE2BBASB VTABLE3 BAS40195198226169255197226208008198227169255cc197227240179032008063133233169002197234240082240209165233160000145224024169080!r}101224133224169cc000101225133225230230169096197230208047169001197236208024024169001101228133228133224169000133cc23613!s}3230101229133229133225076240062230236024169040101228133224169000133230101229133225165235cc2401762081471652331600001452242!t}52062247063230224208002230225165235240158208236162016169000157cc072003157073003032086228048001096104104076135065162016169!u}012157066003076086228157069003152157cc06800316900315706600303208622804800109603202906310801000000100806400201612800403216!v}5088133128cc133130169000133187169007197187176001096166187169000141040032169254205040032144019138072174040cc0321880430!w}32104170032184063238040032076095063138072162255188043032104170032184063173011032048cc041164187192002208006185203000141196!x}002192003208006185203000141197002192004208006185203000141cc19800219200520800516520414120000223018707608106317300903213312!y}9173010032133131169000141041032cc1690292050410321760010961771280610630632080101890630630732550491300762260630171301451302!z}30129 cc230131232138041007170238041032076199063173001062141185248063243064065162001134009134203202142 cc068002134065138!{}157043032232208249142040032169255133133077040032072133132010176005070133076025cc06417301021003713319713224000217624514104!|}2032170189043032168104072170189043032174042032157043cc0321041701521570430322380400322302032081941620960320310631690121570!}}74003169008157075003160193cc169065032039063169128141200002173048002133128173049002133129160003169078145128160006169014145!~}cc128200192099208247169078145128200200200177128201015208007169014145128200208243141010032165089cc14101003217301003205!}6233032141009032173009032133089169001133186032029063169006157074003169000cc1570750031601841690650320390631321871651861971!}87144036162016169019157068003169032157069003169cc020157072003169000157073003169005157066003032086228048192230187208214032!}029063244064195065173cc020032201032208178162002189184065157018032202016247232224008240007189021032201032208244172029cc!}032169046157021032152232157021032133203169073232157021032169067232157021032169155232157021032 cc0320290631690041570740031!}69000157075003160018169032032039063173009032133089169007162016157066"cc003164203192080208003076007062165088157068003165089!}157069003169000157072003169030157073003032$cc05106303200806313320403200806313320503200806313320603200806313320703207106303!}2029063169000133&cc077133019165019205000062176025173031208201005208003076057063201003208007169006205031208208251 WW2010!}06208224230186076177064068049058042046063073067155083058155224002225002243063 D:FADERII.BAS6205031208208251 WW2010 c>>1L? >& L > > > > >L >XY ?H)h) ? ?* ?L>%} ?RѥPee`/eeL>(ee%}Г>?HI V0`hhLA BLVEDB V0` ?l @ XŻ`( ( H( +%} h ?( L_?H+ h ? 0)̍LQ? ) ) `=?? ??I1L?%})) L?>?@A ʎDA+ ( M( H FL@ %ń* + hH+ * + h+ ( ¢` ? JKA '?%}01NcNȱ Y 8 Y ?JKA '?Ż$D EH%}IB V0 ?@A вA   .  ˩I C  ?JK '? YBP%}L>XDYEHI 3? ? ? ? ? G? ?M>L9?L@D1:*.?ICS:?BP$q0100 ;FADERII.M650101 ;BY PATRICK DELL'ERA0102 ;ANTIC MAGAZINE0104 ;0105 PROGRAM = $3E000106 BUFFER = $20070107 ;Extern)}al reference equates0108 LBL:105 = BUFFER+20109 LBL:106 = BUFFER+30110 LBL:091 = BUFFER+40111 LBL:064 = BUFFER+$0B0112 L)}BL:121 = BUFFER+$0D0113 LBL:125 = BUFFER+$0E0114 LBL:127 = BUFFER+$160115 LBL:080 = BUFFER+$210116 LBL:107 = BUFFER+$220)}117 LBL:083 = BUFFER+$230118 LBL:078 = BUFFER+$240119 ;End of external references0120 ;0121 ;System equates used0122 BOO)}T = $090123 DOSVEC = $0A0124 RTCLOK = $120125 SOUNDR = $410126 ATRACT = $4D0127 SAVMSC = $580128 SDLSTL = $02300129 S)}DLSTH = $02310130 COLDST = $02440131 RUNADR = $02E00132 COLOR0 = $02C40133 COLOR1 = $02C50134 COLOR2 = $02C60135 COLOR4)} = $02C80136 ICCOM = $03420137 ICBAL = $03440138 ICBAH = $03450139 ICBLL = $03480140 ICBLH = $03490141 ICAX1 = $034A01)}42 ICAX2 = $034B0143 CONSOL = $D01F0144 RANDOM = $D20A0145 CIOV = $E4560146 EOL = $9B0147 ;End of system equates0148)} ;Zero-page equates0149 PIC.CTR = $E00150 N09 = $EA0151 CTR1 = $BA0152 CTR2 = $BB0153 SVCOLR = $CC0154 PICTYPE = $C)}B0155 N16 = $EC0156 N17 = $E60157 N18 = $E40158 N19 = $E10159 N22 = $E30160 N23 = $EB0161 N24 = $E20162)} N27 = $E90163 N41 = $800164 N42 = $810165 N54 = $820166 N55 = $830167 N59 = $840168 N60 = $850169 ;End )}of zero-page equates0170 .PAGE "Main Program 11/10/84"0171 ;0172 ;Program Start0173 ; First two bytes are variables)}0174 ; indicating the Pause length0175 ; and the Drive # pictures are0176 ; read from.0177 ;0178 *= PROGRAM0179 WAI)}T0180 .BYTE 20181 DRNUM0182 .BYTE '10183 ;0184 ;Routine to load compressed0185 ; files.0186 ;0187 READ.HDR01)}88 INC PIC.CTR0189 JMP GET.BYTE0190 PIC.LDR0191 LDA #$FF0192 STA PIC.CTR0193 LBL:0070194 JSR READ.H)}DR0195 LDX PIC.CTR0196 CPX #$1A0197 BEQ LBL:0060198 CPX #$0D0199 BEQ SVCOLR.PIC0200 CPX #70201)} BNE LBL:0070202 STA N090203 JMP LBL:0070204 SVCOLR.PIC0205 STA SVCOLR+10206 JSR READ.HDR0207 S)}TA SVCOLR+20208 JSR READ.HDR0209 STA SVCOLR+30210 JSR READ.HDR0211 STA SVCOLR+40212 JSR READ.HDR021)}3 STA SVCOLR0214 JMP LBL:0070215 LBL:006 LDA #00216 STA N160217 STA N170218 LDA SAVMSC0219 STA )}PIC.CTR0220 STA N180221 LDA SAVMSC+10222 STA PIC.CTR+10223 STA N18+10224 LBL:030 JSR GET.BYTE0225 P)}HA 0226 LDX #00227 STX N220228 AND #$800229 STA N230230 PLA 0231 AND #$7F0232 STA N240233)} BNE LBL:0250234 JSR GET.BYTE0235 STA N220236 JSR GET.BYTE0237 STA N240238 LBL:025 DEC N240239 )}LDA N230240 BNE LBL:0260241 JSR GET.BYTE0242 STA N270243 LBL:0290244 JMP LBL:0280245 LBL:032 DEC N2402)}46 LDA #$FF0247 CMP N240248 BNE LBL:0290249 DEC N220250 LDA #$FF0251 CMP N220252 BNE LBL:02)}90253 BEQ LBL:0300254 LBL:036 DEC N240255 LDA #$FF0256 CMP N240257 BNE LBL:0260258 DEC N220259 )} LDA #$FF0260 CMP N220261 BEQ LBL:0300262 LBL:026 JSR GET.BYTE0263 STA N270264 LBL:028 LDA #20265 CMP N)}090266 BEQ LBL:0310267 LBL:035 BEQ LBL:0320268 LDA N270269 LDY #00270 STA (PIC.CTR),Y0271 CLC 0272)} LDA #$500273 ADC PIC.CTR0274 STA PIC.CTR0275 LDA #00276 ADC PIC.CTR+10277 STA PIC.CTR+10278 )} INC N170279 LDA #$600280 CMP N170281 BNE LBL:0330282 LDA #10283 CMP N160284 BNE LBL:0340285 )} CLC 0286 LDA #10287 ADC N180288 STA N180289 STA PIC.CTR0290 LDA #00291 STA N160292 STA)} N170293 ADC N18+10294 STA N18+10295 STA PIC.CTR+10296 JMP LBL:0330297 LBL:034 INC N160298 CLC 029)}9 LDA #$280300 ADC N180301 STA PIC.CTR0302 LDA #00303 STA N170304 ADC N18+10305 STA PIC.CTR)}+10306 LBL:033 LDA N230307 BEQ LBL:0350308 LBL:037 BNE LBL:0360309 LBL:031 LDA N270310 LDY #00311 STA (PIC.)}CTR),Y0312 INC PIC.CTR0313 BNE LBL:031.10314 INC PIC.CTR+10315 LBL:031.10316 LDA N230317 BEQ LBL:03)}5 ;Forced branch0318 BNE LBL:037 ;0319 ;0320 ;CIO utilities0321 ;0322 GET.BYTE0323 LDX #$100324 LDA #0032)}5 STA ICBLL,X0326 STA ICBLH,X0327 JSR CIOV0328 BMI LBL:0380329 RTS 0330 LBL:038 PLA 0331 PLA 0)}332 JMP MIC.10333 CLOSE.CH10334 LDX #$100335 CLOSE.CH60336 LDA #$0C0337 STA ICCOM,X0338 JMP CIOV03)}39 OPEN.10340 STA ICBAH,X0341 TYA 0342 STA ICBAL,X0343 LDA #30344 STA ICCOM,X0345 LBL:040 JSR CIOV)}0346 BMI EXIT0347 RTS 0348 EXIT JSR CLOSE.CH10349 JMP (DOSVEC)0350 ;0351 ;Picture fader routine0352 ;0353 )}MSKTBL0354 .BYTE $01,$08,$40,$020355 .BYTE $10,$80,$04,$200356 FADEIN0357 LDA SAVMSC0358 STA N410359 )} STA N540360 LDA #00361 STA CTR20362 LBL:104 LDA #70363 CMP CTR20364 BCS LBL:0870365 RTS 0366 LBL)}:087 LDX CTR20367 LDA #00368 STA LBL:0800369 LBL:090 LDA #$FE0370 CMP LBL:0800371 BCC LBL:0880372 T)}XA 0373 PHA 0374 LDX LBL:0800375 LDY LBL:078,X0376 PLA 0377 TAX 0378 JSR LBL:0890379 INC L)}BL:0800380 JMP LBL:0900381 LBL:088 TXA 0382 PHA 0383 LDX #$FF0384 LDY LBL:078,X0385 PLA 0386 T)}AX 0387 JSR LBL:0890388 LDA LBL:0910389 BMI LBL:0920390 LDY CTR20391 CPY #20392 BNE LBL:093039)}3 LDA SVCOLR-1,Y0394 STA COLOR00395 LBL:0930396 CPY #30397 BNE LBL:0960398 LDA SVCOLR-1,Y0399 S)}TA COLOR10400 LBL:0960401 CPY #40402 BNE LBL:0990403 LDA SVCOLR-1,Y0404 STA COLOR20405 LBL:0990406 )} CPY #50407 BNE LBL:0920408 LDA SVCOLR0409 STA COLOR40410 LBL:092 INC CTR20411 JMP LBL:1040412 LBL:089)}0413 LDA LBL:1050414 STA N420415 LDA LBL:1060416 STA N550417 LDA #00418 STA LBL:1070419 LBL:113)} LDA #$1D0420 CMP LBL:1070421 BCS LBL:1080422 RTS 0423 LBL:108 LDA (N41),Y0424 AND MSKTBL,X0425 BNE)} LBL:1110426 LDA MSKTBL,X0427 EOR #$FF0428 AND (N54),Y0429 JMP LBL:1120430 LBL:111 ORA (N54),Y0431 LBL:)}112 STA (N54),Y0432 INC N420433 INC N550434 INX 0435 TXA 0436 AND #70437 TAX 0438 INC LBL:)}1070439 JMP LBL:1130440 ;0441 ;Program Entry0442 ;0443 START0444 LDA DRNUM ;User alterable0445 STA DDVC+)}1 ;drive #0446 LDX #1 ;Tells system0447 STX BOOT ;no Coldstart0448 STX PICTYPE ;and initializes0449 )} DEX 0450 STX COLDST0451 STX SOUNDR ;No disk sound0452 ;0453 ;Build random table for fading0454 ;picture.04)}55 ;0456 LBL:079 TXA 0457 STA LBL:078,X0458 INX 0459 BNE LBL:0790460 STX LBL:0800461 LBL:0810462 L)}DA #$FF0463 STA N600464 EOR LBL:0800465 PHA 0466 STA N590467 LBL:062 ASL A0468 BCS LBL:0610469 )} LSR N600470 JMP LBL:0620471 LBL:061 LDA RANDOM0472 AND N600473 CMP N590474 BEQ LBL:0630475 BCS LBL)}:0610476 LBL:0630477 STA LBL:0830478 TAX 0479 LDA LBL:078,X0480 TAY 0481 PLA 0482 PHA 0483 )} TAX 0484 LDA LBL:078,X0485 LDX LBL:0830486 STA LBL:078,X0487 PLA 0488 TAX 0489 TYA 0490 )}STA LBL:078,X0491 INC LBL:0800492 INC PICTYPE0493 BNE LBL:0810494 ;0495 ;Build screen dislpay list by0496 ;)}closing channel 60497 ;0498 LDX #$600499 JSR CLOSE.CH60500 ;0501 ;Then open GRAPHICS 8+160502 ;0503 LDA #$)}0C0504 STA ICAX1,X0505 LDA #80506 STA ICAX2,X0507 LDY # SDVC0509 JSR OPEN.105)}10 ;0511 ;Give screen some color and0512 ;modify display list to0513 ;ANTIC E (GRAPHICS 7+) display0514 ;list0515 ;0516)} LDA #$800517 STA COLOR40518 LDA SDLSTL0519 STA N410520 LDA SDLSTH0521 STA N420522 LDY #30)}523 LDA #$4E0524 STA (N41),Y0525 LDY #60526 LBL:071 LDA #$0E0527 STA (N41),Y0528 INY 0529 CPY #)}$630530 BNE LBL:0710531 LDA #$4E0532 STA (N41),Y0533 INY 0534 INY 0535 INY 0536 LBL:073 LDA (N)}41),Y0537 CMP #$0F0538 BNE LBL:072.A0539 LDA #$0E0540 STA (N41),Y0541 INY 0542 BNE LBL:0730543)} ;0544 ;Set pointers to a hidden0545 ;screen used to fade new0546 ;picture into old.0547 ;0548 LBL:072.A0549 STA LB)}L:1060550 LDA SAVMSC+10551 STA LBL:1060552 LDA LBL:1060553 SEC 0554 SBC #$200555 STA LBL:10505)}56 LDA LBL:1050557 STA SAVMSC+10558 ;0559 ;Set ctr to point to first0560 ;picture.0561 ;0562 FIRST.PIC LDA #10)}563 STA CTR10564 ;0565 ;Open the disk directory for0566 ;reading.0567 ;0568 NXT.PIC0569 JSR CLOSE.CH10570 )}LDA #60571 STA ICAX1,X0572 LDA #00573 STA ICAX2,X0574 LDY # DDVC0576 JSR OPEN.)}10577 STY CTR2 ;Y=0 always...0578 ;0579 ;Read filenames 'til CTR2=CTR1.0580 ;CTR1 is index to which0581 ;picture )}was last shown.0582 ;0583 LBL:119 LDA CTR10584 CMP CTR20585 BCC LBL:1180586 LDX #$100587 LDA # LBL:064+10590 STA ICBAH,X0591 LDA #200592 STA ICBLL,X0593 LDA #0)}0594 STA ICBLH,X0595 LDA #50596 STA ICCOM,X0597 JSR CIOV0598 BMI FIRST.PIC0599 INC CTR20600 )} BNE LBL:1190601 ;0602 ;Have read the correct # of0603 ;filenames. Now check if0604 ;this is a FREE SECTORS message.060)}5 ;If yes, start from 1st picture.0606 ;0607 LBL:1180608 JSR CLOSE.CH10609 LDA LBL:1210610 CMP #$200611 )} BNE FIRST.PIC0612 ;0613 ;Stick "D1:" in front of0614 ;filename.0615 ;0616 LDX #20617 NAME.LOOP LDA DDVC,X0618 )} STA LBL:064,X0619 DEX 0620 BPL NAME.LOOP0621 ;0622 ;Then reform name with no0623 ;spaces, a period, the extende)}r,0624 ;and an end-of-line.0625 ;0626 NAME.LOOP.1 INX 0627 CPX #80628 BEQ NAME.LOOP.20629 LDA LBL:125,X063)}0 CMP #$200631 BNE NAME.LOOP.10632 NAME.LOOP.2 LDY LBL:1270633 LDA #'.0634 STA LBL:125,X0635 TYA 06)}36 INX 0637 STA LBL:125,X0638 STA PICTYPE0639 LDA #'I0640 INX 0641 STA LBL:125,X0642 LDA #')}C0643 INX 0644 STA LBL:125,X0645 LDA #EOL0646 INX 0647 STA LBL:125,X0648 ;0649 ;Open the picture f)}or reading.0650 ;0651 JSR CLOSE.CH10652 LDA #40653 STA ICAX1,X0654 LDA #00655 STA ICAX2,X0656 )}LDY # LBL:0640658 JSR OPEN.10659 LDA LBL:1050660 STA SAVMSC+10661 LDA #70662 )} LDX #$100663 STA ICCOM,X0664 ;0665 ;If the extender is 'PIC' then0666 ;go to compressed picture load0667 ;routine.)}0668 ;0669 LDY PICTYPE0670 CPY #'P0671 BNE MIC0672 JMP PIC.LDR0673 ;0674 ;Otherwise, do standard load.)}0675 ;0676 MIC0677 LDA SAVMSC0678 STA ICBAL,X0679 LDA SAVMSC+10680 STA ICBAH,X0681 LDA #00682 )} STA ICBLL,X0683 LDA #$1E0684 STA ICBLH,X0685 JSR LBL:0400686 JSR GET.BYTE0687 STA SVCOLR0688 J)}SR GET.BYTE0689 STA SVCOLR+10690 JSR GET.BYTE0691 STA SVCOLR+20692 JSR GET.BYTE0693 STA SVCOLR+3069)}4 ;0695 ;Both load types continue here.0696 ;Fade new picture in. Pause0697 ;and read console keys.0698 ;0699 MIC.1070)}0 JSR FADEIN0701 JSR CLOSE.CH10702 LDA #00703 STA ATRACT0704 STA RTCLOK+10705 LBL:134 LDA RTCLOK+10)}706 CMP WAIT0707 BCS LBL:1300708 LBL:132 LDA CONSOL0709 CMP #50710 BNE LBL:1330711 JMP EXIT0712 LBL)}:133 CMP #30713 BNE LBL:133.10714 LBL:133.20715 LDA #60716 LBL:133.30717 CMP CONSOL0718 BNE LBL:133.30)}719 LBL:133.10720 CMP #60721 BNE LBL:1340722 LBL:130 INC CTR10723 JMP NXT.PIC0724 DDVC0725 .BYTE "D1:*.)}?IC",EOL0726 SDVC0727 .BYTE "S:",EOL0728 *= RUNADR0729 .WORD START0730 .SET 1,0C0725 .BYTE "D1:*.(f9: FILEFILENAMEOKASECTOBYTWAIDRVNU-} FADER II MODIFIER BY PATRICK DELL'ERAANTIC MAGAZINE;@,;@,.@.@-}@K:(U +AR@1AADCAAFUAAP2.-@-}@.(Ҡɠ<'-@@'@@F&&(ҠŠƠҠɠźP6-@ -}6-@Z+6.D1:------------'-&@+(d 6.n)@x+B:,"@*@:~,!(+ A-}S6-G+!@d* @,)"@F)+!@G* @X,S6-@D -(>:,,67B:,%@,.>:,-}:6-%@D A"AUA@:~,AEB:,"@6-@ %6.+-;(@-}-E A(B:,AS6-&@-'(@---I6.7@:,K-@@K-}(ŠŠP:$@'%?, seconds-@@"##(ΠӠŠ,##(-}6##(ԠӠŠ@##(󠧭J##(堠T-}##(婠^##(h##(ԠӠӠr&6-F:B2y,&-}"@Ap|=6-&@=AApAA@Ap%%6-%@&+"@R,$@ A`-}DF:Ad,"@:6-&@%+",$AVD A`%%6-%@&+"AU,$AV A`,.}@*@,*@ +@@@+@@=AR@RF:.}A,"Ap*-@@H(宮R @ +VL( Error #F:A, at lin.}e #F:A,%AV$F:A,.V A`D1:FADERMOD.BASVL( Error #F:A, at lin,W(CXINOUT INFOMOD.BASBY ANDY BARTONANTIC MAGAZINE(;A1,;A",202}0@@D1:INFOBITS.FIL<00@@D1:INFOBITS.FILF AP$@$62}.7@- .+`FbGN<:*8=9 %#g-A(@3-@@G67%,.>:AT,K c67%<%,.>:@:"}),g ;@'@@91 @@; A(cc67@,.P:#}٠Ҡ2cc67@,.P壺ξ󺠠κ:$}<>;67Aa,.(>$FP67A)<A2,.4F:A,":%}P67A)<A2,.P4F:A,"A(467A)<A2,.CTRLZ,F:A,,67A)<A2,.:&}INVSdX%67@<@,.>:%A(,?67@<@,.>:,Q-U(X$n5 Ap@5@:'}@x;@@'-@@;-@e@@qq7@<@,4SY:(}S)7@<@,4EXE)7@<@,4OBJ)7@<@,4DATA0F97@<@,4 FRE)7@:)}<@,4 FRE<'F Ap["@!@3-@7(I@@ [-@ @,(:*}(>:%A(,>:A,7@,, -@A"@qq7@<@,4SYS)7@<@:+},4EXE)7@<@,4OBJ)7@<@,4DATAF97@<@,4 FRE)7@<@,4 FRE<:,}'F Ap["A!@3-@7(I@@&[-@&@"A"AP:-}(((>:%A(,>:A,7@,S 6-&@S7@<@,4 FRE)7@<@,4 FREAp:.}_-@@"'( more files...2@< BN@\6-&@_$8@ B*@:/}86-&@:-@@"(37@<@,4 :(T"0 (ORS$0CHANGE 'ORS' TO 'KS' FOR :0}DOS 3,U +AR@1AACA AUAA- @p A.<A:1}*F:A,"A(<A@d/ @p0!AdAU!6-@1 F:Ad,"AUA:2}2^+F:Ad,"A$)F:Ad,"@`JA+F:Ad,&@`,T @p^ A386-F:Ad,!@c:3},6-&@d86-4$F:A,"@d$6-5F:Ad,"@%6--@@d->:,07<:4},A7 @6-8,6-+%@G,%@2$+,"', AP:  A^EAdAU @p:5}5!@H* @S;6-E Ah."@!@@++.. @eAP!!!@:6}* @AP!AP$-@@$(>:%A(,:@067A@<A@,.>:%A(,: @p:7}+6-&@d!@&+6-&@+@+@@ Ap-@:8}@qq7@<@,4SYS)7@<@,4EXE)7@<@,4OBJ)7@<@,4DATAp@:9} @&6.7@:,$$7@ <@ ,0 A01-@@ $7::}<,4 ''1 Ap67%@,.7<, -@@7<,4 ' A`&67%@,.7<:;}, 0i 67%@<%@,..4-@ @A7<,0 W67%@,.7<,e6-%@i :P*67AB:<}<AV,.F67AB<AA%B:,,.P @pD? A@@1A@d;+:=}?%N F:A,@!ApX@ Ab.@.@@K:l.)@:>}.@*@xA v"@""@x@0l(>:A%, @p,@@>AR:?}P-@@Z(l-@@% B%(PRESS Π WHEND( TO)( ENTER >:@4:@},,(/(A( RUND BT-@ @"(4-@!@T( ҠF:A,:A} F:Ad,@A*A'AdAU*%W A`6-@%6-@'9-@:B}@?,E/I W,&@E-@@ %( Ϡՠ7-@@E( ϠҺ($-@&+B::C},'@,@((#-@@ (ٯΩ#$D:LAZYLOAD.BAS@E( ϠҺ($-@&+B:8P1 REM MIXADD.LST2 REM BY KARL WIEGERS3 REM ANTIC MAGAZINE15 POKE 752,125 POSITION 0,1:? #6;"GRAPHICS 1 (ANTIC 6)"35 POSI>E}TION 2,1:? #6;"This is Graphics Mode 0 (ANTIC 2)"45 COLOR 1:PLOT 0,0:DRAWTO 159,1946 COLOR 2:PLOT 0,19:DRAWTO 159,047 COLO>F}R 3:PLOT 0,9:DRAWTO 159,955 POSITION 14,2:? #6;"ANTIC MODE 5"65 COLOR 1:PLOT 0,0:DRAWTO 319,1966 PLOT 0,19:DRAWTO 319,067>G} PLOT 0,9:DRAWTO 319,975 COLOR 1:PLOT 0,0:DRAWTO 79,576 COLOR 2:PLOT 0,5:DRAWTO 79,077 COLOR 3:PLOT 0,3:DRAWTO 79,39,067<w10 GOSUB 30000:LMEM=PEEK(88):HMEM=PEEK(89)20 POKE 87,130 POKE 87,0:BYTE=80:GOSUB 3100040 POKE 87,7:BYTE=160:GOSUB 3100050BI} POKE 87,0:BYTE=800:GOSUB 3100060 POKE 87,8:BYTE=160:GOSUB 3100070 POKE 87,5:BYTE=800:GOSUB 3100029999 END30000 POKE 106,BJ}PEEK(106)-1:DL=256*PEEK(106)30010 GRAPHICS 8:POKE 559,030020 FOR I=0 TO 63:READ A:POKE DL+I,A:NEXT I30030 DATA 112,112,112BK},70,80,97,6,6,6,2,2,2,2,14,14,14,14,14,14,1430040 DATA 14,14,14,14,14,14,14,14,14,14,14,14,14,5,5,5,5,15,15,1530050 DATA 15BL},15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,10,10,1030060 DATA 10,10,10,6530070 POKE DL+4,PEEK(88):POKE DL+5,PEEK(89)BM}30080 POKE 560,0:POKE 561,DL/256:POKE 559,3430090 RETURN31000 HMEM=256*HMEM+LMEM+BYTE31010 LMEM=HMEM-256*INT(HMEM/256)310BN}20 HMEM=INT(HMEM/256)31030 POKE 88,LMEM:POKE 89,HMEM:RETURN00 HMEM=256*HMEM+LMEM+BYTE31010 LMEM=HMEM-256*INT(HMEM/256)310@= r&&INCMODELINESSLPERBPERBASBFNAMEABLOFNMEMORDLALOCSPACDLMEHMEBYTCMELEFNSEGRNUMAFOURFP}CLOSMOD@@@@@@ FQ}FR} !"#MODE MIXERBY KARL E. WIEGERSANTIC MAGAZINE GG9@FS},9@,9@,9@,9@,9@, 11;@ ,;@,;A,;@9,267@,. FT}#67@9,.267@,.I-@@"$68,-( I8,10,8,16,8,16,8,4,4,2,1,2,1,1T-@@FU}"$68,-( T40,40,40,40,20,20,10,10,20,20,20,40,40,40F-@@"$68,-( F0,0,0,0,1,2,3,4,5,6,FV}7,7,8,8'$$Display List Interrupt Routine(--@")Aq%- 2++72,138,72,169,0,162,28,141,10,2FW}12,141<&&23,208,142,24,208,104,170,104,64F?6-B6-A'6-AP36-A?6-A%P##@@FX}K:c Menudk +AR@1AYCAUA @gAAFY}k n9 #A !-@@%%"5%%@9 x9971,0,0,7,6,6,2,2,2,2,2,2,2,2,2,2,2,2,2,2,6,6,6,6,65FZ}1%@%@1AY@4@@--@-(@ mode %@F[}@!6-@@% 2-@2(@PICK AN OPTION:7@!6-@@% 7@@F\}2-@@2(1 - A NEW DISPLAY)()(2 - THE CURRENT DISPLAY&(&(3 - THE CURRENF]}T DISPLAY+(+( 4 - CURRENT DISPLAY ON DISK'('(5 - A DISPLAY FROM DISK%(%(6 - WITH THIS PROGF^}RAM@@%@@!6-A`% $-@$(@?)@6-&@HF_}"-@ "(@Q @)!@ ((@G(@ enter only 1-6Q A//F`}AA A`ApA0 +=-@@92@@@= =-Fa}@@92A(@@= (%2($&A6-AV$%%06-&AVFb}$P:'AV,A6-P:'AV,0@@$XC%6-F:A`,%AV$F:Aa,46-F:@,C6-F:@Fc},b6-$AV%$qHAR@'-@@#H(PRESS Š TO CONTINUEv$)@$@2Fd}A0{$%@$A09AA5'A@9BBA--(% SEG. MODE # LINES Fe}SCAN LINES LEFT--(% ____ ____ _______ _______________%%( -- -- -- 192A@$Ff}Create a New DisplayC +!-@@068,-?68,-C KAR@!6-A-6Fg}-?A6K6-Aw@( A +6-%@"@! + A% A@Fh}6-%@% A .(.( Enter graphics mode for segment % Ap%"A!!!@*Fi} @A Ap$' !A) A." ( ԠŠ" A@8+(How many moFj}de lines ' A+= "6-&@ $B(!*+'8,, ( AL*  ( ԠŠP:'8Fk},,* AV" 68,-68,-"6-&$8,`E-@@%$(@8-@@%E(@e$-@Fl}@%$(@j$-@(@%$(@t$Change Current DisplayZ +" Fm}/-@@L(Ϡ٠Π٠P Z AGAwA+1AR@; A G6Fn}-6-A-@H-@@%$(@8-@@%H(@8,'-@@Fo}%'(@8,;6-&8,$88,,*-@(@%7(@; ,(,( Enter segment number to change: Fp}% A!%"A !@A ## @)!%@A!6-%8,$88,,Fq}%@A!P ;")"@ 1(٠Ӡ; A P*"%@A!4; 1(ԠŠFr}͠%@&+",; A P>) A@6-&+",) A!pf! A@!A!pkA"Fs}!-@@7(@7@,A A PmA"@!-@@7(@7@,A A PpG-%Ft}@%@/68&@,-8,C68&@,-8,G u168%@,-168%@,-z06-AFu}-@06-&8,$88,,L-@@%$(@8-@@%L(@8, ,-@@Fv}%,(@8, --@(@%)(@ - #(@7@,# A P Load DisplaFw}y from Disk  +A@ :@@:( DISPLAYS STORED ON THIS DISK > A0`6-Fx}>@@D:*.DSP @6-%@ -@@% "(7@<@," A00Fy} @6-&@  P" %-@@B(ϠӠΠӠF P A -@Fz}@%( F-@@,(LOAD what display:F((0 TO RETURN TO MENU) )-@!@)40AF{}&  4  A10  6.D:67@,.: 67B:,%@,..DSPD $$(>:A%,LOADING ....N D A1`F|}*@@66-: D A1X 5  (1(ԠĠ-ERROR F:A,5 b  @F}} A0l $-@@ $@v G97@<@,4POKE)7@<@,4POKEG6-%@ <F~}7@<@ ,4END/@2'< A2    9-@@&68,-568,-9  6F}-@6-6@ ; 6.@;7@<@,4POKEA2 @7<,4,!AB%A:,/6-%@F}66.@ A2p 67B:,%@,.7<, O6-%@!B:,+AB%A:,96-%@E6-@O A2@F} A2P @ 6-F:A9,&@d %-@@%"A30   B'68@,-*68F}@,-@66-@B6-@ "6-%@"6-F:A5%, "@eA  +!@e6-&@dF}+6-%@* * "8, 68,-8,%@* A3@4 %-@@%"A4>  H 6'6-%@6F}8,-,68,-@6 A3@oSee the Current Displayp! +!"A zW@@((8(TF}he screen will be blackW(briefly while your display( is created.C(%(Press any key when you areC(done viewiF}ng the display. @@!!8,8,7,7,6,5,0,0,0,1,4,0,2,3 #Aa."-@!88,,"$'. F}Aa@ /+AR@ /AY*-@&68,-* $$6-P:'A@%@F},$A@9A6A'A7A9A8A A9@d%8@,$A@AAF})6-.-@ Ab3$$"@*8,"@Ab82-@8,2"@*"@F}AbpB6-%88,,Ab`L$$6-P:'A@%@,$A@V4AB%P:'AV,*6-%@4 AbpF}`C6-&AV$P:'AV,,AB%:6-%@C68,-j4AB%P:'AV,*6-%@4 Abpt"F}AB%8,"6-%@~    AB%@e9A`'Aa@9AY@4F}108,81,64,53,53,64U #Ac0!-@@%"9-@@U2@@-  -F}2)@#"@+# App6-@ AWSave DisplaF}y on DiskX! +!"A b@&(Enter a for this display:@((0 TO RETURN TO MENU)l-@@F}v40A 6.D: 67B:,%@,.67B:,%@,..DSP%"6-@% A`F}$($(Storing  on disk....* Au*@@G;(@*10 GOSUB 30000:LMEM=PEEK(88):HMEMF}=PEEK(89)G6-@ -@44(@ POKE 87,88,,&+8,"@,'"@(@' AqF}e116-8&@,$88&@,,%8&@,(@:BYTE=(@ :GOSUB 310006-%@F} (@ 29999 END <<(@+30000 POKE 106,PEEK(106)-1:DL=256*PEEK(106)*00(@30010 GRAPHICS F} :POKE 559,0>6-B HII(@30020 FOR I=0 TO %@:READ A:POKE DL+I,A:NEXT IR-@@F}\(6-%@((@ DATA f-@@p6(6-F:A5%@ $+&@,%,6(@u5"F}@e(@+6-%@5 As@z(@, ##(@F:A5%@ $, G9(@F}& POKE DL+4,PEEK(88):POKE DL+5,PEEK(89)G6-%@::(@' POKE 560,0:POKE 561,DL/256:POKE 559,34""(@F}%@ RETURN..(@31000 HMEM=256*HMEM+LMEM+BYTE22(@!31010 LMEM=HMEM-256*INT(HMEM/256))F})(@31020 HMEM=INT(HMEM/256)77(@&31030 POKE 88,LMEM:POKE 89,HMEM:RETURN@ AL-  F}(-(ԠŭҠF:A,V@`  ApD1:MODEMIX.BAS G9(@ DzABBBYDPEMPODPOHLOBANBOBXOBRORORROLMUSIMUSDATALDUMMJ} USERCALL.BASBY ERNIE NEJ}GUSANTIC MAGAZINE ##6-C:hԅhh8&`, 6-C:hhh̠̅ȱ̅`, 6-C:hhh̠hh`,(J}((6-C:hhhԠhhȥ֑`,26-C: hhh`,<6-C: hhhԩ`,F##6-C:hԅh%Յh%ԅ`,P##6J}-C:hԅhՅhԅ`,Z##6-C:hԅhEՅhEԅ`,d886-C:+hhh̩`Ω.hhnhh8 Ր`,nGG6J}-C::hhЅԱ΅Ցe̅ХeͅѱЅեԑХՅԥ`,xGG6-C::hh΅ԱЅՑ8̅Υͅϱ΅եԑΥՅԥJ}`,PP6-C:Chhhhh͠ҩҍ҅ҩұˍȱ˪`,;@&,0'6.<DLDJ}<<<<DD<DL 06-C:,6-B:,'@6-?:<<,D1:USERCALL.BAS,;@&,0'6.<DLDHZVATESTVNTVNTENBYTLNCOUN VTABLE1.BASBY N}BRIAN Z. WEISSANTIC MAGAZINE(2++REMARKS MAY PRECEDE THE DIM STATEMENT<;@ ,;@@,F''DIM TWON} STRING VARIABLES IN TABLEPE6.HELLO(67@<@,.EEFOR DEMONSTRATION PURPOSESd ALLN}THIS SUBROUTINE CAN BE APPENDED TO ANY PROGRAM FOR A LIST OF VARIABLES A L%6-F:A0,%AV$F:A1N},LSTART ADDRESS OF VARIABLE NAME TABLER-6-F:A2,%AV$F:A3,&@REND ADDRESS OF VARIABLE NAME TABLEN} -$% 6-F:,%CONTENTS OF LOCATION X.9 A((>:,! AP9PART OF VARIABLE NAME=6-%@B8N}&A("@6#-@0.(STRING8 APL7&A("@@#-@0-(ARRAY7 APV+(>:&A(,N}-@0+(NUMERIC~ @ A6($(PRESS ANY KEY TO CONTINUE6AdAU F:Ad,"AUN}ApAdAU A    $; + ( VARIABLE NAME2-@0;(TYPEN-(%---------N}----------------------------?-@@K6-@N$ D:VTABLE1.BAS-@0;(TYPEN-(%---------LS./oATESTVVTVVTENBYTLNCOUN VTABLE2A.BAR}SBY BRIAN Z. WEISSANTIC MAGAZINE(2++REMARKS MAY PRECEDE THE DIM STATEMENT<;@ ,;@@,FR}''DIM TWO STRING VARIABLES IN TABLEPE6.HELLO(67@<@,.EEFOR DEMONSTRATION PURPOSESd AR} A M%6-F:A4,%AV$F:A5,MSTART ADDRESS OF VARIABLE VALUE TABLEK%6-F:A6,%AV$F:A7R},KEND ADDRESS OF VARIABLE VALUE TABLE-@$% 6-F:,%CONTENTS OF LOCATION X.A) $36-R}%@4 @ A56($(PRESS ANY KEY TO CONTINUE6AdAU6 F:Ad,"AUAx7-R}AdAU A -6-%@8E-%@--+&,$@%@:(F:, > A(E B$F +R}7(%#1 #2 #3 #4 #5 #6 #7 #8C6-@F$D:VTABLE2A.BAS,.*67@> A(E B$F +Pa?@ATESTVVTSTARVVTENBYTLNCOUNADLENGTMAV} VTABLE2B.BASBY BRIAN Z. WEISSANTIC MAGAZINE(2++REMARKS CAN PRECEDE V}THE DIM STATEMENT<;@ ,;@@,F''DIM TWO STRING VARIABLES IN TABLEPE6.HELLO(67@<@,.EV}EFOR DEMONSTRATION PURPOSESd A A %%6-F:A4,%AV$F:A5,M%6-F:A@,%AV$V}F:AA,MSTART ADDRESS OF VARIABLE VALUE TABLEN%6-F:A6,%AV$F:A7,NENDING ADDRESS OF VARIABLE VALUE TAV}BLE-@$% 6-F:,%CONTENTS OF LOCATION X.A) $36-%@4 @ A56V}($(PRESS ANY KEY TO CONTINUE6AdAU6 F:Ad,"AUAx7-AdAU A -6-%@V}8>-%@--+&,$@%@:(F:, > BGG6-F:%@,%AV$F:%@,%F:A@,%AV$V}F:AA,L))6-F:%@,%AV$F:%@,V))6-F:%@,%AV$F:%@,`3-@(-@"#V}(/-@03(j   $F +7(%#1 #2 ADDRESS LENGTH DIMENSIONC6-@F$D1:VTABLE2B.BASV}3(j   $F +7(%#1 #2 ADDRESS LENGTH DIMENSIONC6-@F$D1:VTABLE2B.BAST +,AVVTDSCROFFSEFOUTHRESIZSIFIVDEZ} VTABLE3.BASBY BRIAN Z. WEISSANTIC MAGAZINE(;@,2 SIZE WIZ}LL BE CHANGED LATER<%%6-F:A4,%AV$F:A5,F- +-FOR DEMONSTRATION PURPOSESdK%6-F:A`,%AVZ}$F:Aa,K6-F:%@,%AV$F:%@,''6-&F:A@,&F:AA,$AV6-P:'AV,6-&$AZ}V%@%@6-A6-P:'AV,6-&$AV%@%@"Z}%@%@96.>:,*67A,.>:,967@,. 67@A<@E,.(%,,/-@Z}A HHTHIS ROUTINE SHOWS SOME USES FOR A STRING LOCATED IN SCREEN MEMORY +06.>:Z},!67A,.067@,.+-@@+-@4@X* 6.>:,67A,.*67@,.!-Z}$@@P ! &-@A  0-@@:06.>:,!67A,.067@,.Z}D<<67Ae<A,.!moving this string around is easyI#67Aq<Aq,.>:,C67Av<Av,.>:Z},c67A<A,.>:,67A<A,.>:,67A<A,.>:,N-@A Z}Xw -AdAa6@H67<%@4,.7%@<%@5,^-$@@0b f j t+wZ} D:VTABLE3.BASAa6@H67<%@4,.7%@<%@5,^-$@@0b f j t+wX