L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`ĠбĠвĠгĠдŭŭŭŭűűűŭčō` ōٍ΍ōōԍō̍` ʍ ٍӍӍō ʍʍ ٍӍٍʍ      ʍ ٍӍō   "a(ű)#a(ű)$a(ű)%a(ŭ)(a@E()2Q"\ @p()]̠a@E(Šήֳ)2a@E(Πήֳ)a@E(Šήֳ)a(Ġб)a(Ġв)a(Ġг)a(Ġд)a(ŭ)a(ŭ) a(ŭ)!a(ŭ)  -22393,197" ""POKE1013,76"1 #"POKE1014,23"E $"POKE1015,183"Z %"POKE-17323,96"j (D$;"CLOSE"p 2q D$(4): CONTROL-D7D$;"DELETE XEPSON.V3.3"jD$;"OPEN XEPSON.V3.3":D$;"WRITE XEPSON.V3.3"}"BLOAD EP1.3""BLOAD EP2.3""BLOAD EP3.3""BLOAD EP4.3""POKE-22396,77""POKE-22395,79" "POKE-22394,68" !"POKE)"Y"2460` :"WOULD YOU LIKE THE SOLUTION TO BE PRINTED ON A SEPARATE SHEET? (Y OR N)";FF$t (FF$,1)"N"ı (FF$,1)"Y"2482 ORING THE CLUE.";B~ " (EXAMPLE) THE HIDDEN WORD IS ";::"FIG "; :"THE CLUE COULD BE ";::"(QUOTATION MARK) ADAM'S FIRST CLOTHES. GEN. 3:7" : "WOULD YOU LIKE TO USE CLUES IN YOUR PUZZLE? (Y OR N)";SE$ (SE$,1)"N"2482  (SE$,1 EITHER ONE OF TWO PUZZLES. THE FIRST VERSION WILL PRINT THE WORDS THAT ARE TO BE LOCATED IN THE PUZZLE. THE SECOND VERSION WILL PRINT ONLY CLUES TO EACH WORD."t 5)"IF YOUR CLUE CONTAINS A COMMA, OR A COLON, BE SURE TO USE A QUOTATION MARK BEFORE ENTEE IN THE ORIGINAL PROGRAM BY DAVID E. FAHNESTOCK, KD4KO."` 5)"ONE OF THE IMPROVEMENTS GIVES YOU THE ABILITY TO ENLARGE THE SIZE OF YOUR PUZZLE IN THE EVENT THAT IT CANNOT CONTAIN THE NUMBER OF WORDS SPECIFIED."j 5)"YOU HAVE THE CHOICE OF CREATING1$ JJ1:III:CC1:J16. :"WORD # "K" WAS "W$(K)G8 :SE$"N"ıdB "CLUE # "K" WAS "CL$(K)jL 9V 5::"WORD GAME";::" WAS TYPED FROM THE BOOK, BASIC COMPUTER PROGRAMS FOR THE HOME BY CHARLES D. STERNBERG. VARIOUS IMPROVEMENTS HAVE BEEN MAD"":*****CTRL-G FOR FIVE BELLS*****N"THE PUZZLE CONTAINS "R" ROWS"n"INCREASE THE ROWS TO?";R1}R1R2270RR1I1:JJJ"THE PUZZLE CONTAINS "C" COLUMNS" "INCREASE THE COLUMNS TO?";C1 C1C2340 CC2120>36,I:II40!HNUNU13RSE$"Y"2160O\NU5NU0:I15::2170Yf2170opNU2NU0:I40:vzK| CENTERING ROUTINE35(C$)2:(14)C$:*Z1(26(1))1"L$(I,J)A$(Z1))J0IY******PRINT THE WORDS TO FIND******p::2:C$T$:2190vSE$"N"NU0:I15:2070 NU0:I40K1N SE$"N"ĺ"("K") "W$(K);:2100*"("K") "CL$(K);4SE$"N"Ĺ36,I:II15:1)Q)"."18708DL$(X2,X1(I1)Q)(W$(K),I,1)1200?NIGXT0UbI1L01vlL$(X2,X1IQ)(W$(K),I1,1)}vIL$(X2,X1)(W$(K),1,1) ****** FILL OF REMAINING POSITIONS ******I1CJ1RL$(I,J)"."2000$(X2,X1)(W$(K),1,1)1930+I1L0LL$(X2(I1)Q0,X1)"."1770wL$(X2(I1)Q0,X1)(W$(K),I,1)1200~IT0I1L01L$(X2IQ0,X1)(W$(K),I1,1)IL$(X2,X1)(W$(K),1,1)&19300I1L0:L$(X2,X1(I ****** ENTRY OF WORD IN THE PUZZLE ******:TD11840H^D01740ThI1L0}rL$(X2(I1)Q0,X1(I1)Q)"."1670|L$(X2(I1)Q0,X1(I1)Q)(W$(K),I,1)1200IT0I1L01L$(X2IQ0,X1IQ)(W$(K),I1,1)ILC0CR0RD11480*R0RL09D01500EC0CL0TD11530`R0RL0lC0CL0|C0C1550P00R0R1570P0"Z1((Y)R0100.01)100PL0,Z2((Y)C0100.01)100P0L06X1(Z1)@X2(Z2),JP1P01Q1- (Y).513105Q1?Q01R((Y).51340[2Q01c<D2rFQ11370zPP0ZQ011390dP00n(Y).751410xD1(Y).251430D0 ****** RANDOM SELECTION OF START POINT ******" "; jIt~J'COUNT1ı<FF$"Y"ĺ(12);HCOUNT1Ny ****** WORD BREAKDOWN ROUTINE ******L0(W$(K)) ****** RANDOM SELECTION OF DIRECTION ******TT1FLAG0T1001260FLAG12210:800:"TURN PRINTER ON":6D$;"PR#1":(27)"E"::1100@1950FLV$1100}. ****** TERMINATION POINT ******8(27)"F";:(12):D$;"PR#0":D$;"RUN HELLO"=B ****** PUZZLE PRINT ROUTINE ******LJ1RVI1C`L$(I,J)C0 "ENTER WORD # "KC "";: *****CTRL-G FOR BELL***** [ W$(K):SE$"N"980m "ENTER CLUE" "___________________________________["; 1:"";CL$(K) (CL$(K))0(CL$(K))35940 1170 KK1 KN910::12:130)"T" A$(21)"U"$ A$(22)"V"3 A$(23)"W"B A$(24)"X"Q A$(25)"Y"` A$(26)"Z"h Y1x L$(I,J)"." *JJ1 4JR800 >II1:JJJ HIC800 RJJR1:III \FLAG1900 fCC1900 p2290 z800 FLAG0:T0:C &A$(3)"C" 0A$(4)"D") :A$(5)"E"7 DA$(6)"F"E NA$(7)"G"S XA$(8)"H"a bA$(9)"I"p lA$(10)"J" vA$(11)"K" A$(12)"L" A$(13)"M" A$(14)"N" A$(15)"O" A$(16)"P" A$(17)"Q" A$(18)"R" A$(19)"S" A$(2UMNS IN THE WORD GAME" C# O "ENTER THE NUMBER IF ROWS IN THE GAME"V R\  "ENTER THE NUMBER OF WORDS TO FIND" N  ******DATA INITIATION****** CL$(40) L$(80,80) W$(N) A$(26) A$(1)"A" A$(2)"B" 12)"T O Z";% 26:"B I T"+ "J ,12)"B R Y I S G W J O P"P 6o @12)"G J R I M X Q Z S C"y JXX1 TH11000::X3ī100 ^:2390 h rK1:J1:I1:JJ1 |"ENTER TITLE OF PUZZLE ";T$  "ENTER THE NUMBER OF COL ZD$(4)d:n110x18:"W O R D"815K18:"G A M E"S15cH11000:j712)"S T D J W B O V S P"12)"R B X V S Z B L E G"12)"H U Q";26:"G T V"12)"H P L A S Q I W L N"             162): KNGE MUST BE MADE TO MAKE SETLF *":"* WORK. ADD THE FOLLOWING TWO LINES TO*":"* THE EXEC-MAKER-PGM OF YOUR CHOICE & *":"* THEN RUN IT REMAKING XEPSON.V3.3 ::" 38 PRINT";(162);"POKE -16535,24";(162):" 39 PRINT";(162);"POKE -16534,96";(THIS UTILITY ARE DIVIDED UP SO":"THAT THEY MAY RESIDE SAFELY WITHIN THE ""DISABLED INIT AREA OF DOS AND THUS ":"TAKE UP NO EXCESS MEMORY OR INTERFERE":"WITH THE POPULAR PLE OR PGE. !!!!":"* IF YOU ALREADY HAVE GRAPHTRAX,THEN *":"* A CHA ANY KEY TO CK$:::"+ PLEASE NOTE YOU DO NOT NEED TO DO +":"+ A PR#1 TO OUTPUT COMMANDS TO THE +":"+ EPSON WITH THIS UTILITY; -->JUST +":"+ HAVE IT ON AND READY TO ACKNOWLEDGE +":J:" !!****!! THE BINARY ROUTINES WHICH ":"MAKE UP EPSON PRINTERS WITH GRAPHTRAX ":"MAY BE IMPLEMENTED THIS WAY." ::" A COMMERCIAL VERSION OF THIS ROUTINE":"MAY BE WRITTEN TO TAKE FULL ADVANTAGE":"OF THE GRAPHTRAX EPSON PRINTER AT SOME":"FUTURE DATE. HAVE FUN WITH THIS ONE.":::" (HIT OF AN OPTION: PERSONAL PROGRAM":"FOR YOUR OWN COMMAND TURNED ON BY A ""PP OR &PP. IT DOES NOTHING IF IT IS ":"NOT USED. THIS ROUTINE MUST RESIDE AT ":"$BC56 AND BE NO LONGER THAN 100 BYTES"@"IN LENGTH. THE ADDED ITALIC MODE OF ":"THOSE EP3.3 : BINARY"K" EP4.3 : BINARY"|:::" (HIT ANY KEY TO CONTINUE)":K$::" 3.3 ADDENDUM"I:" AN ADDED CAPABILITY TO THE UTILITY":"HAS BEEN WRITTEN FOR INCLUSION IN THE":"FORMTILITY 3.3 INFO : DOCUMENT"J" EPSON.EXEC.MAKER.A3.3 : EXEC WRITER"x" EPSON.EXEC.MAKER.I3.3 : EXEC WRITER"" XEPSON.V3.3 : EXEC ROUTINE"" EP1.3 : BINARY"" EP2.3 : BINARY"""F - RESETS FORM ORIG. 66 LINES"Kh" &CLRLF - RESETS LF ORIG. 1/6 INCH."Ur::x:5:"TO LOAD THE UTILITY:":5:"'EXEC XEPSON.V3.3' FROM BASIC":" (HIT ANY KEY TO CONTINUE)":K$:15:"PROGRAM LIST"::" EPSON UE" &LF - LINEFEED"GJ:" (HIT ANY KEY TO CONTINUE)":K$QO::T" &SETFF - SET FORM LENGTH AFTER ":" 'FORM=' APPEARS (#S ONLY!)"^" &SETLF - SET LF LENGTH AFTER 'LFEED='":" APPEARS (#S ONLY!)c" &CLRFRESET NORMAL PRINT MODE"?'" &C - CONDENSED PRINT MODE"g," &E - EMPHASIZED PRINT MODE"1" &D - DOUBLED PRINT MODE"6" &L - ENLONGATED,ENTER LAST MODE";" &CR - CARRIAGE RETURN W/O LF"@" &FF - FORM FEED"INPUT.":" ALSO, IF YOU USE THE & VECTOR FOR YOUR":"OWN PROGRAMS, MODE IS STILL ACTIVE.":"YOU MAY RECONNECT THE & TO THIS UTILITY":"WITH:"" POKE 1013,76 POKE 1014,23 POKE 1015,183""KEYBOARD OR PROGRAM (IMMEDIATE EXEC)""" &N - SET/CMD/CMD''":::>"A SIMPLE (RETURN) WITH NO ENTRY IS A"p"NULL COMMAND TO 'FORM=' AND 'LFEED=' ."::x18" (HIT ANY KEY TO CONTINUE)":K$:14:"--APPLESOFT--":"*NOTE* SETFF & SETLF ALWAYS COME TO THE":"KEYBOARD FOR TO 85 (72 NDS INCH).".:"KEYBOARD MODE:"]" TYPE 'MODE CMD' OR 'MODE CMD/CMD/CMD'"" (HIT ANY KEY TO CONTINUE)":K$::::"PROGRAM MODE:"" LINEA D$=CHR$(4): REM CTRL D" :"" LINEB PRINT D$;''MODE CMD/#S ONLY)"6" * PROMPTS OF 'FORM=' AND"c" 'LFEED=' AWAITS NUMERIC INPUT"" OF FORM & LINEFEED LENGTHS. A"" (RETURN) IS A NULL ENTRY. FORM"" LENGTH IS IN LINES; LINEFEED"" LENGTH IS 1SIZED PRINT MODE"2" D - DOUBLED PRINT MODE"`" L - ELONGATED PRINT;ENTER LAST MODE"" CR - CARRIAGE RETURN W/O LF"" FF - FORM FEED":" LF - LINEFEED"" SETFF - SET FORM LENGTH (#S ONLY)" " SETLF - SET LF LENGTH (THOUGH AN UNDESIRED":"COMMAND MIGHT RESULT.":" EX. ----/CLRFF -->> ----/C":~ q" (HIT ANY KEY TO CONTINUE)":K$ r:" VALID COMMANDS ARE:": s:" N - NORMAL OR RESET NORMAL MODE" x" C - CONDENSED PRINT MODE"}" E - EMPHA INCORRECT DOS COMMAND. THE AR-" o"GUMENT LIST IS LIMITED TO 30 CHARS WITH":"COMMANDS SEPARATED ONLY BY A '/'.":"LONGER ARGUMENTS ARE TRUNCATED. FORMAT":"IS : MODE E/L/SETFF/SETLF"R p:"IN MOST CASES, AN 'ERR' RESULTS FROM":"A TRUNCATED LIST AL g"SOFT WITH MODE"A i" (HIT ANY KEY TO CONTINUE)":K$i j:6:"INTEGER, APPLESOFT, MONITOR" k" DOS COMMAND: MODE":::: l"MODE REQUIRES A COMMAND LINE AS AN AR-" m"GUMENT, ELSE A SYNTAX ERROR RESULTS AS" n"FOR ANYION IS PRIMARILY SET UP TO"H Z"GIVE SIMPLEST USE FROM APPLESOFT WITH"u _"& COMMANDS; A FULL SET OF COMMANDS IN" d"INTEGER & APPLESOFT BOTH ARE AVAILABLE" e"WITH THE DOS COMMAND MODE. THERE IS " f"NO DIFFERENCE BETWEEN INTEGER & APPLE-"THE EPSON MX-80 CONTROL"D 7"AND ESCAPE CODES FOR PRINT MODE SETS"q <"AS WELL AS FORM AND LINEFEED LENGTHS." F"THIS LATEST NEW VERSION IS SET UP" K"FOR 48K APPLES WITH DOS. A RELOCATED" P"VERSION MAY BE HAD UPON REQUEST." U" THIS VERS. :6::"EPSON MX-80 PRINTER UTILITY":J12:"S.W. ACHRAMOWICZ"o7:"APPLEQUERQUE COMPUTER CLUB"#10:"VERSION 3: RELEASE 3"(15:"22 DEC 80":11:"DOS 3.2 - DOS 3.3":-" THIS LATEST VERSION ENABLES YOU TO" 2"EASILY HANDLE           :L:6:"DOUBLE EMPHASIZED ELONGATED"+ xy N:C:" CONDENSED MODE" FF: DO A FORM FEED N 0 FN:E:D::22:"EMPHASIZED AND DOUBLED PRINT MODE"r K::N:C:L:" 64 CHARACTER/LINE MODE" PN::L:8:"ELONGATED PRINTING MODE" ZN:D::L:8:"DOUBLED & ELONGATED" dN:E::L:8:"EMPHASIZED & ELONGATED"% nN:E:D:"3 "------------------------>READY (Y/N)?";:K$K K$"Y"ė:"BYE":T #:1~ $" 80N": [CTRL-I]80N FOR 80 COL LIST %N:C:5,200 (N:28:"NORMAL PRINT MODE" 2N:D::28:"DOUBLED PRINT MODE" <N:E::28:"EMPHASIZED PRINT MODE"6 QUICKIE DEMO PROGRAM= :3:12:"EPSON MX-80 DEMO" 10:"QUICKIE DEMO REQUIRES PRINTER ON AND":"IN SLOT #1. IF NO PRINTER THEN ANSWER":"WITH 'N' RATHER THAN 'Y'. YOU MUST ALSO":"HAVE ALREADY EXEC'D THE XEPSON.V3.3":"- IF NOT, ANSWER 'N'.   IS PROGRAM IS SETUP FOR A CLOCK CARD IN SLOT #4. GOTO LINE 6290 E PUT NAME OF WORD PROCESSER IN LINE 9000 ... N'% TH**" %%24%%I11000:I-%%I115::I3%%%% THIS PROGRAM IS SETUP WITH THE PRINTER CARD IN SLOT # 1 GOTO LINE 8700 .... &%:: E$%:0O$&%:11W$0%10s$:%"********************"{$D%10$N%"* *"$X%10$b%"* GOOD BYE *"$l%10$v%"* *"$%10%%"******************OT#"## :: RUN WORD PROCESSER :: #(#D$;"RUN APPLE WRITER"<$% ::: END ROUTINE :): EMPHASIZE OFF9"!DO$(27)(71): DOUBLE STRIKE ONa"!DC$(27)(72): DOUBLE STRIKE OFFs"!D1:D1$"OFF""!L$(27)(65): LINE SPACE"!L1$" 6 LPI""!LA$(27)(50)"!T$(27)(68)"!S1:S1$" ON""!D$(4)#!SLOT1:PRINTER SL !4!:-!>!ES$(27): ESCAPEJ!H!C$(15): COMPRESSED ONi!R!CC$(18): COMPRESSED OFF{!\!C1:C1$"OFF"!f!S$(14): DOUBLE WIDE ON!p!SC$(20): DOUBLE WIDE OFF!z!E$(27)(69): EMPHASIZE ON!!E1:E1$"OFF""!EC$(27)(70 HELLO ::: T @m J12:15:"RUN HELLO" TD$;"RUN HELLO"!*! ::: DEFINE STRINGS ::: RINTING A CATALOG, OR JUST PRESS 'RETURN' TO CONTINUE.":Z" TITLE - ";:"";A$`sD$;"PR#";SLOT(14);3:A$D$;"CATALOG"::D$;"PR#0"180N 6 ::: RUN ::: PRINT A CATALOG ::: X:750b4:7:"*** PRINT A CATALOG *** "l:?v" YOU MAY ENTER A DISK TITLE PRIOR TO PECEMBER)MTH(MTH$):I1MTH:MTH$:IJTIME$MTH$" "DAY$", 1981"rHOUR(HOUR$):HRHOUR:HR0HOUR12HR12HOURHR12AMPM$"AM":HR11AMPM$"PM"TIME$TIME$" "(HOUR)":"MINUTE$" "AMPM$ N (D$;"PR#4":D$;"IN#4":"";TIME$BD$;"PR#0":D$;"IN#0"xMTH$(TIME$,2):DAY$(TIME$,4,2):DAY$((DAY$))HOUR$(TIME$,7,2):MINUTE$(TIME$,10,2) JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,Dt(A$)0(A$,1,1)"N"60208~(A$,1,1)"Y"6200 ::: GET TIME ::: THIS ROUTINE WORKS WITH THE MOUNTAIN HARDWARE OR NEO APPLE CLOCK CARD N BOARD, DO YOU WANT TO HAVE THE 'DATE AND TIME' LINE PRINTED ? "n8(12):4)" [ Y ] - - YES ":B4)" [ N ] - - NO ":L4)" [ESC] - - RETURN TO MAIN MENU"V20:4)" [ ] ... YOUR CHOICE"`(20):(7):A$:jA$(27)ī130:4:"-";:(13);E$;556)"1259 ARTHUR ST."T55)"MADISON, OHIO 44057"s55)"TEL. 1-216-428-4843"55);TI$EC$;01304:6:"*** PRINT LETTER HEAD ***"$TIME$""L.:4)"IF YOU HAVE A HARDWARE CLOCK Of ::: LETTER HEAD ::: pz750:6160:670(13);1)S$;E$;27)S$;"STUART P. TULK"S$;E$; X340X$"1"L36:L1$" 2 LPI":5220E(X$"2"L18:L1$" 4 LPI":5220i2X$"3"L12:L1$" 6 LPI":5220<X$"4"L9:L1$" 8 LPI":5220FX$"5"L8:L1$" 9 LPI":5220PX$"6"L6:L1$"12 LPI":5220Z5130d670nL$(L)LA$;x180%" [ 2 ] 4 LINES/INCH":Q" [ 3 ] 6 LINES/INCH ":w" [ 4 ] 8 LINES/INCH":" [ 5 ] 9 LINES/INCH ":" [ 6 ] 12 LINES/INCH"20:" [ ] ... YOUR CHOICE" 20:11:X$:!:DO$;D0:180~ ::: LINE SPACING ::: 0:7504:6:"*** SETUP LINE SPACING ***":" [ 1 ] 2 LINES/INCH":70:E$; E0:180 :: SETUP DOUBLE STRIKE :: D0ī4030D1ī4070D1$"OFF":670:DC$;D1:180D1$" ON":6700:180 ::: SETUP EMPHASIZE :::  C1$" ON"ı E0ī3030 E1ī3070  E1$"OFF":670:EC$; E1:180 E1$" ON":6 ::: SETUP COMPRESSED ::: yC0ī2030C1ī2070C1$"OFF":670:CC$;:E1S1$" ON" C1:180C1$" ON":670:C$;EC$; S1$"OFF":E1$"OFF"4C 2GI140:"*";:IX"*"40)"*";"* *** MX-80 PARAMETER SETUP *** *";"*"40)"*";I140:"*";:I6:14:": S. P. TULK :"j ";:I::1:I139:"%";:I:; I122:"%";:39:"%":IAK 32,1V*33,37`434,2k>35,22qHR ,z ::: LABEL ::: SLOT < m ::: PRINTER OFF ::: t0z  ::: BORDER ::: 24:I139:"%A1$"5"ī5000"A1$"6"ī60007A1$"7"ė:7000LA1$"8"ė:8000aA1$"9"ė:9000sA1$"0"ī130A1$(27)ī9500340  ::: PRINTER ON ::: " [ 9 ] - RUN (WORD PROCESSER) "P 6" [ 0 ] - NORMALIZE PARAMETERS "s @:" [ESC] - < END > " J23:" [ ] ..... YOUR CHOICE" T(7):(23):A1$: ^A1$"1"ī2000 hA1$"2"ī2000 rA1$"3"İ3000 |A1$"4"ī4000 [ 3 ] - EMPHASIZE ";E1$S " [ 4 ] - DOUBLE STRIKE ";D1$~ " [ 5 ] - SET LINE SPACING ";L1$ " [ 6 ] - PRINT LETTER HEAD " " [ 7 ] - PRINT A CATALOG " "" [ 8 ] - RUN HELLO "& , ::: MENU ::: g 0::p 900 (4):"SELECT FROM:"32)"STATUS" " [ 1 ] - STANDARD PRINT ";S1$ " [ 2 ] - COMPRESSED PRINT ";C1$% " ::: PARAMETERS TO NORMAL::: 670:CC$;EC$;DC$;L$(12)LA$;:0\ DOMAIN ** x ::: DEFINE STRINGS ::: :8500 :12:13:"TURN PRINTER ON": OLd WRITTEN BY: ; n S.P. TULK N8AGV MADISON, OHIO JUNE 1981 ** PUBLIC                    @@@@@@@@@@@@@@@%'" BRUN TEDITOR"5': @@@@@@@@E': @ @U': @ EXIT @e': @ @u': @@@@@@@@|'0''N*&p 20:6:"(TO EXIT TO MENU PRESS 'ESC'"6&z 22:20>& M$Q& (M$)27ī150e& (M$)133430m& NNz& " 80N";& (10);& 0& 3430&: @@@@@@@@@@@@@@@@&: @ @&: @ APPLE WRITER @&: @ @': @2)'% 13:10:"TAB DOWN LINES ARE ";ET% 15:7:"AUTO-TAB OR MANUAL (A/M) ? ";B$e% B$"A"3350v% B$"M"3430% 3310% NN% " 80N";%* N0%4 NN1%> (10);%H NEī3380%R 0%\ 150%f 18:6:"FOR EACH LINE FEED PRESS 'RTN'"ENTERING @$$ : @@@@@@@@@@@@@@@@@@*$ _$ 6:2:"HAS A LETTER HEAD BEEN USED (Y/N) ? ";H$$ 8:2:"APPROXIMATE LINES OF TEXT USED ? ";T$ H$"Y"H18$ H$"N"H4$ 10:9:"LINE SPACING SIZE # ? ";W$ V(7211W)$ DVHT% E(DNT"%# 8:"(PRESS 'ESC' FOR MENU) "1# ::199# K$L# (K$)271050`# (K$)133030h# NNu# " 80N";#& AA:Q$#0 1080#: AA(40(Q$)2)7#D 2940#N 0#X 150#b : @@@@@@@@@@@@@@@@@@#l : @ VERTICAL @ $v : @ PAGE C"^ TP$"E"2930"h 31301"r AA(20(Q$)2)7M"| :13:"**************"d" 13:"* TAB IS: ";m" AA;w" " *"" 13:"**************"" AA403030" :" 3:"(REMEMBER TAB 40 IS HTAB MAXIMUM)"" # :::8:"PRESS 'RETURN' TO PRI==========="9! 10:3:"DO YOU WANT TEXT CENTERED (Y/";E! :"N";W! :") ? ";TC$i! TC$"Y"2880q! NN|! " ";! "132N";! " ";!" " ";Q$!, " ";!6 1080!@ :"IS PRINT EXPANDED OR NORMAL (E/";!J :"N";!T :") ? ";TP$ X$"I"2730< Q$"THIS IS A TEST OF THE EPSON MX-80"I 6:2770b 3:15:"TEXT INPUT"x 15:"==========" 6:"TYPE TEXT (<40 SPACES FOR EXPANDED) ========================================TEXT: ";Q$ ! "=============================; :"/N) ? ";A$% A$"N"5000/ 1080H( : @@@@@@@@@@@@@@@@@a2 : @ @z< : @ TEST PRINTOUT @F : @ @P : @@@@@@@@@@@@@@@@@Z 0:d 10:5:"SAMPLE OR INPUT TEXT (";n :"S";x :"/I) ? ";X$ HR$(71)"7 "8-CANCEL (7)=ESC'H' OR CHR$(27)CHR$(72)"= f "9-LINE SPACE=ESC'A'+ N OR CHR$(27) 3:"CHR$(65)CHR$(N)"  "10-NORMAL LINE SPACE=ESC'A' OR" 4:"CHR$(27)CHR$(65)"  "DO YOU WANT TO RETURN TO MENU ("; :"Y"CANCEL (1)=CTRL'R' OR CHR$(18)"%V K` "3-EXPANDED=CTRL'N' OR CHR$(14)"sj "4-CANCEL (3)=CTRL'T' OR CHR$(20)"yt ~ "5-EMPHASIZED=ESC'E' OR CHR$(27)CHR$(69)" "6-CANCEL (5)=ESC'F' OR CHR$(27)CHR$(70)"  "7-DOUBLE=ESC'G' OR CHR$(27)C @@@@@@@@@@@@@@@@): @ PRINTER @A: @ TABLE VALUES @Y : @@@@@@@@@@@@@@@@b 0: AST$"*****************************"$ 5:AST$. 5:"* PRINTER CTRL & ESC INPUTS *"8 5:AST$:B "1-COMPRESSED=CTRL'O' OR CHR$(15)"L "2-CTRL-I' IN"8z"THE BEGINNING OF THE LINE YOU WISH TO"f"HAVE INDENTED. RETURN TAB TO ZERO (0)""TO CANCEL THE TAB.":"ENTER TAB SPACES REQUIRED ? ";TTNN" ";"132N";T$(TT)(0);" ";1080:@@@@@@@@@@@*04>>4:8:"************************"aH8:"* HORIZONTAL TAB SETUP *"R8:"************************"\:"INPUT THE NUMBER OF SPACES THAT YOU"f"REQUIRE FOR A TAB SETTING. THE TAB IS" p"ACTIVATED BY INCLUDING A 'CT LINE SPACE # ";LNN.L$(L)LA$;50?1080RL$(12)LA$;\1080CC$SC$EC$DC$L$(12)LA$;1080: @@@@@@@@@@@@@@@@@@: @ @ : @ HORIZONTAL TAB @: @ @  : @@@@@@@b"AN INCH OR 1/6 WHICH IS THE DEFALT"Pl"VALUE OR 6 LINES PER INCH (LPH)."sv:"SOME EXAMPLE NUMBERS ARE:":5:"4 (LPI) = #18 9 (LPI) = #8"5:"6 (LPI) = #12 12 (LPI) = #6"5:"8 (LPI) = #9 18 (LPI) = #4":8:"SELE: @@@@@@@@@@@@@@@@ 0:?&4:12:"****************"[012:"* LINE SPACING *"y:12:"****************":D5:"WE WILL SELECT A NUMBER WHICH IS"N"THE NUMERATOR IN 72NDS OF AN INCH. AS"X"AN EXAMPLE: THE NUMBER 12 IS 12/72 OF"(150 JC$;T1080 ^CC$;*h10803rS$;=|1080GSC$;Q1080ZE$;d1080nEC$;x1080D$;1080DC$;1080: @@@@@@@@@@@@@@@@: @ @: @ LINE SPACING @: @ @"2"1630AA$"3"1650-AA$"4"1670?AA$"5"1690QAA$"6"1710cAA$"7"1730uAA$"8"1750AA$"9"1820AA$"10"2000AA$"11"2020AA$"12"2090"AA$"13"2320,AA$"14"26506AA$"15"3150@3EQUAL$;2SPACE8<"13-'CTRL' & 'ESC' INPUT TABLE"EFEQUAL$;PPSPACEnZ"14-RUN A TEST PRINTOUT"{dEQUAL$;nSPACEx:"15";:"-EXIT PRINTER SETUP"EQUAL$;10:"SELECT A FORMAT ";AA$NNAA$"1"1610 AA$D 6-CANCEL"EQUAL$;*SPACEM"7-DOUBLE 8-CANCEL"ZEQUAL$;eSPACE"9-LINE SPACING 10-NORMAL"EQUAL$;SPACE"11-NORMALIZE ABOVE PARAMETERS" EQUAL$;SPACE"12-HORIZONTAL TAB SET"(----------------------------"#.*800BaL" ** FORMAT SELECTION ** SLOT=";NNnVEQUAL$;y`SPACEj"1-COMPRESSED 2-CANCEL"tEQUAL$;~SPACE"3-EXPANDED 4-CANCEL"EQUAL$;SPACE"5-EPHASIZEH"*L$(12)LA$;4""&>6700HDC$;FRE$L$(12)LA$;N\""Uf0^p150w: @@@@@@@@@@@@@@@@@: @ @: @ PRINTER TABLE @: @ @: @@@@@@@@@@@@@@@@@SPACE7$EQUAL$"------------L$(12)LA$;"")L$(14)LA$;=SC$EC$C$S$;Z29:"YOUR ADDRESS HERE"cS$;26:"DAYTON, OHIO 45410"S$;28:"(513) 123-4567"840NN" 80N"(10) S$D$E$;L$(6)LA$; 20:"SAM SMIT @: @ LETTER HEAD @4: @ @K: @@@@@@@@@@@@@@@Q&v012:6:"FULL OR MIDDLE NAME (";::"F";D:"/M) ? ";R$NR$"M"ī750XNNb" 80N"l(10)vS$D$E$L$(6)LA$;17:"SAMUEL A. SMITH"|SPACE:"! (5) EXIT THE PROGRAM !"<SPACE:G$KSPACE:G$ZSPACE:F$`z15:"SELECT ONE ";N$N$"1"550N$"2"1050N$"3"3210N$"4"4000N$"5"50001050: @@@@@@@@@@@@@@@: @ ) PRINT A LETTER HEAD !"* "SPACE:G$? ,SPACE:"! ";M 6:"(2)";p @:" SETUP THE PRINTER !" JSPACE:G$ TSPACE:"! (3) CENTER TEXT VERTICALLY !" ^SPACE:G$ hSPACE:"! (4) APPLE WRITER !" rSPACE:G$- SPACE:G$= SPACE:"! APPLE <==> EPSON !"m SPACE:"! ================ !" SPACE:"! WORD PROCESSOR PROGRAM !" SPACE:"! ====================== !" SPACE:G$ SPACE:G$ SPACE:"! (1(50) KT$(27)(68), d: @@@@@@@@@@@? n: @ @R x: @ CATALOG @e : @ @x : @@@@@@@@@@@~ F$"+-------------------------------+" G$"! !" SPACE5 SPACE:F$ SPACE:G$ ";NN$ NN$""ĺ"":16< (NN$)49(NN$)55ĺ"":16M NN(NN$)48[ ES$(27)h C$(15)v CC$(18) #S$(14) (SC$(20) -E$(27)(69) 2EC$(27)(70) 7D$(27)(71) <DC$(27)(72) AL$(27)(65) FLA$(27)********** : INTRO 100-500; : LETTER HEAD 500-1000R : PRINT 1000-4000n : VERT.CENT. 4000-5000 : APPLE WRITER 5000-6000 : EXIT 6000 ::4:" ***** EPSON MX-80 PRINTER SETUP *****":12:868:"WHICH SLOT # FOR PRINTER OUTPUT? *PROGRAM:'EPSON SETUP 1.3', REV 3/81F: ********************b: * APPLE-EPSON *~: * WORD PROCESSING *: * HELLO PROGRAM *: * WRITTEN BY *: * ED & MIKE HUNTER *: * 25 DECEMBER 1980 * : **********            S.P. TULK OUT IN ORDER ON THE CALENDAR; IE.- *N LINE # 1230 1 - FIRST MONTH. 23 - 23 RD. DAY. 0 - FIRST ITEM D YEAR TO BE PRINTED TYPE JAN,1981 TO USE THE TEST DATA STATEMENTS. HIT RETURN TO START PROGRAM."iPFZ$q8J10+ N USE THE DATE AS YOUR LINE NUMBER AND THE ENTERIES WILL COME UR OWN SCHEDULE IN DATA STATEMENTS IN LINES 1000 --> 13000 FOLLOWING THE FORMAT SHOWN BY THE TEST DATA THERE. THE FIRST STATEMENT AFTER THE DATE WILL BE PRINTED ON THE CALENDAR AND MUST BE 7 SPACES WIDE."ahB"WHEN THE COMPUTER ASKS FOR THE FIRST MONTH AN"THIS PROGRAM WAS TYPED FROM THE BOOK BASIC COMPUTER PROGRAMS FOR THE HOME WRITTEN BY CHARLES D.STERNBERG.":"THE PROGRAM HAS BEEN MODIFIED TO CONTROL AN EPSON MX80 PRINTER CONNECTED TO SLOT NUMBER 1. SEE LINE NUMBERS 440,450,455,460.">"ENTER YO *** SEPTEMBER *** q' *** OCTOBER *** * *** NOVEMBER *** . *** DECEMBER *** 2 END,,,l6 *** MAY *** zp *** JUNE *** X *** JULY *** @ *** AUGUST *** 3(#  JAN,23,REPORT ,FINAL REPORT DUEE JAN,26,SCHOOL ,PTA MEETING *** FEBUARY ***  *** MARCH ***  *** APRIL *** ; ** DATA ENTERIES FOLLOW **  *** JANUARY *** . JAN,7,MEETING,MEETING WITH LAWYER$885pD3,D4$,D5$uI!zS ******* DATA FOR INITIALIZATION *********v SUN,MON,TUE,WED,THUR,FRI,SAT JAN,31,FEB,28,MAR,31,APR,30,MAY,31,JUN,30 JUL,31,AUG,31,SEP,30,OCT,31,NOV,30,DEC,31 (I1)D7(I1)L08154 D6$(I1)" "815D%D6$(I1)D4$M*L11T/IZ49 ********** DETAILED PRINT OF SCHEDULE>CM0$(M3)HMI131RX$WI\I1100aM3$,D3,D4$,D5$fM3$"END"890kM3$M0$(M3)************* REVIEWS SCHEDULE ITEMS ******************?HL10TI131\X$cIpI1100M3$,D3,D4$,D5$M3$"END"820D3N0(M3)815M3$M0$(M3)815D3I0815 D3I07815I1D3I08D7(I1)1D7"; qS1I1vI0I01${S0I1+I4"I"=L00GS0S1Mj ** VERT. LINES *******vI1M1D6$(I)" "700"I ";D6$(I);" ";D6$(I)" "D7(I)0705"I ";I"I"9 *********I1M1&!J15605&IS0560>+I01R0N0(M3)I0580e5"I ";q:I0I01z?640DI09620II00600N"I ";S640X"I ";I0;" ";]I0I01bS1I1g640l"I ";I0;" ";M0$(M3);" ";Y.:9I17S" ";D0$(I);" ";ZI`f ******** PRINTS SCHEDULE OUTLINE ************I1M1"I---------";I "I"  ******* PRINTS CALENDAR DAY LINE ************* PROGRAM TERMINATION POINT ******************LA$"Y"415U825dS08425mS01uI2{ *********** PRINTS HEADINGS *****A1$"Y"450X$1(9)(1);(1)"80N";&" 295 "N0(2)29 '270( ,S004151 1435= 6J1M2F ;505Q @K17c EN1$(K)" "j JK} ON0(M3)I0400 T535 YL110 ^720 cL10380 hA2$"Y"395 m665 r665 w395 |665 L0L01 L J;17 D1$D0$(K)225! S0K( Kj ********** PROCESSING LOOP **************************| I2M4M4N1 N0(2)28 YY1 (Y4)Y4260 N0(2)29 I00 M3I2 M312300 M3M312 YY11 (Y4)Y4A1$7 "DO YOU WANT AN EXPANDED CALENDAR ( Y OR N )?"@ A2$R A1$"Y"190 "BEFORE THE PRINTING OF EACH MONTH A '?' WILL APPEAR" "ALIGN TO THE TOP OF PAGE BEFORE PRESSING THE RETURN" I112 M$M0$(I)205 M4I I KTARTS ON SUCH AS SUN MON TUE WED THUR FRI SAT."8 D1$ "ENTER THE NUMBER OF MONTHS TO BE PRINTED SUCH AS 1 OR AS MANY AS YOU WISH." N "SHALL I PRINT THE SCHEDULED ITEMS( Y OR N )?" A$ "DO YOU WANT PAGE ALIGNMET ( Y OR N )?" D0$(2),D0$(3),D0$(4),D0$(5),D0$(6),D0$(7)5 PI112G UM0$(I),N0(I)N ZIY _I17n dD6$(I)" "u iI{ n s"ENTER THE FIRST MONTH AND YEAR TO BE PRINTED I. E.,JAN,1981" xM$,Y1/ }"ENTER THE DAY OF THE WEEK THAT THE FIRST MONTH S14000B REMINDER SCHEDULE AND CALENDAR-ENHANCED  ************* DATA INITIALIZATION *******************N0S00L00#M17(M27-M412D6$(7)7D7(7)<D0$(7)AN0(12)FM0$(12)) KD0$(1),        "CLOSE LISTER":D$;"EXEC LISTER"&3 M FEED, PRINT TITLE (AND TIME LINE?)M0"PRINT ";Q$;(12);SP$;CI$;P$;CO$;Q$s81(TIME$)0ĺ"PRINT ";Q$;TIME$;Q$1"LIST"2 d2 FORM FEED AND RETURN TO VIDEO2"PRINT ";Q$;(12);Q$:"PR#0":"FP",3"TEXT":"DELETE LISTER":"HOME" 3D$;+ %$, ASSEMBLE CONTROL CHARACTERS7,CI$"":CO$""J, DOUBLE WIDTHjP-CI$CI$(14):CO$CO$(20){- EMPHASIZED.CI$CI$(27)(69)|.CO$CO$(27)(70). DOUBLE STRIKED/CI$CI$(27)(71)/CO$CO$(27)(72) 0 $p0 FORz#Xճ  ήîҮήîҮɳ ԮϠԮԠήֳ " Πظ͠Ԡ ΠظҠҠΠظРɠ! ΠظРɠ! Π٠Ϡ Π٠Ϡ ΠĠŠ  ΠظǠ ΠظϠɠΠظϠɠΠظ̠ҠɠΠظ̠Ҡɠ4Πظ̠Ҡɠ5 Πظ̮à"  ΠҠҠΠҮΠǠΠӠɠ ΠӠɠΠӠɠΠҠŠ̠Ϡ ̠Ϯà!бвгд ΠǠ̠Š@@YY3fP*U*U*U*U*U*U*U*U*U*U*U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*U@*U*U*U*U*U`F `P*ysdy?N3N3~9~O9fys$'3.'*** WRITTEN BYK8'*** LYNELL JACKSONeB'*** JANUARY 14, 1987kL'V'*** LAST MODIFIED BY`'*** LYNELL JACKSONj'*** JANUARY 27, 1987t'~'<*** "ISL HELLO" ***>DMONDAY-SATURDAY." #""=#"TECHNICAL SUPPORT HOURS ARE"n#"8:30 AM --> 4:30 PM PST MONDAY - FRIDAY." v#""#"CALL US FOR A FREE CATALOG OF"#"COMPUTER SUPPLIES AND THE LATEST AND"#"MOST UP TO DATE PUBLIC DOMAIN SOFTWARE." ' Z#"A DIVISION OF U.S.COMPUTER SUPPLY INC."O d#"511-104 ENCINITAS BOULEVARD"j n#"ENCINITAS, CA 92024" x#"(800) 992-1992 (USA) #"(800) 992-1993 (FOR CA) #"(619) 942-9998 (FOREIGN) #"" #"ORDER HOURS ARE"#"6:00 AM --> 4:30 PM PST l24:7110 vGO$: # : TB%(21(PR$)2)I TB%:PR$;O U (#r +#<*** DATA LOCATION ***>x /# 2#"FOR OTHER PUBLIC DOMAIN AND" <#"USER-SUPPORTED PROGRAMS PLEASE CONTACT:" F#"" P#"THE INTERNATIONAL SOFTWARE LIBRARY",16297,1:16300,1:16301,1:16304,12 70108 @ :M I1ND%_ PR$:I:7110f Ip 7010v  RN$""ė:D$;"CATALOG": (:D$;"RUN ";RN$ 2 X [<*** SUBROUTINES ***> _ bPR$"< PRESS ANY KEY TO CONTINUE >" GF%11110 :E PR$" U.S. COMPUTER SUPPLY INC. PRESENTS:"S 10:7110 PR$"THE INTERNATIONAL SOFTWARE LIBRARY" $13:7110 .7010:1210 L V: `PR$"* LOADING PROGRAM *" j11:7110: ~D$;"BLOAD ISL HELLO.GRAPHIC"( CING FOR PRINTING DATA LINE6 * I = LOOP VARIABLE S * GO$ = CONTINUE STRING GF%1:* DISPLAY GRAPHIC FLAG, 1=YES, 0=NO ND%20:* NUMBER OF DATA LINES RN$"":* NAME OF THE PROGRAM TO RUN NEXT  <*** MAIN PROGRAM ***>  <*** "ISL HELLO" ***>">*** PROGRAM WRITTEN BYV(*** LYNELL JACKSONp2*** JANUARY 14, 1987vdg<*** VARIABLES ***>knD$(4):* CONTROL-DxH$(8):* CONTROL-H* PR$ = DATA LINE FOR PRINTING * TB% = TAB SPA     P*Os?~~?O`P*U*U*U*U*U@*U*U*U*U*U``P*?U`<P*U*U*U*U T*U*U*U*U`P*U*U*U*U*U*U*U*U*U*U*U`L}|L1`><P*ysd?N3N?~9rO9fIs`P*U*U*U*U*U@*U*U*U*U*U``s3O{qc<P*?U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*UP*U*U*U*U*U` `P*ysx?N30~9O9fp TEDITOR4> PRINTERf> PRINT CONSTANTSDER,"8 "THEN RE-RUN EPSON DRIVER INSTR AND CONTINUE."> [ 5)"EPSON DRIVER INSTR"s 5)"EPSON DRIVER." 5)"TEXT.DEMO" 5)"TEXT.MXTEST": 36,45:KEY$   12:11::" TURN ON PRINTER ":@18:8)"PRESS ANY KEY TO "DO TOO MUCH BACK-SPACING AND THE"L "DRIVER WILL BE CLOBBERED. IF THIS"r "HAPPENS, RE-BOOT TO RELOAD IT." F9)"PRESS ANY KEY TO CONTINUE" x36,45:KEY$  "FIRST, COPY THE FOLLOWING PROGRAMS ONTO" "THE SAME DISK WITH APPLE WRITFROM THE MX80 USER'S MANUAL."K 4)"NOW HIT THE (P) KEY, WHEN THE PRINT"v "CONSTANTS COME ON THE SCREEN,CHANGE" "(J) TO 0300. (THE DRIVER ADDRESS.)" "RE-BOOT APPLEWRITER, LOAD AND PRINT" L"DEMO TO SEE HOW THE PRINTER RESPONDS"" ~4)"AFTER DEMO IS LOADED, PRINT IT. THIS"N X"WILL CAUSE THE DEMO COMMANDS TO"y "BE PRINTED. THIS WAY YOU CAN GET AN" "IDEA HOW THE COMMANDS ARE USED. 155" "IS THE ASCII FOR ESCAPE + 128. ALL" "THE OTHER CODES ARE STRAIGHT ASCII," R")"THIS DRIVER PROGRAM ENABLES"M ,"YOU TO CONTROL YOUR EPSON MX-80 PRINTER"y ^"FROM WITHIN THE APPLEWRITER PROGRAM." "BEFORE USING THIS DRIVER, MAKE SURE" "THAT YOUR PRINTER CARD IS IN SLOT 1." "NOW RUN APPLE WRITER AND LOAD DEMO."' &d EPSON DRIVER AND EPSON DRIVER INSTR PUBLIC DOMAIN BY RALPH G. WINTERHOFF 1420 WALTHAM AV ORLANDO, FL 32809 D$(4): 4 bd CATALOG DOUBLE STRIKE rn(4)"PR#1"x(27)(71)(4)"CATALOG"(27)(72)(4)"PR#0"Z  L`,0` E ` ` G ` L `   F  H ` L LBJCKLX JAKLXCKYN$"Y"YN$"N"2100 HYN$"N"Ā R20 $(X)"D"CL%(CL%2)* @CL%(CL%83.5)C JSP%(CL%(L$(X)))2f TSP$"":Y1SP%:SP$SP$" ":Y CR$;DS$;DW$;SP$;L$(X) X N:PFı D$"PR#0" 2100  ///PRINT TEST LABELS NBNL:NL1 PF1:230 D$"PR#0":"IS PRINTER YN$"Y"İ1000$ N1NL:X16> CR$(X)"C"CR$(15)X CR$(X)"R"CR$(18)r DS$(X)"D"DW$(14) DS$(X)"R"DW$"" DR$(X)"D"DS$(27)(71) DR$(X)"R"DS$(27)(72) "CR$(X)"R"CL%80 ,CR$(X)"C"CL%132 6DSR"70 KDS$(X)2 P"DOUBLE STRIKE/REG. (D/R)";e ZDR$(X):DR$(X)"D"DR$(X)"R"DR$(X)""90| dDR$(X)""DR$"R" iDR$(X) n x"HOW MANY LABELS:";NL "TEST LABELS WANTED? (Y/N)"; YN$:YN$"Y"YN$"N"210 YN$:D$"PR#1" :D$(4)X165"LINE ";X;:":";L$(X)t#L$(X)""L$(X)" ":DR$(X)"R":DS$(X)"R":CR$(X)"R":110("COMP./REG.:";2CR$(X):CR$(X)"C"CR$(X)"R"507CR$(X)<"DOUBLE WIDE/REG. (D/R):"; FDS$(X):DS$(X)"D"DS$(X)"A$(4) " "PRINTER SLOT ";Sj :"READY PRINTER FOR TEST LABEL AND HIT RETURN FOR TEST"::A$ S:"LINE ONE":"LINE TWO":"LINE THREE":"LINE FOUR":::::::: 0 "ANOTHER ";A$:A$"Y"420  );(20);(15):+ Q(27)"F";(15);A$(N):3 UT2B ZI1T::H _O d0Z n::8 V8((A$(1))2):A$(1)(14)(SP$,V)A$(1) V26(A$(2))2:A$(2)(SP$,V)A$(2) V26(A$(3))2:A$(3)(SP$,V)A$(3) V26(A$(4))2:A$(4)(SP$,V)Ⱥ"54 CHARS MAXIMUM":20+ "THREE ";A$(3)T #(A$(3))53ĺ"54 CHARS MAXIMUM":30h ("FOUR ";A$(4) -(A$(4))53ĺ"54 CHARS MAXIMUM":40 2: A:"QTY. ";Q B200 FS KK1Q O(18);(20);(27)"E";(27)"H"; PN14:N1ĺA$(N"::"LABEL PROGRAM"::34,23::400::{SP$" "::"LABEL LINE NUMBER ":: "ONE ";A$(1)(A$(1))15ĺ"15 CHARS MAXIMUM":10"TWO ";A$(2) (A$(2))53 50:"DOUBLE WIDE CHARACTERS? ";:Y$:Y$"Y"L256 E 1:(31);d B16:A$(B);(2):B:0:  7500/ <A$(A)(S$,(L1(A$(A)))2)A$(A)N AL25A$(A)(1)" "A$(A)W F:Aw P"HOW MANY TEST LABELS? ";N UN0120 ZX1N:"HIT ANY KEY TO PRINT":Y$ n1000:X x"HOW MANY LABELS? ";N }N0ī80 X1N:1000 800 LfA$(6)2 ** LABEL STRIKING PROGRAMP"LABEL PRINTING PROGRAM"S$" ""PRINTS UP TO 6 LINES, CENTERED"#A16("LINE ";A:X150:(95);:21:(37):A$(A)    (4)"PR#1"9 23)"GREETINGS FROM THE VERSATILE"O32)(14)"MX-80"w57)(15)"BY "(14)(27)"G""EPSON"230)(18)"YOU'LL LIKE ME!"<(27)"H"F(4)"PR#0" 4): SHIFT OUT(ENLARGE): }SI$(15): SHIFT IN(CONDENSE)[ }NO$(20): CANCEL SHIFT OUT{ }NI$(18): CANCEL SHIFT IN }ES$(27): ESCAPE }EM$ES$"E": EMPHASIZE }DP$ES$"G": DOUBLE PRINT }NE$ES$"F": CANCEL EMPHASIZE }ND$ES$"H"$: QP$DP$NE$:' QP$EM$ND$:9 QP$DP$EM$:D 32000O J13Z !K14h "CMJ:PMK| #CM600,610,620 $PM650,660,670,680 %QQ$QC$QP$ &1 'QQ$;"....THIS IS A TEST OF THE EPSON PRINTER" (K,J )0 * }SO$(1M4)(PM0)(PM5)1707 "BAD INPUT, TRY AGAIN":130K CM600,610,620c PM650,660,670,680 "ENTER TEXT TO BE PRINTED ?";L1$ 1 QQ$QC$QP$ QQ$;L1$ 0::130 XQC$NI$NO$: bQC$SO$NI$: lQC$SI$NO$: QP$NE$ND1 = NORMAL" P"2 = ENLARGED"4 Z"3 = CONDENSED"O d(5):20:"1 = NORMAL"p n(6):20:"2 = DOUBLE PRINT" x(7):20:"3 = EMPHASIZE" z(8):20:"4 = EMPHASIZE+DOUBLE" }34,12 (15) "ENTER CHARACTER,PRINTCODE ?";CM,PM (CM0)(C EPSON PRINTER DEMO0 BY GENE ALLISONG STEMS FROM APPLEd JANUARY, 1981 PAGE 11j w :3200012:"EPSON PRINTER DEMO":(12:"BY GENE ALLISON"2K139:"-";::<"CHARACTER CODES";:20:"PRINT CODES" F"NSED PRINT"+ D2$;"BACK TO NORMAL PRINT"< :? FF$; B I *0O 4a A4848LINEl (A);s Ay   K"THIS LINE SHOULD BE BACK TO NORMAL"V SI$;"THIS LINE SHOULD BE CONDENSED PRINT"o MAY NEED TO CHANGE{ LINE80 900 XSO$; l"THIS SHOULD BE ENLARGED CONDENSED PRINT" vSO$; {LINE64 900 LINE80 D4$;"BACK TO CONDET)- D1$(17): DC1 (SELECT PRINTER) P D2$(18): DC2 (CANCEL SI)y D3$(19): DC3 (DESELCT PRINTER) D4$(20): DC4 (CANCEL SO) d"PRINTER SLOT?";S nS }LINE80 900 SO$;"THIS LINE SHOULD BE ENLARGED PRINT"' 4 I$(9): CNTRL-I FOR CHANGING PRINTER WIDTHP LF$(10): FORM FEEDq VT$(10):VERTICAL TAB  FF$(12): FORM FEED CR$(12):CARRIAGE RETURNSO$(14): SHIFT OUT (ENHANCED PRINT) SI$(15):SHIFT IN (CONDENSED PRIN CONTINUE"$ F"THE CATALOG LISTING", P:\ Z"NAME OF THE DISK TO BE CATALOGED ?";NAME$q dD$(4): CTRL-D nD$;"PR#1" x(15): SHIFT INPRINTING "DISK I.D. =";NAME$ D$;"CATALOG" D$;"PR#0" % CATALOG DISK TO EPSON PRINTERA REF: STEMS FROM APPLE\ JANUARY, 1981 PAGE 8{ BY GENE ALLISON 12/16/80("THIS PROGRAM WILL MAKE A HARD COPY"2"OF THE CATALOG FOR YOUR DISK.";::"REMEMBER": <"TO HIT THE SPACE BAR TO   L 1" 80N")I("A")("Z")7((I32);>2ID<JFd 9 ::: HOW MANY ? ::: A14d" HOW MANY LABELS ";kXyX0ī210" , ::: ROM PLUS ON ::: 6SLOT3: ROMPLUS IN SLOT #3 52 ::: DOUBLE PRINT ::: @<I1XLF(14);TPA$`Z(14);hdB$tn(14);|xC$(14);D$(14);E$I690:(18);0 E$ 7 h ::: STANDARD PRINT ::: sI1X{A$B$C$D$E$ I690:(18);:0: COMPRESSOR OFF ( A$14&" INPUT LINE #2 "317:890>17:4FB$N14e" INPUT LINE #3 "r$18:890}.18:48C$B14L" INPUT LINE #4 "V19:890`19:4jD$t14~" INPUT LINE #5 "20:89020:4 @p ::: LINE LIMITER ::: Zz5:I1S1:(95);:Ic"]"i  ::: INPUT LINES ::: 14" INPUT LINE #1 "16:89016:4 Q ::: BORDER ::: W] 24:I139:"%";:I::1:I139:"%";:I: I122:"%";:39:"%":I*432,1>33,37H34,2R35,22\f o ::: PRINTER ON ::: v1|  ::: PRINTER OFF ::: 0 " PRINT WIDTH IS SET BY LINE LIMITERB:" FOR 3 1/2 INCH LABELS.HDoN" 5 LINES FOR 15/16 INCH LABELS."uXb" DO NOT USE COMMAS OR COLONS."lv" A RETURN WITH NO ENTRY WILL GIVE"" A BLANK LINE"34,13>  A1$"3"S116:1810F A1$"4"S127:690:(27);"F";:0:1910_ A1$"5"S131:1950r A1$"6"İ2170 A1$(27)ī1990 440   ::: INSTRUCTIONS ::: &3$0 - - - STANDARD / ROM PLUS"? "ESC [ 6 ] - - - EMPHASIZE "c :" [ESC] - - - < EXIT >" 22:" [ ] ..... YOUR CHOICE" E1:2170 210 (9):(22):A1$: A1$"1"S131:1670 A1$"2"S154:690:(27);"F";:0:17708:13:" ":2 @" SELECT FROM:": J:g T" [ 1 ] - - - STANDARD 80 CPL" ^" [ 2 ] - - - COMPRESSED 132 CPL" h" [ 3 ] - - - DOUBLE WIDE 40 CPL" r" [ 4 ] - - - COMPRESSED 66 CPL" |" [ 5 ] I140:"*";:II "* *";z "* *** LABEL MAKER *** *"; "* *"; I140:"*";:I 8:13:"TURN PRINTER ON": "I1500:I ,210 6 0 :R 16302,0:16297,0:16304,0x (4)"BLOAD EPSON MX80 LABEL.PIC"~ I12000:I ::: MENU ::: : Ld WRITTEN BY: n S.P TULK N8AGV MADISON, OHIO MARCH 1981 ( x ** PUBLIC DOMAIN **           : CANCEL DOUBLE PRINTJ }DS$ES$"A"(24)"2": EXECUTE DOUBLE PRINT { }SS$ES$"A"(12)"2": EXECUTE SINGLE PRINT }CR$(13): CARRIAGE RETURN FORCES PRINT OF BUFFER }BELS"3 h" [ 9 ] - - - BORDERED DISK LABELS"W r:" [ESC] - - - < EXIT >" |23:" [ ] ..... YOUR CHOICE" (9):(23):A1$: A1$"1"S130:1650 A1$"2"S153:670:(27);"F";:0:1780 A1$"3"S115:1820"A1$" 132 CPL"6 ," [ 3 ] - - - DOUBLE WIDE 40 CPL"c 6" [ 4 ] - - - COMPRESSED 66 CPL" @" [ 5 ] - - - STANDARD / ROM PLUS" J" [ 6 ] - - - EMPHASIZE " T" [ 7 ] - - - YOUR LABEL" ^" [ 8 ] - - - 10 MOST USED LA *";3 I140:"*";:I9 Y 8:13:"TURN PRINTER ON":_ i 150w E1:2190 (8):986 (7):"SELECT FROM: "  " [ 1 ] - - - STANDARD 80 CPL" "" [ 2 ] - - - COMPRESSED ::: MENU ::: p :::670:(18);:0v I140:"*";:I "* *"; "* *** LABEL MAKER *** *"; "* REVISED JUNE 81 ** PUBLIC DOMAIN ** V 2Ld WRITTEN BY: n S.P TULK N8AGV MADISON, OHIO MARCH 1981 \ x                 GOTO LINE #650  THE PROGRAM IS SET UP FOR A ROMPLUS CARD IN SLOT #3. GOTO LINE 1550E0: M THIS PROGRAM IS SET UP FOR THE MX-80 CARD IN SLOT #1. ::: SzE0ī2200bE1ī2240h690:19:(27)"E";:018:35:" "18:36::"ON":E1:690:19:(27)"F";:018:35:" ";18:35::"OFF";: *"104 "* GOOD BYE *"<10X "* *"`*10|4"********************">24HI11000:IRI115::I\f Dp::: SETUP EMPHASIZE %1590: ROMPLUS ON/1680  ::: END ::: :0:1110"********************"10"* TER OFFX210: GOTO MENUSb l ::: 66 CPL SETUP ::: v690:(15);:01810  ::: ROMPLUS SETUP ::: 703 j ::: 40 CPL SETUP ::: 770: DRAW BORDER550: INSTRUSTIONS&940:GET INPUT01520:HOW MANY?:690:PRINTER ON D1340: PRINT LARGEN730: PRINGET INPUT1520: HOW MANY?5690: PRINTER ONN1220: PRINT LABELSe730: PRINTER OFFz210: GOTO MENU  ::: 132 CPL SETUP ::: 690:(15);:016.@M$"": THERE IS A SHIFT/CTRL/M IN QUOTESCJ(4);"PR#";SLOTITV^M$;"1A"\hr | ::: 80 CPL SETUP ::: 770: DRAW BORDER550: INSTRUCTIONS 940: ********************"109 "* *"A10] "* GOOD BYE *"e*104"* *">10H"********************"R24\I11000:IfI115::Ipz 7 ::: ROMPLUS SETUP ::: N1570: ROMPLUS ONX1660  ::: END ::: :0:1110"F THE SAME LABEL ";:X$:X$"Y"X$"YES"ė:1850El150: GOTO MENU|v  ::: 66 CPL SETUP ::: 670:(15);:01820 E ::: 40 CPL SETUP ::: \750: DRAW BORDERt&530: INSTRUSTIONS0920:GET INPUT:1500:HOW MANY?D670:PRINTER ON N:1330:PRINT LARGEX710: PRINTER OFF0b:2540::" MORE OX$:X$"Y"X$"YES"ė:16806X$"N"X$"NO"ī1750@1720U150: GOTO MENU  ::: 132 CPL SETUP ::: 670:(15);:01650  ::: 80 CPL SETUP ::: Er750: DRAW BORDER]|530: INSTRUCTIONSr920: GET INPUT1500: HOW MANY?670: PRINTER ON:1210:PRINT LABELS710: PRINTER OFF:2540::" MORE OF THE SAME LABEL ";: G ::: ROM PLUS ON ::: h"SLOT3: ROMPLUS IN SLOT #3,M$"": THERE IS A SHIFT/CTRL/M IN QUOTES6(4);"PR#";SLOT@JM$;"1A"T^ .h); E$(14);F$$+I208p  ::: HOW MANY ? ::: 14" HOW MANY LABELS ";XX0ī150 3 ( ::: DOUBLE WIDE ::: 2I1X<(14);FA$P(14);ZB$d(14);nC$x(14 `"";E$j14*t" INPUT LINE #5 "7~20:870B20:4M"";F$S  ::: STANDARD PRINT ::: L13930I1XA$B$C$E$F$ I" INPUT LINE #1 "$16:870/16:4:"";A$B14Y" INPUT LINE #2 "f17:870q17:4|"";B$14" INPUT LINE #3 "18:87018:4$"";C$.L1ı814B" INPUT LINE #4 "L19:870V19:42 >35,22H?R p\ ::: LINE LIMITER ::: f5:I1S1:(95);:Ip"]"z  ::: INPUT LINES ::: 14 0O  ::: BORDER ::: 24:I139:"%";:I::1:I139:"%";:I: I122:"%";:39:"%":I 32,1*33,37434, A BLANK LINE"v34,13n  ::: PRINTER ON ::: 1  ::: PRINTER OFF ::: INSTRUCTIONS ::: &3P" PRINT WIDTH IS SET BY LINE LIMITERn&" FOR 3 1/2 INCH LABELS.t0:" 5 LINES NORMAL OR 3 LINES BORDERED.DN" DO NOT USE COMMAS OR COLONS."Xb" A RETURN WITH NO ENTRY WILL GIVE"l"4"S126:670:(27);"F";:0:1930;A1$"5"S130:1970NA1$"6"İ2190cA1$"7"ė:2310xA1$"8"ė:2610A1$"9"S123:L1:S$(29):3600A1$(27)ī2010390  ::: C- A$"GOTO LINE 3250"M- B$""W- C$""a- E$""k- F$""q- . ::: LABEL #7 ::: X,l A$"GOTO LINE 3180"b,v B$""l, C$""v, E$"", F$"", +- ::: LABEL #6 ::: I+& A$"LEADER MORTGAGE CO."`+0 B$"P.O. BOX 5241"+: C$"CLEVELAND OHIO 44101"+D E$""+N F$""+X @,b ::: LABEL #5 ::: 2* A$"LAKE CO. SANITARY ENG."K* B$"105 MAIN STREET"m* C$"PAINESVILLE OHIO 44077"w* E$""* F$""* ,+ ::: LABEL #4 ::: ) A$"EAST OHIO GAS CO."3) B$"P.O. BOX 6862"S) C$"CLEVELAND OHIO 44184"]) E$""g) F$""m) * ::: LABEL #3 ::: LL. CO.""(^ B$"55 PUBLIC SQUARE"B(h C$"CLEVELAND OHIO 44178"L(r E$""V(| F$""\( ) ::: LABEL #2 ::: :2390"', A3$"0"İ3530::23906'6 A3$(27)ī150@'@ 2760'J ::: LABEL #1 ::: (T A$"CLEVELAND ELECT. I& (9):(21):A3$:/& A3$"1"İ2900::2390J& A3$"2"İ2970::2390e& A3$"3"İ3040::2390& A3$"4"İ3110::2390& A3$"5"İ3180::2390& A3$"6"İ3250::2390& A3$"7"İ3320::2390& A3$"8"İ3390::2390'" A3$"9"İ3460: [ 6 ] - - - XXXX LABEL"<% " [ 7 ] - - - XXXX LABEL"`% " [ 8 ] - - - XXXX LABEL"% " [ 9 ] - - - XXXX LABEL"% " [ 0 ] - - - XXXX LABEL"% :" [ESC] - "% 21:" [ ] ..... YOUR CHOICE" $2 750:4:3+$< " SELECT FROM:"3$F :Y$P " [ 1 ] - - - ELECTRIC CO."$Z " [ 2 ] - - - EAST OHIO GAS"$d " [ 3 ] - - - SANITARY ENG."$n " [ 4 ] - - - LEADER MORTGAGE"$x " [ 5 ] - - - XXXX LABEL"% " 0::2530:1850# 2470!# 4,# 6:A$7# 6:B$B# 6:C$M# 6:E$X# 6:F$^# $( :: 10 MOST USED :: " " [ 4 ] - - - COMPRESSED 66 CPL"N" 20:" [ ] ..... YOUR CHOICE"b" 6:(20):A2$:}" A2$"1"ė:2530:1680" A2$"2"ė:(27);"F";:0:670:(15);:0::2530:1680" A2$"3"ė:2530:1850# A2$"4"ė:(27);"F";:0:670:(15);:RINT CHOICE ::: T!L 750^!V 2530x!` :" SELECT FROM:"!j :!t " [ 1 ] - - - STANDARD 80 CPL"!~ " [ 2 ] - - - COMPRESSED 132 CPL"! " [ 3 ] - - - DOUBLE WIDE 40 CPL"( A  A$"Y O U R N A M E"Z  B$"A D D R E S S "u  C$"CITY STATE ZIP " $ E$"" . F$"GOTO LINE 2310-2350" 8 2380K!B ::: P";:015:35:" ";015:35::"OFF";::E0:'  ::: YOUR LABEL ::: m::: SETUP EMPHASIZE ::: |E0ī2220E1ī2260670:16:(27)"E";:015:35:" "15:"ESC ":15:36::"ON":E1:670:16:(27)"F REVISED JUNE 81 SPT ** PUBLIC DOMAIN ** H3Ld WRITTEN BY: nS.P. TULK N8AGV MADISON, OHIO MARCH 1981 x                   YOU WOULD LIKE TO USE YOUR INIT. IN THE TOP LINE OF A DISK LABEL... REPLACE VOL. IN LINE 3740. (MAINTAIN SPACES INSIDE QUOTES) GOTO LINE #670 9 THE PROGRAM IS SET UP FOR A ROMPLUS CARD IN SLOT #3. GOTO LINE 1570 : IF88 I9 THIS PROGRAM IS SET UP FOR THE MX-80 CARD IN SLOT #1. BR:V2$;:V1$;:BR19:20)BR$;:BR:;7LL1:L2L$A$J7L3L$B$Y7L4L$C$7BR$;:(15((L$)2)):L$;:28:BR$:L439707A4$"0"ī40407BR19:BR$;:BR:Z$;:BR19:BR$;:BR::740507BR128:BR$;:BR::8L1:I6A4$"1"Z$" DOS 3.2 "96A4$"2"Z$" DOS 3.3 "V6(A4$"3"Z$" COBOL "s62A4$"4"Z$" PASCAL "6<A4$"5"Z$" CP/M "6FA4$"0"39206P::16506ZI1X6dV$"Y"ī39606nBR128:BR$;:BR::3970&7xBR19:BR$;:DOS 3.2":*5(9):"[ 2 ] - - DOS 3.3":L5(9):"[ 3 ] - - COBOL ":l5(9):"[ 4 ] - - PASCAL ":5(9):"[ 5 ] - - CP/M ":5(9):"[ 0 ] - - SOLID BORDER ":5 (20):(9):"[ ] ..... YOUR CHOICE";:(11):A4$::A4$"0"A4$"5"3850 (MUST BE 3 DIGETS LONG) [ ] ";:3730743650I4(30):"";V1$Z4V2$" VOL. "n4(V1$)336504(V1$)3ī3780436504:750:(3):" WHAT WOULD YOU LIKE IMPRINTED IN THE BOTTOM PORTION OF THE BORDER?": 5(9):"[ 1 ] - - R IN THE TOP LINE OF THE BORDER ?"::R3L" [ Y ] - - - YES ":{3V" [ N ] - - - NO ":3`" [ ] ..... YOUR CHOICE";3j(14):V$:3tV$"N"3780-4~V$"Y"ė:(10):" ENTER YOUR VOLUME NUMBER (###) * ********* DOS 3.2 *********"2$(12):" WHAT CHARACTER DO YOU WANT TO USE FOR THE BORDER? DEFAULT = * "2.(13):(19):"";BR$:BR$""BR$"*"28(BR$)23600)3B:(10):" WOULD YOU LIKE A VOLUME NUMBE"" 1 E$""1 F$""1 o1 ::: LABEL BORDER ::: x1750A234,10:(3):(5):"********* VOL. 123 ********* * * * DISK LABEL * *460"0 B$""0 C$"""0 E$"",0 F$""20 0 ::: LABEL #0 ::: 0 A$"GOTO LINE 3530"0 B$""1 C$ /> A$"GOTO LINE 3390"#/H B$""-/R C$""7/\ E$""A/f F$""G/p /z ::: LABEL #9 ::: 0 A$"GOTO LINE 3 .. A$"GOTO LINE 3300"8. B$""B. C$""L. E$""V. F$""\.* /4 ::: LABEL #8 ::: 670: PRINTER ON-:1210:PRINT LABELSD710: PRINTER OFF:2540::" MORE OF THE SAME LABEL ";:X$:X$"Y"X$"YES"ė:1680X$"N"X$"NO"ī17501720150: GOTO MENU QUOTES6(4);"PR#";SLOT!@.JM$;"1A":TS130:q^ h ::: 80 CPL SETUP ::: r750: DRAW BORDER|530: INSTRUCTIONS920: GET INPUT1500: HOW MANY? 14<" HOW MANY LABELS ";CXQX0ī150W  ::: ROM PLUS ON ::: "SLOT3: ROMPLUS IN SLOT #3,M$"": THERE IS A SHIFT/CTRL/M IN )2I1X5<(14);=FA$IP(14);QZB$]d(14);enC$qx(14);yE$(14);F$I0  ::: HOW MANY ? ::: ARD PRINT ::: /L13930:I1XBA$JB$RC$ZE$bF$ho Iu ( ::: DOUBLE WIDE ::: LINE #3 "18:870"18:4-$"";C$8.L1ı@814WB" INPUT LINE #4 "dL19:870oV19:4z`"";E$j14t" INPUT LINE #5 "~20:87020:4"";F$ ! ::: STAND]"z6 g ::: INPUT LINES ::: o14" INPUT LINE #1 "16:87016:4"";A$14" INPUT LINE #2 "17:87017:4"";B$14 " INPUT24:I139:"%";:I::1:I139:"%";:I:K I122:"%";:39:"%":IQ[ 32,1f*33,37p434,2{>35,22HR \ ::: LINE LIMITER ::: f5:I1S1:(95);:Ip" 1L } ::: PRINTER OFF ::: 0  ::: BORDER ::: -INES BORDERED.D9N" DO NOT USE COMMAS OR COLONS."?Xhb" A RETURN WITH NO ENTRY WILL GIVE"}l" A BLANK LINE"v34,13  ::: PRINTER ON ::: 18:D23:3600"A1$(27)ī2010+390d  ::: INSTRUCTIONS ::: 3" PRINT WIDTH IS SET BY LINE LIMITER&" FOR 3 1/2 INCH LABELS.0:" 5 LINES NORMAL OR 3 LA1$"3"S115:1820DA1$"4"S126:670:(27);"F";:0:1930]A1$"5"S130:1970pA1$"6"İ2190A1$"7"ė:2310A1$"8"ė:2610A1$"9"S123:L1:S$(29):A28:B9:C15:D20:3600 A1$"0"S129:L1:S$(29):A34:B12:C" [ 9 ] - - - SHORTENED DISK LABEL"V m" [ 0 ] - - - FULL SIZE DISK LABEL"y r:" [ESC] - - - < END >" |23:" [ ] ..... YOUR CHOICE" (9):(23):A1$: A1$"1"S130:1650 A1$"2"S153:670:(27);"F";:0:1780 ," [ 3 ] - - - DOUBLE WIDE 40 CPL"X 6" [ 4 ] - - - COMPRESSED 66 CPL" @" [ 5 ] - - - STANDARD / ROM PLUS" J" [ 6 ] - - - EMPHASIZE " T" [ 7 ] - - - YOUR LABEL" ^" [ 8 ] - - - 10 MOST USED LABELS"( h*"40)"*"; I140:"*";:I< 6:14:": S. P. TULK :"^ 12:13::"TURN PRINTER ON "d n 150| E1:2190 (8) (4):"SELECT FROM:"  " [ 1 ] - - - STANDARD 80 CPL" "" [ 2 ] - - - COMPRESSED 132 CPL"+ ::: MENU ::: :::670:(18);:0 I140:"*";:I "*"40)"*"; "* *** MX-80 LABEL MAKER *** *"; " ::: LABEL #2 ::: ) A$"EAST OHIO GAS CO.") B$"P.O. BOX 6862") C$"CLEVELAND OHIO 44184") E$"") F$"") * ::: LABEL #1 ::: (T A$"CLEVELAND ELECT. ILL. CO."(^ B$"55 PUBLIC SQUARE"(h C$"CLEVELAND OHIO 44178"(r E$""(| F$""( z) 3$"5"İ3180::2390/' A3$"6"İ3250::2390J' A3$"7"İ3320::2390e' A3$"8"İ3390::2390'" A3$"9"İ3460::2390', A3$"0"İ3530::2390'6 A3$(27)ī150'@ 2760^(J " [ 0 ] - - - XXXX LABEL"N& :" [ESC] - "w& 21:" [ ] ..... YOUR CHOICE"& (9):(21):A3$:& A3$"1"İ2900::2390& A3$"2"İ2970::2390& A3$"3"İ3040::2390& A3$"4"İ3110::2390' A [ 3 ] - - - SANITARY ENG."I%n " [ 4 ] - - - LEADER MORTGAGE"m%x " [ 5 ] - - - XXXX LABEL"% " [ 6 ] - - - XXXX LABEL"% " [ 7 ] - - - XXXX LABEL"% " [ 8 ] - - - XXXX LABEL"% " [ 9 ] - - - XXXX LABEL"!& :: 10 MOST USED :: $2 750:4:3$< " SELECT FROM:"$F :$P " [ 1 ] - - - ELECTRIC CO."$Z " [ 2 ] - - - EAST OHIO GAS" %d ""2"ė:(27);"F";:0:670:(15);:0::2530:1680M# A2$"3"ė:2530:1850# A2$"4"ė:(27);"F";:0:670:(15);:0::2530:1850# 2470# 4# 6:A$# 6:B$# 6:C$# 6:E$# 6:F$# ~$( [ 1 ] - - - STANDARD 80 CPL"M"~ " [ 2 ] - - - COMPRESSED 132 CPL"w" " [ 3 ] - - - DOUBLE WIDE 40 CPL"" " [ 4 ] - - - COMPRESSED 66 CPL"" 20:" [ ] ..... YOUR CHOICE"" 6:(20):A2$:" A2$"1"ė:2530:16802# A2$"GOTO LINE 2310-2350"!8 2380!B ::: PRINT CHOICE ::: !L 750!V 2530!` :" SELECT FROM:"!j :#"t " ::: YOUR LABEL :::  A$"Y O U R N A M E"  B$"A D D R E S S "  C$"CITY STATE ZIP " $ E$""!. F$!670:16:(27)"E";:0315:30:868Z15:(1):"ESC ":15:36::"ON":dE1:670:16:(27)"F";:015:30:86815:35::"OFF";:E0:  H"********************""R243\I11000:IDfI115::IJpz ::: SETUP EMPHASIZE ::: E0ī2220E1ī2260 S ::: END ::: \:0f:11n10"********************"10 "* *"10 "* GOOD BYE *"*104"* *">10PL SETUP ::: 7670:(15);:0A1820{  ::: ROMPLUS SETUP ::: 1570: ROMPLUS ON1660! :1500:HOW MANY?(D670:PRINTER ON AN:1330:PRINT LARGEXX710: PRINTER OFFb:2540::" MORE OF THE SAME LABEL ";:X$:X$"Y"X$"YES"ė:1850l150: GOTO MENUv # ::: 66 C4 ::: 132 CPL SETUP ::: H670:(15);:0R1650  ::: 40 CPL SETUP ::: 750: DRAW BORDER&530: INSTRUSTIONS0920:GET INPUT 9 THIS PROGRAM IS SET UP FOR THE MX-80 CARD IN SLOT #1. GOTO LINE #670 l: THE PROGRAM IS SET UP FOR A ROMPLUS CA9708A4$"0"ī4040G8BR1B:BR$;:BR:Z$;:BR1B:BR$;:BR::Q84050k8BR1A:BR$;:BR::v8L1:I|89 CP/M "7FA4$"0"3920+7P::165067ZI1XH7dV$"Y"ī3960f7nBR1A:BR$;:BR::39707xBR1B:BR$;:BR:V2$;:V1$;:BR1B:D)BR$;:BR:7LL1:L2L$A$7L3L$B$7L4L$C$8BR$;:(C((L$)2)):L$;:A:BR$:L43M ":,6(9):"[ 0 ] - - SOLID BORDER ":z6 (20):(9):"[ ] ..... YOUR CHOICE";:(11):A4$::A4$"0"A4$"5"38506A4$"1"Z$" DOS 3.2 "6A4$"2"Z$" DOS 3.3 "6(A4$"3"Z$" COBOL "62A4$"4"Z$" PASCAL " 7<A4$"5"Z$"3650e5:750:(3):" WHAT WOULD YOU LIKE IMPRINTED IN THE BOTTOM PORTION OF THE BORDER?":5(9):"[ 1 ] - - DOS 3.2":5(9):"[ 2 ] - - DOS 3.3":5(9):"[ 3 ] - - COBOL ":5(9):"[ 4 ] - - PASCAL ":6(9):"[ 5 ] - - CP/ [ ] ..... YOUR CHOICE";14j(14):V$:B4tV$"N"37804~V$"Y"ė:(10):" ENTER YOUR VOLUME NUMBER (###) (MUST BE 3 DIGETS LONG) [ ] ";:3730436504(30):"";V1$4V2$" VOL. "4(V1$)336504(V1$)3ī37805 ] DEFAULT = * "93.(13):(21):"";BR$:BR$""BR$"*"M38(BR$)236003B:(10):" WOULD YOU LIKE A VOLUME NUMBER IN THE TOP LINE OF THE BORDER ?"::3L" [ Y ] - - - YES ":3V" [ N ] - - - NO ":!4`" ):(5):"********* VOL. 123 ********* * * * DISK LABEL * * * ********* DOS 3.2 *********"3$(12):" WHAT CHARACTER DO YOU WANT TO USE FOR THE BORDER? [ ::: LABEL #0 ::: h1 A$"GOTO LINE 3530"r1 B$""|1 C$""1 E$""1 F$""1 1 ::: LABEL BORDER ::: 1750234,10:(3 ::: LABEL #9 ::: }0 A$"GOTO LINE 3460"0 B$""0 C$""0 E$""0 F$""0 P1 ::: LABEL #8 ::: /> A$"GOTO LINE 3390"/H B$""/R C$""/\ E$""/f F$""/p e0z ::: LABEL #7 ::: . A$"GOTO LINE 3300". B$"". C$"". E$"". F$"".* z/4 - ::: LABEL #6 ::: - A$"GOTO LINE 3250"- B$""- C$""- E$""- F$""- . "" ,N F$"",X ,b ::: LABEL #5 ::: ,l A$"GOTO LINE 3180",v B$"", C$"", E$"", F$"", + ::: LABEL #4 ::: +& A$"LEADER MORTGAGE CO."+0 B$"P.O. BOX 5241"+: C$"CL