@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD`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 209 }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$)< }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$ }(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=0 }: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,X}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);:GOTO} 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 }5 6 7 ":GOTO 310305 ? #2;" OBJECT DISSASSEMBLY "310 ? #2320 POKE 764,255330 IF P=0 THEN FOR N=1 TO 20340 IF A>6553}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 600410} 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 }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"} 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 I}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 63}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,5})=")" THEN ? #2;"(";:GOSUB 900:? #2;")":GOTO 630525 GOSUB 900530 IF A$(5,5)=" " THEN 590540 ? #2;",";A$(5,5):GOTO 630590 }? #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 I}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 THE}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 1}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*,0}*,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,2OR}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 }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,1L}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*,0 }*,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 1BV!}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*91"}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*,2#}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* REM 35 REM BY ROBERT W. BAKER40 REM 15 WINP 67=MDAGLMASB("AAA(@AA@$ A A)} @ A @qq******DISPLAY LIST LISTER****** 1 REM ****** 01-20-84 ****** 2 REM ****** *} BY ******%%****** TOM SPEER ******%%*******************************9A ,6-A%+}AR@ @%(}`-@@#4( ԠҮ FAR@JN+`AY,}++"@ )"@)"@A D-A&68,-* DCLEAR ARRAY FOR NEXT DLH%6-F:-}A`,%F:Aa,$AVHSTARTING ADDRESS OF DISPLAY LIST-($6-F:%,$GET DL INSTRUCTIONS<1 68,.}-1PUT DL INSTRUCTIONS INTO ARRAY 'A'F Zr +*( 66-AB6-@N6-/}`AR@rAY@4d-6-%@x#"@1*!@!# A })"@"6-%@0})6-@ -(% 8,8,"@eA rr(}bGR.9 THROUGH 11 USE THE SAME DISPLA1}Y LIST AS GR.8 WITH NO TEXT WINDOW.- (8+16) OR GR.(24).AR@ A  @3-@2}@%6-%@36-%@ -(% 8,  @L6-@6-@--@@"3}L(Ӡ٠٠Ϡ --@A -AU@EF:Ad,AU*AdAU0(}4}BAU@E$--@A -AU@ A D:DLLISTAAA@y@5}A 67=MDAGLMASB("AAA(@AA@$ A A() AXMENREADADBTOOTOSTARFLELASLINLINEAASECTOCIOJKBCFILEBUFBUFLEINDEAUXLINEISTALIN7}E2LINE3AUOUTINLENRESTARTYNNAMECORRABLINEXIOCFIRSBOOLINE4FIRSTLINE5LASTLINE6LINE7CHRLINE8ABASTOMEM8}TOBUGPWRERROFILELEXDRIVSTRTSECSECTCNLLINEFG9}AU :} !"#$%&';}()*+,-./012345@6<}789:;<=>?@ABCDEF=}GHIJK:MINI.UTL""Š""̠Π٠>}""Ġ٠à &&;@,;@ ,;@,5g +A1-@C?}AUAR@g@@6L"( MINI UTILITY 6/9/83L(% VERSION 3.0S M & M SOFTWARE INC.@} 7//('8( ( ((9'B7t@d'@@d<`-@A})( . BASIC >(. WRITE UTL.SYSQ( . COPIER `( . MEMORY=-(. GO TO DOS -(. FORMAT DISK>k#B}@@K:5-@@ J(YOUR SELECTION ?W)@`6.>:,k@F41AQC}43Ap[44AP]46A^42A_45An @bU +B7tD}@d1@@dCA@PUAU@o#@@K:&()(,(N(DO YOU WISH TE}O FORMAT A DISK[)@d6.>:,o@S 4YA@ /A 2(E( ARE YOU READYIS F}A@ @S 4Y(((#( FORMATTINGKAT@D:]A@oA G}AS|F:A, @Sw#@@K:L($WOULD YOU LIKE TO FORMAT A DIFFERENTV(DISKc)@H}l6.>:,w@4YA  @S,A@(}-~#@@K:F(HITI} 'RETURN' TO WRITE MINI.UTL](OR CTRL^X TO ABORTj)@s6.>:,~@04@S6+4>:AU,! J}D:MINI.UTL+ @S@ (} A +A@1A@C-@@R6-I:,`(K} YOU HAVE d(}(BITES OF MEMORY LEFT(( STATUS: 'B7t@d'@@d A (L}LOW'!B( EXCELLENT' A`!BP(FINE*6-P:'A,(*(WHICH = K`( ((( M} HIT 'RETURN' FOR MENUH@@K:U)@`@"@S @S +N}@@GRAPHICS 0:POKE 755,3:POKE 53774,64:POKE 16,64:POKE 710,191A@(-( ARE YOU SURE1O} 4Y.ltAR@5@@K:R(HIT 'RETURN' TO CONTINUE_)@j@t @SP}f1 +B7t@d1@@dpKAAy'A9@@KAR@Q}z( (( COPIERH( (,( FOR CASSETTE TO CASSETTE OR H( CASSETTE TO DISK( PLER}ASE WAIT.. #A ` A 0 A4-AA"  $ 32,68,218,104,201,5,208,74S}!!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,3T}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""20U}8,222,198,204,16,218,160,1 132,212,96  AE  A@%-AAQ"!% $ 32,68,21V}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,15W}7,72,3,32,86,228,132!!212,189,72,3,133,203,189,733,133,204,96';@,$G%6-F:AD,%AV$F:AX}E,G6-F:AA,%AV$F:AB,)6-%A6-&-16-@6-@&6-@:W,16-@:R,.K( (K(Y}=INSERT A BOOT TAPE IN CASSTTE DRIVE AND HIT 'RETURN'1P#@@A(C:&(3( LOADINGP6-?:AZ}<@<<<,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 Ya}OU WANT ANOTHER COPY%Z4YA\ A ^22(*INSERT YOUR CASSETTE PRESS PLAY AND RECORD`9#@@b}A(C:9(WRITTING CASSETTEb 6-?:A<@<<<,d$@6-A$ A0f5!(DO YOU WANc}T ANOHTER COPY%54YAh A j"@)"A6$l"An2( I/O ERROR2(CHd}ECK DRIVE AND TRY AGAIN!p ' (FATAL ERROR! A %OCIOJKBCFILEBUFBUFLEINDEAUXLINEISTALINL !z AZRIPOFSPDBC  @@@@i@'www@ @ f} @ @ @AU@@<<;A ,;A ,;A ,;@ g},;@,6-@467@,. %67A ,. 467@,.( A`2 }<467@,. h}%67A ,. 467@,.F6-@P=( 1 OR 2 SIDES'6-&@3!@= @Z.6-@$ i} TYPE DISK NAME:. A@\#" A# A^A A(3(TURN DISK OVER AND HIT RETURN= @ j}A_D B6.$67@,. 567A ,. D67@,.`/6-@ A6.%6./ Ad k}An6-x&&@@D:*.*@6-$@&@67<$@,. l}6-%@6-@ A0@$"A`6-&@ })) !READY th m}e printer and press START F:B2y,@A@##@@P:)) @>:@',A>: n}@,)) @>:@,>:@',O @>:@',S0"4"* @ 4 o}A , @ .88 @' SIDE(1) SIDE(2)6 @ @06-'@" p}P:'@,06-%@J6-@ 6-@T-@^##6-+&@,$@%@h-%@ q}rp"f @7$@&@<$@, 7+%,$@&@<+%,$@,p A|T. @ r}7$@&@<$@,T" ";A$((X+OFF)*17-16,(X+OFF)*17);CCPRINT #1,;B$(X*17-16,X*17);" ";B$((X+OFF)*17-1 s}6,(X+OFF)*17).. @7$@&@<$@, "'@!@" @ @ @ t} @ @P' +@'0@5 @ @5 @ L u}ABEL IT&-@@" @& ' @' @ BY, @, @ greg hisc v}ott }&&  Press START to continue F:B2y,"@@P A0& AP0 }:++ # w}Sorry, disk does not have a catalogD# # Press START to try againN Press OPTION to endX6-F:B2y,b"@ x}@Pl"@v A*******************LENGTH IS ILRETURN STRING IS R$******* y}************##@@K: 6. 6-B:,)@"@A"AU z}A M@2*@* ;67%@<%@,.>:,C >:,M A#A&)"# A  {}"@6. (!@(6.7@<&@, A  6.XXX*#@ AU@# |}$4@>AU@H"-%@67,. " R$ D:LABEL2.BAS@i@'www@ @ 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,211ERS *****96 REM * BY CRAIG CHAMBERLAIN *97 REM * ANTIC MAGAZINE *98 REM * FEBUARY, 1984 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:LISTER@ 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&J&&K&L&ʩ * d5I&&&© 1 -L*I&˜ ' 4&0& 1&& *L&'yA@Hd""****************************n""* *x""}* TV CONVERGENCE TEST *""* BY JEFF SCHAFFER *""* (213)-998-5234 *""* MASTER OF SOFTWARE} *""* *""* H= HORIZONTAL LINES *""* V= VERTICAL LINES *""* X= CROS}S-HATCH *""* D= DOTS *""* C= COLOR BARS *""* *""*} *""* *""****************************, +A@},;@,8@.@@K:8@)@6.>:,9+@%@'A}9A @" 4H AP A`, 4V A A`64XA@4DA }J4CAT%^HORIZONTAL LINESh-A@r,/A| $}VERTICAL LINES-A@2,/A+,%@+/%@A }',A'/AA',A'/AA$CROSS HATCH AP A} A` DOTS-A@-A@0& ,,%@0   : }A`DCOLOR BARSN +@X-@@bl-@vS+,+&@,$@%%@}S/+&@,$@%%@A    A` D1:TVTEST5+F:A8,%F:A9,$AV,}%@BD:TVTESTE B'gd""****************************n""* *x"".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,! }$AV%F:A,V@66@3@ D:AUTORUN.SYS&#F:A,$AV%F:A,&! }-@AF 6-8,)"@*@B:,) AP*@ -B:,@6@! }*@@:7<,, "*@AU,*@AU6*@A&@*@@J*! }@A'T*@@^*@h*@@Vr@|&&169,80,141,0,3,16!}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!},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!}((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..!}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!},1381++160,1,96,140,33,3,169,228,141,34,10053,169,155,160,1,96,584N@ (}.( ͠ĠϠӠӠ@(!} ϠSJ(((Ġ͠ŠҠD(ŠƠàG(J(XW,($BOOTBILD by Chuck Hosick, A.!}C.A.O.C./(W(#This program creates an AUTORUN.SYSbF(program on disc which:F(# 1. Loads the RS_232 handler fromlf!})(! the 850 interface module if:H( a. you have one andf( b. it is turned onv\(and then4( 2. e!}xecutes an immediate mode\(# BASIC command which you enter.Z2( For example- RUN >:@4,D:MENU5(W( !} ENTER YOUR BASIC COMMANDZ( @@D:BOOTBILD.LEO 33BOOTBUILD by Chuck Hosick for HRS ' FIPIISSULINECOUNICRSRANGLINCOUNCHECKSUNUMBEPRODUCITETOTADATU%}@ @ %}d88 DEBUGGING AID BY ISTVAN MOHOSi""VERSION 2 MODS BY TOM HUDSONn[ +%}([(FThis run will LIST data statements with the name: , to the disk.xi(f([The DATA is created by evaluatin%}g each character of a user program, LISTed to disk.i(};@,(ENTER FILENAME*6-F:AY,6-%}*,((ENTER ISSUE NUMBER( A@,* A0*@@A0A0%}f (},(DISABLING SCREEN...STAND BY...@-@AD PAYfdebug before poking 6-;A&%},( A@(6-%@ AK@6-P:'@,69,9,;@,K+")4,A% }`II@:7@<@,, @H)@:7@<@,,!@WA`6-@ AP4 6-6-#-@%!}@067<,. 4  6-*@6-@*6-%@87<,0  67<,.7<,.6-%@%}32500 CLR :DIM VAR$(80),NUM$(5):CA=PEEK(130)+PEEK(131)*256:CC=1:POKE 1690,032502 ? "}":LPRINT "CROSS REFERENCE":LPRINT :LPRI)#}NT :LPRINT "VAR LINE NUMBERS":GOSUB 3254232504 TP=PEEK(CA):IF TP>128 THEN TP=TP-128:POKE 1690,132506 VAR$(CC,CC)=CHR$)$}(TP)32508 IF PEEK(1690) THEN GOSUB 3252632510 CA=CA+1:CC=CC+1:GOTO 3250432512 LPRINT :LPRINT "# OF VARIABLES =";PEEK(1681))%}-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()&}1536)32532 IF PEEK(1680) THEN GOTO 3253632534 VAR$(X-1,X-1)=" ":IF X<=16 THEN VAR$(LEN(VAR$)+1)="NO REFERENCES"32535 LPRIN)'}T VAR$:LPRINT :CC=0:POKE 1690,0:VAR$="":NUM$="":RETURN 32536 CL=PEEK(1683)+PEEK(1684)*25632538 NUM$=STR$(CL):IF LEN(VAR$)+L)(}EN(NUM$)+2>80 THEN LPRINT VAR$:VAR$=" "32540 VAR$(LEN(VAR$)+1)=NUM$:VAR$(LEN(VAR$)+1)=", ":X=LEN(VAR$):GO))}TO 3253032542 RESTORE 32546:? " READING MACHINE CODE":FOR X=1536 TO 1684:READ TP:POKE X,TP:NEXT X32544 ? "}";"GOOOO!":RETUR)*}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,)+}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,),}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 DA)-}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 D).}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,0RENCE":LPRINT :LPRI(j$%MGOOBLEYGOOGOOBLEYGOKGOOBLEYGOOK@@_*("THIS PROGRAM CREATESAN AUTO-0}RUN.SYSR(#FILE WHICH CAN DISABLE THE KEYBOARD_9@,VV(&CLICK WHEN SOMETHING SUCH AS THE BASIC%CARTRIDGE IS USE-1}D. FOR MORE INFO SEEC)(!CREATIVE COMPUTING SEPTEMBER 1983C(IT'S IN OUTPOST ATARI:,($PRESS RETURN TO CONTINUE OR B-2}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,23-3}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,10-4}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,30-5},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,1-6}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,1-7}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,-8}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,14-9}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#-:}@@K:- A`X@@ D:AUTORUN.SYSA#(AUTORUN.SYS ALREADY EXISTS!A(TYP-;}E 'Y' TO WRITE OVER IT)@@:Y,9@9@@ D:AUTORUN.SYSJ A -<}!-@Ad%"2*@6 J@A R@6(#NEW AUTORUN.SYS TO DISABLE KEYBOARDR(SPEAK-=}ER IS NOW ON DISK.5%(TYPE 'Y' TO BOOT DISK AND RUN5( AUTORUN.SYS*)@"@:Y,*6-?:B, A@->}H"F:A,"@)@>(ERROR IN DATA MESSAGES!H A@..(ERROR F:A, CAN'T CONTINUE...-?} D:NOCLICKbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbK@@_*("THIS PROGRAM CREATESAN AUTO,0!"rARAMTOPAGPAGEADDTIMTHTMAA#BA8BA%@@% @1A}d;@,n06-@$@%@06-F:,&@x)&@+)6-$AV)( ( (WIN1B}DING THE CLOCK#(&()(--A7"'"@-6- % %@ @%@E@1C}(WHAT TIME (HHMM)$6-P:'A,$6-&$A!@#A!@YA@1D}Ap8(MIDDAY,7@<@,0Y86- A!@A<(AM OR PM1E}.7@<@,4P<6-%@,"6-P:'@,"%@6$6-P:&$@,$%@@"6-P:'@1F},"%@J$6-P:&$@,$%@T6-?:%@,^1,0,0,0,0,0,0,196,169,6&&160,28,161G}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,11H}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,1I}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,2021J}%%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,171K}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,1L}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,61M},76$$98,228,9,16,13,0,6,145,204,13696,13,0,6,145,204,136,96 D:TIMECLOK BA%@@% @0Y0 REM %%%%%%%%%%%%%%%%%%%%1 REM % DOWNLODADED FROM %2 REM % M.B.B.S. - THE %3 REM % FREEWARE SYSTEM %4 REM % * * *5O} * %5 REM % (206) 632-9476 %6 REM %%%%%%%%%%%%%%%%%%%%10 REM SUPRCOMP-3 UPDATED BY Ron Luks 6-83 PPN 76703,25420 G5P}RAPHICS 0:SETCOLOR 1,0,12:SETCOLOR 2,9,0:SETCOLOR 4,9,0:POKE 82,0:POKE 83,3930 POSITION 14,8:? "Э"40 ? :? " This5Q} FILE COMPARISON program is ":? " an updated version of the pgm"50 ? " SUPRCOMP by Stacy Goff of A.C.E.":? " It will m5R}ake a line-by-line "60 ? " comparison of 2 LISTed files, on ":? " the same or different drives, and"70 ? " create a 35S}rd file consisting of":? " any differences. "80 POKE 764,255:? :? " Ԡ٠٠Ϡ "90 IF PEEK(765T}4)=255 THEN 90100 DIM A$(20),FILEOLD$(19),FILETRAN$(19),FILENEW$(19),OLDREC$(128),TRANREC$(128),NWREC$(128),L$(20)110 POKE 5U}764,255:? "}"120 ? :? "ENTER í ";:INPUT FILEOLD$:IF REN=1 THEN 150130 ? :? "ENTER í to be COMPARED":? "5V}against #1 ";:INPUT FILETRAN$:IF REN=1 THEN 150140 ? :? "ENTER í to consist ":? "of the differences -";:INPUT F5W}ILENEW$:? 150 ? " Š = ";FILEOLD$160 ? " Š = ";FILETRAN$170 ? " Š = ";FILENEW$180 IF REN=1 THEN REN=0:? 5X}190 ? :? " ENTER D to only"200 ? " ENTER P to only":? " ENTER B for "210 ? " TO 5Y}CHANGE THE NAME OF FILE ":? " #1,2,or 3 type the approp. #"220 ? " or just for MENUs":POKE 764,255:TRAP 1905Z}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:GOT5[}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$="" TH5\}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,5]}FILETRAN$340 TRAP 620:OPEN #3,8,0,FILENEW$350 IF ERRSW=1 THEN GOTO 820:REM END360 REM MAINLINE ROUTINE 370 GOSUB 5505^}:REM GO GET OLDREC380 GOSUB 560:REM GO GET TRANREC390 IF OLD=TRAN THEN GOTO 490400 IF OLD>TRAN THEN 460:REM MUST ADD RECOR5_}D FROM TRAN410 IF TRAN>OLD THEN 430420 STOP 430 REM ON OLD, NOT ON NEW; WE DELETE440 NWREC$=STR$(OLD):? #3;NWREC$:GOSUB 75`}50:REM WRITE RECORD & PRINT450 GOSUB 570:GOSUB 550:GOTO 390:REM GO CLEAR NWREC, GET ANOTHER OLDREC460 REM ON TRAN, NOT ON O5a}LD; WRITEIT470 NWREC$=TRANREC$480 ? #3;NWREC$:GOSUB 750:GOSUB 570:GOTO 380490 REM ON BOTH FILES, CHECK TO MAKE SU5b}RE THEY ARE IDENTICAL 500 IF OLDREC$=TRANREC$ THEN GOTO 530510 GOSUB 570:NWREC$=TRANREC$520 ? #3;NWREC$:GOSUB 750:GOSUB5c} 570530 GOSUB 550:GOSUB 560:GOTO 390540 REM FILE READ SUBROUTINES 550 TRAP 640:INPUT #1,OLDREC$:A$(1,5)=OLDREC$:GOSUB 725d}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 NWRE5e}C580 FOR X=1 TO LEN(NWREC$):NWREC$(X,X)=" ":NEXT X:RETURN 590 REM TRAP ROUTINES FOR OPENS 600 ? "ERROR--CAN'T OPEN ";FIL5f}EOLD$:ERRSW=1:GOTO 330610 ? "ERROR--CAN'T OPEN ";FILETRAN$:ERRSW=1:GOTO 340620 ? "ERROR--CAN'T OPEN ";FILENEW$:ERRSW=1:5g}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 5q}(/b$DISASMBLLSTb(DLLISTERSAVb/6MINIUTILSAVbeLABELMKRSAVb}FINGERS LSTb+LISTER SAVb0SECTUTILOBJbTVTEST SAVbBOOTBILDSAVbDCHECK BASb "XREFUTILLSTb/NOCLICK SAVb@TIMECLOKSAVb#NSUPRCOMPLSTb zDIRPRINTSAVb'DOS SYSbCRAB BASbRENUMBERLSTbCASDISK OBJb*DUP SYSb!AUTOMATESAVb"3TRACE LSTbULINEDLT LSTb[CREATOR SAVbrAUTORUN SYSb RPMTEST BASb$LABELPNTSAVbsMENU 820660 OLD=99999:IF TRAN=99999 THEN GOTO 790670 RETURN 680 REM ERROR ON TRANS FILE--CK EOF 690 IF PEEK(195)<>136 THEN GOT5r}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 5s}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$5t}780 RETURN 790 REM ALL DONE, CLOSE FILES 800 CLOSE #1:CLOSE #2:CLOSE #3:? :? :? " END OF FILE "810 L$="D1:*5u}.*":L$(2,2)=FILENEW$(2,2):GOSUB 880:END 820 REM UNDETERMINED ERROR 830 ? :? :? " JOB ABORTED WITH ERROR ";STR$(PEEK(195))5v}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) 5w}for":? "the appropriate menu":TRAP 860870 CLOSE #1:CLOSE #2:CLOSE #3:CLOSE #4:INPUT L$:L$(3)=":*.*"880 TRAP 920:CLOSE #5:OP5x}EN #5,6,0,L$:? :? :? ,L$:TRAP 910890 INPUT #5;L$:IF L$(5,16)="FREE SECTORS" THEN ? :? ,L$:GOTO 920900 ? L$;,:GOTO 890910 P5y}RINT 920 TRAP 930:CLOSE #5930 TRAP 40000:RETURN %2 REM % M.B.B.S. - THE %3 REM % FREEWARE SYSTEM %4 REM % * * *43|GpABADDC@ @Q@A7A  9{} @E;@,;@,'6-@36-EAR@7 (}-@@3(INPUT DISK N9|}UMBER 7=73, DISK # :3=3:;@ ,;A,'6-@36-@h:9}}6. F&@@D:*.*F@@S:  AAR@(#@-9~}#(@2G7@<@,4FREE%-=( G A<G6-%@!@@#(}/69}-;6-@G6-A56-%@!@)6-@ 56-d1(67B:,%@,.7@<@9},16-B:,x @@ ( ( (3 7<,-6-&@h6-%@h-6-%@h. @i$3 9} 7Q  HH)=}  hyhyB q L> Lm JJ  Ln*` dB%'=}8  H H` 1 { LL   !L     Hh SY?  q  1L=}  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L=}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@=}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q=} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF =} G) *Gȩ GȽG GȌd q q G`  8   0G  `D=}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y=}`piH n0)բY? 08`0 =}  0$L GGȽG L `8L`L=}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`=}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE=} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR=}1LJ舩9GIH`LJJ`HGHh l`=} S gL   8 rii `дCDCG W  =}C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}pp=}PER |||DDOS DOSDOS SYS }=}<}`}P=}BBOOTBILDSAVBDCHECK BASB "XREFUTILLSTB/NOCLICK SAVB@TIMECLOKSAVB#NSUPRCOMPLSTB zDIRPRINTSAVCDOS =} SYS 0`BDELV !B =}`LVUQ   ]   TU J ]L!T  #      TU =} L ? .  t`GBJ V~DEHI B V0dV=}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh=}DEL8HI   0 HI,0 0  9 .G VLO=},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI=} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI=} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO =}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -=}LLu DEHILV 9 .l 9 .l  `` s$B VBH=}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL=}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e=}1i1232435ޥ<<8<} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. DM}8 A` 6-A:, 68,-6-%@" A @,%6-%@%"@A@6 A%}@$@6-@$ APJ-@6-TF)@6-$ 6-%.6-%@:"@F6-@%}Y"AUA`^ A@h?6-&A$P:'A,'68,-3!@ ?6-@m r@@%}1@@D:BUG:6-8,@6-|'6-@6-! @'6- @ DATA B-@%}$6-8@$%,6 @,>6-%B  @36-%@6-&@3 @AP%} 6-8, A@AYUU(M}To check data against printed data statements, type NEW. Th%}en type:\\(ENTER >:@4,@D:BUG Type LIST after the READY prompt.U(U(JThe line numbe%}r of each data statementcoincides with the first line of the88(0user program which the data statement evaluates.aa(YN%}umbers within each data statement represent consecutive lines of the user program.%%(The last number is the total.%}R(R(GCheck the number of each state- ment against the printed version;PP(Honly in case of a discrepancy check%} each number in the data statement.__(8Make note of the lines containing the bugs. Then ENTER >:@4,D:your pro%}g&# (to make the corrections.#0PAY(}P(5Your typed-in program was not properlyLISTed to disk.:%}e(_(*Please LIST your program to disk, thenRUN >:@4,D:CHECK>:@4, again.be D:DCHECK.BAS$w TNAGLP@ A} YY* THIS UTILITY WILL PRINT OUT OR DISPLAY A LIST OF THE VARIABLA}ES IN A BASIC PROGRAM]]* AND SHOW IN WHICH LINES THEY APPEAR. THE PROGRAM WILL BE READ FROM THE DISK DRIVE.%%*****A}**************************r6-AV6-@*6-@66-B6-A(N6-ABZ6-Ar9A'A},;@,1 A0-(>:A%,PROGRAM TO XREF1(@26-@` @p< ) $FA}  6- 6-%P(%( IS NOT A BASIC PROGRAM(Z-@  d 6-$0@ @n A}(Apx*(>:A%,(>:@),*( REM 6(>:&$+!A',,((+!A',, 6 A0=2@A}@((((CONT.-:@=&@ 6-% A-A'68,- !-@A}$+'&, !   6- 6-%$    !A@ AUA  A! A}"@  ! A"@"A/"@-@! % / A@ A@M 6-&A}68,-8,%/2@@M2%@0@@"6(>:A%,(>:@),6(+%,$%8, REM ,'(A} ((CONT-$@'&6@@ A@J! B332!2T$0@ @$(>:AA}%,^P6-F:A,A6M(ERR  AT LINE F:A,%F:A,$Ph-@-@@A}K:r>>(6HIT P FOR PRINTER OR D FOR DISPLAY (OR ESC TO QUIT)w)&(DEPRESS SPACE TO PAUSE DISPLAY)(|)@A}"@'~"@A"@hA AD#@@P:D(@XREA}F LISTING FOR 6-F:A6,%F:A7,$:6-F:%, 6-F:,%F:%,$( $06-%: A36-P:',6-A}&$(((@3(@86-F:%,-@&4(@>:F:%,,8 #(@ (#(@A}1 6-%6-F:,%F:%,$1 B'hA 7(@(@7(@&% VARIABLES@(A}XREF LISTING FOR 6-F:A6,%F:A7,$:6-F:%, 6-F:,%F:%,$( $06-%: AAdAA}U(6-F:Ad,"@3( A#6-P:',6-&$( (#(/6-F:%,-@&+(>:F:%,,/A}  ( ((&1 6-%6-F:,%F:%,$1 B'hA0( ((&% VARIABLES:X--@@PA} -AdAU]36-F:Ad,"@30AdAU3$b A D:CRAB.BAS @l  ;>OBTIMMM@@@%A + AP4;@w,"+@%e}@4AR@WW6.MhhhhhhhΩύR΍ˍ ̍  S Sϥԥ`*( 6-@e} SECTOR TO READ2&6-@%&REVOLUTIONS PER TEST7!!25 REV = 5 SECONDS PER TESTA0-@@0(@ e}ˠҮЮͮP6-?:C:,<<<,ZF:B2y,"@dC-@@ C(@P:+@'+',,$A6,&@e}n @( ͠rr(i This program will test the speed of the drive motor by measuring the time requie}red for the disk to makepp(g a complete revolution. It displays the speed on the screen and updatese} the speed qq(hevery five seconds. Disk speed should be 288 r.p.m. but do not attempt to adjust your speed by this e}26900 REM Ҡͬ٠Π ٠ĠΠά Ơӻٛ26910 REM E}ΠҠŠŠƠ ɠҠӛ26930 REM ͠ԠŠENTERED Š͠E}Šŭ ĠӠΠ٬26940 REM Π٠GOTO 27000Ġ ̠͠ŠҮ27000 AE}=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+E}PEEK(136)27050 PRINT "ENTER STARTING LINE NUMBER";27060 INPUT START27070 PRINT "ENTER INCREMENT";:INPUT INC27080 ADD=BEGE}27090 LEN=PEEK(ADD+V2)27100 LNUM=PEEK(ADD)+PEEK(ADD+V1)*V25627110 IF LNUM>25000 THEN 2725027120 CNUM=START+COUNT*INC27130E} LN1(COUNT)=LNUM27140 LN2(COUNT)=CNUM27150 COUNT=COUNT+V127160 POKE ADD+V1,INT(CNUM/V256)27170 POKE ADD,CNUM-INT(CNUM/V25E}6)*V25627180 ADD=ADD+LEN27190 GOTO 2709027250 LOC=BEG27260 MLT=0:IF PEEK(LOC+V2)>PEEK(LOC+V3) THEN MLT=V127262 LINE=PEEKE}(LOC)+PEEK(LOC+1)*256:IF LINE>25000 THEN ? :? "":STOP 27270 OPC=PEEK(LOC+V4)27280 IF OPC=OIF THEN 2740027290 PONT=LOC+E}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 OE}PC=OIF THEN 2760027340 PONT=MT+V1:GOSUB 2790027350 MT=LOC+PEEK(MT):IF MT20 THEN 274302742E}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(MTE})-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:GOSE}UB 31260:GOTO 2735027620 MT=LOC+PEEK(MT):GOTO 2734027850 ? "MULT IF SCREWED UP":STOP 27900 OPC=PEEK(PONT)27905 IF OPC=10 E}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 OE}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)+VE}1:GOTO 2792527940 PONT=PONT+V1:GOTO 2792527950 OPC=PEEK(PONT):IF OPC=14 THEN 2796027952 GOSUB 3130027954 OPC=PEEK(PONT):IE}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 279542795E}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 THEE}N CHNPT=PONT+V1:GOTO 3126027965 IF A=18 THEN CHNPT=PONT+V1:GOSUB 31260:PONT=PONT+8:GOTO 2795027970 GOTO 2795227980 IF PEEKE}(PONT+V1)<>14 THEN GOTO 3130027982 IF PEEK(PONT+8)<>20 AND PEEK(PONT+8)<>22 THEN 3130027985 CHNPT=PONT+V2:GOTO 3126028000 E}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=E}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 3000E}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,64E}+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 DIE}G1=INT(DIG/V10)31080 POKE ADDR+Y,DIG1*V16+(DIG-DIG1*V10)31100 NEXT Y31200 RETURN 31250 REM 31260 SADD=CHNPT:ADDR=CHNPT:GE}OSUB 2800031270 FOR A=0 TO COUNT:IF LN1(A)<>NUMBER THEN NEXT A:GOTO 3128531280 NUMBER1=LN2(A):GOSUB 30000:RETURN 31285 ? "E}ҡ NO LINE ";NUMBER;" IN LINE ";LINE:RETURN 31300 ? " GOTO VARIABLE IN ";LINE:RETURN 31310 END ٛ26910 REM Dmff(^program. If you have a speed problem contact your nearest Atari service center for advice.))(!Hold dowe}n to end the test.E A#(Input Drive # 'E @)!@A$ D:RPMTEST@%du47BD7E JK VUTD6ELHI B VUTHD6E&HI V "DI}7EJKB VHPID8EB V B VD6E&HI B V : L4L%7mDI}6E&HI B V8˩8W   Sii i  i ע AI}D6E&HI B V+L4D7E&HI V+ B VL4D6E&HI VI} B Vl ˠ BY Phil SeifertINSERT CASSETTE TO COPY, HIT ANY KEI}YINSERT BLANK DISK, HIT ANY KEYHIT ANY KEY TO RETURN TO DOSDO YOU WANT A ASSETTE OR ISKPOSITION CASSETTE AND HIT ANY KEI}YDO YOU WANT ANOTHER COPY?WANT TO RUN CASDISK AGAIN?E:C:ȝD6E&HIA B V B"D7EJJ}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK FM}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟M}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1iM}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 0N}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILEN}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBHN}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L N} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED044 FREE SECTORS COPYING---D1:TOOLN}BOX.LST# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: BN} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#N}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%N} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C:,4Y)4yA 4N)4R'}nAP Ap6-%B:,%@&A`/(/( Command # is  character(s))(R(} too long.6-&@) ApE67%@,.6-B:,767%@,.>:AU,E6-%@ ( (Current comR)}mand list:.Af@((.Af"8&@+(Command list if full..(8 Ap,22(CommaR*}nd list can hold &&@ more6( character(s).@6( (More comands (Y/N)? -)@66.>:,J4Y)R+}4yA@T4N)4nA`^ Ah(>:A%,r''(Mount diskette which is to bear|##( the AUTORR,}UN.SYS file, then<( press RETURN. &)@1@<@/(>:A%,/(Writing AUTORUN.SYS file.R-}..@@ D:AUTORUN.SYS>>PUT OUT THE HEADER AND THE CORE MACHINE LANGUAGE PROGRAM255,255,0,6,R.}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,228R/},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"R0}!"@)"@H!6-%*@ ADD THE COMMAND LIST-@6-@:7<,,&*@R1} 0''APPEND INITIALIZE AND RUN VECTORS:&&226,2,227,2,0,6,224,2,225,2,17,6D-@@"N*@R2} X@(>:A%, D:AUTOMATEDDAUTOMATE JOE J. WROBLE P831000 TRAP 3104631002 REM 31004 REM BASIC TRACE UTILITY31006 REM ALAN FILIPSKI 198231008 REM 31010 REM FIND START OF STMV4}NT TABLE31012 DBGST=PEEK(136)+256*PEEK(137)31014 REM SET ERR IN EACH STMNT31016 GOSUB 3115231018 ? " ":? "BASIC TRACE UTIV5}LITY":? " "31020 ? "ENTER LINE NUMBER AT WHICH"31022 ? "EXECUTION IS TO START"31024 ? "(FIRST LINE IN PROG IS ";PEEK(DBGSTV6})+256*PEEK(DBGST+1);")"31026 INPUT DBGSTART31028 REM CLR ARRAYS IF STARTING AT FIRST STATEMENT31030 IF DBGSTART<>PEEK(DBGSV7}T)+256*PEEK(DBGST+1) THEN 3103831032 CLR :DBGST=PEEK(136)+256*PEEK(137)31034 REM RESTORE DBGSTART31036 DBGSTART=PEEK(DBGSTV8})+256*PEEK(DBGST+1)31038 ? "HOW MANY LINES TO TRACE ":INPUT DBGTC31040 IF DBGTC<=0 THEN 3106431042 GOTO DBGSTART31044 REMV9} TRAP HERE AT EACH ERROR ENCOUNTERED31046 DBGST=PEEK(136)+256*PEEK(137)31048 IF PEEK(195)=17 THEN 3105431050 REM UNEXPECTEV:}D ERROR TYPE31052 ? "ERR TYPE ";PEEK(195);" AT LINE ";PEEK(186)+256*PEEK(187):GOTO 3106431054 IF DBGTC>0 THEN 3107231056 ?V;} "HOW MANY MORE ";31058 INPUT DBGTC31060 IF DBGTC>0 THEN 3107231062 REM TIME TO QUIT. REMOVE ERRS31064 GOSUB 3121231066 V<}? "TRACE ABORTED"31068 STOP 31070 REM REINTRODUCE ERR INTO CLEARED "FOR" OR "GOSUB"31072 IF DBGSAV1=0 THEN 3108631074 DBGV=}SAV1=DBGSAV1+DBGST:IF PEEK(DBGSAV1+4)=55 THEN 3108631076 DBGEOL=DBGSAV1+PEEK(DBGSAV1+2)-131078 DBGCOM=DBGSAV1+431080 POKE V>}DBGEOL,PEEK(DBGEOL)+PEEK(DBGCOM)31082 POKE DBGCOM,5531084 REM REINTRODUCE ERR INTO LAST STATEMENT EXECUTED31086 DBGSAV2=DBV?}GSAV2+DBGST:IF PEEK(DBGSAV2+4)=55 THEN 3109831088 DBGEOL=DBGSAV2+PEEK(DBGSAV2+2)-131090 DBGCOM=DBGSAV2+431092 POKE DBGEOL,V@}PEEK(DBGEOL)+PEEK(DBGCOM)31094 POKE DBGCOM,5531096 REM CLEAR ERR FROM "FOR" OR "GOSUB" ON TOP OF RUNSTK31098 DBGSAV1=0311VA}00 IF PEEK(142)=PEEK(144) AND PEEK(143)=PEEK(145) THEN 3111431102 DBGTOP=PEEK(144)+256*PEEK(145)31104 DBGLN1=PEEK(DBGTOP-3)VB}31106 DBGLN2=PEEK(DBGTOP-2)31108 GOSUB 3117631110 DBGSAV1=DBGPTR-DBGST31112 REM FIND STATEMENT WHICH TRIGGERED TRAP AND CVC}LEAR ERR31114 DBGLN1=PEEK(186)31116 DBGLN2=PEEK(187)31118 GOSUB 3117631120 DBGSAV2=DBGPTR-DBGST31122 REM * * * * * * * *VD} * * * * * * * * * * * * * * * * * * * * * * * * *31124 REM INSERT USER PRINT STATEMENTS HERE31126 REM * * * * * * * * * * VE}* * * * * * * * * * * * * * * * * * * * * * *31128 REM LIST TRAPPED STMNT31130 LIST PEEK(DBGPTR)+256*PEEK(DBGPTR+1)31132 TVF}RAP 40000:TRAP 3104631134 DBGTC=DBGTC-131136 REM IF STMNT IS END OR STOP, CLEAR ALL STATEMENTS31138 IF PEEK(DBGPTR+4)=21 OVG}R PEEK(DBGPTR+4)=38 THEN GOSUB 3121231140 REM EXECUTE STATEMENT31142 GOTO PEEK(DBGPTR)+PEEK(DBGPTR+1)*25631144 REM 31146 VH}REM SUB TO SET ERRS31148 REM SET COMMAND TOKEN IN ALL USER STATEMENTS (EXCEPT DATA STATEMENTS) TO 55 (=ERROR)31150 REVI}M SAVE ORIGINAL USER COMMAND BY ADDING TO END-OF-LINE BYTE31152 DBGPTR=DBGST31154 IF PEEK(DBGPTR+4)=55 OR PEEK(DBGPTR+4)=1 VJ}THEN 3116431156 DBGEOL=DBGPTR+PEEK(DBGPTR+2)-131158 DBGCOM=DBGPTR+431160 POKE DBGEOL,PEEK(DBGEOL)+PEEK(DBGCOM)31162 POKE VK}DBGCOM,5531164 DBGPTR=DBGPTR+PEEK(DBGPTR+2)31166 IF PEEK(DBGPTR)+256*PEEK(DBGPTR+1)<31000 THEN 3115431168 RETURN 31170 REVL}M 31172 REM SUBROUTINE TO FIND STMNT AND REMOVE ERR. 2-BYTE LINE NO. EXPECTED IN DBGLN1 AND DBGLN231174 REM PTR TO LINE IVM}S RETURNED IN DBGPTR.31176 DBGPTR=DBGST31178 IF DBGLN1=PEEK(DBGPTR) AND DBGLN2=PEEK(DBGPTR+1) THEN 3118631180 DBGPTR=DBGPTVN}R+PEEK(DBGPTR+2)31182 GOTO 3117831184 REM REMOVE ERR31186 IF PEEK(DBGPTR+4)<>55 THEN RETURN 31188 DBGEOL=DBGPTR+PEEK(DBGPVO}TR+2)-131190 DBGCOM=DBGPTR+431192 IF PEEK(DBGEOL)>100 THEN 3120031194 POKE DBGCOM,PEEK(DBGEOL)-2231196 POKE DBGEOL,22311VP}98 RETURN 31200 POKE DBGCOM,PEEK(DBGEOL)-15531202 POKE DBGEOL,15531204 RETURN 31206 REM 31208 REM SUBROUTINE TO CLEAR ALVQ}L ERRORS31210 REM 31212 DBGSAVE=DBGPTR:DBGPTR=DBGST31214 IF PEEK(DBGPTR+4)<>55 THEN 3122831216 DBGEOL=DBGPTR+PEEK(DBGPTR+VR}2)-1:DBGCOM=DBGPTR+431218 IF PEEK(DBGEOL)>100 THEN 3122631220 REM NON-REM LINE HAS 22 FOR EOL31222 POKE DBGCOM,PEEK(DBGEOLVS})-22:POKE DBGEOL,22:GOTO 3122831224 REM REM LINE HAS 155 FOR EOL31226 POKE DBGCOM,PEEK(DBGEOL)-155:POKE DBGEOL,15531228 DBVT}GPTR=DBGPTR+PEEK(DBGPTR+2)31230 IF PEEK(DBGPTR)+256*PEEK(DBGPTR+1)<31000 THEN 3121431232 DBGPTR=DBGSAVE31234 RETURN F STMTx32600 GRAPHICS 0:? :? "MASS LINE DELETE"32605 TRAP 32605:POKE 84,11:? "START, end";:INPUT S,E32610 IF INT(S)<>ABS(S) OR S>3ZV}2099 OR INT(E)<>ABS(E) OR E>32099 OR E3Xv!" OBJBDSHEXAOPFILHLBYT ^\} %%(} CREATOR BY WILLIAM VOLKCOURTESY OF S.P.A.C.E22SEACOAST PERSONAL ATARI COMPU^]}TER ENTHUSIASTS,,THIS MASTERPIECE MAKES A BASIC PROGRAM22THAT WILL 'RECREATE' AN OBJECT FILE, ON DISK99THIS ALLOW^^}S THE OBJECT FILE TO BE SENT OVER A MODEM--IN THE FORM OF A 'LISTED' BASIC PROGRAMLLWHEN THE CREATED BASIC PROGRAM IS^_} RUN, IT RECREATES THE OBJECT FILE!!! [[THE PROGRAM WILL PROMPT YOU FOR THE NAME OF THE OBJECT FILE, AND THE 'LISTED' PROG^`}RAM ]1;@ ,;@ ,;@,;@,H6.0123456789ABCDEF]6.D: 0.ASCP(%(NAME OF OBJECT FIL^a}E, TO BEL("TRANSFERED. I.E. 'D:MICRODOS.OBJ'Pj(/($ENTER A NAME, 7 LETTERS MAX, FOR THEV("SERIES OF 'LISTED' BAS^b}IC PROGRAMS,j(TO BE CREATED,(o( AND RUN IN SEQUENCE. (E( IN ORDER TO RE-CREATE THE OBJECTi(FILE, YOU PREVIOUSL^c}Y SPECIFIED.l(o(2K(EXAMPLE > 'MOONBSE' /B:, @K67B:,%@,.0000000< @@^d}FT6-@#-@ :67@<@ ,.T67@<@,.=:,P)%(CREATING BASIC PROGRAM NAMED )(^e}Z?AA "@?@@ d An6-@  Ax-AA ^f}@(@ DATA c-@@P$)@56-P:'@,G6-&+$@,U6-%@c6-%^g}@(@7<,7<, (@ @ @@'(@^h}@$@'X++THE PROGRAM TO CREATE THE OBJECT FILEb;A,l A v#))OPEN THE FILE FOR^i} 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-%$@^k}*@  A`@00ADDS THE OPEN COMMAND TO THE BASIC PROGRAM(@ 650 OPEN #1^l}0*@@D>(@Q*@@De(@x*@@D*@@4(@^m}*@@4(@$ D2:CREATOR \6NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1No} L ERROR- 139ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDNp} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uNq} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uLF!" Li3!3H APrint DOS Labels--(%} Рj}ĠϠӠ̠ A *-@@*(Enter disk id B:,"A B:j},!@ A   6.-@@33(Put >:@4,>:@4, in drive 1$(then press any keyj}. AL-@@V(Printing label for `1'@@D1:*.*1 Aj& Aj}6-&6-6@t@~((7@<@,0 FREEA6-A:7@<@,, Aj},6-@%$@ ,67<%@,.6-%@ A@@ B'6-@  A'Prij}nt titlea6-@Y(@>:@,3>:,7@<@#, Available Sectorsa6-%-@j}-@<#6-@%$A%$@ <6-P:'@ ,%@!A@T6.7%@<%j}@ ,96.7%@<%@,T6.7%@<%@,77B:,,4 -6.7@(Cj}(Type label in box or,H(Press Ԡ to printR( Π to quit\-@ @( f;6-@ j}6-@'@;@%@pB2y@z F:B2y,"@A%\F:B2y,"@j}*@@<@@9G@R@\ A F:Ad,"AUA!p@@j})@(>:,!6-F:@,!6-F:@,!@6-@ A!p  '@@j}'@@9 -@@  6.-@ @( - ! "*" A! A% ')@j}'67B:,%@,.>:,   A    A A @ASkip to top of next labelJ"j}A@T(@J>:&,^6-h$Print Expanded line$$(@>:@,3>:j}, 6-B:, "AP47@<,AP+-@6@'7<,4 + 6.7@:@,= @=(@7@:@ ,HF(@6-%$(#)#Clear Buffer2#M67@,. %67A,. M67@<Aj},.7@<Ay,<#$##Get a keypress###@@K:#-AdAU")@j}-@#$ D:LBLPRT.BASFILCFRSCROCOFNMFEXTFLSCTFLSCTSPCFILNLNSLILNLBLNSPCCNTLNSIIROICOh&K V8ED8JiIH B V B VLc54LHI B VUTHD6E&HI V "DH: