)@N gũ$% p0*}$)$$H/ ]% hL Q , `e$$%`$%`  R@W1    *  .``fGH` L LY L , H?  0f,(h 0:; < =Ң7x 60:2344  4, LM BDSHEXASTARAMMLOBUFFESECTOPTHLBYTBUFHBUFLSECHSECLRESUL} }##(} DIETY BY WILLIAM VOLKCOURTESY OF S.P.A.C.E"22SEACOAST PERSONAL ATARI COMPUTER ENTHUSI}ASTS,,THIS MASTERPIECE MAKES A BASIC PROGRAM++THAT WILL 'RECREATE' SECTORS, ON DISK55THIS ALLOWS THE SECTORS TO B}E SENT OVER A MODEM--IN THE FORM OF A 'LISTED' BASIC PROGRAMHHWHEN THE CREATED BASIC PROGRAM IS RUN, IT RECREATES THE } SECTORS!!! XXTHE PROGRAM WILL PROMPT YOU FOR THE STARTING SECTOR, AMT & NAME OF LISTED' PROGRAM R&;@ ,;@ },;@,=6.0123456789ABCDEFR6.D: 0.ASCoAdA'Ae@29Af@KAf }@]AgA(oAh@2,(,(! THIS PROGRAM LOADS SECTORS INTO<++(#MEMORY, AND CREATES A BASIC PRO }GRAMF##( TO RE-CREATE THOSE SECTORSP( START SECTOR Z7(HOW MANY SECTORS 1-80 #7!@@_-- }6-F:AD,%AV$F:AE,%AdS()(INSERT DISK IN DRIVE # 1, THENO( TYPE RETURN TO READ THE SECTORS Sn} 6-6-x-@ A@6-%@6-%A( X(/($ENTER A NAME, FOR THE 'LISTED' BA}SICX($PROGRAM, THAT WILL BE CREATED & RUN,I*(" TO RE-CREATE THE SECTORS THAT YOUF( PREVIOUSLY SPECIFIED.I($ (}EXAMPLE > D:MOONBSE.ASC$''(CREATING BASIC PROGRAM NAMED "?AA)"@?@@ }, AP6 6-@))-A0$@@%A)@J(@ DATA T_-@@2 6-F:},16-P:'@,C6-&+$@,Q6-%@_6-%@^(@7<,7<,h6-%@ r(@}| @X11THE PROGRAM TO CREATE THE SECTORS ON A DISKb<<LINE TO BE REPLACED WITH CORRECT ASSIGNMENT} STATEMENTSlL-6-F:AD,%AV$F:AE,%A36-96-?6-L;@d,qoAdA'Ae@2}9Af@KAf@]AgA(oAh@v-@$@"-@@2}5!6-@:7+$@,&@,,56-@:7$@,,['6-+&@H,&+!@d,$@K6-+&@H,&+!@d,$}@[6-%$@ 6-%@    -@* A 46-%@>6-%A(H }  6-P:'AV,6-&$AVArAs'Ai@'Ap@6-P:'A}V,6-&$AV AxAy6-?:Ad, $  6-6- -@ A  }6-%@6-%A(   6-P:'AV,6-&$AVArAs'Ai@}'Ap@6-P:'AV,6-&$AVAxAy6-?:Ad,$CREATE PRO}PER LIMITS(((@ 610 AMMT=:START=$D2:DIETYAy6-?:Ad,$CREATE PROImn^/TDTLLKUPESCPGSUSFILCFRSCROCOFNMFEXTFLSCTFLSCTSPCFILNLNSLILNLBLNSPCCNTLNSIIROICO})(@HA @ @ Q_}b@e22@P@ Iiniti }alization11;A,;@ ,;@ ,;@@,11;@,;@,;@,;@P,dM67@,.!} %67@P,. M67@<@P,.7@<@I,n6-@Px4#@@P:4(@@"}Main Menu BAF:A,--(%}РĠ렠̠ ( ( (((#}Press:&#(#( 1 - DOS disk labels0!(!( 2 - Manual Labels2.(.( 3 - Set Label size () 4$}#(#( 4 - Return to 6#(#( 5 - Return to Ӡ:6-$AD AD"@:1, AN%}"@:2, A X"@:3, Ab"@:4,(}l"@:5,.v Ap !Set label size*&} A-@@4$$(Vertical length in inches: >H APrint DOS Labels--(%} Р'}ĠϠӠ̠ A *-@@*(Enter disk id B:,"A B:(},!@ A   6.-@@33(Put >:@4,>:@4, in drive 1$(then press any key)}. AL-@@V(Printing label for `1'@@D1:*.*1 Aj& A*}6-&6-6@t@~((7@<@,0 FREEA6-A:7@<@,, A+},6-@%$@ ,67<%@,.6-%@ A@@ B'6-@  A'Pri,}nt titlea6-@Y(@>:@,3>:,7@<@#, Available Sectorsa6-%-@-}-@<#6-@%$A%$@ <6-P:'@ ,%@!A@T6.7%@<%.}@ ,96.7%@<%@,T6.7%@<%@,77B:,,4 -6.7@(C5}(Type label in box or,H(Press Ԡ to printR( Π to quit\-@ @( f;6-@ 6}6-@'@;@%@pB2y@z F:B2y,"@A%\F:B2y,"@7}*@@<@@9G@R@\ A F:Ad,"AUA!p@@8})@(>:,!6-F:@,!6-F:@,!@6-@ A!p  '@@9}'@@9 -@@  6.-@ @( - ! "*" A! A% ')@:}'67B:,%@,.>:,   A    A A @ASkip to top of next labelJ";}A@T(@J>:&,^6-h$Print Expanded line$$(@>:@,3>:<}, 6-B:, "AP47@<,AP+-@6@'7<,4 + 6.7@<=},!!(@EG>:@,= @=(@7@}>:@ ,HF(@6-%$(#)#Clear Buffer2#M67@,. %67A,. M67@<A?},.7@<Ay,<#$##Get a keypress###@@K:#-AdAU")@@}-@#$ D:LBLPRT.BAS#Get a keypress###@@K:#-AdAU")@&+, LOADHIADLOADDHIADDLHPEEKAB} GGŧӠɠҠ C}Ӡ͠Š $$****************************** $$* * $$* DECIMAL DUMP TO SCREED}N * $$* *$$* *$$* John C. Allen *$$* E} EVERETT WASH *$$* As of Nov 6, 1980 *$$* *$$* ŠŠҠF}Р *$$******************************<;@,"AR@<0@@@9 (}0(" LIST MG}EMORY LOCATIONS IN DECIMAL3(6(9(&&( This program returns the ''( contents of memory in two"((( H} column, separated odd-even$&&( format, with each memory&""( location identified.26( ( ((2( I}Want instructions (Y/N)6< (} (A<4NA1(}(<( INSTRUCTIONAL MATTERF$!( INSTRUCTIONAJ}L MATTER$(Z((( Enter the starting address,d$$( then the ending addressn$!( when I ask for them.$(xK}N(( I will list the memory loc-K( ations and their contentsN(y&&( The same number of digitsz&&( L} MUST be entered to obtain{'!( the data in columns.$('(|""( Example: 00 99~""( 1M}01 196""( 1234 1267""( 35246 35692%"( NOT 1 1500%(''( N} Enter the number of digits((( you will use(1,2,3,4, or 5)  (5#( Ready to go on? (Y/N)5ARO} (4YA+(Do not pass GO,+-@@4-@A 4(Do not collect $20P}0,-@A /(Go directly toAAR@U-@@\(.p-@@Pt ARQ}@(  ( (AR%(}(" (}"Now for the program...$$(STARTING ADDRESS IN DECIMAL.R}""(ENDING ADDRESS IN DECIMAL.AR@ -,."@( (=F:,.( 6-S}"@( (=F:,-( @,"@( (=F:,,( J+"@( (=F:,+( T}T*"@( (=F:,*( ^ ARh D:LISTMEM.SAV( (=F:,+( ` V} 6-@ 6-@+%6-@=;A(,;@,I6-@[@g6 W}-@m(}0@0@@0@@;6-@;('} --> X}ŠŠ<--66-@6(" --><--6-@( %6-@,( Y}86-@@(L6-@S(_6-@f(m(y6-@(6-@(6-@( Z}(6-@(>6-@(>('The best 'AUTORUN.SYS' file maker ever!p6-@((Select:8(1 [}. Boot 850 interfaceK(2. Fast cursord(3. Run BASIC programp(4. Exit=6-@(=(&Choose some or all, then s \}elect 'EXIT'16-@!-@@1( Selections: /6-@/@@K:"F6-@! ]}-@-6-@9(---> F)@$O6-@"@:1,,-@ C(O6- ^}@%<"@:2, -@!0( <6-@&N6-@"@:3,,-@"B( _}N6-@'"6-@""@:4,@`(6-@ @4<k6-@!-@<( `}@k(&Enter your BASIC to load file w/o 'D:'>"6-@((->"@h6-@(=(& Inser a}t disk to make 'AUTORUN.SYS' onh(& in serial drive #1 and press RETURN!B6-@)@D:6-@:@ b}@ D:AUTORUN.SYSF6-@ A H6-@ A0J6-@ AL c} 6-@( All done! Y&d6-@-67@<@,.RUN D:M67@<@,.>:@4,i67@< d}@%B:,,.67@%B:,,.>:@4,iG6-@!-@G(!àx"6-@ e}"*@AU"6-@"*@AU"6-@"*@"6-@"*@@ f}6-A#%B:,&@6-@*@"6-@"*@@-6-@#Ap--@ g}A#/6-@"%-@#/( =6-@"@d3*@B:,&@= A06 h}-@*@6-@ )6-@)-B:,@6@$6-@$*@@:7<,,6 i}-@ "6-@"*@AU*@AU"*@A&,"6-@"*@@ j}6"6-@"*@A'@"6-@"*@@J"6-@"*@T"6-@"*@ k}@^6-@$r%%162,0,189,26,3,201,69,240,5,232|**232,232,208,244,232,142,105,6,189,26((3,133,205,16 l}9,107,157,26,3,232,189%%26,3,133,206,169,6,157,26,3,160((0,162,16,177,205,153,107,6,200,202((208,247,169,67,141,1 m}11,6,169,6,141''112,6,169,10,141,106,6,96,172,106%%6,240,9,185,123,6,206,106,6,160''1,96,138,72,174,105,6,165,205 n},157''26,3,232,165,206,157,26,3,104,170 169,155,160,1,96,0,0,0,0,00,0,0,0,0,0,0,0,0,76 0,0,0J6- o}!-@ J($砸 #A K-@"(*@:- p}@"D( H K$DD255,255,0,56,75,56,169,80,141,0,3,169,1,141,1,3,169,63,141,2,3@@169,64,141,3,3,169,5,141,6, q}3,141,5,3,169,0,141,4,3,141,9,3EE141,10,3,141,11,3,169,12,141,8,3,32,89,228,16,1,96,162,11,189,0BB5,157,0,3,202,16,24 r}7,32,89,228,48,6,32,6,5,108,12,0,96,226,2227,2,0,56 C6-!-@C( s} #A0 K-@"(*@:-@#D( H K$ II255,255,32,5,100,5,173,34,2,141, t}101,5,173,35,2,141,102,5,120,169,86 HH141,34,2,169,5,141,35,2,88,165,12,133,0,165,13,133,1,169,73,133,12 EE169,5,133,13 u},96,169,86,141,34,2,169,5,141,35,2,108,0,0,8,72,173 ::43,2,201,2,144,3,206,43,2,104,40,76,224,2,225,2,32,5D:BESTAU v}TO.SAV,86,141,34,2,169,5,141,35,2,108,0,0,8,72,173 ::43,2,201,2,144,3,206,43,2,104,40,76,224,2,225,2,32,5D:BESTAU RS 1 FIPIISSULINECOUNICRSRANGLINCOUNCHECKSUNUMBEPRODUCITETOTADATUx}@ @ y}d88 DEBUGGING AID BY ISTVAN MOHOSi""VERSION 2 MODS BY TOM HUDSONn[ +z}([(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:A|}Y,6-*,((ENTER ISSUE NUMBER( A@,* A0*@@A}}0A0f (},(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-%@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, t}ype NEW. Then type:\\(ENTER >:@4,@D:BUG Type LIST after the READY prompt.U(U(JThe} line number of each data statementcoincides with the first line of the88(0user program which the data statement evaluate}s.aa(YNumbers 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 discre}pancy check each number in the data statement.]](7Make note of the lines containing the bugs. Then ENTER >:@4,}D:yourprog&# (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:DCHECK2.}SAVk.:e(_(*Please LIST your program to disk, thenRUN >:@4,D:CHECK>:@4, again.be D:DCHECK2.[H ^ NAMENDRIV%%.**------------}--------------** $$** **$$** READFIL3 **$$** **}$$** GARY CAMPBELL DEC.1983 **$$** **#$$**--------------------------**(-R;@0},;@0,-@?@@9I+R6.2j0@@@70@}=(}g(% ******* ĭŠ *******j(7**(" FOR READING TERMINAL PROGRAM<**(" BUFFERS WHICH HAVE }BEEN SAVEDA( TO DISK.(FFF( Use a prefix such as >:@4,D2:>:@4, forK,,($ files whi}ch are not in driveP,,($ number one. Use a question markU,,($ to get the disk directory. PressV,,($ RET}URN , (without giving a fileW,,($ name) to run ԭŠ. TheZ,,($ screen clear character CHR$(125)_-*(}" is ignored while reading files.-(d(i,( %-@A) ,(n+ A('( READ WHICH FIL}E+p 4% D:PRNTFIL3s4?AxB:, @A5}%%7@<@,4D:A@;;7@}<@,4D*7@<@,4:A@! 6.D:67@,.!6.,( ((( PRESS TO READ ,}*@ @*+^ @@:0@T0@}^ Ae$)@$"A%AU (>:, AU)( ( (()0@@@$$( } $$( ĠƠŠ.$( . A9F:A,"Ap}/6. CAN'T FIND IT9 @PCF:A,"A896. DEVICE DOES NOT RESPONDC @P@F:A,"A`}66. DRIVE NUMBER UNKNOWN@ @P9F:A,"Ae/6. BAD FILE NAME9 @P&( ERROR- F:A,}& A$$*** DISK DIRECTORY ROUTINE *** A'0@@@A0@@@`(} } WHICH DRIVEdl6.D~67@,.=:,67@,.:*.*7@+@@76-@}6-%@ A'@ AE'@#-@(-@ #( A%-@}( AD:READFIL3.SAV AE'@#-@(-@ #( A%-@%hPPHX @ Py9}AU,$-AU368,-7 K-@O"^68,-@u68%A(,-@y Z 27,28,}29,30,31,125,126,127d2;A ,;@2,26.0123456789ABCDEFnG@@'@@9G@@}E:x%(( Page (HEX): %@''B:,"@)B:,"@A`z,($ What? } @-@b2@@@@v-@ z m%2@ @@}9-@ = A c2m A WB:,"@*67@,.7@,C67@}<@,.0W( R 6-@:, A$6-@$66-@:7@,,@ AR6-AV$+%, ( }( 0123456789ABCDEFJ-@! A5-@? AC F(J '( 0123456789ABCD}EF' A ,'$(7%@<%@,0 '$06-F:%@$%,$"AU06-@2 8,( (>:},$:- @H)!@p)!@W* @e0': A@+6-&@H!@ +6-&@$D:ALP}HDUMP.SAV @H)!@p)!@W* @e0': A@+6-&@H!@ +6-&@$D:ALP YZTjNNNNNNNNN1N3CFFNCMDFNDROFAZZZMLRIRDOFZTAQNTY }  } ! }"#$%&'()*+,!!MENUPLUS BY PAUL MARENTETTEK }KVERSION 5.0 COMPILATIONS AND MODIFICATIONS BY MARK WEBER F:AR,"@ F:AR, }@AR@ @ AR @  -@A  o6-6- } 34 AXLPB0NZ<( ((@@d"( } +AdAU0@@@70@@Q0@@@c@@}u@@7{(}AR@++(#++(#| MENU } |++(#++(# @ -@A} $ GG;@@,;@ ,;@@,;A,;@,;@@, "D1:MENU" &&@@}D:*.* 6,6." 6 @0i6-%@(6.7@<@,A67@ <@ ,.}.i67@<@,.7@<@,3 6.|67B:,%@,.367B:,%@,.G67@<@,.(--}@B:,:7<,4 G67<,..] 6.=:, @D67@<@,.7@<@,]67@<@},.0$@(''7@<@,4FREE@- @ 2() <@F''7@}<@,4FREE@K @ P(7@<@,)|U @0W'!-@6+'@,%@' |Z+}+(#| |[ ( |  |\++(#xAR}[@@9'-@@"C( SELECTIONM A0Q[ BP:,A00}"@&6.7@<@,0 AELB6.7+&@,$@%@<+&@,$@%@,L B3}7@<@,4 36.7@<@,!7@<@,4DOS!.0 6.-@B:,07<,4 AH}67B:,%@,.7<,   6.! 6.D1:!67B:,%@,.?AR@'-@@"?  } LOADING ? A@@91@@5%? BK-@@"-  CANNOT RUN 7 }@A BK A0D:MENUAUTORUN .SYSK-@@"-  CANNOT RUN 7 J  ,P ҥ . X0ɀ7Ш` 21 4 2 [ L1 ) 000 0 0 1 c 2 [ $}4 c 1:` 2 < c AC E00D& 'L\䩏,0,06LVLe1i1`) 000ߍҩ$}ҭҍ ) `H) 000ҩh `#,ҍ ҩ(ҩҩ`23`@1` >H>h$}`1E1`   L  51ʩ  F5j4LJ 41*1*> H) 1h )1I-Ӎө15)? @$}5,02424 2H h4 )IL/ LJ @$% C(C$$5%:% $}ؠ.0 $@%H%$%5f DD `=*CEDCH hC $}DD dFCEDF     )"   @       0$}  EFL) ` Ҭ@@@ό@(` Ҏ@ @ (` V >*g)L  *F(    * + L$} $h) * 0 sprL (h  3L !0h% "$#& 0$ .Bh $pC$}P ,   zj LL & fjltu`  $h)ipqL/ V ߰"g)$}+lk 3 $/l/G@jjLL[ j08`(I")>0I(0$G%H  ] (  38(k()$}8(ȥ)FI`$GȘklL] Vg)L+lk L G/Șlpq k L V  *L Vg)i>jl$} IfJJ& %   $ uHtHg)hH + hh rpsq Q$hyhy  3gL>j Lf$}*` V"X%'8  HH`7 8L[ #+) 0 >P?8@f  *!"ʎ= 4 $} <F GȱG L+0  ^LE,=0 *   &$Eʈ$}E ʽE7EȩE,= 0EȩE 3% %`dJ ? ` > J P[  * $}C$P?C[%[ ,( ^  @ C LLB,h    h ^ @tuth,  $} 3L 0 *h + tu  E` > Lh ,C $)C  L$) ` j0@MoL$}nj jMqLp NklL  lNnLoMLN L 6  p) 0>ikIk8$}ljmO Y  L S  f) (`I $(I0`G/IɛIL$}I  L Q ECȱE,= CqECȊqEC  G LL SROTCES EERF $H0 C ) *,-,?, Gh$})H<, GȽG h>, GȄI$ +d   1GI`'DC8C'D 0IGIDC`$}$0Z:ȩ'$. ȩ "* ?'?/ɛ '  'ÝPнP .` !%&p$&$i$}%%h $=H*"" h0Ch h0!)C)зP?Щ !%!$"&#08.`j0$} g j 0#\ lGqfGȽpG  gLtu pqlk`8onH h<LpjЌpq8` $} 05lG)f'G)qȱGpȱGHih0})Hhk`L"!" pnqo`h8$ %ii`E"` )$} dLEfE8$EF h( ,=0(`( dfEFEi (< p0`ɃL @ nH)h$}o7Hn^oji "0 "hEEdEiEȱEiE`h`hQEEd h) hE8EȱEE` 8E QEE$}H.8 pp*qhpp  q`  "! ! !0+&#  $} ! !5E:F .m.  .mm@GHH`(ʎ=<`no K$} g $% 3L*L$./k<, +    8 vI0 `$ݯLL$} .(`DOS SYShChDC .C/`0.m m. }}   $%$}Ll`c 2  ) > * l 4% l P   Tۍ# B o0N#@$}#;  o=0 ,0~ }HH0 lhh` H hED L$}8HIHIۍ V0,0 MLlD:AUTORUN.SYS} h V\ >E ^D5FCECECED$}FF""I өύ@ԍ`ϩ )`  > HCEϼ%' ) Z$4$} ) *` lLz$l|DFqCqE ` KL  (`E:D1:SDUP.SYSHILV lL$ n`  $}`  B L^3JBLVDE`sesdex $N@D1:*.*D:*.*,D8:AUTORUN.$}88P?@     YLW8  Y0  U8 V8 g!8"8`3v83:A%,0@-0@0(L( ֵ)0F:A," }@0(ԠŠŠ*0F:A,"@0(נŠŠ+ ( $2*-%@-#(>:%, }' *$<FH@!@@9-6.D:*.*8B @@H6-PS A0B:, %'6-& }I( 7<, FREE SECTORSS A0ZB6.7<,67,.7,267$%<$%,.7<,8 B( d5 > } &'P:',+(5 A nQF:@,"@(C("PRESS FOR REST OF DIRECTORYGQ @@x 6 }-% @@( 6.6---(%ނ@(,( } PRESS TO RUN AGAIN/(@6-F:@,&C A(!K:()-5(>:,C"@p!"@p }!A@"@p@"@fA"@rA"@gA"@ }A"@A5!"@!A@"@@"@A qq@ }*@u*@h*@v*@*@x*@i*@*@*@wA"@+ }"@"@wA -"@6-#P:- @pg @P A>(!FILE NUMBE }R (ENTER 0 TO ABORT) =>BK6-A:,U A g )!A"%G6.7$%<$%,&67B:,%,..G6 }7B:,%,.7$%@<$%,7<,4 6.7<,, 6.D:-B:,,7<,4 A`67B:,%,.7<, }& "@#4 D:DOS.SYS&."@%"@v"@gA3""@iAP' }"@fAP,="@h6-@3)6.DELETE ,(=(? (Y/N)69"@h A@%@/ @P }9 A@@"@u6-@5J"@6-@6T\"@x6-@2(,(NEW NAME0@67B:,%,. },N67B:,%,.\6.RENAME ^$ A`$ @ph F:A,AgA r] @P;(>:AS, }FILE IS LOCKED; DO YOU WANT TOS(IT ANYWAY? (Y/N)] A@|#@ @P# A@6 A "@3!},@66 API@6#,67,.?@5I @p2((>:AS, *!} INVALID COMMAND *2 A0; @P;(>:AS,* ERROR IN PROCESSING  *)-A  @P) A!}@ K:) $b @P(.( ...JUST PRESS RETURNQ(ENTER >:@4,>:@4,_-%!}@b U (};@,(@R(% MENUPLUS VERSION 5.0U(!(B - LOAD BINARY FILE"!}WW(OC - COPY FILE FROM ONE DISK TO ANOTHER JUST ENTER THE FILE NUMBER YOU WANT#(D - DELETE FILE$(E - ENTER !}FILE%**("F - FAST WRITE MODE WITHOUT VERIFY&(H - PRINTS THIS LIST'( K - LOCK FILE(( L - LOAD FILE)!!(M!} - MAKE AUTORUN.SYS FILE*(N - RENAME FILE+&&(P - HARDCOPY OF DISK DIRECTORY,(Q - QUIT-( R - RUN FILE.&!}&(S - SAVES THIS PROGRAM TO DISK/!!(T - TOGGLES CURSOR ON/OFF0(U - UNLOCK FILE1>'(V - SLOW WRITE MODE WITH VE!}RIFY;(^ - FORMAT DISK>(25.(&PRESS TO GO BACK TO THE PROGRAM25% F:AR,"A  F:AR! },A AR@%AR%;@,(}e*("PRESS TO SAVE MENUPLU! }S V5.0E(TO DISK AS FILE D:MENUe(PRESS A AND TO ABORT 4A%Y (}(SAVING TO DISK'D:MENU! }>(ΠR-@AV Y%D 67B:,%@,.>:AU,2AU4DAU5AP 6! }-C:,6-P:'AV,)AS?AR&AV$P6-?:C:hL,, F:A,AgA (;A ! },"@((},)(!PRESS TO WRITE AUTORUN.SYS,(2#(PRESS A AND TO ABORT'/4A2%..!}@@ D:AUTORUN.SYS\Y(Q}ŠŠàĠŠĠŠԠ!}\((,-@@"(*@, *@AU *@AU*@!} *@@*6-@a%B:,&@4*@>*@@H-@@aR"!}\)"@*@B:,) A!`f*@p z-B:,@6@*@@:7<,, !}*@AR*@@*@AT*@@*@AU*@!}@*@AU*@A#@%ii255,255,0,56,75,56,169,80,141,0,3,169,1,141,1,3,1!}69,63,141,2,3,169,64,141,3,3,169,5,141,6,3,141,5,3 ii169,0,141,4,3,141,9,3,141,10,3,141,11,3,169,12,141,8,3,32,89,228,16,1!},96,162,11,189,0,5,157,0,3,202 ??16,247,32,89,228,48,6,32,6,5,108,12,0,96,226,2,227,2,0,56 $$169,18,141,33,3,169,6,141,!}34,3 ))169,10,141,128,6,76,105,243,251,243$ ''51,246,33,6,163,246,51,246,60,246. &&76,228,243,0,172,128,6,240,9,1858 !}$$60,6,206,128,6,160,1,96,140,33B &&3,169,228,141,34,3,169,155,160,1L 96 C (} (( CANNOT BE@( LARGER THAN !}I:, RAMC( K&;@0,;@,;@,K6.hhEhDBHI V` d(PRESS TO READ !}!(6(FROM SOURCE DISK9(d(PRESS A AND TO ABORT>:AS, & A36-C:,&6- I 6-C:,#!}@@.6-?:<,:6-I6-F:AQ, #@*A6# A3 r@C(%INSERT DESTIN!}ATION DISK PRESS >:AS,G[%@@r%@F:AV, S%@"F:AW,1@@!}<6-?:<,E(DONEP@S%  4A% $ l;@,%AR@+(}7(K-@!}@ X(>:AS,\ b(}l A5 i.(&INSERT DISK TO BE FORMATTED IN DRIVE 1I(PRESS TO FORMATi(PRESS!} A AND TO ABORT   4A% _+AT@D1C(FORMATTING COMPLETE[(FORMAT ANO!}THER DISK_ 4YA5   4N% o((,(ՠŠԠ/(C-@A%G b(! }Ǡšo(>:AS, 0-@AP -AR0$ # (} ;@,# A5  %!!}  +D:MAXIMENU.SAV-@AP -AR0$ # (} ;@,# A5  % &_` PAMPAVISMASTETOTAHUDSOPENNECREDIRENOTHEINGAFOOOTHERCASTOBALANCZWTOFUDGCAAA)#}@@@u?u@u?P@u @% @% @% ?u @%?u@1@)$}7PAbP@7P? WEEKLY-MONTHLY BUDGETBY WALLACE E DUVALL;@,;@, )%}' +'0@4"(ENTER YOUR WEEKLY NET PAY&46-$@(??(7PLEASE ENTER MONTHLY CO)&}ST OF THE FOLLOWING:v-@@(VISA!(0( MASTERCARD3(A( TOTAL GASD(Q(HUDSON'ST(b( JC P)'}ENNEYe(v( CREDIT UNION((APT RENT#-@@ A( A) A* A)(}+ A, A- A.2=9(0ENTER ANY OTHER OUTSTANDING BILL FOR THIS MONTH=3($))}(PLEASE NAME THIS OTHER COST(6 (}7;7(.HOW MUCH IS YOUR CAR INSURANCE FOR 6 MONTHS;<)(%(HOW MUCH GA)*}S FOR ONE WEEK)A.(*(HOW MUCH FOR FOOD FOR ONE WEEK.F0(,( ENTER UTILITY COST FOR THE MONTH0K0(,( H)+}OW MUCH CASH DO YOU NEED A WEEK0P#( (#(ONE MOMENT PLEASE...U-@AZ _AYd),} (} ( MONTHLY BUDGETe(ic( TAKE HOME PAY(VISA-( MASTERCARD7(TOTALD(HUDSON'SR( JC PENNEYc( CRE)-}DIT UNIONnU (RENT(( INSURANCE.( GAS FOR CAR7(FOODE( UTILITIESU( LIVING CASHs-AY@4)-@).}A- x-@@ Ay( Az( A{( A|( A}( A)/}~( A( A( A( A('@ A($@ A)0}($@ A( A($@ AII6-%%%%%%%%+'@,%+$@,%+$@,%)1}%+$@,"? A0((MONTHLY PAY = $ 6-&(MONTHLY COST= $(BALANCE = $)2}%(!(HIT RETURN FOR WEEKLY% 6-6-'@6-'@6-'@6-'@6-')3}@6-'@6-'@6-'@6-'@;6-'@6-'@-6-'@;6-)4}'@6-'@(A-@@=(! A  ((()5}WEEKLY PAY = $ 6-&(WEEKLY COST = $(BALANCE = $>-@@>($ WEEKLY)6} BUDGET 6-?  A (@@$X@@%( G2)7}@0@@[-@@0_ 2$D:BUDGET G2(f<=5dxNSATTNNNHMZCCNUDIQTOTOTOTOTOTA0 A~ @@-9}@A -:}̠ˠ + 99CHANGE L-;}OOP IN LINE 330 TO ADJUST TIME SPEED +#V&9@,9@,;@ ,26-@>6-@J6-A-<}V6-( (} ((( TIMER(2( DIGITAL CLOCK/CALENDAR<U( ( (( OPTIONS((1( 1 - SET D-=}ATEC( 2 - SET TIMEU( 3 - SET TICKA+( 4 - SET ALARM+( 5 - START CLOCKFF( ( (( WHICH OPTION"((}F->} @)!@@pP//AApA@AZm(ALARM TIME (H, M, S)$m!6@*-?} @$*!6@* @`*!6@* @`@`d0&(ILLEGAL TIME (24 HOUR FORMAT)!0 @n&(CURRENT DAT-@}E (M, D, Y)&x A6-A%68@,-@1-68@,-@)B68@,-@1W68@-A},-@0l68@,-@168@,-@068@,-@168@,-@168@ ,-@068@-B},-@168@,-@068@,-@1&&!* 8,%@AP> A 4( ONLY HAS A MA-C}X OF8, DAYS!> A!!@)@)A`$$"P:'@,$@A`H>(THE NEXT LEAP YEAR I-D}S@%P:'@,$@!H A @`&(CURRENT TIME (H, M, S)&LL!6@* @$*!6-E}@* @`*!6@* @`@`0&(ILLEGAL TIME (24 HOUR FORMAT)!0 ApC+(#DO YOU WANT SOUND OF TI-F}CK? (Y OR N)/74YC6-@ @`_ +@@),@'@;,@'@"M,@H@-G}_,@H@"+6-@!AR@+ A `6-@6- A6-@26- A-H}6-@R6- A%6-%@% @`A6-%6-%@% @`A6-I}-6-%@" @$A,6- A 6k"@12@E@@E--J}@I k2@--))& @)&!@A0Ec)2@+@$,-K}@@=-@5A c2@J-@` O0@@^-L}A@hA0r A |DIGIT OUTPUT*-@@&68,-@*  A%@ $-M}68@,- A$l68@,--68@,-B68@,-W68@,--N}l68@,- A$-68@,--68@,- A$-68@,--6-O}8@,- A$B68@,--68@,-B68@,- A$-68-P}@,--68@,- A$-68@,--68@,- A$&W68@-Q},--68@,-B68@,-W68@,-0 A$: A$D768@,--R}-68@,-7 ApN AX b-@@l (8, Av -@-S}@(8,A @ A $ A%@$*,%@ '/%@%-T}@ *$2,%@%@//%@%@ 2$*,%@'/%@%@*$ ,/%@-U}$ ,/%@$",%@/%@ "$*,%@'/%@%@*$ 6-P:'@,-V} A6-%@ 6-&@$ A*$4 A %@$>6.JANUARY A PH6.FEB-W}RUARY A PR6.MARCH A P\6.APRIL A Pf 6.MAY A Pp6.JUNE A Pz6.JUL-X}Y A P6.AUGUST A P6. SEPTEMBER A P6.OCTOBER A P6.NOVEMBER A P-Y}6.DECEMBER A P$X A (}1(  , 4(U(ALARM SET FOR ::X$E6-Z}-%@E!8,)+"@)*P:'@,$@,A A `$16-%@6-@1 @A -[}'6-@6-%@' A l++(# PROGRAMMA D2:CLOCK.DIG @A ,o FILETXYUDOWRIGHLEFYEPLACMENSKETCHPMOVCHECMIRROBLOPATTERNMAKFILFETCINSTRUCEXINAMECHEFI1]}LERRORESPONSAGAIKEFFCHOICDRDESIGROIMAG<$@i@@@E@a1^} @B @C @ A AAAAPAAA A AA A01_}A@AA%A@@'@@% @!@s"@`#@B$@4%&@'@1`}()*@ $$  D:PATTERNS by Frank Roberts!!Generates1a} repeated patternsfrom user created designs$$211;@0,;@0,1b};A,;A,7c6-@i6-@'6-@36-@E?6-@aK6-@BW6-@Cc6-@:1c}6-A<"6-A"PIVOT OF PROGRAM>!6-A!DRAWS SKETCHPAD@&6-A&ACCEPTS USER DRAWINGB%6-A1d}P%CHECKS VALID DESIGND#6-A#MIRROR PARAMETERSF6-AINK BLOTH6-A PATTERN ROWSJ61e}-A MAKES DESIGNSL$6-A$STORES DESIGN DISKN%6-A %GETS DESIGN FM DISKP6-A0INSTRUCTIO1f}NSR$6-A@$TERMINATES PROGRAMT#6-A#CHECKS VALID FILEV 6-A% FILE NOT FOUNDX"6-A"CO1g}NTINUATION KEYZ6- c$$ GET USER INPUT SUB dM@.@@K:;)@1q}4bDIETY SAVb$LABELPNTSAVbALISTMEM SAVb"UBESTAUTOSAVbMENU bwDCHECK2 SAVbREADFIL3SAVb ALPHDUMPSAVb;MAXIMENUSAVb&DOS SYSb"BUDGET SAVb$8DIGCLOCKSAVbA\PTRNMKR SAVbCHECKBALSAVbAUTORUN SYSbPOLYCOPYSAVb WEDGE OBJb WEDGE DOCbMFONT SAVb;CPLAYMISLSAVb~NEATLISTSAVMAdAUf8F:A,*A86-&A(g$i46-@:7<,,6-@:7<,,"$4X,Y C1r}OORDINATESj# 6-%6-%$#UPPER LEFTk.6-+@$&,%6-% $.UPPER RIGHTl- 6-%6-+@$&,% $-1s}LOWER LEFTm86-+@$&,%'6-+@$&,%*$8LOWER RIGHT## CHECK LEGAL FILE NAME ^ +@@1t})AR@;AdAUO-@@Z(@^ E$(@ ENTER NAME OF FILE/(@:(@1u}E(@C#(@ return C(@ ϠΠϠ ( B:," II@:71v}@<@,,!@d*@:7@<@,, @A ? +@@)AR@4(@?(@1w}{ (@ FIRST LETTER<(@ OF FILENAME\(@ MUST BEGIN WITH{(@ A LETTER (A-Z)1x}/(@/(@ ŭҠŠ( ((}( AB:, @A$%%7@<@1y},4D:A%%%7@<@,4C:A%! 6.D:67@,.!6.$## PREPARE SKETCHPAD 1z}) +@@)AR@AdAU,@S@3'/@S@9/@'@K-@'1{}@2]Ae@@@S:1 @,@'@31/@S@3 1|}@ ( s()+B:,",6.%6.16-@=6-@G@],%@(%@i6-@1}}s AP -@B:, ,%@(%@ / @#,%@(%@/6-1~}/,($ draw tart/Stop drawing/(&&(rase design uit drawing.@.@@1}K:W## USER CREATES DESIGN X)@MOVE ROUTINEYPF:A,*A4 A1}PDISABLE INVERSE VIDEO KEYZMF:A,"*A@d4 AMDISABLE LOWER CAPS KEY]((@1}(,%@(%@^ " _" "*(6-@" A`Q *"6-!@7,%@(%@1}D67B:,,.Q67B:,,.b "6- d/ "6-&@# /6-@$f/ "6-%@#!1}@$/6-g/ "6-&@# /6-@$j/ "6-%@#!@$/6-kY671}B:,%@,.>:,567B:,%@,.>:,?U,%@(%@Y l# @#,%@(%@ ##1} CHECK VALID DESIGN B:,!@ ) +@@)AdAU&-@@"(@1}& ""(@ YOU DO NOT HAVE$$(@LARGE ENOUGH DESIGN##(@ TO MAKE A PATTERNj(@1}(@9(@ DO YOU WANT MORED(@O(@j(@ (Y/N) "@ @x1}Ap6-6- ## MAIN MENU ROUTINE M +@@)AR@;A1}dAU>'MMENU ROUTINE (@ pattern maker""(@ by frank roberts6(@(@6(1}@ 0 ;(@;(@ 1 +(@+(@ 2 1}'(@'(@ 3 '(@'(@ 4 *(@*(@ 5 1}*(@*(@ 6 +(@+(@ 7 7(@(@7(@ Y1}OUR CHOICE ? AdAU!! @H)!@UA 6-&@HAdAU%@1} SET UP MODE FACTORS /6-@`6-@ %+@/ A0*/6-@`6-@%+@1}/ A04%6-@@6-@%+@>-6-6--AR@HB:, @ R--(1}%ӠŠ٠ϠЯԠ\*(*COMMAND FOR SCREEN DUMP GOES HEREz--(%Ӡ٠Ҡ٠ϠΠϠ1}## DRAW PATTERNS FM DESIGN0@-@@!!"@*!@A e1}"@6-%@$-@B:,  %>F:Ad,"@(*AdAU. :@'> 1} ,   @  =6-%@$6-&@$-6-%@9 @= G6-@@1}6-%@H)6-76-%@C @G    STORE DESIGN B:," 1}  @@L @ @@: +@@+-@@1}6(@: (P(@ IS FILED'(@2(@P(@ Ӡ٠٠2    FETCH D1}ESIGN ; +@@)AR@;AdAU 6.6.   @@1} A  @@ @*6-@  "" FILE NOT FOUND ERROR U 1}+@@)AR@;AdAUUCHECK FOR NO FILE FOUND &-@@"(@&  !!(1}@ FILE NOT FOUND /(@/(@ ϠՠԠϠ ##(@ ˠ٠ +(@+(1}@ (Y/N)     1 +AR@1AdAU 1@1@@1}D:*.*( A'2 @< (F 6- A& @ +(+( ϠՠԠϠ٠1}ΠٯΩ   "  6-  "" GET INSTRUCTIONS 'AdAU'AR@1} R)(!When you choose option you willR($see a sketch pad like the one above. --(%(PRESS ANY KEY FOR MORE INSTRUCTIONS1}) # +#AR@ K+(#Use the keyborad arrow keys to plotK(a design on the sketch pad. O*("All bl1}ack lines or points drawn onO( the pad will be stored in memory Q'(to be transformed into designs *(Q("Any line or p1}oint color other than J"(black will not be plotted.J(#You may change the color at anytime (by pressing the '' ke1}y. N(.(#Pressing '' will erase your designN(so that you may start again -(-("When you have the design you want,1} J)(!press the '' key and the programJ(will return you to the menu  6)(!--from which you may select other6(optio1}ns. W( (0("ӠŠ٠ϠΠϠW("ANY OTHER KEY REPEATS INSTRUCTIONS # "@'6-# 1} + +AR@+ %@## TERMINATES PROGRAM  + D:PATTERN.MKR# 0wOPAMSGMSG1MSG2MSG3MSG4MSG5MSG6OUTSTANYOURBABANKBAPERAMOUNOUSTANDI(Fd5} A @P  ]];@0,;@@,5};@0,;@0,;@0,;@0,;@0,;@0,6-2 +(/( ˠ5}2((PP(HYOU MAY MAKE CORRECTIONS AT ANY TIMEBY ENTERING A NEGATIVE DOLLAR VALUE.) ( 2((6.OLD CHECK -- STILL OUT5}STANDING<%%6.OLD DEPOSIT -- NOT CREDITEDF##6.OLD CHECK -- JUST CLEAREDP&&6.OLD DEPOSIT -- JUST CREDITEDZ''65}.NEW CHECK (OR SERVICE CHARGE)d##6.NEW DEPOSIT (OR INTEREST)D AP@(-ENTER BEGINNING BALANCE FROM YOUR CHEC5}KBOOKD ( I A`E(2ENTER BEGINNING BALANCE FROM YOUR BANK STATEMENTI (  B A5}.@.(PRINTER IS NOT OPERATIONAL. (PLEASE CHECK CONNECTORS.6-?;(2WOULD YOU LIKE A PERMA5}NENT RECORD ON THE PRINTER?B:,"A$$7@<@,4NA$$7@<@,0Y5}A A3TEST PRINTER6-@%%3YOUR BEGINNING BALANCE IS $"2/3%BANK STATEMENT BEGINNING 5}BALANCE IS $231 A(1(CHOOSE ONE OF THE FOLLOWING:((1) ((2) ((3) ((4) 5}((5) ((6) ((7) DONE(%% @)!@A B??AA A05}A@APA`Ap2"6.NEW CHECKBOOK BALANCE IS(6-2 A7'6.NEW BANK STATEMENT BALANCE IS5}-6-7 A6&6.OUTSTANDING CHECKS-DEPOSITS=,6-6 A!  3& A$$OLD CHECK -- STILL OUTSTAND5}ING 6. A 6-%$''OLD DEPOSIT -- STILL NOT CREDITED 6. A 6-&$ OLD C5}HECK -- JUST CLEARED  6. A 6-& $""OLD DEPOSIT -- JUST CREDITED 6. A 6-%5}$33NEW CHECK (OR SERVICE CHARGE) -- JUST CLEARED 6. A 6-&+'(IS NEW CHECK STILL OUTSTANDING+5} ( B:,"AP0$$7@<@,0NAP` 6-&3CHECK HAS CLEARED.$$$5}7@<@,0YAP0 6-%''3CHECK IS STILL OUTSTANDING.$p00NEW DEPOSIT (OR INTEREST) -- JUST 5}CREDITEDz 6. A 6-%/+("HAS YOUR NEW DEPOSIT BEEN CREDITED/B:,"A`0$$7@5}<@,0YA`` 6-%&&3DEPOSIT HAS BEEN CREDITED.$$$7@<@,0NA`0 6-&5}**3DEPOSIT HAS NOT BEEN CREDITED.$X DONEbgg(_BANK'S BALANCE (MINUS OUTSTANDING CHECKS-DEPOSITS) SHOUL5}D NOW EQUAL YOUR CHECKBOOK BALANCE.c ( l6-&+&,vAp@{@<(IS $* THE ENDING BALANCE ON YOU5}R BANK STATEMENT@|B:,"Ap5}S7@<@,4YP(/CONGRATULATIONS: YOUR CHECKBOOK BALANCE5}S!S~ Ap`T!J(YOUR CHECKBOOK TOTAL IS $ OVER YOUR BANKS TOTAL. T Ap`??(YOUR CHECKBOOK 5}TOTAL IS $6 UNDER YOUR BANKS TOTAL.++(#WOULD YOU LIKE TO MAKE CORRECTIONS?PP(HREMEMBER, YOU CAN ENTER A NEGATIVE5} DOLLAR VALUE TO MAKE A CORRECTION.( ENTER Y OR NB:,"7@<@,4Y$?5}MSG PRINTING ROUTINE@( $J"@3 $T$MSG PRINT & INPUT ROUTINE* A&(ENTER AM5}OUNT FOR * (  B"@3 $$ D:CHECKBALUT ROUTINE* A&(ENTER AM4YWXHCVYEERASCOKKDSDSNXK1XKCIMAAPNIOBUFYKKHTOFSESPLIADDROOBYTSIZ@AV@=}@@ @A  @ A ` @C @IAB@5APB=}G(`@@AVB@ Au(+( POLYCOPY =}- ATARI version 2.06,  (Space for P:'A%, sectors)/ 66-6 AP"@@!   AU!"=}@%# A5(< 6-&! Type 'Y' if o.k.+ A5. <A5-% 6-6-6-6-% @U2=}  A%7 6-C:,6-<% !6-& AE% A@A, 6- A0 @(, F#  =}Loading # AK; @  6-1  Contin'g ; AP/ 6-F:A,/ApA=}U@   not found,@ "..do you want to try another disk?Z? AP "+ Insert new disk5 A0? @=}e_ 68<,-6-% @`d68<,-iG6-?:<<@<<,)6-F:AQ,G A()"A6An=}  Ap @s0  size=68<,-0"A6A%x /6-}   + 6-%=}6-&!!6-%+ @`) AE6-%)!@` @P " $&  Insert 'to' disk=}& A0'6-8<,6-8<,'"A - 6- A06-@%"-6-%; A "=}"1  Append'g ; Au Writing   size=6-?:<<@<<,6-F:Ag,* A=} * A(A #Ab Ap# A G/ &Disk full, try another? 9 A5GA=}5 A @36  " Insert new disk, A06 AU" 6-6-6-'" @P=}  6-% AU$, 6.D:"67,.7$%<$%,, A`  䡡 AU"@=}  b A%)@D:*.*/ 56-<6.b !íѭ! !=}B:, @A 4 6.-@$"@467B:,%,.. 7<,4 Au67B:,%,.7<, =}4DOS.SYSAU( B:, (67B:,%<,. - 6- A-6-A:7@<@,,"M  %=}@ +@"0 <@(C ?M A@'*"@g >:@0,C* A, >:,"@=}A 1 AU6'67B:,%,.6-%'"A ; AU@  $E Insert 'from' diskJ , press=} any key!O A@ >:,$T# )"@''# A5Y$^ A@ $c%  Any more files?% =}A5h46-F:Ad, Ad&4"@(A5m$rC [] I/O error on = ...skipping to next file!=}@ C$w""ŠӠǠš|2 +-@@2  ŠԡS6-6-@#6-%=}+6-%36-%;6-$G6-AVS6-B16-@-AV#6-&1K:,6-@,;@,=};$,9&<,B6-A `-@B!")%- BA F:A,!!104,104,104,10,10,10,10,170!!104,=}104,157,66,3,104,157,693,104,157,68,3,104,157,733,104,157,72,3,32,86,228189,72,3,133,212,189,73,3133,=}213,966-AB6-@5R6-Au6-APR堧䠧易󡠛5 A`=}5"F >:A%, #-@' + 4 CONT:-F@&- =}6-I:,&;,#6-&- @ D2:POLYCOPY #-@' + 4 CONT:-F@&- <;h % &$  + d$` `PDEIH B V0`Ll$WEDGE A3 (10/05/83)E"`ȩA}ȩ䝭ii` >ɛ(`V;ͩ Πـ ȱ(L- 5 ͐A}Li͐LȄ̱͍ȱ͍l.˩(`DIR /DIR DPRINT /DPRINT DESTROY!LOCK!UNLOCK!RENAME!/FOA}RMAT1/!/FORMAT2/!/HELP!"SPRINT#KILL# #D0:*.* !L !2 L 1 P B VPBJĝD E VLl$PA}BDD EEHH V0 B V䭯  !L !P B V "L& PBI˙8̝He̝DiE VLl$L& !LU!A}#LU!$LU! LU!1 L!2 BĝD E V0L Ll$ "@BD#EJ VLl$ `@D E BHI A}VLl$` @ B V`J#䍱䍲\D"EHI B V0L#L#}COMMANDS: DIR (D1:)/DIR (D2:)DPRINA}T (DIR to Printer)/DPRINTDESTROY/FORMAT1/ (D1:)/FORMAT2/ (D2:)/HELPKILL (Disable Wedge)LOCKRENAMEUNLOCKSPRINTRESA}TORE=USR(7936)% & Lt8TL& #J#P B VPBD#EJ VLl$TRU J䍱䍲D#EA}BxHI V0GPD#E BxHI V0&T#0#JP B VL& H#JLm$P:l$$H "A}P B VhL@D#E BxHI V0&T#0#JP B VL& H#JLm$P:l$$H "@WEDGE.OBJModified from COMPUTEBy Marshall DubinCOMMANDS AND DIRECTIONS:Boot up by renaming WEDGEOBJfile to AUTORUN.SYE}S on new disk.The screen will say WEDGE.COMMANDS:DIR - print disk directory to screen/DIR - print drive 2 directory E} to the screen./HELP - print a list of commandsSPRINT - print the screen to printerRENAME - (D:OLDNAME,D:NEWNAME)E} --may be done from BASICDESTROY - deletes files... DESTROY"D:FILENAMEKILL - disables WEDGE (You may NE}OT go to DOS without using KILL first! To restore the WEDGE after using DOS, enter: X=USE}R(7936) and WEDGE will be re-enabled./FORMAT1/ - format drive 1/FORMAT2/ - format drive 2NOTE: No verification iE}s used for /FORMAT1/ or /FORMAT2/. The '/' is required before and after the word FORMAT!To get a list ofE} available commandstype /HELP.DPRINT - will print the directory contents to the printer./DPRINT - will print drE}ive 2 directory to the printer.To get a list of available commandstype /HELP.Ignore the ERROR 14 Have fun!E}Marshall Dubin (1-22-84)o the printer.To get a list of available commandstype /HELP.Ignore the ERROR 14 Have fun!D%&3&FNEORCAXFRCLEARBCAUESCCLFDNCCCCC10CPC25C55C1C6C75CHBAC25CC1DC56C56CC1C1I}2ACONSOXYCC1CC1XCHACCSASAORIC2C12LI@I}@@ I} !"#$%&I}'()*+,-./0123456I}789:;<=>?@A ""CREATE-A-FONT by Vince ErcegI}PROGRAM WRITTEN: 8/2/83(2o Ao;@,;@,;@,;@%,;@2,;@B,9,I}9,9,;,;,;,7n6.>:@0,!6.>:@),)6. 267,.;67,.L67@%,. U67,.n6.ERDICSLFI}T-=+*UKQ:AFB6.>:@',+ A .-@2">67,.>:,B K%-@2"!67,.>:,% P' -I}#68&,-P:#%?P,' Z26-F:,&6-+%,$&A#2BBy_/B2w6-&/6-?:C:,<BsD<$,J}d1+ A8AU%1B7tnW 6-$'6-?:C:,<&$<$,9AAHEAWAJ}AHxQB2HAh'B2PAh9B2QAhEAQA}'AB2V'B2J}XKAR-%-@1/-%%C(>:$@2%,G K =B2Y!-&A&'+ =J}B2SA`36-F:,%F:,$%$%&@-&3S-%A%A%-3%@C%%J}ApS%%ApQ%%A2@ ! +6-%$5 A;6-G@FQ A02 -(ditJ}(everse'(ata2(nvert9 (lear( ave Font)( oad Font9( rom (Copy)K@@!-@/(J} o (Copy)K(>:AV, Scroll UPY(>:AW, Scroll DN=(>:AX, Scroll LeftY(>:AY, Scroll J}RT\ (ndo( olor change&(uit2@>-@Y(ntic 4/5 Atari\$2 6-A!AJ}2F:,"A F:,"A/-%@0%()-%@0%/(  R:,"*T:,*F:,"A(J }T:,A  6-R:,F:, A06-%+!* ,&+!* ,336-%+",%+",%+",&+",&+",&+"@,J }  6-" !6-,  6-6 !6-@8 -%@0% (*-$. 8 AJF:,"@J }9@fTFK:)96-$+!@A* @,F(A^--@7<,0>:,# - J }AhA A@APAAA APAAA0APApAA0J }A@A`AAPr^ A6-@&0-A`@@6<B2SD-%H(P6-&^ AJ}| *-A`B2S! '-*$(T:,A A A1 6-%$-#68,-J}F:%,' 1 A P6-%@1&F:,(2, 6 A p= ApA8!-/-@#%9(FJ}:%,=  - ( PRESS JOYSTICK ;(BUTTON TO CONTINUE'1%%1-%%;(>:, --5 J}-%%(>:,!-%%-(>:%,1 5 T:,A3A8AU Ap) A3 AH -J}68,-F:%$, '-/-@%$%8&,D H  A p1-%@2#2' 1 A pJ}H Ap((5(FILE (dev:filename.ext)9C A H -A#86-F:%,%J}%**F:%,. 8 ApU (>:AS, SAVE COMPLETE.-A2 < ApAK AU A&H AJ}p((5(FILE (dev:filename.ext)9C ApH+-A#0( )%% ( J}Ap52 (>:AS, LOAD COMPLETE.-A2 :& Ap A& A0Dj 6-6- Ap6(J}LOCATE CHARACTER TO COPYT(AND PRESS JOYSTICK BUTTON^ Ad6-j6-N4 -%F:%$%, * Ap4 AJ}X: --(%$%F:%$%,, 0 : Abl 6-6- Ap2(LOCATE CHARACTER TO H(REPLACE AJ}ND PRESS\(JOYSTICK BUTTONf Al6-lF 6--$%$%F:%$,( 2 Ap< AF AvS -J}68,-F:%$, (6-8,0->68&,-8,B K68,-S-K-6%$%8,92A&$&@J}= A K A pN -68,-F:%$, (6-8,3-6A68,-8&,E N68,-C-6-%J}%$%8,12$5 9 C A p) -68,-F:%$,)68,-8,$$ 8,!68,-8,&$ AB J}--&%$%8,024 8 B A pB -68,-F:%$,&6-8,'/"P:,868,-B A J}68,-P:,%D --&%$%8,22&6 : D A p$ -%8, $ A PJ}W Ap A@+(COLOR REGISTER/2(=(COLORAD(S( LUMINANCEW?6-%A? A)!A)J } )!) )!A@C $%"AF:A,, Ap6 AC(A  A`Y Ap+(PRESSJ!} 'Y' TO EXIT PROGRAM0>K:E)Y"@A! Ap A! A ;-@1-%F:J"}BsD%&%P:',,1 ; A p6+@4B2w''3A86 1%%6-*9 6-6-J#}1%%%-%%9(>:%&$+",,4' -R:,"*T:, ' A>(T:,A H -%%(>:,RVJ$} 6-R:,&6-%+!* ,&+!* ,V6-%+",%+",%+",&+",&+",&+"@,\  6-@1f!@16-J%}p  6-z !6- -  A !6-& A C++!* @,)+!@1* @eJ&},96-&@2C A @!6* @26-% -%%(>:,$B 2-%@1'-:J'}%F:%+&,',> B  A> 2-%@(0%+&,'F:,4 > AG6-?:C:,:,@-%@ $+",@"&+",J(>:J.},N e A`jN -%-@!,(>:AV,0 : ApD AN At+ --@!$(>:J/}AV,( +$~D6-A6-@Q,F:%,"A86-@D6-ApK-%%A-'%1J0}%%;%%K%%A2E  -&&7$+"@,%$+"A,; E AJJ104,104,133,204,1J1}04,133,205,104,69,204,133,213,104,69,205,133,212,96ii104,104,133,213,104,133,212,104,133,215,104,133,214,162,4,160,0,177,J2}212,145,214,200,208,249,230,213230,215,202,208,240,96ALMOST DONE!!- 6-F:,%F:,$%A-%J3}, - (>:AA,,AR#(>:AA,#%=-@8-%(>:AA,+-9(>:J4}AA,= ] -1(#'THE ULTIMATE CHARACTER SET EDITOR'4(7(](! Created 8/2/83 by Vince Erceg]-@@"J5}/(PRESS TO BEGIN=%@4Q%@!@P]BBw; #A0!-A6AT%"+/ ;J6}@4.6-?:A6,-@.( PLEASE WAITB-6BBw&BBv.-:2$> B  J7}2[ARA!AS';-ApA?"EI W-@B[" 67,.>:, #$J8}EE104,173,31,208,201,6,240,10,232,142,10,212,142,25,208,76,1,6,96]]0,0,0,48,50,37,51,51,0,179,180,161,178,180,0,52,47,J9}0,35,40,33,46,39,37,0,36,41,51,48,44([[33,57,0,44,41,51,52,0,0,0,0,0,0,0,48,50,37,51,51,0,175,176,180,169,175,174,0,38,47,J:}502bb0,36,41,51,43,0,36,41,50,37,35,52,47,50,57,0,0,165,88,133,203,165,89,133,204,160,0,166,0,240<jj13,185,34,6,145,203J;},200,192,38,208,246,76,148,6,185,73,6,145,203,200,192,38,208,246,169,155,141,26,2FEE165,0,73,1,133,0,96,104,104,133,204,10J<}4,133,203,104,133,206,104ZRR133,205,166,206,160,0,169,0,145,203,136,208,251,230,204,202,48,6,208,244,164n**205,208,240,J=}198,204,160,0,145,203,96x- Ap A`-D:*.*?-@!6.7,?7<,4 FREE SECTOJ>}A`+'"P:',-+%,'!(+ A@-+%,'( ;( ('(PRESS ANY KEY TO CONTINUE1 ApJ?}; A>( ( (END..PRESS ANY KEY* Ap4 A> A  F:,  Ap AJ@}K6-6-@#6-%+6-%36-%;6-%C6-%K6-%3 6-%6-%6-%#6-%+6-%36-%JA}; 6-%6-%6-$'6-A36-A';6-%S6-AU6-%#6-AY+6-%36-%?6-AVG6JB}-%S6-B2y$D:FONT36-A';6-%S6-AU6-%#6-AY+6-%36-%?6-AVG6H%RhTRAKKKKKKK1K1K1K1K1K2K2K2K25K51ATRACSDMCTPCOLRCRSINHPOSPSIZEPGRACTPMADPMBASBISALND}CSWMPQTOCCSCRPWWXYYYYXXXWPMSAZPMSAVNE} NF} !"#$%&NG}'()*+,-./012345NH}6789:;<=>?&6-F:A,&@&A o+NI}@%@/0@@ @:(@E(@d(@ PLAYER/MISSILEo(@ (@ NJ} DESIGN AID6-6-@'6-@36-@?6-@K6-@W6-@c6-@o6-@{6NK}-@6-@6-@"6-@#6-@'6-AV6-A(c6-@w6-AY'6-A36-NL}AR?6-B2HK6-B2VW6-B2wc6-BByF 6-$%P-%Ah Z 6-%@4dGNM};@,;@,;@,;@,;@,;@,O6.+W6.d6.Shift o6.All {6.Line 6.NN}Blank n'6-B6-'6-@FxP&;@,;@,;@,:6. Push FIRE to P6.Pos Cursor for NO} -$ $+00$( ' @'A A!@#6-NP}@#"@$6-@#' 1%6-A('6-%@ -%(>:,6-6"6-%*-. 76-RNQ}:,@6-T:,"*A -%(>:,A  "A 6-@:,"6-@:,V -%NR}(>:,6-%$6-F:,;6-P:#+&,%?P,D"@:,L6-%V A` 6-& 6- AANS} 6-R:,(T:,Ap,* 6-6-!*  6-6* A 6!@* 6-@."@)")"@NT}$6-6. A5J")"@ )"6-O "**6-T 6-%6-%W  Y *Ae^"NU}Ac3"@!)"6-6-) A3 Ae(T:,AWh# 6-6- AP# Am !6NV}- Ar  6-w A|(T:,A  6- A !6- A 6-&NW}AA A0A@APA`ApAAAAA#A"AA ANX}AA) A6-6-6-) A* A6-6- 6-6* A6 A6-NY}6-6-%6-,6-66 AP5 A6-6-6-%6-+6-5 AP+ 6- A6-&!6-+ ANZ}$ 6-6-6 A$ A0 6-6-6-6 A&6-0 AP/ 6-6-6- A%6-N[}/ AP+ A% A! A+ A A AP@ 6-6-6.7<,$ A`*6-66-AN\}@ A 6-(A0 !6- A   6- A$ A$6-P:#+&,%?PN]},& -1%&"@:,AP& 6-%6-F:,6-&& A& -%( :# 6-" AP# N^}A? A AD6.7<, AN6.7<,XB 6-6--(& A,6-86-AN_}B Ab 6-Ael 6- A$ --( + 6-%6-6-! A+ Ap5N`}-&-#1%%--%%5(>:,8 -%(>:, 6-%*6-F:%,4 A8  AP Na}--&51%%-%%!(>:,)-%1(>:,5 = -%(6-%!6-F:,("636-P:',= ANb} 6-$6-&  A  Ap " -@( "$; A (Color" ANc}; )!)P:,A 6-$@I A ( Luminance& AI )!@)P:',$A  6-%Nd} A P Ap4 6-F:,-@(@!1(COLOR= 4$, -#( )-,Ne}$/ --(-&-%+(/ % 6-%6-6-! A%  -( COMMANDS:- -(Nf}!-@-(--@(!--(--@(!--($- -Ng}(!-@ -(%-@(&-@('-@(Column0 -( ChNh}ange Mode35-@!( Change Width'-5(Poke P/M8:-@( Set Color*-@:( Poke ColorBWNi}-@( Save Data*-@9( Load DataC A$M A"PW A PG  $L6.Change  A`~Nj}6.Select  A` -( A 2$E -( Processing!-((., B2AP@Nk}E$22@P@!-% /22$xF 6-6-/@@K:9 A?F(Nl}?$)@$"AUA-"A&6-P:',#( - A?!@G* @X-6-$%+&@HNm},5(>:,? A (} A@( $+ -#(Enter Poke Values +-' -Nn} A'"A A )A 6- A! -(   Ap68 6-%6-F:, ANo}$-+( .'8 Ap@V A -#( Poke Color- AV ))P:'@,$@AJ6-Np} A 0!-6!F:%,A =  -'(No P/M Data to Save /-3 = Ap ' A%Nq} A 6-h#@@C:+6-%46.=:,> AK6. DATA U A^6.=:,h A,Nr} 6.=:, A"6.=:F:,,, A) -6-F:%,6.=:,) AB 6.-1 A-*@AUNs}8@B Ap& -#(Ready Tape Recorder &$*@@D*-B:,#*@@:7<,,' *$Nt}lO A% A6-' A-6-O2qF A-@@C:5Nu}-B)@F vQ A 6- A$' A -6-7 A"PA A GQ A P. - A Nv}!"@E$'. A 6- A! @ Ap= 6--@$)@0"@D3'=Nw} A "@E' A 6-$%A:>:,, *$4-6-A(--%- A! >(6-&Nx} A!0H(R$ 6-' 6-%! A$$ "6- A"0 "6-@ A"0 6- Ny} A"P Ap' -@$@!$(W='$/ A"@F%6-@b/ A#0 6-@F > Nz}A$- 6-F:%,(%0%4 > Ap` % -@!(M=%6-j %6-%@4%"@FAN{}$0t 6-A$%@h~  6-$%$ (T:,A% J A -"(Confirm, A61%B6-AN|}(J6-% @ -%(>:,6-6"6-%*-. 76-R:,@6-T:, "*A% % -%(>:,'% N}}Ap $D:PLAYMISL.BAS6"6-%*-. 76-R:,@6-T:, "*A% % -%(>:,'% L$uvN"8RDERINBUFWIDTTVCODEOUTPUPRCOLINLPMAINLOONWPATITLTITLEPAGBLANKOUTBUFWRAFLAGFIEOFILERSPCNR}DEV R}d BINITALIZER}x??MAINLOOP ================================================ @ BTURN OFF TRAP 6-R}6-@ OUTPUT TO TV 6-6-@ TO PRINTER&@ , @ T6-@R}h |??TITLE PRINTER============================================06-&B:,&@" @06-%@B:R},"6-@37@<,PAGE  3 3$??WRAP-AROUND LINE PRINTER============================R}===== 6.B:,!A0"@6-%@D  $X!@6- AlH-R}6@%6.7<,.6-@:,:!A'H6-&A(MM+ @H,)++!@W,*+ @e,,)++!@,*+ @,,R}A1 + Unable to break at word boundry16- 7@<,"@6-%@86.7%@,R}8SHIFT OUT CHARACTERS JUST PRINTED A@??PAGE SKIP SUBROUTINE===================================== +"R}3>:@,$+FORM FEED  -4 3 H*@w*RESET ATTRACT MODE\6-%@p$??FILR}E ERROR SUBROUTINE ===================================AR@  CAN'T FIND FILE}@-R}@A AR A$>>INPUT READ ERROR========================================8F:R}A,"A6 L F:A,A7A@`% Input line too long% A`t Error F:A, ***#R} Stop or Continue (S/C)# 4C' >>EOF HANDLER=============================================$  R} $  *** END OF TEXT *** AR'>>===================INITALIZATION========================R}'SUBROUTINE ADDRESSES$'W6-A@6-A '6-A 36-A`?6-A`K6-AW6-A8'6-@R}VERT SPACINGL' 6-@f LINES PER PAGE`'06-@76-@0COLUMNS PER DEVICEt',6-@,LINES BETWR}EEN PAGES, 0=>FF'&&;A,;A0,;A,'&&;@,;@,;@,'ZZ6.P R} '6-@PAGE NUMBER'6-@LINE NUMBER'@R}@S:(##@@P:(?0@@70@@?BROWN(("" R}} PROGRAM LISTER<(%%  by Marshall D. AbramsP(&AR&TURN CURSOR ONd(3 / #FILE/DEVICE NR}AME (Default Casette) 3x(%B:,"6.C:% B(//DEFAULT TO casette IF NO DEVICE SPECIFIED(-@R}B:,(07<,4:&6.7%@6-&@J66}-@T A2 O:,"6-@&6-&@26-@'8,!@6-@'6-8,"( AT6}:,(6-,'6-%@!@' A68,"A;(68,-8,&(8, @A6}@''A0A@APA`JQ &,@@H&8,&0@G,@@H&8,Q AT6}Q &,@%8,%@H0@G,@%8,@HQ A^Q &,@@H%8,%0@6}G,@@H%8,Q AhQ &,@&8,&@H0@G,@&8,@HQ AI"6}@/"*"*!@=6-&@I6-%!@6-% A%6-&@%!6}A!ApU # A@/6-K6-P:H:,$,%@U A&`6}%6-P:H:,$@%@,+6->8,)"J6-V6-` A06 @ A@6H:6},$!?PA:Z68,-&@ AQ$6-+6-65@Z6AAA A0X%6-&@6}%!Av!ApU # A@/6-K6-P:H:,$,%@U 6}Ac%6-P:H:,$@%@,+6-A8,)"O:,M6-Y6-c A6 @ A@6}6H:,$!?PAZ68,-&@ AQ$6-+6-65@Z6AAA A06}!,@@R&! A!,@v%@H! A!,@@D%! A!,@&@H! 6}A1 @1AA A0A@m,@@A)/@@H&3 AP=O,@6}@Ac/@@H&m APm,@@H)/@%@H3 AP=O,@@Hc/@6}%@Hm APm,@@U)/@@H%3 AP=O,@@Uc/@@H%m 6}APc,@s@H)/@&@H3 AP=O,@s@Hc/@&@HA`A6}Ap$$.-68,- 6-%@* AR-$8?0@@' AS1?6-%@P6}BH"@ A@30@?6-E6-H$L< A@'0@36-6}96-<$0@@'@;-@I6-@&W6-@%e6-@H&s6-@H%6}0@@$6-@&2@%@'2@@!%@K2@6}@'%@o2@@@%@u,{////  *-@6}6@86-@&F6-@%T6-@H&b6-@H%~2@2@@6}2@@ Y2@@0%,+/1/7/=/Q-@@ U Y | +@6}-@@N(@!your base was destroyed!!!`-@@|(@YOUR SCORE WASr-@6}@"(@4-@@S(@THE TOP SCORE WASe-@@ r(@ !6-6}F:,@ AU" T:,A`, AT:,"A!46-R:,"@6}*6-@4 A 5%"@6-@% A 5%"@6-@% A 5%"@6-@% 6}A 5"@6-$4"6-@>$ ''A0A0 A00A0@ <,@6}@B',@y@C9/@@C<$ <,@@H',@@G9/@@I<$ <,@@T6}',@@S9/@y@S<$ <,@t@H',@u@I9/@u@G<$**O:,AAAB6}ACAD**O:,AAABACAD{,@x@H&+/@@H&?,@@I&6}S,@@I&g,@x@I&{,@@P&.,@y@Q&+/@@Q&.$h{,@%@F6}+/@%@P?,@y%@PS,@y%@Hg,@y%@F{,@x%@Hr.,@w%@G6}+/@w%@I.${,@x@H%+/@@H%?,@x@G%S,@@G%g,@@G6}%{,@@F%.,@y@E%+/@@E%.$0{,@&@F+/@&@P?,@&6}@PS,@&@Hg,@&@F{,@&@H:.,@&@I+/@&@G.$\-@6}@032@@7 Y2\$o -@6@F2@@P6}&@$@J l2o$Pb%2@A@@9-@@= 6}_2@b$6-@@B6-%@!A ?2@B$.+26}@@+AP&,'@.$|6-@&-A2A@@U-@@ 6}Y {2-@@     $'##MARK BALDWIN, AT190, 07/13/81D:STARBASE6}.SAVs'=ALNALNABASSFHMISMISTSPBESTARNRNGNXALNPALNPALNTRNALNTASCUSTRICONSOTRI4