)@N g$% p0*}$)$$H/ ]% hL Q , `e$$%`$%`  R@W1    *  .``fGH` L LY L , H?  0f,(h 0:; < =Ң7x 60:2344  4,   ,P ҥ . X0ɀ7Ш` 21 4 2 [ L1 ) 000 0 0 1 c 2 [ }4 c 1:` 2 < c AC E00D& 'L\䩏,0,06LVLe1i1`) 000ߍҩ}ҭҍ ) `H) 000ҩh `#,ҍ ҩ(ҩҩ`23`@1` >H>h}`1E1`   L  51ʩ  F5j4LJ 41*1*> H) 1h )1I-Ӎө15)? @}5,02424 2H h4 )IL/ LJ @$% C(C$$5%:%  }ؠ.0 $@%H%$%5f DD `=*CEDCH hC }DD dFCEDF     )"   @       0 }  EFL) ` Ҭ@@@ό@(` Ҏ@ @ (` V >*g)L  *F(    * + L } $h) * 0 sprL (h  3L !0h% "$#& 0$ .Bh $pC }P ,   zj LL & fjltu`  $h)ipqL/ V ߰"g)}+lk 3 $/l/G@jjLL[ j08`(I")>0I(0$G%H  ] (  38(k()}8(ȥ)FI`$GȘklL] Vg)L+lk L G/Șlpq k L V  *L Vg)i>jl} IfJJ& %   $ uHtHg)hH + hh rpsq Q$hyhy  3gL>j Lf}*` V"X%'8  HH`7 8L[ #+) 0 >P?8@f  *!"ʎ= 4 } <F GȱG L+0  ^LE,=0 *   &$Eʈ}E ʽE7EȩE,= 0EȩE 3% %`dJ ? ` > J P[  * }C$P?C[%[ ,( ^  @ C LLB,h    h ^ @tuth,  } 3L 0 *h + tu  E` > Lh ,C $)C  L$) ` j0@MoL}nj jMqLp NklL  lNnLoMLN L 6  p) 0>ikIk8}ljmO Y  L S  f) (`I $(I0`G/IɛIL}I  L Q ECȱE,= CqECȊqEC  G LL SROTCES EERF $H0 C ) *,-,?, Gh})H<, GȽG h>, GȄI$ +d   1GI`'DC8C'D 0IGIDC`}$0Z:ȩ'$. ȩ "* ?'?/ɛ '  'ÝPнP .` !%&p$&$i}%%h $=H*"" h0Ch h0!)C)зP?Щ !%!$"&#08.`j0} g j 0#\ lGqfGȽpG  gLtu pqlk`8onH h<LpjЌpq8` } 05lG)f'G)qȱGpȱGHih0})Hhk`L"!" pnqo`h8$ %ii`E"` )} dLEfE8$EF h( ,=0(`( dfEFEi (< p0`ɃL @ nH)h}o7Hn^oji "0 "hEEdEiEȱEiE`h`hQEEd h) hE8EȱEE` 8E QEE }H.8 pp*qhpp  q`  "! ! !0+&#  !} ! !5E:F .m.  .mm@GHH`(ʎ=<`no K"} g $% 3L*L$./k<, +    8 vI0 `$ݯLL#} .(`DOS SYShChDC .C/`0.m m. }}   $%$}Ll`c 2  ) > * l 4% l P   Tۍ# B o0N#@%}#;  o=0 ,0~ }HH0 lhh` H hED L&}8HIHIۍ V0,0 MLlD:AUTORUN.SYS} h V\ >E ^D5FCECECED'}FF""I өύ@ԍ`ϩ )`  > HCEϼ%' ) Z$4(} ) *` lLz$l|DFqCqE ` KL  (`E:D1:SDUP.SYSHILV lL n`  )}`  B L^3JBLVDE`sssdex $N@D:MS*.*.**E:SYS,}#$|AXLPB0NZ<( ((@@dT"( +} +AdAU0@@@70@@Q0@@@c@@,}u@@7{(}AR@++(#++(#| ANTIC UTILITY DISK -} |++(#++(# @ -@A.} $ GG;@@,;@ ,;@@,;A,;@,;@@, "D1:MENU" &&@@/}D:*.* 6,6." 6 @0i6-%@(6.7@<@,A67@ <@ ,.0}.i67@<@,.7@<@,3 6.|67B:,%@,.367B:,%@,.G67@<@,.(--1}@B:,:7<,4 G67<,..] 6.=:, @D67@<@,.7@<@,]67@<@2},.0$@(''7@<@,4FREE@- @ 2() <@F''7@3}<@,4FREE@K @ P(7@<@,)|U @0W'!-@6+'@,%@' |Z+4}+(#| |[ ( |  |\++(#xAR5}[@@9'-@@"C( SELECTIONM A0Q[ BP:,A006}"@&6.7@<@,0 AELB6.7+&@,$@%@<+&@,$@%@,L B37}7@<@,4 36.7@<@,!7@<@,4DOS!.0 6.-@B:,07<,4 AH8}67B:,%@,.7<,   6.! 6.D1:!67B:,%@,.?AR@'-@@"?  9} LOADING ? A@@91@@5%? BK-@@"-  CANNOT RUN 7 :}@A BK A0D:MENUFINGERS .LSTCUS 5%? BK-@@"-  CANNOT RUN 7 :5 REM COMPUTE MARCH 81 PAGE 80 10 REM 20 REM 25 REM MEMORY DUMP/DISSEMBLER30 REM 35 REM BY ROBERT W. BAKER40 REM 15 WIN<}DSOR DR. ATCO,NJ. 0800450 REM V1.0 1/4/8170 GRAPHICS 0:POKE 752,180 PRINT CHR$(125);" M E M O R Y D U M P ":? :? =}90 PRINT "INITIALIZING....."100 DIM H$(16),A$(6),S$(6),M$(1536)110 H$="0123456789ABCDEF"120 S$=" "150 OPEN #1,4,0,">}K"160 FOR X=1 TO 1531 STEP 6170 READ A$175 IF A$(2,2)="*" THEN A$(2,4)="*?*"180 N=LEN(A$):IF N<6 THEN A$(N+1)=S$185 M$(X?},X+5)=A$:NEXT X200 PRINT CHR$(125);" M E M O R Y D U M P ":? :? 201 PRINT "ENTER DECIMAL STARTING ADDRESS":PRINT@} 202 PRINT "OR HEX ADDRESS PRECEDED BY '$'":PRINT 203 POKE 752,0204 INPUT A$:IF A$="" THEN 800205 IF A$(1,1)="$" THEN 209A}206 FOR X=1 TO LEN(A$)207 IF A$(X,X)<"0" OR A$(X,X)>"9" THEN 200208 NEXT X:A=INT(VAL(A$)/8)*8:GOTO 240209 A=0:IF LEN(A$)<B}2 THEN 200210 FOR X=2 TO LEN(A$)211 IF A$(X,X)<"0" THEN 200212 IF A$(X,X)<="9" THEN A=A*16+VAL(A$(X,X)):GOTO 220215 IF A$C}(X,X)<"A" OR A$(X,X)>"F" THEN 200218 A=A*16+ASC(A$(X,X))-55220 NEXT X240 ? :? "WANT DISSASSEMBLY Y/N ?";242 GET #1,X:D=0D}:IF X=78 THEN 245244 D=1:IF X<>89 THEN 240245 ? CHR$(X)250 ? :? "WANT PRINTED COPY Y/N ?";252 CLOSE #2255 P=0:GET #1,XE}260 IF X=78 THEN OPEN #2,8,0,"E":GOTO 290270 IF X<>89 THEN 255280 P=1:OPEN #2,8,0,"P"290 IF P=0 THEN PRINT CHR$(125);:GOTOF} 300295 ? CHR$(125);"PRESS ANY KEY TO STOP PRINTER":PRINT #2300 ? #2;"LOC-DEC/HEX ";302 IF D=0 THEN ? #2;"0 1 2 3 4 G}5 6 7 ":GOTO 310305 ? #2;" OBJECT DISSASSEMBLY "310 ? #2320 POKE 764,255330 IF P=0 THEN FOR N=1 TO 20340 IF A>6553H}5 THEN A=A-65536350 A$=STR$(A):L=LEN(A$)360 ? #2;S$(1,6-L);A$;" ";370 Y=A:GOSUB 950380 ? #2;": ";400 IF D=0 THEN 600410I} V=PEEK(A)411 GOSUB 1000:? #2;" ";415 A=A+1:X=(6*V)+1:A$=M$(X,X+5)420 IF A$(1,1)="0" THEN PRINT #2;" ";A$(2,4):GOTO J}630430 V=PEEK(A):GOSUB 1000432 ? #2;" ";:A=A+1435 IF A$(1,1)="2" THEN 500440 ? #2;" ";A$(2,4);" ";445 IF A$(5,5)<>"R"K} THEN 470450 IF V>127 THEN V=V-256460 Y=A+V:GOSUB 900:GOTO 590470 IF A$(5,5)="#" THEN ? #2;"#$";:GOSUB 1000:GOTO 590475 IL}F A$(6,6)=")" THEN ? #2;"(";480 ? #2;"$";:GOSUB 1000482 IF A$(5,5)=" " THEN 590485 IF A$(5,6)="Y)" THEN ? #2;"),Y":GOTO 63M}0490 ? #2;",";A$(5,6):GOTO 630500 V1=V:V=PEEK(A):GOSUB 1000:A=A+1510 ? #2;" ";A$(2,4);" ";515 Y=V1+(256*V)520 IF A$(5,5N})=")" THEN ? #2;"(";:GOSUB 900:? #2;")":GOTO 630525 GOSUB 900530 IF A$(5,5)=" " THEN 590540 ? #2;",";A$(5,5):GOTO 630590 O}? #2:GOTO 630600 FOR X=1 TO 8:V=PEEK(A)610 GOSUB 1000:? #2;" ";620 A=A+1:NEXT X:? #2630 IF P=0 THEN NEXT N:GOTO 700640 IP}F PEEK(764)=255 THEN 340650 GET #1,X700 POKE 752,1:? 705 ? "CONTINUE, RESTART, OR STOP C/R/S ?";710 GET #1,X:IF X=67 THEQ}N 290730 IF X=82 THEN 200740 IF X<>83 THEN 710800 POKE 752,0:CLOSE #1:CLOSE #2:END 900 ? #2;"$";950 V=INT(Y/256):GOSUB 1R}000960 V=Y-(V*256)1000 H=INT(V/16):L=V-(H*16)1010 ? #2;H$(H+1,H+1);H$(L+1,L+1);1020 RETURN 9000 DATA 0BRK,1ORAX),0*,0*,0S}*,1ORA,1ASL,0*9010 DATA 0PHP,1ORA#,0ASL,0*,0*,2ORA,2ASL,0*9020 DATA 1BPLR,1ORAY),0*,0*,0*,1ORAX,1ASLX,0*9030 DATA 0CLC,2ORT}AY,0*,0*,0*,2ORAX,2ASLX,0*9040 DATA 2JSR,1ANDX),0*,0*,1BIT,1AND,1ROL,0*9050 DATA 0PLP,1AND#,0ROL,0*,2BIT,2AND,2ROL,0*9060 U}DATA 1BMIR,1ANDY),0*,0*,0*,1ANDX,1ROLX,0*9070 DATA 0SEC,2ANDY,0*,0*,0*,2ANDX,2ROLX,0*9080 DATA 0RTI,1EORX),0*,0*,0*,1EOR,1LV}SR,0*9090 DATA 0PHA,1EOR#,0LSR,0*,2JMP,2EOR,2LSR,0*9100 DATA 1BVCR,1EORY),0*,0*,0*,1EORX,1LSRX,0*9110 DATA 0CLI,2EORY,0*,0W}*,0*,2EORX,2LSRX,0*9120 DATA 0RTS,1ADCX),0*,0*,0*,1ADC,1ROR,0*9130 DATA 0PLA,1ADC#,0ROR,0*,2JMP),2ADC,2ROR,0*9140 DATA 1BVX}SR,1ADCY),0*,0*,0*,1ADCX,1RORX,0*9150 DATA 0SEI,2ADCY,0*,0*,0*,2ADCX,2RORX,0*9160 DATA 0*,1STAX),0*,0*,1STY,1STA,1STX,0*91Y}70 DATA 0DEY,0*,0TXA,0*,2STY,2STA,2STX,0*9180 DATA 1BCCR,1STAY),0*,0*,1STYX,1STAX,1STXY,0*9190 DATA 0TYA,2STAY,0TXS,0*,0*,2Z}STAX,0*,0*9200 DATA 1LDY#,1LDAX),1LDX#,0*,1LDY,1LDA,1LDX,0*9210 DATA 0TAY,1LDA#,0TAX,0*,2LDY,2LDA,2LDX,0*9220 DATA 1BCSR,1[}LDAY),0*,0*,1LDYX,1LDAX,1LDXY,0*9230 DATA 0CLV,2LDAY,0TSX,0*,2LDYX,2LDAX,2LDXY,0*9240 DATA 1CPY#,1CMPX),0*,0*,1CPY,1CMP,1DE\}C,0*9250 DATA 0INY,1CMP#,0DEX,0*,2CPY,2CMP,2DEC,0*9260 DATA 1BNER,1CMPY),0*,0*,0*,1CMPX,1DECX,0*9270 DATA 0CLD,2CMPY,0*,0*]},0*,2CMPX,2DECX,0*9280 DATA 1CPX#,1SBCX),0*,0*,1CPX,1SBC,1INC,0*9290 DATA 0INX,1SBC#,0NOP,0*,2CPX,2SBC,2INC,0*9300 DATA 1B^}EQR,1SBCY),0*,0*,0*,1SBCX,1INCX,0*9310 DATA 0SED,2SBCY,0*,0*,0*,2SBCX,2INCX,0*,1SBC#,0NOP,0*,2CPX,2SBC,2INC,0*9300 DATA 1BP 67=MDAGLMASB("AAA(@AA@$ A A `} @ A @qq******DISPLAY LIST LISTER****** 1 REM ****** 01-20-84 ****** 2 REM ****** a} BY ******%%****** TOM SPEER ******%%*******************************9A ,6-A% b}AR@ @%(}`-@@#4( ԠҮ FAR@JN+`AY c}++"@ )"@)"@A D-A&68,-* DCLEAR ARRAY FOR NEXT DLH%6-F: d}A`,%F:Aa,$AVHSTARTING ADDRESS OF DISPLAY LIST-($6-F:%,$GET DL INSTRUCTIONS<1 68, e}-1PUT DL INSTRUCTIONS INTO ARRAY 'A'F Zr +*( 66-AB6-@N6- f}`AR@rAY@4d-6-%@x#"@1*!@!# A })"@"6-%@ g})6-@ -(% 8,8,"@eA rr(}bGR.9 THROUGH 11 USE THE SAME DISPLA h}Y LIST AS GR.8 WITH NO TEXT WINDOW.- (8+16) OR GR.(24).AR@ A  @3-@ i}@%6-%@36-%@ -(% 8,  @L6-@6-@--@@" j}L(Ӡ٠٠Ϡ --@A -AU@EF:Ad,AU*AdAU0(} k}BAU@E$--@A -AU@ A D:DLLISTAAA@y@ l}AAU@E$--@A -AU@ A D:DLLISTAAA@y@ () AXMENREADADBTOOTOSTARFLELASLINLINEAASECTOCIOJKBCFILEBUFBUFLEINDEAUXLINEISTALINn}E2LINE3AUOUTINLENRESTARTYNNAMECORRABLINEXIOCFIRSBOOLINE4FIRSTLINE5LASTLINE6LINE7CHRLINE8ABASTOMEMo}TOBUGPWRERROFILELEXDRIVSTRTSECSECTCNLLINEFGp}AU q} !"#$%&'r}()*+,-./012345@6s}789:;<=>?@ABCDEFt}GHIJK:MINI.UTL""Š""̠Π٠u}""Ġ٠à &&;@,;@ ,;@,5g +A1-@Cv}AUAR@g@@6L"( MINI UTILITY 6/9/83L(% VERSION 3.0S M & M SOFTWARE INC.w} 7//('8( ( ((9'B7t@d'@@d<`-@x})( . BASIC >(. WRITE UTL.SYSQ( . COPIER `( . MEMORY=-(. GO TO DOS -(. FORMAT DISK>k#y}@@K:5-@@ J(YOUR SELECTION ?W)@`6.>:,k@F41AQz}43Ap[44AP]46A^42A_45An @bU +B7t{}@d1@@dCA@PUAU@o#@@K:&()(,(N(DO YOU WISH T|}O FORMAT A DISK[)@d6.>:,o@S 4YA@ /A 2(E( ARE YOU READYIS }}A@ @S 4Y(((#( FORMATTINGKAT@D:]A@oA ~}AS|F:A, @Sw#@@K:L($WOULD YOU LIKE TO FORMAT A DIFFERENTV(DISKc)@}l6.>:,w@4YA  @S,A@(}-~#@@K:F(HIT} 'RETURN' TO WRITE MINI.UTL](OR CTRL^X TO ABORTj)@s6.>:,~@04@S6+4>:AU,! }D:MINI.UTL+ @S@ (} A +A@1A@C-@@R6-I:,`(} YOU HAVE d(}(BITES OF MEMORY LEFT(( STATUS: 'B7t@d'@@d A (}LOW'!B( EXCELLENT' A`!BP(FINE*6-P:'A,(*(WHICH = K`( ((( } HIT 'RETURN' FOR MENUH@@K:U)@`@"@S @S +}@@GRAPHICS 0:POKE 755,3:POKE 53774,64:POKE 16,64:POKE 710,191A@(-( ARE YOU SURE1} 4Y.ltAR@5@@K:R(HIT 'RETURN' TO CONTINUE_)@j@t @S}f1 +B7t@d1@@dpKAAy'A9@@KAR@}z( (( COPIERH( (,( FOR CASSETTE TO CASSETTE OR H( CASSETTE TO DISK( PLE}ASE WAIT.. #A ` A 0 A4-AA"  $ 32,68,218,104,201,5,208,74}!!104,104,141,1,3,104,104,1412,3,104,141,11,3,104,141""10,3,104,133,204,104,133,203104,141,5,3,104,141,4,3}32,83,228,48,35,173,4,324,105,128,141,4,3,173,53,105,0,141,5,3,238,103,208,3,238,11,3,198,203""20}8,222,198,204,16,218,160,1 132,212,96  AE  A@%-AAQ"!% $ 32,68,21}8,104,201,4,208,43!!104,104,10,10,10,10,170,104104,157,66,3,104,157,69,3104,157,68,3,104,157,73,3 104,15}7,72,3,32,86,228,132!!212,189,72,3,133,203,189,733,133,204,96';@,$G%6-F:AD,%AV$F:A}E,G6-F:AA,%AV$F:AB,)6-%A6-&-16-@6-@&6-@:W,16-@:R,.K( (K(}=INSERT A BOOT TAPE IN CASSTTE DRIVE AND HIT 'RETURN'1P#@@A(C:&(3( LOADINGP6-?:A}<@<<<,3$@6-Ap$ A062"@((NOT ENOUGH MEMORY!2 A 8%%6-F:A,%A}V$F:A,:O&(INPUT DESTINATION DEVICE CODEK( >C< FOR CASSETTE OR >D< FOR DISKO<$$7@<@,4C}A>$$7@<@,4DA@'(FALLOW THE EXAMPLES!' ABC(READY TO PUT ON DISK.?(DO YOU WIS}H TO FORMAT A DISKCDO 4YA@ /A A( ARE YOU SUREEO AF AHB 4}Y( FORMATTINGBAT@D:LhAAy'A9A APW(PUT IN }FORMATTED DISK ANDh( HIT 'RETURN'N46-@6-@46-P:'A(,%@PH#@@K:0)}@96.>:,D@H(R(WRITTING BOOT DISKT6-?:A<<<<<,V6-A A0X%!(DO Y}OU WANT ANOTHER COPY%Z4YA\ A ^22(*INSERT YOUR CASSETTE PRESS PLAY AND RECORD`9#@@}A(C:9(WRITTING CASSETTEb 6-?:A<@<<<,d$@6-A$ A0f5!(DO YOU WAN}T ANOHTER COPY%54YAh A j"@)"A6$l"An2( I/O ERROR2(CH}ECK DRIVE AND TRY AGAIN!p ' (FATAL ERROR! A %l"An2( I/O ERROR2(CHL !z AZRIPOFSPDBC  @@@@i@'www@ @} @ @ @AU@@<<;A ,;A ,;A ,;@},;@,6-@467@,. %67A ,. 467@,.( A`2 }<467@,. }%67A ,. 467@,.F6-@P=( 1 OR 2 SIDES'6-&@3!@= @Z.6-@$} TYPE DISK NAME:. A@\#" A# A^A A(3(TURN DISK OVER AND HIT RETURN= @}A_D B6.$67@,. 567A ,. D67@,.`/6-@ A6.%6./ Ad }An6-x&&@@D:*.*@6-$@&@67<$@,.}6-%@6-@ A0@$"A`6-&@ })) !READY th}e printer and press START F:B2y,@A@##@@P:)) @>:@',A>:}@,)) @>:@,>:@',O @>:@',S0"4"* @ 4 }A , @ .88 @' SIDE(1) SIDE(2)6 @ @06-'@"}P:'@,06-%@J6-@ 6-@T-@^##6-+&@,$@%@h-%@}rp"f @7$@&@<$@, 7+%,$@&@<+%,$@,p A|T. @}7$@&@<$@,T" ";A$((X+OFF)*17-16,(X+OFF)*17);CCPRINT #1,;B$(X*17-16,X*17);" ";B$((X+OFF)*17-1}6,(X+OFF)*17).. @7$@&@<$@, "'@!@" @ @ @} @ @P' +@'0@5 @ @5 @ L}ABEL IT&-@@" @& ' @' @ BY, @, @ greg hisc}ott }&&  Press START to continue F:B2y,"@@P A0& AP0 }:++ #}Sorry, disk does not have a catalogD# # Press START to try againN Press OPTION to endX6-F:B2y,b"@}@Pl"@v A*******************LENGTH IS ILRETURN STRING IS R$*******}************##@@K: 6. 6-B:,)@"@A"AU}A M@2*@* ;67%@<%@,.>:,C >:,M A#A&)"# A }"@6. (!@(6.7@<&@, A  6.XXX*#@ AU@#}$4@>AU@H"-%@67,. " R$ D:LABEL2.BAS@ AU@#a95 REM ***** FAST FINGERS *****96 REM * BY CRAIG CHAMBERLAIN *97 REM * ANTIC MAGAZINE *98 REM * FEBUARY, 1984 } *99 REM ************************100 ? CHR$(125):? "FAST FINGERS BOOT FILE MAKER":? "by Craig Chamberlain 8/1/83":? 110 DI}M M(112),A(70),F$(16):FOR K=0 TO 112:READ P:M(K)=P:NEXT K:FOR K=1 TO 70:READ P:A(K)=P:NEXT K120 DIM B$(FRE(0)-250):L=1:SHIFT}=64:CTRL=128:MODE=0:LC=0200 ? "PLEASE ENTER INPUT DEVICE SPEC":INPUT F$:IF F$="" THEN 200210 ? CHR$(125):? "READY":TRAP 700}:OPEN #1,4,0,F$:TRAP 460300 GET #1,P:? CHR$(P);310 IF P=27 THEN B$(L)=CHR$(28):L=L+1:Q=28:GOTO 450315 IF P>27 AND P<32 THE}N Q=A(P+28):GOTO 450320 IF P>124 AND P<128 THEN Q=A(P-60):GOTO 450325 IF P>154 AND P<160 THEN Q=A(P-95):GOTO 450330 IF P>2}52 THEN Q=A(P-185):GOTO 450340 INV=0:IF P>127 THEN P=P-128:INV=1345 IF INV<>MODE THEN MODE=1-MODE:B$(L)=CHR$(39):L=L+1350 }IF P=0 THEN Q=160:GOTO 450355 IF P<27 THEN Q=CTRL+A(P):GOTO 450360 IF P=32 THEN Q=33:GOTO 450365 IF P<40 THEN Q=SHIFT+A(P-}5):GOTO 450370 IF P=40 THEN Q=SHIFT+A(36):GOTO 450375 IF P=41 THEN Q=SHIFT+A(27):GOTO 450380 IF P<48 THEN Q=A(P-5):GOTO 45}0385 IF P<58 THEN Q=A(P-21):GOTO 450390 IF P<65 THEN Q=A(P-15):GOTO 450395 IF P<91 THEN Q=SHIFT+A(P-64):GOTO 450400 IF P<}97 THEN Q=A(P-41):GOTO 450405 IF P=123 THEN Q=130:GOTO 450410 IF P=124 THEN Q=79:GOTO 450415 IF LC=0 THEN LC=1:B$(L)=CHR$(}60):L=L+1420 Q=A(P-96)450 B$(L)=CHR$(Q):L=L+1:GOTO 300460 IF PEEK(195)<>136 THEN 700470 B$(L)=CHR$(255):CLOSE #1:POKE 694},0:POKE 702,64:? 480 ? "TOTAL: ";L;" KEYSTROKES":IF L>200 THEN ? "WARNING: TOO BIG FOR PAGE SIX"500 ? :? "CASSETTE OR DISK"};:INPUT F$:P=ASC(F$):IF P<67 OR P>68 OR F$="" THEN 500510 C=11*(P=67):LA=13312:IF C THEN LA=1792:GOTO 520512 WM=8:OPEN #1,6},0,"D:AUTORUN.SYS":INPUT #1;F$:CLOSE #1:IF F$(2,2)<>" " THEN 520514 ? "APPEND";:INPUT F$:IF F$="" THEN ? "NO":GOTO 520516 W}M=8+(F$(1,1)="Y"):IF F$(1,1)<>"Y" AND F$(1,1)<>"N" THEN 514520 ? "LOAD ADDRESS (";LA;") ";:TRAP 530:INPUT LA530 PA=1536:? "}PATCH ADDRESS (";PA;") ";:TRAP 540:INPUT PA540 I=3:? "SPEED 1-9 (";I;") ";:TRAP 550:INPUT I:IF I<1 OR I>9 OR I<>INT(I) THEN }540550 P=1:FOR K=1 TO I:P=P*2:NEXT K:M(60)=P/2-1560 ? :LA=LA+C:A=LA+57:GOSUB 710:A=PA:GOSUB 710:A=LA+113:GOSUB 710:A=PA+56:}GOSUB 710:A=LA+29:GOSUB 710:A=LA+32570 GOSUB 710:A=PA+56:GOSUB 710:A=PA+13:GOSUB 710:A=PA+14:GOSUB 710:M(49)=INT(PA/256):M(5}1)=PA-256*INT(PA/256)600 LA=LA-C:LO=LA-256*INT(LA/256):HI=INT(LA/256):TRAP 700:IF C THEN 630610 OPEN #1,WM,0,"D:AUTORUN.SYS}":PUT #1,255:PUT #1,255:PUT #1,LO:PUT #1,HI620 EA=LA+112+L:PUT #1,EA-256*INT(EA/256):PUT #1,INT(EA/256):GOTO 650630 OPEN #1},8,128,"C:":PUT #1,0:PUT #1,INT((L+250)/128):PUT #1,LO:PUT #1,HI640 PUT #1,PA+55-256*INT((PA+55)/256):PUT #1,INT((PA+55)/256}):FOR K=1 TO 5:READ P:PUT #1,P:NEXT K650 FOR K=0 TO 112:PUT #1,M(K):NEXT K:? #1;B$;:IF C THEN 690660 PUT #1,226:PUT #1,2:PU}T #1,227:PUT #1,2:PUT #1,LO:PUT #1,HI690 CLOSE #1:TRAP 40000:CLR :END 700 ? "ERROR ";PEEK(195):TRAP 40000:CLR :END 710 REA}D I:M(I)=A-256*INT(A/256):M(I+1)=INT(A/256):RETURN 800 DATA 165,16,41,63,133,16,141,14,210,162,55,189,57,6,157,57,6,202,16,2}47,142,252,2,232,142,255,2,189,113,6,157801 DATA 113,6,232,208,6,238,29,6,238,32,6,201,255,208,237,169,7,162,6,160,57,32,92,}228,24,96,165,20,41,1,208,46802 DATA 174,252,2,232,208,40,174,113,6,238,70,6,208,3,238,71,6,142,252,2,232,208,23,169,64,141,}190,2,165,16,9803 DATA 192,133,16,141,14,210,169,7,162,228,160,98,32,92,228,76,98,228,96810 DATA 63,21,18,58,42,56,61,57,13},1,5,0,37,35,8,10,47,40,62,45,11,16,46,22,43,23,50,31,30,26,24,29,27,51,53811 DATA 48,7,6,32,14,34,38,66,2,54,15,55,102,117,}96,70,98,71,78,162,142,143,134,135,12,116,119,172,108,118,52812 DATA 44,158,180,183820 DATA 12,15,28,31,37,40,70,73,78830 }DATA 169,60,141,2,211,143,134,135,12,116,119,172,108,118,52812 DATA 44,158,180,183820 DATA 12,15,28,31,37,40,70,73,78830 nFAQTBDFDHL@ }%%THIS PROGRAM PRINTS A FILE FROM##THE DISK (IN LISTED FORM). IT%%REQUIRES AN EPSON MX-80(OR 100)MAKE SURE 85}0 I/F IS ON.KIEFFER WARMAN 1/10/83V2.0 FRANK GRAY 4/02/83g +@A@1A @CA}A2UA@Rg-@}H(@7- v 2.0 by frank gray}(}@' 1) #1B(@1 2) 3)& M(@}k(@ press RETURNu @  @ >#@@K:0)@;@>$ -"(@}}INITIALIZING ...-(@E<;@ ,;A,9@,;A,;@ ,E6.D:68@,-A}-68@,-AB68@,-AW68@,-Al68@,-A68@,-A68@,-A}68@,-A(68@ ,-A 4-68@,-A 5B68@,-A bW68@,-A gl68@,-A} x68@,-A d;A H, A`e5-@@1678,<8,,.>:@4,5 n- A-@}@P:s?(@N?IF PRINTER IS NOT GRAFTRAX+ CHANGE TO ""v# 6.#(@ } ?x}K @ (@>:,*AUA67B:,%@,.>:,K A y@zB:, @A}67@}<@,0D:,67@,.6 A0~ 6. A@* @@* AL}A@$,(@ }:(@L(@@6.1B:,!A !6.7A!},167A!,.U6-P:B:,$@'AV,:6-B:,$@&$AVU(@L>:,>:,p(@;}F:@,"@*F:@,"@R(@ }`(@p(@W-@B:,(6-@:7,,%@}S(@7$@&@<$@,W *@AU! 06.6.! AQ 6. A}PF:A,"A8#@B(@} M(@X(@s(@ (}@ |F:A,"A84(@ ?(@J(@h(@ press RETURNr} @ | A0F:A,A60(ERROR - F:A,(@pXX67B:,%@,.@0x|>|x0}8pp8qXX67B:,%@,.@??}rXX67B:,%@,.@zfz>>>>sXX67B:,%@,.@} 0~~0 ~~ 8|TT|8tXX67B:,%@,.@zzpppp$~~$$~~$$t\H}fl0fF ^N ppuXX67B:,%@,.@<~fBBf~<T|88|T|| 0`@vXX67B:,%}@,.@<~JR~< ~~ fNZr DFRznD 4~~tvRR^L<~RR^ @FNXp`wXX67B:,%@,.@,~RR~, rRV|866}768lƂ$$$$$$l8 `JZp xXX67B:,%@,.@<~BZz:>dd>~~RR~,<~BBf$~~Bf<~~RRRB~~PPP@<~BJNN}yXX67B:,%@,.@~~~~BB~~BB~|~~~~ > ~~>**:>~PP=%%?>}XX67B:,%@,.}@~~^^_^~~B~~>>8>>> >> >~XX67B:,%@,.@??$$<<$$??>> 0:**.$ |}~ <>>>8<<88>>8XX67B:,%@,.@ 66 9=>< &.:2 :~~:||px^N8||8XX67B}:,%@,.@χǏ??XX67B:,%@,.@}????????XX67B:,%@,.@煙}XX67B:,%@,.@QQρǃ遲XX67B:,%@,.@}ہہۋ))ϙ EXX67B:,%@,.@Á遲ǃ}ϟXX67B:,%@,.@Á݁ݙˁÁXX67B:,%@},.@ӁߍǓ9}}9ߟXX67B:,%@,.@ÁÁ}ÁXX67B:,%@,.@ÙρぁÁX}X67B:,%@,.@ÁߍXX67B:,%@,.@灙Ꮯ}ϟXX67B:,%@,.@Á큁}XX67B:,%@,.@XX67B:,%@,.@}߃XX67B:,%@,.@Ł}ǃ AD:LISTERXX67B:,%@,.@Ł6&<48=7<}<J&&K&L&ʩ * d5I&&&© 1 -L*I&˜ ' 4&0& 1&& *L }*& & 1 -& & 1 - - *`RUNTIME ERROR AT LINE &&Lr*+ +L&` '!}& &L&PROGRAM STOPPED&&Ńł ȱ`iL'HH 1*L/ r* . 1 + '. . . !}1 . ' 1 + . 'hhL.ʥ`HHhh`8L'u!}`Huh` Lr*L' Lr*L' ) . ( . ' r* .Lo* )!} . ' , ( . ' + ' r* ' + 1 , . o*Lr* ) ' ' , ( . ' + ' r* ' + !}1 , . (( . o*Lo* ' 1* '.L/` ) r* .L. ) . . + ' . ' ,L' ) ' ,!} ' . + 'L'J&K&L& ) 1 1,L&eJ&iK&`L&8LM& . '.!}L&`ʔȱȱȱ 1*Șe惠 惨6,*6-* L*HHhh``!}`Lo*ʱ` ** &JL&J *HHl JLw TO BOOT FOR DOS!} TO RERUNp B V8+` +ȱLr*&&8558凅刐SJj)ee`ф! }фiiL#+8L#+ LM&uuuLr*8` +Lr*iLr*豂Hȱ! }h`p +Lr*+H+ BHI+ 4 -h`8` ,L, ,#` ,0 ,0L, ,0! }` ,0L,L,`޵` `Ȕ`ʔ惥u`! }+ BHI DEH 4 -HyhLo* + -`+JJJJ`d-+e- +- c-0 c-Lr* J-Lr*! }` f-H J-h 0 c-`L+8 0ƅ`66&Ln-HH` B VhH)Kh)0 IJD-EB 4hLr*S:+Lr*!}TUVLo* -`++L+ -8ɰɅ +`ʱȱȱ`ȵȵLr*Lr* '. . .ʥ!} . . '. .L3 '. . . . 1*uȱuȱu W* 1* .0 @,L3 ȱLr* T,L.ʵ!}`eeLM&HHhh`ؐHH 1*L/ r*HH . .6 +i i!} .i i .hh . . 'hh .`HH 1*% r*HH 1L'/ 1* '. LM& .6 + !}. +` 1* '.ޠ . 1 +L/  o*Lr*H+ B Vh` ҵ  o*Lo*H+BHI 4+h+L1 g!}0+KJBD0EH 4h o*Lr* r* '.0Ɔ򩛙0` -H`B 4h`00!}L1Lr*Lr* +`H o*hL11HH eHHƆeiH '.lꦆ 1Օ`0  !}L,`8`|1rd-1e- (- 10|1L1|10|1`1 r* '.1 1`+6-1L180!}1LM& + 1 . 1 1 ++ 1 +Ɔʭ1 +`ʕ`66`HHH66666u!}uuhhhLr* +愵 ' + 'I 1 280/66&&&`!}uuu` 2 2Ј 2 o* +`@32@2 .22222 LM&ȥ2i!}223`L*32 3`LM&2@82ƅ3 ȱ222` w3L?33L?3H3 2h`!}1+ %  88L3 o* o*` o* o*`  o* o*` 3$' 3"0 !}30 !4L, 4L, 4L,L1L14 1 '. .4444`H+? ++HI4D44E4B 4H!}4h` VLM&4` D44 14α44 1L4 D44LM&44, α44ﭯ4 148e44α4 !}11L1  'Lr*hh iLr* (5L2 (5L*42&&ȱ0 5Lw5 555&!}& L5&&`i`J&&K&L&` +ȱ&&%8e慱HȱhױL&!}iJ&iK&Lr*+ BH Vh 1LW*+&BH 4hN 1 W*L 1MLW*+%BNLMH 4hLo*)}*1*N! }*W*v*11+,J2+,a,s,@,/,T,9,H,),**++++,,-------6.c./x///2:3}10000)///0090.444(4!4440&D'@(!!}f(()))V)4440T5\5A1+1d5355&(6@6j6S1d48nR8x|88889&9L9r9999 :!:6:9:A:O:":,!"};6 ;@G;Jw;T;^;h;r;|<3<V<y<z<<<<<!#}7@7@7@#7@7@7 B7 B77DB7 A87!$} 8$71,778%}-******************************** READ/WRITE TO SECTOR 720 *!%}* WRITTEN BY CHUCK McMATH ** ANTIC MAY 1983 VOL 2 NUM 2 ** INVISIBLE SECTOR P 28 ** REVISED !&} BY FRANK L MICELI ******************************** (R)EAD (W)RITEENTER OPTIO!'}N :7GAI7DR=!:7RJ7DW=6:7W}-E:7ENTER LABEL (35 CHARS MAX)&---!(}-+----+----+----+----+----+----+ 7GAIENTER YOUR NAME (35 CHARS MAX)&----+----+----+----+----+----+----!)}+ 7GAI4ENTER DATE (as 'MM/DD/yy')7GAI7D/G;6ENTER 5 DIGIT SERIAL NUMBER 7GA!*}I7$F7DC7GK7DC7LS7DC777D.J}-; DISK STATUS BAD ERROR CODE =!+}̠7#F٠7$FFĠ7LSF̠Ҡ!,}7GKF<104,104,104,141,2,3,104,141<<5,3,104,141,4,3,169,1,141,1<<3,169,208,141,10,3,169,2,141<<11,3,32,83,!-}228,96&04,104,104,141,2,3,104,141<<5,3,104,141,4,3,169,1,141,1<<3,169,208,141,10,3,169,2,141<<11,3,32,83, &'yA@Hd""****************************n""* *x""%/}* TV CONVERGENCE TEST *""* BY JEFF SCHAFFER *""* (213)-998-5234 *""* MASTER OF SOFTWARE%0} *""* *""* H= HORIZONTAL LINES *""* V= VERTICAL LINES *""* X= CROS%1}S-HATCH *""* D= DOTS *""* C= COLOR BARS *""* *""*%2} *""* *""****************************, +A@%3},;@,8@.@@K:8@)@6.>:,9+@%@'A%4}9A @" 4H AP A`, 4V A A`64XA@4DA %5}J4CAT%^HORIZONTAL LINESh-A@r,/A| $%6}VERTICAL LINES-A@2,/A+,%@+/%@A %7}',A'/AA',A'/AA$CROSS HATCH AP A%8} A` DOTS-A@-A@0& ,,%@0   : %9}A`DCOLOR BARSN +@X-@@bl-@vS+,+&@,$@%%@%:}S/+&@,$@%%@A    A` D1:TVTEST5+F:A8,%F:A9,$AV,%;}%@BD:TVTESTE B'g    A` D1:TVTEST5+F:A8,%F:A9,$AV,$.H  ADDCHKSU2A2 33BOOTBUILD by Chuck Hosick for )=}àś;@P,9AF, A(2..@@ D:AUTORUN.SYS<*@AU)>}F*@AUP*@Z*@@Vd6-AF%B:,&@n*@x*@)?}@V+-@AF@+6-7%@!AF--@AG&7 A`-@@)@}&"6-%"68%&@,-& " "  AV (} (K(CHECK SUM ERROR AT LINE NO. F:A,)A}$AV%F:A,V@66@3@ D:AUTORUN.SYS&#F:A,$AV%F:A,&)B}-@AF 6-8,)"@*@B:,) AP*@ -B:,@6@)C}*@@:7<,, "*@AU,*@AU6*@A&@*@@J*)D}@A'T*@@^*@h*@@Vr@|&&169,80,141,0,3,16)E}9,1,141,1,3,708''169,63,141,2,3,169,64,141,3,3,758%%169,5,141,5,3,141,6,3,169,0,642&&141,4,3,141,9,3,141,10,3,141)F},596''11,3,169,12,141,8,3,32,89,228,696&&16,3,76,87,56,162,11,189,0,5,605**157,0,3,202,16,247,32,89,228,48,1022)G}((16,32,6,5,165,12,141,85,56,165,683))13,141,86,56,32,0,0,169,103,141,741((33,3,169,56,141,34,3,169,0,141,749..)H}214,56,96,251,243,51,246,118,56,163,1494--246,51,246,60,246,76,228,243,0,172,1568--214,56,240,9,185,145,56,206,214,56)I},1381++160,1,96,140,33,3,169,228,141,34,10053,169,155,160,1,96,584N@ (}.( ͠ĠϠӠӠ@()J} ϠSJ(((Ġ͠ŠҠD(ŠƠàG(J(XW,($BOOTBILD by Chuck Hosick, A.)K}C.A.O.C./(W(#This program creates an AUTORUN.SYSbF(program on disc which:F(# 1. Loads the RS_232 handler fromlf)L})(! the 850 interface module if:H( a. you have one andf( b. it is turned onv\(and then4( 2. e)M}xecutes an immediate mode\(# BASIC command which you enter.Z2( For example- RUN >:@4,D:MENU5(W( )N} ENTER YOUR BASIC COMMANDZ( @@D:BOOTBILD.LEO For example- RUN >:@4,D:MENU5(W( (H  j@j !} ! / D0 G R. !MEMORY TESTH ^ SYSTEM CONFIGURATION _ r jj -P}"UT !s ~ PASSES 0000 TESTING PAGE 00 ERRORS 0000 LAST ERROR LOCATION 0000 BAD BITS SET-Q}TU ! SHOULD BE 00 WAS 00U ! !00000000SLOT 3!!BFFF<8000SLOT 2!+!7FFF<4000SLOT 1,!A!3FFF<0000-R} T "# !B!Y! "# ! "#ɀ #Z!p!@T"U "q!! "TU "!!ŵ "8&&溥-S}!!ŴźЧH!!H`J !!! J`hh!! ! !L! !HH`!"`HJJJJ "-T}h) ɺi"-")L!温T"U "."D" "TU " "E"\"T U "U "]"t"EH濥UTu"-U}"&0 !1 !h""`UHTH TɀT""@TB泼""8.""$-V}"#泥U !##UT !UT !h#1#ThUL" 2# T# v# # #`2#I#U !J#a#-W}`U !|O||O||b#y#O||O||O||O||O||O|`Uz## !|K||K||K||K||K||K||K|##|K|`U !| || || || ##|| || || || |-X}`U !####`U TO !U# $TU !UTT ! $ $` ##|| || || || |,m32500 CLR :DIM VAR$(80),NUM$(5):CA=PEEK(130)+PEEK(131)*256:CC=1:POKE 1690,032502 ? "}":LPRINT "CROSS REFERENCE":LPRINT :LPRI1Z}NT :LPRINT "VAR LINE NUMBERS":GOSUB 3254232504 TP=PEEK(CA):IF TP>128 THEN TP=TP-128:POKE 1690,132506 VAR$(CC,CC)=CHR$1[}(TP)32508 IF PEEK(1690) THEN GOSUB 3252632510 CA=CA+1:CC=CC+1:GOTO 3250432512 LPRINT :LPRINT "# OF VARIABLES =";PEEK(1681)1\}-12832513 END 32526 IF VAR$="VAR$" THEN POP :GOTO 3251232527 FOR X=CC+1 TO 15:VAR$(X,X)=" ":NEXT X:GOTO 3253032530 A=USR(1]}1536)32532 IF PEEK(1680) THEN GOTO 3253632534 VAR$(X-1,X-1)=" ":IF X<=16 THEN VAR$(LEN(VAR$)+1)="NO REFERENCES"32535 LPRIN1^}T VAR$:LPRINT :CC=0:POKE 1690,0:VAR$="":NUM$="":RETURN 32536 CL=PEEK(1683)+PEEK(1684)*25632538 NUM$=STR$(CL):IF LEN(VAR$)+L1_}EN(NUM$)+2>80 THEN LPRINT VAR$:VAR$=" "32540 VAR$(LEN(VAR$)+1)=NUM$:VAR$(LEN(VAR$)+1)=", ":X=LEN(VAR$):GO1`}TO 3253032542 RESTORE 32546:? " READING MACHINE CODE":FOR X=1536 TO 1684:READ TP:POKE X,TP:NEXT X32544 ? "}";"GOOOO!":RETUR1a}N 32546 DATA 169,0,205,144,6,208,8,165,136,133,205,165,137,133,206,16032548 DATA 0,177,205,141,147,6,200,177,205,141,148,6,1b}201,126,208,732550 DATA 173,147,6,201,244,240,82,200,177,205,141,143,6,160,4,17732552 DATA 205,201,20,208,5,200,200,76,101,1c}6,205,145,6,240,49,201,0,240,39,201,1,240,35,201,1432554 DATA 208,8,152,24,105,7,168,76,101,6,200,201,15,208,13,14032556 DA1d}TA 146,6,177,205,238,146,6,24,109,146,6,168,204,143,6,14432558 DATA 197,32,130,6,76,15,6,141,144,6,32,130,6,76,128,632560 D1e}ATA 136,238,145,6,140,144,6,104,96,165,205,24,109,143,6,13332562 DATA 205,144,2,230,206,96,0,0,128,0,0,0,6,76,128,632560 D0j$%MGOOBLEYGOOGOOBLEYGOKGOOBLEYGOOK@@_*("THIS PROGRAM CREATESAN AUTO5g}RUN.SYSR(#FILE WHICH CAN DISABLE THE KEYBOARD_9@,VV(&CLICK WHEN SOMETHING SUCH AS THE BASIC%CARTRIDGE IS USE5q} b&DOS SYSB*MENU b$;DISASMBLLSTb_DLLISTERSAVb/mMINIUTILSAVbLABELMKRSAVbFINGERS LSTb+LISTER SAVb0SECTUTILOBJb.TVTEST SAVb<BOOTBILDSAVb ORAMTEST OBJb YXREFUTILLSTbfNOCLICK SAVbTIMECLOKSAVb#SUPRCOMPLSTb DIRPRINTSAVb(TOOLBOX LSTb*DOCTOR SAVb RENUMBERLSTb *HEXDEC SAVbE3MSGMAKERSAVb:AUTORUN SYSbzAUTOMATESAVb"TRACE LSTbLINEDLT LSTbCREATOR SAV DIETY SAVD. FOR MORE INFO SEEC)(!CREATIVE COMPUTING SEPTEMBER 1983C(IT'S IN OUTPOST ATARI:,($PRESS RETURN TO CONTINUE OR B5r}REAK TO6(STOP: WW255,255,0,29,223,29,32,223,29,169,128,141,231,2,169,31,141,232,2,162,0,189,62,246ZZ157,0,30,235s}2,208,247,189,62,247,157,0,31,232,224,59,208,245,162,0,189,198,254,157,59[[31,232,224,48,208,245,162,0,189,141,252,157,105t}7,31,232,224,16,208,245,162,0,189,0,228(^^157,224,29,189,32,228,157,240,29,232,224,16,208,239,162,31,142,116,30,142,142,305u},142,1472XX30,142,44,31,142,111,31,202,142,20,30,142,32,30,142,47,30,142,223,30,142,41,31,169<ZZ164,141,19,30,169,111,15v}41,31,30,169,18,141,43,30,141,46,30,141,99,31,169,107,141,115F]]30,141,43,31,162,60,142,146,30,202,142,141,30,142,110,31,15w}69,227,141,190,30,169,159,141PWW222,30,169,192,141,40,31,162,6,169,224,157,27,3,169,29,157,28,3,162,12,69,240,157ZYY27,5x}3,169,29,157,28,3,169,255,141,228,29,169,29,141,229,29,169,101,141,230,29,169,30dUU141,231,29,169,163,141,244,29,169,30,145y}1,245,29,96,0,6,23,6,165,12,141,1,29,165nOO13,141,2,29,169,0,133,12,169,29,133,13,169,128,32,3,29,96,226,2,227,2,0,6xX#5z}@@K:- A`X@@ D:AUTORUN.SYSA#(AUTORUN.SYS ALREADY EXISTS!A(TYP5{}E 'Y' TO WRITE OVER IT)@@:Y,9@9@@ D:AUTORUN.SYSJ A 5|}!-@Ad%"2*@6 J@A R@6(#NEW AUTORUN.SYS TO DISABLE KEYBOARDR(SPEAK5}}ER IS NOW ON DISK.5%(TYPE 'Y' TO BOOT DISK AND RUN5( AUTORUN.SYS*)@"@:Y,*6-?:B, A@5~}H"F:A,"@)@>(ERROR IN DATA MESSAGES!H A@..(ERROR F:A, CAN'T CONTINUE...5} D:NOCLICKbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb DATA MESSAGES!H A@..(ERROR F:A, CAN'T CONTINUE...40!"rARAMTOPAGPAGEADDTIMTHTMAA#BA8BA%@@% @9}d;@,n06-@$@%@06-F:,&@x)&@+)6-$AV)( ( (WIN9}DING THE CLOCK#(&()(--A7"'"@-6- % %@ @%@E@9}(WHAT TIME (HHMM)$6-P:'A,$6-&$A!@#A!@YA@9}Ap8(MIDDAY,7@<@,0Y86- A!@A<(AM OR PM9}.7@<@,4P<6-%@,"6-P:'@,"%@6$6-P:&$@,$%@@"6-P:'@9},"%@J$6-P:&$@,$%@T6-?:%@,^1,0,0,0,0,0,0,196,169,6&&160,28,169}2,6,32,92,228,169,7,160%%54,162,6,32,92,228,104,96,238,7""6,240,3,76,95,228,173,0,6,73%%128,141,0,6,238,6,6,169,19}96,141&&7,6,208,235,162,4,138,208,24,173 1,6,41,2,240,17,173,2,6,41""4,240,10,169,0,141,1,6,141,2##6,240,50,9}169,9,221,2,6,176,45##56,189,2,6,233,10,157,2,6,254##1,6,169,196,141,7,6,169,5,221##1,6,176,105,169,0,157,1,6,2029}%%48,97,202,169,196,141,7,6,254,2$$6,16,179,240,84,173,0,6,74,144&&78,10,141,0,6,165,204,72,165,205&&72,24,179}3,48,2,105,4,133,204,173&&49,2,105,0,133,205,160,1,177,204++72,136,177,204,105,30,133,204,104,105##0,133,205,162,9}4,160,8,189,2,6##32,222,6,189,1,6,32,222,6,202&&48,8,169,10,32,222,6,202,144,233((104,133,205,104,133,204,238,0,69},76$$98,228,9,16,13,0,6,145,204,13696,13,0,6,145,204,136,96 D:TIMECLOK ((104,133,205,104,133,204,238,0,68Y0 REM %%%%%%%%%%%%%%%%%%%%1 REM % DOWNLODADED FROM %2 REM % M.B.B.S. - THE %3 REM % FREEWARE SYSTEM %4 REM % * * *=} * %5 REM % (206) 632-9476 %6 REM %%%%%%%%%%%%%%%%%%%%10 REM SUPRCOMP-3 UPDATED BY Ron Luks 6-83 PPN 76703,25420 G=}RAPHICS 0:SETCOLOR 1,0,12:SETCOLOR 2,9,0:SETCOLOR 4,9,0:POKE 82,0:POKE 83,3930 POSITION 14,8:? "Э"40 ? :? " This=} FILE COMPARISON program is ":? " an updated version of the pgm"50 ? " SUPRCOMP by Stacy Goff of A.C.E.":? " It will m=}ake a line-by-line "60 ? " comparison of 2 LISTed files, on ":? " the same or different drives, and"70 ? " create a 3=}rd file consisting of":? " any differences. "80 POKE 764,255:? :? " Ԡ٠٠Ϡ "90 IF PEEK(76=}4)=255 THEN 90100 DIM A$(20),FILEOLD$(19),FILETRAN$(19),FILENEW$(19),OLDREC$(128),TRANREC$(128),NWREC$(128),L$(20)110 POKE =}764,255:? "}"120 ? :? "ENTER í ";:INPUT FILEOLD$:IF REN=1 THEN 150130 ? :? "ENTER í to be COMPARED":? "=}against #1 ";:INPUT FILETRAN$:IF REN=1 THEN 150140 ? :? "ENTER í to consist ":? "of the differences -";:INPUT F=}ILENEW$:? 150 ? " Š = ";FILEOLD$160 ? " Š = ";FILETRAN$170 ? " Š = ";FILENEW$180 IF REN=1 THEN REN=0:? =}190 ? :? " ENTER D to only"200 ? " ENTER P to only":? " ENTER B for "210 ? " TO =}CHANGE THE NAME OF FILE ":? " #1,2,or 3 type the approp. #"220 ? " or just for MENUs":POKE 764,255:TRAP 190=}230 INPUT A$:IF A$="P" OR A$="B" THEN OPEN #4,8,0,"P:":PSW=1240 IF A$="B" OR A$="D" THEN SSW=1250 IF A$="1" THEN REN=1:GOT=}O 120260 IF A$="2" THEN REN=1:GOTO 130270 IF A$="3" THEN REN=1:GOTO 140280 IF SSW=1 OR PSW=1 THEN GOTO 310290 IF A$="" TH=}EN GOSUB 860:GOTO 150300 GOTO 150310 CLOSE #1:CLOSE #2:CLOSE #3320 TRAP 600:OPEN #1,4,0,FILEOLD$330 TRAP 610:OPEN #2,4,0,=}FILETRAN$340 TRAP 620:OPEN #3,8,0,FILENEW$350 IF ERRSW=1 THEN GOTO 820:REM END360 REM MAINLINE ROUTINE 370 GOSUB 550=}:REM GO GET OLDREC380 GOSUB 560:REM GO GET TRANREC390 IF OLD=TRAN THEN GOTO 490400 IF OLD>TRAN THEN 460:REM MUST ADD RECOR=}D FROM TRAN410 IF TRAN>OLD THEN 430420 STOP 430 REM ON OLD, NOT ON NEW; WE DELETE440 NWREC$=STR$(OLD):? #3;NWREC$:GOSUB 7=}50:REM WRITE RECORD & PRINT450 GOSUB 570:GOSUB 550:GOTO 390:REM GO CLEAR NWREC, GET ANOTHER OLDREC460 REM ON TRAN, NOT ON O=}LD; WRITEIT470 NWREC$=TRANREC$480 ? #3;NWREC$:GOSUB 750:GOSUB 570:GOTO 380490 REM ON BOTH FILES, CHECK TO MAKE SU=}RE THEY ARE IDENTICAL 500 IF OLDREC$=TRANREC$ THEN GOTO 530510 GOSUB 570:NWREC$=TRANREC$520 ? #3;NWREC$:GOSUB 750:GOSUB=} 570530 GOSUB 550:GOSUB 560:GOTO 390540 REM FILE READ SUBROUTINES 550 TRAP 640:INPUT #1,OLDREC$:A$(1,5)=OLDREC$:GOSUB 72=}0:OLD=NUM:TRAP 4:RETURN 560 TRAP 680:INPUT #2,TRANREC$:A$(1,5)=TRANREC$:GOSUB 720:TRAN=NUM:TRAP 4:RETURN 570 REM CLEAR NWRE=}C580 FOR X=1 TO LEN(NWREC$):NWREC$(X,X)=" ":NEXT X:RETURN 590 REM TRAP ROUTINES FOR OPENS 600 ? "ERROR--CAN'T OPEN ";FIL=}EOLD$:ERRSW=1:GOTO 330610 ? "ERROR--CAN'T OPEN ";FILETRAN$:ERRSW=1:GOTO 340620 ? "ERROR--CAN'T OPEN ";FILENEW$:ERRSW=1:=}IF PEEK(195)<>161 THEN 350630 IF PEEK(195)=161 THEN 820640 REM ERROR ON OLD FILE--CHK EOF 650 IF PEEK(195)<>136 THEN GOTO =}820660 OLD=99999:IF TRAN=99999 THEN GOTO 790670 RETURN 680 REM ERROR ON TRANS FILE--CK EOF 690 IF PEEK(195)<>136 THEN GOT=}O 820700 TRAN=99999:IF OLD=99999 THEN GOTO 790710 RETURN 720 Z=0:FOR X=1 TO 5:IF A$(X,X)=" " THEN GOTO 740730 Z=Z+1:NEXT =}X740 NUM=VAL(A$(1,Z)):RETURN 750 REM PRINT AND DISPLAY OUTPUT 760 IF PSW=1 THEN ? #4;NWREC$770 IF SSW=1 THEN ? #6;NWREC$=}780 RETURN 790 REM ALL DONE, CLOSE FILES 800 CLOSE #1:CLOSE #2:CLOSE #3:? :? :? " END OF FILE "810 L$="D1:*=}.*":L$(2,2)=FILENEW$(2,2):GOSUB 880:END 820 REM UNDETERMINED ERROR 830 ? :? :? " JOB ABORTED WITH ERROR ";STR$(PEEK(195))=}840 IF PEEK(195)=161 THEN ? " MUST POKE 1801,4 THEN RE-WRITE DOS":? " AND RE-BOOT"850 END 860 ? :? "ENTER D1(or D2,D3,D4) =}for":? "the appropriate menu":TRAP 860870 CLOSE #1:CLOSE #2:CLOSE #3:CLOSE #4:INPUT L$:L$(3)=":*.*"880 TRAP 920:CLOSE #5:OP=}EN #5,6,0,L$:? :? :? ,L$:TRAP 910890 INPUT #5;L$:IF L$(5,16)="FREE SECTORS" THEN ? :? ,L$:GOTO 920900 ? L$;,:GOTO 890910 P=}RINT 920 TRAP 930:CLOSE #5930 TRAP 40000:RETURN F L$(5,16)="FREE SECTORS" THEN ? :? ,L$:GOTO 920900 ? L$;,:GOTO 890910 P<3|GpABADDC@ @Q@A7A  A} @E;@,;@,'6-@36-EAR@7 (}-@@3(INPUT DISK NA}UMBER 7=73, DISK # :3=3:;@ ,;A,'6-@36-@h:A}6. F&@@D:*.*F@@S:  AAR@(#@-A}#(@2G7@<@,4FREE%-=( G A<G6-%@!@@#(}/6A}-;6-@G6-A56-%@!@)6-@ 56-d1(67B:,%@,.7@<@A},16-B:,x @@ ( ( (3 7<,-6-&@h6-%@h-6-%@h. @i$3 A} 732699 THEN 3000030020 TRAP 30020:? "}Enter '1' for regular lines":? "OR '-1' E}for DATA lines.":INPUT A:IF ABS(A)<>1 THEN 3002030030 E=0:IF A=1 THEN GOTO 3031030040 X=1:C=0:I=ABS(I):? "}DATA MODE:":? :?E} "Enter your items, or none,& hit twice when finished."30050 ? :? L;" Item #";X;:INPUT Z$:? :Y$(LEN(Y$)+1)=Z$:Y$(LEN(E}Y$)+1)=",":X=X+1:C=C+130060 IF Z$<>"" THEN E=0:GOTO 3005030070 IF Z$="" THEN Y$(LEN(Y$))="":X=X-1:C=C-1:E=E+1:IF E=2 THEN 3E}009030080 IF E=1 THEN 3005030090 IF Y$="" THEN 3012030100 T=T+C:Y$(LEN(Y$))=""30110 E=0:? "}":? :? L;"DATA";Y$:? :? :? "CE}ONT":POSITION 0,0:POKE 842,13:STOP 30120 GOSUB 30300:LIST L:? :? "Proposed next line is ";L+I:? :LIST L+I:? :? "=contiE}nue":? 30130 ? "Any other key = MENU":CLOSE #1:OPEN #1,4,0,"K:":GET #1,K:CLOSE #1:IF K=ASC(CHR$(155)) THEN 3029030140 GOSUBE} 30300:LIST L:? :IF A=-1 THEN ? L;:? " item count=";C:? "Items in current block=";T:? :? 30150 ? :? "Current line";:? " E} =";L:? "Proposed next line =";L+I:LIST L+I:? :? "1=next line":? "2=edit"30160 ? "3=change increment":? "4=shift modes":? "E}5=restart(no lines lost) ":? "6=Delete a line range."30170 ? :? ":";:IF A=1 THEN ? "Regular lines.":? :? "Free RAM=";FREE}(0)30180 IF A=-1 THEN ? "DATA lines":? :? "Free RAM=";FRE(0)30190 IF FRE(0)<400 THEN ? " ":? "LIST or SAVE yoE}ur porgram lines":? "to tape or disk.":END 30200 CLOSE #1:OPEN #1,4,0,"K:":GET #1,K:IF KASC("6") THEN 302003E}0210 IF K=ASC("2") THEN ? "}:When done, hit over CONT.":LIST L:? 30220 IF K=ASC("2") THEN ? :? L;" ";:IF A=-1 THEE}N ? "DATA";" ";30230 IF K=ASC("2") THEN ? Y$:? :? :? "CONT":POSITION 0,0:STOP 30240 IF K=ASC("2") THEN ? "}":Y$="":LIST L:?E} :GOTO 3015030250 IF K=ASC("3") THEN ? "}Enter the new line increment.";:INPUT I:? "}":? :LIST L:Y$="":? :GOTO 3015030260 IE}F K=ASC("4") THEN ? "}":? :? :LIST L:Y$="":X=1:A=-A:GOTO 3015030270 IF K=ASC("5") THEN GOTO 3000030280 IF K=ASC("6") THEN GE}OTO 3039030290 Y$="":? "}":X=1:L=L+I:I=ABS(I):GOTO 3003030300 POKE 842,12:? "}":RETURN 30310 ? "} ":? "Type in E}the line or just press":? " to skip to the MENU.":? :? L;" ";30320 CLOSE #1:OPEN #1,4,0,"K:":GET #1,K:Y$(LEN(Y$)+1)=CHE}R$(K)30330 IF K=ASC(CHR$(155)) THEN GOTO 3035030340 PRINT CHR$(K);:GOTO 3032030350 IF Y$=CHR$(155) THEN ? "}No new entry oE}n line ";L:I=ABS(I):GOTO 3015030360 IF K=ASC(CHR$(155)) THEN GOTO 3037030370 ? :? :? "CONT":POSITION 0,2:POKE 842,13:STOP E}30380 GOSUB 30300:I=ABS(I):LIST L,L+I:? :? :GOTO 3012030390 ? "}ŠŠ:CAUTION":? "ANY line range may be speciE}fied, even this program, if you wish."30400 TRAP 30400:? :? " LOWEST line to delete";:INPUT Q:? "HIGHEST line to delete";:INE}PUT U:IF Q>U THEN 3040030410 ? :? "Enter the line increment.":? "(If unsure, use '1' for this value)":INPUT S:IF Q>32700 THEE}N 3040030420 ? "}Lowest line =";Q:? "Highest line =";U:? "ARE YOU SURE?":? :? "Press 'Y' to continue,":POKE 702,6430430 ? E}"or any other key to abort.":CLOSE #1:OPEN #1,4,0,"K:":GET #1,K:IF K<>ASC("Y") THEN ? "}":GOTO 3015030440 ? :? "If you want E}to watch the process,":? "press '1'. If you would like speed,"30450 ? "any other key will blank the screen":? "during the dE}elete to initiate":? "'direct memory access.'"30460 CLOSE #1:OPEN #1,4,0,"K:":GET #1,K:? "}":IF K<>ASC("1") THEN POKE 559,0:E}CLOSE #130470 POSITION 2,11:? "POKE 842,12:POKE 559,34:CONT":POSITION 2,4:? "POSITION 2,6:? Q:POSITION 2,4"30480 POSITION 2E},7:? "Q=Q+S:IF Q<=U THEN POSITION 2,1":POSITION 2,0:POKE 842,13:STOP 30490 ? "}":TRAP 30000:POKE 559,34:GOTO 3015032000 REME} Type Your Program Once -- "TYPO"32100 CLR :POKE 752,1:DIM Q$(20):QF=7:CLOSE #QF:? "File for output ";32110 INPUT Q$:OPEN #E}QF,12,0,Q$:QREM=0:POKE 752,132130 QCNT=1:FOR QADDR=PEEK(130)+256*PEEK(131) TO PEEK(132)+256*PEEK(133)-132140 QSUM=QSUM+PEEKE}(QADDR)*QCNT:QCNT=QCNT+1:NEXT QADDR32150 ? #QF;"Variable checksum = ";QSUM:? #QF32160 QADDR=PEEK(136)+256*PEEK(137):? #QF;"E} Line num range Code Length"32170 QLINE=PEEK(QADDR)+256*PEEK(QADDR+1)32180 IF QLINE>=32000 THEN END 32190 QLEN=0:QSUE}M=QLEN:QCNT=QLEN:? #QF;" ";QLINE,"- ";32200 IF NOT (QCNT<12 AND QLEN<500 AND QLINE<32000) THEN 3227032220 QLEN=QLEN+PEEK(E}QADDR+2):QCNT=QCNT+132230 IF PEEK(QADDR+4)=0 AND QREM THEN QADDR=QADDR+PEEK(QADDR+2):GOTO 3226032240 FOR QADDR=QADDR TO QADE}DR+PEEK(QADDR+2)-132250 QSUM=QSUM+PEEK(QADDR):NEXT QADDR32260 Q$=STR$(QLINE):QLINE=PEEK(QADDR)+256*PEEK(QADDR+1):GOTO 32200E}32270 QSUM=QSUM-676*INT(QSUM/676):QCNT=INT(QSUM/26)32280 ? #QF;Q$,CHR$(65+QCNT);CHR$(65+QSUM-26*QCNT);" ";QLEN32290 GOTE}O 32180SUM=QSUM-676*INT(QSUM/676):QCNT=INT(QSUM/26)32280 ? #QF;Q$,CHR$(65+QCNT);CHR$(65+QSUM-26*QCNT);" ";QLEN32290 GOTDCSDUNIBUFDBUFHDBUFLSECTODSECHDSECLOBJMAPSAVTYSECTYPRTTYDCOMNCCGERDHANDSTATERROERRCNCCMDCCPUI}HEXBPOSIISECCNOUTRFUNWFUNDFUNCFUNVFUNI} I} !"#$ ApKCALL DISI}K HANDELERL@V06-P:C:,'AV,0C:,&AV$`*6-P:'AV,*&AV$j6-?:I}C:,,t$POST ROUTINE!!!* A!A07- @ Invalid sector number 7 A`@:I}7,,"AUAp-- @ Sector  Intersects  6-6-@:7,, 6- A`67<,.>:I},"A)AP    6-F:, "@A6,  Disk error  reading sector 6 A`I}!@cAP( 6-P:@:7A&,,'@,2"AP<5+ @ Bad file # in sector 5 A`I}F6-$PD67@,.>:,,67A',.XD67@,.7@,Z 6-@6-%@ $wPRI}INT TYPEx("A(( @ VTOC sector'"A)' @ Free Space&"A0& @ DirectoryI})"A1) @ Boot Sectors!@c$^6-$@%@^ @File 7%@<%@I},.7%@<%@,$"R" COMMAND' A@ Sector' B  ( 6-F:,@I}% Error ($ 6.D$g"W" COMMANDh  r% 6-F:,@% Error |$/DISPLAY BUFFERI}0 >:A%,:-@@@2D @CHAR NE-%@16.7<,'6-@:,= @2)!I}A"E6. X @ b% @% @HEX1 lI-%@126-P:@:7,,'@,%@EI} @7<,I v% @% @HEX2 Y-%@16-@:7,,B6-&@$P:'@,%@I}U @7<,Y  @ @ H6-@:7A&,,H6-AV$+&@$P:'@,,%@:7AI}',,11 @Sector  Next sector is $"C" COMMAND# AF# Displacement 0-12M ChaI}r or Hex formatMB:, @)7@<@,4CAG   New hex data I 6-B:,6-P:'@,I%I}!A()@$) @AF!!-@&@@ A 6- AG!6-$@/6-%@9 AGI}A6-%*26-%+%@,'@+67<,.>:,/ 2$\16-@:7,,&@H#!@ 16-&@f$p EI}nter charactersz, 6-B:,,%!A() @AF67%@<%,.$VERIFY FUNCTIOND67@I},.>:AU,,67A,.XD67@,.7@, >:A%,6-6-A(6-A`  I} 6.6-A) -@6-@:7%@,,-@ 6-%=!AUI}6-&AV-6-$@%9!=    6-A0( 2-AaAh< F&&67+&I}Aa,$A(%@,.P Z6-A1d n-@@x  -@c%6-I}$@%@%6-@:7,,!! @d)!A'AS //6-@:7%@,,%AV$@:7%@,,6-I} 6-%@H6-@:7A&,,H6-AV$+&@$P:'@,,%@:7A',,!*(AS J}77"@:7%@,,%AV$@:7%@,,AS++ @ Incorrect sector count  (( @J} serious errors found6-A` 6-")) @Sectors unaccounted for:'6-@,J}-@A6@:7,, AUAU;J6-%@!@ + @> @ J6-@@# J}@ #6-%@J26-P:'@,$6-&@$26-%@T/6-AV-+6-'@/ J}^67<,.>:@:7,,%,hc6-@:7@,,%@)"AV56-c67@<@,.>:@:7@,,%@,J}r67@<@,.>:,|  @'"' @ -none- @!!")J}!AUP*& Key Y to recover lost sectors*B:, @AUP 4Y $XRR;A(J},;@,;@,;@,;A$,;A ,;@,]E67@,. %67A(,. E67@,.7@J}<A',b6.0123456789ABCDEFl6-@v7" AV67,.>:,-6-%@7 Ap0?6-AiJ }6-Ap'6-Aq36-Ar?6-As?6-Ax6-Ay'6-@36-@?6-A 6-AJ }6-A6-A6-A@6-AB6-AD6-AF6-AP Listing fileJ }spec @@  Command* 4R 4 4W > 4D H 4C RJ } 4V p 4E@z Ar&104,32,83,228,96,999D:DOCTOR> 4D H 4C RH\26900 REM Ҡͬ٠Π ٠ĠΠά Ơӻٛ26910 REM N}ΠҠŠŠƠ ɠҠӛ26930 REM ͠ԠŠENTERED Š͠N}Šŭ ĠӠΠ٬26940 REM Π٠GOTO 27000Ġ ̠͠ŠҮ27000 AN}=FRE(X)/13:DIM LN1(A),LN2(A)27020 V1=1:V10=10:V16=16:V100=100:V256=256:V2=2:V3=3:V4=4:OIF=7:V7=OIF27040 BEG=PEEK(137)*V256+N}PEEK(136)27050 PRINT "ENTER STARTING LINE NUMBER";27060 INPUT START27070 PRINT "ENTER INCREMENT";:INPUT INC27080 ADD=BEGN}27090 LEN=PEEK(ADD+V2)27100 LNUM=PEEK(ADD)+PEEK(ADD+V1)*V25627110 IF LNUM>25000 THEN 2725027120 CNUM=START+COUNT*INC27130N} LN1(COUNT)=LNUM27140 LN2(COUNT)=CNUM27150 COUNT=COUNT+V127160 POKE ADD+V1,INT(CNUM/V256)27170 POKE ADD,CNUM-INT(CNUM/V25N}6)*V25627180 ADD=ADD+LEN27190 GOTO 2709027250 LOC=BEG27260 MLT=0:IF PEEK(LOC+V2)>PEEK(LOC+V3) THEN MLT=V127262 LINE=PEEKN}(LOC)+PEEK(LOC+1)*256:IF LINE>25000 THEN ? :? "":STOP 27270 OPC=PEEK(LOC+V4)27280 IF OPC=OIF THEN 2740027290 PONT=LOC+N}V4:GOSUB 2790027300 IF MLT=0 THEN LOC=LOC+PEEK(LOC+V2):GOTO 2726027310 MT=LOC+PEEK(LOC+V3)27320 OPC=PEEK(MT+V1)27330 IF ON}PC=OIF THEN 2760027340 PONT=MT+V1:GOSUB 2790027350 MT=LOC+PEEK(MT):IF MT20 THEN 274302742N}5 IF PEEK(A-V1)=27 AND PEEK(A-V7)<>14 THEN 2743027427 CHNPT=A-V7:GOSUB 31260:GOTO 2730027430 GOTO 2730027600 A=LOC+PEEK(MTN})-V127611 IF PEEK(A)<>20 AND PEEK(A)<>22 THEN 2762027612 IF PEEK(A-V1)=27 AND PEEK(A-V7)<>14 THEN 2762027613 CHNPT=A-6:GOSN}UB 31260:GOTO 2735027620 MT=LOC+PEEK(MT):GOTO 2734027850 ? "MULT IF SCREWED UP":STOP 27900 OPC=PEEK(PONT)27905 IF OPC=10 N}OR OPC=12 OR OPC=13 OR OPC=35 THEN 2798027910 IF OPC<>30 THEN RETURN 27915 PONT=PONT+V127925 OPC=PEEK(PONT):IF OPC=23 OR ON}PC=24 THEN PONT=PONT+V1:GOTO 2795027930 IF OPC=14 THEN PONT=PONT+7:GOTO 2792527935 IF OPC=15 THEN PONT=PONT+PEEK(PONT+V1)+VN}1:GOTO 2792527940 PONT=PONT+V1:GOTO 2792527950 OPC=PEEK(PONT):IF OPC=14 THEN 2796027952 GOSUB 3130027954 OPC=PEEK(PONT):IN}F OPC=20 OR OPC=22 THEN RETURN 27955 IF OPC=18 THEN PONT=PONT+V1:GOTO 2795027956 IF OPC=14 THEN PONT=PONT+7:GOTO 279542795N }7 IF OPC=15 THEN PONT=PONT+PEEK(PONT+V1)+V1:GOTO 2795427958 PONT=PONT+V1:GOTO 2795427960 A=PEEK(PONT+7):IF A=20 OR A=22 THEN!}N CHNPT=PONT+V1:GOTO 3126027965 IF A=18 THEN CHNPT=PONT+V1:GOSUB 31260:PONT=PONT+8:GOTO 2795027970 GOTO 2795227980 IF PEEKN"}(PONT+V1)<>14 THEN GOTO 3130027982 IF PEEK(PONT+8)<>20 AND PEEK(PONT+8)<>22 THEN 3130027985 CHNPT=PONT+V2:GOTO 3126028000 N#}NUMBER=0:X=PEEK(SADD)28200 M=0.128300 FOR Y=0 TO (X-64)*228400 M=M*V1028500 NEXT Y28600 FOR X=SADD+V1 TO SADD+528700 N=N$}PEEK(X):P=N28800 N=INT(N/V16)28900 N=N*V10+(P-N*V16)29000 NUMBER=NUMBER+N*M29100 M=M/V10029200 NEXT X29300 RETURN 3000N%}0 FOR Y=1 TO 530600 Z=V130700 IF NUMBER1>99 THEN Z=V10030800 IF NUMBER1>10000 THEN Z=1000030850 IF Y=V1 THEN POKE ADDR,64N&}+CLOG(Z)/2:IF Z=0 THEN POKE ADDR,6430900 DIG=INT(NUMBER1/Z)31000 NUMBER1=NUMBER1-DIG*Z31050 IF DIG<0.1 THEN DIG=031060 DIN'}G1=INT(DIG/V10)31080 POKE ADDR+Y,DIG1*V16+(DIG-DIG1*V10)31100 NEXT Y31200 RETURN 31250 REM 31260 SADD=CHNPT:ADDR=CHNPT:GN(}OSUB 2800031270 FOR A=0 TO COUNT:IF LN1(A)<>NUMBER THEN NEXT A:GOTO 3128531280 NUMBER1=LN2(A):GOSUB 30000:RETURN 31285 ? "N)}ҡ NO LINE ";NUMBER;" IN LINE ";LINE:RETURN 31300 ? " GOTO VARIABLE IN ";LINE:RETURN 31310 END ETURN 31285 ? "Lm#$!QQQQQ1Q1Q1Q3Q30AADTEM R+} %+0@0%0o6-6-@'6-@36-@ R,}?6-@K6-@W6-@c6-@0o6-A 8;,;,(8(!دàҠӠv(,(R-}!ENTER D FOR DEC TO HEX CONVERSIONR(!ENTER H FOR HEX TO DEC CONVERSIONr(ENTER M FOR RETURN TO MENUv# 4M%DR.}:MENU( B:," 2 4H < 0D Z @dc(-("ENTER A DECIMAL NUMBER FROM 0 THRU=( 9999999999.R/}G(úKc )EA 6-< 6-6-P:',6-&$$ 267<,.=:,< A67<,.>:&R0}%@:A,, 6-& A@(غ 7<,( ,Z  (-(ENTER A HEX NUMBER FROM 0 THRU;( FFFFFFFF.E(R1}غIO6-Z-B:,Y6.7<,20 ^'7<,/96-$%A:,' Apc 2A e 3F hR2}6-$%@:,&@:A,%r (ú (  D:HEXCONV6-$%A:,' Apc 2A e 3F hPG ()Yf"|"AB;B,;@ , +@@V4}90@X( MSG MESSAGE EDITOR [(^(h AP(1] CREATE A MESSAGE FILEw(2] LOAD A MEV5}SSAGE FILE;(3] DIRECTORY OF DISK # 1K( 4] SEE DEMO_(5] QUIT PROGRAMb(e(wAdAUL-@@)(V6}ENTER SELECTION86-F:Ad,LAU@|-@AP --@@A(Enter SelectionU-@V7}APY h6-F:Ad,|"AU@)AdAU)"@1A"@&A "@$V8}A0"@0@ 5"@)+(( GOODBYE!!!2 A@5 AdAU @ 6 +V9}3(!PRESS TO RETURN TO MENU !!!6( n)(!NAME OF INPUT FILE (eg. DATA.MSG)-<67A,.T67@,.7AV<}88P?@     YLW8  Y0  U8 V8 g!8" 8`3v83}@@)@(>:, F:B2y,@@ \@02R2@V?}\ @2@(0@@2 A@ F:B2y,@@1# V@}@d_ +_(LWhen you are done drawing the message press CTRL3 to save to disk. To draw,ett(lmove cursor as VA}you would during writing a BASIC program. You can use CTRL with arrows, delete, insertfhe(]etc. Use CAPS and VB} video and the keyboard control characters (ie    )h(i*("NAME OF OUTPUT FILE (eg. DATA.MSG).=67AVC},.U67@,.7A,o67@<@,.D:y+6. A kl#@@K:/6-VD}66.H@R+l0@n>)@6-%@,67<,.>:,4(>:,> AVE}xM @@-(@8@C@M @J +'0@JVF}@@D:*.*:@)7@<@,0 ,(0(: A '(]  [' A VG}3@(3(PRESS START TO RETURN TO MENU F:B2y,@A 0 @ r6-+?VH}(!PRESS TO RETURN TO MENU !!!B(](PRESS ANY KEY TO BEGINoAdAUr# F:Ad,"AUA0 9VI}@+90@ ""6@A0@ 6-%@%0@R2VJ}F:@,$@ @@2@F:@,$@@@(>:, F:B2y,@A0  QVK}%2G2@Q @ '0@@' A@ F:VL}B2y,@A0A @%2@`@@G2@@a@@i2@@rVM}@@2@@@@-@A %2@h@@G2@@iVN}@@i2@@@@2@A@@-@A %2VO}@`@@G2@@a@@i2@@r@@2@@@@VP}-@A %2G2@i2@VQ}2@$SM(EAll Message Maker data files have the extension .MSG (eg. ANIMAL.MSG)P(S$VR}'kk32,32,32,32,32,32,32,32,32,32,125,125,160,160,160,160,160,160,160,160,160,160,160,160,160,160,160,160'gg160,160,160,VS}160,160,160,160,160,160,160,160,160,160,160,160,160,160,160,160,160,160,160,160,29,28$'gg160,30,30,160,29,30,30,160,29,30,3VT}0,160,29,30,30,160,29,30,30,160,29,30,30,160,29,30,30,160,29,30.'ii30,160,29,30,30,160,29,30,30,160,29,30,30,160,29,30,30,1VU}60,29,30,30,160,29,30,30,160,28,28,28,28,288'hh28,28,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,3VV}0,30,28,28,28,28,28,28B'gg160,29,160,29,160,29,160,29,160,29,160,29,160,29,160,29,160,29,160,29,160,29,160,29,160,29,160,29VW}L'hh160,28,28,28,28,28,28,28,28,28,28,28,28,30,30,30,30,30,194,207,217,172,160,212,200,197,160,204,197V'jj198,212,160,211VX},201,196,197,29,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,160,160,211,213`'gg210,197,160,215,193,211,160,197,19VY}3,211,201,197,210,160,29,30,30,30,30,30,30,30,30,30,30,30,30,30j'hh30,30,30,30,30,160,160,160,160,212,207,160,196,210,193,2VZ}15,160,161,161,161,160,160,160,29,29,29,30t'ii30,30,30,29,29,29,29,29,29,30,29,160,29,30,30,160,29,30,30,160,29,30,30,160,2V[}8,28,28,30,30,30,30,30~'gg30,29,160,29,160,29,160,29,160,160,31,31,28,28,28,28,28,28,28,28,28,30,31,30,31,30,31,30,31,30,31V\}'kk30,31,30,31,30,31,30,31,30,31,30,31,30,31,30,31,30,31,30,31,30,31,30,135,135,135,30,30,30,160,160,160'hh30,30,30,32,V]}32,32,28,28,28,30,31,30,31,30,30,30,30,31,30,31,30,30,30,30,30,30,30,30,30,30,28,30,30'hh30,28,28,28,29,29,29,28,28,28,29,V^}29,29,28,28,28,31,31,32,29,30,32,29,30,32,32,28,30,32,28,30,32,32'hh29,30,32,29,30,32,32,28,30,32,30,28,32,32,29,30,32,29,V_}30,32,32,28,30,32,28,30,32,28,30,31,29,32,29'hh30,32,29,30,32,32,28,30,32,28,30,32,32,29,30,32,29,30,32,32,28,30,32,28,30,V`}32,32,29,30,32,29,30,32'hh28,32,29,30,32,28,28,30,32,32,29,30,32,29,30,32,32,28,30,32,28,30,32,32,29,30,32,29,30,32,29,31,Va}30'hh28,32,28,30,32,28,30,32,32,29,30,32,29,30,32,32,28,30,32,28,30,32,29,30,30,30,30,30,30,30,30,30,30'hh30,30,30,30,3Vb}0,30,30,30,30,30,30,30,30,30,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31'hh31,31,31,31,31,31,31,31,31,31,30,3Vc}0,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30'gg30,30,30,30,30,31,29,29,31,31,160,28,30,160,28,30,160,1Vd}60,160,29,29,160,28,30,160,28,30,160,28,28'hh30,30,30,160,160,29,160,30,30,30,30,160,31,31,31,31,28,160,160,160,160,29,30,Ve}30,30,31,31,31,28,160'ii29,30,30,30,160,29,30,160,29,30,160,29,30,160,31,31,31,160,28,30,160,28,30,160,28,30,160,28,160,16Vf}0(hh29,160,29,30,160,29,30,160,29,30,160,28,28,30,30,30,160,160,31,31,29,29,160,28,30,160,28,30,160,28 (jj30,160,28,30,1Vg}60,160,160,29,160,29,30,30,30,160,160,29,160,29,30,160,31,30,30,30,31,31,31,254,28,254(hh28,254,28,254,28,254,30,30,30,30,Vh}30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,31,31,30(hh254,29,254,29,254,29,254,29,254,31,31,31,31,31,31,31,3Vi}1,31,31,31,31,31,31,31,31,31,31,31,31,31,255((gg255,28,255,255,28,255,255,28,255,255,28,255,255,29,29,29,29,160,160,160,28,Vj}30,30,160,28,30,160,282(ii30,160,28,30,30,160,160,160,29,29,29,29,30,30,30,30,30,30,30,30,30,30,30,30,29,29,29,30,30,30,30,Vk}30<(gg30,30,30,30,30,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,30,30,30,170,30,30,170,31F(ii31,31,30,30,30Vl},30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,31,31,31,31,170,170,31,31,193,206P(jj201,205,193,204,29,29,30,30,30,30,Vm}30,30,30,30,30,30,28,170,170,160,160,126,126,31,31,193,206,201,205Z(ii193,204,31,31,170,170,28,30,31,126,126,126,126,126,12Vn}6,126,126,126,126,126,126,126,126,126,31,31,31d(hh160,28,160,160,160,160,160,160,160,160,29,160,29,29,30,160,29,30,30,30,30Vo},30,30,30,30,30,30,28,160n(ii29,160,160,160,160,160,160,160,160,29,29,30,30,30,30,30,30,30,30,30,160,160,160,160,160,160,16Vp}0,160x(ii160,29,30,30,30,30,30,30,30,30,160,160,160,160,160,160,160,160,28,160,29,30,30,30,30,30,30,30,29,29(gg160,160,1Vq}60,160,29,30,30,30,160,160,28,28,160,30,30,30,30,160,31,30,31,30,31,30,31,30,31,30,31,30(hh31,30,31,30,31,30,31,30,31,30,3Vr}1,30,31,30,31,30,31,31,30,31,30,30,31,30,31,30,31,30,31,30,31,30,31(hh30,31,30,31,30,31,30,31,30,31,30,31,30,31,30,31,30,3Vs}1,30,31,30,31,30,31,30,31,30,31,30,31,30,31,30(hh31,30,31,30,31,30,31,30,31,30,31,30,31,30,31,30,31,30,31,30,31,30,31,30,3Vt}1,30,31,30,31,30,31,30,31(ii30,31,29,29,30,160,30,32,32,28,28,28,28,30,30,32,32,31,31,32,30,30,30,30,30,30,30,30,32,29,31,Vu}32,31(hh31,32,29,29,30,30,30,30,32,31,31,32,31,31,31,31,31,31,31,31,31,30,30,30,30,30,30,30,30,30,30,30,30(gg32,32,28,3Vv}2,30,30,30,30,32,28,32,32,29,28,28,30,30,32,32,30,30,160,160,30,30,30,30,29,32,30,28,32(hh32,31,31,32,32,29,30,32,32,28,32Vw},30,30,30,30,30,30,30,30,30,30,32,29,32,31,31,160,160,29,30,30,160(ii160,29,30,30,160,160,29,30,30,160,160,28,28,28,28,28,Vx}30,30,160,160,29,29,29,29,29,29,29,31,31,31,31(nn31,28,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,29,30,30,30,30,30,3Vy}0,30,30,27,28,126,155,28,155,-1D:MSGMAKER.SAV041 FREE SECTORS2NO MISTAKE WHER0,30,30,30,30,30,30,29,30,30,30,30,30,3TV Ne w MAABR@ADDAUTOMATE JOE J. WROBLE ^{} JAN 83 COMPUTE2'6-6-'6-A<;,;,;@,FC#@@^|}E:C@@K:P((( This program helps you to createZ((( a personalized AUTORUN.SYS filed(^}}(( which, following the disk bootn((( process, automatically issuesx((( a set of commands that ..( ^~} specify.6-%@'('(Please enter command #.(@@Af@(.( Command #^}:@Af<(#(Is that correct (Y/N)? 0)@3(<6.>:,4Y)4yA 4N)4^}nAP Ap6-%B:,%@&A`/(/( Command # is  character(s))(^} too long.6-&@) ApE67%@,.6-B:,767%@,.>:AU,E6-%@ ( (Current com^}mand list:.Af@((.Af"8&@+(Command list if full..(8 Ap,22(Comma^}nd list can hold &&@ more6( character(s).@6( (More comands (Y/N)? -)@66.>:,J4Y)^}4yA@T4N)4nA`^ Ah(>:A%,r''(Mount diskette which is to bear|##( the AUTOR^}UN.SYS file, then<( press RETURN. &)@1@<@/(>:A%,/(Writing AUTORUN.SYS file.^}..@@ D:AUTORUN.SYS>>PUT OUT THE HEADER AND THE CORE MACHINE LANGUAGE PROGRAM255,255,0,6,^}59,6,,173,31,208,41,4,240,10,169,18,141,33,3++169,6,141,34,3,96,251,243,51,246,33,6//163,246,51,246,60,246,76,228^},243,0,238,33**6,172,33,6,192,0,208,10,169,0,141,33**3,169,228,141,34,3,185,59,6,160,1,96-@@f"^}!"@)"@H!6-%*@ ADD THE COMMAND LIST-@6-@:7<,,&*@^} 0''APPEND INITIALIZE AND RUN VECTORS:&&226,2,227,2,0,6,224,2,225,2,17,6D-@@"N*@^} X@(>:A%, D:AUTOMATE2,227,2,0,6,224,2,225,2,17,6D-@@"N*@\831000 TRAP 3104631002 REM 31004 REM BASIC TRACE UTILITY31006 REM ALAN FILIPSKI 198231008 REM 31010 REM FIND START OF STMb}NT TABLE31012 DBGST=PEEK(136)+256*PEEK(137)31014 REM SET ERR IN EACH STMNT31016 GOSUB 3115231018 ? " ":? "BASIC TRACE UTIb}LITY":? " "31020 ? "ENTER LINE NUMBER AT WHICH"31022 ? "EXECUTION IS TO START"31024 ? "(FIRST LINE IN PROG IS ";PEEK(DBGSTb})+256*PEEK(DBGST+1);")"31026 INPUT DBGSTART31028 REM CLR ARRAYS IF STARTING AT FIRST STATEMENT31030 IF DBGSTART<>PEEK(DBGSb}T)+256*PEEK(DBGST+1) THEN 3103831032 CLR :DBGST=PEEK(136)+256*PEEK(137)31034 REM RESTORE DBGSTART31036 DBGSTART=PEEK(DBGSTb})+256*PEEK(DBGST+1)31038 ? "HOW MANY LINES TO TRACE ":INPUT DBGTC31040 IF DBGTC<=0 THEN 3106431042 GOTO DBGSTART31044 REMb} TRAP HERE AT EACH ERROR ENCOUNTERED31046 DBGST=PEEK(136)+256*PEEK(137)31048 IF PEEK(195)=17 THEN 3105431050 REM UNEXPECTEb}D ERROR TYPE31052 ? "ERR TYPE ";PEEK(195);" AT LINE ";PEEK(186)+256*PEEK(187):GOTO 3106431054 IF DBGTC>0 THEN 3107231056 ?b} "HOW MANY MORE ";31058 INPUT DBGTC31060 IF DBGTC>0 THEN 3107231062 REM TIME TO QUIT. REMOVE ERRS31064 GOSUB 3121231066 b}? "TRACE ABORTED"31068 STOP 31070 REM REINTRODUCE ERR INTO CLEARED "FOR" OR "GOSUB"31072 IF DBGSAV1=0 THEN 3108631074 DBGb}SAV1=DBGSAV1+DBGST:IF PEEK(DBGSAV1+4)=55 THEN 3108631076 DBGEOL=DBGSAV1+PEEK(DBGSAV1+2)-131078 DBGCOM=DBGSAV1+431080 POKE b}DBGEOL,PEEK(DBGEOL)+PEEK(DBGCOM)31082 POKE DBGCOM,5531084 REM REINTRODUCE ERR INTO LAST STATEMENT EXECUTED31086 DBGSAV2=DBb}GSAV2+DBGST:IF PEEK(DBGSAV2+4)=55 THEN 3109831088 DBGEOL=DBGSAV2+PEEK(DBGSAV2+2)-131090 DBGCOM=DBGSAV2+431092 POKE DBGEOL,b}PEEK(DBGEOL)+PEEK(DBGCOM)31094 POKE DBGCOM,5531096 REM CLEAR ERR FROM "FOR" OR "GOSUB" ON TOP OF RUNSTK31098 DBGSAV1=0311b}00 IF PEEK(142)=PEEK(144) AND PEEK(143)=PEEK(145) THEN 3111431102 DBGTOP=PEEK(144)+256*PEEK(145)31104 DBGLN1=PEEK(DBGTOP-3)b}31106 DBGLN2=PEEK(DBGTOP-2)31108 GOSUB 3117631110 DBGSAV1=DBGPTR-DBGST31112 REM FIND STATEMENT WHICH TRIGGERED TRAP AND Cb}LEAR ERR31114 DBGLN1=PEEK(186)31116 DBGLN2=PEEK(187)31118 GOSUB 3117631120 DBGSAV2=DBGPTR-DBGST31122 REM * * * * * * * *b} * * * * * * * * * * * * * * * * * * * * * * * * *31124 REM INSERT USER PRINT STATEMENTS HERE31126 REM * * * * * * * * * * b}* * * * * * * * * * * * * * * * * * * * * * *31128 REM LIST TRAPPED STMNT31130 LIST PEEK(DBGPTR)+256*PEEK(DBGPTR+1)31132 Tb}RAP 40000:TRAP 3104631134 DBGTC=DBGTC-131136 REM IF STMNT IS END OR STOP, CLEAR ALL STATEMENTS31138 IF PEEK(DBGPTR+4)=21 Ob}R PEEK(DBGPTR+4)=38 THEN GOSUB 3121231140 REM EXECUTE STATEMENT31142 GOTO PEEK(DBGPTR)+PEEK(DBGPTR+1)*25631144 REM 31146 b}REM SUB TO SET ERRS31148 REM SET COMMAND TOKEN IN ALL USER STATEMENTS (EXCEPT DATA STATEMENTS) TO 55 (=ERROR)31150 REb}M SAVE ORIGINAL USER COMMAND BY ADDING TO END-OF-LINE BYTE31152 DBGPTR=DBGST31154 IF PEEK(DBGPTR+4)=55 OR PEEK(DBGPTR+4)=1 b}THEN 3116431156 DBGEOL=DBGPTR+PEEK(DBGPTR+2)-131158 DBGCOM=DBGPTR+431160 POKE DBGEOL,PEEK(DBGEOL)+PEEK(DBGCOM)31162 POKE b}DBGCOM,5531164 DBGPTR=DBGPTR+PEEK(DBGPTR+2)31166 IF PEEK(DBGPTR)+256*PEEK(DBGPTR+1)<31000 THEN 3115431168 RETURN 31170 REb}M 31172 REM SUBROUTINE TO FIND STMNT AND REMOVE ERR. 2-BYTE LINE NO. EXPECTED IN DBGLN1 AND DBGLN231174 REM PTR TO LINE Ib}S RETURNED IN DBGPTR.31176 DBGPTR=DBGST31178 IF DBGLN1=PEEK(DBGPTR) AND DBGLN2=PEEK(DBGPTR+1) THEN 3118631180 DBGPTR=DBGPTb}R+PEEK(DBGPTR+2)31182 GOTO 3117831184 REM REMOVE ERR31186 IF PEEK(DBGPTR+4)<>55 THEN RETURN 31188 DBGEOL=DBGPTR+PEEK(DBGPb}TR+2)-131190 DBGCOM=DBGPTR+431192 IF PEEK(DBGEOL)>100 THEN 3120031194 POKE DBGCOM,PEEK(DBGEOL)-2231196 POKE DBGEOL,22311b}98 RETURN 31200 POKE DBGCOM,PEEK(DBGEOL)-15531202 POKE DBGEOL,15531204 RETURN 31206 REM 31208 REM SUBROUTINE TO CLEAR ALb}L ERRORS31210 REM 31212 DBGSAVE=DBGPTR:DBGPTR=DBGST31214 IF PEEK(DBGPTR+4)<>55 THEN 3122831216 DBGEOL=DBGPTR+PEEK(DBGPTR+b}2)-1:DBGCOM=DBGPTR+431218 IF PEEK(DBGEOL)>100 THEN 3122631220 REM NON-REM LINE HAS 22 FOR EOL31222 POKE DBGCOM,PEEK(DBGEOLb})-22:POKE DBGEOL,22:GOTO 3122831224 REM REM LINE HAS 155 FOR EOL31226 POKE DBGCOM,PEEK(DBGEOL)-155:POKE DBGEOL,15531228 DBb}GPTR=DBGPTR+PEEK(DBGPTR+2)31230 IF PEEK(DBGPTR)+256*PEEK(DBGPTR+1)<31000 THEN 3121431232 DBGPTR=DBGSAVE31234 RETURN 28 DB`x32600 GRAPHICS 0:? :? "MASS LINE DELETE"32605 TRAP 32605:POKE 84,11:? "START, end";:INPUT S,E32610 IF INT(S)<>ABS(S) OR S>3f}2099 OR INT(E)<>ABS(E) OR E>32099 OR E 'MOONBSE' /B:, @K67B:,%@,.0000000< @@j}FT6-@#-@ :67@<@ ,.T67@<@,.=:,P)%(CREATING BASIC PROGRAM NAMED )(j}Z?AA "@?@@ d An6-@  Ax-AA j}@(@ DATA c-@@P$)@56-P:'@,G6-&+$@,U6-%@c6-%j}@(@7<,7<, (@ @ @@'(@j}@$@'X++THE PROGRAM TO CREATE THE OBJECT FILEb;A,l A v#))OPEN THE FILE FORj} OUT-PUT OR APPEND;;THIS LINE WILL BE REPLACED BY THE PROPER OPEN COMMAND"-@@P5!6-@:7+$@j},&@,,56-@:7$@,,['6-+&@H,&+!@d,$@K6-+&@H,&+!@d,$@[6-%$@j}*@  A`@00ADDS THE OPEN COMMAND TO THE BASIC PROGRAM(@ 650 OPEN #1j}0*@@D>(@Q*@@De(@x*@@D*@@4(@j}*@@4(@$ D2:CREATOR(@x*@@D*@@4(@h6"@"@wA -"@6-#P:- @pg @P A>(!FILE NUMBE}R (ENTER 0 TO ABORT) =>BK6-A:,U A g )!A"%G6.7$%<$%,&67B:,%,..G6}7B:,%,.7$%@<$%,7<,4 6.7<,, 6.D:-B:,,7<,4 A`67B:,%,.7<,}& "@#4 D:DOS.SYS&."@%"@v"@gA3""@iAP'}"@fAP,="@h6-@3)6.DELETE ,(=(? (Y/N)69"@h A@%@/ @P}9 A@@"@u6-@5J"@6-@6T\"@x6-@2(,(NEW NAME0@67B:,%,.},N67B:,%,.\6.RENAME ^$ A`$ @ph F:A,AgA r] @P;(>:AS,}FILE IS LOCKED; DO YOU WANT TOS(IT ANYWAY? (Y/N)] A@|#@ @P# A@6 A "@3},@66 API@6#,67,.?@5I @p2((>:AS, *}