@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  BBL6- A } ")2T}@@E2@@@a2@@@}2@@@?-@AU}` )6-%@5"A$?#@Rg-"*"*"*"?AR@]( MeV}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,1W}62,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,0X}5FF162,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,Y}60,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,16Z}2,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,1[}08,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,114\},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,]}40,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,^}47,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,0_},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,4`}0,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}0,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,31b},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,1c}73,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,50d}IPP204,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,0e},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,f}173,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,g}0,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,42h},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,i}0,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,21j}7,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,0k},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,35l},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,0m},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,0n},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,0o},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,29p},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,q}0,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,40r},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,21s}7,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,t}193,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,0u},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,40v},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,0hFF16w}2,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,162x},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,0y},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,0z},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 +@{}'0@@1@K0@@,A'/AAU9,A`@K/A|}`A0],A0@5o/A@5,A0@/A@U,A0@U'/A@9}},A@K/@`@p]/@UA0o/@`A@/A AP/A@AE/A`AP~}'/AAE9/AAPK,AA5]/AA o/@@4/A%@4/A#}@8'/A@89/AAK/AA1],A%@5o/A0@2/A"@" o/A}@',@@49/@x@ K/A@]/AB@4o/A@U o,A#@8'/}A@E9/A@BK/A@8],AAo/AE@o/A@i'/A@r}9,AF@K/A A],AA'o/A0A],A0@'/A@@v9/A5@`}K/A(@`]/A @u,A5@'/AE@y9/A@@WK/A@W]/A}@so,@ AU/AAU,A'/AAU9,@ K/A]/A}AUo,@ /@ AU$ A@ D1:AVEMARIA@ K/A]/AWwx3BINCODPSXPIXMAPBANRBANNRROWMAPHCCCRVAOFSESTARPIXPOFSVPOLSHPOSPRPIXHPIVPIVPIROWSU }DIN@@@@  } } !"#BANNERTIZERBY JOHN BAUMANANTIC MAGAZINE ]]9@,;@ },;@,;@,9@d,9AU,;AU,9@,TITLE SCREEN A@( @@2GET }BANNER<' +'0@AM' INPUT 0 FOR A HORIZONTAL BANNERI INPUT 1 FOR A VERTICAL BANNERMF }#*@# @P @Zt +'0@p DENTER VALUE FROM 1 (SMALL) TO 10 (BI }G) TO DETERMINE CHARACTER SIZE. td# @)!@# @n Ax\ +'0@E } INPUT LINE TO BANNERTIZE.\(THEN PRESS RETURN.( 6-B:,A-@@'( נǺ9-@@ }A( -@6-@:7<,,ADJUST CHARACTER VALUE AiiCALCULATE OFFSET OF CHAR FROM STAR }T OF CHARACTER SET AND THEN CALCULATE ACTUAL START OF CHAR IN SET6-$@6-BsD%??STORE THE BINARY VAL }UES FOR THE CHARACTER IN ARRAY BINCOD-@@68,-F:%&@, ))CREATE A PIXEL MAP OF THE C }HARACTER A0PRINT OUT THE CHARACTER" (7<,, A 6 @ @@((CHARACTER VALUE ADJUCTM }ENT ROUTINE56-!A')6-&A(56-@3+@2* @,)6-&@23 A@)+ }* @2,)6-%@d$$PRINTING ROUTINE'6-+$@&@,'6-@ --@ }@bbIF THE BIT IS A 1 THEN STORE 10 ASTERISKS IN ARRAY S$, OTHERWISE STORE 10 BLANKS IN ARRAY S$(+8,%" }@,6.*( A ` 6.  --LOOP TO STORE ASTERISKS OR BLANKS IN S$  -%@ 67,. 6-% }@6-%@  *-@3 46-@> H$ 44ROUTINE TO CREATE A PIXEL MAP OF THE CH }ARACTER ]]INITIALIZE POSITION POINTER FOR PIXMAP ARRAY AND SET PIXL TO VALUE OF FIRST BIT TO TEST 6-@6-A( } //LOOP TO GET VALUES OF PIXELS HORIZONTALLY -@@ --LOOP TO GET VALUES OF PIXELS VERTICALLY - }@@6@ +"@+6-++&@,$@%, ddTEST PIXEL: IF THE BIT IS A ONE, THEN STORE A ONE IN } PIXMAP; OTHERWISE, STORE A ZERO IN PIXMAP ;8,&"68,-8,&168,-@; A0` 68,-  }INCREMENT PIXPOS 6-%@   SET PIXL VALUE TO NEXT BIT 6-'@   ;;DETERMINE IF EACH 8 BIT } ROW IN PIXMAP IS BLANK OR NOT -@! 6-& 2-@@.6-%8%+$@,,2 0 0 }!&68%@,-@0 A1@: 68%@,-D  I SSDETERMINE WHERE THE CHARACTER'S FIRST AND LAS }T ROWS TO BE PRINTED ARE LOCATEDN 1"6-@'6-@1 A1S *-@@&8,@* X } 6-&+@,b 3 -@@6@/8,@3 l 6-v $] +@'0@ }I6-F:A`,%F:Aa,$AV]%@@-@@2(@THE BANNERTIZERD-@@a( }@by john baumans-@@ (@ 蠠/F:B2y,"@,+B2y,@/$ A@ } D:BANNER.BASns-@@ (@ 蠠/F:B2y,"@,+B2y,@/$ A@ "#**VDSRSDXY } }BIFFDROPBY J.D. CASTENANTIC MAGAZINE 6-6-(6-?P(6-AV46-@<6-%Y;}A,;,;@,c+@"z6-F:A,&@A& Adu@w2&'B2x1-}M@@H%$@iA@&%$@o6-u6-iU)AAY&$@B%@$/6-U })!@ )")"@An 1%7<,3 6-s 1&7<,3 6-x# 1&@2# }A0}F:A ,AP&6-F:A2,&"@A"@AL"@"@6*(0}B7aA486-&@6-&LB7a#((*@66-%# 96-&%B7c$%A`1"@}96-&F%%F:AD,"*$6-@,6-&46-&FB7cAu = 6-%11&57<,}3)7<,3=6-&3 6- B7aA8'6-&3B7a AEA 6-&1&!1&&97}<,3)7<,3A6-%4 6-6 B7aA8(6-&4B7a AE"@6$"@@}' A:7"@5)"Af)"Ag)!@6* A1:$#"A@ A# A@"Ap'} AP 6-&$H @2,&6-&"(0#B%$6"<,B"H/1-6-@6})2- 1 I "!-$AP@+-%A2&@%&'E I ' A,j #AP}-@"-67,.7<,:67<,.> LAA&g67@,.>:F:A@,,j$1] #AP-@"-67}<,.7,1 =AAWA@@:7@,,%] $^x AA#@) A JA@&%P:%,$}@Z-@l2$@p x6-&c|-@6? 42$@$@HA@%}L ^A@(pA#@|AphG-@6-612%@?A%C G m}T(@}&-@@(4%@8 JAVA$T APrf-@$$(@& 2#B }%$< A B6-H6-TA@`AAf $~(@}AY.%@'>%$@#R%}@!@\@5h,@p/&~BBv%k /%%/@%)/@&;/@@A%}M,@_/@@k-@{0(@icked medley museum TIME: >-%@q(@%}Ӡ١{A1oAA1,%%,%-,%9/@G/@%QAhe%}@"@o,%%^ #B A ! A 2-@6<-N2%@^A%'o } -%@-%@#@"?AA"Q2AP%c2AQ%oB7hsI(@P:+F:}@,$$%F:@,$%F:$,,'AA6P, MINUTES[AY@bs6-?:C: hȌЭ`,, Ae +@}AY%@1B7tA6-$%@$M6-@W Ag6-$%A`m6-w A6-$%A6-}_ AA%BBy3B2w%G-AAK"QU _#APUrr6.hإХХЍХ}iiiivv67A,.c̝̝}̝˱ΝϱΝˍiivv67A,.ci,iṰ*}`;I;</I/ )  Ѝ )  m67A,.Lb&A%4-@:"}J67<,.>:%,N _6. hL\m6-P:C:,',p6-C:,&$"67'<',.>:,<67@<@,.>:,F#A`X}AAYl-A6Ap"e  A@1BBA=6-?:C:,,Y6-F:A`,%$F:Aa},eA&o@%AY--&@7%&; I%@Y%$A4e6-@o#AP}+I %-"!,'/-/3/9/= I@0m -%&((@ 2 A }:-%U(@ press triggercA#$m A 5q2&2&/2%@$;B7hMA}AP_A@8e'qA: ,%/@%/%@7/@@I,@@[,@}@m,@@/@@/@@?/@%A1-,@@;/%@}A6-G6-O6-'U6-gAA6yAY@b@2Do!6-?:C:hЭ ԍЭ`,,3,@@}A/%@K A c-A8A@$oAIW -$  %)AY5-&$C%@}G W%%@N%@%'!%@&5%@'@I%@(@UAaAVp(@}}|@@XcAY A'%,1/@C/@@O/@U/c#B}%$]O A7",#/'"1@9-C"I,O/_5 A#@"!+@6}5 Ab" Ag Ac" Af Ad" Ap AeS" Ah}',@@1@@=,@GA6S,@f" @5 Ag" @C A}hL"A@-"%,) .(8@2D,@L/%jg A 6-6-6-%6-+6-36.}@67&,.I67,.S#APu]-'g AulW-@" '"1#AP?-@C"S6}7<,.7<,W qB2VB2W$"67<,. 167@<@,.B67'<',.L-%$l}67@<',.7@<',67@6<@6,.67@C<@C,.9(@ SLYVESTERS:&K-@@}!l(@room >:%@,~AY@bAA $& -",/# &$& -}",/# &$4 -"-#,)/- 1 4$   6-% %% 6-%6-%"@}%6-* "6-@/!@6-4( 6-6-(@}( A2-B7aB7g! }/B7`'2$FF]]]<~*΀<~h0FF`}|<8888(p8px8`(80g6 ><FF lx80h8FFBB}BBff<<~~<<<<~~<:A(%@:,,FCONVERT 1ST CHAR TO INVERSE67B:,%@,-0}. ))ŠŠҠԠĠƠǛ 67B:,%@,.>:A(,d ( (eȠĠԠΠ͛f-1}&(&(LOCATE WHICH WORD?(1-)gi6-?:C:,:@:7<,,&A(,,6-%@-2}t"@Ax(7<%&@, A&#""Š̠͠ΠǛ'#: #A!-@@W-3}%"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-#PP198-4},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.B-5}AS208,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.B,10 *= $060020 PLA ; no. of bytes30 PLA ; save start address40 STA 1 ; of st17}ring that holds50 PLA ; the list of items60 STA 070 PLA ; get & store the80 STA 318} ; item no. to search90 PLA ; in a counter0100 STA 20110 LDA #10120 STA 212 ; set BEG19}IN=10130 LDY #00140 STY 2130150 LDA (0),Y ; get a char from string0160 BPL 1579 ; is it inverse?0171:}0 DEC 2 ; yes, decrement counter0180 BNE 15790190 LDA 30200 BNE 1577 ; found item yet?0210 I1;}NY ; yes, now find length0220 LDA (0),Y ;of item and0230 BPL 15690240 STY 1 ; store in loc. 11<}0250 RTS ; return to BASIC0260 DEC 3 ; haven't found item yet, so0270 INC 212 ; BEGIN=BEGIN+11=}0280 BNE 15850290 INC 2130300 INC 0 ; point to next0310 BNE 1557 ; char in string0320 INC 11>}0330 BNE 1557 ; branch!2130300 INC 0 ; point to next0310 BNE 1557 ; char in string0320 INC 10 0 ;WINDOWS2.ASM01 ; ..TEST INTO GRAPHICS SCREENS..02 ; BIT to BIT PAIR Expansion with03 ; conversion for 4 color Graphics5@}04 ; with string input capability.05 ; vs.2 by Dave Culbertson06 ; (C) Jun 11,1984 CE Softwart07 ;08 ;EQUATES09 DAT5A} = $CB ;ADR OF RESULT STRING.10 SW = $CD ;FLAG FOR 2 NIBBLES.11 TMP = $CE ;HOLDS WORKING BYTE.12 5B}COL = $CF ;COLOR MODIFIER REG.13 COL1 = $D0 ;COPY OF COLOR MODIFIER.14 YINR = $D1 ;Y POINTER INNER LO5C}OP.15 YOUT = $D2 ;Y POINTER OUTER LOOP.16 CHR = $D3 ;ADR OF SOURCE STRING.17 PT = $D5 ;PTR INTO CS5D}.18 INV = $D7 ;INVERSE FLAG.19 NUM = $D8 ;LEN OF STRING.20 NUM1 = $D9 ;COPY OF LEN*2.21 TEA = 5E}$DA ;TEMP AREA.22 PTR = $DB ;PTR TO WORK AREA ($400).23 CS = 756 ;PAGE PNTR OF CHAR SET.24 ;25 5F} *= $4000 ;IGNORE (RELOCATABLE)26 GET THE VARIABLES27 ;28 PLA 29 PLA 30 STA DAT+131 5G} PLA 32 STA DAT33 PLA 34 STA CHR+135 PLA 36 STA CHR37 PLA 38 PLA 39 5H}STA NUM ;GET NUMBER OF CHRS40 ASL A41 STA NUM1 ;NUM1=NUM*242 PLA 43 PLA 44 AND #3 5I} ;ONLY BITS 1&2 OK.45 CLC 46 ROR A47 ROR A48 ROR A49 AND #192 ;ONLY PASS BITS 7&8.55J}0 STA COL ;STORE COLOR CODE.51 STA COL1 ;AND A COPY.52 LDA #0 ;POINT TO PAGE 4.53 STA 5K}PTR54 LDA #455 STA PTR+156 ; CONVERT FROM CHARACTER TO57 ; ADR OF PLACE IN CHARACTER SET58 BE LDA #0 5L} ;CLEAR WORK AREA.59 TAY 60 BF STA (PTR),Y61 INY 62 CPY #1663 BNE BF64 LDA #25565 5M} STA INV ;NORMAL MODE.66 LDY #0 ;Y=067 LDA (CHR),Y ;GET THE CHARACTER68 CMP #128 ;IS A <125N}7?69 BCC T ;YES GOTO T70 STY INV ;SET INVERSE.71 EOR #12872 ;73 T CMP #96 ;IS IT LOW5O}ERCASE?74 BCC U ;NO,GOTO U.75 LDY #3 ;SET OFFSET.76 BCS Q ;GOTO Q.77 ;78 U CMP #65P}4 ;IS IT UPPERCASE?79 BCC V ;NO,GOTO V.80 LDY #1 ;SET PAGE 1.81 BCS Q ;GOTO Q.82 ;5Q}83 V CMP #32 ;IS IT A SYMBOL?84 BCC W ;NO,GOTO W.85 BCS Q ;YES,GOTO Q.86 ; 1st ISLAND TO 5R}BEGINNING.87 IS CLC 88 BCC BE ;GOTO BEGINNING.89 ;90 W LDY #2 ;A GRAPHICS CHR!91 ;92 Q AND #5S}31 ;NOW ACC <32!93 ASL A ;MULTIPLY BY 8!94 ASL A95 ASL A96 STA PT ;INDEX INTO PAGE5T}.97 CLC ;MOVE PAGE OFFSET.98 TYA 99 ADC CS ;ADD C.S. TO OFFSET.0100 STA PT+1 ;STORE5U} IT.0101 ; MAIN ROUTINE0102 LDY #00103 STY YINR0104 STY YOUT0105 S LDX #00106 STX SW0107 LDY YOU5V}T0108 LDA (PT),Y0109 STA TMP0110 B LDY YINR0111 LDA TMP0112 BMI C0113 ;0114 LDA (PTR),Y0115 5W} ORA COL0116 STA (PTR),Y0117 C CLC 0118 ROR COL0119 CLC 0120 ROR COL0121 ASL TMP0122 INX 015X}23 CPX #40124 BNE B0125 ;0126 LDA INV ;CHECK FOR INVERSE?0127 BEQ D0128 SEC ;INVERT BITS5Y}0129 SBC (PTR),Y0130 STA (PTR),Y0131 D LDA COL1 ;ADJUST FOR NEXT0132 STA COL0133 INC YINR0134 5Z}INC SW0135 LDA SW0136 CMP #20137 BNE B0138 ;0139 INC YOUT0140 LDY YOUT0141 CPY #80142 BNE5[} S0143 BEQ K ;HOP OVER ISLAND.0144 ; 2nd ISLAND TO BEGINNING0145 HOP CLC 0146 BCC IS ;GOTO BEGINNING.5\}0147 ; CONVERT DAT TO STRING FORMAT.0148 K LDA DAT ;PUSH DAT ON STACK0149 PHA 0150 LDA DAT+10151 PHA 05]}152 LDY #00153 AG LDA (PTR),Y0154 STA (DAT),Y0155 INY 0156 CPY #20157 BNE AG0158 J LDA (PTR),Y05^}159 TAX 0160 INY 0161 LDA (PTR),Y0162 PHA 0163 INY 0164 STY TEA0165 LDY NUM10166 TXA 5_}0167 STA (DAT),Y0168 PLA 0169 INY 0170 STA (DAT),Y0171 CLC 0172 LDA DAT0173 ADC NUM10174 5`} STA DAT0175 BCC G0176 INC DAT+10177 G LDY TEA0178 CPY #160179 BNE J0180 PLA ;RECOVER &5a} BUMP DAT0181 STA DAT+10182 CLC 0183 PLA 0184 ADC #20185 STA DAT0186 BCC I0187 INC DAT+105b}188 I INC CHR ;INCREMENT CHR0189 BNE H0190 INC CHR+10191 H DEC NUM0192 BNE HOP ;DO NEXT CHARACTER5c}.0193 RTS ;INCREMENT CHR0189 BNE H0190 INC CHR+10191 H DEC NUM0192 BNE HOP ;DO NEXT CHARACTER4CDyWCOTHODATRR1BOOCOVELINMSGASWORKMIMLSTARMLEN9e} 9f}WINDOWS2&&BY JERRY WHITE & DAVE CULBERTSONANTIC MAGAZINEd1 +AR@9g}1@@n&(&( GRAPHICS WINDOWS OF TEXTx+(+( BY JERRY WHITE & DAVE CULBERTSON99;A,;@9q}GB%DOS SYSB*)DUP SYSB3SAVEMARIABASBBANNER BASBVBIFFDROPBASBINFOBITSASMB INFOBITSBASBPRNTSC ASMB&PRNTSC OBJB'PRTSMPLEASMB+PRTSMPLEOBJB ,SAVER BASB 6SAVER SRCB%?WINDOWS2ASMBdWINDOWS2BAS,;@$@,;Ac,(( CREATING W$--@A")67<,.>:,- (( CREATING E$-9r}-@Ac")67<,.>:,- 16-@6-@@'+%@1 A`16-@6-@@'+%@9s}1 A`16-@6-@@'+%@1 A`16-@6-@ '+%@1 A`16-@9t}6-@'+%@1 A`16-@6-@'+%@1 A`7 +@@"(,(B9u}ASIC4(IS7DISPLAY MSG SUBROUTINEk0@ @70@@@Q0@@ 9v}k0@@@CLEAR STRINGSG6.>:,267@$@,.>:,A67@,.G6."-@9w}@,CREATE MSG$ TO DISPLAY6x6. Gr#? Š667@<@,.>:%@H,X67@<@,.>:%@H9x},x67@<@,.>:,@ CONVERT TO GRAPHICS FORMATJ((6-?:C:,A@@72; >$DATA FOR W$%%104,104,133,206,104,133,205,104141,19|},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 9}}204,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,29~}09,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,1659},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,104D9}%%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,1339},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,29}15,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,19}0,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,19}65 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,9}145,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,9}160,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,29}17,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,209}4,24,104,105,2,133,203p!!144,2,230,204,230,211,208,2z 230,212,198,216,208,177,96D:WINDOWS2.BAS104f""133,208n