@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr 00@Px4P:D:*.* Desk Menu Options 90D00 Info....  Instructions Write a Check }Print a Check --------------- Quit   Draft NLQ Italic } 01 MMM DD, } 1xx  CHECK WRITER  by David M. Acklam 1991 }  12 for  DIAMOND (tm) GOS  and  Epson FX (R) compatible p }rinters BJK D0E V BD0EHI V BD0EHI V B V 0 }30 23    L@8L3L6Lk<Lj8L7Lb3 }L6LT7   BJK D0E V BD0EHI V }B VL33 34 INSTRUCTIONS 1. Select write a check to open a  blank check on the s }creen. 2. Click on a check item to be  entered, make your input and  press return to enter it. }3. Note that the escape key clea45rs  the complete line entry. 4. Click on the next item to enter. 5. When a}ll entries are made, then  click on OK. 6. Use the Option menu to select  the printer style yo}u desire. 7. Set up your blank che56ck in your  printer and then click on print  a check to print your entries}. 8. Select write a check to write  your next check. 9. When done, click on quit. &}3煂3   L367   BJK D0E V B}D0EHI V B VL3   BJK D0E V B}D0EHI V B D0EHI78 V B VL3 BJK D0E V BD0EH}I V B V 0 %x11   L3 BJK D0E VL8 BD8EH}I VL8 BD8EHI V BݝD0E89/HI VL8 BD8EHI VL9 BD}9EHI V B D1E9HI VLP9 BOD9EHI V BHD1E,HI VL9 B}D9EHI VL9 BD9EHI VL9 9:BӝD9EHI V BuD1EHI VL:} BD:EHI VL6: B5D:EHI V B VL3j: } Date 19 $ :;Pay to: } Dollars } For: ;< OK } DT| $ (h 8@ PX8P`h&xa:}N<  L<L<L=L=LL=L=L>Lk (1<!}.< ɛLm2G` ɩLQ z Y( X;CHECK WRITER FOR DIAMONDX;VERSION 1.0X;DAVID ACKLAM(X;MARCH 19912EI<>D:SYSEQU.M65F>D:LIBRARY.M65P#}>D:DMACROS.M65Z>D:IOMAC.M65dX;n0xX;RPRINT =@=SCHARSZ10 =P=SETNLQ =x==SETITA$}LICS =4=F_SPEC1 AP:A=F_SPEC2 AD:*.*A=MENU A Desk A= A Menu A= A Options A==!ME%}NUTREE MENU1=MENU2=MENU3MENU1 A Info.... A!MENU2 =======% ==A Instructions A===% &}==A Write a Check A===% ==A Print a Check A===% ==A---------------A==="% ==A Quit '} A===,MENU3 = ====6 ==A Draft A===@ ==A NLQ A===J ==A Italic(} A===TX;^X;h@DATETEXT A MMM DD, ArQPAYTOTEXT A )} A= ;B$|?DOLLARTEXT A A'FORTEXT A *} AX;X;INFOOBJ  INFOTEXT== =INFOTOUCH =x==x=JINFOTEXT A A= =+}==A CHECK WRITER A= = 3 ==A by David M. Acklam 1991 A= = - ==A ,}for A= = / ==A DIAMOND (tm) GOS A= = - ==A and A= = 3 ==A Ep-}son FX (R) compatible printers A=X;X; START&)OPEN ===F_SPEC1;;OPEN PRINTER0(PRINT =RPRINT;;RESET .}THE PRINTER:&PRINT =SCHARSZ10;;SET TO 10CPID CLOSE N INIT XSETMENU MENU=MENUTREEb-MENUENABLE ==/};;DISABLE DASHED LINElAMENUCHECK ==;;CHECK INDICATES DRAFT IS DEFAULT SETTINGvWAITEVENT ;;POLL EVENT HANDLE0}R$QEVENTTYPE;;CHECK FOR MENU EVENT*R>;;CHECK IF A MENU ITEM WAS SELECTED HWAIT+QEVENTTYPE;;WHICH MENU WAS SEL1}ECTED? HWAIT1;;MENU 1 OR 2 SELECTEDQEVENTTYPER>,BE INFO;;INFO WAS SELECTED FROM MENU 0 !WAIT WAIT12}R>HWAIT2;;MENU 2 WAS SELECTEDQEVENTTYPE $R>;;WAS INSTRUCTIONS REQUESTED?9BE INSTRUCTION;;IT WAS SO GOT3}O INSTRUCTIONS ROUTINE $R>;;WAS WRITE A CHECK SELECTED?*:BE WRITECHECK;;IT WAS SO GOTO THE WRITECHECK ROUTINE4$R>;;4}WAS PRINT A CHECK SELECTED?>9BE PRINTCHECK;;IT WAS SO GOTO PRINT A CHECK ROUTINEHJ!QUIT;;QUIT WAS SELECTED SO END THE P5}ROGRAM AND RETURN TO THE DESKETOPR WAIT2\QEVENTTYPEfR>;;WAS DRAFT SELECTED?p+BE DRAFT;;IT WAS SO GOTO DRAFT M6}ODUALz*R>;;WAS NEAR LETTER QUALITY SELECTED?BE NLQMODUAL!ITALICMODUAL DRAFTQ>PB0;;MENU #2Q>P7}B1;;ITEM #1Q>+PB2;;PUT A CHECK MARK ON THIS SELECTIONQ>MENUCHECK DIAMONDQ>PB0;;MENU #2Q>PB8}1;;ITEM #2Q>$,PB2;;REMOVE CHECK MARK ON THIS SELECTION.Q>MENUCHECK8 DIAMONDBQ>LPB0;;MENU #2VQ>`PB19};;ITEM #3jQ>t,PB2;;REMOVE CHECK MARK ON THIS SELECTION~Q>MENUCHECK DIAMOND-OPEN ===F_SPEC1;;OPEN THE :}PRINTER(PRINT =RPRINT;;RESET THE PRINTER CLOSE ;;CLOSE THE PRINTER !WAITX;X;INSTROBJ  INSTRTE;}XT== =INSTRTOUCH ====X;>INSTRTEXT  == =A INSTRUCTIONS A= 2 ==A<}1. Select write a check to open a A= 2 ==A blank check on the screen. A= 2 ==A2. Click on a check item =}to be A= (2 ==A entered, make your input and A= 22 ==A press return to enter it. A= <2 ==A>}3. Note that the escape key clearsA= F2 ==A the complete line entry. A= P3 ==A4. Click on the next item?} to enter.A= Z2 ==A5. When all entries are made, thenA= d2 ==A click on OK. A= n2 ==A@}6. Use the Option menu to select A= x2 ==A the printer style you desire. A= 3 ==A7. Set up your blank cheA}ck in your A= 2 ==A printer and then click on printA= 3 ==A a check to print your entries. A= 2 =B}=A8. Select write a check to write A= 2 ==A your next check. A= 2 ==A9. When done, click onC} quit. A=X;X;INSTRUCTION)DODIALOG &==INSTROBJ=INSTRTOUCHEVENTDIALOG RELEASEDIALOG  !WAD}ITX; NLQMODUALQ>"PB0;;MENU #2,Q>6PB1;;ITEM #2@Q>J+PB2;;PUT A CHECK MARK ON THIS SELECTIONTQ>MENE}UCHECK^ DIAMONDhQ>rPB0;;MENU #2|Q>PB1;;ITEM #1Q>,PB2;;REMOVE CHECK MARK ON THIS SELECTIONQ>MENUF}CHECK DIAMONDQ>PB0;;MENU #2Q>PB1;;ITEM #3Q>,PB2;;REMOVE CHECK MARK ON THIS SELECTIONQ>MENUCG}HECK DIAMOND-OPEN ===F_SPEC1;;OPEN THE PRINTER-PRINT =SETNLQ;;SET THE PRINTER TO NLQ CLOSE ;;CLOSH}E THE PRINTER& !WAIT0ITALICMODUAL:Q>DPB0;;MENU #2NQ>XPB1;;ITEM #3bQ>l+PB2;;PUT A CHECK MARK ON THIS I}SELECTIONvQ>MENUCHECK DIAMONDQ>PB0;;MENU #2PB0;;MENU #2Q>PB1;;ITEM #1Q>,PB2;;REMOVE CHECJ}K MARK ON THIS SELECTIONQ>MENUCHECK DIAMONDQ>PB0;;MENU #2Q>PB1;;ITEM #2 Q>,PB2;;REMOVE CHECKK} MARK ON THIS SELECTION Q>MENUCHECK* DIAMOND4-OPEN ===F_SPEC1;;OPEN THE PRINTER>(PRINT =RPRINT;;RESET TL}HE PRINTERH5PRINT =SETITALICS;;SET THE PRINTER TO ITALICSR CLOSE ;;CLOSE THE PRINTER\ !WAITfX;pX;zQUIT)M}OPEN ===F_SPEC1;;OPEN PRINTER(PRINT =RPRINT;;RESET THE PRINTER CLOSE ;;CLOSE THE PRINTER EXIT N}EXECDESKTOP X;X;INFO'DODIALOG %=x=INFOOBJ=INFOTOUCHEVENTDIALOG RELEASEDIALOG  !WAITX; X;O} PRINTCHECK )OPEN ===F_SPEC1;;OPEN PRINTER$ PRINT ;;LINEFEED. PRINT ;;LINEFEED8 *PRINT =DATETEXT=P}/;;PRINT THE DATEB PRINT ;;LINEFEEDL PRINT ;;LINEFEEDV :PRINT =PAYTOTEXT=9;;PRINT PAYTO AND DOLLAR AMOUNT` Q}PRINT ;;LINEFEEDj 5PRINT =DOLLARTEXT=,;;PRINT THE DOLLAR AMOUNTt PRINT ;;LINEFEED~ PRINT ;;LINEFEED PRR}INT ;;LINEFEED 1PRINT =FORTEXT=;;PRINT REASON FOR CHECK PRINT ;:LINEFEED PRINT ;:LINEFEED LEAVEPRINTS}CHECK CLOSE  !WAIT X; X; OBJLIST ;;Text STRING =   ;;END X;( STRING2 , A T} A= < , A Date 19 A= F , A $ A= P , AU} Pay to: A= Z , A A= d , A A=V} n , A DollarsA= x , A A= , A W} A= , A For: A= , A A= , A OK X} A= X; FILTERINPUT 3 =============== 3 ===========Y}==== X; FILTEREXIT 3 =============== 3 =============Z}== X; TOUCH  D=T==;;DATE  |===;;YEAR"   =$= =(;;PAY TO,  h=== ;;$6   ==8=@;;DOL[}LARS@   ==P=X;;FORJ  8=P=`=h;;OKT  ^ X;h WRITECHECKr X;DISPLAY A BLANK CHECK| 5Q>&;;CREATE DIALOG BOX TO L\}OOK LIKE A BLANK CHECK PB0 Q>x PB1 Q>4OBJLIST PW0 Q>5OBJLIST PW0 Q>4TOUCH PW1 Q>5TOUCH PW]}1 Q>DODIALOG DIAMOND LOOP Q>EVENTDIALOG DIAMOND& QB00 R>;;OK CLICKED?: BE OKD R>;;DATE CLICK^}ED?N BE DATEMODUALX R>;;YEAR CLICKED?b BE YEARMODUALl R>;;PAY TO CLICKED?v BE PAYTOMODUAL R>;;$ CLICKED_} BE DOLLARMODUAL R>;;DOLLARS TEXT CLICKED? BE DOLLARTEXTMODUAL R>;;FOR CLICKED? BE FORTEXTMODUAL R>`};;RETURN PRESSED? BE WRITECHECK !LOOP X; OK RELEASEDIALOG !WAIT X; DATEMODUAL Q>;;STRING LENGTa}H PB0* Q>;;START AT CURSOR4 PB1> Q>;; EXIT ON RETURNH PB4R Q>;;X POSITION OF TEXT\ PB5f Q>;;Y POSITION Ob}F TEXTp PB6z Q>4DATETEXT! PW0 Q>5DATETEXT! PW0 Q>4FILTERINPUT PW1 Q>5FILTERINPUT PW1 Q>4c}FILTEREXIT PW2 Q>5FILTEREXIT PW2 Q>TEXTDIALOG DIAMONDQB0R>;;RETURN PRESSED? BE LOOP$!DATd}EMODUAL.YEARMODUAL8Q>;;STRING LENGTHBPB0LQ>;;START AT CURSORVPB1`Q>;; EXIT ON RETURNjPB4tQ>!;;X POe}SITION OF TEXT~PB5Q>;;Y POSITION OF TEXTPB6Q>4DATETEXT+PW0Q>5DATETEXT+ PW0Q>4FILTERINPUf}TPW1Q>5FILTERINPUT PW1Q>4FILTEREXITPW2Q>5FILTEREXIT  PW2Q>TEXTDIALOG DIAMOND(QB02g}R>;;RETURN PRESSED?< BE LOOPF!YEARMODUALPX;ZX;dDOLLARMODUALnQ>;;STRING LENGTHxPB0Q>;;START AT CURh}SORPB1Q>;; EXIT ON RETURNPB4Q>;;X POSITION OF TEXTPB5Q> ;;Y POSITION OF TEXTPB6Q>4PAYTOTEXTi}-PW0Q>5PAYTOTEXT- PW0Q>4FILTERINPUTPW1Q>5FILTERINPUT PW1"Q>4FILTEREXIT,PW26Q>5FIj}LTEREXIT@ PW2JQ>TEXTDIALOGT DIAMOND^QB0hR>;;RETURN PRESSED?r BE LOOP|!DOLLARMODUALX;X;DOLLk}ARTEXTMODUALQ>;;STRING LENGTHPB0Q>;;START AT CURSORPB1Q>;; EXIT ON RETURNPB4Q>;;X POSITION OFl} TEXTPB5Q>@;;Y POSITION OF TEXTPB6Q>4DOLLARTEXTPW0Q>5DOLLARTEXT& PW00Q>4FILTERINPUT:Pm}W1DQ>5FILTERINPUTN PW1XQ>4FILTEREXITbPW2lQ>5FILTEREXITv PW2Q>TEXTDIALOG DIAMONDQB0R>;n};RETURN PRESSED? BE LOOP!DOLLARTEXTMODUALX;X;PAYTOMODUALQ>;;STRING LENGTHPB0Q>;;START AT CURo}SORPB1Q>;; EXIT ON RETURN PB4Q> ;;X POSITION OF TEXT PB5*Q>(;;Y POSITION OF TEXT4PB6>Q>4PAYTOTEXTp} HPW0RQ>5PAYTOTEXT \ PW0fQ>4FILTERINPUTpPW1zQ>5FILTERINPUT PW1Q>4FILTEREXITQ>5FILTEREXIq}T PW2Q>TEXTDIALOG DIAMONDQB0R>;;RETURN PRESSED? BE LOOP!PAYTOMODUALX;FORTEXTMODUALQr}>;;STRING LENGTHPB0Q>;;START AT CURSORPB1$Q>;; EXIT ON RETURN.PB48Q>;;X POSITION OF TEXTBPB5LQs}>X;;Y POSITION OF TEXTVPB6`Q>4FORTEXTjPW0tQ>5FORTEXT~ PW0Q>4FILTERINPUTPW1Q>5FILTERINPUTt} PW1Q>4FILTEREXITPW2Q>5FILTEREXIT PW2Q>TEXTDIALOG DIAMONDQB0R>;;RETURN PRESSED? Bu}E LOOP !FORTEXTMODUALX;X;(I2X;<EIFX;PZ START + ++ $&$ + +++ ! + >:IDWEIGHTY w}   `x}`  p `PPx@@ ```p`` @`````p``p𐐈 y}0 `@ `0P  @p p `0`P`@@` 0@@@ А`@ Ppz}``@p `pp𐐈p`p80`88p `PPp `@@ `@P `p@@ А```` @ {}p` @`8 888 `0`P@@` @`  @ `𐀐 ```@|} p@  `@`` `pp  `0x8 p @ p P@ @@`@@ @@ @ ``ؐ}}` p@p  p@``@ `0  @x8p p `P h@@````@`@@@`p``p``P``~}`` p`pp@pp`0p`P`p`  8 }``UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTUSUL} U0 m3``m3xnm`fy|>UUUUUUUUUUUUUUUUUUUUUTUUUCUU<UT0 UT UT UTUT UU<UU31UU3}31UU331UU331UU331UU331UU331UU331UU331UU331UU331UU32 Check Writer for Diamond (tm) GOS6 This is my second} effort at programming a Diamond8applications program. Again, I am still learning the ins5and outs of both the Diamond enviro}nment and assembly4language programming with MAC/65. The source code is8provided for those that wish to use or improve on wha}t I5have attempted to accomplish. I have found that I can1expand on efforts from previous ideas and program:techniques Alan R}eeve has provided in his programmers kit.:Also, Kevin Packard has provided source listings that have7been helpful and informa}tive. My next effort is a lablemaker applications program.5 Check writer is set up to match the lawout of my7personal c}hecks. I think this is fairly standard but if2yours are not the same, I think the source code is:commented enough that one ca}n adjust accordingly. If I can9locate the checks that have tractor feed holes, I plan to8make adjustments to the print portio}n of the program. At8present, I run a draft test copy to my printer paper and:then procede with the blank check. Using remova}ble tape, I2tape a blank check to my tractor feed paper in the7appropriate location. This is even on the left with the8paper }perforation line. I then line the top of the check;with the top of the print head. Print spacing is set in the.program to sta}rt at the date line on my check.: The dollar text line is limited so not all values can8be spelled out. If the wording i}s two long then I simply8enter a numeric value, i.e. 2,345 ****** no/100. Another9short coming is that I was not able to get }the lower case.letters to work. This may be a problem with my9implementation of the text filter for the textdialog. Let3me no}w if you have any other problems or better yet9improvements to the program. Enjoy and use as you see fit/to develop additiona}l applications for Diamond. Regards,& David M. Acklam:.( 1.SPIRAL DISSOg/* Etch-A-Sketch for ATARI *//* A Big D Software Product */int c,x,y,tx,ty,px[228],py[228],a,draw;int t1,t2;char *cursor };main()$( pmcinit(); title(); graphics(23); pmgraphics(1); pmwidth(0,0); initcolor(); while }(draw==0)$( do$(tx=paddle(1); ty=paddle(0); plmove(0,228-tx,ty,cursor); a=ptrig(1); } $)while(a==1); draw=1;do$(drawit();$)while(draw==1); if(draw==2) $(menu();$)$)pmclear(0);pmcf }lush();$)init()$( int i; i=28; cursor="\20\0\0\0\0\0\20\20\50\50\20\20\0\0\0\0\0"; for(tx=0;tx!=97;tx++) } $(py[i]=tx; ++i; py[i]=tx; ++i; $) i=159; for(tx=205;tx!=44;tx--) $(px[tx]=i; } --i;$) draw=0; pmclear(0); c=2;$)title()$( graphics(18); position(6,1); cputs("-1",6); } position(5,5); cputs("FOR ",6); init(); position(0,9); cputs("PRESS start TO BEGIN",6); d }o$( a=peek(53279); $)while(a!=6);$)drawit()$( int b; color(c); do$( } x=px[228-tx]; y=py[ty]; plot(x,y); tx=paddle(1); ty=paddle(0); plmove(0 },228-tx,ty,cursor); a=ptrig(1); b=ptrig(0); $)while(a==1&&b==1); if(b==0) $(dra }w=2;return;$) draw=0;$)menu()$( char *temp[3];int a; swap1(); pmgraphics(0); position(7,0); } cputs("",6); position(4,2); cputs("",6); position(4,4); cputs("",6); } position(4,6); cputs("",6); do$(position(4,9); cputs("",6); clear(temp,3); a=choice(te }mp); $)while(a<1&&a>3); if(a==1) $(ccolor(); swap2(); pmgraphics(1); draw=0; } return;$) if(a==2) $(swap2(); pmgraphics(0); graphics(23); pmgraphics(1); initcolor(); } draw=0; return;$) if(a==3) $(swap2(); draw=3; return;$)$)ccolor()$( char temp[3]; } clrscrn(); position(6,0); cputs("CoR",6); position(2,2); cputs("0 = ERASE",6); position(2,4); } cputs("COLOR 1",6); position(2,6); cputs("color 2",6); position(2,8); cputs(" 3",6); do$(positio }n(2,10); cputs("Choice? ",6); clear(temp,3); a=choice(temp); $)while(a!=0&&a>3); c=a;$) }swap1()$( poke(87,2); clrscrn(); t1=dpeek(88); t2=dpeek(560); dpoke(88,8192); dpoke(560,1536) };$)swap2()$( poke(87,7); dpoke(88,t1); dpoke(560,t2);$)choice(temp)char temp[];$(char key,a; int b; ke }y=copen("K:",'r'); a=cgetc(key); switch(a)$( case '0': temp="0"; break; case '1': temp="1" }; break; case '2': temp="2"; break; case '3': temp="3"; break; default: temp="4" }; break; $) cclose(key); b=val(temp); return(b);$)clrscrn()$( int i; for(i=8192 };i!=8492;++i) $(poke(i,0);$)$)initcolor()$( pmcolor(0,0,0); setcolor(0,2,8); setcolor(1,0,0); se }tcolor(2,6,10); setcolor(4,0,15);$) Сh0# 67A,. hН`#$:D**̠Š *@@dbcKV  Q@ $  $  $K@ "N@Q@@  +$  -$@ -}$@    "  0)  9'@    0  "@   }  AA5A $  $  $/A "2A5A@ A 0)  9'cA  0A a) } f'A  WA A)  F'A  7AA     "5A }  &BB*B @   E $ B*B "A $>B     E  r$nB} B w$B B a$B B        #D   } &B 3C  CC    E   #D 3C     #D 0}0 XC UC   x   #D &C   H F    } C  ED  DD   #DD 0    fD } "#  OE7D # &|D  $  $   :%   :%   :%D }F E   E  E  EE   . E &KE   .    } E a& % nE z( %xEE  A& % E Z( %EE  00 }     E00 0u E00FF0!0D: FG  )C    0   H }C H  H E U  F T  E       #D  F  XC T  E U } FH  UC U  F T  E        E GH H E   E U  F} T  E       #D p   E |   E x   E    E} G .GG G.GG  GG !HG G .GH  H. H HHH  HH >HH}$0 &>H  # @)]H  H   )H  eH #  E }E   &HH S:HI j E  K j j E  E  F uI K  E  K }  E  K   E uI   E j j E  E  F  J /  $I :I *} E   E $I I KKIJ  $I I K  &JI "I   E} KIJ / " E  E  &JYJ "@J   E   EOJ  }E      E    EJK     EJ J     E K} K K  K  K E  K   E     E   K  E}  K  K    E   EKKK  KKLHDM   F  uI }JQ{V $L  \GR \GR R R V K  pGyVyV $VLL {VM{V $nL\L{V $}L}sNL K=I  4RV RR a%LLR"R#L T   R " T  LM R "L } RR ,%,MMR#R"L R R   #M {V K R   F   F FR  C   F} MR  CL F WR  C  EyVyV %MMR Q.1>QLQ R}QTQ.2TQbQ RQjQ.3jQxQ RQ{QQ RQQ{Q 3C   @   ,!%QQ} "Q EQRQ J   F  F   F   F((}-1FOR PRESS start TO BEGINCoR0 = ERASECOLOR 1co}lor 2 3Choice? K:012RR34pppG A00L2Li0L0L0L0L1LP1L^1L1L1L1L1L1 3تʎL0}8L0إ M0ԆLk4L0 HȱHL0JH J3lhhh hhBhhDEhhHIhhJhhK VIi}``hhh) BHI V0`L0hhhhh) BHIL0hh01hhh L 1`hhhhh}hhL41`hhhHlhhhhhhh ``Ls1hhh`hh}hhh`hhh𪈱`hhhȱhh`ҩhhh) 12hhhh) hh)`dbc@2}L+2CL 3@Щ2ѭ@ҭ@LP2@ J2M2l  t2عu2l`'0;3a3r3333333334474O4k4444}45 5 535Z5j555555$646C6L6h6{6666666664dbc 1 run-time-error ""Type a 23key to return to DOS.2 B}D2E8HI Vl J3؅ԘLP2ЅȱЅ٥iА` J3؅ȱ؅LP2 J3e؅ԥeمLP2 J3ԑLP2 J}3ԑȥՑLP2 3ԑإ8ҥLP2҅ȱ҅` 3ԑȥՑL3ԅԄLP2ԪȱԅՆL34P2BL 3 J3؅ԥمLP2 4}ȥՑLP2iҥi `AL 3Ա҅ԊȦձ҅ՊLP2 4 J3Рȥёҥ؅ХمLP2҅ȱ҅ i2إ8؅ҥL}P2б҅ЊȦѱ҅ъLP2 J3؅ХمLP2L4eЅАLP2 J3L4 J3e؅ҥ45eمAL }3LP2&LP2eԅȱeՅL38ԅȱՅL3ԍՍҍȱҍ 7ԭL3 z5ԭL3 z5ԭL3ҍ}ȱҍDL 3դLB7ԅȱՅL3EԅȱEՅL3%ԅȱ%ՅL3҅ȱ҅Ff56L3ȱ҅L}3҅ȱ҅&L3Ա҅L38ԅԩՅLP2EԅԩEՅLP2LP2LP28ԅȱՅ` W6}ʆL3 W6ԅL3 W60 W60 W60åп W60ՐнԐՐЪԐ67Ր} ԐLq6Ր԰L6&&& L<7 `ɀE ɀf8ਊ} 7$ 8$P 8`E0 IIL78L7Ff e78}eFfff$ 8`2-@!@( COMPUTING POINTS 6-+&,'6-+&,' 6-&6( Etch-1 for the Atari computer This program was written in Deep Blue C as a simple, but useful, drawing tool for yo}ungsters.While it isn't very sophisticated, it is very easy to use.Instructions: Loading the program.Boot using DOS }2.0,2.5, or any compatible DOS. If using DOS XL 2.3 and higher, you must use the LOAD Dn:ETCH1.COM from the command line} or INARY LOAD from the menu. Atari DOS users use the L option, then use Dn:ETCH1.COM to load. Using the program:} When you first load ETCH-1, you'll be greeted with a title page.Plug a pair of paddle controllers into port one. After} hitting start, you'll see a white sreen with a small cursor. You are in "Positon Mode". Find out which paddle controls }the Left-Right movement of this cursor. The button on this paddle controls the Draw Mode. Press this button once (use a }quick click), and you're in Drawing Mode. Pressing it again will return you to Position Mode. The other button will put }you a two page menu. The first menu allows you to: 1) Change Colors 2) Clear the screen 3) Quit to DOS} If you wish to change colors, press 1 on the keyboard. This will take you to another menu. Option 2 will clear the scree}n. Option 3 should be obvious. When in any menu, your drawing is not erased (unless you use option 2). However, after c}hoosing any option, you'll be returned to position mode. The color menu allows you to choose: Erase (same color a}s the background. Color 0 Color 1 Color 2 The words in color are the same as the ones that will be used.} I hope you'll enjoy this little program. If you have any questions or suggetions, please contact me through E-Mail.D}ennis D. Nelson 72750,1045A.  A00 A$X̠堪Z( (\aio.cccgraphics.cccpmg.cccetch1.cccscrn.objdbc.obj`  A@b6-@$lΠ8H8^ K Kj FJ DJ K Kم٦0.0E; K+-< K5 e e K% 0`}.+- i08eLHhJJJJLId1[8J K iԔILI L GN QJ 8~ } LȩE nH+8- nHdȢ/8 i-`CPYRT.1984,MARSLETT٠*`eׅץeօ&&B}LIԪ &&&Ր }LԘ}LPȄ``զԆՠքׄʈ0Ր)Cl>f8 i9`8}ԕIؠ7`ە1IiE0yʈ0niհdڥEԠ``&``I)})8iE040 uʈiԐԕեE*`80 ʈLIʢ`<68?}e Kԕڕڅ KcԊEEhh*08``LCJL CM M8i@ Kԕբ K8LLم؅٥ׅإօץ}ՅքզJJJJ fL) fLȥإЄL;JOlLM `80 ` K>.+- .,0"8` KȄ}`Ԡ66666`:`LI0ȵߵ޵ݵܵ۰٘ eeߵe޵eݵeܵiۈٔ}0LKuu٥uإuץu֥uՈ` 'Oc?'N?Jf sHJJJJ lH) }lH0 sH0̀  . 0.`ʈ`` xM` xM bM` "M J} bM fJ`i`ԝ````ԕ`O M J MF I}8ԅLCJi8ȅ Iԩf fJ)?% K f `J M M JN @M M J M -M ;M M }`J M M (K K fJ M fJ dOF O M Je?`CB  M |M fJ M -M `JL%K @p8e@i 1&@4@ g@Y!3'@"wf} } K? K Jբ N M M JOr 8M M -M K "M J bM fJ M J |Mե8 If } K J M -M fJ fJ$ bMLJwf?PE@i@g5`@04VD?8@0% ?CBH@>DIh8E?hyx? } )D?@ (1V?wD3331??xS4H) ILHLX@@A }A u@% @PԽ9P (KԝP }PԽKP (KԝPPԽEP (Kԝ!PPԽP `Jԝ'P PԽP fJԝ-P`QPP3 }P PWPPPP`-PcPP'P]PMPP Q)I SPP]PԽP fJԝ]PP͍P LQP͌}PL~QcPԽ!P `JԝcPPPLiQ`"//PPPPPԽP JԝiPPԽP} JԝoPiPԽoP `JԝPPԽ]P fJԝPPԽP JԝPPԽ9P JԝP}PԽcP fJԝPPͧP LRPͦPLiSPԽP JԝiPPԽP JԝoPiPԽoP} fJԝiPiPԽ?P `JԝiPiP0P`PPPPPPP͈P LSP͇PLR`HPTPUPV` }BHIh V`` B V`BDSE JK V`S:DEH BI V`˄̠˙ ؠ)( }S`Ԅ LTDEHBI V`˄̢yT ;TyT ؠˈ` RT ٦Ԥ` BHI V`%H$H}`TTUT`TTTU T T` TYN yn8 `U S TP T TP RT` Real center? 3U S T P T }T P RT` Imag. center? aU S TP T TP RT` Size? U S TPP 1T T TPP` Iteration limit? }ΠU' S T U CU pU VU S TN`} Enter data or for defaults. 堨ٯΩ 4V S TP}P 1T T TPP` Minimum iteration? H BHIh V`BHI V` BXDYEHI V`BXDY}EHI V` B V`JBwDPEK V`` B V B VBDWE J V`E:WW SzP ;TD}wP1xP:yPwP.#ɛʩ.wPwPFwPRwPCwP` Filename? D1:W S TYvP`vP W` Save futu}re picture? (Y/N)vP` X V VLWvPP IVP IVP IVP IVuPuPP IVuP P IVuPP IVuPuP rV V`X# }S TY` ] W VL]uP _VP _VP _VP _VP _VuPP _VuP P _VuPPuPuP S V V P X P`} Load a pi}cture from disk? (Y/N) \ 7Q X U lW P S/ YQ"/ W X PLX@ҩҭ ҍ` X {Z0` Y 2Y HYYI jY Y}Y jY Z`/Y0Y`1Y`/YEY0YFY1YGY`EYUFYVGYT`BHI V`HEYUFYVGYT` BHIh V`} pZx` 1Y1Y`1Y`1Y1Y`1Y` /Y0Y0Y`0Y?/Y``/Y0Y0Y`/Y@`/Y0Y`/Y}0Y ٢P ڢԕ'P fڢԝP1Yԩ ٢!P ڢԕ-P `ڢԝ P`` [ Z } a[ [ [ ` [`1Y8 [[1Ym [[/Y8 [[0Y[[[/Ym [[0Yi[[[@ ?[!}[L[[GY[EY[FY HY][[EY[FY HY^[[GY HY`[[EY[FY HY_[`[GY[EY[FY][I jY[EY"}[FY^[I jY[GY`[I jY[EY[FY_[I jY` Z a[%\ [` pZ [%\x`%\%\QP%\` `%\%\`%\` &\ #}[m [ԩ ٢P\ ڢԝP`PԽ!P fڢ9P (ۢԝP\`} Fast-Fractal Generator.$} (c)1988 Babarsoft Written by Mark Gamber.} TV\c S` Disk error # %} Press to restart.H Vݠ\ Sh 1T\! Shh TɛLX Put disk in ı and press Λ &}Another directory? (Y/N)D1:*.FRC ?]% S Tɛ VBD]EJ VL]BD]E'}H V] Ad] S] S TL] Vp] S TNL]`Pd,"@3*AdAU  A 4LFast-Fractal Generator(c)1988 BabarsoftWritten by Mark Gamber.Released to the Public Domain. Fast-Frac is a fractal ge!)}nerator which boasts a number of features not found in other fractal programs. The most notable is a custom floating point ad!*}d, subtract, multiply and divide package which greatly enhances the speed of the generator. Fast-Frac works on any Atari wi!+}th at least 48K. It uses graphics 8 for maximum resolution. To load Fast-Frac, simply type "L" from DOS 2.x and type in the f!,}ilename. Sparta DOS users need only type the filename. Fast-Frac will load and run. After the title screen, you have the op!-}tion of loading a previously saved fractal picture. If you have none on disk, type "N". Otherwise, type "Y" and enter the fil!.}ename of the picture. No device or extender is needed. Only disk drive 1 is used and the extender is assumed ".FRC", although!/} you can use your own. If you load a program, you will be sent to the magnify mode. More on that later. If you choose not!0} to load a picture, you will be asked for certain data in order to draw a picture. You may enter the data, or just press RETU!1}RN for the default settings which draw the entire Mandelbrot set. This data consists of: Real Center: This is your X axis o!2}n the screen. (left and right) Imaginary center: The screen's Y axis (up and down). Size: The size of the area you wish t!3}o plot on the axis scale. Not pixel size! Iteration limit: How many times the program is to loop before giving up and assum!4}ing the pixel is infinite. Minimum iteration: How many times to skip the pixel value comparison before beginning comparison!5}s. In other words, if you set this to 10, it will simply loop 10 times before checking to see if the pixel value is greater t!6}han 2. Unless you know what you're doing, leave this at zero. You will be asked if you're done. Press Y or N. If not, you w!7}ill need to re-enter the data as above. Now, if you wish to save the upcoming picture, press "Y" and enter a filename as ou!8}tlined above. At this point, the program will begin computing the fractal image. Although this program runs some 3 to 4 times!9} faster with the custom floating point routines, it can still take a long tme to finish the screen. But don't worry, you can !:}remove your disk and turn off the drive. Fast-Frac will sound an alarm when done. Set up your disk and press RETURN to save t!;}he picture. You'll also notice that the screen blacks out. Press START to view the screen. While START is pressed, nothing ha!<}ppens, so don't hold it too long! After saving or loading, you will go to the magnify mode. In the center of the screen is !=}a pixel you can guide with the joystick. Move it to an area of interest and press the fire button. Now there's 4 pixels! Thes!>}e are the corners of the box you want to view. Move the joystick right or left to make the box bigger or smaller. You may pre!?}ss the firebutton to complete it, or press START to find another area of interest. After defining your box size, you can lo!@}ad another picture or use the data you just pulled from the picture to begin another picture. I'm not going to explain frac!A}tal geometry, as there's a number of columns that can do it better. But if you want to experiment, this is the program to do !B}it with! Happy hunting... Mark Gamberנe̪JJ}iGԽ)Hiե)օةffF1EؑȭF1EّԤ ( Well hello all you fellow happy 1050 drive owner's here is a couple of programes written for the happy and SPARTA DOS. One%D} is a menu that you can control you Happy Drive and the other is a file maker. The make ٮ will make a file %E}ٮ that you can direct your HAPPY 1050 to do what you want from a startup.bat THIS MKEHAPPY.COM ASSEMBLE'S A BINAR%F}Y FILE IN MEMORY AND THEN WRITE'S IT TO THE FILE NAME OF D1:COLORHPY.COM. YOU CAN ALSO DO MORE THAN ON THING BECAUSE THE FILE%G} WILL AUTOAPPEND THEMSEVE'S TOGETHER. THE OTHER FILE IS A SUPER MENU THAT WILL ALOW YOU TO DO MOST ALL SPARTA DOS FUNCTION%H}'S AND ALL THE 1050 HAPPY DRIVE OPTION'S TO INCLUDE CHANGE THE DRIVE NUMBER PAST 4. THAT IS SOMETHING THAT ٠ҧӠ%I}Χ INCLUDE IN THE DRIVE OPTION MENU! WHICH IS REAL NICE IF YOU HAVE A HARDDRIVE AND AN THAT ARE USING THE LOWER DRIVE%J} NUMBER'S. IF YOU HAVE έ YOU COULD SEE WHAT THE PROGRAM IS DOING. BOTH OF THESE PROGRAM'S WERE WRITTEN FOR THE U%K}SE OF THE HAPPY 1050 DISK DRIVE AND SPARTA DOS THESE PROGRAM'S ALSO USE THE FREE RAM THAT IS UNUSED BY ANY TYPE OF COMPUTER H%L}ARDWARE SO THERE SHOULDN'T BE ANY CONFLICK. HOWEVER BASIC MUST BE DISABLED BEFORE THEY WILL RUN OR YOU WILL GET A NASTY TONE %M}REMINDING YOU THAT YOU JUST LOCKED YOUR COMPUTER UP AND TO REBOOT. THE PROGRAMES ALSO USE THE $300 THROUGH $30C WHICH IS T%N}HE SIO BLOCK IN THE COMPUTER. THIS PROGRAM IS DOING THE SAME THING THAT SOFTWARE COMPANIES DO TO DETECT THE HAPPY 1050 THROU%O}GH THE SIO BLOCK EXCEPT IT IS DOING DRIVE OPTION THROUGH THE SIO BLOCK. SO IF YOU DON'T HAVE A HAPPY 1050 THESE PROGRAM'S WIL%P}L RUN BUT WILL NOT WORK. SPARTA DOS MIO ARE PRODUCT'S OF I.C.D. Inc. 1220 ROCK STREET SUITE 31%Q}0 ROCKFORD IL 61101-1437 815-229-2999 HAPPY 1050 IS A PRODUCT OF HAPPY COMPUTER'S Inc. P.O.%R} BOX 1268 MORGAN HILL, CA.95037 408-779-3830 OMINMON-XL IS A PRODUCT OF NEWELL INDUSTRIES 6%S}02 E. HWY 78 WYLIE TX. 75098 214-442-6612 HAVE FUN! MR.HARDWAREAUh**("}And now, $bﻩ01r`pppB0AGʀJHFGG)U}FFGGVNNNNNNNBVNNNNNNNBFFGVBVBFGԿԿF)V}KL72)44%."9-2(!2$7!2%)W}!.$#/-0),%$7)4($!4!3/&43"!3)#"!3)##/-0),%2)X}ƀƀ)Y}΀ƀƀƀƀƀƀ̀)Z}̀ŀĀ)[}ĀĀÀUUUUUUUUUUUU)\}$$L2L3%L2-LU%L'L(L(L($/$L(Lu%L~%L%L%L%L+L+0$G$LQ(L(L+L}(Lh+L'L-L+H$_$L1(LI'LY'L'L')]}L,L6,L6'`$w$Lx'L]'L.'L.L.L-L.L .x$$L.L .L.L..L)L)L%L%$$L%L%L&L&L,&L3&L<&LE&$$LS&LL&L=)LD)LS)Lp)L-L/)$$)^}L&L&L&L&L&L&L*L *$$L-Lb&Ls&LZ&L'L'L'LH.$%L'Lx.L.L.L.L.L/L/%%LP/Ld/Ly/L/L7/L'L'L& %.%L&L.L.L.L)_}%3%J%2% ɩR1%2K%b%2 '22c%z%捦22`ԤՄ{%%`ȱ`%%ȱ)`}`ȩ%%`ԑȥՑ`%%Մ`ԤԅդՅ`%% &0<C &03/6%& % )0,( &&)a}&0 & & &2&8`ԅ` &3&I& & & &J&a& & &ʥb&y& %а)b} %z&&Зьɛ&& &0 &0 `Ԩ&&ԥ`Ɠƒ` %&& %L) %L) %eԥ&&e)c}` %L) % u% )Lu%&' %L) % %L) %L) ~%''L% u% `'4' BLV䅆L]' u%ԅ5'J'` B Vԩ)d}Lu%PK'b'pKc'y'JBDELy,z'' %L( u%ԅ`''U 1%R1%'')e}eɐ1%L' o+''` u% % u%` u%''ԅ`,/%0%``' (&eԅԥeՅ` (!(L% 'ԨL~%Ԅ)f} % u%"(/(eԥe`1(H(Ԅ %ɛ o+I(_(0` ( ذI`(w( ( 8ԅԩՅLu%x((L,ȹ)g}ɛ((꩛` ((( %ɛ((ɛ摥0L(((`2 2L,())q}bBCHECK APPBT"CHECK M65B vCHECKAPPDOCBETCH1 C B9ETCH1 COMBETCH1 DOCBETCH1 LNKB.FASTFRACCOMB(FASTFRACDOCBCHAPPY DOCBTHPYMENU COMB>MAINSET FRCBPMKECOHPYCOMBmSCRN SRC0(,ɛM0())M0( ()ɛ ()).)򩀅`/)E) u%ԍ`ԄLu%F)\)ԄLu%)r}])s)ɛԆLu%t)) %󅐅 ( ؋)) u%``ԅԥՅLu%8))2ԭ2Lu%Ԥո))ԅե`)s}8ե))`eեe` ) *))fLu% ) *fLu%8)*ԨՄԅLu% % )*-*ԥՄԩՅօ.*D*)t}ԥFf *ԥE*[* *ԅՅԥզ\*r*Ц`ԅՅʩ0s**ݴ** *** 08f)u}$**˹ `' d** G+1ԦԄ**ՄFԐ eਊ**e&L*Ԇ`hh L,*+ G+)v}Ff+,+&֐ݥ ԆՅԠ&-+C+&&8થօԈD+[+`քע V+Ե \+r+8`R1%)w}s++ +L,`GH++FH` +0ɛȄ++ ؐL,HI h++ 8ԅԩՅLu%?++Ƞ+ ,)x}D++EBHILy,+,ɛ o+`,+, o+` u%HI,,C, BLy,՝HID,[)y}, v,Lu%EDH I\,r, Lv,EDH Is,,Lv,B Vú,,l/% g-dd1g-8,,/ i h- 0)z}i-_,,- ,2%>- ,-,,-2%+ h+ '-,,Ԏ-8ե -,-L,m- , +ɛD(-.-C){}` ذ K-L- N-/-D-L2 N-}- ,L- N- H-E-[-L-l lp '8\-m-`ERROR- n-}-?Run address> ~--BASI)|}C exitTrace:--8Յթԅ` -L+-- --ȘH c*--h00,--)` % ҅)}}-. ) )օեׅ` L, . .L.L.L.L.``Յ`8!.7.Յթԅ`0 8.N.ԩ`ԅ`` 'O.f. u%`B)~}ԝK)I Jg.v.tD.ELVS:x..)H)h y`.. % u% % u%TԅUՅV..`&B y,N..L)}M` % u%ԝL..՝MN%BLy, % /./` BHILy, %// /`B JKLy,/2/ u%ԅUՅV % u%ԅ)}T3/J/` H )hK/`/` u%)xԩa/x/Lu% u%))L$&L&y// u%)pԩLu%// u%))}|L&L$& ///2%L- / / / `22TU/]n^ $L:U $ $ppҩ  $U $U !$ $)}U E$ <$ԠU $U !$ $ *$ 6$/] $$U $n^ $$/] $22֠U $n^ $L2L2U $ $ppҩ)}c $/] $ $ԌU $U !$ $U E$ <$V $U !$ $/33] $ B$ <$ <$U $U !$ $V)} E$ <$ <$V E$ <$)V E$ <$CV E$ <$]V E$ <$pV E$ <$33V E$ <$V E$ <$V)} E$ <$ӠV E$ <$V E$ <$ <$ <$V $V !$ $W E$ <$ҠU $V !$3~4 $ *$ 6$3] $$3] )}$U $L-4LA3] $U $LG4LA63] $U $La4L153] $U $L{4LQ73]44 $U $L)}4La83] $U $L4Lq93] $ؠU $L4L23] $'V $L4L<3] $֠U $L4L?34~5] $)}U $L5LC3] $U $L15L2U $ $pp Ҡ  $֠U $U !$ $W E$ <$ĠT %1=5)}5W $5] $$ 0$7] $$7] $5] !$ $5] $?W $L5LU %CW $9] $$ 0$;] $$;] $9] !$ $9] $EW $L)}55}66HH$HHHl=] $$U $?] $$?] $GW $L+6L2U $ $ppҠ $'V $U !$ )}$IW E$~66 <$T %1=W $5] $$ 0$7] $$7] $5] !$ $5] $?W $L6LU %CW $9] $$ 0$;] $$)};] $9] !$ $9]6|7 $EW $L67H%H$HHHl=] $$U $?] $$?] $GW $L;7L2U $ $p)}pҠ $U $U}77 !$ $fW E$ <$T %1=W $5] $$ 0$7] $$7] $5] !$ $5] $?W $L)}7LU %CW $9] $$ 0$;] $$;]7z8 $9] !$ $9] $EW $L78H5H$HHHl=] $$U $?] $$?)}] $GW $LK8L2U $ $ppҠ{88 $U $U !$ $yW E$ <$U %1=W $5] $$ 0$7] $$)}7] $5] !$ $5] $?W $L8LU %CW $9]8z9 $$ 0$;] $$;] $9] !$ $9] $EW $L89HEH$)}HHHl=] $$U $?] $$?] $GW $L[9L2U $ ${99ppҠ $U $U !$ $W E$ <$+)}U %1=W $5] $$ 0$7] $$7] $5] !$ $5] $?W $L9L9z:U %CW $9] $$ 0$;] $$;] $9] !$ $)}9] $EW $L::HUH$HHHl=] $$U $?] $$?] $GW ${::Lk:L2ԠU $ $ $ $ )} $Ȣ $ $+U %1=W $5] $$ 0$7] $$7] $5] !$ $5] $?:z;W $L:LU %CW $9] )}$$ 0$;] $$;] $9] !$ $9] $EW $L;;HaH$HHHl=] $$ Q$U $Z^{;; $$ppҢU $)}b^ $$U $U !$ $`W E$ <$U $\^ $$\^ $W $L;U $U !$ $`W E$ <$U $;zQ] $U $L= L>Q)}] $U $=w>L>͌ L>Q] $U $L#> L>Q] $U $LB> L>Q] $ؠU $La> L)}>Q] $'V $L>x>>i L>Q] $֠U $L>P L>Q] $U $L>7 L>Q] $W $L>)} L>Q] $,X $L>>u? L>]U %1=W $5] $$ 0$7] $$7] $5] !$ $5] $DX $L?@ LU)} %CW $9] $$ 0$;] $$;] $9] !$v?? $9] $EW $L^??HH$HHHl=] $$L2U $ $ppҩ)} $U $U !$ $U E$ <$ԠU $U?s@ !$ $ *$ 6$Q] $$U $n^ $$Q] $֠U $n^ $L<@L)}?Q] $U $L[@ L4AQ] $U $Lz@t@@ L4AQ] $U $L@ L4AQ] $U $L@)} L4AQ] $U $L@ L4AQ] $ؠU $L@ @qAL4AQ] $'V $LA L4AQ] $֠U $)}L4A L4AzU %1=W $5] $$ 0$7] $$7] $5] !$ $5] $DrAAX $LNA@ LU %CW $9] $$ 0$;] $$)};] $9] !$ $9] $EW $LAAHH$HHHl=] $$L2U $ $AqB  $ZX E$ <$zX E$ <$)}X E$ <$X E$ <$נX E$ <$ <$X E$ <$Y E$ <$6Y E$ <$rBB6Y E$ <$PY E$ <$)}tY E$ <$Y E$ <$ <$ <$ <$ <$Y E$ <$Y E$ <$Y E$BpC *$(] 9$)}U $ $LT%C %͠Y E$ <$ $U $U !$ $ϠY E$ <$U $U !$ $Y E$ <$qCCU $L^)} $$U $U !$ $!Z E$ <$U $JZ !$ $LZ E$ <$U $U !$ $\Z E$ <$U $W !$ $CpDk)}Z E$ <$ؠU $V !$ $}Z E$ <$֠U $V !$ $Z E$ <$U $ؠU !$ $Z E$ <$U $'V !$ $ˠ)}ZqDD E$ <$U $֠U !$ $Z E$ <$U $U !$ $Z E$ <$U $W !$ $ [ E$ <$U $,X !$ $)}"[ E$DmE <$U $U !$ $7[ E$ <$U $U !$ $L[ E$ <$U $U !$ $a[ E$ <$ Q$)}q[ `$nEE N$ Z$N^ $$ Q$3C %N^ $ $ԩթv[ $LEW $L^ $$LG)}N^ $ $ԩթEmFz[ $LF|[ $L^ $$LGN^ $ $ԩթ~[ $)}LbFU $L^ $$LHN^ $ $nFFԩթ[ $LFՠX $L^ $$LGN^ $ $ԩթ)}[ $LFLIN^ $ $FmGԩթ*X $L)G[ $L^ $$LGN^ $ $ԩ)}թ[ $LbGL2N^ $ $nGGԩթ[ $LGL3CL3CU $U !$ $)}LZ E$ <$TH %U $JZ !$ $[ E$ <$U $UGlH !$ $[ E$ <$ *$2^ 9$ Q$L^ $ f)}$2^ `$ c$ Q$JH %L3CU $JZ !$ $LZmHH E$ <$U $U !$ $\Z E$ <$U $W !)}$ $kZ E$ <$L3CU $U !$ $LZ E$ <$jI %U $JZ !$ $HkI[ E$ <$U $U !$ $[ E$ )}<$ *$2^ 9$ Q$L^ $ f$2^ `$ c$ Q$`I %L3ClIIU $JZ !$ $LZ E$ <$U)} $U !$ $\Z E$ <$U $W !$ $kZ E$ <$L3C  $U $U !$ $[IjJ E$ <$U $U !$ $)}ޠ[ E$ <$U $L^ $$U $U !$ $!Z E$ <$U $JZ !$ $LZ E$ <$U $U !$kJJ $\Z E$ <)}$U $W !$ $kZ E$ <$ؠU $V !$ $}Z E$ <$֠U $V !$ $\ E$ <$U $ؠU !$ $JiK!\)} E$ <$U $'V !$ $3\ E$ <$U $֠U !$ $E\ E$ <$U $U !$ $[\ E$ <$U $W !$ $jK)}Km\ E$ <$U $,X !$ $\ E$ <$U $U !$ $7[ E$ <$U $U !$ $L[ E$ <$U $U !$ $)}a[KiL E$ <$ Q$q[ `$ N$ Z$N^ $$ Q$ӠI %N^ $ $ԩթv[ $)}LtL\ $jLLL^ $$L"NN^ $ $ԩթz[ $LL\ $L^ $$L"NN^ $ $ԩթ)}~[ $LiMLM\ $L^ $$L"NN^ $ $ԩթ[ $L;MLSPN^ $ $ԩ)}թ*X $jMMLtML8ON^ $ $ԩթ[ $LML%CN^ $ $ԩթ)}[ $LML2N^MhN $ $ԩթ[ $LNL5OLIU $U !$ $L)}Z E$ <$ؠN %U $JZ !$ $[ E$ <$iNNU $U !$ $[ E$ <$ *$2^ 9$ Q$L^ $ f$)}2^ `$ c$ Q$ΠN %LIU $JZ !$ $NgOLZ E$ <$U $U !$ $Y E$ <$U $W !$ $)}kZ E$ <$LIU $U !$ $LZ E$ <$U $JZ !$ $hOO[ E$ <$U $U !$ $[ E$ <$ *$)}2^ 9$ӠI %U $ $ Q$2^ `$ N$ OdPᢤ\ `$ N$  $4P % Z$A] $$)} A] $ W$ppLP Q$ Q$͠Y E$ <$LIؠU $P^ $$UePP $R^ $$V $P^ !$ $LZ E$ )}<$P %P^ $U $P^ $$R^ $JZ $LoPU $U !$ $\ E$ <$U $PcQU !$ $\ E$ <$ؠU $)}T^ $$U $JZ !$ $[ E$ <$U $U !$ $[ E$ <$ *$2^ 9$U $dQQJZ !$ $LZ E$ )}<$U $U !$ $\Z E$ <$U $W !$ $\Z E$ <$[V $U !$ $2^ H$ <$QbRU $U !$ )}$ߠ\ E$ <$fS %2^ `$ N$U $V^ $$[V $T^ !$ $ڠS % -$ ^ 9$ cRR)} ^ H$ <$T^ $U $T^ $$V^ $U $LRLRV^ $U $L/R۠R %֠U $V !$ $\ E$ <$ؠU $)}R_SV !$ $ ] E$ <$ Q$ q[ `$ N$ Z$N^ $$ Q$N^ $ՠX $n^ $$N^ $ՠX $n^ $)}`SSLfSLSؠU $T^ $$U $X^ $$V $T^ !$ $kZ E$ <$T^ $U $T^ $$X^ $JZ $LSؠU $T)}^ $$L!RڠSS]T %LIJZ $G] $$U $I] $$K] $ $n^ $$M] $U $I] $ $t^ $$G] $ $z^ $$ԭz^ )}t^ %I] $n^ $^TTI] $$U,n^0 $  $LTG] $-] $G] $$U $LSLI72,01,128,64,00,00,128,00,24,16,)}64T*U72,01,128,64,00,00,128,00,24,08,6472,00,01,00,01,00,01,00,03,00,0072,00,01,00,01,00,01,00,224,224,00+UU72,00,0)}1,00,01,00,01,00,32,00,00104,32,89,228,9672,01,128,64,00,00,128,00,0172,01,128,64,00,00,128,00,02OP() U)}(Vp  WHICH DRIVE # TO PGMcHAPPY DRIVE BEING PROGRAMED D :"** HAPPY SET CALL'S ** 0=>DOS)})VV 1=>ENABLE FORCED PROTECT 2=>ENABLE FORCED WRITE 3=>INITIATE HAPPY 4=>SET UNHAPPY MODE 5=>ENABLE FAST WRITE)}VW 6=>CHANGE DRIVE BEING PGM 7=>CHANGE MOTOR OFF DELAY 8=>REPROGRAM HAPPY DRIVE # 9=>MINI-DOS MENU0J)}pX#( WWHAPPY FORCED WRITE ENABLEu11 u HAPPY FORCED WRITE PROTECTu0HAPPY INITIALIZEu2٠śu3FAS)}T WRITE SETu4#WXhappy super menuHAPPY SUPER MENU٠Ҡ՛1=SHORTEST 11=LONGESTIN ONE S)}ECOND INCREMENT'SXXHOW LONG OF A DELAY5  i7u @v\This is a basic file that was)}compiled and turned into aXXbinary file that will do allyour drive option's from any DOS and allow you to return t)}o DOSXsYWhen you the screenwill go blank then ԛthen you will be promptedRUN AT ADRESS? TYPE)} AND TETURNtYYPRESS and the PROGRAMAND THE PROGRAM WILL go to DOSHAVE FUN!!!PRESS RETURN #}YKZӠ)}ՠ̠ĠŠӠ٠Š٠LZZ )} 1) LOCK FILE(S) )}ZJ[2) UNLOCK FILE(S) 3) LOAD BINARY FILE 4) RENAME FILE 5) ERASE FILE(S) 6) OTHER MENU 7) HAPPY MEN)}U K[[ ENTER UTILITY #K:$1$2$3%46K !7$ENTER FULL PATHEXAMPLE Ŀ$%%[2)}\Ӡՠ̠Š­٧ӠΠӠΠئàҠқ 1) CREATE SUB DI)}R3\\2) DELETE SUB DIR3) CHANGE WORKING DIR4) DISK DIR 5) VIEW TEXT FILE6) OTHER MENU K*K+,LLLKKE:L)}LM\,] UTILITY DIRECTORY DIRECTORY N N\MWPRESS KEY TO RUN UTILITYPRESS SPACE BAR FOR)} MORE DIRM -].]$erasedC AP( note cancelled6 A%6-@:7,,6!AS)+!*(,A(@u%?-}?2~?? -} ?+?G-}[ KtV -}9?p|??>;p>|Lx?-}N?3U?f|-}>?$yx;-}A?2P9C?|k!-} JJ~| ?-}?d^ea@$-}h p???-}$?~p?:?-}pcp7M?0 cYpS`#.sP?-}?+XlpPL$#Dh'X</-} q@ nc`Z ?- `>-}>2 |:?x; ?-}z r P-}?0?yQ-}aJS?Y -}Y?E? }lw-}d9.a`3X&(?j-}8' 0S Hr>0-}E?O?o"`royL'HQ-};<hc W@J _L?@@ -}/ ?`/@ -}v?0?@-}`ʠ 0-}x?-}჈{WTϲ-}? ?{ ,>-}G'@ nxR 8-}u0 nxR 8G'@,>-}{  ?? .}ϲWT჈{.}x?.} 0ʠ`.}?@?0v.} `/@??.}@@ / J _Lhc W@.};<'HQ"`royLE?O?.}oHr>00S 8' .}&(?ja`3Xd9.. }lw}?E? . } Y?YaJ. }SQ?y?0. }Pr ?. }z ?x; |:.}>2 ?- `>c`Z .} q@ nX</#Dh'??+.}XlpPL$YpS`#.sPM?0 cp.}cp7̀?:?~p.}????$p.}h a@$e.}??d^| ~.} JJ?|k!?2P9C.}Ayx;?$.}>?f|3U.}N?|Lx???>;p>.}9?p|tV K[ .}G??+.}  ??.}?2~NTING -@@ THE$,Mﻩ01`pppB0AGʀJHFGG2}FFGGVGNNNNNFBVGNNNNNFBFFGVBVBFGԿԿF2}KL4()302/'2!-7!3#/-0),%7)4(2 }&/24(%(!00930!24!$/3"9-2(!2$7!2%*2"2!}ƀƀ΀2"}ƀƀƀƀƀƀ̀̀2#}ŀĀĀ2$}ĀÀUUUUUUUUUUUÙ2%}$$L2L3%L2-LU%L'L(L(L($/$L(Lu%L~%L%L%L%L+L+0$G$LQ(L(L+L}(Lh+L'L-L+H$_$L1(LI'LY'L'L'2&}L,L6,L6'`$w$Lx'L]'L.'L.L.L-L.L .x$$L.L .L.L..L)L)L%L%$$L%L%L&L&L,&L3&L<&LE&$$LS&LL&L=)LD)LS)Lp)L-L/)$$2'}L&L&L&L&L&L&L*L *$$L-Lb&Ls&LZ&L'L'L'LH.$%L'Lx.L.L.L.L.L/L/%%LP/Ld/Ly/L/L7/L'L'L& %.%L&L.L.L.L2(}%3%J%2% ɩR1%2K%b%2 '22c%z%捦22`ԤՄ{%%`ȱ`%%ȱ2)}`ȩ%%`ԑȥՑ`%%Մ`ԤԅդՅ`%% &0<C &03/6%& % )0,( &&2*}&0 & & &2&8`ԅ` &3&I& & & &J&a& & &ʥb&y& %а2+} %z&&Зьɛ&& &0 &0 `Ԩ&&ԥ`Ɠƒ` %&& %L) %L) %eԥ&&e2,}` %L) % u% )Lu%&' %L) % %L) %L) ~%''L% u% `'4' BLV䅆L]' u%ԅ5'J'` B Vԩ2-}Lu%PK'b'pKc'y'JBDELy,z'' %L( u%ԅ`''U 1%R1%''2.}eɐ1%L' o+''` u% % u%` u%''ԅ`,/%0%``' (&eԅԥeՅ` (!(L% 'ԨL~%Ԅ2/} % u%"(/(eԥe`1(H(Ԅ %ɛ o+I(_(0` ( ذI`(w( ( 8ԅԩՅLu%x((L,ȹ20}ɛ((꩛` ((( %ɛ((ɛ摥0L(((`2 2L,()21}0(,ɛM0())M0( ()ɛ ()).)򩀅`/)E) u%ԍ`ԄLu%F)\)ԄLu%22}])s)ɛԆLu%t)) %󅐅 ( ؋)) u%``ԅԥՅLu%8))2ԭ2Lu%Ԥո))ԅե`23}8ե))`eեe` ) *))fLu% ) *fLu%8)*ԨՄԅLu% % )*-*ԥՄԩՅօ.*D*24}ԥFf *ԥE*[* *ԅՅԥզ\*r*Ц`ԅՅʩ0s**ݴ** *** 08f25}$**˹ `' d** G+1ԦԄ**ՄFԐ eਊ**e&L*Ԇ`hh L,*+ G+26}Ff+,+&֐ݥ ԆՅԠ&-+C+&&8થօԈD+[+`քע V+Ե \+r+8`R1%27}s++ +L,`GH++FH` +0ɛȄ++ ؐL,HI h++ 8ԅԩՅLu%?++Ƞ+ ,28}D++EBHILy,+,ɛ o+`,+, o+` u%HI,,C, BLy,՝HID,[29}, v,Lu%EDH I\,r, Lv,EDH Is,,Lv,B Vú,,l/% g-dd1g-8,,/ i h- 02:}i-_,,- ,2%>- ,-,,-2%+ h+ '-,,Ԏ-8ե -,-L,m- , +ɛD(-.-C2;}` ذ K-L- N-/-D-L2 N-}- ,L- N- H-E-[-L-l lp '8\-m-`ERROR- n-}-?Run address> ~--BASI2<}C exitTrace:--8Յթԅ` -L+-- --ȘH c*--h00,--)` % ҅2=}-. ) )օեׅ` L, . .L.L.L.L.``Յ`8!.7.Յթԅ`0 8.N.ԩ`ԅ`` 'O.f. u%`B2>}ԝK)I Jg.v.tD.ELVS:x..)H)h y`.. % u% % u%TԅUՅV..`&B y,N..L2?}M` % u%ԝL..՝MN%BLy, % /./` BHILy, %// /`B JKLy,/2/ u%ԅUՅV % u%ԅ2@}T3/J/` H )hK/`/` u%)xԩa/x/Lu% u%))L$&L&y// u%)pԩLu%// u%)2A}|L&L$& ///2%L- / / / `22AAEF $A $ $A $F $$A $F $$ppҠ2B}D 2 % Q$ Q$PPPPPPPPPP22ʌP PŌ P P P PPPƌPP2C}PPPPȌPP`PPPPPPPPP Q$2|3 Q$2 %`````N```2D}`1`` ` ` ` ` ````H`````}33```````2E}``` `!`"`#`$`%`&`'`(`)`*`+`,`-`.`/`3{40`1`2`3`4`2F}5` 6`7`8`9`:` ;`<`=`>`?` @`A`B`C`D` E`F` G`YH`|44I`J`K`L`2G}M`N`ЌO`P`ʌQ`ЌR`S``T`U`V`W`X`Y``Z`A $ $Ԡ4 %ppҠD  4z5 $A $2H}B !$ $B E$ <$B $B !$ $ *$ 6$E $$E $A $F $$E $vB $F $Lw5L4A{55 $2I} $w5 %ppҠD c $E $ $Ԍ `RB $FB !$ $C E$ <$%C $FB !$ $E $ B$ <$2J}5x6 <$A $RB !$ $'C E$ <$ <$@C E$ <$^C E$ <$zC E$ <$C E$ <$C E$ <$2K}C E$ <$y66ԠC E$ <$C E$ <$ D E$ <$ <$ <$B $>C !$ $ *$ 6$E $$E $A $2L}L6Lq`7t8L? 9`L?``@ `^/`9`>`@C`L?``@ `^/`9`>2O}`@C`L?``@ `^/`9`u88@C`W8 % DppҢA $ $ $jB $^B !$ $DD E$ <$2P}jB $A !$ $[D E$ <$A $B !$ $8t9uD E$ <$A $B !$ $D E$ <$B $B !$ $ *$ 62Q}$E $$A $F $$E $B $F $Ls9LW8u99E $A $L9>`L?E $A $L9>`L?2R}E $B $L9͌>`L?E $FB $L9>`L?E9q: $RB $L:>`L?E $^B $L-:>`2S}L?E $jB $LL:i>`L?E $vB $Lk:P>`L?E $r::A $L:7>`L?E $B $L:2T}>`L?E $B $L:>`L?``@ `^/`9`@C`Ƞ: %:p;D E$ <$ $jB $B !$ 2U}$D E$ <$B $B !$ $ *$ 6$E $$A $F $$E $vB $F $q;;Ly;L:E $A $L2V};>`L?E $A $L;>`L?E $B $L;>`L?E $FB $L;;m<>`L?E $RB $2W}L<>`L?E $^B $L3<>`L?E $jB $LR<>`L?E $vB $Lq<>`n<E $\C $L>D E$ <$L?E $E $L?>E $A $E $$E $E $Lk>E $2\}A $E $$m>>E $A $L>ܠE $A $ܠE $$E $E $L>ܠE $A $ܠE $$֠E $E $2]}L>A $֠E $$֠E>j? $A $L ?A $֠E $$E $E $L2?A $E $$E $A $LW?A2^} $E $$ܠE $E $k??L|?A $ܠE $$ܠE $A $L?A $ܠE $$֠E $ $Ԍ֠E $ $ԌPE 2_}$ $ԌE $ $ԌPܠE $ $?f@ܠE $ $ԌPL]=D E$ <$  $c@ % Q$E $ F $$E $ 2`}F $$ f$ ᢞE `$ c$ Q$ 2g@@ %B $B !$ $E E$ <$A $E $$ Q$ E $ $2a}F $$E `$F N$F $֠E $$RB $@eAB !$ $֠E $ $ܠE $$ ܠE $ W$ΠE E$ ?$ ?$ܠE $ B$ 2b}<$֠E $F $L@ Q$ F $ f$ ᢞE `$fAA c$ Q$A $F $$A $F $$Lw5L$``ZpD2c} PPPPPPPPPPP P P P P PPPPPPPPAeBPPP`PPPPPPP````N```1`2d}` ` ` ` ` ````H``````````````` `!`"`#`$`%`&`'`(`)`*fBB`+`,`-`.`/`0`1`2`3`4`5`6`7`8`9`:`; 2e}`<`=`>`?`@ `A`B`C`D`E `F`G `HY`I`J`K`L`M`N`O`P`Q`R`S`T`U`V`W`X`YTB]CWHICH DRIVE # TO PGM cHA2f}PPY DRIVE BEING PROGRAMED D :"** HAPPY SET CALL'S ** 0=>CHANGE BACKGROUND COLOR^CC 1=>ENABLE FORCED PROTECT 22g}=>ENABLE FORCED WRITE 3=>INITIATE HAPPY 4=>SET UNHAPPY MODE 5=>ENABLE FAST WRITECCD 6=>CHANGE DRIVE BEING PGM 72h}=>CHANGE MOTOR OFF DELAY 8=>REPROGRAM HAPPY DRIVE #EvXblpX'@^DDD1=SHORTEST 11=LONGESTIN ONE SECOND I2i}NCREMENT'SHOW LONG OF A DELAY5i7}WHICH DRIVE # TO CHANGE TODCERPRESS OR TO C2j}HANGE BACKGROUND COLOR' OR TO CHANGE BORDER COLOR# OR TO CHANGE LETTER COLORDEE PRESS TO S2k}TORE COLOR AND GO BACK TO PROGRAMK:+-=*;S'$D1:COLORHPY.COMMAKING FILEEED1:COLORHPY.COM/AW2l}ORKING$010 *= $060015 .D D:SCRN.OBJ20 .B 112 112 112 71 0 3230 .B 7 7 7 7 7 7 7 7 7 7 740 .B 65 6 050 .END4h