' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`: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'.    L`,0` E ` ` G ` L `   F  H ` L LBJCKLX JAKLXCKJUST +":"+ 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                )"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"              čō` ōٍ΍ōōԍō̍` ʍ ٍӍӍō ʍʍ ٍӍٍʍ      ʍ ٍӍō 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"z#     ԮϠԮԠ ήֳ  Π٠Ϡ Π٠Ϡ ΠĠŠ ήîҮ ήîҮɳ"Ϡ" Ϯؠ   Πظ̠Ҡɠ5Πظ̮à"ΠظĠΠظ͠ԠΠظҠҠ ΠظРɠ! ΠظРɠ! ! ΠǠ! ΠҠŠ!ΠظǠ!ΠظϠɠ ΠظϠɠ Πظ̠ҠɠΠظ̠Ҡɠ4 б в г д"ΠǠ̠Š"ΠҠҠ! ΠҮ==========="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$ gW'  `^ :F Y %^LǏLZ^[_\Z][` 1 8tp`8M`y LHy0y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[/3k{'7w+Ss?AVENTION 80 L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT SP(PAGE ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- $% 0D 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 FOR$;"NOMON C,I,O"9<(D$;"OPEN LISTER":D$;"DELETE LISTER"b(D$;"OPEN LISTER":D$;"WRITE LISTER"i) h) LOAD PROGRAM TO BE LISTED)"LOAD ";P$0* * TURN ON MX-80 WITH 80 CHARACTERS PER LINE*"PR#1"\+"PRINT ";Q$;(9);LL;"N";Q$0(#LL(LL$)# 2# FIND CENTERING SPACESKT$SP((LL2(P$))2)V$SP$""q%I1SP:SP$SP$" ":I%TSP((LL(TIME$))2)%(TIME$)010200H&TSP$""&I1TSP:TSP$TSP$" ":I'TIME$TSP$TIME$t' BUILD 'EXEC' FILE'D$l % PROMPT FOR LINE LENGTH64!LL80:LL$""u!:"THE LINE LENGTH IS CURRENTLY SET":"AT 80 CHARACTERS."!:"IF YOU WISH TO CHANGE THIS VALUE,":"ENTER NEW LENGTH :";LL$`"(LL$)09300"(LL$)80ĺB$;B$;B$;LL$;" IS TOO LARGE!":860Y,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBERNMTH(MTH$):I1MTH:MTH$:IoxTIME$MTH$" "DAY$", 1981"HOUR(HOUR$):HRHOUR:HR0HOUR12@HR12HOURHR12AMPM$"AM":HR11AMPM$"PM" TIME$TIME$" "(HOUR)":"MINUTE$" "AMPM OTHERS.,D$;"PR#4":D$;"IN#4":"";TIME$FXD$;"PR#0":D$;"IN#0"N g  REFORMAT TIME LINEMTH$(TIME$,2):DAY$(TIME$,4,2):DAY$((DAY$))HOUR$(TIME$,7,2):MINUTE$(TIME$,10,2)L JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE, JUL2 p:"THE DEFAULT IS 'NO'. ENTER YES OR NO.";A$R (A$)0(A$,1,1)"N"8500k 8(A$,1,1)"Y"6000r   GET TIME LINE d THE FOLLOWING ROUTINE IS  DESIGNED FOR THE MOUNTAIN , HARDWARE CLOCK, AND MAY NEED REVISIONS FOR P5700: CONTINUE,  PROGRAM NOT FOUNDa :B$;B$;B$;P$;" NOT FOUND ON THIS DISK"::4700h |  DATE AND TIME LINE? DTIME$"" :"IF YOU HAVE A HARDWARE CLOCK ON BOARD," "DO YOU WANT TO HAVE THE 'DATA AND TIME'":"LINE PRINTED?":" A$:A$"END-OF-DATA"4700B 0((40(A$))2));A$:4300I  h  PROMPT FOR PROGRAM TITLE \:"ENTER DESIRED PROGRAM NAME -OR-":" '?' FOR THE CATALOG": "";P$ $P$(63)ĺD$;"CATALOG":4700 5400 D$;"VERIFY ";P$A FOR LABEL&  MX-80 PROGRAM LISTER> BY THOMAS L. RAABE ^ H VERSION OF 3-10-81e  FOR AUTOMATIC LISTING OF APPLESOFT t AND INTEGER BASIC PROGRAMS ON THE  EPSON MX-80 PRINTER < END-OF-DATA   PRINT LABEL hTS. THIS IS TO FACILITATEO  LATER ADDITIONS AND DISTRIBUTION OF CHANGES BY} 4 REFERENCE TO THE ORIGINAL LINE NUMBERS.   INITIALIZE ` ::255 :: ( B$(7):: BELL D$(4):: CTRL-D Q$(34): QUOTES T DAT'  MX-80 PROGRAM LISTER#L R FOR AUTOMATIC LISTING OF BASIC PROGRAMS,s ON THE EPSON MX-80 PRINTERzx  BY THOMAS L. RAAB@ MARCH 10, 1981  THIS PROGRAM HAS BEEN DELIBERATELY NUMBERED FROM l 1000 BY 100 INCREMEN     )(70) PRINT CHR$ (12);X REMOVE"REM"IN 195 AND 205 TO PRINT MULTIPLE SHEETS _ 0m GOTO 10s Xt 1(13);1<1)(14);(27);(69);fF6)(14);"APPLE AVOCATION ALLIANCE (AAA), INC."~d(14)(27)(69);nX140:"-";:(27)(69)55)"721 PIKE STREET"55)"CHEYENNE, WY 82001"55)"1-307-632-8561" (27Ix{@ss@go8`{wxxp{ox{{xx`8`{wxww8`{ox{L@@AAsAw8`wwx{ox{Ac|csA@wx{{xp{ox{wxawwxpx{wx{{x{ox{wx{`A{x{;=_ww?=oo8`{wxp8`{oxxxx{o8`{wxww8`{ox{=]_=o=wxpwwxp{ox{o}ow_=wx{{x{ox{wxww8`x{wxp{{x{ox{wx{?_>?{x{5]www}==oo8`{wxww8`{oxxx{oxp{wxwwxp{ox{=Q=w===o==wxww8`{ox{=o}ow=}]wxp{{x{oxp{wxww8`xp8`{{x{oxp{wx{o?=o{x{=iwwwA=!ooxp{wxww8`{oxxxp{ox{wxawwx{ox{=_=w ==o=!wxww8`{ox{ aw=}iw8`{{x{o8`{wxww8`x8`{{x`8`{wx{o1#o{x{=_www_-_oox{wxpww8`{oxpx8`{ox{wx@wwx{ox{=]=w^=-=?wxww8`{ox{^Ow=}ow8`{{x{o8`{wxp8`x8`{{x8`{wx{o>_o{xp{==www}5=[ox{w8`wwxp{ox{wx8`{oxpx@wwx`xp{1[-w]=5==wxww8`{ox{]]w=}]w8`{{x{o8`{wxxpx`8`{{x8`{wx{o==o{8`{=1D51=ox{w8`wwx{oxp{wx8`{oxx@wwx8`{-o1D!353=wxwwxp{ox{!Q=}=w8`{{x{o8`{wxxx{oxp{{x8`{wx{k##k{8`{=__???;_=ox{w8`wwx{o8`{wx8`{oxpx@wwx8`{;w____;_=wxwwx{ox{_o?=}=wxp{{x{oxp{wxx xx{ox{{xxp{wx{o__o{          LINE 3740. (MAINTAIN SPACES INSIDE QUOTES) RD IN SLOT #3. GOTO LINE 1570 G; IF YOU WOULD LIKE TO USE YOUR INIT. IN THE TOP LINE OF A DISK LABEL... REPLACE VOL. IN 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$"CLEVELAND OHIO 44101",D E$ ::: LABEL #3 ::: * A$"LAKE CO. SANITARY ENG."* B$"105 MAIN STREET"* C$"PAINESVILLE OHIO 44077"* E$""* F$""+ ::: 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 INPUT670: 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 *** *"; " 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 ::: 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********************"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  ::: 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: 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 }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! ! (4)"PR#1"9 23)"GREETINGS FROM THE VERSATILm (g <( ep (_ 6( jq  o mx{gf ( ( qg}dddacmem ( ( ` ( n("PR#0" ! ! `HYZ[hH\)!Yh`hH)I0 0YZ \ hLh[L\ m[[\Zh`! ! BEGIN"r:36,17:KEY$=D$;"BLOAD EPSON DRIVER."TD$;"BRUN TEDITOR"]:***plTHE FOLLOWINGAPPLEWRITER FILESMUST BE ON THIS DISK:> 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 ""nmooة$eeVLԒؠ 58nnooؠ o 0n)JJJJ 0șn) 0șVJJJJ 0``i% $ BU ڑV V Hi&eh L`$V  ɍ ` X0 ` APPLE-)N*m+Jn)m)eeU`8VUU ڑ` :` ^6789 Q@ q . @^`6798 Q`H h``noVVi@iA)moo g p g) pmn/5 qs r ; qa ` `$$(ɠ$C q$W ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\@  UmU+&*Y Y P ,X B АX I8Mt_=gH?J QVQT_ɕ%[^ZZ\[]^Z_[ 0W Г J1  @)ȹ@)ȹ@) q P^ɠ 0   qL MW'WП < XX QLiLLs4 " " " " " "(4);"BRUN HELLO.X"-VENTION.X"T""