G@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@WG1  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 D %|+-3G||DDOS PVDOSDOS[ `SYS sx}~}C}"$},-~}C CDOS SYS~}CV 0`BDELV !B }G`LVUQ   ]   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ޥ<<8}EFLSno }+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 1.?}?GD1: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- 130ɛ+,' 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 D4uUC10 ;20 (.TITLE "PRNTSC ROUTINE"30/ b.PAGE "ROUTINES FOR PRINTING ON THE SCREEN"40 ;50i *= $500060 ;70 BU[}VCo10 ;20 ;PRTSMPLE30 ;40 TXTBUF = $504C50 OPNSCR = $500360 PRNT = $503170 ;80 EOL = $9B90 ;0100t *= $0650W}WCV0110 ;0120 TEXT .BYTE "HELLO FROM ANTIC MAGAZINE",EOL0130 ;0140 RSPONS0150 ;0160[ pLDX #00170 LOOP0180u LDA TEXTX}XC,X0190 STA TXTBUF,X0200" /CMP #$9B02104 ABEQ FINI0220F OINX 0230T kJMP LOOP0240 FINI0250p JSR OPNSCR02Y}YC60 JSR PRNT0270 INFIN0280$ /JMP INFIN04 ABEQ FINI0220F OINX 0230T kJMP LOOP0240 FINI0250p JSR OPNSCR02.ZCCPHELLO FROM ANTIC MAGAZINEPLPɛLl P 1PLINI0220H QINX 0230V mJMP LOOP0240 FINI0250r JSR OPNSCR 9[C FLEN = 2580 ;90 EOL = $9B% d;ATASCII CODE FOR END OF LINE CHARACTER0100 ;0110 OPEN = $03i ;TOKEN FOR OPENING A\}\C DEVICE OR FILE0120 OWRIT = $08% ];TOKEN FOR "OPEN FOR WRITE OPERATIONS"0130 PUTCHR = $0Ba ;TOKEN FOR "PUT CHARACTER"0]}]C140 CLOSE = $0C O;TOKEN FOR CLOSING A DEVICE OR FILE0150 ;0160 IOCB2 = $20T ;OFFSET FOR IOCB NO.20170 ICCOM = $0342 ^}^G ;COMMAND BYTE (CONTROLS CIO OPERATIONS)0180 ICBAL = $0344 ;BUFFER ADDRESS (LOW BYTE)0190 ICBAH = $0345 ;BUFFER ADDRES_}_GS (HIGH BYTE)0200 ICBLL = $0348 ;BUFFER LENGTH (LOW BYTE)0210 ICBLH = $0349 ;BUFFER LENGTH (HIGH BYTE)0220 ICAX1 = $03`}`G4A ;AUXILIARY BYTE NO.10230 ICAX2 = $034B ;AUXILIARY BYTE NO.20240 ;0250 CIOV = $E456 ;CIO VECTOR0260 ;0270 DEVNAa}aC(M .BYTE "E:",EOL0280 ;0290 OPNSCR0300- ? FGNOVW]_fgmovw}k}kC fWINDOWS2&&BY JERRY WHITE & DAVE CULBERTSONANTIC MAGAZINEd1 +lAR@l}lC1@ @n&(&( GRAPHICS WINDOWS OF TEXTx+(+( BY JERRY WHITE & DAVE CULBERTSON99;A,;@m}mC,;@ $@A,;Ac,(( CREATING W$--@EA")67<,.>:,- (( CREATING E$-n}nC-@ 4Ac")67<,.>:,- 16-@8@6-@@DL'+%@Pe1 A`16-@iq6-@@u'+%@o}oC1 A`16-@%6-@@)1'+%@5J1 A`16-@NV6-@ Zb'+%@f1 A`16-@p}pC 6-@'+%@/1 A`16-@3;6-@?G'+%@K\1 A`7 +bh@lp@t"(,(Bq}qC2ASIC4(IS7DISPLAY MSG SUBROUTINEk08<@ @D@HN70@RV@Z^@bhQ0@lp@ tv|r}rCk0@ @@7CLEAR STRINGSG6.>:=F,267@JN$@RW,.>:]f,A67@j,.G6."-@s}sC @ E,CREATE MSG$ TO DISPLAY6x6. Gr#? Š667@IM<@QZ,.>:%@H^g,X67@ko<@s,.>:%@Ht}tC ,x67@<@,.>:#e,@ CONVERT TO GRAPHICS FORMATJ((6-?:C:,A@@72%'-/5; >$DATA FOR W$%%104,104,133,206,104,133,205,104141,1x}xG,6,104,141,0,6,104%%133,208,104,133,207,104,104,133209,104,141,3,6,104,141,2!!6,165,88,133,203,165,89,133 y}yG204,24,165,203,109,0,6,133!!203,165,204,109,1,6,133,204##160,0,177,203,170,177,205,145%%203,138,145,205,200,196,2z}zG09,208##241,169,0,198,207,197,207,208!!6,197,208,240,30,198,208,24##152,101,205,133,205,144,3,230 206,24,165{}{G,203,109,2,6,133!!203,165,204,109,3,6,133,204&24,144,197,960DATA FOR E$:%%104,104,133,204,104,133,203,104D|}|G%%133,212,104,133,211,104,104,133N!!216,10,133,217,104,104,41,3X##24,106,106,106,41,192,133,207b!!133,208,169,0,133}}}G,219,169,4l##133,220,169,0,168,145,219,200v$$192,16,208,249,169,255,133,215!!160,0,177,211,201,128,144,4!!132,2~}~G15,73,128,201,96,144,4160,3,176,19,201,64,144,4160,1,176,11,201,32,144,5176,5,24,144,205,160,2,41 31,1}G0,10,10,133,213,24,152!!109,244,2,133,214,160,0,132##209,132,210,162,0,134,205,164%%210,177,213,133,206,164,209,1}G65 206,48,6,177,219,5,207,145!!219,24,102,207,24,102,207,6##206,232,224,4,208,231,165,215""240,5,56,241,219,}G145,219,165%%208,133,207,230,209,230,205,165 ##205,201,2,208,208,230,210,164 210,192,8,208,190,240,3,24 ##144,}G160,165,203,72,165,204,72*##160,0,177,219,145,203,200,1924##2,208,247,177,219,170,200,177>$$219,72,200,132,218,164,2}G17,138H$$145,203,104,200,145,203,24,165R##203,101,217,133,203,144,2,230\$$204,164,218,192,16,208,220,104f""133,20}Cn4,24,104,105,2,133,203p!!144,2,230,204,230,211,208,2z 230,212,198,216,208,177,96D:WINDOWS2.BASrtznG0 ;WINDOWS2.ASM01 ; ..TEST INTO GRAPHICS SCREENS..02 ; BIT to BIT PAIR Expansion with03 ; conversion for 4 color Graphics}C-04 ; with string input capability.05 ; vs.21 by Dave Culbertson06 ; (C) Jun 11,1984 CE Softwart07 ;08 ;EQUATES09 DAT}C = $CB +;ADR OF RESULT STRING.10 SW/ 6= $CD; `;FLAG FOR 2 NIBBLES.11 TMP = $CEe ;HOLDS WORKING BYTE.12 }C COL = $CF 7;COLOR MODIFIER REG.13 COL1 = $D0< e;COPY OF COLOR MODIFIER.14 YINR = $D1j ;Y POINTER INNER LO}COP.15 YOUT = $D2 @;Y POINTER OUTER LOOP.16 CHR = $D3E a;ADR OF SOURCE STRING.17 PTe l= $D5q ;PTR INTO CS}C.18 INV = $D7 6;INVERSE FLAG.19 NUM = $D8; [;LEN OF STRING.20 NUM1 = $D9` ;COPY OF LEN*2.21 TEA = }C$DA $;TEMP AREA.22 PTR = $DB) H;PTR TO WORK AREA ($400).23 CSL S= 756X w;PAGE PNTR OF CHAR SET.24 ;25} }C% *= $4000 ;IGNORE (RELOCATABLE)26- IGET THE VARIABLES27 ;28P WPLA 29^ ePLA 30l xSTA DAT+131} }C PLA 32 STA DAT33! (PLA 34/ ;STA CHR+135B IPLA 36P ZSTA CHR37a hPLA 38o vPLA 39} }CSTA NUM ";GET NUMBER OF CHRS40) 1ASL A418 @STA NUM1D R;NUM1=NUM*242Y `PLA 43g nPLA 44u AND #3 }C ;ONLY BITS 1&2 OK.45 'CLC 46. 6ROR A47= EROR A48L TROR A49[ cAND #192g ;ONLY PASS BITS 7&8.5}C0 STA COL );STORE COLOR CODE.510 8STA COL1< K;AND A COPY.52R XLDA #0^ r;POINT TO PAGE 4.53y STA }CPTR54 LDA #455 nSTA PTR+156 ; CONVERT FROM CHARACTER TO57 ; ADR OF PLACE IN CHARACTER SET58 BEr xLDA #0} }C ;CLEAR WORK AREA.59 &TAY 60 BF* 8STA (PTR),Y61? FINY 62M WCPY #1663^ gBNE BF64n yLDA #25565} }C STA INV ;NORMAL MODE.66& ,LDY #02 9;Y=067@ aLDA (CHR),Y ;GET THE CHARACTER68h pCMP #128t ;IS A <12}C7?69 BCC T &;YES GOTO T70- 4STY INV9 I;SET INVERSE.71P bEOR #12872 ;73 Tg nCMP #96s ;IS IT LOW}C ERCASE?74 BCC U +;NO,GOTO U.752 8LDY #3> M;SET OFFSET.76T YBCS Q` r;GOTO Q.77 ;78 Uw CMP #6}C4 ;IS IT UPPERCASE?79! &BCC V- ;;NO,GOTO V.80B HLDY #1N ];SET PAGE 1.81d iBCS Qp ;GOTO Q.82 ;}C83 V CMP #32 );IS IT A SYMBOL?840 5BCC W< J;NO,GOTO W.85Q VBCS Q] ;YES,GOTO Q.86 ; 1st ISLAND TO }CBEGINNING.87 IS CLC 88" (BCC BE. H;GOTO BEGINNING.89 ;90 WM SLDY #2Y s;A GRAPHICS CHR!91 ;92 Qx AND #}EC31 ;NOW ACC <32!93 #ASL A* <;MULTIPLY BY 8!94C KASL A95R ZASL A96a gSTA PTm ;INDEX INTO PAGE}C.97 CLC ,;MOVE PAGE OFFSET.983 :TYA 99A GADC CSM f;ADD C.S. TO OFFSET.0100k sSTA PT+1w ;STORE}C IT.0101 ; MAIN ROUTINE0102" -LDY #001032 ?STY YINR0104D aSTY YOUT0105 S LDX #00106f qSTX SW0107v LDY YOU}CT0108 LDA (PT),Y0109 =STA TMP0110 B LDY YINR0111B NLDA TMP0112S dBMI C0113 ;0114i yLDA (PTR),Y0115} }C ORA COL0116 0STA (PTR),Y0117 C CLC 01185 AROR COL0119F OCLC 0120T `ROR COL0121e qASL TMP0122v INX 01}C23 CPX #40124 (BNE B0125 ;0126- 4LDA INV9 Q;CHECK FOR INVERSE?0127V `BEQ D0128e hSECq ;INVERT BITS}C0129 SBC (PTR),Y0130 STA ICCOM,X0830C PLDA #1310840U eSTA ICBLL,X0850j uLDA #00860z STA$}C ICBLH,X0870 ;0880 (LDA ROWCUR0890- 9CMP #200900> TBCS PROMPT0910 ;0920Y oLDA #RBUF+$0A&$FF0930t STA ICBAL$}C,X0940 "LDA #RBUF+$0A/2560950' 7STA ICBAH,X0970< IJSR CIOV0980N JMP GET0990 ;1000 PROMPT LDA #MESSAGE&$FF101$}C0 STA ICBAL,X1020 0LDA #MESSAGE/25610305 ESTA ICBAH,X1040J hJSR CIOV1050 WAIT LDA CH1060m CMP #2551070 $}C BEQ WAIT1072 !LDA #2551074& 1STA CH10806 ILDA #CLEAR&$FF1090N ^STA ICBAL,X1100c vLDA #CLEAR/2561110{ ST$}CA ICBAH,X1120 LDA #51130# 3STA ICBLL,X11408 CLDA #01150H XSTA ICBLH,X1160] jJSR CIOV1170o JMP PRINT2000$}CC ;2010 MESSAGE .BYTE "٠٠",EOL2015 CLEAR .BYTE "}",EOL1150H XSTA ICBLH,X1160] jJSR CIOV1170o JMP PRINT2000$?CoEiͩkΩ͙kCop j`j {j`Hi͝Νh`}(}CoL"UNEM:D"NURͩkΩ͙kCop j`j {j`Hi͝Νh`}(C#l  AXLPB0NZ*,24;<CDKLRTZ\bdkl st |4}C + $AdAU0@(*04@8>70@BDJN@RXQ0@\^dh@lrc@v@5"}C0"#**VDSRSDXY:;BCJKRSZ[acikqsz ,}C    %&-.56=>EFMNUV]^efmnuv},}CTBIFFDROPBY J.D. CASTENANTIC MAGAZINE 6-6-(6-?PXl(6-AV46-@p<6-%Y;,}CA,;,;@,c+@""5z6-F:A,&@9MA& AQZdu@w^2&'B2x1-,}C M@@H%$@!/iA@&39%$@=do6-u6-iU)AAY&$@Bhl%@p$/6-U ,}C)!@ )")"@A!vn 1%7<,3 6-s 1&7<,3 6-x# 1&@2z# ,}C9A0}F:A ,AP&6-F:A2,&"@=AAEP"@TgAL"@ks"@6w*(0,}C>B7aA486-&@6-&LB7a#((*@6B6-%# 96-&%B7c$%A`1"@,}C*96-&F%%F:AD,"*$6-@.,6-&46-&FB7cAu = 6-%11&57<,,}G3)7<,3=6-&3 6- B7aA8'6-&3B7a AEA 6-&1&!1&&97,}Cg<,3)7<,3A6-%4 6-6 B7aA8(6-&4B7a AE"@6ky$"@@},}C ' A :7"@56)"Af)"Ag)!@6:\* A1:$#"A@ A`# A@"Ap',}C  AP 6-&$H @2$?,&6-&"(0#BCu%$6"<,B"H/1-6-@y6,}C0)2- 1 I "!-$AP@4L+-%A2&@%P&'E I ' A,j #AP,}C-@ C"-67,.7<,:67<,.> LAA&g67@Gp,.>:F:A@,,j$1] #AP-@t"-67,}C+<,.7,1 =AAWA@@:7@/B,,%] $^x AFTA#@X^) A bpJA@&t%P:%,$,}C@Z-@ l2$@$?p x6-&c|-@CJ6? NX42$@\b$@fvHA@z%,}CL ^A@(#pA#@'>|AphG-@B^6-612%@b?A%C G m,}CT(@ }&-@@(#-4%@1Z8 JAVA$T APrf-@^i$$(@m& 2#B ,}CD%$< A B6-H6-TA@`AAf $~(@H`}AY.%@dt'>%$@#xR%,}C@! @\@5!h,@%Np/&~BBv%k /%%/@R\%)/@`j&;/@nr@vA%,}CM,@ _/@@%k-@)3{0(@7Micked medley museumS cTIME: >-%@gnq(@r%,}C Ӡ١Z{A1oAA1,%%,%-,%9/@^fG/@j%QAhe%,}C@" @6o,%%^ #B A ! A :B2-@Fa6<-N2%@e^A%'o ,}C -%@-%@##@"'s?AA"Q2AP%c2AQ%oB7hsI(@wP:+F:,}C@,$$%F:@C,$%F:$,,'AA6P, MINUTES[AY@bGus6-?:C: hȌЭ`,, Ae +@y,}CAY%@,1B7tA6-$%@$08M6-@<BW AFbg6-$%A`m6-w Af6-$%A6-,}C_ A A%BBy3B2w%G-AAK"QU _#APUrr6.hإХХЍХ,}Giiiivv67A,.c̝̝,}G̝˱ΝϱΝˍiivv67A,.ci,iṰ*,}Cu`;I;</I/ )  Ѝ )  m67A,.Lb&A%4-@y:",}C_J67<,.>:%,N _6. hL\m6-P:C:,',p6-C:,&$"67'<',.>:,<67@cg<@kw,.>:,F#A`{X,}CCAAYl-A6Ap"e  A@G1BBA=6-?:C:,,Y6-F:A`,%$F:Aa,}C,eA&o@9%AY--&@=U7%&; I%@YqY%$A4e6-@uo#AP,}CE+I %-"!,'/-/3/9/= I@I_0m -%&((@c 2 A ,}C:-%U(@7 press triggercA#$m A ;`5q2&2&/2%@d$;B7hMA,}CAP_A@8Be'qA: ,%/@FP%/%@TZ7/@^b@flI,@pt@x[,@,}C @ m,@@%/@)-@17/@;?@CL?/@Pd%A1-,@hl@p;/%@,}C;A6-G6-O6-'U6-gAA6yAY@b?E@2IpDo!6-?:C:hЭ ԍЭ`,,3,@tx@|,}C A/%@ K A c-A8A@$oAIW -$  %)AY5-&$C%@,}CG W%%@ N%@%$0'!%@&4>5%@'BF@JRI%@(VZ@^UAaAVp(@,}C}|@@5XcAY A9M'%,1/@QWC/@[_@ciO/@mU/c#B,}C3%$]O A7",#/'"1@7j9-C"I,O/_5 A#@n"!+@6,}C 5 A Gb" Ag Ac" Af AKd" Ap AeS" Ah,}C',@ @1@@&=,@*<GA6S,@@Qf" @5Up Ag" @Ct A,}C5hL"A@-"%,) .(8@29?D,@CL/%jg A 6-6-6-%6-+6-36.,}CD@67&,.I67,.S#APu]-'g AulW-@Hr" '"1#AP?-@vC"S6,}CO7<,.7<,W qB2VB2W$"67<,. 167@SW<@[,.B67'<',.L-%$l,}C67@ <',.7@&<',67@6*.<@62B,.67@CFJ<@CNZ,.9(@^v SLYVESTERS:&K-@z@,}C! l(@ room >:%@$4,~AY@b8AA $& -",/# &$& -,}G",/# &$4 -"-#,)/- 1 4$   6-% %% 6-%6-%"@,}C%6-* "6-@*/!@.J6-4( 6-6-(@NX}( A\2-B7aB7g! -}C/B7`'2$FF/]]]77?O<~FFp<~ tc@>*΀BJ<~h0fFF`-}C|<8H(p8px8`(80g6 ><FF lx80h8uFFBB-}CBBff<<~~<<$<<~~,2<EFMNUV]^efmnuv}1*}*C  ! !"()#/rBANNERTIZERBY JOHN BAUMANANTIC MAGAZINE ]]9@v,;@1+}+C ,;@,;@!,9@d%B,9AU,;AU,9@Fb,TITLE SCREEN A@fo( @@s2GET 1,},C BANNER<' +'0@%'-AM' INPUT 0 FOR A HORIZONTAL BANNERI INPUT 1 FOR A VERTICAL BANNERMF1-}-C# *@# @ )P @-4Zt +:@'0@DFLNTp DENTER VALUE FROM 1 (SMALL) TO 10 (BI1.}.C/G) TO DETERMINE CHARACTER SIZE. td# @39)!@=C# @G[n Ax\ +ag'0@kmsu{E1/}/CO INPUT LINE TO BANNERTIZE.\(THEN PRESS RETURN.( 6-B:,A-@SW@[s'( נǺ9-@w@10}0CA( -@Q6-@:7<,,ADJUST CHARACTER VALUE AUiiCALCULATE OFFSET OF CHAR FROM STAR11}1CNT OF CHARACTER SET AND THEN CALCULATE ACTUAL START OF CHAR IN SET6-$@R6-BsD%??STORE THE BINARY VAL12}E2C0UES FOR THE CHARACTER IN ARRAY BINCOD-@48@<P68,-F:%&@T, ))CREATE A PIXEL MAP OF THE C13}3CHARACTER A0HPRINT OUT THE CHARACTER" (7<,, A L\6 @ @@`((CHARACTER VALUE ADJUCTM14}4CENT ROUTINE56-<!A')6-&A(56-@@L3+@2PV* @Ze,)6-&@2i3 A@)+15}5C * @2,)6-%@dO$$PRINTING ROUTINE'6-+$@SW&@[d,'6-@h --@16}6C @ bbIF THE BIT IS A 1 THEN STORE 10 ASTERISKS IN ARRAY S$, OTHERWISE STORE 10 BLANKS IN ARRAY S$(+8,%"17}7C@a,6.*( A ` 6.  --LOOP TO STORE ASTERISKS OR BLANKS IN S$  -%@ e67,. 6-%18}8C@6-%@&  *-@*?3 46-@C> H$ 44ROUTINE TO CREATE A PIXEL MAP OF THE CH19}9CoARACTER ]]INITIALIZE POSITION POINTER FOR PIXMAP ARRAY AND SET PIXL TO VALUE OF FIRST BIT TO TEST 6-@s6-A(1:}:C< //LOOP TO GET VALUES OF PIXELS HORIZONTALLY -@@D@H --LOOP TO GET VALUES OF PIXELS VERTICALLY -1;};C@ @6@# +"@'3+6-++&@7<,$@@%, ddTEST PIXEL: IF THE BIT IS A ONE, THEN STORE A ONE IN1<}<C8 PIXMAP; OTHERWISE, STORE A ZERO IN PIXMAP ;8,&>W"68,-8,&168,-@[q; A0` 68,-w 1=}=CINCREMENT PIXPOS 6-%@!U   SET PIXL VALUE TO NEXT BIT 6-'@Y   ;;DETERMINE IF EACH 8 BIT1>}>C' ROW IN PIXMAP IS BLANK OR NOT --1@5>! 6-DO& 2-@SW@[l.6-%8%+$@p,,2 0 01?}?C!&68%@,-@60 A1@: 68%@:=,-CD  I SSDETERMINE WHERE THE CHARACTER'S FIRST AND LAS1@}@C)T ROWS TO BE PRINTED ARE LOCATEDN 1"/76-@;C'6-@G\1 A1S *-@`d@hs&8,@w* X1A}AC 6-&+@,b 3 -@"&@*/6@3>/8,@B^3 l 6-v $] +@bh'0@lntv|1B}BC)I6-F:A`,%F:Aa,$AV]%@-1@5>-@BF@JQ2(@UmTHE BANNERTIZERD-@qu@ya(1C}CC@by john baumans-@#'@ +2(@6X 蠠/F:B2y,"@\l,+B2y,@p/$ A@ 1D}DG D:BANNER.BASXPIXMAPBANRBANNRROWMAPHCCCRVAOFSESTARPIXPOFSVPOLSHPOSPRPIXHPIVPIVPIROWSU0EC@>B:,:7<,4 G67<,..] 6.=:, @BJD67@NR<@V],.7@ae<@ir,]67@v<@5F}FC,.0$@'(''7@+/<@3?,4FREE@CL- @ Pi2() <@mF''7@5G}GC<@ ,4FREE@"K @ &1P(7@59<@=N,)|U @0R[W'!-@6_f+'@jo,%@s' |Z+5H}HC+(#|& 0|[ ( |8 = F P|\++(#qd-(-("5I}IC1 Select HELP.BAS for information.xAR7@[@DH@9LR'-@VZ@"^dC(p SELECTIONM 5J}JCA0Q[ B4P:,A00"@8B&6.7@FJ<@Ni,0 AELB6.7+&@mr,$@v%@5K}KC<+&@ ,$@%@$,L B(337@7;<@?N,4 36.7@RV<@Zf,!7@jn<@r,4DOS!.5L}LC0 6.-@?B:,07<,4 AH67B:,%@Cr,.7<,   6.! 6.D1:!67B:,%@v,.?5M}MC AR@'-@@"#)? 1 DLOADING ? AHN@RV@9Z`1@dh@lv5%? Bz5N}NCK-@ @"-  0CANNOT RUN 7 @4:A B>\K A0D1:MENU.bdkl st |4YOCiwLINEA;xx ;A ,;@?P,; (}@T[;@_c@gio D:DOC.TXT9P}PC A (@)2lB:,!@-5-7@9=<@AT,4XXX0(3(E-@X\@"`X( ӠΠ\b(}9Q}QCl @@ <( @@%da@)/ B39*-@=A@"ER("ΠҠՠҠˠҠVa%D:MENU9R}RCD:HELPLINEA;xx ;A ,;@?P,; (}@T[;@_c@gio D:DOC.TXT8SC%J WELCOME TO THE ANTIC MONTHLY DISK n Most of the =T}TGprograms on this disk arewritten in Atari BASIC. Some requirespecial hardware or specific instruc-tions. We recommend you =U}UGrefer to thecorresponding issue of ANTIC forcomprehensive documentation. If youwish to order a back issue, or needsubscri=V}VGption information, contact usat (415) 957-0886 or, for credit cardorders, dial (800) 227-1617, Ex. 133.In California,(800)=W}WC 722-3545, Ex. 133XXXThe menu that appeared on the screenwhen you booted the disk will onlyrun programs with a .BAS ex=X}XGtender.If you try to run a program and the response is 'cannot run Filename',then check the file extender withthe followi=Y}YC4ng list:XXX.BAS BASIC saved program, use menu; sRUN or LOAD and RUN..LST BASIC listed program, ENTERz the=Z}ZC*n RUN..EXE Assembly language 'Load and1 NGo' file. Remove BASIC, bootU pDOS, type L then enter thew filena=[}[C)me..ASM Assembly language source code0 Mfrom Atari Assembler Editor.T Must be assembled..M65 Same as .ASM on=\}\CRly MAC/65..SYN Same as .ASM only Synassembler.AMC Same as .ASM only AMACXXXV.OBJ Machine language object file. =]}]C $Same as .EXE but not 'Load and+ GGo'. Refer to correspondingN article..ACT ACTION! source code..SYS Res=^}^CBerved for DOS system files..PLT Pilot language, requires PilotI xcartridge..LGO Logo language, requires Logo} =_}_C0 cartridge..TXT Text file. Usually accessed7 Nby another program.XXXRAll programs from ANTIC issues datedprior =`}`Gto August 1984 were reproducedfrom ANTIC's Archive. We have up-dated them from our HELP columns and most are compatible wi=a}aGth the XLmachines. We have worked to insurethat our programs operate as pub-lished, but we consider all our software lis=b}bCytings to be works in progress which we encourage you, thereader, to personalize and enhance.Good luck, and ENJOY! } =c}cC J-ANTIC ED WELCOME TO THE ANTIC MONTHLY DISK n Most of the <"dC0990 LDA #01000 =STA BUFFO ;MARK BUFFER EMPTY1010B HLDY #1N b;SIGNAL SUCCESS1020g lRTS p ;EMPTY BUFFER8leG:%%LCHATPLTXPLTYSXOFLPREVXPREVYTTOFLNGWORDSARWBLBTTIMDSCOREROUNFIRSTAOFWIWIN=f}fC7NEDUSSTTADNONRANDOFIREFIRGOAE``@<?@DELO@S_ @dg@kwA @| =g}gC@A  @ @"@ '(.JAA @NjAA@n @0=q}hC69ABJJddiCb'DOS SYSb*+DUP SYSbUPRNTSC ASMbcPRNTSC OBJbiWINDOWS2BASbVPRTSMPLEASMb%WINDOWS2ASMbINFOBITSBASjCYbZPRTSMPLEOBJbINFOBITSASMbAUTORUN SYSbVBIFFDROPBASb'BANNER BASbMENU` ibOHELPm xBASbSDOC} TXTkC0b3AVEMARIABASb SAVER BASb SAVER SRCqC ,@@"%A*=B6A !@AMA"#ARU$@Z]%@Pbc&jk'rv(Az)@=r}rC*@ +, -@%&.->/B7pA01EH2@MP3@PT SCRAMBLEBY F. NEIL SIMMS=s}sCANTIC MAGAZINE. AP! A%i.** init and begin **&** time delay loop **( F:A@,os@@w2$=t}tCR5** INPUT: string TP$ **6**** OUTPUT: LN (nonblank LEN(TP$)) **7?-@VZ@^u$7<,4 26-&@y5'=u}uC? @e < 6-@^A$** move cursor **m 6-8,6-8,1)&@2btGB7`%$@@x%@@=v}vC[B7a%Ahm@w!#)@ 8,68,-FZ ,I#"@^d)"@hn)"@r16-&@=w}wC = @I6-@&I#"@ *0)"@4:)"@>H16-%@LT=!@X`I6-@doC!@sy* @}=x}xC '6-&@5 @$%C6-@(5%C!@9?* @CM'6-%@QY5!@]g%C6-@k%/ 1%=y}yC@2V,&68,-/68,-$##** mark square or end word **68,-@Z: 6-8,6-8,6-8,&1=z}zC:!A"A B"&lAB** always mark square if first letter **11O:8,&,!@p)O:8,&,!@={}{C A "Y!B7`%$@`&*%@`.5B7a%AhA%A(G,P68,-Y68,-:67%<%,.>:&@=|}|C2,) @ :68,-%@#, A0x==** square was already marked - process word if valid **H!@|=}}}C+2AU@@!5 A%MH** array full **o!B7`%$@`QU%@`Yx5B7a%AhL8, @|=~}~C7Ao** word is too short to count **T6-$A;A%$@EOC67%@SY<%@]h,.7<%@ l,T68,-%@=}C67<%@ ',.p(-@+/@3>46-+&@BG,$@KQ@-@U^b(@bj7%@nt<%@x,f =}Cp A@i-@@!,/6-+&@05,$@9?C-@CG@KT&e(@X`7%@dj<%@n,i Q68,=}C-$@@ @-@$(%@,2$@6=Q(@AZ8,& 1%@2^,X$** main play =}Cloop **B7a%$@ &/0T:5:,*8@G,068MP,-Va0T:@el,*8@py,068@}=}C,-  F:AB,!:ArAB@>M6-(*6-@ Q[$@6-@_e$%@iI6-8,R6-8,`=}C6-$@ r@@2, 6-R:,@6<" A@g, A0! 6-T:,(*(8,! Ak** update TI=}C0ME **6-F:A@,AP 6-&@4EXA@@`IO'@SW@[a9-@ ei@mtK(@x=}C X(A& AV&** end of main loop **** end of round **V A'Zb*-@fhns6?0w<B=}C2y HA@R @@"/V T@37@;A'-@EGMT@(@Xl duplicates:T-rv@z=}C "8,!@6-" A0/ 3385:, @>D)8@HM, @QbA@B A(fl-@prx8(=}C@ matches: B A3'> A(+1-@59@ =D>(@Heaccept < > rejectV-@ikqx.(@|=}C B-@!-H6-R A51<V -BDJP)-VZ@ ^e9(@ix= O-@|=}C@n(@4A@A8> @@BKQ'8QZ, *8@^e, AiQ** skip following=}C if not end of game **18%,,!8@07,'6-=P1 A##8V],"8@au,A 6-@yH=}C-@ @>(@-player #%@1M wins!H A.-@QU@Y`.(@d it's a tie!-@P=}CAP@ 1A@&,; @@04W2:@@DH@LR{2@VZA^d&@hl@p  A'=}C A  A@ A "(! A%,6/6-%@:@A@DH@LRg-@VZ&@^e$+!@ in,@ryu(@}=}C  A& <& A<&** start next round **? A&@P AP! AT?** end of game - restart **** di=}Csplay letter grid **T@!%@)0+(@4E>:A%,=-@IKQXT(@\scRbLO-@w@%=}C;6-P:F:,$@"'AV,%@&EK67<,.7<,O -@IM@Q\/6-+&@`e,$@io;-@s](@=}C 7%@<%@ ,q-@$(@,5&(@9A7%@EK<%@Oq, ** border **m-@uy@}=}C@3-@@)9-H(@-9V-%@ =Fe(@Jai m m-@ei@mq@u3-@=}C@ 9-H(@)V-%@ -6e(@:Oi m  9-UY@]k6-+6-@ ow$5 A{9=}C1 4$ ** build scoring window ** Q@59@=C1-IM@QU@Ya=-@elQ(@p =}C-%@ @)(@-0 5-@18I(@<M]-%@QU@Y`(@dl8&@pw$+"@{,,=}C   K%2A @!%@)77A@@;AA @@EKK A'OX s-@\`@dk'(@o9-@ =}C@ J(@"200\-@&*@.5s(@9nround:  $& ** "go on" prompt **( t@rv@z'-=}C @ H(@Apress to go on]F:B2y,"@EX`'j APt A\e2 IT:kr,*T:@v,--@=}C@ ?(@$FIREI A&(2< %%(T:8@,)(T:@DT,A& F H-Z^@bi$(@mu6-{=}C@  E(@AH$ ** turn off sound ** *B7aGS'B7cY*$ ** 4 clicks ** L-@=}C@ )A@@(;B2y.4E @@8jI L$ ** find and delete dups ** q@-@nr%Av$8,=}C$@ &@%A$@"0S6.7<%@ 4;,_6-AMqB2ySq 4A0` 88-%@u8,$@=}C &@ %A$@0 07<%@ 4O,A0U ##F:A@,Uj*(A05 %%(T:px,)(T:@|,=}CA07 b67<%@ ',.(7--1%@5;$@?FD(@JfVA@A b6-@j     K=}CA@A  @@;-$(%@,2$@6=H(@AwK$ &&** find matches and eliminate ** e2-@{=}C8 ,$@&@ @!/E6.7<%@ 3@,WB2yFie4A3 ::-A8@mr,$@v&@ =}C%A @" 07<%@ &8,A3u / @@<C/(T:IQ,)(T:@Um,A3@ g67<%@ q,.)67<%=}C@ ,.;-@@#H(@'_ZA@A]'g A3/  4  > / @@ci-@mq@u,(@=}C7/$ $$** let players review words ** m6-@;CL-@GK%AOZ$8,$@^b&@ fj%Ant$@x_6.=}C 7<%@ ,m4A6# -)-%@17$@;B,(@FP@-@TX@\b^-@fj%@nv$&@zv(=}C@7@<,z 6-%0 36-R:6A,!6-R:@ET,3A@@ Xc !!@gm*@qA5` =}C-@ @ )(@)K2/3A7;@?C@GMU @@QWg-@[_@ cj{(@nreject A5=}C !!@*@.A5@ -@26@ :A)(@ERK2X\A`d@hl@pvU @Uz6=}C-@ $+ @,%+&@ (,$+@,D, b68,-8,%#@HL@PV?-@Z^%@bh$@lsP(@w8,=}Cb@ @ 3 @@%-@)-@ 183(@<Oaccept%%(T:U],)(T:@as,A5 A'w @@=}C U#-@%@!'$@+29(@6Ono wordsKA@ASYU @@]d/-jn%@rx$@|=}C,(@ >/$** initialize var's **t 6. 67A BM,.)67@Q`,./6.C-fj@nwR68,-}=}C a68,-p68,-@+t c6816,-@:B-68@FK,-@OUB68[`,-@dlW68@pu,-@yc6=}C-A-$** initialize **m +@1[/6-F:A`,%AV$F:Aa,;6-@P_qG6-B7pa0@uy@}=}C@m6-@P)-@#'@+5%%@9H) E%@LP@eT\.%@ `sF:A`,E%@!wF:A=}Ca,;A ,;@ &,9@*1,9@5<,9@@G,9@KR,9@V],9@ah,;@%ls,;@w,;@=}C ,;@,9@',9@+2,9@6A,jj6.`IAOBBBCCCSDS]EeFFGGGHHHlIoJKKtLwMMM|NO=}CO PPPQ R STU-VVWWXYYYZ= A@1=6.(68CF,-LT=68@X[,-aj A nt A%x#6-=}C@ 5@@G-@#'@+2U(@6?g-@CG@KRy(@Vc0 -@gk@oy'(@}=}C 0 '@@*IA@@.4'-@8<@ @GI(@Ki select GOAL:   B-os@w8(@=}C#press to beginB @@'A&6-F:B2y,&"@EXAQpY"@\f6-%@Pjr)!Av56-@=}CP G-@@ Y(@"2 (t-@6:@ >E)(@IX;-@\`@dkN(@ostart`A=}C@@ j @@'t AQ 2K--1@5<$(@@H6-NR@ V]E(@aK6-P$D:SC=}GRAMBLE.BAS%%LCHATPLTXPLTYSXOFLPREVXPREVYTTOFLNGWORDSARWBLBTTIMDSCOREROUNFIRSTAOFWIWIN< C  BBL!")*129:ABIJPX6-^g Ak } ")2A}C @@E2@!'@+/@39a2@=C@GK@OU}2@Y_@cg@kv?-@zAA}C` )6-%@)5"A$?#@R-6g-"<@*"FJ*"PT*"Zh?AR@lq]({ MeA}C rry Christmasg A@ @$2HH162,0,0,0,162,0,108,0,162,0,81,0,162,0,64,0,162,0,81,0,162,0,108,03HH162,0,0,0,1A}G62,0,108,0,162,0,81,0,162,0,64,0,162,0,81,0,162,0,108,04FF162,0,0,0,162,0,81,0,162,0,64,0,162,0,53,0,162,0,64,0,162,0,81,0A}G5FF162,0,0,0,162,0,64,0,162,0,53,0,162,0,45,0,162,0,53,0,162,0,64,06FF162,0,0,0,162,0,81,0,162,0,60,0,162,0,47,0,162,0,A}G60,0,162,0,81,07FF162,0,0,0,162,0,85,0,162,0,60,0,162,0,51,0,162,0,60,0,162,0,85,08FF162,0,0,0,162,0,81,0,162,0,64,0,16A}G2,0,53,0,162,0,64,0,162,0,81,09HH162,0,0,0,162,0,108,0,162,0,81,0,162,0,64,0,162,0,81,0,162,0,108,0:NN162,0,40,53,162,1A}G08,40,53,162,81,40,53,0,64,40,53,0,81,40,53,0,108,40,53;KK193,0,40,53,193,114,40,53,193,81,40,53,0,64,42,0,0,81,42,0,0,114A}G,40,0<NN217,0,31,40,217,108,31,40,217,81,31,40,0,64,31,40,7,81,31,40,0,108,31,40=LL217,0,31,40,217,108,31,40,217,85,31,A}G40,0,60,31,40,0,85,0,31,0,108,35,0>LL193,0,40,47,193,96,40,47,193,81,40,47,0,64,40,47,0,81,40,47,0,96,40,47?LL193,0,40,A}G47,193,96,40,47,193,81,40,47,0,64,40,47,0,81,40,47,0,96,40,47@JJ243,0,35,47,243,96,35,47,243,72,35,47,0,60,35,47,0,72,31,0A}G,0,96,35,0AKK217,0,40,53,217,108,40,53,217,72,42,0,0,60,47,0,0,72,60,47,0,108,42,0BNN162,0,40,53,162,108,40,53,162,81,4A}G0,53,0,64,40,53,0,81,40,53,0,108,40,53CMM162,0,40,53,162,108,40,53,162,81,40,53,0,64,31,40,0,81,31,40,0,108,31,0DLL162,A}G0,31,40,162,102,31,40,162,81,31,40,0,64,31,40,0,81,35,0,0,102,40,0EII162,0,42,0,162,96,42,0,162,81,47,0,0,64,31,40,0,81,31A}G,40,0,96,28,40FNN173,0,31,47,173,114,31,47,173,96,31,47,0,64,31,47,0,96,31,47,0,114,31,47GMM173,0,33,47,173,114,33,47,1A}G73,96,33,47,0,68,33,47,0,96,33,47,0,114,42,0HPP204,0,35,50,204,121,35,50,204,102,35,50,0,72,35,50,0,102,35,50,0,121,40,50A}GIPP204,0,42,50,204,121,35,50,204,102,31,50,0,72,29,50,0,102,35,50,0,121,42,50JNN193,0,40,47,193,128,40,47,193,96,40,47,0A}G,81,40,47,0,96,40,47,0,128,40,47KKK193,0,40,47,193,114,40,47,193,81,40,47,0,64,31,0,0,81,31,0,0,143,35,0LMM173,0,35,53,A}G173,108,35,53,173,85,35,53,0,72,35,53,0,85,35,53,0,108,42,0MLL128,0,47,53,128,96,37,53,128,76,31,53,0,64,26,53,0,76,31,53,A}G0,96,37,53NLL144,0,35,42,144,85,35,42,144,72,35,42,0,53,35,42,0,72,35,42,0,85,35,42OGG144,0,35,42,144,81,47,0,144,72,42A}G,0,0,57,40,0,0,72,42,0,0,81,47,0PMM217,108,53,0,217,85,53,0,217,72,53,0,217,53,0,0,217,72,53,0,217,85,53,0QFF217,108,0,A}G0,217,85,0,0,217,72,0,0,217,53,0,0,0,72,53,0,0,85,53,0RPP217,108,35,53,217,85,35,53,217,72,35,53,217,60,35,0,217,72,0,0,21A}EG7,85,35,0SJJ217,108,35,0,217,85,35,0,217,72,37,0,217,60,35,0,0,72,35,0,0,85,31,0TNN217,108,35,0,217,81,35,0,217,64,31,0A}G,217,53,40,0,217,64,40,0,217,81,40,0UII217,108,40,0,217,81,40,0,217,64,0,0,217,53,40,0,0,64,40,0,0,81,40,0VMM217,108,35A}G,0,217,85,35,0,217,72,35,0,217,60,35,0,217,72,0,0,217,85,35,0WJJ217,108,35,0,217,85,37,0,217,72,35,0,217,60,29,0,0,72,31,0A}G,0,85,35,0XMM193,96,40,0,193,81,40,0,193,64,40,0,193,47,40,0,193,64,40,0,193,81,40,0YFF193,96,40,0,193,81,40,0,193,64,0A}G,0,193,47,0,0,0,64,0,0,0,81,40,0ZMM217,108,35,0,217,85,35,0,217,72,35,0,217,53,35,0,217,72,0,0,217,85,35,0[KK128,0,31,0A}G,85,128,0,0,64,128,31,0,50,128,31,0,64,128,35,0,85,128,31,0\RR144,0,26,31,96,144,26,31,72,144,26,31,60,144,29,35,72,144,29A}G,35,96,144,29,35]PP144,0,29,35,96,144,29,35,72,144,29,35,60,144,29,35,72,144,47,0,96,144,47,0^NN243,121,31,0,243,96,31,A}G0,243,72,31,0,243,60,35,0,243,72,35,0,243,96,35,0_NN230,114,40,0,230,96,42,0,230,81,40,0,230,57,33,0,230,81,35,0,230,96,40A}G,0`NN217,108,35,0,217,85,35,0,217,72,35,0,217,53,35,0,217,72,35,0,217,85,35,0aJJ217,108,35,0,217,85,35,0,217,72,35,0,21A}G7,60,35,0,0,72,35,0,0,85,35,0bNN162,0,40,53,162,108,40,53,162,81,40,53,0,64,40,53,0,81,40,53,0,108,40,53cKK193,0,40,53,A}G193,114,40,53,193,81,40,53,0,64,42,0,0,81,42,0,0,114,40,0dNN217,0,31,40,217,108,31,40,217,81,31,40,0,64,31,40,7,81,31,40,0A}G,108,31,40eLL217,0,31,40,217,108,31,40,217,85,31,40,0,60,31,40,0,85,0,31,0,108,35,0fNN162,0,40,0,162,108,40,0,162,81,40A}G,0,162,64,40,0,162,81,40,0,162,108,40,0gNN162,0,40,0,162,108,40,0,162,81,40,0,162,64,40,0,162,81,40,0,162,108,40,0hFF16A}G2,0,0,0,162,0,81,0,162,0,64,0,162,0,53,0,162,0,64,0,162,0,81,0iFF162,0,0,0,162,0,64,0,162,0,53,0,162,0,45,0,162,0,53,0,162A}G,0,64,0jFF162,0,0,0,162,0,81,0,162,0,60,0,162,0,47,0,162,0,60,0,162,0,81,0kFF162,0,0,0,162,0,85,0,162,0,60,0,162,0,51,0A}G,162,0,60,0,162,0,85,0lFF162,0,0,0,162,0,81,0,162,0,64,0,162,0,53,0,162,0,64,0,162,0,81,0mHH162,0,0,0,162,0,108,0,162,0A}Cy,81,0,162,0,64,0,162,0,81,0,162,0,108,0nII162,64,0,81,162,64,0,81,162,64,0,81,162,64,0,81,162,64,0,81,0,0,0,0K +@}A}C'0@ @ 1@$*K0@.06:@>G,AKMSY'/A]sAU9,A`@wK/AA}C`A0],A0@5,o/A@50>,A0@BP/A@UTe,A0@Uiw'/A@{9A}C,A @K/@`@p"(]/@U,:A0o/@`>A@/A AP/A@AE/A`APA}C'/AAE9/A,APK,A0PA5]/AA o/@TX@4\j/A%@4n/A#A}C@8 '/A@809/AAK/A4JA1],A%@5N\o/A0@2`n/A"@"r o/AA}C@ ',@@4"9/@x&*@ .<K/A@@N]/AB@4R`o/A@Udu o,A#@8y'/A}C A@E9/A@B .K/A@82R],AAo/AE@Vgo/A@iky'/A@r}A}C9,AF@*K/A A],A.YA'o/A0A],A0@]k'/A@@vo9/A5@`A}CK/A(@`$]/A @u(9,A5@=K'/AE@yO]9/A@@WaoK/A@Ws]/AA}C@so,@ ;AU/AAU,AAY'/AAU9,@ ]_eqK/Aw]/AA}CAUo,@ $/@ (XAU$ A@ D1:AVEMARIA^g Ak } ")2@WC1!"rGZNAMENBEGILENGTFILLFINDD8:ABIJQRYZabhjpry E}C &&;A,;A#,;@W', A=(&(ENTER TOTAL NUMBER OF WORDS9(AND/OR PHRASES= E}GӠΠǛ M(( }TYPE IN  WORDS OR PHRASES:M( MAXIMUM LENGTH OF EACH IS 100 -- **("MAXIMUM TOTAL LENGTH IS E}C1000 CHARS -@- F(67@15<@9x,.>:A(%@:,,FCONVERT 1ST CHAR TO INVERSE67B:,%@|,E}CB. ))ŠŠҠԠĠƠǛ 67B:,%@F,.>:A(,d ( (eȠĠԠΠ͛fE}CN&(&(LOCATE WHICH WORD?(1-)gi6-?:C:,:@:7<,,&A(,,6-%@E}C t"@*Ax(7<%&@.g, A&#""Š̠͠ΠǛ'#: #Aks!-@w@WE}G%"367<,.>:,7 :$(#YY104,104,133,1,104,133,0,104,133,3,104,133,2,169,1,133,212,160,0,132,213,177,0,16,18-#PP198E}G,2,208,14,165,3,208,8,200,177,0,16,251,132,1,96,198,3,230,212,208,2,2302#%%213,230,0,208,224,230,1,208,220 D:SAVER.BE}C1AS!"rGZNAMENBEGILENGTFILLFINDD8:ABIJQRYZabhjpry DC10 *= $060020 PLA( 9; no. of bytes30@ CPLAL c; save start address40j oSTA 1v ; of stI}Cring that holds50 PLA% ;; the list of items60B JSTA 070Q TPLA] q; get & store the80x STA 3I}C ; item no. to search90% (PLA1 D; in a counter0100I SSTA 20110X cLDA #10120h oSTA 212t ; set BEGI}C IN=10130 LDY #00140 *STY 2130150/ XLDA (0),Y ; get a char from string0160] eBPL 1579i ; is it inverse?017I}C0 DEC 2 /; yes, decrement counter01804 ABNE 15790190F PLDA 30200U ]BNE 1577a w; found item yet?0210| II}CNY &; yes, now find length0220+ HLDA (0),Y ;of item and0230M ZBPL 15690240_ dSTY 1k ; store in loc. 1I}C0250 RTS +; return to BASIC02600 5DEC 3< ]; haven't found item yet, so0270b iINC 212n ; BEGIN=BEGIN+1I}C0280 BNE 15850290 (INC 2130300- 2INC 09 M; point to next0310R ZBNE 1557^ s; char in string0320x INC 1I}C0330 BNE 1557 ; branch!( 9; no. of bytes30@ CPLAL c; save start address40j oSTA 1v ; of stH E