@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}}@5 |||DDOS DOSDOS SYS }}} 77}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8}VATESTVNTVNTENBYTLNCOUN VTABLE1.BASBY ,}BRIAN Z. WEISSANTIC MAGAZINE(2++REMARKS MAY PRECEDE THE DIM STATEMENT<;@ ,;@@,F''DIM TWO-} STRING VARIABLES IN TABLEPE6.HELLO(67@<@,.EEFOR DEMONSTRATION PURPOSESd ALL.}THIS SUBROUTINE CAN BE APPENDED TO ANY PROGRAM FOR A LIST OF VARIABLES A L%6-F:A0,%AV$F:A1/},LSTART ADDRESS OF VARIABLE NAME TABLER-6-F:A2,%AV$F:A3,&@REND ADDRESS OF VARIABLE NAME TABLE0} -$% 6-F:,%CONTENTS OF LOCATION X.9 A((>:,! AP9PART OF VARIABLE NAME=6-%@B81}&A("@6#-@0.(STRING8 APL7&A("@@#-@0-(ARRAY7 APV+(>:&A(,2}-@0+(NUMERIC~ @ A6($(PRESS ANY KEY TO CONTINUE6AdAU F:Ad,"AU3}ApAdAU A    $; + ( VARIABLE NAME2-@0;(TYPEN-(%---------4}----------------------------?-@@K6-@N$ D:VTABLE1.BAS VTABLE1.BASBY S./oATESTVVTVVTENBYTLNCOUN VTABLE2A.BA\6}SBY BRIAN Z. WEISSANTIC MAGAZINE(2++REMARKS MAY PRECEDE THE DIM STATEMENT<;@ ,;@@,F\7}''DIM TWO STRING VARIABLES IN TABLEPE6.HELLO(67@<@,.EEFOR DEMONSTRATION PURPOSESd A\8} A M%6-F:A4,%AV$F:A5,MSTART ADDRESS OF VARIABLE VALUE TABLEK%6-F:A6,%AV$F:A7\9},KEND ADDRESS OF VARIABLE VALUE TABLE-@$% 6-F:,%CONTENTS OF LOCATION X.A) $36-\:}%@4 @ A56($(PRESS ANY KEY TO CONTINUE6AdAU6 F:Ad,"AUAx7-\;}AdAU A -6-%@8E-%@--+&,$@%@:(F:, > A(E B$F +\<}7(%#1 #2 #3 #4 #5 #6 #7 #8C6-@F$D:VTABLE2A.BAS,.*67@ VTABLE2A.BA\a?@ATESTVVTSTARVVTENBYTLNCOUNADLENGTMA`>} VTABLE2B.BASBY BRIAN Z. WEISSANTIC MAGAZINE(2++REMARKS CAN PRECEDE `?}THE DIM STATEMENT<;@ ,;@@,F''DIM TWO STRING VARIABLES IN TABLEPE6.HELLO(67@<@,.E`@}EFOR DEMONSTRATION PURPOSESd A A %%6-F:A4,%AV$F:A5,M%6-F:A@,%AV$`A}F:AA,MSTART ADDRESS OF VARIABLE VALUE TABLEN%6-F:A6,%AV$F:A7,NENDING ADDRESS OF VARIABLE VALUE TA`B}BLE-@$% 6-F:,%CONTENTS OF LOCATION X.A) $36-%@4 @ A56`K}ABBBYDPEMPODPOHLOBANBOBXOBRORORROLMUSIMUSDATALDUMMXD} USERCALL.BASBY ERNIE NEXE}GUSANTIC MAGAZINE ##6-C:hԅhh8&`, 6-C:hhh̠̅ȱ̅`, 6-C:hhh̠hh`,(XF}((6-C:hhhԠhhȥ֑`,26-C: hhh`,<6-C: hhhԩ`,F##6-C:hԅh%Յh%ԅ`,P##6XG}-C:hԅhՅhԅ`,Z##6-C:hԅhEՅhEԅ`,d886-C:+hhh̩`Ω.hhnhh8 Ր`,nGG6XH}-C::hhЅԱ΅Ցe̅ХeͅѱЅեԑХՅԥ`,xGG6-C::hh΅ԱЅՑ8̅Υͅϱ΅եԑΥՅԥXI}`,PP6-C:Chhhhh͠ҩҍ҅ҩұˍȱ˪`,;@&,0'6.<DLDXJ}<<<<DD<DL 06-C:,6-B:,'@6-?:<<,D1:USERCALL.BASXZ($(PRESS ANY KEY TO CONTINUE6AdAU6 F:Ad,"AUAx7-AdAU A -6-%@`L}8>-%@--+&,$@%@:(F:, > BGG6-F:%@,%AV$F:%@,%F:A@,%AV$`M}F:AA,L))6-F:%@,%AV$F:%@,V))6-F:%@,%AV$F:%@,`3-@(-@"#`N}(/-@03(j   $F +7(%#1 #2 ADDRESS LENGTH DIMENSIONC6-@F$D1:VTABLE2B.BAS`O}ATESTVVTSTARVVTENBYTLNCOUNADLENGTMA` +,AVVTDSCROFFSEFOUTHRESIZSIFIVDEdQ} VTABLE3.BASBY BRIAN Z. WEISSANTIC MAGAZINE(;@,2 SIZE WIdR}LL BE CHANGED LATER<%%6-F:A4,%AV$F:A5,F- +-FOR DEMONSTRATION PURPOSESdK%6-F:A`,%AVdS}$F:Aa,K6-F:%@,%AV$F:%@,''6-&F:A@,&F:AA,$AV6-P:'AV,6-&$AdT}V%@%@6-A6-P:'AV,6-&$AV%@%@"f} 34( 6 AXLPB0NZ<( ((@&@d8"( V} +AdAU0@@70@@Q0@@c@@W}u@@7{(}AR@++(#++(#| ANTIC MONTHLY DISK MAY 198X}5 |++(#++(# @ -@AY} $ GG;@@,;@ ,;@@,;A,;@,;@@, "D1:MENU" &&@@Z}D:*.* 6,6." 6 @0i6-%@(6.7@<@,A67@ <@ ,.[}.i67@<@,.7@<@,3 6.|67B:,%@,.367B:,%@,.G67@<@,.(--\}@B:,:7<,4 G67<,..] 6.=:, @D67@<@,.7@<@,]67@<@]},.0$@(''7@<@,4FREE@- @ 2() <@F''7@^}<@,4FREE@K @ P(7@<@,)|U @0W'!-@6+'@,%@' |Z+_}+(#| |[ ( |  |\++(#d**(" S`}elect HELP.BAS for information.xAR[@@9'-@@#C( FILE NUMBERM Aa}0Q[ BP:,A00"@&6.7@<@,0 AELB6.7+&@,$@%@<+b}&@,$@%@,L B37@<@,4 36.7@<@,!7@<@,4DOS!.0c} 6.-@B:,07<,4 AH67B:,%@,.7<,   6.! 6.D1:!67B:,%@,.?d}AR@'-@@"?  LOADING ? A@@91@@5%? BK-e}@@"-  CANNOT RUN 7 @A BK A0D:MENUVTABLE3 .BASLP tEiͩkΩ͙kCop j`j {j`Hi͝Νh` g}L"UNEM:D"NURͩkΩ͙kCop j`j {j`Hi͝Νh` iwLINEAxx ;A ,;@,; (}@;@@ D:DOC.TXTi} A(@2lB:,!@-7@<@,4XXX0(3(E-@@"X( ӠΠ\b(}j}l @@<( @@da@ B*-@@"R("ΠҠՠҠˠҠVa%D:MENUk}D:HELPLINEAxx ;A ,;@,; (}@;@@ D:DOC.TXT WELCOME TO THE ANTIC MONTHLY DISK Most of the m}programs on this disk arewritten in Atari BASIC. Some requirespecial hardware or specific instruc-tions. We recommend you n}refer to thecorresponding issue of ANTIC forcomprehensive documentation. If youwish to order a back issue, or needsubscrio}ption information, contact usat (415) 957-0886 or, for credit cardorders, dial (800) 227-1617, Ex. 133.In California,(800)p} 722-3545, Ex. 133XXXThe menu that appeared on the screenwhen you booted the disk will onlyrun programs with a .BAS exq}tender.If you try to run a program and the response is 'cannot run Filename',then check the file extender withthe followir}ng list:XXX.BAS BASIC saved program, use menu RUN or LOAD and RUN..LST BASIC listed program, ENTER thes}n RUN..EXE Assembly language 'Load and Go' file. Remove BASIC, boot DOS, type L then enter the filenat}me..ASM Assembly language source code from Atari Assembler Editor. Must be assembled..M65 Same as .ASM onu}ly MAC/65..SYN Same as .ASM only Synassembler.AMC Same as .ASM only AMACXXX.OBJ Machine language object file. v} Same as .EXE but not 'Load and Go'. Refer to corresponding article..ACT ACTION! source code..SYS Resw}erved for DOS system files..DSP Display, a sample BASIC program. ENTER, then RUN..LGO Logo language, reqx}uires Logo cartridge..TXT Text file. Usually accessed by another program.XXXAll programs from ANTIC issy}ues datedprior to August 1984 were reproducedfrom ANTIC's Archive. We have up-dated them from our HELP columns and most az}re compatible with the XLmachines. We have worked to insurethat our programs operate as pub-lished, but we consider all ou{}r software listings to be works in progress which we encourage you, thereader, to personalize and enhance.Good luck, a|}nd ENJOY! -ANTIC EDich we encourage you, thereader, to personalize and enhance.Good luck, a2; AMAZING; BY DAVID PLOTKIN; ANTIC MAGAZINEMODULE CARD SCRLOC=88,HIMEM=$2E5, PM_BASEADR,ADRES,ADRESB,SC~}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, } PMHITCLR=$D01E,DMACTL=$22F, GRACTL=$D01D,PMBASE=$D407, PRIORITY=$26F,X0,Y0,COUNT=[0], LV=[5],FT=[150],CD=[20]}, PCLRM=711,COLR0=708,LOUD=[0], COLR1=709,COLR2=710,COLR4=712, FATE=53770,CURSH=752, TXTROW=656,TXTCOL=65}7,LVL=[1], SND1=$D20F,SND2=$D208 BYTE ARRAY YLOCL(80), YLOCH(80),RSH2(160), PMHPOS(8)=$D000, } 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)=}$D008,PLPTR, PM_MISMASK(4)=[$FC $F3 $CF $3F], PCOLR(4)=704,PMTOPF(8)=$D000, PMTOP(8)=$D008,PFCOL(8),PCOL(8)B}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 }$FFFF 0]RETURN (VALUE((PORTS(PORT)&$C) RSH 2))INT FUNC VSTICK(BYTE PORT)BYTE ARRAY PORTS(4)=$278INT ARRAY VALUE(4)=[0 1 }$FFFF 0]RETURN (VALUE(PORTS(PORT)&3))PROC UPDATE()TXTROW=1 TXTCOL=12 PRINTC(SCORE)RETURNPROC UPDATESHIP()BYTE LOOP5T}XTROW=1FOR LOOP5=1 TO 5 DO TXTCOL=31+LOOP5IF LV>=LOOP5 THEN PRINT("") ELSE PRINT(" ")FI OD RETURNPROC DRAW7(BYTE X,Y},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&3})&CM(CLR1)))RETURNPROC FASTDRAW(BYTE ARRAY PICTURE BYTE WIDTH,HEIGHT,XX,YY)BYTE LCTR1,LCTR2 CARD LCTR3FOR LCTR}1=0 TO HEIGHT-1DO LOW=YLOCL(YY+LCTR1) HIGH=YLOCH(YY+LCTR1) LCTR2=XX+WIDTH LCTR3=(LCTR1+1)*WIDTH-1 DO LINE(LCTR2)=PICTUR}E(LCTR3) LCTR3==-1 LCTR2==-1 UNTIL LCTR2=XX ODOD RETURNPROC PMGRAPHICS()ZERO(PMHPOS,8) ZERO(PM_WIDTH,5) DMACTL=$3E} PCOLR(0)=52PM_BASEADR=(HIMEM-$800)&$F800PMBASE=PM_BASEADR RSH 8HIMEM=PM_BASEADR+768PRIORITY==&$C0%17 GRACTL=3RETURNCA}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 ARRA}Y PLAYADRPLAYADR=PMADR(N)IF N<4 THEN ZERO(PLAYADR,$100) ELSE N==-4FOR CTR=0 TO $100-1DO PLAYADR(CTR)==&PM_MISMASK(N) OD}FIRETURNPROC WINDOW()BYTE LOOP5TXTROW=0 TXTCOL=0 CURSH=1PRINT("") FOR LOOP5=}1 TO 2 DOTXTROW=LOOP5 TXTCOL=0 PRINT("|")TXTCOL=38 PRINT("|")OD TXTROW=3 TXTCOL=0PRINT("}") TXTROW=1 TXTCOL=3 PRINT("SCORE: ")UPDATE() TXTCOL=20 PRINT("MEN LEFT: ")UPDATESHIP()RETURNPROC MOVEIT(B}YTE ARRAY SHAPE BYTE WHICH,NUM,XX,YY)ADRES=PMADR(WHICH)+YYMOVEBLOCK(ADRES,SHAPE,NUM)PMHPOS(WHICH)=XXRETURNP}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 DOPX}(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 L2}=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)}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 TO} 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 }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 DO}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 RE}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==}&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(}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 THERER}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=}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; ANTIC MAGAZINEMODULE CARD SCRLOC=88,HIMEM=$2E5, PM_BASEADR,ADRES,ADRESB,SC"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!0},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,!1}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!2}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!3}BBBBEBBBBBBBEBBBBBBBEBBBBBEBBBBBBBEBBBBBBBEBBBBBBBEBBBBBBBAAAAAz672,1338,2075,3043LLAAAAABEBEBBEBBBEEBBCBBBEBBEBBBEB!4}ECEBBEBBBBCBBBEBBCBBBEBEBBBBEBBEBAAAAA652,1290,2222,3113LLAAAAABBCBEBGBCBFBECDCCEGCCEFBCECDEBEFBCBECBBEDECBBBDBEBBC!5}EBCDEBFBAAAAA721,1025,3034,3169LLAAAAABBCBEBBBCBFBECBCCBGCCBFBCBBBEBEFBCBEBBBEDBCBBBDBEBBCBBCDBBFBAAAAA924,20!6}42,3536,2129LLAAAAABBBBEEEBBBEEEBBBEEEBBBEEEBBBEEEBBBEEEBBFBBEEEBBBEEEBBBEEEBBBAAAAA764,1290,2222,3113LLAAAAABF!7}FFFGBGFFFEBGFFFFBFFFFFBFFFFFBFFBFEBEFFFFBFFBGBFBCEDDEFFFFBAAAAA811,1324,4108,2914LLAAAAABFGGGGFFFGGDGGCCCECEGEEGBBB!8}BBEGBBBBBFEFGBGGEEBBBBBEFEFGFGFBBAAAAA987,1115,3479,3194LLAAAAABGEGCBGBBCBDBEGBBDBBCBGEBBBBGBBDBCBBGBBDDBBGEGBBCBBB!9}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!?}ASMTSKFCT2MELNYNXXYNHIOFUCKYOSBBNTESHL 0 AB ARSMAKER.BAS$$- ABC'S OF THE ATARI COMPUTERS!!REPR%A}INTED IN ANTIC MAGAZINE(% +%;A(,;@,2#(#( This program creates a<$$(disk file called AUTOR%B}UN.SYSFM-(%which will RUN a SAVEd BASIC program.J(when the disk is booted.M(P++(# To create an AUTORUN.SYS file fo%C}rZDD( the program >:@4,D:MENU>:@4,, for example,d0-(%you'd type MENU and press [RETURN].0(nR(( %D} The resulting AUTORUN.SYS fileO("would RUN any program called MENU.R(x)(%(ENTER FILENAME TO AUTORUN)z!67@%E}<@,.RUN D:A67@<@,.>:@4,]67@<@%B:,,.z67@%B:,,.>:@4,..@%F}@ D:AUTORUN.SYS(@6-A#%B:,&@*@*@@%G}-@A#"1"@d'*@B:,&@1 A0*@ -B:,@6@%H}*@@:7<,, (@@",%%162,0,189,26,3,201,69,240,5,2326**232%I},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,%J}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%K},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,%L}00,0,0,0,0,0,0,0,0,76 0,0,0 D:ARSMAKE.BAS ARSMAKER.BAS$$- ABC'S OF THE ATARI COMPUTERS!!REPR$< -.FiNUMACNUMPW AUTODIAL.BASBY CHARLES JACKSONANTIC MAGAZINE(1 +)N}AA1A @2&&;@,;@ ,;@%,<(ŠF(̠)O}ҠP(( by C. JacksonZ( (( Phone numberd(( Access Numbern*((Password*A)P}@fxF((Insert TSCOPE disk.F(#Press [START] to write AUTODIAL.SYSB2y@ F:B2y,@)Q}A@:@:@@D:AUTODIAL.SYS(@(@^C]:(@]:)R}@8A5(}AUTODIAL.SYS file created.8( AP8-@@ D:TSCOP)S}E.OBJ8@++(#Remember to change the name of your''(TSCOPE.OBJ file to AUTORUN.SYS.D1:AUTODIAL.B)T}ASDIAL.BAS0JB AUTODIAL.BASBY CHARLES JACKSONANTIC MAGAZINE(1 +(#0cd<_rBBBBBNUCHSEDLCHCLXFRMXFS-V} -W} BEER PARTY ATARIBY DR. JOHN FERGUSONANTIC MAGAZINE2;@,dH@-X}.@@K:HOPEN KEYBOARD FOR INPUTnQ +((=(%DO YOU WANT TO ADD TO A PREVIOUS FILE@-Y}(C(Q((Y/N)? xn)@@(6-46-@6-L6-X6-d6-n A-Z}Q( ( ((H(4MAKE SURE 'BEERDATA' IS IN DRIVE AND PRESS ANY KEY.K(N(Q()@6@6@-[}@ D:BEERDATA9@%@9RETRIEVE OLD DATA +@CLEAR MEMORY$ B-\}$CHANGE CHARACTER SETs +A A61A@CA@UAR@sSET COLORS A-]}ND BLANK CURSORAV'AV>%6-F:A`,%AV$F:Aa,>CUSTOMIZE DISPLAY LIST)-@@ %-^}%@) o%@@+%@@G%@@f%@[%@!@o%@"@-_}E%@'@e.%@(F:A`,E%@)F:Aa,!:@'-:SET FIRST SC-`}REEN$]@@](@: #$ '* %& [].$$(@ rate beers-a} 1 to 98'@'-@@V))(!Poor Average Fine`--(% -b}j0-(% 1 2 3 4 5 6 7 8 90(t))(! (Enter +5+ if not tasted)~A@@'-@-c}@A(@ BEER ++ - ?4( ( (4(# (Push spacebar to see results) A = A!6-&@H-d}--@0@3(= A = A!6-&@H--@0@3(= A = A!6-&@H-e}--@0@3(= A = A!6-&@H--@0@3(= A  A!6-&@H-f}* SET SECOND SCREEN (}-]@@](@: sampled #$ '* -g} %& beers []#$$(@ YOUR RATINGS ARE:('@'-@230( BEER +A+ =-q}b'DOS SYSb +VTABLE1 BASbUMENU bfAUTORUN SYSbhHELP BASblDOC TXTbI}AMAZE ACTbAAMAZE EXEb9ARENA BASb @ARSMAKE BASbMAUTODIALBASb-UBEER BASb&FADERII BASbFADERII EXEbbFADERII M65bFADERMODBASb-INFOMOD BASb0INFONEW BASb&HLAZYLOADBASbnMIXADD LSTbrMIXDEMO DSPbMyMODEMIX BASbCUSERCALLBASb5VTABLE2ABASb =VTABLE2BBASb PVTABLE3 BAS  3(<30( BEER +B+ =  3(P30( BEER +C+ =  3(d-r}30( BEER +D+ =  3(x30( BEER +E+ =  3(E@@'-@-s}@E(@ CORRECT? (:)$)@$@A9 6-%6-%6-%#6-%+6-%96-t}-%@@6@@ D:BEERDATAC(@P(@](@j(@w(@-u}(@@SAVE DATASET THIRD SCREENC%@!@+%@"@1(}C--v}]@@](@: #$ '* %& [](@ N =-w} 9@'@9-@0(BUSCH 6-' A"0BEER B( -x} |"0(BLACK LABEL 6-' A"0BEER D,( |60(MILLER 6-' A"0BEER E@-y}( |J0(MEISTER BRAU 6-' A"0BEER AT( |^0(PABST LIGHT 6-' A"-z}0BEER Ch//(' r//(' 1 2 3 4 5 6 7 8 9((( -{} Average Score0( (0(" (Press spacebar to enter data)$)@$@ASHOW SCORE RO-|}UTINE B A% 6--@3@% A#&% 6--@3@% A#0% 6--@3@-}}% A#:% 6--@3@ % A#D% 6--@3@% A#N AGET KEY SUBROUTINE-~}))@"@2') A0 @I)!@W&(>:AS,0 A $4ENTER DATA SUBROUTINE>-}-@5@!(&@HC2@@@@W-@@P[ }2--}@5@(?$GRAPHING SUBROUTINE"($6-P:+',$@,"@(!$%-}-@(! "(!%$SCORE FORMAT SUBROUTINE (( 6-+',%>P 6.=:,$ 2B:,!@((7-}@<@,2 A#. B:,"@(08 B:,"@(.00V () $'CHARACTER SET SUBROUTINE-}'u AF:A,&@*+K6-+F:A,%@,$AVN(u("ONE MOMENT; ALTERING CHARACTER SET'56--}'AV6-)A5A$'D;@(,#B0.-@@(2"@67<,.>:,D .'CC104,16-}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'-} #BV'""6@$`'1-@"-%$@%1 j' Bpt'!!1,124,124,56,56,56,16,16-},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,254-},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'59-},7,7,3,3,3,1,1,31'$$61,192,192,128,128,128,0,0,240'-1 D1:BEER.BASAhͨ-}cd<_rBBBBBNUCHSEDLCHCLXFRMXFS,+,QfFNTEMPARFLALANUMHNUMLAADHADLI1} FADERII.BASBY PATRICK DELL'ERAANTIC MAGAZINE());@ ,1};@ ,;@,2=@+((!(+ B=A@<8 (1. Insert a DOS 2.0 disk8( in1}to your drive.FN()(2. Type in the filename of theG( resulting object file.J(NP APZB:, @1}AdTT7@<@,4D*+7@<@,4:)7@<@,4:,A@n267@<@,.D:,671}@,.26.xI A04@@ D:DOS.SYS?@I A@F($(ԠӠˠ1}8-@AP< F @P? AP*@@5@? ApA((̠Š1}3-@AP7 A @PA(+( 嬠76-A A# "6-@1};, A0 A>6-@!A@>@@ 6."-@B:,1}@<$*@A:7<%@,,( 2 A< A=!67<,.>:A:7<%@,,,/6-%@3 = A1}$6-P:'AV,$6-&$AV @@- 6-C:,6-P:'AV,-6-&$AV[6-1}AH#%@@1%@?%@M%@[%@ 6-?:C:hhhLV,<@,1@1} A1( }Ġ 988cc25525500006225106200204923022407600806316925513322403200206216622422402621}40038224013240009224cc007208239133234076011062133205032002062133206032002062133207032002062133208032002062133204076cc1}011062169000133236133230165088133224133228165089133225133229032008063072162000134227041128133cc235104041127133226208010031}2008063133227032008063133226198226165235208042032008063133233076158cc06219822616925519722620824519822716925519722720823721}40195198226169255197226208008198227169255cc1972272401790320080631332331690021972342400822402091652331600001452240241690801}101224133224169cc000101225133225230230169096197230208047169001197236208024024169001101228133228133224169000133cc236131}3230101229133229133225076240062230236024169040101228133224169000133230101229133225165235cc24017620814716523316000014522421}52062247063230224208002230225165235240158208236162016169000157cc0720031570730030320862280480010961041040761350651620161691}012157066003076086228157069003152157cc068003169003157066003032086228048001096032029063108010000001008064002016128004032161}5088133128cc133130169000133187169007197187176001096166187169000141040032169254205040032144019138072174040cc03218804301}32104170032184063238040032076095063138072162255188043032104170032184063173011032048cc0411641871920022080061852030001411961}002192003208006185203000141197002192004208006185203000141cc198002192005208005165204141200002230187076081063173009032133121}9173010032133131169000141041032cc16902920504103217600109617712806106306320801018906306307325504913007622606301713014513021}30129 cc230131232138041007170238041032076199063173001062141185248063243064065162001134009134203202142 cc0680021340651381}157043032232208249142040032169255133133077040032072133132010176005070133076025cc064173010210037133197132240002176245141041}2032170189043032168104072170189043032174042032157043cc03210417015215704303223804003223020320819416209603203106316901215701}74003169008157075003160193cc1690650320390631691281412000021730480021331281730490021331291600031690781451281600061690141451}cc128200192099208247169078145128200200200177128201015208007169014145128200208243141010032165089cc141010032173010032051}6233032141009032173009032133089169001133186032029063169006157074003169000cc15707500316018416906503203906313218716518619711}87144036162016169019157068003169032157069003169cc0201570720031690001570730031690051570660030320862280481922301872082140321}029063244064195065173cc020032201032208178162002189184065157018032202016247232224008240007189021032201032208244172029cc1}032169046157021032152232157021032133203169073232157021032169067232157021032169155232157021032 cc03202906316900415707400311}69000157075003160018169032032039063173009032133089169007162016157066"cc0031642031920802080030760070621650881570680031650891}157069003169000157072003169030157073003032$cc051063032008063133204032008063133205032008063133206032008063133207032071063031}2029063169000133&cc077133019165019205000062176025173031208201005208003076057063201003208007169006205031208208251 WW20101}06208224230186076177064068049058042046063073067155083058155224002225002243063 D:FADERII.BAS0c>>1L? >& L > > > > >L >XY ?H)h) ? ?* ?L>5} ?RѥPee`/eeL>(ee5}Г>?HI V0`hhLA BLVEDB V0` ?l @ XŻ`( ( H( +5} h ?( L_?H+ h ? 0)̍LQ? ) ) `=?? ??I1L?5})) L?>?@A ʎDA+ ( M( H FL@ %ń* + hH+ * + h+ ( ¢` ? JKA '?5}01NcNȱ Y 8 Y ?JKA '?Ż$D EH5}IB V0 ?@A вA   .  ˩I C  ?JK '? YBP5}L>XDYEHI 3? ? ? ? ? G? ?M>L9?L@D1:*.?ICS:?* ?L>4q0100 ;FADERII.M650101 ;BY PATRICK DELL'ERA0102 ;ANTIC MAGAZINE0104 ;0105 PROGRAM = $3E000106 BUFFER = $20070107 ;Extern9}al reference equates0108 LBL:105 = BUFFER+20109 LBL:106 = BUFFER+30110 LBL:091 = BUFFER+40111 LBL:064 = BUFFER+$0B0112 L9}BL:121 = BUFFER+$0D0113 LBL:125 = BUFFER+$0E0114 LBL:127 = BUFFER+$160115 LBL:080 = BUFFER+$210116 LBL:107 = BUFFER+$2209}117 LBL:083 = BUFFER+$230118 LBL:078 = BUFFER+$240119 ;End of external references0120 ;0121 ;System equates used0122 BOO9}T = $090123 DOSVEC = $0A0124 RTCLOK = $120125 SOUNDR = $410126 ATRACT = $4D0127 SAVMSC = $580128 SDLSTL = $02300129 S9}DLSTH = $02310130 COLDST = $02440131 RUNADR = $02E00132 COLOR0 = $02C40133 COLOR1 = $02C50134 COLOR2 = $02C60135 COLOR49} = $02C80136 ICCOM = $03420137 ICBAL = $03440138 ICBAH = $03450139 ICBLL = $03480140 ICBLH = $03490141 ICAX1 = $034A019}42 ICAX2 = $034B0143 CONSOL = $D01F0144 RANDOM = $D20A0145 CIOV = $E4560146 EOL = $9B0147 ;End of system equates01489} ;Zero-page equates0149 PIC.CTR = $E00150 N09 = $EA0151 CTR1 = $BA0152 CTR2 = $BB0153 SVCOLR = $CC0154 PICTYPE = $C9}B0155 N16 = $EC0156 N17 = $E60157 N18 = $E40158 N19 = $E10159 N22 = $E30160 N23 = $EB0161 N24 = $E201629} N27 = $E90163 N41 = $800164 N42 = $810165 N54 = $820166 N55 = $830167 N59 = $840168 N60 = $850169 ;End 9}of zero-page equates0170 .PAGE "Main Program 11/10/84"0171 ;0172 ;Program Start0173 ; First two bytes are variables9}0174 ; indicating the Pause length0175 ; and the Drive # pictures are0176 ; read from.0177 ;0178 *= PROGRAM0179 WAI9}T0180 .BYTE 20181 DRNUM0182 .BYTE '10183 ;0184 ;Routine to load compressed0185 ; files.0186 ;0187 READ.HDR019}88 INC PIC.CTR0189 JMP GET.BYTE0190 PIC.LDR0191 LDA #$FF0192 STA PIC.CTR0193 LBL:0070194 JSR READ.H9}DR0195 LDX PIC.CTR0196 CPX #$1A0197 BEQ LBL:0060198 CPX #$0D0199 BEQ SVCOLR.PIC0200 CPX #702019} BNE LBL:0070202 STA N090203 JMP LBL:0070204 SVCOLR.PIC0205 STA SVCOLR+10206 JSR READ.HDR0207 S9}TA SVCOLR+20208 JSR READ.HDR0209 STA SVCOLR+30210 JSR READ.HDR0211 STA SVCOLR+40212 JSR READ.HDR0219}3 STA SVCOLR0214 JMP LBL:0070215 LBL:006 LDA #00216 STA N160217 STA N170218 LDA SAVMSC0219 STA 9}PIC.CTR0220 STA N180221 LDA SAVMSC+10222 STA PIC.CTR+10223 STA N18+10224 LBL:030 JSR GET.BYTE0225 P9}HA 0226 LDX #00227 STX N220228 AND #$800229 STA N230230 PLA 0231 AND #$7F0232 STA N2402339} BNE LBL:0250234 JSR GET.BYTE0235 STA N220236 JSR GET.BYTE0237 STA N240238 LBL:025 DEC N240239 9}LDA N230240 BNE LBL:0260241 JSR GET.BYTE0242 STA N270243 LBL:0290244 JMP LBL:0280245 LBL:032 DEC N24029}46 LDA #$FF0247 CMP N240248 BNE LBL:0290249 DEC N220250 LDA #$FF0251 CMP N220252 BNE LBL:029}90253 BEQ LBL:0300254 LBL:036 DEC N240255 LDA #$FF0256 CMP N240257 BNE LBL:0260258 DEC N220259 9} LDA #$FF0260 CMP N220261 BEQ LBL:0300262 LBL:026 JSR GET.BYTE0263 STA N270264 LBL:028 LDA #20265 CMP N9}090266 BEQ LBL:0310267 LBL:035 BEQ LBL:0320268 LDA N270269 LDY #00270 STA (PIC.CTR),Y0271 CLC 02729} LDA #$500273 ADC PIC.CTR0274 STA PIC.CTR0275 LDA #00276 ADC PIC.CTR+10277 STA PIC.CTR+10278 9} INC N170279 LDA #$600280 CMP N170281 BNE LBL:0330282 LDA #10283 CMP N160284 BNE LBL:0340285 9} CLC 0286 LDA #10287 ADC N180288 STA N180289 STA PIC.CTR0290 LDA #00291 STA N160292 STA9} N170293 ADC N18+10294 STA N18+10295 STA PIC.CTR+10296 JMP LBL:0330297 LBL:034 INC N160298 CLC 0299}9 LDA #$280300 ADC N180301 STA PIC.CTR0302 LDA #00303 STA N170304 ADC N18+10305 STA PIC.CTR9}+10306 LBL:033 LDA N230307 BEQ LBL:0350308 LBL:037 BNE LBL:0360309 LBL:031 LDA N270310 LDY #00311 STA (PIC.9}CTR),Y0312 INC PIC.CTR0313 BNE LBL:031.10314 INC PIC.CTR+10315 LBL:031.10316 LDA N230317 BEQ LBL:039}5 ;Forced branch0318 BNE LBL:037 ;0319 ;0320 ;CIO utilities0321 ;0322 GET.BYTE0323 LDX #$100324 LDA #00329}5 STA ICBLL,X0326 STA ICBLH,X0327 JSR CIOV0328 BMI LBL:0380329 RTS 0330 LBL:038 PLA 0331 PLA 09}332 JMP MIC.10333 CLOSE.CH10334 LDX #$100335 CLOSE.CH60336 LDA #$0C0337 STA ICCOM,X0338 JMP CIOV039}39 OPEN.10340 STA ICBAH,X0341 TYA 0342 STA ICBAL,X0343 LDA #30344 STA ICCOM,X0345 LBL:040 JSR CIOV9}0346 BMI EXIT0347 RTS 0348 EXIT JSR CLOSE.CH10349 JMP (DOSVEC)0350 ;0351 ;Picture fader routine0352 ;0353 9}MSKTBL0354 .BYTE $01,$08,$40,$020355 .BYTE $10,$80,$04,$200356 FADEIN0357 LDA SAVMSC0358 STA N410359 9} STA N540360 LDA #00361 STA CTR20362 LBL:104 LDA #70363 CMP CTR20364 BCS LBL:0870365 RTS 0366 LBL9}:087 LDX CTR20367 LDA #00368 STA LBL:0800369 LBL:090 LDA #$FE0370 CMP LBL:0800371 BCC LBL:0880372 T9}XA 0373 PHA 0374 LDX LBL:0800375 LDY LBL:078,X0376 PLA 0377 TAX 0378 JSR LBL:0890379 INC L9}BL:0800380 JMP LBL:0900381 LBL:088 TXA 0382 PHA 0383 LDX #$FF0384 LDY LBL:078,X0385 PLA 0386 T9}AX 0387 JSR LBL:0890388 LDA LBL:0910389 BMI LBL:0920390 LDY CTR20391 CPY #20392 BNE LBL:0930399}3 LDA SVCOLR-1,Y0394 STA COLOR00395 LBL:0930396 CPY #30397 BNE LBL:0960398 LDA SVCOLR-1,Y0399 S9}TA COLOR10400 LBL:0960401 CPY #40402 BNE LBL:0990403 LDA SVCOLR-1,Y0404 STA COLOR20405 LBL:0990406 9} CPY #50407 BNE LBL:0920408 LDA SVCOLR0409 STA COLOR40410 LBL:092 INC CTR20411 JMP LBL:1040412 LBL:0899}0413 LDA LBL:1050414 STA N420415 LDA LBL:1060416 STA N550417 LDA #00418 STA LBL:1070419 LBL:1139} LDA #$1D0420 CMP LBL:1070421 BCS LBL:1080422 RTS 0423 LBL:108 LDA (N41),Y0424 AND MSKTBL,X0425 BNE9} LBL:1110426 LDA MSKTBL,X0427 EOR #$FF0428 AND (N54),Y0429 JMP LBL:1120430 LBL:111 ORA (N54),Y0431 LBL:9}112 STA (N54),Y0432 INC N420433 INC N550434 INX 0435 TXA 0436 AND #70437 TAX 0438 INC LBL:9}1070439 JMP LBL:1130440 ;0441 ;Program Entry0442 ;0443 START0444 LDA DRNUM ;User alterable0445 STA DDVC+9}1 ;drive #0446 LDX #1 ;Tells system0447 STX BOOT ;no Coldstart0448 STX PICTYPE ;and initializes0449 9} DEX 0450 STX COLDST0451 STX SOUNDR ;No disk sound0452 ;0453 ;Build random table for fading0454 ;picture.049}55 ;0456 LBL:079 TXA 0457 STA LBL:078,X0458 INX 0459 BNE LBL:0790460 STX LBL:0800461 LBL:0810462 L9}DA #$FF0463 STA N600464 EOR LBL:0800465 PHA 0466 STA N590467 LBL:062 ASL A0468 BCS LBL:0610469 9} LSR N600470 JMP LBL:0620471 LBL:061 LDA RANDOM0472 AND N600473 CMP N590474 BEQ LBL:0630475 BCS LBL9}:0610476 LBL:0630477 STA LBL:0830478 TAX 0479 LDA LBL:078,X0480 TAY 0481 PLA 0482 PHA 0483 9} TAX 0484 LDA LBL:078,X0485 LDX LBL:0830486 STA LBL:078,X0487 PLA 0488 TAX 0489 TYA 0490 9}STA LBL:078,X0491 INC LBL:0800492 INC PICTYPE0493 BNE LBL:0810494 ;0495 ;Build screen dislpay list by0496 ;9}closing channel 60497 ;0498 LDX #$600499 JSR CLOSE.CH60500 ;0501 ;Then open GRAPHICS 8+160502 ;0503 LDA #$9}0C0504 STA ICAX1,X0505 LDA #80506 STA ICAX2,X0507 LDY # SDVC0509 JSR OPEN.1059}10 ;0511 ;Give screen some color and0512 ;modify display list to0513 ;ANTIC E (GRAPHICS 7+) display0514 ;list0515 ;05169} LDA #$800517 STA COLOR40518 LDA SDLSTL0519 STA N410520 LDA SDLSTH0521 STA N420522 LDY #309}523 LDA #$4E0524 STA (N41),Y0525 LDY #60526 LBL:071 LDA #$0E0527 STA (N41),Y0528 INY 0529 CPY #9}$630530 BNE LBL:0710531 LDA #$4E0532 STA (N41),Y0533 INY 0534 INY 0535 INY 0536 LBL:073 LDA (N9}41),Y0537 CMP #$0F0538 BNE LBL:072.A0539 LDA #$0E0540 STA (N41),Y0541 INY 0542 BNE LBL:07305439} ;0544 ;Set pointers to a hidden0545 ;screen used to fade new0546 ;picture into old.0547 ;0548 LBL:072.A0549 STA LB9}L:1060550 LDA SAVMSC+10551 STA LBL:1060552 LDA LBL:1060553 SEC 0554 SBC #$200555 STA LBL:105059}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,0ER = $20070107 ;Extern8f9: 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@#},,4-%6.7B:,&@,/ A67@,.5 Ap@5@@-@>$}6-@-@)@)@*-@@ *( Š>:,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.BAS<W(CXINOUT INFOMOD.BASBY ANDY BARTONANTIC MAGAZINE(;A1,;A",20B.}0@@D1:INFOBITS.FIL<00@@D1:INFOBITS.FILF AP$@$6B/}.7@}KA&B:,_6-?:A6- .+`FbGN<:*8=9 %#g-A(@3-@@G67%,.>:AT,K c67%<%,.>:@JL}),g ;@'@@91 @@; A(cc67@,.PJM}٠Ҡ2cc67@,.P壺ξ󺠠κJN}<>;67Aa,.(>$FP67A)<A2,.4F:A,"JO}P67A)<A2,.P4F:A,"A(467A)<A2,.CTRLZ,F:A,,67A)<A2,.JP}INVSdX%67@<@,.>:%A(,?67@<@,.>:,Q-U(X$n5 Ap@5@JQ}@x;@@'-@@;-@e@@qq7@<@,4SYJR}S)7@<@,4EXE)7@<@,4OBJ)7@<@,4DATA0F97@<@,4 FRE)7@JS}<@,4 FRE<'F Ap["@!@3-@7(I@@ [-@ @,(JT}(>:%A(,>:A,7@,, -@A"@qq7@<@,4SYS)7@<@JU},4EXE)7@<@,4OBJ)7@<@,4DATAF97@<@,4 FRE)7@<@,4 FRE:%A(,>:A,7@,S 6-&@S7@<@,4 FRE)7@<@,4 FREApJX}_-@@"'( more files...2@< BN@\6-&@_$8@ B*@JY}86-&@:-@@"(37@<@,4 :(T"0 (ORS$0CHANGE 'ORS' TO 'KS' FOR JZ}DOS 3,U +AR@1AACA AUAA- @p A.<AJ[}*F:A,"A(<A@d/ @p0!AdAU!6-@1 F:Ad,"AUAJ\}2^+F:Ad,"A$)F:Ad,"@`JA+F:Ad,&@`,T @p^ A386-F:Ad,!@cJ]},6-&@d86-4$F:A,"@d$6-5F:Ad,"@%6--@@d->:,07:%A(,:@067A@<A@,.>:%A(,: @pJa}+6-&@d!@&+6-&@+@+@@ Ap-@Jb}@qq7@<@,4SYS)7@<@,4EXE)7@<@,4OBJ)7@<@,4DATAp@Jc} @&6.7@:,$$7@ <@ ,0 A01-@@ $7Jd}<,4 ''1 Ap67%@,.7<, -@@7<,4 ' A`&67%@,.7:A%, @p,@@>ARJi}P-@@Z(l-@@% B%(PRESS Π WHEND( TO)( ENTER >:@4Jj},,(/(A( RUND BT-@ @"(4-@!@T( ҠF:A,Jk} F:Ad,@A*A'AdAU*%W A`6-@%6-@'9-@Jl}@?,E/I W,&@E-@@ %( Ϡՠ7-@@E( ϠҺ($-@&+B:Jm},'@,@((#-@@ (ٯΩ#$D:LAZYLOAD.BAS HP1 REM MIXADD.LST2 REM BY KARL WIEGERS3 REM ANTIC MAGAZINE15 POKE 752,125 POSITION 0,1:? #6;"GRAPHICS 1 (ANTIC 6)"35 POSINo}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 COLONp}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,067Nq} 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,35 POSILw10 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 3100050Rs} POKE 87,0:BYTE=800:GOSUB 3100060 POKE 87,8:BYTE=160:GOSUB 3100070 POKE 87,5:BYTE=800:GOSUB 3100029999 END30000 POKE 106,Rt}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,112Ru},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 15Rv},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)Rw}30080 POKE 560,0:POKE 561,DL/256:POKE 559,3430090 RETURN31000 HMEM=256*HMEM+LMEM+BYTE31010 LMEM=HMEM-256*INT(HMEM/256)310Rx}20 HMEM=INT(HMEM/256)31030 POKE 88,LMEM:POKE 89,HMEM:RETURNKE 87,0:BYTE=80:GOSUB 3100040 POKE 87,7:BYTE=160:GOSUB 3100050P= r&&INCMODELINESSLPERBPERBASBFNAMEABLOFNMEMORDLALOCSPACDLMEHMEBYTCMELEFNSEGRNUMAFOURVz}CLOSMOD@@@@@@ V{}V|} !"#MODE MIXERBY KARL E. WIEGERSANTIC MAGAZINE GG9@V}},9@,9@,9@,9@,9@, 11;@ ,;@,;A,;@9,267@,. V~}#67@9,.267@,.I-@@"$68,-( I8,10,8,16,8,16,8,4,4,2,1,2,1,1T-@@V}"$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,V}7,7,8,8'$$Display List Interrupt Routine(--@")Aq%- 2++72,138,72,169,0,162,28,141,10,2V}12,141<&&23,208,142,24,208,104,170,104,64F?6-B6-A'6-AP36-A?6-A%P##@@V}K:c Menudk +AR@1AYCAUA @gAAV}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,65V}1%@%@1AY@4@@--@-(@ mode %@V}@!6-@@% 2-@2(@PICK AN OPTION:7@!6-@@% 7@@V}2-@@2(1 - A NEW DISPLAY)()(2 - THE CURRENT DISPLAY&(&(3 - THE CURRENV}T DISPLAY+(+( 4 - CURRENT DISPLAY ON DISK'('(5 - A DISPLAY FROM DISK%(%(6 - WITH THIS PROGV}RAM@@%@@!6-A`% $-@$(@?)@6-&@HV}"-@ "(@Q @)!@ ((@G(@ enter only 1-6Q A//V}AA A`ApA0 +=-@@92@@@= =-V}@@92A(@@= (%2($&A6-AV$%%06-&AVV}$P:'AV,A6-P:'AV,0@@$XC%6-F:A`,%AV$F:Aa,46-F:@,C6-F:@V},b6-$AV%$qHAR@'-@@#H(PRESS Š TO CONTINUEv$)@$@2V}A0{$%@$A09AA5'A@9BBA--(% SEG. MODE # LINES V}SCAN LINES LEFT--(% ____ ____ _______ _______________%%( -- -- -- 192A@$V}Create a New DisplayC +!-@@068,-?68,-C KAR@!6-A-6V}-?A6K6-Aw@( A +6-%@"@! + A% A@V}6-%@% A .(.( Enter graphics mode for segment % Ap%"A!!!@*V} @A Ap$' !A) A." ( ԠŠ" A@8+(How many moV}de lines ' A+= "6-&@ $B(!*+'8,, ( AL*  ( ԠŠP:'8V},,* AV" 68,-68,-"6-&$8,`E-@@%$(@8-@@%E(@e$-@V}@%$(@j$-@(@%$(@t$Change Current DisplayZ +" V}/-@@L(Ϡ٠Π٠P Z AGAwA+1AR@; A G6V}-6-A-@H-@@%$(@8-@@%H(@8,'-@@V}%'(@8,;6-&8,$88,,*-@(@%7(@; ,(,( Enter segment number to change: V}% A!%"A !@A ## @)!%@A!6-%8,$88,,V}%@A!P ;")"@ 1(٠Ӡ; A P*"%@A!4; 1(ԠŠV}͠%@&+",; A P>) A@6-&+",) A!pf! A@!A!pkA"V}!-@@7(@7@,A A PmA"@!-@@7(@7@,A A PpG-%V}@%@/68&@,-8,C68&@,-8,G u168%@,-168%@,-z06-AV}-@06-&8,$88,,L-@@%$(@8-@@%L(@8, ,-@@V}%,(@8, --@(@%)(@ - #(@7@,# A P Load DisplaV}y from Disk  +A@ :@@:( DISPLAYS STORED ON THIS DISK > A0`6-V}>@@D:*.DSP @6-%@ -@@% "(7@<@," A00V} @6-&@  P" %-@@B(ϠӠΠӠF P A -@V}@%( F-@@,(LOAD what display:F((0 TO RETURN TO MENU) )-@!@)40AV}&  4  A10  6.D:67@,.: 67B:,%@,..DSPD $$(>:A%,LOADING ....N D A1`V}*@@66-: D A1X 5  (1(ԠĠ-ERROR F:A,5 b  @V} A0l $-@@ $@v G97@<@,4POKE)7@<@,4POKEG6-%@ <V}7@<@ ,4END/@2'< A2    9-@@&68,-568,-9  6V}-@6-6@ ; 6.@;7@<@,4POKEA2 @7<,4,!AB%A:,/6-%@V}66.@ A2p 67B:,%@,.7<, O6-%@!B:,+AB%A:,96-%@E6-@O A2@V} A2P @ 6-F:A9,&@d %-@@%"A30   B'68@,-*68V}@,-@66-@B6-@ "6-%@"6-F:A5%, "@eA  +!@e6-&@dV}+6-%@* * "8, 68,-8,%@* A3@4 %-@@%"A4>  H 6'6-%@6V}8,-,68,-@6 A3@oSee the Current Displayp! +!"A zW@@((8(TV}he screen will be blackW(briefly while your display( is created.C(%(Press any key when you areC(done viewiV}ng the display. @@!!8,8,7,7,6,5,0,0,0,1,4,0,2,3 #Aa."-@!88,,"$'. V}Aa@ /+AR@ /AY*-@&68,-* $$6-P:'A@%@V},$A@9A6A'A7A9A8A A9@d%8@,$A@AAV})6-.-@ Ab3$$"@*8,"@Ab82-@8,2"@*"@V}AbpB6-%88,,Ab`L$$6-P:'A@%@,$A@V4AB%P:'AV,*6-%@4 AbpV}`C6-&AV$P:'AV,,AB%:6-%@C68,-j4AB%P:'AV,*6-%@4 Abpt"V}AB%8,"6-%@~    AB%@e9A`'Aa@9AY@4V}108,81,64,53,53,64U #Ac0!-@@%"9-@@U2@@-  -V}2)@#"@+# App6-@ AWSave DisplaV}y on DiskX! +!"A b@&(Enter a for this display:@((0 TO RETURN TO MENU)l-@@V}v40A 6.D: 67B:,%@,.67B:,%@,..DSP%"6-@% A`V}$($(Storing  on disk....* Au*@@G;(@*10 GOSUB 30000:LMEM=PEEK(88):HMEMV}=PEEK(89)G6-@ -@44(@ POKE 87,88,,&+8,"@,'"@(@' AqV}e116-8&@,$88&@,,%8&@,(@:BYTE=(@ :GOSUB 310006-%@V} (@ 29999 END <<(@+30000 POKE 106,PEEK(106)-1:DL=256*PEEK(106)*00(@30010 GRAPHICS V} :POKE 559,0>6-B HII(@30020 FOR I=0 TO %@:READ A:POKE DL+I,A:NEXT IR-@@V}\(6-%@((@ DATA f-@@p6(6-F:A5%@ $+&@,%,6(@u5"V}@e(@+6-%@5 As@z(@, ##(@F:A5%@ $, G9(@V}& POKE DL+4,PEEK(88):POKE DL+5,PEEK(89)G6-%@::(@' POKE 560,0:POKE 561,DL/256:POKE 559,34""(@V}%@ RETURN..(@31000 HMEM=256*HMEM+LMEM+BYTE22(@!31010 LMEM=HMEM-256*INT(HMEM/256))V})(@31020 HMEM=INT(HMEM/256)77(@&31030 POKE 88,LMEM:POKE 89,HMEM:RETURN@ AL-  V}(-(ԠŭҠF:A,V@`  ApD1:MODEMIX.BAS G9(@URTz%@%@96.>:,*67A,.>:,967@,. 67@A<@E,.(%,,/-@f}A HHTHIS ROUTINE SHOWS SOME USES FOR A STRING LOCATED IN SCREEN MEMORY +06.>:f},!67A,.067@,.+-@@+-@4@X* 6.>:,67A,.*67@,.!-f}$@@P ! &-@A  0-@@:06.>:,!67A,.067@,.f}D<<67Ae<A,.!moving this string around is easyI#67Aq<Aq,.>:,C67Av<Av,.>:f},c67A<A,.>:,67A<A,.>:,67A<A,.>:,N-@A f}Xw -AdAa6@H67<%@4,.7%@<%@5,^-$@@0b f j t+wf} D:VTABLE3.BASVTDSCROFFSEFOUTHRESIZSIFIVDEd