" 4 FILETXYUDOWRIGHLEFYEPLACMENSKETCHPMOVCHECMIRROBLOPATTERNMAKFILFETCINSTRUCEXINAMECHEFILERRORESPONSAGAIKEFFCHOICDRDESIGROIMAG  !"#$%&'()* $$  D:PATTERNS by Frank Roberts!!Generates repeated patternsfrom user created designs$$211;@0,;@0,;A,;A,7c6-@i6-@'6-@36-@E?6-@aK6-@BW6-@Cc6-@:6-A<"6-A"PIVOT OF PROGRAM>!6-A!DRAWS SKETCHPAD@&6-A&ACCEPTS USER DRAWINGB%6-AP%CHECKS VALID DESIGND#6-A#MIRROR PARAMETERSF6-AINK BLOTH6-A PATTERN ROWSJ6-A MAKES DESIGNSL$6-A$STORES DESIGN DISKN%6-A %GETS DESIGN FM DISKP6-A0INSTRUCTIONSR$6-A@$TERMINATES PROGRAMT#6-A#CHECKS VALID FILEV 6-A% FILE NOT FOUNDX"6-A"CONTINUATION KEYZ6- c$$ GET USER INPUT SUB dM@.@@K:;)@MAdAUf8F:A,*A86-&A(g$i46-@:7<,,6-@:7<,,"$4X,Y COORDINATESj# 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@<@,,!@d*@:7@<@,, @A ? +@@)AR@4(@?(@{ (@ FIRST LETTER<(@ OF FILENAME\(@ MUST BEGIN WITH{(@ A LETTER (A-Z)/(@/(@ ŭҠŠ( ((}( AB:, @A$%%7@<@,4D:A%%%7@<@,4C:A%! 6.D:67@,.!6.$## PREPARE SKETCHPAD ) +@@)AR@AdAU,@S@3'/@S@9/@'@K-@'@2]Ae@@@S:1 @,@'@31/@S@3 @ ( s()+B:,",6.%6.16-@=6-@G@],%@(%@i6-@s AP -@B:, ,%@(%@ / @#,%@(%@/6-/,($ draw tart/Stop drawing/(&&(rase design uit drawing.@.@@K:W## USER CREATES DESIGN X)@MOVE ROUTINEYPF:A,*A4 APDISABLE INVERSE VIDEO KEYZMF:A,"*A@d4 AMDISABLE LOWER CAPS KEY]((@(,%@(%@^ " _" "*(6-@" A`Q *"6-!@7,%@(%@D67B:,,.Q67B:,,.b "6- d/ "6-&@# /6-@$f/ "6-%@#!@$/6-g/ "6-&@# /6-@$j/ "6-%@#!@$/6-kY67B:,%@,.>:,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) "@ @xAp6-6- ## MAIN MENU ROUTINE M +@@)AR@;AdAU>'MMENU ROUTINE (@ pattern maker""(@ by frank roberts6(@(@6(@ 0 ;(@;(@ 1 +(@+(@ 2 '(@'(@ 3 '(@'(@ 4 *(@*(@ 5 *(@*(@ 6 +(@+(@ 7 7(@(@7(@ YOUR 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, AU*AdAU. :@'>  ,   @  =6-%@$6-&@$-6-%@9 @= G6-@@6-%@H)6-76-%@C @G    STORE DESIGN B:,"   @@L @ @@: +@@+-@@6(@: (P(@ IS FILED'(@2(@P(@ Ӡ٠٠2    FETCH DESIGN ; +@@)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@ 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 black lines or points drawn onO( the pad will be stored in memory Q'(to be transformed into designs *(Q("Any line or point color other than J"(black will not be plotted.J(#You may change the color at anytime (by pressing the '' key. N(.(#Pressing '' will erase your designN(so that you may start again -(-("When you have the design you want, J)(!press the '' key and the programJ(will return you to the menu  '('(--- Press for menu.  6-  + +AR@+ %@## TERMINATES PROGRAM  + D:PATTERNS