@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 D8uIF PEEK(5576)<>162 THEN ? "}NOT COMPATIBLE with this DOS.":STOPCLOSE #1:CLR :DIM Z$(18):? "}Enter the Binary File to RUN.":?T} " Ex. D2:GAME"? "":INPUT #16,Z$:OPEN #1,4,0,Z$:Z=USR(5576)U}x. D2:GAME"? "":INPUT #16,Z$:OPEN #1,4,0,Z$:Z=USR(5576)IIDBULXABEL3L4NCCVSKFMLHNNCYTWDCRWPRPTPJMFCRCTCLRWZRL1L2CSSTIC W}SRPTCPIPLCDSGRCSCBANVDQ X} @ @@@@@@ Y}@ !"#$%&'( Z})*+,-./01234@5678 [}@9:;<=>?@@ABCDEFG \}HIJCRIBBAGE ATARI!BY DAVID C. OSBORN$$(c)1989, ANTIC PUBLISHING INC. I +@6- ]}%6-+6-7AA A%`ITITLEO( (O(@ Enter Timing Delay 0-9 ( 0 = Fast, 9 = Slo ^}w )  @ (2 A$06-#@<U #A)p6-+@' A3AVG-AAK _}"QU A #A& Fx-@@2(@()L*! !_P-,D6. 1& 3' 5( 7(V6. 2F 4( 6( 8(h-@@ `}x(@$$P-@@)(@!_P:.#;-@@Z(@1& 2F 3' 4( 5( 6(l-@@ a}(@$$ $$ $$ $$ $$ $$Z' 6- A@'-@dC(68,-P:H:,$@R,%@468,-8, b}C68,-n>-&@>8,"8,)8,!@RAx  D8,!@&68,-8,&@ c}:68,-8,%@D A0;68,-8,%@;8, @ *8,&@A!8,"@!68,-@ d}!8,"@!68,-@1!8,"@!68,-@!8,"@!68,-@'!8,"@!68,-A e}568,-8,%A#&8,"@568,-@]8, @&68,-8,%@:68,-8,%@I8,  f}A]68,-8,%@dJ -@$68,-( 46-@6-@J A@A-@# g}68,-8,28,!@A68,-@COMPUTER'S CRIB PICK 6-6-@) A#3 A@= Ap h}O-@@^(@$2@@@6-#@%%2 i}COUNT POINTSPLAYER'S CRIB PICK"6-@#-@- A;-%@K(@ _-@% j}@n(@$v6-$6-%&,Y-@@a32@@7 Y2 k}6} A ` "#6-@5-@@E(@ Q6-]6-i6-s A@} A l}@6-P:+%@,'@,66-+&@,'@H68@,-8,Z68@,-8,f6-r6-@| A# m}6-6@-@J?%8,&8@,*8,&8@,36-%@?68,-8,T 6-6-@ n}) A#;-@@O(@ Y A@f8@,x,@@8@,^w,@@ o}*8@,"@06-<6-@F A X-@@m(@FK EP 2w A `hm6-@6-) p}-@@=68,-8%@,A U-@@i68,-8&@,m rTHE PLAY|u6. * q}-@@6-@C(@G S6-_6-k6-@u A@H6-@6---@ r}@46-(H-@g88,,!@ 6-+6-@76-@G(@ IS6-]  s}A g A ##-$@$@%@e%88,,!@1 --@ @36-96-I(@ I t}S A `e-@ @#-$@$@%@7%88,,!@1; G6-@W(@ Ic6-@ u}m A w A ` A6-@!-@@.(@@-@ @M(@S"Z6-(h6 v}-%@v6-%@6- A`H6-%@<6-@$P:+%@,'@,&@H6-@C w}6-@6-) A9(@ C A ` A`k A0 A`6-)6-C688 x},,-88,,%@PI6-S A `e-@@ k6- @1A?-@(@(-@5( y}@? A3"!@A3B7tA$PLAY IS OVER2 A p&6. z} 26-CLEAR SCREENw-@1688,,-88,,&@P5 I-@@U-@b {}(@f w6-O:&@,&EEIF ZZ THEN ALL THREE COUNTED AND WE'RE READY FOR THE NEXT HAND0#6-' |}'# @p:k-@#68,-8,' ;-@@O68,-8&@,S _6-@k6-@Dy }}-@@+68,-8&@,/ C-@Y6-$@%@k68,-8@,o y A#NSET U ~}P SCREENXg6-6. !_P :.#,6. %! :.#066.<6.B6.N6-@g6. bf-@ }@"(@4-@@A(@S-@@f(@() -,l-@@'(@&. }/P36-@?6-@K6-@W6-Aa A0s-@@(@vCOUNT HANDN6-@6 }-6-% Ap+6-<6-O:&@,N-@@COUNT SECOND HAND%6-@6-6-% Ap }COUNT CRIB HAND%6-@6-@% Ap 6-6-@ A@[6-6-@'6-@3 }6-=A0O,@@[6-A'A@d3"@u>@^@ }@K:k)@v@ A`46-R:,(!@* @46-@C @6- }@B6@w*T:,"66-@b!!"@*&@bA !@B6-K }-@@#A(5,@@;&EA(K,  "@b$$T:,"$6-@b }  @C6-@*+ 6-6-%&@% @+6-4 !6-@>q'2$@@ }@1A07,E6-#@g2q AH##DISPLAY PLAY ORDER INDICATORSR~6 }-@6-@--@@?(@&./PCU-@@f(@%! r6-@~6-@\8- }@(@(-@5(@8$f""ASSIGN POSSIBLES & SORT THEMp #A%6---@ }96-@M-@@Q"Z68,-^ j6-@v6-@  A#z"@!-@@1( }@$S2@@@a6-#@2 PAIRSA-@@ }188,,"88%@,,A6-$%@CHECK FOR STRAIGHTSw 6-88@,,+6-88@,,=6-88@ },,O6-88@ ,,i"&@*"&@w6-%@+"&@*"&@+6-%@+"&@* }"&@+6-%@7)"&@*"&@*"&@76-&@VALUE OF CRIBS CARDSQ6-!6- }88@,,36-88@,,E")%"@Q6-@3%%"@)"@)"@36-%@"&@ }6-%?P6-615'S u6-88@,,'6-88@,,96-88@,,K6-88@ ,,g }%%"@)%"@u6-%@-%%"@)%"@-6-%@-%%"@)%"@-6-%@ }$/!%%%"@)%"@/6-%@.%"@6-%@8%"@6-%@B FLUSHL }C-@@ 188,,"88%@,,5 C6-%@Vi6-+&,$@)-@@ ;88,, @ }I6-%@[88,,"@i6-%@`7  6-'-@@368,-8,7 jj -@@ }'68,-8,+ 76-O68@,-8@,g68@,-8@,j$t}6. .-@@ };(@C-Y6-@$%@}2@$@@@~` 88,,,@#88,,7,%@ }@; ]2@`$R6-6A$-@@06->6-%88,,R!@1 }A"@16-%@"@6-%@!@6-%@ @6-%@ }'"@)"@!'6-&@"@6-&@9+88,,"@)+!@* @ ,96-&@ };-@@-")88,,!@1 ; A@-88,,"@*"@0-6-%@-88,,"@ }*"@)-6-%@-88,,"@*"@)-6-%@-88,,"@*"@(-6-%@ -88 },,"@ *"@-6-%@-88,,"@*"@-6-%@-88,,"@*"@-6-%@ }(-88,,"@*"@ -6-%@2 < @ApF+ A A@+6-%+%,$@PPm6- }&@6-8,&68,-8,<-@&@H68,-8,L V A_68,-m6-%@Z 6-6-d }  6-$ny6-@ A'-%@J6-P:+%@,'@,&@^%88,,!@1l6-&@o' }y APx @$1#-@%&@@1"A   $9 88,,,88,,+,%@ }96-%88,,8 @2*&A+-@ @8(@^ -@6@=-AA }6@S2@W [ ^$! A6-! A`5 A@6-5 A %+&@,$@ }%"@6-@% A +"@16-@% A+6-$6.31 EP  Ap6. }15 EP  Ap6.LMP EP  Ap6.3 EP  Ap6.4 EP  Ap6.J< EP "g 6- A }%-@@4(@> A `H A pZ-@@g(@,%-@ @"(@%$ }696-68,-88,,*68,-8,6 @9$@=-@&@%6-@--968,-8,= J_ }-&@'8,!8%@,06-8,D68,-8%@,U68%@,-_ ATE  -&@6@08 },"8,%&>6-%@B E$^ 6-$h*6-6-' @*$r0-@&@- }88,,&88&,,0$|*6-$+%@,#6-%@' *$k6-@6-@P'6-@7-%@A A0 }O6-%@S _"@k6-@ FLUSHJ6-&-@6@8-@@J-%@ }%k88,,"88,, '6-%@A(@ QTREP K A W6-a Apk A0 5 }CARD RUNR6-#A0--@A-@E"N68,-R q-@@ )-@ }@M88%8,,,"88%8,,,&Q ]6-@g Aq A04 CARD RUNl 6-6- }3-@G-@K"T68,-X l-@@M'88%8,,,"88%8,,,&+ 76- }@A AM6-@ A0 #A0@3 CARD RUNP-@!+-@/"86 }8,-< P-@@A'88%8,,,"88%8,,,&+ 76-@A A &5 CARD 150]6- }-%@-6-%88,,1 =6-@G AS6-@]#A):15 FOR 2 D -@@6 }@Na--#",68,-0 <6-J-]6-%88%8,,,a X! A 6 }-@ ! b PAIRSlF #A0!-@ 5-@9"B68,-F v6-788%8 },,,"88%8@,,,C6-@U-@@k(@LMP EP 2u A  Ap JACK OF STARTER }:6-@6-6@,-%@:6-%@|+88,,"@*88,,"88@,,=-@@R(@ }HK EP 1\ A f A r6-| Ap 6-/ A -@@,(@/$B } A -@@5(@J< EP ? ApB$V"@6-@% A 7-@@L(@ }15 EP 2V Ap6-$P A0#,$@%@- A `7M,$@%@P$ }ARROWS ->b-&@6-86-8,$@%@>6-J!@V6-@b6-@6- }6-A0W ,6-6- ' A `+76-C6-@M A `W A  -#-@ }@ E(@!_PNO)8,%W-@@ x(@ ϩ8@,%| $-$@ }  $*s6-O:&@,"-@668,-8,%@@ A!DJ,l2@p }s$48,!8,A!`>;8, @ #6-8,&@/6-;6-AHV8,!@6-@/6-8, }&@ ;6-A!J8,"@ V6-ARV8,!@0#6-@P&8,/6-@;6-AJ8,"@1V6 }-Aq\V8,!@I6-/6-@a&8,;6-A!J8,"@PV6-Af<92@@ @% }$@@%$@<$pK8,!@P6-/6-@a&8,;6-A?K6-AzK8, @Q6 }-@/6-@P&8,;6-A?K6-AK8, @26-@/6-8,&@ ;6-A?K6-A }K8, @!6-/6-8,&@;6-A?K6-AIF SC(WH)=61K8,&@aH2@ }@ @%$@@%$@K$K 6-6-+-@?%G2@@K  }g ,1/@C/@@U/@g/6-%@` }6-%@`!!!@p)!@pA#@68,-"6-&%@+6-8,16-@68,-  }A  6-6- A 6-6-6-$ ^ +@ A+-@M0@$+ }%@,$@Q ^(A#P mm(@ GOOD GAME!!!!  could be expected. }   A%p"@%$ A#0. ee(@ ٿ I BELIEVE I KNOW what w }ent wrong. 8 YY(@now that i realize3WHO I'M UP AGAINST ſ Y/N }=  A%p"@%B 0-@@0(@ !! L A#V -` M-&@%88 },, 88,,.6-8,:68,-8,C68,-M A$j 0  6-6-' A `-6-0$t llKEYBOARD OPTION, TIT }LE, INSTRUCTIONS, CHANGE CHARACTER SET,FROM LINE 10~ j +@ A! A%`86-F:A },&@F6-$AVP#A& j6-P:H:,$@, ;@,;@,;@,9@,9@, }9@,9@,9@,9@,9@,9@,9@,9@,9@,;@, ;@, } " g"@rE(@(ӠˠҠpress j for joystickO A%U6-g@wA& 3#"@r* }&@t*&@u)6-3 A$e  #&A A%`# A%  i6-F:AV,$AV6-A(A@ }J-@W6-F:%%,a%%e i  -@@](@ PRESS ARROWS FOR SELECTIO }N, INSERT FOR CHOICEr68,-68@,- u"@t!-@@u(@MOVE JOYSTIC }K FOR SELECTION" FIRE FOR CHOICE PLUG INTO #1 ?%@#-@'"1%%5 ? A$`  }@w$ TITLE K-@@>(@CRIBBAGE ATARI!H AK$ GET AN ANSWER } xA'A@dG@@@K:T)@_@u(@>:A%,x$ gg }6,7,8,9,10,11,6,7,8,10,9,11,6,7,8,11,9,10,6,7,9,10,8,11,6,7,9,11,8,10,6,7,10,11,8,9,6,8,9,10,7,11( gg6,8,9,11,7,10,6,8,10, }11,7,9,6,9,10,11,7,8,7,8,9,10,6,11,7,8,9,11,6,10,7,8,10,11,6,9,7,9,10,11,6,82 8,9,10,11,6,7< CHARACTER SETF KK8,0,0 },34,20,8,8,8,0,16,0,16,8,12,126,12,8,16,24,0,0,99,84,82,81,102,0P NN32,0,60,60,60,60,60,60,0,40,0,0,27,27,21,17,17,0,48,0,0 },55,66,34,18,98,0Z UU56,0,0,236,170,202,170,172,0,64,0,0,234,74,78,74,74,0,72,0,0,112,64,96,64,112,0d SS80,0,0,66,69,71,6 }9,117,0,88,0,102,102,6,6,126,126,0,96,0,0,119,37,38,37,119,0n RR104,0,0,39,85,70,85,37,0,112,0,0,39,85,118,85,85,0,120,0,0, }119,36,38,36,39,0x SS208,0,0,4,10,8,10,4,0,216,0,60,66,66,78,66,61,0,224,0,0,173,173,171,171,233,0 UU232,0,0,238,132,196 },132,228,0,240,0,96,96,0,0,6,6,0,248,0,68,202,74,74,74,228,0 SS256,0,28,28,127,119,8,28,0,264,0,8,20,20,62,34,119,0,272,0, }14,4,4,116,36,60,0 XX280,0,0,215,210,178,178,146,0,288,0,36,40,48,40,44,36,0,296,0,0,114,69,101,69,66,0 ZZ304,0,0,214,2 }13,181,181,150,0,312,0,0,83,84,98,81,86,0,320,0,0,210,213,181,181,146,0 !!328,0,0,98,133,133,181,98,0 336,0,0,14,10,1 }2,10,10,0 344,0,0,115,84,98,81,118,0 352,0,0,14,10,14,8,8,0 360,0,0,39,82,114,82,87,0 368,0,0,50,69,36,21 },98,0 376,0,0,39,85,86,85,37,0 384,0,0,112,80,96,80,80,0 392,0,0,116,68,100,68,71,0 400,0,0,80,80,112,80, }80,0 !!408,0,126,126,6,6,102,102,0 416,0,0,83,84,82,81,118,0" ##424,0,102,102,96,96,126,126,0, 432,0,126,126,0, }0,0,0,06 440,0,0,0,0,0,126,126,0@ !!448,0,126,126,0,0,126,126,0J 456,0,96,96,96,96,96,96,0T 464,0,6,6,6,6,6,6,0 }^ 472,0,54,119,127,62,28,8,0h !!480,0,24,60,126,126,60,24,0r %%488,0,102,102,102,102,102,102,0| !!496,0,24,60,126,1 }26,24,60,0 !!504,0,0,74,170,170,170,68,0 -1 162,0,66,102,152 --0,1,2,3,0,1,2,4,0,1,3,4,0,2,3,4,1,2,3,4 AA0 },1,2,0,1,3,0,1,4,0,2,3,0,2,4,0,3,4,1,2,3,1,2,4,1,3,4,2,3,4 --0,1,0,2,0,3,0,4,1,2,1,3,1,4,2,3,2,4,3,4 770,1,2,3,4,0,1,2, }4,3,0,1,4,2,3,0,4,1,2,3,4,0,1,2,3 mm0,1,2,3,0,1,2,4,0,1,4,2,0,4,1,2,4,0,1,2,0,1,3,4,0,1,4,3,0,4,1,3,4,0,1,3,0,2,3,4,0,2,4, }3,0,4,2,3,4,0,2,3 %%1,2,3,4,1,2,4,3,1,4,2,3,4,1,2,3 ee0,1,2,0,1,3,0,1,4,0,4,1,4,0,1,0,2,3,0,2,4,0,4,2,4,0,2,0,3,4,0,4,3 },4,0,3,1,2,3,1,2,4,1,4,2,4,1,2 ))1,3,4,1,4,3,4,1,3,2,3,4,2,4,3,4,2,3D1:CRIBBAGE.BAS }2,4,3,4,2,3D1:CRIBBAGE.BAS 47 AND Z<}59 THEN ? CHR$(Z);:Z$(I,I)=CHR$(Z):NEXT I:CLOSE #1? "}":Z=VAL(Z$):FOR I=1 TO 4:Z(I)=0:NEXT I? "}":ZZ=INT(Z/4096):IF ZZ>0 TH}EN Z(1)=ZZ:Z=Z-4096*ZZ? "}":ZZ=INT(Z/256):IF ZZ>0 THEN Z(2)=ZZ:Z=Z-256*ZZ? "}":ZZ=INT(Z/16):IF ZZ>0 THEN Z(3)=ZZ:Z=Z-16*ZZ}? "}":Z(4)=Z? "DECIMAL ";Z$;" = ";:FOR I=1 TO 4:? ZZ$(Z(I)+1,Z(I)+1);:NEXT I:? " HEX"? "Press SPACE BAR to Continue,":}? "H to Convert HEX Numbers,":? "Any other Key to Quit.":CLOSE #1? "":OPEN #1,4,0,"K:":GET #1,Z:CLOSE #1:IF Z=72 THEN DN$(}4)="HEX":ENTER DN$IF Z=32 THEN ENTER DN$} Z=32 THEN ENTER DN$CLOSE #1:CLR :POKE 710,66:DIM Z$(18):? "}Which File to DELETE?"? " Ex. D2:DATA.EXE":INPUT #16,Z$:? "}Deleting ";Z$:POKE 7}10,148:XIO 33,#1,0,0,Z$}:XIO 33,#1,0,0,Z$CLOSE #1:CLR :DIM Z$(18):Z$="D1:*.*":? "}Which Drive?":OPEN #1,4,0,"K:":GET #1,Z:CLOSE #1:IF Z<49 OR Z>56 THEN STOP ? "}":Z$}(2,2)=CHR$(Z):OPEN #1,7,0,Z$:FOR I=1 TO 66:INPUT #1,Z$:? Z$:NEXT I}CHR$(Z):OPEN #1,7,0,Z$:FOR I=1 TO 66:INPUT #1,Z$:? Z$:NEXT I WELCOME TO THE ANTIC MONTHLY DISK 㩱㮠 Having troub}le using this disk?Getting a BASIC program to RUN iseasier than you think!! When theMonthly Disk Menu appears, justtype }the NUMBER of the program youwant to RUN, then press the[RETURN] button.XXX For example, to use HELP.BAS,you'd: 1. } Locate "HELP.BAS" in the menu. It'll look like this: Ю(05) 2. Find the number of the file. } (In this case, Юӛ is file 5.) 3. Now, type a 5 and press [RETURN]. That's all you nee}d to do!XXXMost of the programs on this disk arewritten in Atari BASIC. Some requirespecial hardware or specific operati}nginstructions. Please read the matchingissue of ANTIC Magazine for completedocumentation.SUBSCRIPTION Info & Orders:(8}00) 347-6969.BACK ISSUE Orders: (800) 234-7001(Visa or Mastercard only, please.)XXX *** BONUS FILES * BONUS FILES ***} Not only have we placed ALL ofPaul Alhart's BASIC ENHANCEMENTSon this side of the disk -- we'vealso included ENHANCE.B}AS, thespecial BASIC program used tocreate them! You do not need to RUN thisprogram--all the enhancements arealready on} the disk. We includedit to show you one way to writeBASIC programs which have no linenumbers. (See the magazine articl}e forcomplete information about ENHANCE.)XXXThe menu that appeared on the screenwhen you booted the disk will onlyRUN }programs with a .BAS extender.If you try to run a program and theresponse is 'cannot run Filename',check the file extender} with thislist:XXX.BAS BASIC saved program, use menu RUN or LOAD and RUN..LST BASIC listed program, ENTER } then RUN..EXE Assembly language 'Load and Go' file. Remove BASIC, boot DOS, type L then enter the }filename.XXX.M65 "LISTed" MAC/65 assembly language source code. Must be compiled..SYS Reserved for DOS  }system files..DOC Text file. Usually accessed by another program.XXXAll programs from ANTIC issues datedprior t }o August 1984 were reproducedfrom ANTIC's Archive. We've updatedthem from our HELP columns andmost are compatible with th }e XL andXE machines. We have worked to insurethat our programs operate aspublished, but we consider all oursoftware listi }ngs to be works inprogress which we encourage you topersonalize and enhance.Good luck, and ENJOY! -Charles Jackson } Technical and Online Editor Antic Publishing}?IF PEEK(1801)>16 OR PEEK(1801)=0 THEN ? "}NOT COMPATIBLE with this DOS.":STOP CLOSE #1:CLR :DIM Z$(11),Z(8):Z$="NOT Enabled"!}FOR Z=1 TO 8:Z(Z)=1:NEXT Z:Z=PEEK(1802)? "}":IF Z>=128 THEN Z(8)=4:Z=Z-128? "}":IF Z>=64 THEN Z(7)=4:Z=Z-64? "}":IF Z>=32!} THEN Z(6)=4:Z=Z-32? "}":IF Z>=16 THEN Z(5)=4:Z=Z-16? "}":IF Z>=8 THEN Z(4)=4:Z=Z-8? "}":IF Z>=4 THEN Z(3)=4:Z=Z-4? "}":I!}F Z>=2 THEN Z(2)=4:Z=Z-2? "}":IF Z>=1 THEN Z(1)=4? "}":FOR Z=1 TO 8:? "Drive ";Z;" is ";Z$(Z(Z)):NEXT Z? "Would you like !}to change this set up?":OPEN #1,4,0,"K:":GET #1,Z:CLOSE #1:IF Z<>89 THEN STOP ? "}Press Numbers of Drives to Enable.":FOR Z=!}1 TO 8:Z(Z)=0:NEXT Z?"":FOR I=1 TO 4:OPEN #1,4,0,"K:":GET#1,Z:CLOSE #1:IF Z<57 AND Z>48 THEN Z(Z-48)=1:? "DRIVE ";Z-48;Z$(!}4):NEXT IZ=1:FOR I=1 TO 8:Z(I)=Z(I)*Z:Z=Z*2:NEXT I:Z=0:FOR I=1 TO 8:Z=Z+Z(I):NEXT I:IF Z>0 THEN POKE 1802,ZZ=USR(58484)!} TO 8:Z(I)=Z(I)*Z:Z=Z*2:NEXT I:Z=0:FOR I=1 TO 8:Z=Z+Z(I):NEXT I:IF Z>0 THEN POKE 1802,ZZ=USR(58484)   "==QCHOIC BASIC ENHANCEMENTSBY PAUL ALHART%%(TYPE-IN VERSION BY C. JACKS%}ON)$$(c)1989, ANTIC PUBLISHING INC.(U;@,6.>:@4,1A@0CA UA@f%}2k@A'B7tAH(} BASIC EnhancementsK(h( by Paul Alhartk(7*(*( ( 1) B%}INLOAD( 7) ERROR.164<J(%( ( 2) DEC/HEX ( 8) LOCK((J( ( 3) DELETE ( 9) OPENFILEFF(#( ( 4) DIR (10)%} RENAME&(F( ( 5) DRIVES (11) UNLOCKPC('( ( 6) ERROR (12) WRITEDOS*(-(?( Your ChoiceCUq @Pq%}AAAAAAAAA AAPA!V=AdAU(=(%} (Press any key to continue...)X F:Ad,"AU@ZAdAU @PcdT B"(Creat%}ing BINLOAD-@T@@ D:BINLOADnXX(@IF PEEK(5576)<>162 THEN ? }NOT COMPATIBLE %}with this DOS.:STOPxll(@CLOSE #1:CLR :DIM Z$(18):? }Enter the Binary File to RUN.:?  Ex. D2% }:GAMEGG(@? (:INPUT #16,Z$:OPEN #1,4,0,Z$:Z=USR(5576)+@%(BINLOAD Completed.((+$L%!} B( Creating DEC)@L@@D:DEC++(@CLOSE #1:CLR :DN=PEEK(769)MM(@%"}*DIM DN$(6),ZZ$(16),Z$(5),Z(4):OPEN #1,4,0,K::? 44(@!}Enter Decimal Number up to 65535FF(%#}@? :DN$=D1:DEC:DN$(2,2)=STR$(DN)VV(@?  :FOR I=1 TO 4:Z(I)=0:NEXT I:ZZ%$}$=0123456789ABCDEF66(@? :FOR I=1 TO 5:GET #1,ZRR(@A:IF Z>47 AND Z<59 THEN ? CHR$%%}(Z);:Z$(I,I)=CHR$(Z):NEXT I:CLOSE #1CC(@? }%:Z=VAL(Z$):FOR I=1 TO 4:Z(I)=0:NEXT INN(@? %&}}0:ZZ=INT(Z/4096):IF ZZ>0 THEN Z(1)=ZZ:Z=Z-4096*ZZLL(@? }.:ZZ=INT(Z/256):IF ZZ>0 THEN Z(2)=ZZ:Z=Z%'}-256*ZZ"JJ(@? },:ZZ=INT(Z/16):IF ZZ>0 THEN Z(3)=ZZ:Z=Z-16*ZZ,%%(@? }:Z(4)=Z6ii(%(}@?  DECIMAL ;Z$; = .;:FOR I=1 TO 4:? ZZ$(Z(I)+1,Z(I)+1);:NEXT I:? 7(@ HEX@`%)}`(@? Press SPACE BAR to Continue,:? H to Convert HEX Numbers,E==(@:? Any othe%*}r Key to Quit. :CLOSE #1JLL(@?  :OPEN #1,4,0,K::GET #1,Z:CLOSE #1:O<<(@IF Z%+}=72 THEN DN$(4)=HEX :ENTER DN$T''(@IF Z=32 THEN ENTER DN$^.@!(DEC Completed.$(. A%,}R B!(Creating DELETE,@R@@D:DELETEUU(@'CLOSE #1:CLR :POKE 710,66:D%-}IM Z$(18):? }Which File to DELETE?YY(@?  Ex. D2:DATA.EXE:INPUT #16,Z$:?  }Deleting %.};Z$:..(@POKE 710,148:XIO 33,#1,0,0,Z$*@$(DELETE Completed.'(*$L B( Creating DIR)%/}@L@@D:DIRgg(@CLOSE #1:CLR :DIM Z$(18):Z$=D1:*.*:?  }Which Drive%0}? :OPEN #1,4,0,EE(@K:-:GET #1,Z:CLOSE #1:IF Z<49 OR Z>56 THEN STOP cc(@? }E:Z$(%1}2,2)=CHR$(Z):OPEN #1,7,0,Z$:FOR I=1 TO 66:INPUT #1,Z$:? Z$:NEXT I'@!(DIR Completed.$('$XP B (Cre%2}ating ERROR+@P@@D:ERRORbff(@1CLR:CLOSE #1 :DN=PEEK(769):DIM DN$(8),Z$(42):DN$=%3}D1:ERROR:DN$(2,2)=STR$(DN)lii(@? }Enter ERROR # =;:FOR I=1 TO 5:GET #16,Z:IF Z<155 THEN Z$(I,I%4})=CHR$(Z):NEXT Iv(((@? } :Z=VAL(Z$)==(@? }:IF Z=1 THEN Z$=No ErrorHH(%5}@? }:IF Z=2 THEN Z$=Insufficient Memory@@(@? }:IF Z=3 THEN Z$= Value Erro%6}rGG(@? }:IF Z=4 THEN Z$=Too Many VariablesHH(@? }:IF Z=5 THEN Z$=%7}String Length ErrorFF(@? }:IF Z=6 THEN Z$=Out of Data ErrorNN(@? }:IF %8}Z=7 THEN Z$=Number Greater than 32767JJ(@? }:IF Z=8 THEN Z$=Input Statement ErrorNN(%9}@? }:IF Z=9 THEN Z$=Array or String DIM ErrorMM(@? }:IF Z=10 THEN Z$=Ar%:}gument Stack Overflow``(@? }:IF Z=11 THEN Z$=*Floating Point Overflow or Underflow ErrorDD(%;}@? }:IF Z=12 THEN Z$=Line Not FoundOO(@? }:IF Z=13 THEN Z$=No Matching%<} FOR StatementCC(@? }:IF Z=14 THEN Z$= Line Too Long OO(@? }:IF Z=15 THE%=}N Z$=GOSUB or FOR Line DeletedBB(@? }:IF Z=16 THEN Z$= RETURN Error CC(@? %>}}:IF Z=17 THEN Z$= Garbage Error*NN(@? }:IF Z=18 THEN Z$=Invalid String Character4%?}KK(@? }:IF Z=19 THEN Z$=LOAD Program Too Long>HH(@? }:IF Z=20 THEN Z$=%@}Bad Channel NumberHEE(@? }:IF Z=21 THEN Z$=LOAD File ErrorRBB(@? }:IF Z=%A}128 THEN Z$= BREAK Abort\JJ(@? }:IF Z=129 THEN Z$=IOCB Already OpenedfII(@? %B}}:IF Z=130 THEN Z$=Nonexistent DevicepQQ(@? }:IF Z=131 THEN Z$=IOCB Opened for WRIT%C}E OnlyzFF(@? }:IF Z=132 THEN Z$=Invalid CommandNN(@? }:IF Z=133 THEN Z$%D}=Device or File Not OpenFF(@? }:IF Z=134 THEN Z$=Bad IOCB NumberPP(@? %E}}:IF Z=135 THEN Z$=IOCB Opened for READ OnlyHH(@? }:IF Z=136 THEN Z$=EOF (End of File%F})GG(@? }:IF Z=137 THEN Z$=Truncated RecordEE(@? }:IF Z=138 THEN Z$=%G}Device TimeoutAA(@? }:IF Z=139 THEN Z$= Device NAKOO(@? }:IF Z=140 TH%H}EN Z$=Serial Bus Framing ErrorJJ(@? }:IF Z=141 THEN Z$=Cursor Out of RangeII(@%I}? }:IF Z=142 THEN Z$=Serial Bus OverrunPP(@? }:IF Z=143 THEN Z$=Serial Bus Ch%J}ecksum ErrorHH(@? }:IF Z=144 THEN Z$=Device Done ErrorVV(@? }:IF Z=145%K} THEN Z$=Read After Write Compare ErrorOO(@? }:IF Z=146 THEN Z$=Function Not Implemented%L}GG(@? }:IF Z=147 THEN Z$=Insufficient RAMOO(@? }:IF Z=150 THEN Z$=%M}Serial Port Already OpenRR(@? }:IF Z=151 THEN Z$=Concurrent Mode Not EnabledSS(@%N}? }:IF Z=152 THEN Z$=Illegal User-Supplied BufferSS(@? }:IF Z=153 THEN Z$=Active%O} Concurrent Mode ErrorQQ(@? }:IF Z=154 THEN Z$=Concurrent Mode Not ActiveJJ(@? %P}}:IF Z=160 THEN Z$=Device Number Error$JJ(@? }:IF Z=161 THEN Z$=Too Many OPEN File%Q}s.@@(@? }:IF Z=162 THEN Z$= Disk Full8II(@? }:IF Z=163 THEN Z$=Fatal%R} System ErrorBKK(@? }:IF Z=164 THEN Z$=File Number MismatchLDD(@? }:IF Z%S}=165 THEN Z$= Bad File NameVNN(@? }:IF Z=166 THEN Z$=POINT Data Length Error`BB(@%T}? }:IF Z=167 THEN Z$= File LockedjJJ(@? }:IF Z=168 THEN Z$=Invalid XIO Command%U}tEE(@? }:IF Z=169 THEN Z$=Directory Full~EE(@? }:IF Z=170 THEN Z$=Fi%V}le Not FoundDD(@? }:IF Z=171 THEN Z$= POINT InvalidAA(@? }:IF Z=172 THE%W}N Z$= DOS 1 FileAA(@? }:IF Z=173 THEN Z$= Bad SectorQQ(@? }:IF Z=25%X}5 THEN Z$=FORMATTING Error (DOS 2.5)FF(@? }ERROR ;Z; = ;Z$:? [[(@%Y}? Press SPACE BAR to Continue.:? Any Other KEY to QUIT.aa(@ OPEN #1,4,0,K::? %Z}):GET #1,Z:CLOSE #1:IF Z=32 THEN ENTER DN$)@#(ERROR Completed.&()$B( Creating HEX@B%[}@@D:HEXJJ(@6CLOSE #1:CLR :DN= PEEK(769):DIM DN$(6),Z$(4),ZZ$(4):? #II(@}%\}Enter HEX Number to Convert. :OPEN #1,4,0,K:(FF(@? :DN$=D1:HEX:DN$(2,2)=STR$(DN)%]}2(@? 7pp(@_:FOR I=1 TO 4:GET #1,Z:IF Z>47 AND Z<58 OR Z>64 AND Z<71 THEN Z$(I,I)=CHR$(Z):?%^} CHR$(Z);:NEXT I<DD(@? }:CLOSE #1:ZZ$=0000 :Z=LEN(Z$)FAA(@? }#:ZZ$(1+4-Z)%_}=Z$:Z$=ZZ$(1,1):Z=0:ZZ=0P[[(@? }:Z=Z$=F*15+Z$=E*14+Z$=D*13+Z$=Q(@%`}CUZZ(@*12+Z$=B*11+Z$=A*10+Z$=9*9+Z$=8*8ZKK(@? %a}}:Z=Z+Z$=7*7+Z$=6*6+Z$=\WW(@5*5+Z$=4*4+Z$=3*3+Z$=2%b}*2+Z$=1](@^..(@:Z=Z*4096:ZZ=ZZ+Z:Z$=ZZ$(2,2)dOO(@? }:Z=Z$=F%c}*15+Z$=E*14+Z$=De(@*13+Z$=iTT(@C*12+Z$=B*11+Z$=A*10+Z%d}$=9*9+Z$=j(@8*8nQQ(@? }:Z=Z+Z$=7*7+Z$=6*6+Z$=5%e}o (@*5+Z$=4s``(@*4+Z$=3*3+Z$=2*2+Z$=1:Z=Z*256:ZZ=ZZ+Z:Z$=ZZ%f}$(3,3)xQQ(@? }:Z=Z$=F*15+Z$=E*14+Z$=Dy!!(@*13+Z$=C}ZZ%g}(@*12+Z$=B*11+Z$=A*10+Z$=9*9+Z$=8*8QQ(@? }:Z=Z+Z$=%q}B%DOS SYSB*)DUP SYSBSBINLOAD BVCRIBBAGEBASBDEC BDELETE BDIR BDOC TXTBDRIVES B}ENHANCE BASBERROR BERROR 164BFINGERS EXEBFINGERS M65B HELP BASB HEX BLOCK BMENU BOPENFILE BRENAME BSHOGUN BASBUNLOCK :VCRLABELBASWRITEDOS 7*7+Z$=6*6+Z$=5 (@*5+Z$=4__(@*4+Z$=3*3+Z$=2*%r}2+Z$=1:Z=Z*16:ZZ=ZZ+Z:Z$=ZZ$(4,4)QQ(@? }:Z=Z$=F*15+Z$=E*14+Z$=D%s}!!(@*13+Z$=CZZ(@*12+Z$=B*11+Z$=A*10+Z$=9*9+Z$=8*8%t}QQ(@? }:Z=Z+Z$=7*7+Z$=6*6+Z$=5 (@*5+Z$=4LL(@%u}*4+Z$=3*3+Z$=2*2+Z$=1:ZZ=ZZ+ZHH(@? HEX ;ZZ$; = ;ZZ; D%v}ECIMALBB(@? Press SPACE BAR to continue,:? SS(@D to Convert DECIMAL Numbers,%w}:? Any Other Key to Quit.aa(@?  :OPEN #1,4,0,K:):GET #1,Z:CLOSE #1:IF Z=32 THEN ENTER%x} DN$<<(@IF Z=68 THEN DN$(4)=DEC :ENTER DN$'@!(HEX Completed.$('$R B!(Crea%y}ting DRIVES,@R@@D:DRIVESgg(@(IF PEEK(1801)>16 OR PEEK(1801)=0 THEN ? }NO%z}T COMPATIBLE with this DOS.:STOP DD(@!CLOSE #1:CLR :DIM Z$(11),Z(8):Z$= NOT Enabled88(@'FO%{}R Z=1 TO 8:Z(Z)=1:NEXT Z:Z=PEEK(1802)<<(@? }:IF Z>=128 THEN Z(8)=4:Z=Z-128::(@? }%|}:IF Z>=64 THEN Z(7)=4:Z=Z-64::(@? }:IF Z>=32 THEN Z(6)=4:Z=Z-32"::(@? }:IF Z>=%}}16 THEN Z(5)=4:Z=Z-16,88(@? }:IF Z>=8 THEN Z(4)=4:Z=Z-8688(@? }:IF Z>=4 THEN Z(3)%~}=4:Z=Z-4@88(@? }:IF Z>=2 THEN Z(2)=4:Z=Z-2J22(@? }:IF Z>=1 THEN Z(1)=4T__(@%}? }:FOR Z=1 TO 8:? Drive ;Z; is ;Z$(Z(Z)):NEXT Z^gg(@? &Would you like t%}o change this set up? :OPEN #1,4,0,K: :GET #1,Z:c--(@CLOSE #1:IF Z<>89 THEN STOP h[[(@?%} #}Press Numbers of Drives to Enable.:FOR Z=1 TO 8:Z(Z)=0:NEXT ZrWW(@?:FOR I=1 TO 4:OPEN #1,%}4,0,K::GET#1,Z:CLOSE #1:wUU(@"IF Z<57 AND Z>48 THEN Z(Z-48)=1:? DRIVE ;Z-48;Z$(4):NEXT I|cc%}(@QZ=1:FOR I=1 TO 8:Z(I)=Z(I)*Z:Z=Z*2:NEXT I:Z=0:FOR I=1 TO 8:Z=Z+Z(I):NEXT I:IF Z>0""(@ THEN POKE 180%}2,Z(@ Z=USR(58484)*@$(DRIVES Completed.'(*$N B( Creating LOCK*@N@%}@D:LOCKGG(@CLOSE #1:CLR :DIM Z$(18):? }Which File to LOCK?ff(@?  %} Ex. D2:DATA.EXE:INPUT #16,Z$:? Locking ;Z$:XIO 35,#1,0,0,Z$(@"(LOCK Completed.%(($R B%}!(Creating UNLOCK,@R@@D:UNLOCKII(@CLOSE #1:CLR :DIM Z$(18):? }Whi%}ch File to UNLOCK?hh(@?  Ex. D2:DATA.EXE:INPUT #16,Z$:?  Unlocking ;Z$:XIO 36,#1,0,0,Z$%}*@$(UNLOCK Completed.'(*$R B!(Creating RENAME,@R@@D:RENAME%}II(@CLOSE #1:CLR :DIM Z$(18):? }Which File to RENAME?UU(@?  Ex. D2:OLDNAME,NEWNAME%}:INPUT #16,Z$:XIO 32,#1,0,0,Z$&*@$(RENAME Completed.'(*$lX B$(Creating ERROR.164/@X%}@@ D:ERROR.164vll(@-IF PEEK(4149)<>44 AND PEEK(4149)<>234 THEN ? }NOT COMPATIBLE with t%}his DOS.:STOP jj(@CLOSE #1:CLR :? }Press to Disable ERROR 164.:? This will allow Loading %}44(@!files that cause an ERROR 164.VV(@? <Be aware that the DATA will probably not be 1%}00% intact.XX(@? =Press any other Key to Enable Normal ERROR 164 handling.<<(@ :OPEN #%}1,4,0,K::GET #1,Z:CLOSE #1TT(@CPOKE 4148,208:POKE 4149,44:IF Z=88 THEN POKE 4148,234:POKE 4149,234-%}@'(ERROR.164 Completed.*(-$V B#(Creating OPENFILE.@V@@ D:OPENFIL%}Egg(@(IF PEEK(1801)>16 OR PEEK(1801)=0 THEN ? }NOT COMPATIBLE with this DOS.:STOP cc(@CLOS%}E #1:CLR :Z=PEEK(1801):? };Z; Buffers are set up by this DOS.KK(@? ;Z; Single D%}ensity or  ;INT(Z/2);II(@6 Double Density Files may be opened at the same time.SS(@? %}Would you like to change this? :OPEN #1,4,0,K:77(@&:GET #1,Z:CLOSE #1:IF Z<>89 THEN STOP LL(@%}? 1}How many Buffers would you like DOS to set up?WW(@ :OPEN #1,4,0,K:-:GET #1,Z:CLOSE #1%}:IF Z<49 OR Z>57 THEN STOP  ,,(@POKE 1801,Z-48:Z=USR(58484),@&(OPENFILE Completed.)(,$4V B%}#(Creating WRITEDOS.@V@@ D:WRITEDOS9>>(@CLOSE #1:CLR :DIM Z$(10):Z$=%} D1:DOS.SYS>RR(@? }Write DOS.SYS to which drive? :OPEN #1,4,0,K:C>>(@-:GET #1,Z:CLO%}SE #1:IF Z<49 OR Z>56 THEN STOP HQQ(@? Put Disk in Drive ;Z-48; and Press RETURN.MOO(@%} :Z$(2,2)=STR$(Z-48):OPEN #1,4,0,K::GET #1,Z:CLOSE #1Rgg(@? Writing DOS.SYS to Drive  ;Z%}$(2,2);. :OPEN #1,8,0,Z$:CLOSE #1\,@&(WRITEDOS Completed.)(,$D1:ENHANCE.BASe  ;Z$tCLR:CLOSE #1 :DN=PEEK(769):DIM DN$(8),Z$(42):DN$="D1:ERROR":DN$(2,2)=STR$(DN)? "}Enter ERROR # ";:FOR I=1 TO 5:GET #16,Z:IF )}Z<155 THEN Z$(I,I)=CHR$(Z):NEXT I? "}":Z=VAL(Z$)? "}":IF Z=1 THEN Z$="No Error"? "}":IF Z=2 THEN Z$="Insufficient Memory")}? "}":IF Z=3 THEN Z$="Value Error"? "}":IF Z=4 THEN Z$="Too Many Variables"? "}":IF Z=5 THEN Z$="String Length Error"? "}")}:IF Z=6 THEN Z$="Out of Data Error"? "}":IF Z=7 THEN Z$="Number Greater than 32767"? "}":IF Z=8 THEN Z$="Input Statement Er)}ror"? "}":IF Z=9 THEN Z$="Array or String DIM Error"? "}":IF Z=10 THEN Z$="Argument Stack Overflow"? "}":IF Z=11 THEN Z$=")}Floating Point Overflow or Underflow Error"? "}":IF Z=12 THEN Z$="Line Not Found"? "}":IF Z=13 THEN Z$="No Matching FOR Sta)}tement"? "}":IF Z=14 THEN Z$="Line Too Long"? "}":IF Z=15 THEN Z$="GOSUB or FOR Line Deleted"? "}":IF Z=16 THEN Z$="RETURN)} Error"? "}":IF Z=17 THEN Z$="Garbage Error"? "}":IF Z=18 THEN Z$="Invalid String Character"? "}":IF Z=19 THEN Z$="LOAD Pr)}ogram Too Long"? "}":IF Z=20 THEN Z$="Bad Channel Number"? "}":IF Z=21 THEN Z$="LOAD File Error"? "}":IF Z=128 THEN Z$="BR)}EAK Abort"? "}":IF Z=129 THEN Z$="IOCB Already Opened"? "}":IF Z=130 THEN Z$="Nonexistent Device"? "}":IF Z=131 THEN Z$="I)}OCB Opened for WRITE Only"? "}":IF Z=132 THEN Z$="Invalid Command"? "}":IF Z=133 THEN Z$="Device or File Not Open"? "}":IF)} Z=134 THEN Z$="Bad IOCB Number"? "}":IF Z=135 THEN Z$="IOCB Opened for READ Only"? "}":IF Z=136 THEN Z$="EOF (End of File))}"? "}":IF Z=137 THEN Z$="Truncated Record"? "}":IF Z=138 THEN Z$="Device Timeout"? "}":IF Z=139 THEN Z$="Device NAK"? "}")}:IF Z=140 THEN Z$="Serial Bus Framing Error"? "}":IF Z=141 THEN Z$="Cursor Out of Range"? "}":IF Z=142 THEN Z$="Serial Bus )}Overrun"? "}":IF Z=143 THEN Z$="Serial Bus Checksum Error"? "}":IF Z=144 THEN Z$="Device Done Error"? "}":IF Z=145 THEN Z$)}="Read After Write Compare Error"? "}":IF Z=146 THEN Z$="Function Not Implemented"? "}":IF Z=147 THEN Z$="Insufficient RAM)}"? "}":IF Z=150 THEN Z$="Serial Port Already Open"? "}":IF Z=151 THEN Z$="Concurrent Mode Not Enabled"? "}":IF Z=152 THEN )}Z$="Illegal User-Supplied Buffer"? "}":IF Z=153 THEN Z$="Active Concurrent Mode Error"? "}":IF Z=154 THEN Z$="Concurrent Mo)}de Not Active"? "}":IF Z=160 THEN Z$="Device Number Error"? "}":IF Z=161 THEN Z$="Too Many OPEN Files"? "}":IF Z=162 THEN )}Z$="Disk Full"? "}":IF Z=163 THEN Z$="Fatal System Error"? "}":IF Z=164 THEN Z$="File Number Mismatch"? "}":IF Z=165 THEN )}Z$="Bad File Name"? "}":IF Z=166 THEN Z$="POINT Data Length Error"? "}":IF Z=167 THEN Z$="File Locked"? "}":IF Z=168 THEN )}Z$="Invalid XIO Command"? "}":IF Z=169 THEN Z$="Directory Full"? "}":IF Z=170 THEN Z$="File Not Found"? "}":IF Z=171 THEN )}Z$="POINT Invalid"? "}":IF Z=172 THEN Z$="DOS 1 File"? "}":IF Z=173 THEN Z$="Bad Sector"? "}":IF Z=255 THEN Z$="FORMATTING)} Error (DOS 2.5)"? "}ERROR ";Z;" = ";Z$:? ""? "Press SPACE BAR to Continue.":? "Any Other KEY to QUIT."OPEN #1,4,0,)}"K:":? "":GET #1,Z:CLOSE #1:IF Z=32 THEN ENTER DN$to Continue.":? "Any Other KEY to QUIT."OPEN #1,4,0,(HIF PEEK(4149)<>44 AND PEEK(4149)<>234 THEN ? "}NOT COMPATIBLE with this DOS.":STOP CLOSE #1:CLR :? "}Press to Disable ERRO-}R 164.":? "This will allow Loading files that cause an ERROR 164."? "Be aware that the DATA will probably not be 100%-} intact."? "Press any other Key to Enable Normal ERROR 164 handling.":OPEN #1,4,0,"K:":GET #1,Z:CLOSE #1POKE 4148,208:-}POKE 4149,44:IF Z=88 THEN POKE 4148,234:POKE 4149,234-}:IF Z=88 THEN POKE 4148,234:POKE 4149,234, SLh     xT U5 X`H vɶ vhh@hlT1}SLh     xT U5 X`H vɶ vhh@hlT00100 ;BUTTERFINGERS0110 ;BY KEVIN C. GEVATOSKY0120 ;(c)1989, ANTIC PUBLISHING INC.0130 ;0140 DOSINI = $0C0150 VKEYBD = $5}0208 ;KB int. vector.0160 KBCODE = $D209 ;Current key.0170 CH1 = $02F2 ;Prior key.0180 CH = $02FC ;Last key.015}90 SH_CLR = 118 ;Key codes.0200 CT_CLR = 1820210 CT_SH_CLR = 2460220 ;0230 *= $06000240 ;0250 ;This program pro5}vides two entry0260 ;points so that it can be0270 ;started from DOS or BASIC.0280 ;0290 START0300 JMP INIT ;For D5}OS entry.0310 NOP ;For BASIC entry0320 PLA ;w/ X=USR(1540)0330 ;0340 ;Makes the program RESET-pro5}of0350 ;0360 INIT0370 LDA DOSINI ;Get current DOS0380 STA NEW_INI+1 ;init address0390 LDA DOSINI+1 ;and sav5}e in0400 STA NEW_INI+2 ;new vector.0410 LDA # NEW_INI ;old vector.0440 STA DOSINI+10450 BNE SET_KBVEC ;(JUMP)0460 ;0470 NEW_INI0480 JSR $FFFF ;New 5}DOS init.0490 ;0500 ;Jump here on initialization or0510 ;RESET to setup a new keyboard0520 ;trap vector.0530 ;0540 SET_5}KBVEC0550 SEI ;Kill IRQ's.0560 LDA VKEYBD ;Save system KB0570 STA SYSKBV ;interrupt addr0580 LD5}A VKEYBD+1 ;replace w/the0590 STA SYSKBV+1 ;addr to our0600 LDA # KEY_TRAP0630 STA VKEYBD+10640 CLI ;Restore IRQ's.0650 RTS 0660 ;0670 ;Interrupt ro5}utine to replace0680 ;SHFT+CLEAR and CTRL+CLEAR0690 ;with SHFT+CTRL+CLEAR.0700 ;0710 KEY_TRAP0720 PHA 0730 LDA 5}KBCODE ;Get current key0740 CMP #SH_CLR ;Filter out the0750 BEQ GOT_YA ;standard clear0760 ;0770 CMP #CT_CL5}R ;screen keys.0780 BEQ GOT_YA0790 ;0800 CMP #CT_SH_CLR ; Check for0810 BNE GO_KB_INT ; our special0820 ; 5} key0830 CLR_SCR ; combination0840 LDA #SH_CLR0850 STA CH ;Put clr-screen0860 STA5} CH1 ;code for Editor0870 GOT_YA0880 PLA ;Return from the0890 PLA ;interrupt.0900 RTI 095}10 ;0920 GO_KB_INT0930 PLA ;Pass all other0940 JMP (SYSKBV) ;keys on to OS0950 ;0960 SYSKBV0970 .DS5} 2 ;keybd handler.0980 *= $02E0 ;DOS RUN address0990 .WORD START1000 .END 5}dress0990 .WORD START1000 .END 497oLINEAFPPRxxy 11;A ,;@,;@,;@,YA9}Y'@1(}D( (1) HELP fileG(YAR+-@@+((2) Previous Menu9}(= (( SELECTION-AY@41=6-2(+41)42,@ 7 42%D:MENU<6. D:DOC9}.TXTPN-@@(--@@J(Hard Copy (Y/N) NNZ(+4Y)4N,@dW@9}@(}&@C@@K4YW6-@n A`AR@x@v9}B:,!@-7@<@,4XXX0(3(E-@@"Y(ӠΠf@l(}v A   39}( A _@ B*-@@"R("ΠҠՠҠˠҠ_@ @9}@ %D:MENU D1:HELP.BAS9} D1:HELP.BAS8CLOSE #1:CLR :DN= PEEK(769):DIM DN$(6),Z$(4),ZZ$(4):? "}Enter HEX Number to Convert.":OPEN #1,4,0,"K:"? "":DN$="D1:HEX":DN=}$(2,2)=STR$(DN)? "":FOR I=1 TO 4:GET #1,Z:IF Z>47 AND Z<58 OR Z>64 AND Z<71 THEN Z$(I,I)=CHR$(Z):? CHR$(Z);:NEXT I? "}":C=}LOSE #1:ZZ$="0000":Z=LEN(Z$)? "}":ZZ$(1+4-Z)=Z$:Z$=ZZ$(1,1):Z=0:ZZ=0? "}":Z=Z$="F"*15+Z$="E"*14+Z$="D"*13+Z$="C"*12+Z$="B"*=}11+Z$="A"*10+Z$="9"*9+Z$="8"*8? "}":Z=Z+Z$="7"*7+Z$="6"*6+Z$="5"*5+Z$="4"*4+Z$="3"*3+Z$="2"*2+Z$="1":Z=Z*4096:ZZ=ZZ+Z:Z$=ZZ$=}(2,2)? "}":Z=Z$="F"*15+Z$="E"*14+Z$="D"*13+Z$="C"*12+Z$="B"*11+Z$="A"*10+Z$="9"*9+Z$="8"*8? "}":Z=Z+Z$="7"*7+Z$="6"*6+Z$="5=}"*5+Z$="4"*4+Z$="3"*3+Z$="2"*2+Z$="1":Z=Z*256:ZZ=ZZ+Z:Z$=ZZ$(3,3)? "}":Z=Z$="F"*15+Z$="E"*14+Z$="D"*13+Z$="C"*12+Z$="B"*11+Z=}$="A"*10+Z$="9"*9+Z$="8"*8? "}":Z=Z+Z$="7"*7+Z$="6"*6+Z$="5"*5+Z$="4"*4+Z$="3"*3+Z$="2"*2+Z$="1":Z=Z*16:ZZ=ZZ+Z:Z$=ZZ$(4,4)=}? "}":Z=Z$="F"*15+Z$="E"*14+Z$="D"*13+Z$="C"*12+Z$="B"*11+Z$="A"*10+Z$="9"*9+Z$="8"*8? "}":Z=Z+Z$="7"*7+Z$="6"*6+Z$="5"*5+Z$=}="4"*4+Z$="3"*3+Z$="2"*2+Z$="1":ZZ=ZZ+Z? "HEX ";ZZ$;" = ";ZZ;" DECIMAL"? "Press SPACE BAR to continue,":? "D to Conver=}t DECIMAL Numbers,":? "Any Other Key to Quit."? "":OPEN #1,4,0,"K:":GET #1,Z:CLOSE #1:IF Z=32 THEN ENTER DN$IF Z=68 THEN =}DN$(4)="DEC":ENTER DN$er Key to Quit."? "":OPEN #1,4,0,"K:":GET #1,Z:CLOSE #1:IF Z=32 THEN ENTER DN$IF Z=68 THEN <CLOSE #1:CLR :DIM Z$(18):? "}Which File to LOCK?"? " Ex. D2:DATA.EXE":INPUT #16,Z$:? "Locking ";Z$:XIO 35,#1,0,0,Z$A}SE #1:CLR :DIM Z$(18):? "}Which File to LOCK?"? " Ex. D2:DATA.EXE":INPUT #16,Z$:? "Locking ";Z$:XIO 35,#1,0,0,Z$@YO _ AXLPNB0@!(@( (Pd,"(@%Q +26-?:C:E}hhhԩ`,<A6,DAdAUQ;@@,uAAF'A @9A@fK@E}@]@@7c(}uAR@G Ap-@@G(# +E}+(# Antic Monthly Disk, May 1989 ++(#  ( | Side 'A' |++(# E} @ -@A $ <<;@@,;@ ,;A,;@,;@@,E} "D1:MENU" &&@@D:*.* 6,6." 6 @0i6-%@E}(6.7@<@,A67@ <@ ,..i67@<@,.7@<@,3 6.|67B:,%@,.367B:E},%@,.G67@<@,.(--@B:,:7<,4 G67<,..] 6.=:, @D67@16 OR PEEK(1801)=0 THEN ? "}NOT COMPATIBLE with this DOS.":STOP CLOSE #1:CLR :Z=PEEK(1801):? "}";Z;" Buffers aI}re set up by this DOS."? "";Z;" Single Density or ";INT(Z/2);" Double Density Files may be opened at the same time."? "WI}ould you like to change this?":OPEN #1,4,0,"K:":GET #1,Z:CLOSE #1:IF Z<>89 THEN STOP ? "}How many Buffers would you like DOSI} to set up?":OPEN #1,4,0,"K:":GET #1,Z:CLOSE #1:IF Z<49 OR Z>57 THEN STOP POKE 1801,Z-48:Z=USR(58484)I}?":OPEN #1,4,0,"K:":GET #1,Z:CLOSE #1:IF Z<49 OR Z>57 THEN STOP POKE 1801,Z-48:Z=USR(58484)H CLOSE #1:CLR :DIM Z$(18):? "}Which File to RENAME?"? " Ex. D2:OLDNAME,NEWNAME":INPUT #16,Z$:XIO 32,#1,0,0,Z$N}SE #1:CLR :DIM Z$(18):? "}Which File to RENAME?"? " Ex. D2:OLDNAME,NEWNAME":INPUT #16,Z$:XIO 32,#1,0,0,Z$L4LKLATXYTLARTNNDFFFSSSLSLTOIRBSCTCYTFTSLSTTRKYLGRWHTBOXZHTRSPSHLR}MSGMSG2SLPRHLMCKEYRRP0WPNSHLDPMEZTFKOPXTKILMSG3LTMUCEOBGFLITJPDDBRBYBOX1DCHGTORTOR}R2XPLCSETCXSXDXCNPCSEOFFSESJN R} R} !"#$%&'(R})*+,-@./@012345678R}9:;<=>?@A@BCDEFGHR }IJKLM@NOPQRSTUVWR }XYZ@[@\]^_`abcdefgR }hijklmnoTHE SECRET OF KYOBU DIBY BERNARD TAYLOR$$(R }c)1989, ANTIC PUBLISHING INC. ! A AE! A`  AY--(@7<A`,9-@#H(@R }{ZAY@4f@r6-@~6-@6-@!6-6- A.6-R:,$(+T:R},%,. @! )6-%!! A F:B2y,"@A8L6-+"@,&+"@,;6-+"R}@,&+"@,L(+%,@ED-@6@P02A@4 <6-%D6-%#U/6-+ )!@R},%@$+ )!@",CAAUAY@4*! 1@2! @- 6-%!6-.AR}"6-?:<%A<%$@,A6-?:<%@$<%$@,/) @2,,#6-)6-<86-&F:@,R}!6'-@#8(@ F  *" AK @ P2-@#(@0 %6-+6-/2$RR}A$Z6-+"@D,%@$+"@E,%@$+"@G,%@$+"Ap)"@B,%@$+"Aq,%@R}$+"A#,\77A A0A@APA`Ap^ww6-+"@)"A")"AP,%@$+"@R})"@3)"A),%@$+"Ac,%@$+"A!,`''AAAAn! 6-6-@R}6-!6-p  $rA6-ABsT-@,67<%@,.///:6-%@@> J6-A@TR} A`x!"@6-%! AB+"@*"@E!6-%+ ABI-@6@22@@%R}@6 >6-&F6-&I$Y -A@A6@`62@@D-@ H L V2Y$R} 6-%"@AB(6-6-ABW-@6?P22@`&@6 >6-%T6-$@R}%@2W$*-@6?%&A* + @2,6-@%6-+6--AP@R}?2@&'@?2A%@&'@A!@` 2'21@27,A AR}N "(6-?:<%@d<%$@,2A68,@6-%N6-%@ At6-@6-@R}'6-@36-@=@2C,e6-P:H:,$@,%@q@A@V6-#AvR}G-@"-2@@5-9 C2G  6- A66108,10,0,0,108,10,0,0,108,6,1R}28,15,144,15,162,10NA6-+"A"*,%@3$+"@*,%A)$+"AP*,N(A@.6-P:H:,$@R },.8,"A3-@@%1@#3"A  A@l%@,26-+$@ ,%+R!}%,%8,&J67<%,.>:%@,Y8,"@2b68,-l AP( 8,,@#6-8,(68,-2 6-%"R"}@267AU<AW,. ?"@6-567@6,.7@<A,? AN"A4$6-?:<%@R#}<,*6-D67@6,.7<@ ,N Ab"@,6-?:<%A<%@,86-@X67@6,.7@IR$}<@u,b AR"@9/67@6,.7@!<@H,H67A7!<A7!,. R Ak-@P6R%}@1-@6@C2%@WA@`&[ _ kAA@V @2,R&}Ac/,@@#;6-@G6-@2g67@6,.7Ay<A",67Aw<Aw,. 6-* 6-R'}?:<%@d<%@V,* A @2,%-@@%1@#"@2A!%,@#R(}A67At<Ax,. Z67AU<AU,. z67@6,.7@v<@, A  @2,R)}6-0-@6,2@@%@0 5"@36-%6-)"@56-@5 "6-%6R*}-@)"@56-@;"A)6-%#6-@/"@;6-@3-%@@#)(@R+}7<,3 A,F6-P:H:,$@,-6-$@%@6.7<%@,F6-1pp6-?:C:Nhhhϥj8ύԅhho>hR,}h./.ͅ˩Ω ͅ˩ΩeՅ̩`,<@<@<,6D/6-?:C:h `,,86R-}-8,D@w;I"@)'6-$@%@236-@96-CABI,@Y%6-P:H:,$@,%@R.};6-$@&@?Y6-P:H:,$@,J@.6-?:C:,<<}A@v  6-x${T6-?:<%@<%,16-?:<%A<%,H6-?:<%@<%,T6-@| !6-R?}6-@5}$  *(A6-2 6-?:<%@<%@,&6-26-@6-?:<%@<,R@}$$6-?:<%A<%@,$` -(@}$6-@*6-<AANAA6`ARA} @VC @,/@1/@@"=/@"C/E/@!/@@!-/@!RB}3/EAY@4X @/67@6,.7A<AH,N67@<@,.X Aj#67@6RC},.7A<Ag,C67@,.7AI<A8,`6-?:<%@d<%@V,j Aj-@(-6@RD}@I2A@@&O:,j2AC@@&O:,0A@&O:, ,6-&?P0 RE}-AP < -(@}*AA<A@V"@A-@@+(RF}@you have=-@@[(@failed to rescuem-@@(@the 1 A7RG},@@1/@@[-@@1(@PRESS TOC-@@[(@ PLAY RH}AGAIN-@A QF:B2y,"@$AY3(@}= APG A` Q @ ARRI} I -(@}6-+6-6?576-@IA @%-@36-P:H:,$@,%@RJ}I6-$@&@O6-[6-@g6-@6-?:<%@d<%@d,*r-@0@6$@2,&RK}@Z2%$@@&@d@2r,&@// 6-%2&@! /6-%?4x6-RL}?:<%@d<,&-%@6(@@-%%R(@h-%@%@x(@955-@RM}@eP:H:,%@,%@P>e02@+@`%H:,%@P,'e2%A @+@$H:RN},%@P,'CX !(6-?:<%@d<%$@,06-%>6-%@L6-&@XAH\ (@RO}} 2*2<-@@N(@7<,\6-%@M-A   R4-@6?&RP}A * 4 AP{6-6-@++AY7ACARe6-F:A`,%AV$F:Aa,RQ}o@2{,@+%@@+%@@-@@%%@) ;AAMRR}A A_AAq-@@(@ THE M-@ @%(@OF7-@RS}@M(@kyobu di5-@@5(@By Bernard Taylor[ A,@%/@77,@RT}@I/@3@[AY@4L;AA@,;A`,;@,;@H,;A,;Ap,;@"RU},9@,9@,9@,9@,9@,9@",Q];@@,;@,;@(,;@%,;@HRV},;@r,;@,;@,6. 7fĀ*6*22R;Aq,S$6.!!  $6. s h o g u nRW}VE 6-6-A!6-A-6-A96-AE6-B2x~pp67@<@,.U R_R%|ֺl8B~ZfZf<RX}T|>:::6`0  |l8  Uk>6$6-+F:AB,&@,$AV*6-66-@=6-BsR6-%@RZ})6-A3 B=#AA% 6-C:,%-@B:,@ 6-@:7<,,) 6-+%,6-$@%)6-@R[} B (-@@"$68,-( "-@"68,-" "-@"68R\},-" ,#6.hhhhhΠΑ`,6-C:,C:6.0~$~$~$(th~$t(\~$.t~$C6-C:,;26R]}.(~~~~~ý~;6-C:,ff6.\hhhԅhhhhhhhhhh R^}hhhhбФё`[R6.H$<&Z4R ,V5: L^5~L@ L^5~L|l8[6-C:,C:R_}6.08T8(D8|8T(8|88T8(D8|8T(8|8C6-C:,"-@"68,-" --6.# R`} YOU HAVE FOUND bb6.X%%%%qm`%vdfw`a%vrjwa%jc%opvqlf`%qm`%bjia`k%m`ih`q%jc%qwpqm%d%idwb`%wpg|%[[67@Ra},.HD%FJHHJK%VML@IA%DK%@HUQ\%GJ]%QM@%V@FW@Q%MLALKB%UIDF@%JC%%%%%%%%%%nn67AX,.[M@%IDPBMV%G@FDPV@%\JP%IDFNRb}%QM@%JK@%QMLKB%QMDQ%FJPIA%A@C@DQ%MLH%%%%%%%%DKA%QM@K%M@%NLIIV%\JP``67AI,.MPKQLI%M@%KJQLF@V%QMDQ%\JP%MDS@%qm`%diiv`Rc}`lkbwpg|`|`%jc%qm`%%%%%WW67A&,.D%%%%%%%%%GJRV%QRLF@%DKA%QM@K%%%%%%%%FJHHLQV%MDWD%NLWL%%%%%%%%Rd}@@67A,.-|jp%mds`%vpff`vvcpii|%w`vfp`a%qm`%%YV6-?:C:4hhhhhhhϠEϑ EϑRe}`,6-?:<%@<%@,[6-?:<%@<%@$R},x6-?:<%A<%@$,ucA@'A @&9A@VKA@W6-@]6-cR}6-zu6-@6-@'6-@36-@?6-@K6-@Q6-W6-]6-c6-o6-A@u6-|WR} 6-6-6-6-!6-'6--6-36-96-E6-@$WAY@4q-@@96-P:H:,$R}@,%@G6-$@O6-%\67<,. j6-%@@n q$ 6. -@@R}3(@PRESS FORE-@@_(@ RANDOM KEYSq-@@(@7<@,c-@R}@/(@ OR A-@@W(@TO BEGINcAd.F:B2y,"@$6-@R}. A`PF:Ad,"@3$ A`5g67Ap<Ap,. 567A5S<A5S,. N67A7<A7,.R} g67A)<A),. /-@68,-8,+6-%@/ -@06-P:H:,$@,%0R}8,"A`b6-8,%@!C6-%P:H:,$@,C6-%@ $P:H:,$@!,cc7<,0>:@2,R})7&@ <&@ ,4>:@E,)7%@ <%@ ,4>:@D,A`b997%<%,4>:Ap,)7&<&,4>:Ap,R}A`bn67<,.7<,(-6@@I2AD@@&O:,j2@@@&O:,n 9 R}@2!,%@@-"@96-@ 68,- $yGD6-?:C:.hhhhhhhR}`,<<<,G$D1:SHOGUN.BAS??:C:.hhhhhhhPNCLOSE #1:CLR :DIM Z$(18):? "}Which File to UNLOCK?"? " Ex. D2:DATA.EXE":INPUT #16,Z$:? "Unlocking ";Z$:XIO 36,#1,0,0,Z$V}SE #1:CLR :DIM Z$(18):? "}Which File to UNLOCK?"? " Ex. D2:DATA.EXE":INPUT #16,Z$:? "Unlocking ";Z$:XIO 36,#1,0,0,Z$TTYPZPXBLDLTWIDELINE1WIDEOFFCU1LINE2TU2N1N2N3N4N5N6C1C2C3T1T2T3BOLDP66P88BOXTOZ}PUONUOFFTOBRJN Z} Z} !"#$%&@'Bx5VCR LABEL 1.0BY FRANK Z}WALTERS$$(c)1989, ANTIC PUBLISHING INC.&6-+F:B2y,@,& B6- !! @)!@A@Z} Ad1(.(1(n'AR('@xD 6-B:, @3Z}D67%@<@3,.7%@<@3,U7@<@,0 H( Do not write inTHIS SPACEK(UZ} A1-@@3$7<,4_167<,.  AR@$='(0000Z}36-= A fAR A"(F(򠨰 S@_6-P:O:,,f6.Z}<!A(2(Maximum 4 whole digits.< AL B A!6.0- A66.00B @Z}L6.000,67B:,%@,.=:,,AR@ B$,KAR(>(堨Z} K@6B:,@6.0:00@57@<@,4 567@<@,.:J;)7@<@Z},0:)B:,@1(; AT" BAR@"$o B@8@@Z}K:E)@o+ @2*@',)!A$A@(>:,$(@(@Z}$GG;@,;@,;@,;@,;@,;@,]];@3,;@f,;@,;Z}@,;@,;@,;@3,;@,;@,;@,;@,;@,;@,;@,;Z}@,;@,;@,;@,;@,;@!,GG;@6,;@,;@,;@,;@,Z};@,iM6.C________________ ________________i6.--6.#Z}Ҡ̠Ҡa67@,. #67@3,.267@,.C67@,.R67@,.a67@Z},.$77AAABACADAEAF.!A@A@`c@@+1AZ}ACA AUAR@Y(c B-(-(!젨  A6-&@Z}H* @)!@ (* A  6- (4 6. A>16.7@<@,16.7@<@3Z},H A6.RK A6.(}--@@9(K-@@\W(| |'-@Z}@9(| |K-@@W(f2-@@2(ٯΩpH A7Z}A*@x*A!*@>(H A!`z$($"@x)"AA!A0A"A"Z} 6. A16.7@<@,16.7@<@3, A6.; A6.%-@@Z})(;-@@W(| |'-@@9(| |K-@@W(2-@@Z} 2(ٯΩH A7A*@x*A!*@>(H A"`$($"@x)Z}"AA"&@A0A# 6. A 16.7@<@,16.7@<@3,  Z}A6. ; A6.%-@@)(;-@@$ W(| |'-@@9(| Z}|K-@@ W(. 2-@@2(ٯΩ8 H A7A*@x*A!Z}*@>(H A#`B $($"@x)"AA# A0T < B(<( PRINTER ERRORZ} - F:A, J((( ŠݠJ( ݠ 4 A#@2*@'*Z}(4 A0 ("@'@%@(% XA@f A)*@J@@Z}P:X(@ '"@(@' A0` (@ -@ '"@6.6.!6.Z}'6. '"@6.6.!6.'6. '"@6.6.!6.'6. 5 6.6.)"@* @Z}/6.56. "@(@& !"@*"!(@0 9 A (@+"@9(@Z}: +"@(@+(@D @(N R(0( R( Z}젠X %%( b @AR@'AA*(@( lZ} B A6-&@H1 @)!@8(B A1v A2A A2  ( A00 JZ}@@+@@=ARG+J=A@f=(!}NO PRINTER SUBROUTINE FOR TYPE Z}N($(Select your printer type.'(N("The following types are available:((TYPE=1 (Z}TYPE=2 ίҠح(TYPE=3 ɠدǭ(TYPE=4 à(TYPE=5 îȠ(Z}TYPE=6 򠠠:(,( What type of printer do you have0: @ ( CC(}TYPE +&A@,'AZ} Printer has not been tested.U1(You must delete line %@ beforeU(using this printer sub-routine:G!Z}A@%@ (#(5(%@GA@fOKIDATA 92/192 6.6CPI 6.12CZ}PI" 6.66 LINES/INCH, 6.88 LINES/INCH6 6.1CQ@ 6.CUNDERLINE ONJ 6.DUNDERLINE Z}OFFT$hEPSON/STAR NX-10r 6.M6 CPI| 6.M12CPI 6.26 LINES/INCH 6.08 LINES/INZ}CH 6.GDBL STRIKE 6.-UNDERLINE ON 6.-UNDERLINE OFF$GEMINI 10X/STAR SG-10+6.Z}BW+6CPI (12CPI-DOUBLE WIDTH( 6.W(12CPI (DOUBLE WIDTH OFF) AB00PANASONIC 10805<6-AD6Z}.UNDERLINE OFFH$y(%6-?:C:hMhhp`,<,($D1:VCRLABEL.BASZ}hMhhp`,<,($D1:VCRLABEL.BASX+CLOSE #1:CLR :DIM Z$(10):Z$="D1:DOS.SYS"? "}Write DOS.SYS to which drive?":OPEN #1,4,0,"K:":GET #1,Z:CLOSE #1:IF Z<49 OR Z>5^}6 THEN STOP ? "Put Disk in Drive ";Z-48;" and Press RETURN.":Z$(2,2)=STR$(Z-48):OPEN #1,4,0,"K:":GET #1,Z:CLOSE #1? "Wr^}iting DOS.SYS to Drive ";Z$(2,2);". ":OPEN #1,8,0,Z$:CLOSE #1^}.SYS to Drive ";Z$(2,2);". ":OPEN #1,8,0,Z$:CLOSE #1\ #