@L6}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr 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 Ad M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%7} DD˙`  }J)Lr J  ((  p L ()   J8}L= ( L 0q A    IB JC;? D W 9} LL  ` W )LA!  ߰")-݆ p" :} $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ`;}$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H <}p h  hyhy D L> L JJ    ! LA*` BF=}7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L>}EE !E^ ^ E E7EȩEdE/EȩE  D?} .L }  ;F d  ;?F7F? ( .   Z D LL d @} . D  L    p  E` , d)  D L) 0BM݊L݉A} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ GB} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >GC} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISKQ}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU R} L ? .  t`GBJ ~DEHI B V0dVS}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEhT}DEL8HI4 0 HI,0 0  9 .G VLOU},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHIV} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHIW} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO X}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -Y}LLu ÝDEHILV 9 .l 9 .l  `` s$B BHZ}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG@\}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES@]}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N'@^}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx @_}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT@`} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL@a}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD@b}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.@c}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC@d}COPY--FROM, TO?OPTION NOT ALLOWED697 FREE SECTORS COPYING---D8:COPY32.COMl# 0|D .L/%#@} !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##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY@}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E @}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A@}LLOWED IN DESTINATION 0 <.|K:@4,D:MENU5(W( !} ENTER YOUR BASIC COMMANDZ( @@D:BOOTBILD.LEO 33BOOTBUILD by Chuck Hosick for H  j@j !} ! / D0 G R. !MEMORY TESTH ^ SYSTEM CONFIGURATION _ r jj %}"UT !s ~ PASSES 0000 TESTING PAGE 00 ERRORS 0000 LAST ERROR LOCATION 0000 BAD BITS SET%}TU ! SHOULD BE 00 WAS 00U ! !00000000SLOT 3!!BFFF<8000SLOT 2!+!7FFF<4000SLOT 1,!A!3FFF<0000%} T "# !B!Y! "# ! "#ɀ #Z!p!@T"U "q!! "TU "!!ŵ "8&&溥%}!!ŴźЧH!!H`J !!! J`hh!! ! !L! !HH`!"`HJJJJ "%}h) ɺi"-")L!温T"U "."D" "TU " "E"\"T U "U "]"t"EH濥UTu"%}"&0 !1 !h""`UHTH TɀT""@TB泼""8.""$%}"#泥U !##UT !UT !h#1#ThUL" 2# T# v# # #`2#I#U !J#a#% }`U !|O||O||b#y#O||O||O||O||O||O|`Uz## !|K||K||K||K||K||K||K|##|K|`U !| || || || ##|| || || || |%!}`U !####`U TO !U# $TU !UTT ! $ $` ON _ r jj $m32500 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 FILETXYUDOWRIGHLEFYEPLACMENSKETCHPMOVCHECMIRROBLOPATTERNMAKFILFETCINSTRUCEXINAMECHEFI-0}LERRORESPONSAGAIKEFFCHOICDRDESIGROIMAG<$@i@@@E@a-1} @B @C @ A AAAAPAAA A AA A0-2}A@AA%A@@'@@% @!@s"@`#@B$@4%&@'@-3}()*@ $$  D:PATTERNS by Frank Roberts!!Generates-4} repeated patternsfrom user created designs$$211;@0,;@0,-5};A,;A,7c6-@i6-@'6-@36-@E?6-@aK6-@BW6-@Cc6-@:-6}6-A<"6-A"PIVOT OF PROGRAM>!6-A!DRAWS SKETCHPAD@&6-A&ACCEPTS USER DRAWINGB%6-A-7}P%CHECKS VALID DESIGND#6-A#MIRROR PARAMETERSF6-AINK BLOTH6-A PATTERN ROWSJ6-8}-A MAKES DESIGNSL$6-A$STORES DESIGN DISKN%6-A %GETS DESIGN FM DISKP6-A0INSTRUCTIO-9}NSR$6-A@$TERMINATES PROGRAMT#6-A#CHECKS VALID FILEV 6-A% FILE NOT FOUNDX"6-A"CO-:}NTINUATION KEYZ6- c$$ GET USER INPUT SUB dM@.@@K:;)@-;}MAdAUf8F:A,*A86-&A(g$i46-@:7<,,6-@:7<,,"$4X,Y C-<}OORDINATESj# 6-%6-%$#UPPER LEFTk.6-+@$&,%6-% $.UPPER RIGHTl- 6-%6-+@$&,% $--=}LOWER LEFTm86-+@$&,%'6-+@$&,%*$8LOWER RIGHT## CHECK LEGAL FILE NAME ^ +@@->})AR@;AdAUO-@@Z(@^ E$(@ ENTER NAME OF FILE/(@:(@-?}E(@C#(@ return C(@ ϠΠϠ ( B:," II@:7-}EiͩkΩ͙kCop j`j {j`Hi͝Νh`1A}L"UNEM:D"NURͩkΩ͙kCop j`j {j`Hi͝Νh`0#$|AXLPB0NZ<( ((@&@d8"( eC} +AdAUcAA'A @9@@K@@7Q(}cAR@eD}++(#++(#| BRAD ROLTGEN ENTERPRISES |++(#| DISK #26 - UTILITIES eE} |++(#++(# @ -@AeF} $ GG;@@,;@ ,;@@,;A,;@,;@@, "D1:MENU" &&@@eG}D:*.* 6,6." 6 @0i6-%@(6.7@<@,A67@ <@ ,.eH}.i67@<@,.7@<@,3 6.|67B:,%@,.367B:,%@,.G67@<@,.(-eI}-@B:,:7<,4 G67<,..] 6.=:, @D67@<@,.7@<@,]67@<@eJ},.0$@(''7@<@,4FREE@- @ 2() <@F''7@eK}<@,4FREE@K @ P(7@<@,)|U @0W'!-@6+'@,%@' |ZeL}++(#| |[ ( |  |\++(#xAReM}[@@9'-@@"C( SELECTIONM A0Q[ BP:,A0e}0 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%6DOS SYSbeLABELMKRSAVb}FINGERS LSTb+LISTER SAVb0SECTUTILOBJHELLO MSGbBOOTBILDSAVb RAMTEST OBJb "XREFUTILLSTbA/PTRNMKR SAVb@AUTORUN SYSb#NSUPRCOMPLSTb zDIRPRINTSAV(TOOLBOX LSTB*[DUP SYSbRENUMBERLSTb HEXDEC SAVbEMSGMAKERSAVb!AUTOMATESAVb"3TRACE LSTbULINEDLT LSTb[CREATOR SAVbnDIETY SAVbBMENU b$LABELPNTSAV820660 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} 7:,567B:,%@,.>:,?U,%@(%@Y l# @#,%@(%@ ##-} CHECK VALID DESIGN B:,!@ ) +@@)AdAU&-@@"(@-}& ""(@ YOU DO NOT HAVE$$(@LARGE ENOUGH DESIGN##(@ TO MAKE A PATTERNj(@-}(@9(@ DO YOU WANT MORED(@O(@j(@ (Y/N) "@ @x-}Ap6-6- ## MAIN MENU ROUTINE M +@@)AR@;A-}dAU>'MMENU ROUTINE (@ pattern maker""(@ by frank roberts6(@(@6(-}@ 0 ;(@;(@ 1 +(@+(@ 2 -}'(@'(@ 3 '(@'(@ 4 *(@*(@ 5 -}*(@*(@ 6 +(@+(@ 7 7(@(@7(@ Y-}OUR CHOICE ? AdAU!! @H)!@UA 6-&@HAdAU%@-} SET UP MODE FACTORS /6-@`6-@ %+@/ A0*/6-@`6-@%+@-}/ A04%6-@@6-@%+@>-6-6--AR@HB:, @ R--(-}%ӠŠ٠ϠЯԠ\*(*COMMAND FOR SCREEN DUMP GOES HEREz--(%Ӡ٠Ҡ٠ϠΠϠ-}## DRAW PATTERNS FM DESIGN0@-@@!!"@*!@A e-}"@6-%@$-@B:,  %>F:Ad,"@(*AdAU. :@'> -} ,   @  =6-%@$6-&@$-6-%@9 @= G6-@@-}6-%@H)6-76-%@C @G    STORE DESIGN B:," -}  @@L @ @@: +@@+-@@-}6(@: (P(@ IS FILED'(@2(@P(@ Ӡ٠٠2    FETCH D-}ESIGN ; +@@)AR@;AdAU 6.6.   @@-} A  @@ @*6-@  "" FILE NOT FOUND ERROR U -}+@@)AR@;AdAUUCHECK FOR NO FILE FOUND &-@@"(@&  !!(-}@ FILE NOT FOUND /(@/(@ ϠՠԠϠ ##(@ ˠ٠ +(@+(-}@ (Y/N)     1 +AR@1AdAU 1@1@@-}D:*.*( A'2 @< (F 6- A& @ +(+( ϠՠԠϠ٠-}ΠٯΩ   "  6-  "" GET INSTRUCTIONS 'AdAU'AR@-} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,A}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0A}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhA}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNA}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.A},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  A}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PA},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭA}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOA}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξA}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE A}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!A}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥA}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEA} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LA}!ERROR- 167ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAA}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uA} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u@HELLO, FANS, THIS IS A TEST OF THE PROGRAMM "ŭҢ~"ECTORS2NO MISTAKE WHER;@ , +@@@0"@&6.7@<@,0 AELB6.7+&@,$@%@<+&@,$@%@,L B3e}7@<@,4 36.7@<@,!7@<@,4DOS!.0 6.-@B:,07<,4 AHe}67B:,%@,.7<,   6.! 6.D1:!67B:,%@,.?AR@'-@@"?  e} LOADING ? A@@91@@5%? BK-@@"-  CANNOT RUN 7e} @A BK A0D:MENULABELPNT.SAVB5%? BK-@@"-  CANNOT RUN 7d; R)(!When you choose option you willR($see a sketch pad like the one above. --(%(PRESS ANY KEY FOR MORE INSTRUCTIONS-}) # +#AR@ K+(#Use the keyborad arrow keys to plotK(a design on the sketch pad. O*("All bl-}ack lines or points drawn onO( the pad will be stored in memory Q'(to be transformed into designs *(Q("Any line or p-}oint color other than J"(black will not be plotted.J(#You may change the color at anytime (by pressing the '' ke-}y. N(.(#Pressing '' will erase your designN(so that you may start again -(-("When you have the design you want,.}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 Dm#$!QQQQQ1Q1Q1Q3Q30AADTEM I} %+0@0%0o6-6-@'6-@36-@ I}?6-@K6-@W6-@c6-@0o6-A 8;,;,(8(!دàҠӠv(,(I}!ENTER D FOR DEC TO HEX CONVERSIONR(!ENTER H FOR HEX TO DEC CONVERSIONr(ENTER M FOR RETURN TO MENUv# 4M%DI}:MENU( B:," 2 4H < 0D Z @dc(-("ENTER A DECIMAL NUMBER FROM 0 THRU=( 9999999999.I}G(úKc )EA 6-< 6-6-P:',6-&$$ 267<,.=:,< A67<,.>:&I}%@:A,, 6-& A@(غ 7<,( ,Z  (-(ENTER A HEX NUMBER FROM 0 THRU;( FFFFFFFF.E(I}غIO6-Z-B:,Y6.7<,20 ^'7<,/96-$%A:,' Apc 2A e 3F hI}6-$%@:,&@:A,%r (ú (  D:HEXCONV HG ()Yf"|"AB;B,;@ , +@@M}90@X( MSG MESSAGE EDITOR [(^(h AP(1] CREATE A MESSAGE FILEw(2] LOAD A MEM}SSAGE FILE;(3] DIRECTORY OF DISK # 1K( 4] SEE DEMO_(5] QUIT PROGRAMb(e(wAdAUL-@@)(M}ENTER SELECTION86-F:Ad,LAU@|-@AP --@@A(Enter SelectionU-@N}APY h6-F:Ad,|"AU@)AdAU)"@1A"@&A "@$N}A0"@0@ 5"@)+(( GOODBYE!!!2 A@5 AdAU @ 6 +N}3(!PRESS TO RETURN TO MENU !!!6( n)(!NAME OF INPUT FILE (eg. DATA.MSG)-<67A,.T67@,.7AN},n67@<@,.D:l @@* @0<@F+R6-l0@N}6-%@%0@R2F:@,$@ @@2@F:@,$@N}@@)@(>:, F:B2y,@@ \@02R2@N}\ @2@(0@@2 A@ F:B2y,@@1# N}@d_ +_(LWhen you are done drawing the message press CTRL3 to save to disk. To draw,ett(lmove cursor as N}you would during writing a BASIC program. You can use CTRL with arrows, delete, insertfhe(]etc. Use CAPS and N } video and the keyboard control characters (ie    )h(i*("NAME OF OUTPUT FILE (eg. DATA.MSG).=67AN },.U67@,.7A,o67@<@,.D:y+6. A kl#@@K:/6-N }66.H@R+l0@n>)@6-%@,67<,.>:,4(>:,> AN }xM @@-(@8@C@M @J +'0@JN }@@D:*.*:@)7@<@,0 ,(0(: A '(]  [' A N}3@(3(PRESS START TO RETURN TO MENU F:B2y,@A 0 @ r6-+?N}(!PRESS TO RETURN TO MENU !!!B(](PRESS ANY KEY TO BEGINoAdAUr# F:Ad,"AUA0 9N}@+90@ ""6@A0@ 6-%@%0@R2N}F:@,$@ @@2@F:@,$@@@(>:, F:B2y,@A0  QN}%2G2@Q @ '0@@' A@ F:N}B2y,@A0A @%2@`@@G2@@a@@i2@@rN}@@2@@@@-@A %2@h@@G2@@iN}@@i2@@@@2@A@@-@A %2N}@`@@G2@@a@@i2@@r@@2@@@@N}-@A %2G2@i2@N}2@$SM(EAll Message Maker data files have the extension .MSG (eg. ANIMAL.MSG)P(S$N}'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,N}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,3N}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,1N}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,3N}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,29N}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,211N},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,19N }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,2N} Ne w MAABR@ADDAUTOMATE JOE J. WROBLE R"} JAN 83 COMPUTE2'6-6-'6-A<;,;,;@,FC#@@R#}E:C@@K:P((( This program helps you to createZ((( a personalized AUTORUN.SYS filed(R$}(( which, following the disk bootn((( process, automatically issuesx((( a set of commands that ..( R%} specify.6-%@'('(Please enter command #.(@@Af@(.( Command #R&}:@Af<(#(Is that correct (Y/N)? 0)@3(<6.>:,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 \6LM BDSHEXASTARAMMLOBUFFESECTOPTHLBYTBUFHBUFLSECHSECLRESULbo} bp}##(} DIETY BY WILLIAM VOLKCOURTESY OF S.P.A.C.E"22SEACOAST PERSONAL ATARI COMPUTER ENTHUSIbq}ASTS,,THIS MASTERPIECE MAKES A BASIC PROGRAM++THAT WILL 'RECREATE' SECTORS, ON DISK55THIS ALLOWS THE SECTORS TO Bbr}E SENT OVER A MODEM--IN THE FORM OF A 'LISTED' BASIC PROGRAMHHWHEN THE CREATED BASIC PROGRAM IS RUN, IT RECREATES THEbs} SECTORS!!! XXTHE PROGRAM WILL PROMPT YOU FOR THE STARTING SECTOR, AMT & NAME OF LISTED' PROGRAM R&;@ ,;@bt},;@,=6.0123456789ABCDEFR6.D: 0.ASCoAdA'Ae@29Af@KAfbu}@]AgA(oAh@2,(,(! THIS PROGRAM LOADS SECTORS INTO<++(#MEMORY, AND CREATES A BASIC PRObv}GRAMF##( TO RE-CREATE THOSE SECTORSP( START SECTOR Z7(HOW MANY SECTORS 1-80 #7!@@_--bw}6-F:AD,%AV$F:AE,%AdS()(INSERT DISK IN DRIVE # 1, THENO( TYPE RETURN TO READ THE SECTORS Snbx} 6-6-x-@ A@6-%@6-%A( X(/($ENTER A NAME, FOR THE 'LISTED' BAby}SICX($PROGRAM, THAT WILL BE CREATED & RUN,I*(" TO RE-CREATE THE SECTORS THAT YOUF( PREVIOUSLY SPECIFIED.I($ (bz}EXAMPLE > D:MOONBSE.ASC$''(CREATING BASIC PROGRAM NAMED "?AA)"@?@@ b{}, AP6 6-@))-A0$@@%A)@J(@ DATA T_-@@2 6-F:b|},16-P:'@,C6-&+$@,Q6-%@_6-%@^(@7<,7<,h6-%@ r(@b}}| @X11THE PROGRAM TO CREATE THE SECTORS ON A DISKb<<LINE TO BE REPLACED WITH CORRECT ASSIGNMENTb~} STATEMENTSlL-6-F:AD,%AV$F:AE,%A36-96-?6-L;@d,qoAdA'Ae@2b}9Af@KAf@]AgA(oAh@v-@$@"-@@2b}5!6-@:7+$@,&@,,56-@:7$@,,['6-+&@H,&+!@d,$@K6-+&@H,&+!@d,$b}@[6-%$@ 6-%@    -@* A 46-%@>6-%A(H b}  6-P:'AV,6-&$AVArAs'Ai@'Ap@6-P:'Ab}V,6-&$AV AxAy6-?:Ad, $  6-6- -@ A  b}6-%@6-%A(   6-P:'AV,6-&$AVArAs'Ai@b}'Ap@6-P:'AV,6-&$AVAxAy6-?:Ad,$CREATE PROb}PER LIMITS(((@ 610 AMMT=:START=$D2:DIETYSECHSECLRESUL`I15,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,2N}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,31N}'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,N}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,N}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,N}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,N}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,N}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,3N}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,3N}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,1N}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,N}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,16N}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,1N}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,N}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,3N}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,N}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,N}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,30N},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,N}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,12N}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,30N},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,16N}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,1N}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,3N}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,3N}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,3N}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,N}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,3N}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,32N},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,N}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,3N}mn^/TDTLLKUPESCPGSUSFILCFRSCROCOFNMFEXTFLSCTFLSCTSPCFILNLNSLILNLBLNSPCCNTLNSIIROICOj})(@HA @ @ Q_j}b@e22@P@ Iinitij}alization11;A,;@ ,;@ ,;@@,11;@,;@,;@,;@P,dM67@,.j} %67@P,. M67@<@P,.7@<@I,n6-@Px4#@@P:4(@@j}Main Menu BAF:A,--(%}РĠ렠̠ ( ( (((j}Press:&#(#( 1 - DOS disk labels0!(!( 2 - Manual Labels2.(.( 3 - Set Label size () 4j}#(#( 4 - Return to 6#(#( 5 - Return to Ӡ:6-$AD AD"@:1, ANj}"@:2, A X"@:3, Ab"@:4,(}l"@:5,.v Ap !Set label size*j} A-@@4$$(Vertical length in inches: >H 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&0,30,30,27,28,126,155,28,155,-1D:MSGMAKER.SAV041 FREE SECTORS2NO MISTAKE WHER;@ , +@@LV J)(!press the '' key and the programJ(will return you to the menu  6)(!--from which you may select other6(optio.}ns. W( (0("ӠŠ٠ϠΠϠW("ANY OTHER KEY REPEATS INSTRUCTIONS # "@'6-# .} + +AR@+ %@## TERMINATES PROGRAM  + D:PATTERN.MKR# ,wHAMBURGER ATARI PD-SERVICE B.JUERSS AMANDASTR.50 2 HAMBURG 36 403 A00/00/91