' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#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 ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?Lˆʎõĵ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õ`  \ 濭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- (  Ϡ@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }Lޢh5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!fi#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[ACES INSIDE QUOTES) SDISK LABEL... REPLACE VOL. IN LINE 3740. (MAINTAIN SPACES INSIDE QUOTES) I : IF YOU WOULD LIKE TO USE YOUR INIT. IN THE TOP LINE OF A DISK LABEL... REPLACE VOL. IN LINE 3740. (MAINTAIN SP SET UP FOR THE MX-80 CARD IN SLOT #1. GOTO LINE #670 D9 THE PROGRAM IS SET UP FOR A ROMPLUS CARD IN SLOT #3. GOTO LINE 15701A:BR$;:BR::7L1:I"77 I 8 THIS PROGRAM IS :BR::3970E6xBR1B:BR$;:BR:V2$;:V1$;:BR1B:D)BR$;:BR:Z6LL1:L2L$A$i6L3L$B$x6L4L$C$6BR$;:(C((L$)2)):L$;:A:BR$:L439706A4$"0"ī40406BR1B:BR$;:BR:Z$;:BR1B:BR$;:BR::640507BR11):A4$::A4$"0"A4$"5"3850=5A4$"1"Z$" DOS 3.2 "Z5A4$"2"Z$" DOS 3.3 "w5(A4$"3"Z$" COBOL "52A4$"4"Z$" PASCAL "5<A4$"5"Z$" CP/M "5FA4$"0"39205P::16505ZI1X5dV$"Y"ī3960 6nBR1A:BR$; BORDER?":+4(9):"[ 1 ] - - DOS 3.2":K4(9):"[ 2 ] - - DOS 3.3":m4(9):"[ 3 ] - - COBOL ":4(9):"[ 4 ] - - PASCAL ":4(9):"[ 5 ] - - CP/M ":4(9):"[ 0 ] - - SOLID BORDER ": 5 (20):(9):"[ ] ..... YOUR CHOICE";:( ENTER YOUR VOLUME NUMBER (###) (MUST BE 3 DIGETS LONG) [ ] ";:3730X33650j3(30):"";V1${3V2$" VOL. "3(V1$)336503(V1$)3ī378033650 4:750:(3):" WHAT WOULD YOU LIKE IMPRINTED IN THE BOTTOM PORTION OF THE" WOULD YOU LIKE A VOLUME NUMBER IN THE TOP LINE OF THE BORDER ?"::s2L" [ Y ] - - - YES ":2V" [ N ] - - - NO ":2`" [ ] ..... YOUR CHOICE";2j(14):V$:2tV$"N"3780N3~V$"Y"ė:(10):" DISK LABEL * * * ********* DOS 3.2 *********"1$(12):" WHAT CHARACTER DO YOU WANT TO USE FOR THE BORDER? [ ] DEFAULT = * "1.(13):(21):"";BR$:BR$""BR$"*"18(BR$)23600J2B:(10):OTO LINE 3530"0 B$"""0 C$"",0 E$""60 F$""<0 0 ::: LABEL BORDER ::: 0750`134,10:(3):(5):"********* VOL. 123 ********* * * * #/ A$"GOTO LINE 3460"-/ B$""7/ C$""A/ E$""K/ F$""Q/ / ::: LABEL #0 ::: 0 A$"G 8.> A$"GOTO LINE 3390"B.H B$""L.R C$""V.\ E$""`.f F$""f.p /z ::: LABEL #9 ::: M- A$"GOTO LINE 3320"W- B$""a- C$""k- E$""u- F$""{-* .4 ::: LABEL #8 ::: b@l  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵ERMINE RANGE OF PRINTINGI CC$(15):CD$(18): SHIFT IN AND SHIFT OUTl "A)LL, O)NE OR R)ANGE ?";A$: (A$,1)"O"İ1040:KI:LI:2360$ (A$,1)"R"ĺ"LOW LIMIT":1040:LI:"UPPER LIMIT":1040:KI:2360. L1:KN88 "EPSON OR C. ITOH PRINC$=(ZC$)5Ğ:"ZIPCODE MUST HAVE FIVE DIGITS"::2170_:"ADDRESS AS TYPED IN:"::jA$(0)uA$(1)A$(2);" ";ST$;" ";ZC$:"MAILING LIST NO. = ";I22:"IS IT OK (YES OR NO) ?";:B$:B$"N"1980 SUB TO DET7:7:868:A$(2):+H9:"STATE ";ST$9R9:7:C$L\C$""ST$C$f(ST$)2Ģ10::"USE TWO DIGIT CODE FOR STATE"::2120p9:8:868:ST$:z11:"ZIPCODE ";ZC$11:9:"";C$(C$)3ZC$"55"C$:2220C$""2220ZC$ CHANGE SUBROUTINE/3:"NAME ";A$(0)=3:6:C$RC$""A$(0)C$k3:7:868:A$(0):5:"ADDRESS ";A$(1)5:9:C$ C$""A$(1)C$5:10:868:A$(1): 7:"CITY ";A$(2)*7:6:C$4C$""A$(2)C$>BEL #6 ::: b, A$"GOTO LINE 3250"l, B$""v, C$"", E$"", F$"", 5- ::: LABEL #7 ::: ::: LABEL #5 ::: w+l A$"GOTO LINE 3180"+v B$""+ C$""+ E$""+ F$""+ J, ::: LA ::: LABEL #4 ::: *& A$"GOTO LINE 3110"*0 B$""*: C$""*D E$""*N F$""*X _+b ::: LABEL #3 ::: ) A$"GOTO LINE 3040") B$"") C$"") E$"") F$"") s* ::: LABEL #2 ::: ( A$"GOTO LINE 2900"( B$""( C$""( E$""( F$""( ) 150 '@ 2760'J ::: LABEL #1 ::: 'T A$"GOTO LINE 2900"'^ B$""'h C$""'r E$""'| F$""' ( A3$"2"İ2970::23902& A3$"3"İ3040::2390M& A3$"4"İ3110::2390h& A3$"5"İ3180::2390& A3$"6"İ3250::2390& A3$"7"İ3320::2390& A3$"8"İ3390::2390&" A3$"9"İ3460::2390&, A3$"0"İ3530::2390'6 A3$(27)īXX LABEL"-% " [ 8 ] - - - XXXX LABEL"Q% " [ 9 ] - - - XXXX LABEL"u% " [ 0 ] - - - XXXX LABEL"% :" [ESC] - "% 21:" [ ] ..... YOUR CHOICE"% (9):(21):A3$:% A3$"1"İ2900::2390&ROM:" $F :1$P " [ 1 ] - - - XXXX LABEL"U$Z " [ 2 ] - - - XXXX LABEL"y$d " [ 3 ] - - - XXXX LABEL"$n " [ 3 ] - - - XXXX LABEL"$x " [ 4 ] - - - XXXX LABEL"$ " [ 6 ] - - - XXXX LABEL" % " [ 7 ] - - - XX6:A$# 6:B$# 6:C$'# 6:E$2# 6:F$8# #( :: 10 MOST USED :: #2 750:4:3$< " SELECT FL"(" 20:" [ ] ..... YOUR CHOICE"<" 6:(20):A2$:W" 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);:0::2530:1850" 2470" 4# .!L 7508!V 2530R!` :" SELECT FROM:"Z!j :!t " [ 1 ] - - - STANDARD 80 CPL"!~ " [ 2 ] - - - COMPRESSED 132 CPL"! " [ 3 ] - - - DOUBLE WIDE 40 CPL"" " [ 4 ] - - - COMPRESSED 66 CPERG "'  B$" 5870 KIMBALL AVENUE "F  C$"WATERLOO, IOWA 50701"^ $ D$" "v . E$" " 8 2380%!B ::: PRINT CHOICE :::  ::: YOUR LABEL :::   A$" VIRGIL J. B :E0ī2220IE1ī2260Oj670:16:(27)"E";:0|15:30:86815:(1):"ESC ":15:36::"ON":E1:670:16:(27)"F";:015:30:86815:35::"OFF";:E0: "* GOOD BYE *"#*10?4"* *"G>10cH"********************"kR24|\I11000:IfI115::Ipz +::: SETUP EMPHASIZE ::: ROMPLUS ON1660j  ::: END ::: :0:1110"********************"10 "* *"10ENU:v l ::: 66 CPL SETUP ::: 670:(15);:01820  ::: ROMPLUS SETUP ::: 1570: 750: DRAW BORDER2&530: INSTRUSTIONSF0920:GET INPUT[:1500:HOW MANY?qD670:PRINTER ON N:1330:PRINT LARGEX710: PRINTER OFFb:2540::" MORE OF THE SAME LABEL ";:X$:X$"Y"X$"YES"ė:1850l150: GOTO M150: GOTO MENUI } ::: 132 CPL SETUP ::: 670:(15);:01650  ::: 40 CPL SETUP ::: DER|530: INSTRUCTIONS0920: GET INPUTF1500: HOW MANY?\670: PRINTER ONv:1210:PRINT LABELS710: PRINTER OFF:2540::" MORE OF THE SAME LABEL ";:X$:X$"Y"X$"YES"ė:1680X$"N"X$"NO"ī17501720 LABELS ";XX0ī150%R ,M$"": THERE IS A SHIFT/CTRL/M IN QUOTES6(4);"PR#";SLOT@JM$;"1A"TS130:^ r750: DRAW BOR INPUT ERROR HANDLERN# D$;"CLOSE ";ZA$:768:(222)5ĺ"ABNORMAL ERROR":g# IN1A1$ZA$:1630# IN1ĺD$;"DELETE ";ZA$# I211630# ZA$F$" MAIL LIST":I21:1580BH TIME THRU LIST"!"6 IN111B"@ ZC(N%(I))ZC(N%(I1))2910h"J T%N%(I):N%(I)N%(I1):N%(I1)T%r"T CC1y"^ I"h JJ1:12:868:"THERE ARE ";C;" ITEMS OUT OF ORDER""r C02850"| " EXCHANGE DISK DRIVE" D1D2:" D1:# II1I1I11! T%N%(I)$! 730.! NN1=! JNI11O! N%(J)N%(J1)V! Jd! N%(I1)T%j! ! ZIP CODE NUMERICAL ORDER ROUTINE! :M$"RW"! I1N! ZC(N%(I))((N$(N%(I),2),5))! I! J0!" C0", 10:"WORKING ON ";J;"T2580 J%  A$(N1$(N%(I)),J1)M  N1$(N%(I))(N1$(N%(I)),LJ)" "A$T ( IZ 2 m < MOVE AN ITEM{ F :M$"RW" P "MOVE WHICH NAME ?"::34,3: Z 1040:JI d 34,2::"BEFORE WHICH NAME ?"::34,3: n 1040:I1I x 34,2: IJ!%(I1)T% CC1 IP JJ1:868:"THERE ARE ";C;" ITEMS OUT OF ORDER"^ C02410d  "LAST NAMES LISTED FIRST ?";A$::(A$,1)"Y"ī2610 I1N N1$(N%(I))N$(N%(I),0) L(N1$(N%(I))) JL11 (N1$(N%(I)),J,1)" "TER (E/C) ?":DF$:DF$"C"CC$(27)"Q":CD$(27)"N":A= ::[B ALPHABETIZE ROUTINEiL :M$"RW"sV 2510{` J0j C0t 10:"WORKING ON ";J;"TH TIME THRU LIST"~ IN111 N1$(N%(I))N1$(N%(I1))2470  T%N%(I):N%(I)N%(I1):N4); FA$P(14);ZB$+d(14);3nC$?x(14);GE$S(14);[F$ahIo0u  ::: HOW MANY ? ::: 14 " HOW MANYI1XA$B$ C$(E$0F$6= ICp ( ::: DOUBLE WIDE ::: 2I1X<(1L1ı814%B" INPUT LINE #4 "2L19:870=V19:4H`"";E$Pj14gt" INPUT LINE #5 "t~20:87020:4"";F$  ::: STANDARD PRINT ::: L13930 5 ::: INPUT LINES ::: =14T" INPUT LINE #1 "a16:870l16:4w"";A$14" INPUT LINE #2 "17:87017:4"";B$14" INPUT LINE #3 "18:87018:4$"";C$.I122:"%";:39:"%":I) 32,14*33,37>434,2I>35,22OH|R \ ::: LINE LIMITER ::: f5:I1S1:(95);:Ip"]"z K ::: PRINTER OFF ::: R0X  ::: BORDER ::: 24:I139:"%";:I::1:I139:"%";:I: OLONS." X6b" A RETURN WITH NO ENTRY WILL GIVE"Kl" A BLANK LINE"Vv34,13\  ::: PRINTER ON ::: 1 \ ::: INSTRUCTIONS ::: c3" PRINT WIDTH IS SET BY LINE LIMITER&" FOR 3 1/2 INCH LABELS.0:" 5 LINES NORMAL OR 3 LINES BORDERED.DN" DO NOT USE COMMAS OR C(27);"F";:0:1930+A1$"5"S130:1970>A1$"6"İ2190SA1$"7"ė:2310hA1$"8"ė:2610A1$"9"S123:L1:S$(29):A20:B9:C11:D20:3600A1$"0"S129:L1:S$(29):A34:B12:C18:D23:3600A1$(27)ī20103902 SCREEN GOES BLANK, CHECK TO SEE"G t" IF PRINTER IS OFF"p |23:" [ ] ..... YOUR CHOICE" (9):(23):A1$: A1$"1"S130:1650 A1$"2"S153:670:(27);"F";:0:1780 A1$"3"S115:1820A1$"4"S126:670: [ 3 ] - - - DOUBLE WIDE 40 CPL"H T" [ 7 ] - - - YOUR LABEL"u ^" [ 8 ] - - - 10 MOST USED LABELS" h" [ 9 ] - - - SHORTENED DISK LABEL" m" [ 0 ] - - - FULL SIZE DISK LABEL" r" [ESC] - - - " s:" IF *"40)"*"; I140:"*";:I< 6:14:": S. P. TULK :"\ 7:13::"TURN PRINTER ON"b l 150z E1:2190 (9):(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 ** /Ld WRITTEN BY: nS.P. TULK N8AGV MADISON, OHIO MARCH 1981 x                 TIONAL COMMANDS:"':" 1. LIST"<:" 2. NEW"R:" 3. SAVE"h:" 4. LOAD"r1985::" LIST.....IS THE COMMAND USED TO HAVE THE COMPUTER DISPLAY THE PROGRAM STATE- MENTS ON THE SCREEN. THE ENTIRE PRO- GRAM MAY BEW, TYPE 'RUN 20' TO SEE THE DIFFERENCE";OoE$:E$"RUN20"E$"RUN 20"1131t:"WHAT THE RUN COMMAND DOES."::" ( NOTICE THAT THE PROGRAM WAS ONLY RUN FROM LINE 20 )":1985::10)"FUNCTIONAL COMMANDS":"THERE ARE FOUR FUNCSAMPLE PROGRAM TO SHOW'":"20 ? 'WHAT THE RUN COMMAND DOES.'":2030j:"THIS IS A SAMPLE PROGRAM TO SHOW":"WHAT THE RUN COMMAND DOES.":1985(k:" (PROGRAM)"::"10 ? 'THIS IS A SAMPLE PROGRAM TO SHOW'":"20 ? 'WHAT THE RUN COMMAND DOES.'"::"NOW"::[1985`:" RUN.....IS THE COMMAND USED TO EXECUTETHE PROGRAM. THE WHOLE PROGRAM MAY BERUN, OR, WHEN FOLLOWED BY A LINE NUMBER,THE PROGRAM WILL BE EXECUTED FROM THATLINE UNTIL THE END."Ce1985:::"FOR EXAMPLE:"::"10 ? 'THIS IS A ISKETTE IN THE DRIVE UNIT.":1985Q:"TYPE 'CATALOG' TO SEE A LISTING OF WHAT A DISKETTE WITH A SIMPLE HELLO PROGRAM AND THIS PROGRAM ON IT WOULD LOOK LIKE:":A$:A$"CATALOG"1105V::"DISK VOLUME 254"::" A 006 HELLO":" A 073 COMMAND REVIE VOL. IN LINE 3740. (MAINTAIN SPACES INSIDE QUOTES) UIROMPLUS CARD IN SLOT #3. GOTO LINE 1570 \; IF YOU WOULD LIKE TO USE YOUR INIT. IN THE TOP LINE OF A DISK LABEL... REPLACE 9 THIS PROGRAM IS SET UP FOR THE MX-80 CARD IN SLOT #1. GOTO LINE #670 : THE PROGRAM IS SET UP FOR A ):L$;:A:BR$:L43970+8A4$"0"ī4040\8BR1B:BR$;:BR:Z$;:BR1B:BR$;:BR::f840508BR1A:BR$;:BR::8L1:I8$9 " 7<A4$"5"Z$" CP/M "27FA4$"0"3920@7P::1650K7ZI1X]7dV$"Y"ī3960{7nBR1A:BR$;:BR::39707xBR1B:BR$;:BR:V2$;:V1$;:BR1B:D)BR$;:BR:7LL1:L2L$A$7L3L$B$7L4L$C$8BR$;:(C((L$)2)(9):"[ 5 ] - - CP/M ":A6(9):"[ 0 ] - - SOLID BORDER ":6 (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 "72A4$"4"Z$" PASCAL5(V1$)3ī378053650z5: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 ":6NO ":64`" [ ] ..... YOUR CHOICE";F4j(14):V$:W4tV$"N"37804~V$"Y"ė:(10):" ENTER YOUR VOLUME NUMBER (###) (MUST BE 3 DIGETS LONG) [ ] ";:3730436504(30):"";V1$4V2$" VOL. "4(V1$)33650: PRINTER ON':1210:PRINT LABELS>710: PRINTER OFF:2540::" MORE OF THE SAME LABEL ";:X$:X$"Y"X$"YES"ė:1680X$"N"X$"NO"ī17501720150: GOTO MENU .6(4);"PR#";SLOT@(JM$;"1A"4TS130:k^ h ::: 80 CPL SETUP ::: r750: DRAW BORDER|530: INSTRUCTIONS920: GET INPUT1500: HOW MANY? 670 146" HOW MANY LABELS ";=XKX0ī150Q~  ::: ROM PLUS ON ::: "SLOT3: ROMPLUS IN SLOT #3,M$"": THERE IS A SHIFT/CTRL/M IN QUOTES #2I1X/<(14);7FA$CP(14);KZB$Wd(14);_nC$kx(14);sE$(14);F$I0  ::: HOW MANY ? ::: INT ::: )L139304I1X<A$DB$LC$TE$\F$bi Io ( ::: DOUBLE WIDE ::: #3 "18:87018:4'$"";C$2.L1ı:814QB" INPUT LINE #4 "^L19:870iV19:4t`"";E$|j14t" INPUT LINE #5 "~20:87020:4"";F$  ::: STANDARD PR0 a ::: INPUT LINES ::: i14" INPUT LINE #1 "16:87016:4"";A$14" INPUT LINE #2 "17:87017:4"";B$14" INPUT LINE I139:"%";:I::1:I139:"%";:I:E I122:"%";:39:"%":IKU 32,1`*33,37j434,2u>35,22{HR \ ::: LINE LIMITER ::: f5:I1S1:(95);:Ip"]"z 1F w ::: PRINTER OFF ::: ~0  ::: BORDER ::: '24:ORDERED.D3N" DO NOT USE COMMAS OR COLONS."9Xbb" A RETURN WITH NO ENTRY WILL GIVE"wl" A BLANK LINE"v34,13  ::: PRINTER ON ::: 3:3600A1$(27)ī2010%390^  ::: INSTRUCTIONS ::: 3" PRINT WIDTH IS SET BY LINE LIMITER&" FOR 3 1/2 INCH LABELS.0:" 5 LINES NORMAL OR 3 LINES B"3"S115:1820=A1$"4"S126:670:(27);"F";:0:1930VA1$"5"S130:1970iA1$"6"İ2190~A1$"7"ė:2310A1$"8"ė:2610A1$"9"S123:L]1:S$(29):A24:B9:C15:D23:3600A1$"0"S129:L1:S$(29):A34:B12:C18:D2[ 9 ] - - - SHORTENED DISK LABEL"O m" [ 0 ] - - - FULL SIZE DISK LABEL"r r:" [ESC] - - - < END >" |23:" [ ] ..... YOUR CHOICE" (9):(23):A1$: A1$"1"S130:1650 A1$"2"S153:670:(27);"F";:0:1780A1$ [ 3 ] - - - DOUBLE WIDE 40 CPL"Q 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 :"\ 7:13::"TURN PRINTER ON"b l 150z E1:2190 (9):(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 ** 2Ld WRITTEN BY: nS.P. TULK N8AGV MADISON, OHIO MARCH 1981 x OU OWN?'":"20 ? '(ONLY ENTER 1, 2, OR 3)'":"30 INPUT A":"40 ON A GOTO 100,200,300":"50 GOTO 20":"100 ?'1 DOG IS GREAT!':END";"200 ?'2 DOGS CAN GET EXPENSIVE.':END":"300 ?'IF YOU OWN 3 OR MORE DOGS, YOU OWN TOO MANY!':END":2030L<"HOW AILY GAIN ="(BA)C" POUNDS"$:::1985:::"ON GOTO.....IS A COMMAND WHICH EXPANDS THE USE OF THE GOTO. THE COMPUTER CAN BE SENT TO ONE OF SEVERAL LINE CHOICES DEPENDING ON THE GIVEN INPUT.":1985;:"EXAMPLE:"::"10 ? 'HOW MANY DOGS DO YB 150":"90 INPUT C"9"100 ? 'AVERAGE DAILY GAIN =' (B-A)/C 'POUNDS'":"110 END":"150 ? 'TYPE NUMBER AND ENTER'":"160 RETURN":2030:"PURCHASE WEIGHT OF HOG.":2025:A:"MARKET WEIGHT OF HOG.":2025:B:"DAYS ON FEED.":2025:C:"AVERAGE DHEN RETURN TO THE COMMAND IMMEDIATELY FOLLOWING THE GOSUB COMMAND."81985::"EXAMPLE:":"10 ? 'PURCHASE WEIGHT OF HOG.'":"20 GOSUB 150":"30 INPUT A":"40 ? 'MARKET WEIGHT OF HOG.'":"50 GOSUB 150":"60 INPUT B"9"70 ? 'DAYS ON FEED.'":"80 GOSUART AGAIN":1645c7wAXĺ"GOOD! WOULD YOU LIKE ANOTHER? (YES OR NO)":B$:B$"YES"B$"Y"ī1650|7|B$"YES"ĺ::1985D8::"GOSUB - RETURN..... ARE COMMANDS WHICH MUST BE USED TOGETHER AND WILL INSTRUCT THE COMPUTER TO EXECUTE A SUBROUTINE ANDT ?'START AGAIN':GOTO 10":"60 IF A = X THEN ? 'GOOD! WOULD YOU LIKE";6h" ANOTHER? (YES OR NO)'":"70 INPUT B$":"80 IF B$='YES' OR B$='Y' THEN GOTO 20"6k"90 IF B$<>'YES' THEN END":20306mX17rXX1:X1" PIGS + 1 PIG = ? PIGS":A:AXĺ"STO GO FORWARD IN THE PROGRAM, THE COMPUTER SKIPS LINES,";5^"WHEN COMMANDED TO GO BACKWARD IN THE PROGRAM, A LOOP IS CREATED.":1985::"EXAMPLE:"E6c"10 X = 1":"20 X = X + 1":"30 ? X - 1 'PIGS + 1 PIG = ? PIGS'":"40 INPUT A":"50 IF A<> X THEN.GOSUB - RETURN"::" 3.ON GOTO"::" 4.ON GOSUB - RETURN"::" 5.FOR - NEXT"4Z1985:::" GOTO.....IS A COMMAND USED TO INSTRUCTTHE COMPUTER TO DEVIATE FROM EXECUTING THE PROGRAM STATEMENTS IN NUMERICAL":5["ORDER. WHEN COMMANDED T:3;A$"NO"ĺ:"(THE CORRECT ANSWER WAS 43560)":::1605D3@1590P3E1985:V3Js3O::13)"LOOP COMMANDS"3T::"LOOPS ARE USED TO PERFORM SPECIFIED OPERATIONS MORE THAN ONE TIME. THE LOOPCOMMANDS INCLUDE:"Y4Y:" 1.GOTO"::" 2>< 'YES' AND A$ <> 'NO' THEN GOTO 500":"100 ? 'GOOD!':END":20302,"NUMBER OF SQUARE FEET IN AN ACRE.":A:A43560ĺ"SORRY, WRONG ANSWER.":159021A43560ĺ"GOOD!"::160526"WOULD YOU LIKE TO TRY AGAIN? (YES OR NO)":A$:A$"YES"1580RRY, WRONG ANSWER.': GOTO 50"1&"40 IF A = 43560 THEN GOTO 100":"50 ? 'WOULD YOU LIKE TO TRY AGAIN? (YES OR NO)'":"60 INPUT A$"G2'"70 IF A$ = 'YES' THEN GOTO 10":"80 IF A$ = 'NO' THEN ? '(THE CORRECT ANSWER WAS 43560):END":"90 IF A$R <=","LESS THAN OR EQUAL TO":"<> OR ><","NOT EQUAL TO OR ANY-":,"THING BUT"0$"AND","LOGICAL AND":"OR","LOGICAL OR":"NOT","LOGICAL NOT":1985"1%:"EXAMPLE:"::"10 ? 'NUMBER OF SQUARE FEET IN AN ACRE.":"20 INPUT A":"30 IF A <> 43560 THEN ? 'SO IN THE TOP LINE OF A DISK LABEL... REPLACE VOL. IN LINE 3740. (MAINTAIN SPACES INSIDE QUOTES) I 9 THE PROGRAM IS SET UP FOR A ROMPLUS CARD IN SLOT #3. GOTO LINE 1570 : IF YOU WOULD LIKE TO USE YOUR INIT. 9 THIS PROGRAM IS SET UP FOR THE MX-80 CARD IN SLOT #1. GOTO LINE #670 L2L$A$7L3L$B$(7L4L$C$Y7BR$;:(C((L$)2)):L$;:A:BR$:L43970l7A4$"0"ī40407BR1B:BR$;:BR:Z$;:BR1B:BR$;:BR::740507BR1A:BR$;:BR::7L1:I7e8 DOS 3.3 "'6(A4$"3"Z$" COBOL "D62A4$"4"Z$" PASCAL "a6<A4$"5"Z$" CP/M "s6FA4$"0"39206P::16506ZI1X6dV$"Y"ī39606nBR1A:BR$;:BR::39706xBR1B:BR$;:BR:V2$;:V1$;:BR1B:D)BR$;:BR: 7LL1:(9):"[ 3 ] - - COBOL ":=5(9):"[ 4 ] - - PASCAL ":[5(9):"[ 5 ] - - CP/M ":5(9):"[ 0 ] - - SOLID BORDER ":5 (20):(9):"[ ] ..... YOUR CHOICE";:(11):A4$::A4$"0"A4$"5"38505A4$"1"Z$" DOS 3.2 " 6A4$"2"Z$" 436504(30):"";V1$+4V2$" VOL. "?4(V1$)33650S4(V1$)3ī3780]436504:750:(3):" WHAT WOULD YOU LIKE IMPRINTED IN THE BOTTOM PORTION OF THE BORDER?":4(9):"[ 1 ] - - DOS 3.2":4(9):"[ 2 ] - - DOS 3.3":5" [ Y ] - - - YES ":L3V" [ N ] - - - NO ":w3`" [ ] ..... YOUR CHOICE";3j(14):V$:3tV$"N"37803~V$"Y"ė:(10):" ENTER YOUR VOLUME NUMBER (###) (MUST BE 3 DIGETS LONG) [ ] ";:3730 3.2 *********"g2$(12):" WHAT CHARACTER DO YOU WANT TO USE FOR THE BORDER? [ ] DEFAULT = * "2.(13):(21):"";BR$:BR$""BR$"*"28(BR$)236002B:(10):" WOULD YOU LIKE A VOLUME NUMBER IN THE TOP LINE OF THE BORDER ?"::#3LRDER ::: G1750234,10:(3):(5):"********* VOL. 123 ********* * * * DISK LABEL * * * ********* DOS0 ::: LABEL #0 ::: 0 A$"GOTO LINE 3530"0 B$""0 C$""0 E$""0 F$""0 >1 ::: LABEL BO E$""/f F$""/p /z ::: LABEL #9 ::: / A$"GOTO LINE 3460"/ B$""/ C$""/ E$""/ F$""0  B$"". C$"". E$""%. F$""+.* .4 ::: LABEL #8 ::: .> A$"GOTO LINE 3390".H B$"".R C$""/\$"GOTO LINE 3250"- B$""&- C$""0- E$"":- F$""@- - ::: LABEL #7 ::: - A$"GOTO LINE 3320". ',l A$"GOTO LINE 3180"1,v B$"";, C$""E, E$""O, F$""U, , ::: LABEL #6 ::: - A ;+& A$"GOTO LINE 3110"E+0 B$""O+: C$""Y+D E$""c+N F$""i+X ,b ::: LABEL #5 ::: P* A$"GOTO LINE 3040"Z* B$""d* C$""n* E$""x* F$""~* #+ ::: LABEL #4 ::: LABEL #2 ::: e) A$"GOTO LINE 2900"o) B$""y) C$"") E$"") F$"") 8* ::: LABEL #3 ::: ::: LABEL #1 ::: z(T A$"GOTO LINE 2900"(^ B$""(h C$""(r E$""(| F$""( M) ::: A3$"5"İ3180::23903' A3$"6"İ3250::2390N' A3$"7"İ3320::2390i' A3$"8"İ3390::2390'" A3$"9"İ3460::2390', A3$"0"İ3530::2390'6 A3$(27)ī150'@ 2760b(J "%& " [ 0 ] - - - XXXX LABEL"R& :" [ESC] - "{& 21:" [ ] ..... YOUR CHOICE"& (9):(21):A3$:& A3$"1"İ2900::2390& A3$"2"İ2970::2390& A3$"3"İ3040::2390& A3$"4"İ3110::2390'ABEL")%d " [ 3 ] - - - XXXX LABEL"M%n " [ 3 ] - - - XXXX LABEL"q%x " [ 4 ] - - - 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 ] - - - XXXX LABEL"%Z " [ 2 ] - - - XXXX L0:1680C# A2$"2"ė:(27);"F";:0:670:(15);:0::2530:1680^# 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$# $( :" "j :4"t " [ 1 ] - - - STANDARD 80 CPL"^"~ " [ 2 ] - - - COMPRESSED 132 CPL"" " [ 3 ] - - - DOUBLE WIDE 40 CPL"" " [ 4 ] - - - COMPRESSED 66 CPL"" 20:" [ ] ..... YOUR CHOICE"" 6:(20):A2$:# A2$"1"ė:253 "&!. E$" "0!8 2380!B ::: PRINT CHOICE ::: !L 750!V 2530"` :" SELECT FROM ::: YOUR LABEL :::  A$" VIRGIL J. BERG "  B$" 5870 KIMBALL AVENUE "  C$"WATERLOO, IOWA 50701"!$ D$" 670:16:(27)"E";:0,15:30:868S15:(1):"ESC ":15:36::"ON":]E1:x670:16:(27)"F";:015:30:86815:35::"OFF";:E0:  ******************"R24,\I11000:I=fI115::ICp~z ::: SETUP EMPHASIZE ::: E0ī2220E1ī2260 L ::: END ::: U:0_:11g10"********************"10 "* *"10 "* GOOD BYE *"*104"* *">10H"**P ::: 0670:(15);:0:1820t  ::: ROMPLUS SETUP ::: 1570: ROMPLUS ON1660 :HOW MANY?!D670:PRINTER ON :N:1330:PRINT LARGEQX710: PRINTER OFFb:2540::" MORE OF THE SAME LABEL ";:X$:X$"Y"X$"YES"ė:1850l150: GOTO MENUv  ::: 66 CPL SETU::: 132 CPL SETUP ::: A670:(15);:0K1650|  ::: 40 CPL SETUP ::: 750: DRAW BORDER&530: INSTRUSTIONS0920:GET INPUT :1500 PRINTER ON&:1210:PRINT LABELS=710: PRINTER OFF:2540::" MORE OF THE SAME LABEL ";:X$:X$"Y"X$"YES"ė:1680X$"N"X$"NO"ī17501720150: GOTO MENU - 6(4);"PR#";SLOT@'JM$;"1A"3TS130:j^ h ::: 80 CPL SETUP ::: r750: DRAW BORDER|530: INSTRUCTIONS920: GET INPUT1500: HOW MANY? 670: 145" HOW MANY LABELS ";<XJX0ī150P}  ::: ROM PLUS ON ::: "SLOT3: ROMPLUS IN SLOT #3,M$"": THERE IS A SHIFT/CTRL/M IN QUOTES "2I1X.<(14);6FA$BP(14);JZB$Vd(14);^nC$jx(14);rE$~(14);F$I0  ::: HOW MANY ? ::: NT ::: (L139303I1X;A$CB$KC$SE$[F$ah In ( ::: DOUBLE WIDE ::: 3 "18:87018:4&$"";C$1.L1ı9814PB" INPUT LINE #4 "]L19:870hV19:4s`"";E${j14t" INPUT LINE #5 "~20:87020:4"";F$  ::: STANDARD PRI/ ` ::: INPUT LINES ::: h14" INPUT LINE #1 "16:87016:4"";A$14" INPUT LINE #2 "17:87017:4"";B$14" INPUT LINE #139:"%";:I::1:I139:"%";:I:D I122:"%";:39:"%":IJT 32,1_*33,37i434,2t>35,22zHR \ ::: LINE LIMITER ::: f5:I1S1:(95);:Ip"]"z 1E v ::: PRINTER OFF ::: }0  ::: BORDER ::: &24:IRDERED. D2N" DO NOT USE COMMAS OR COLONS."8Xab" A RETURN WITH NO ENTRY WILL GIVE"vl" A BLANK LINE"v34,13  ::: PRINTER ON ::: :3600A1$(27)ī2010$390]  ::: INSTRUCTIONS ::: 3" PRINT WIDTH IS SET BY LINE LIMITER&" FOR 3 1/2 INCH LABELS.0:" 5 LINES NORMAL OR 3 LINES BO"3"S115:1820=A1$"4"S126:670:(27);"F";:0:1930VA1$"5"S130:1970iA1$"6"İ2190~A1$"7"ė:2310A1$"8"ė:2610A1$"9"S123:L1:S$(29):A28:B9:C15:D20:3600A1$"0"S129:L1:S$(29):A34:B12:C18:D23[ 9 ] - - - SHORTENED DISK LABEL"O m" [ 0 ] - - - FULL SIZE DISK LABEL"r r:" [ESC] - - - < END >" |23:" [ ] ..... YOUR CHOICE" (9):(23):A1$: A1$"1"S130:1650 A1$"2"S153:670:(27);"F";:0:1780A1$ [ 3 ] - - - DOUBLE WIDE 40 CPL"Q 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 :"\ 7:13::"TURN PRINTER ON"b l 150z E1:2190 (9):(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 ** 2Ld WRITTEN BY: nS.P. TULK N8AGV MADISON, OHIO MARCH 1981 x                             CONFUSED":;;"OR WISH TO QUIT; PRESS THE [ESC] KEY.":C;23m;"PRESS THE RETURN KEY TO CONTINUE.";u;Q$;Q(Q$);Q27İ4730;Q135270;E:<I139:"$";::F42:PI115:39:"$":>:Z150:6^:d11:"MOTOR VEHICLE COST":r:n16:"ANALYSIS"x:x:PAUSE11500:PAUSE:255::34,2::4);"***PLEASE DO NOT PRESS RESET!***": ;"IF YOU ARE LOST, FRUSTRATED,R INPUTS."1923:" PRESS RETURN TO CONTINUE.";?9S4:4470G9Q$[9(Q$)135050d9240934,0::"THAT'S ALL FOLKS...":9**********************9  TITLES9**********************99(:4:I138:"$";::2I115:"$":30->62130 RESTORE VARIABLES08~(222)25551108800,104:801,168:802,104:803,166:804,223:805,154:806,72:807,152:808,72:809,9688008216,0:34,2:849508(222)224910 9(12):"AN ERROR HAS BEEN MADE."::"PLEASE CHECK YOU7Q$7Q$"0"4940)7Q$"4"29057Q(Q$)G7Q3Q048507$:::::::::::::::::::::::::7.Q190,240,270787B7L34,2::7V**********************7` ERROR CHECK7j**********************8t 620 LINE 3740. (MAINTAIN SPACES INSIDE QUOTES) ES) I IN THE TOP LINE OF A DISK LABEL... REPLACE VOL. IN LINE 3740. (MAINTAIN SPACES INSIDE QUOTES) INIT. IN THE TOP LINE OF A DISK LABEL... REPLACE VOL. IN 9 THE PROGRAM IS SET UP FOR A ROMPLUS CARD IN SLOT #3. GOTO LINE 1570 : IF YOU WOULD LIKE TO USE YOUR INIT. 9 THIS PROGRAM IS SET UP FOR THE MX-80 CARD IN SLOT #1. GOTO LINE #670 LL1:L2L$A$ 7L3L$B$/7L4L$C$`7BR$;:(C((L$)2)):L$;:A:BR$:L43970s7A4$"0"ī40407BR1B:BR$;:BR:Z$;:BR1B:BR$;:BR::740507BR1A:BR$;:BR::7L1:I7l8 "Z$" DOS 3.3 ".6(A4$"3"Z$" COBOL "K62A4$"4"Z$" PASCAL "h6<A4$"5"Z$" CP/M "z6FA4$"0"39206P::16506ZI1X6dV$"Y"ī39606nBR1A:BR$;:BR::39706xBR1B:BR$;:BR:V2$;:V1$;:BR1B:D)BR$;:BR:7:$5(9):"[ 3 ] - - COBOL ":D5(9):"[ 4 ] - - PASCAL ":b5(9):"[ 5 ] - - CP/M ":5(9):"[ 0 ] - - SOLID BORDER ":5 (20):(9):"[ ] ..... YOUR CHOICE";:(11):A4$::A4$"0"A4$"5"38505A4$"1"Z$" DOS 3.2 "6A4$"2373043650!4(30):"";V1$24V2$" VOL. "F4(V1$)33650Z4(V1$)3ī3780d436504:750:(3):" WHAT WOULD YOU LIKE IMPRINTED IN THE BOTTOM PORTION OF THE BORDER?":4(9):"[ 1 ] - - DOS 3.2":5(9):"[ 2 ] - - DOS 3.3"*3L" [ Y ] - - - YES ":S3V" [ N ] - - - NO ":~3`" [ ] ..... YOUR CHOICE";3j(14):V$:3tV$"N"37804~V$"Y"ė:(10):" ENTER YOUR VOLUME NUMBER (###) (MUST BE 3 DIGETS LONG) [ ] ";:*** DOS 3.2 *********"n2$(12):" WHAT CHARACTER DO YOU WANT TO USE FOR THE BORDER? [ ] DEFAULT = * "2.(13):(21):"";BR$:BR$""BR$"*"28(BR$)236003B:(10):" WOULD YOU LIKE A VOLUME NUMBER IN THE TOP LINE OF THE BORDER ?"::ABEL BORDER ::: N1750234,10:(3):(5):"********* VOL. 123 ********* * * * DISK LABEL * * * ******""0 0 ::: LABEL #0 ::: 0 A$"GOTO LINE 3530"0 B$""0 C$""0 E$""0 F$""0 E1 ::: L"" /\ E$""/f F$""/p /z ::: LABEL #9 ::: / A$"GOTO LINE 3460"/ B$""/ C$""/ E$""0 F$320". B$"". C$""". E$"",. F$""2.* .4 ::: LABEL #8 ::: .> A$"GOTO LINE 3390".H B$""/R C$ - A$"GOTO LINE 3250"#- B$""-- C$""7- E$""A- F$""G- - ::: LABEL #7 ::: . A$"GOTO LINE 3 .,l A$"GOTO LINE 3180"8,v B$""B, C$""L, E$""V, F$""\, - ::: LABEL #6 ::: B+& A$"GOTO LINE 3110"L+0 B$""V+: C$""`+D E$""j+N F$""p+X ,b ::: LABEL #5 ::: W* A$"GOTO LINE 3040"a* B$""k* C$""u* E$""* F$""* *+ ::: LABEL #4 ::: ::: LABEL #2 ::: l) A$"GOTO LINE 2900"v) B$"") C$"") E$"") F$"") ?* ::: LABEL #3 ::: ::: LABEL #1 ::: (T A$"GOTO LINE 2900"(^ B$""(h C$""(r E$""(| F$""( T) 2390' A3$"5"İ3180::2390:' A3$"6"İ3250::2390U' A3$"7"İ3320::2390p' A3$"8"İ3390::2390'" A3$"9"İ3460::2390', A3$"0"İ3530::2390'6 A3$(27)ī150'@ 2760i(J z#?      Ǡ̠Ҡ ̠5ŠԠӠ5ǠԠΠظ̠Ҡɠ5 ˠ̠Ҡ1ˠ̠Ҡ4ˠҠ4Ϡà2ǠӠՠ VE"l" A BLANK LINE"#v34,13)x  ::: PRINTER ON ::: 1  ::: PRINTER OFF ::) ::: INSTRUCTIONS ::: 03Z" PRINT WIDTH IS SET BY LINE LIMITERx&" FOR 3 1/2 INCH LABELS.~0:" 5 LINES NORMAL OR 3 LINES BORDERED.DN" DO NOT USE COMMAS OR COLONS."Xb" A RETURN WITH NO ENTRY WILL GI$"6"İ2190 A1$"7"ė:23105A1$"8"ė:2610nA1$"9"S123:L1:S$(29):A28:B9:C15:D20:3600A1$"0"S129:L1:S$(29):A34:B12:C18:D23:3600A1$(27)ī2010390 IF PRINTER IS OFF"= |23:" [ ] ..... YOUR CHOICE"S (9):(23):A1$:l A1$"1"S130:1650 A1$"2"S153:670:(27);"F";:0:1780 A1$"3"S115:1820 A1$"4"S126:670:(27);"F";:0:1930 A1$"5"S130:1970 A17 ] - - - YOUR LABEL"B ^" [ 8 ] - - - 10 MOST USED LABELS"p h" [ 9 ] - - - SHORTENED DISK LABEL" m" [ 0 ] - - - FULL SIZE DISK LABEL" r" [ESC] - - - " s:" IF SCREEN GOES BLANK, CHECK TO SEE" t" *"40)"*"; I140:"*";:II 6:14:"***************************"i 7:13::"TURN PRINTER ON"o y 150 E1:2190 (9):(4):"SELECT FROM"  " [ 1 ] - - - STANDARD" ," [ 3 ] - - - DOUBLE WIDE" T" [ ::: MENU ::: :::670:(18);:0 I140:"*";:I "*"40)"*"; "* *** DISK LABEL MAKER *** *"; " REVISED JUNE 81 SPT ** PUBLIC DOMAIN ** d-Ld WRITTEN BY: nS.P. TULK N8AGV MADISON, OHIO MARCH 1981 x            OR CAN'T RELOAD ) (768)0ī400| ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..." , D$;"RUN MENU" L1,192:832,96: 769* (768)12501 U --IF THERE, LOAD INTG AND PA#1\ 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082 400  --NO CARD03,205:Z n804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }83775,192:776,104:c _777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:8 -- DOS 3.3 HELLO%D$(4), 4::(e2"DOS VERSION 3.3 08/25/80"<:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"F P --POKE LANGUAGE CARD FINDER Z768,0:769,173:770,0:771,224:772,72:773,173:774,129:      I= ( ::: DOUBLE WIDE ::: 2I1X<(14);FA$P(14);ZB$d(14);nC$ V19:4`"";E$j144t" INPUT LINE #5 "A~20:870L20:4W"";F$]  ::: STANDARD PRINT ::: L13930I1XA$B$C$E$F$ 14!" INPUT LINE #1 ".16:870916:4D"";A$L14c" INPUT LINE #2 "p17:870{17:4"";B$14" INPUT LINE #3 "18:87018:4$"";C$.L1ı814B" INPUT LINE #4 "L19:8707 434,2>35,22HIR z\ ::: LINE LIMITER ::: f5:I1S1:(95);:Ip"]"z  ::: INPUT LINES ::: : 0%Y  ::: BORDER ::: 24:I139:"%";:I::1:I139:"%";:I: I122:"%";:39:"%":I 32,1*33,3T(I)132ĺD$"BRUN "NA$(I)-p0D$"RUN "NA$(I)F)118000*10200(*I22ĢI1:112006*I21:24A\+11300H+4[$,(NA$(I),17);a,z,I22ĢI1:4:11700P-I21:24-.IPP1Ā|..10:5D/"LOADING "NA$(I)//FT(I)0FT(I)128ĺD$"EXEC "NA$(I) 0FT(I)4F21:21:9400T$I10ĺ" ";3$I"-"(NA$(I),16);:%IE%23:1K%|H&"PRESS ANY KEY TO CHANGE SELECTED PROGRAM";&24:6'"PRESS RETURN TO RUN PROGRAM";t'IPP1'<(10900(IPP1I1)II1:h)10900)A$:A$(13JBF14(I1)35BF43(I1)358l NA$NA$((J)128)? J]! THE FOLLOWING STATEMENTy! KEEPS TEXT FILES FROM ! APPEARING ON THE MENU4!FT(PP)KY!NA$(PP)NA$:PPPP1!I`"7000"(#I0PP1#I22ĢI1:1:9300 #I17 dSC%0 CC%1! ,KK1+ 20003 LDC XTR%(BF1)S SC%(BF2)] CC%1g 2000o LDz LI17 KT((BF11)(I1)35) KT2558700 xKS((BF12)(I1)35) KT0KS08900 @KY((BF13)(I1)35) NA$""  RWTS SUBROUTINE& LD,169: LDA 8 PLD1,AH(IB)Q LD2,160: LDY c LD3,AL(IB)z |LD4,32: JSR LD5,217: RWTS LOCATION DLD6,3: RWTS HI ADDRESS LD7,96: RTS  p: 4200 84800 K0 TR%13,0: IBSTAT# IB14,0: IBSMOD= tIB15,616: IOBPSNS IB16,1: IOBDNY <_ e { hDC,0: DEVTPC DC1,1: PPTC 0DC2,239: MONTC DC3,216: MONTC  \  ASSEMBER ROUTINE $ WHICH CALLS  SET DIVICE CHARACTERISTIC TABLE ADDRESSH IB6,AL(DC)Z IB7,AH(DC) T SET BUFFER ADDRESS IB8,AL(BF)  IB9,AH(BF) IB10,0: UNUSED IB11,0: UNUSED H IB12,CC%: IBCMD IB CHAR % BF37200: I/O BUFFER F @LD37100: ASSEMBLER ROUTINEP 6000V \ ls IB,1: IBTYPE 4IB1,616: IBSLOT IB2,1: IBDRVN IB3,0: IBVOL ` IB4,TR%: IBTRK IB5,SC%: IBSECT6 ( . d37000TK$(255)',FT(255)5NA$(255)>PP0JXD$(4)i FUNCTION FOR LOW ADDRESS AL(A)A(A256)256 FUNCTION FOR HI ADDRESSAH(A)(A256)LIB37001: IOB ADDRESS  xDC37050: DEVICE     ٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ hL  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI10 &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00               IN MENU>"2% 21:" [ ] ..... YOUR CHOICE"H% (9):(21):A3$:c% A3$"1"İ2900::2390~% A3$"2"İ2970::2390% A3$"3"İ3040::2390% A3$"4"İ3110::2390% A3$"5"İ3180::2390% A3$"6"İ3250::2390& A3$"7"İ3320::BEL"($x " [ 4 ] - - - XXXX LABEL"L$ " [ 6 ] - - - XXXX LABEL"p$ " [ 7 ] - - - XXXX LABEL"$ " [ 8 ] - - - XXXX LABEL"$ " [ 9 ] - - - XXXX LABEL"$ " [ 0 ] - - - XXXX LABEL" % :" [ESC] - 100H"********************"8R24I\I11000:IZfI115::I`pz ::: SETUP EMPHASIZE ::: E i ::: END ::: r:0|:1110"********************"10 "* *"10 "* GOOD BYE *"*10 4"* 9 ::: 66 CPL SETUP ::: M670:(15);:0W1820  ::: ROMPLUS SETUP ::: 1570: ROMPLUS ON16607 0920:GET INPUT(:1500:HOW MANY?>D670:PRINTER ON WN:1330:PRINT LARGEnX710: PRINTER OFFb:2540::" MORE OF THE SAME LABEL ";:X$:X$"Y"X$"YES"ė:1850l150: GOTO MENUv J ::: 132 CPL SETUP ::: ^670:(15);:0h1650  ::: 40 CPL SETUP ::: 750: DRAW BORDER&530: INSTRUSTIONS1500: HOW MANY?)670: PRINTER ONC:1210:PRINT LABELSZ710: PRINTER OFF:2540::" MORE OF THE SAME LABEL ";:X$:X$"Y"X$"YES"ė:1680X$"N"X$"NO"ī17501720150: GOTO MENU N,M$"": THERE IS A SHIFT/CTRL/M IN QUOTESc6(4);"PR#";SLOTi@vJM$;"1A"TS130:^ r750: DRAW BORDER|530: INSTRUCTIONS920: GET INPUT x(14);E$ (14);(F$.5I<0Bz  ::: HOW MANY ? ::: 14" HOW MANY LABELS ";XX0ī150 SET UP ?";A$$&(A$,1)"N"İ168000:2310L:"NUMBER OF TIMES ?";I2[DD$;"PR#1"hNI11I2sXMLK~bI02l(N$(N%(M),I))33ĺCC$;:N$(N%(M),I);:CD$:1920vN$(N%(M),I)I::MI1D$;"PR#0""LABELS IN AND PRINTER ON ?";:A$:6:D$;"PR#1"G"DANA LONN"a"1600 NOKOMIS COURT"}"MINNEAPOLIS MN 55417"::D$;"PR#0"23:"IS THAT OK (YES OR NO) ?";A$(A$,1)"N"1710 PRINT LABELS "PRINTERNTINUE";A$::1540ZA$F$(2980<"D$;"MON C,I,O"W,D$;"OPEN ";ZA$;",D";Dk6D$;"READ ";ZA$z@IN1400JN$(I,0):N$(I,1):N$(I,2):N%(I)IT^216,0hD$;"NOMON C,I,O"rNI1:N1N1150 SET UP LABELS%I2I21%I216ĺ(12):I20,MDCD$: NORMAL PRINTSD$;"PR#0"Yq READ IN DATA FILE:I20:N0Ą"START NEW FILE ?";A$:(A$,1)"Y"N0"FILE NAME (C/R FOR CATALOG) ?";F$ (F$)0ĺD$"CATALOG":"PRESS RETURN TO CO(I),0)A$(0)"(N$(N%(I),1)A$(1)H2N$(N%(I),2)A$(2)" "ST$" "ZC$N<aF: PRINT LISTkZ2310zdD$;"PR#1"nCC$: COMPRESSEDxI20MLK3I102N$(N%(M),I1);:36,44:N$(N%(M1),I1);:36,88:N$(N%(M2),I1)I1 CHANGE ROUTINE!:M$"RW"+1040AA$(0)N$(N%(I),0)WA$(1)N$(N%(I),1)lL(N$(N%(I),2))L8A$(2)"":ST$"MN":ZC$"55417":1300ZC$(N$(N%(I),2),5)ST$(N$(N%(I),2),L7,2) A$(2)(N$(N%(I),2),L9)1980 N$(N%IT ?";A$$(A$,1)"E"1503.(A$,1)"N"1120L8:"PRINT LIST ?";A$bB(A$,1)"Y"İ960~L:"NUMBER OF NAME ?";IV1180`:"NAME ?";A$jL(A$)tI1N~A$(N$(N%(I),0),L)1180"NAME NOT FOUND":1050;A1$K2İ2950:820.D$;"NOMON C,I,O"8::S LIST NAMES ON SCREENYdI1N}I;".) ";N$(N%(I),0)(I20)(I20)ľB$::A$"L"Ģ23:B$: NAME OR NUMBER SEARCH ROUTINE"N)AME, L)IST NUMBER OR E)X$,1)"Y"930 HM$"RW"ī880ORD$;"OPEN ";A1$;" , D";D:D$;"DELETE ";A1$t\D$;"OPEN ";A1$:D$;"WRITE ";A1$fN11:890pD$;"APPEND ";ZA$;" , D";D:D$;"WRITE ";ZA$zIN1NN$(N%(I),0):N$(N%(I),1):N$(N%(I),2)D$;"CLOSE ")A$(2)" "ST$" "ZC$%N%(N)N:9 DELETE A NAMEG:M$"RW"Q1040^JIN1pN%(J)N%(J1)vNN1  EXIT ROUTINED$;"MON C,I,O" :K0*M$"Y"M$"RW"9404KK1 >K2ė:"BACK UP DISC ?";B$:(BM$"RW"M$"Y"&N0570O0"FILE NAME ?";F$:M$"RW":A1$F$" MAIL LIST"[:NN1:pD DEFAULT VALUES}NA$(0)""XA$(1)""bA$(2)"MINNEAPOLIS"lST$"MN"vZC$"55417"IN1980N$(N,0)A$(0)N$(N,1)A$(1)N$(N,20A$"D"İ700#A$"E"ī7804A$"L"İ960FA$"M"İ2620XA$"N"İ2790jA$"O"İ2370|A$"P"İ1800A$"R"ī1520A$"S"İ1680A$"X"İ2950A$"W"İ1350A$"Z"C(0)150 ADD A NAME ROUTINE:ABETICAL ORDER)"% ""P)RINT LABELS"? ,"R)EAD IN NAME LIST"a 6"S)ET UP PRINTER FOR LABELS"} @"W)RITE LIST ON PAPER" J"X)CHANGE DISK DRIVE" T"Z)AP STRINGS" ^32,0 h23:"WHAT IS YOUR CHOICE ?";:A$: rA$"A"İ530|A$"C"İ120T":" :F$;::30);N;" NAMES", 32,2F 28);"DISK DRIVE ";DY "A)DD A NAME"o "C)HANGE A NAME" "D)ELETE A NAME" "E)XIT" "L)IST NAMES ON SCREEN" "M)OVE A NAME" "N)UMERICAL ORDER BY ZIP CODES" "O)RDER LIST (ALPH d MAILING LIST PROGRAM8 n BY DAN LONN 12/26/81T xT%0:D$(4):D(47082) N%(400),N$(400,2),A$(2),N1$(400),ZC(400),Z$(100) 768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96 ::14);"MAILING LIS         I5xBR1B:BR$;:BR:V2$;:V1$;:BR1B:D)BR$;:BR:5LL1:L2L$A$5L3L$B$5L4L$C$6BR$;:(C((L$)2)):L$;:A:BR$:L42L$A$4L3L$B$&4L4L$C$W4BR$;:(C((L$)2)):L$;:A:BR$:L43970j4A4$"0"ī40404BR1B:BR$;:BR:Z$;:BR1B:BR$;:BR::440504BR1A:BR$;:BR::4L1:I4c5 S 3.3 "%3(A4$"3"Z$" COBOL "B32A4$"4"Z$" PASCAL "_3<A4$"5"Z$" CP/M "q3FA4$"0"39203P::16503ZI1X3dV$"Y"ī39603nBR1A:BR$;:BR::39703xBR1B:BR$;:BR:V2$;:V1$;:BR1B:D)BR$;:BR:4LL1:L9):"[ 3 ] - - COBOL ":;2(9):"[ 4 ] - - PASCAL ":Y2(9):"[ 5 ] - - CP/M ":2(9):"[ 0 ] - - SOLID BORDER ":2 (20):(9):"[ ] ..... YOUR CHOICE";:(11):A4$::A4$"0"A4$"5"38502A4$"1"Z$" DOS 3.2 "3A4$"2"Z$" DOTHE BORDER? [ ] DEFAULT = * "G1.(13):(21):"";BR$:BR$""BR$"*"[18(BR$)236001:750:(3):" WHAT WOULD YOU LIKE IMPRINTED IN THE BOTTOM PORTION OF THE BORDER?":1(9):"[ 1 ] - - DOS 3.2":1(9):"[ 2 ] - - DOS 3.3":2(034,10:(3):(5):"***************************** * * * DISK LABEL WITH BORDER * * * *****************************"1$(12):" WHAT CHARACTER DO YOU WANT TO USE FOR ::: LABEL #0 ::: u/ A$"GOTO LINE 3530"/ B$""/ C$""/ E$""/ F$""/ / ::: LABEL BORDER ::: /750 ::: LABEL #9 ::: . A$"GOTO LINE 3460". B$"". C$"". E$"". F$"". ]/ ::: LABEL #8 ::: -> A$"GOTO LINE 3390"-H B$""-R C$""-\ E$""-f F$""-p r.z ::: LABEL #7 ::: , A$"GOTO LINE 3320", B$"", C$"", E$"", F$"",* -4 F$"" + + ::: LABEL #6 ::: + A$"GOTO LINE 3250"+ B$""+ C$""+ E$""+ F$""+ , C$""*D E$""*N F$"" *X *b ::: LABEL #5 ::: *l A$"GOTO LINE 3180"*v B$""* C$""* E$""+E 3040") B$"") C$""%) E$""/) F$""5) ) ::: LABEL #4 ::: )& A$"GOTO LINE 3110")0 B$""*: ( A$"GOTO LINE 2900"&( B$""0( C$"":( E$""D( F$""J( ( ::: LABEL #3 ::: ) A$"GOTO LIN 1'T A$"GOTO LINE 2900";'^ B$""E'h C$""O'r E$""Y'| F$""_' ( ::: LABEL #2 ::: 2390 & A3$"8"İ3390::2390;&" A3$"9"İ3460::2390V&, A3$"0"İ3530::2390j&6 A3$(27)ī150t&@ 2760'J ::: LABEL #1 ::: *"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 ** ]3Ld WRITTEN BY: nS.P. TULK N8AGV MADISON, OHIO MARCH 1981 x                 P. 97 'IBSTAT' "C42,239:C43,216:C7C44:C70,169:C71,0:C72,76:C73,218:C74,253:A8C3+C8A513:C9A515:D0A516:D1A51:D2A52:A6A54:A7A55:B7C71:B8C7:P(C8)0A9C2:1440xA9B0:"ERROR # $";:B7,(C8):B8:" OCCURRED.":"SEE DOS 3.3 MANUAL6:C34,32:C35,217:C36,3:C37,96 )C38,0:A50,1:A51,96:A52,1:A53,0:A54,17:A55,12:C5(C4256):C6C4C5256:A56,C6:A57,C5:C5(A2256):C6A2C5256:A58,C6:A59,C5O*A512,1:A513,0:A514,0:A515,96:A516,1:C40,0:C41,1:255)((Y33)0)1280i JJ1:B2%(J)B5:B1%(J)(Y33):R$(J)"":X130:B6$((YZX)):R$(J)R$(J)B6$o y ::% (A234500:B70:B80:B90:C00:C18:C20:B01:C3768:A5C39:C4A517:C5(A5256):C6A5256C5:C30,169:C31,C5:C32,160:C33,C1A1256:A59,(A1256):A6,A3:A7,A4:A8:1360:A9B0ĺ"ERROR AT TRACK ";A3;" SECTOR ";A4: 8A0A01:A3(A11):A4(A12):((A30)(A40))1040 `R$(84):B1%(84):B2%(84):J0:B31A0:B417:Y(A2256)(B3256)11(B41)35:B5(Y2) ((Y)DUPLICATE":(4):"(B) ANOTHER":4:"(C) END"::"WHICH OPTION ?";:G$:(G$)65(G$)670600n G$"A"ī360| G$"B"Ĭ :12:(16):"BYE!":23: M1::"ENTER COMMENT FOR TITLE":K$: J0:X0:Y0:Z0:A00:1320:A1A2256:A317:A415] AIT ANY KEY";:A$::12:10:"PRINTING LABEL":1:(15);(14);K$:LMJH:N$"":O0H1j iPLO:PJ440 Q$(R$(P),I)(160):N$N$Q$:O S1(N$):(((N$,S,1))159)ĺ(N$,S,1); ::PJī0560  00] X:(8):"OPTIONS:":4:"(A) q(34500::3:"* DISK CATALOG LABELLER - 16 SECTOR *":15:"INSERT CATALOG DISK AND HIT ANY KEY....":22:A${)1000x760H3:I26:J36H4:I20J48H5:I16J60H6:I13@J72H7:I11W h:12:"ALIGN LABEL IN PRINTER - H     I7L1:I$77 I39706A4$"0"ī4040H6BR1B:BR$;:BR:Z$;:BR1B:BR$;:BR::R64050l6BR1A:BR$;:BR::w6L1:I}67 :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"( hE$""+ F$""+ + ::: LABEL #4 ::: +& A$"LEADER MORTGAGE CO."+0 B$"P.O. BOX 5241",: C$"CLEVELAND ::: LABEL #3 ::: * A$"LAKE CO. SANITARY ENG."* B$"105 MAIN STREET"* C$"PAINESVILLE OHIO 44077"+ ::: 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$""( ) İ3110::2390)' A3$"5"İ3180::2390D' A3$"6"İ3250::2390_' A3$"7"İ3320::2390z' A3$"8"İ3390::2390'" A3$"9"İ3460::2390', A3$"0"İ3530::2390'6 A3$(27)ī150'@ 2760s(J - - - XXXX LABEL"6& " [ 0 ] - - - XXXX LABEL"c& :" [ESC] - "& 21:" [ ] ..... YOUR CHOICE"& (9):(21):A3$:& A3$"1"İ2900::2390& A3$"2"İ2970::2390& A3$"3"İ3040::2390' A3$"4"EAST OHIO GAS"5%d " [ 3 ] - - - SANITARY ENG."^%n " [ 4 ] - - - LEADER MORTGAGE"%x " [ 5 ] - - - XXXX LABEL"% " [ 6 ] - - - XXXX LABEL"% " [ 7 ] - - - XXXX LABEL"% " [ 8 ] - - - XXXX LABEL"& " [ 9 ] :: 10 MOST USED :: $2 750:4:3$< " SELECT FROM:"$F :$P " [ 1 ] - - - ELECTRIC CO."%Z " [ 2 ] - - - 2530:1680G# A2$"2"ė:(27);"F";:0:670:(15);:0::2530:1680b# 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$# $( FROM:""j :8"t " [ 1 ] - - - STANDARD 80 CPL"b"~ " [ 2 ] - - - COMPRESSED 132 CPL"" " [ 3 ] - - - DOUBLE WIDE 40 CPL"" " [ 4 ] - - - COMPRESSED 66 CPL"" 20:" [ ] ..... YOUR CHOICE"" 6:(20):A2$: # A2$"1"ė:$" "*!. E$" "4!8 2380!B ::: PRINT CHOICE ::: !L 750!V 2530"` :" SELECT ::: YOUR LABEL :::  A$"ROBERT D. RATCLIFF"  B$"217 HERITAGE ROAD "  C$"CEDAR FALLS, IOWA, 50613"!$ D!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! VOL. IN LINE 3740. (MAINTAIN SPACES INSIDE QUOTES) UIROMPLUS CARD IN SLOT #3. GOTO LINE 1570 \; IF YOU WOULD LIKE TO USE YOUR INIT. IN THE TOP LINE OF A DISK LABEL... REPLACE 9 THIS PROGRAM IS SET UP FOR THE MX-80 CARD IN SLOT #1. GOTO LINE #670 : THE PROGRAM IS SET UP FOR A ):L$;:A:BR$:L43970+8A4$"0"ī4040\8BR1B:BR$;:BR:Z$;:BR1B:BR$;:BR::f840508BR1A:BR$;:BR::8L1:I8$9 " 7<A4$"5"Z$" CP/M "27FA4$"0"3920@7P::1650K7ZI1X]7dV$"Y"ī3960{7nBR1A:BR$;:BR::39707xBR1B:BR$;:BR:V2$;:V1$;:BR1B:D)BR$;:BR:7LL1:L2L$A$7L3L$B$7L4L$C$8BR$;:(C((L$)2)(9):"[ 5 ] - - CP/M ":A6(9):"[ 0 ] - - SOLID BORDER ":6 (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 "72A4$"4"Z$" PASCAL5(V1$)3ī378053650z5: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 ":6NO ":64`" [ ] ..... YOUR CHOICE";F4j(14):V$:W4tV$"N"37804~V$"Y"ė:(10):" ENTER YOUR VOLUME NUMBER (###) (MUST BE 3 DIGETS LONG) [ ] ";:3730436504(30):"";V1$4V2$" VOL. "4(V1$)33650 FOR THE BORDER? [ ] DEFAULT = * "N3.(13):(21):"";BR$:BR$""BR$"*"b38(BR$)236003B:(10):" WOULD YOU LIKE A VOLUME NUMBER IN THE TOP LINE OF THE BORDER ?"::3L" [ Y ] - - - YES ": 4V" [ N ] - - - 750234,10:(3):(5):"********* VOL. 123 ********* * * * DISK LABEL * * * ********* DOS 3.2 *********"&3$(12):" WHAT CHARACTER DO YOU WANT TO USE ::: LABEL #0 ::: }1 A$"GOTO LINE 3530"1 B$""1 C$""1 E$""1 F$""1 1 ::: LABEL BORDER ::: 2 ::: LABEL #9 ::: 0 A$"GOTO LINE 3460"0 B$""0 C$""0 E$""0 F$""0 e1 ::: LABEL #8 ::: /> A$"GOTO LINE 3390"/H B$""/R C$""/\ E$""/f F$""/p z0z . ::: LABEL #7 ::: . A$"GOTO LINE 3300". B$"". C$"". E$"". F$"".* /4 $""- F$""- - ::: LABEL #6 ::: - A$"GOTO LINE 3250"- B$""- C$""- E$""- F$""- OHIO 44101",D E$""",N F$""(,X ,b ::: LABEL #5 ::: ,l A$"GOTO LINE 3180",v B$"", C$""- ELATE ANOTHER TABLE":"OF PAYMENTS? ";X$=(X$,1)"Y"20CP:::8s" END OF PROGRAM "y" HAVE A GOOD DAY!"(4)"RUN MENU"22:"PRESS ANY KEY TO CONTINUE";H$0 PAUSE12000:PAUSE:A "******TABLE OF PAYMENTS******"Q &:" ",N$:W 0 :1);"#";5);"INTEREST";15);"PRINCIPLE";30);"BALANCE" DG1Q N1);G;5);I(G);15);P(G);30);B(G) XG b lPAUSE11500:PAUSE)v"WANT TO CALCUE";30);"BALANCE"5 N;5);I(N);15);P(N);30);B(N); A G \ (W$,1)"Y"520q (W$,1)"N"480 "IS THIS MONTH'S PAYMENT THE SAME AS LAST MONTH'S? ";C$ (C$,1)"Y"520  "WHAT IS THE NEXT MONTH'S PAYMENT? ";M N:53 6/ @"HOW MANY DAYS TILL NEXT PAYMENT? ";DH JI(N)A(I100)D365h TI(N)((I(N).005)100)100x ^P(N)MI(N) hP(N)((P(N).005)100)100 rB(N)AP(N) |B(N)((B(N).005)100)100 AB(N)  "#";5);"INTEREST";15);"PRINCIPLHAT IS THE LOAN AMOUNT? ";A! : I(90):P(90):B(90)W "HOW MANY PAYMENTS? ";Q] "WHAT IS THE FIRST MONTH'S PAYMENT? ";M "ARE ALL MONTHLY PAYMENTS FOR THE":"SAME AMOUNT? ";W$  (W$,1)"Y"300 "N1Q ,N1Q F:4/ P"A PROGRAM TO CALCULATE INTEREST,"8 Z:4[ d"PRINCIPLE AND LOAN BALANCES"h n:::4 x"****************************": 710 :6 "WHAT IS THE LOAN NAME? ";N$ "WHAT IS THE INTEREST RATE IN %? ";I  "W **************************DEVELOPED BY CHARLIE CONNOLLY, MOSCOW, IDAHO AND RICK FOSTER, LINCOLN, NEBRASKA********************************************:4"****************************":(:::42" COMPUTING INTEREST"<      )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 ** ]3Ld WRITTEN BY: nS.P. TULK N8AGV MADISON, OHIO MARCH 1981 x                   - - - XXXX LABEL"6& " [ 0 ] - - - XXXX LABEL"c& :" [ESC] - "& 21:" [ ] ..... YOUR CHOICE"& (9):(21):A3$:& A3$"1"İ2900::2390& A3$"2"İ2970::2390& A3$"3"İ3040::2390' A3$"4"EAST OHIO GAS"5%d " [ 3 ] - - - SANITARY ENG."^%n " [ 4 ] - - - LEADER MORTGAGE"%x " [ 5 ] - - - XXXX LABEL"% " [ 6 ] - - - XXXX LABEL"% " [ 7 ] - - - XXXX LABEL"% " [ 8 ] - - - XXXX LABEL"& " [ 9 ] :: 10 MOST USED :: $2 750:4:3$< " SELECT FROM:"$F :$P " [ 1 ] - - - ELECTRIC CO."%Z " [ 2 ] - - - 2530:1680G# A2$"2"ė:(27);"F";:0:670:(15);:0::2530:1680b# 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$# $( FROM:""j :8"t " [ 1 ] - - - STANDARD 80 CPL"b"~ " [ 2 ] - - - COMPRESSED 132 CPL"" " [ 3 ] - - - DOUBLE WIDE 40 CPL"" " [ 4 ] - - - COMPRESSED 66 CPL"" 20:" [ ] ..... YOUR CHOICE"" 6:(20):A2$: # A2$"1"ė:$" "*!. E$" "4!8 2380!B ::: PRINT CHOICE ::: !L 750!V 2530"` :" SELECT ::: YOUR LABEL :::  A$"ROBERT D. RATCLIFF"  B$"217 HERITAGE ROAD "  C$"CEDAR FALLS, IOWA, 50613"!$ D!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 (9):"[ 5 ] - - CP/M ":A6(9):"[ 0 ] - - SOLID BORDER ":6 (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 "72A4$"4"Z$" PASCAL5(V1$)3ī378053650z5: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 ":6NO ":64`" [ ] ..... YOUR CHOICE";F4j(14):V$:W4tV$"N"37804~V$"Y"ė:(10):" ENTER YOUR VOLUME NUMBER (###) (MUST BE 3 DIGETS LONG) [ ] ";:3730436504(30):"";V1$4V2$" VOL. "4(V1$)33650 FOR THE BORDER? [ ] DEFAULT = * "N3.(13):(21):"";BR$:BR$""BR$"*"b38(BR$)236003B:(10):" WOULD YOU LIKE A VOLUME NUMBER IN THE TOP LINE OF THE BORDER ?"::3L" [ Y ] - - - YES ": 4V" [ N ] - - - 750234,10:(3):(5):"********* VOL. 123 ********* * * * DISK LABEL * * * ********* DOS 3.2 *********"&3$(12):" WHAT CHARACTER DO YOU WANT TO USE ::: LABEL #0 ::: }1 A$"GOTO LINE 3530"1 B$""1 C$""1 E$""1 F$""1 1 ::: LABEL BORDER ::: 2 ::: LABEL #9 ::: 0 A$"GOTO LINE 3460"0 B$""0 C$""0 E$""0 F$""0 e1 ::: LABEL #8 ::: /> A$"GOTO LINE 3390"/H B$""/R C$""/\ E$""/f F$""/p z0z . ::: LABEL #7 ::: . A$"GOTO LINE 3300". B$"". C$"". E$"". F$"".* /4 $""- F$""- - ::: LABEL #6 ::: - A$"GOTO LINE 3250"- B$""- C$""- E$""- F$""- OHIO 44101",D E$""",N F$""(,X ,b ::: LABEL #5 ::: ,l A$"GOTO LINE 3180",v B$"", C$""- EE$""+ F$""+ + ::: LABEL #4 ::: +& A$"LEADER MORTGAGE CO."+0 B$"P.O. BOX 5241",: C$"CLEVELAND ::: LABEL #3 ::: * A$"LAKE CO. SANITARY ENG."* B$"105 MAIN STREET"* C$"PAINESVILLE OHIO 44077"+ ::: 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$""( ) İ3110::2390)' A3$"5"İ3180::2390D' A3$"6"İ3250::2390_' A3$"7"İ3320::2390z' A3$"8"İ3390::2390'" A3$"9"İ3460::2390', A3$"0"İ3530::2390'6 A3$(27)ī150'@ 2760s(J VOL. IN LINE 3740. (MAINTAIN SPACES INSIDE QUOTES) IROMPLUS CARD IN SLOT #3. GOTO LINE 1570 \; IF YOU WOULD LIKE TO USE YOUR INIT. IN THE TOP LINE OF A DISK LABEL... REPLACE 9 THIS PROGRAM IS SET UP FOR THE MX-80 CARD IN SLOT #1. GOTO LINE #670 : THE PROGRAM IS SET UP FOR A ):L$;:A:BR$:L43970+8A4$"0"ī4040\8BR1B:BR$;:BR:Z$;:BR1B:BR$;:BR::f840508BR1A:BR$;:BR::8L1:I8$9 " 7<A4$"5"Z$" CP/M "27FA4$"0"3920@7P::1650K7ZI1X]7dV$"Y"ī3960{7nBR1A:BR$;:BR::39707xBR1B:BR$;:BR:V2$;:V1$;:BR1B:D)BR$;:BR:7LL1:L2L$A$7L3L$B$7L4L$C$8BR$;:(C((L$)2) )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 ** 2Ld WRITTEN BY: nS.P. TULK N8AGV MADISON, OHIO MARCH 1981 x !! ! ! ! ! !!!!!!!!!""" " " " " """""""""        X LABEL",& " [ 0 ] - - - XXXX LABEL"Y& :" [ESC] - "& 21:" [ ] ..... YOUR CHOICE"& (9):(21):A3$:& A3$"1"İ2900::2390& A3$"2"İ2970::2390& A3$"3"İ3040::2390' A3$"4"İ3110:: XXXX LABEL"0%d " [ 3 ] - - - XXXX LABEL"T%n " [ 3 ] - - - XXXX LABEL"x%x " [ 4 ] - - - XXXX LABEL"% " [ 6 ] - - - XXXX LABEL"% " [ 7 ] - - - XXXX LABEL"% " [ 8 ] - - - XXXX LABEL"& " [ 9 ] - - - XXX :: 10 MOST USED :: $2 750:4:3$< " SELECT FROM:"$F :$P " [ 1 ] - - - XXXX LABEL" %Z " [ 2 ] - - -ė:2530:1680J# A2$"2"ė:(27);"F";:0:670:(15);:0::2530:1680e# 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$# $( CT FROM:""j :;"t " [ 1 ] - - - STANDARD 80 CPL"e"~ " [ 2 ] - - - COMPRESSED 132 CPL"" " [ 3 ] - - - DOUBLE WIDE 40 CPL"" " [ 4 ] - - - COMPRESSED 66 CPL"" 20:" [ ] ..... YOUR CHOICE"" 6:(20):A2$:# A2$"1"$ D$" "-!. E$" "7!8 2380!B ::: PRINT CHOICE ::: !L 750!V 2530 "` :" SELE ::: YOUR LABEL :::  A$" VIRGIL J. BERG "  B$" 5870 KIMBALL AVENUE "  C$"WATERLOO, IOWA 50701"!!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