' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈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,&"_]` L/浍굺L  !"#$%&'()*+,-./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#0EB 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`   vLDcpq` [` ~  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 iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-(D  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(`# d ֠z# u`"3"ė:650:(27);(110);:0:2270:1520ZA2$"4"ė:650:(27);(81);:0:2270:1520d2210k4v6:A$6:B$6:C$ 6:E$ 6:F$ $ *** TEN MOST USED ***. 710:4:38 " SELECT FROM:"B :L " [5 CPI"0" [ 3 ] - - - EXTENDED 9 CPI"Z" [ 4 ] - - - ULTRA COND. 17 CPI"20:" [ ] ..... YOUR CHOICE"6:(20):A2$:A2$"1"ė:650:(27);(69);:0:2270:1520A2$"2"ė:650:(27);(113);:0:2270:1530)A2$ B$"187 WOODSTOCK RD.6C$"WATERLOO, IA 50701C E$" "P*F$" "Z42120x> *** SELECT TYPEFACE ***H710R2270\:" SELECT TYPE FACE:"f:p" [ 1 ] - - - ELITE 12 CPI"z" [ 2 ] - - - CONDENSED 1 650:18:(27);(33);:0218:30:868W17:3::"ON ":17:28:"ON ":aE1:650:18:(27);(34);:017:28:86817:3::"OFF";:17:28:"OFF";:E0: *** YOUR LABEL ***A$"MARCIA K. SMITH"" 10%"* *"-10I"* GOOD BYE *"Q10m&"* *"u010:"********************"D24NI11000:IXI115::Ibl *** BOLDFACE SETUP ***vE0ī1940E1ī1980 MORE OF THE SAME LABEL ";:X$:X$"Y"X$"YES"ė:1530P60: GOTO MENUZ1610d1500  *** END ***:0:1110"******************** REPLACE VOL. IN LINE 3740. (MAINTAIN SPACES INSIDE QUOTES) U INSIDE QUOTES) P FOR A ROMPLUS CARD IN SLOT #3. GOTO LINE 1570 d< IF YOU WOULD LIKE TO USE YOUR INIT. IN THE TOP LINE OF A DISK LABEL... : THIS PROGRAM IS SET UP FOR THE MX-80 CARD IN SLOT #1. GOTO LINE #670 ; THE PROGRAM IS SET U(L$)2)):L$;:A:BR$:L4397039A4$"0"ī4040d9BR1B:BR$;:BR:Z$;:BR1B:BR$;:BR::n940509BR1A:BR$;:BR::9L1:I9,: PASCAL "(8<A4$"5"Z$" CP/M ":8FA4$"0"3920H8P::1650S8ZI1Xe8dV$"Y"ī39608nBR1A:BR$;:BR::39708xBR1B:BR$;:BR:V2$;:V1$;:BR1B:D)BR$;:BR:8LL1:L2L$A$8L3L$B$8L4L$C$ 9BR$;:(C( ":"7(9):"[ 5 ] - - CP/M ":I7(9):"[ 0 ] - - SOLID BORDER ":7 (20):(9):"[ ] ..... YOUR CHOICE";:(11):A4$::A4$"0"A4$"5"38507A4$"1"Z$" DOS 3.2 "7A4$"2"Z$" DOS 3.3 "7(A4$"3"Z$" COBOL " 82A4$"4"Z$"336506(V1$)3ī3780$636506:750:(3):" WHAT WOULD YOU LIKE IMPRINTED IN THE BOTTOM PORTION OF THE BORDER?":6(9):"[ 1 ] - - DOS 3.2":6(9):"[ 2 ] - - DOS 3.3":6(9):"[ 3 ] - - COBOL ":7(9):"[ 4 ] - - PASCAL] - - - NO ":>5`" [ ] ..... YOUR CHOICE";N5j(14):V$:_5tV$"N"37805~V$"Y"ė:(10):" ENTER YOUR VOLUME NUMBER (###) (MUST BE 3 DIGETS LONG) [ ] ";:3730536505(30):"";V1$5V2$" VOL. "6(V1$) TO USE FOR THE BORDER? [ ] DEFAULT = * "V4.(13):(21):"";BR$:BR$""BR$"*"j48(BR$)236004B:(10):" WOULD YOU LIKE A VOLUME NUMBER IN THE TOP LINE OF THE BORDER ?"::4L" [ Y ] - - - YES ":5V" [ N 3750334,10:(3):(5):"********* VOL. 123 ********* * * * DISK LABEL * * * ********* DOS 3.2 *********".4$(12):" WHAT CHARACTER DO YOU WANT ::: LABEL #0 ::: 2 A$"GOTO LINE 3530"2 B$""2 C$""2 E$""2 F$""2 3 ::: LABEL BORDER ::: ::: LABEL #9 ::: 1 A$"GOTO LINE 3460"1 B$""1 C$""1 E$""1 F$""1 m2 ::: LABEL #8 ::: 0> A$"GOTO LINE 3390"0H B$""0R C$""0\ E$""0f F$""0p 1z "/ / ::: LABEL #7 ::: / A$"GOTO LINE 3300"/ B$""/ C$""/ E$""/ F$""/* 04 "" . E$"". F$"". . ::: LABEL #6 ::: . A$"GOTO LINE 3250". B$"". C$"". E$""/ F$"LEVELAND OHIO 44101" -D E$""*-N F$""0-X -b ::: LABEL #5 ::: -l A$"GOTO LINE 3180"-v B$"". C$77" , E$"", F$"", , ::: LABEL #4 ::: ,& A$"LEADER MORTGAGE CO.",0 B$"P.O. BOX 5241"-: C$"C + ::: LABEL #3 ::: + A$"LAKE CO. SANITARY ENG."+ B$"105 MAIN STREET", C$"PAINESVILLE OHIO 440 ::: 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$"") * A3$"4"İ3110::23901( A3$"5"İ3180::2390L( A3$"6"İ3250::2390g( A3$"7"İ3320::2390( A3$"8"İ3390::2390(" A3$"9"İ3460::2390(, A3$"0"İ3530::2390(6 A3$(27)ī150(@ 2760{)J [ 9 ] - - - XXXX LABEL">' " [ 0 ] - - - XXXX LABEL"k' :" [ESC] - "' 21:" [ ] ..... YOUR CHOICE"' (9):(21):A3$:' A3$"1"İ2900::2390' A3$"2"İ2970::2390' A3$"3"İ3040::2390( ] - - - EAST OHIO GAS"=&d " [ 3 ] - - - SANITARY ENG."f&n " [ 4 ] - - - LEADER MORTGAGE"&x " [ 5 ] - - - XXXX LABEL"& " [ 6 ] - - - XXXX LABEL"& " [ 7 ] - - - XXXX LABEL"& " [ 8 ] - - - XXXX LABEL"' " :: 10 MOST USED :: %2 750:4:3%< " SELECT FROM:"%F :%P " [ 1 ] - - - ELECTRIC CO."&Z " [ 2 $"1"ė:2530:1680O$ A2$"2"ė:(27);"F";:0:670:(15);:0::2530:1680j$ 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$$ %( SELECT FROM:"#j :@#t " [ 1 ] - - - STANDARD 80 CPL"j#~ " [ 2 ] - - - COMPRESSED 132 CPL"# " [ 3 ] - - - DOUBLE WIDE 40 CPL"# " [ 4 ] - - - COMPRESSED 66 CPL"# 20:" [ ] ..... YOUR CHOICE"# 6:(20):A2$:$ A2EDAR FALLS, IOWA, 50613"%"$ E$" "2". F$" "<"8 2380"B ::: PRINT CHOICE ::: "L 750"V 2530#` :" ::: YOUR LABEL ::: ! A$"ROBERT D. RATCLIFF"! B$"217 HERITAGE ROAD "" C$"C E0ī2220 E1ī2260$ ? 670:16:(27)"E";:0Q 15:30:868x 15:(1):"ESC ":15:36::"ON": E1: 670:16:(27)"F";:0 15:30:868 15:35::"OFF";: E0:! *">108H"********************"@R24Q\I11000:IbfI115::Ihpz ::: SETUP EMPHASIZE ::: q ::: END ::: z:0:1110"********************"10 "* *"10 "* GOOD BYE *"*104"* A ::: 66 CPL SETUP ::: U670:(15);:0_1820  ::: ROMPLUS SETUP ::: 1570: ROMPLUS ON1660? USTIONS0920:GET INPUT0:1500:HOW MANY?FD670:PRINTER ON _N:1330:PRINT LARGEvX710: PRINTER OFFb:2540::" MORE OF THE SAME LABEL ";:X$:X$"Y"X$"YES"ė:1850l150: GOTO MENUv R ::: 132 CPL SETUP ::: f670:(15);:0p1650  ::: 40 CPL SETUP ::: 750: DRAW BORDER&530: INSTRINPUT1500: HOW MANY?1670: PRINTER ONK:1210:PRINT LABELSb710: PRINTER OFF:2540::" MORE OF THE SAME LABEL ";:X$:X$"Y"X$"YES"ė:1680X$"N"X$"NO"ī17501720150: GOTO MENU : THERE IS A SHIFT/CTRL/M IN QUOTES96(4);"PR#";SLOT?@LJM$;"1A"XTS130:^ h ::: 80 CPL SETUP ::: r750: DRAW BORDER|530: INSTRUCTIONS920: GET  ::: HOW MANY ? ::: 714Z" HOW MANY LABELS ";aXoX0ī150u  ::: ROM PLUS ON ::: "SLOT3: ROMPLUS IN SLOT #3$,M$"" G2I1XS<(14);[FA$gP(14);oZB${d(14);nC$x(14);E$(14);F$I0 / ? ::: STANDARD PRINT ::: ML13930XI1X`A$hB$pC$xE$F$ I <( ::: DOUBLE WIDE ::: 14" INPUT LINE #3 ")18:870418:4C$768,"";C$N.L1ıV814mB" INPUT LINE #4 "zL19:870V19:4`768,"";E$j14t" INPUT LINE #5 "~20:87020:4768,"";F$ :I p"]"z@ q ::: INPUT LINES ::: y14" INPUT LINE #1 "16:87016:4768,"";A$14" INPUT LINE #2 "17:87017:4768,"";B$724:I139:"%";:I::1:I139:"%";:I:U I122:"%";:39:"%":I[e 32,1p*33,37z434,2>35,22HR \ ::: LINE LIMITER ::: f5:I1S1:(95); 1%V  ::: PRINTER OFF ::: 0  ::: BORDER ::: MAL OR 3 LINES BORDERED.DCN" DO NOT USE COMMAS OR COLONS."IXrb" A RETURN WITH NO ENTRY WILL GIVE"l" A BLANK LINE"v34,13  ::: PRINTER ON :::34:B12:C18:D23:3600,A1$(27)ī20105390n  ::: INSTRUCTIONS ::: 3" PRINT WIDTH IS SET BY LINE LIMITER&" FOR 3 1/2 INCH LABELS.0:" 5 LINES NOR0:1780!A1$"3"S115:1820NA1$"4"S126:670:(27);"F";:0:1930gA1$"5"S130:1970zA1$"6"İ2190A1$"7"ė:2310A1$"8"ė:2610A1$"9"S123:L1:S$(29):A28:B9:C15:D20:3600A1$"0"S129:L1:S$(29):AELS"2h" [ 9 ] - - - SHORTENED DISK LABEL"`m" [ 0 ] - - - FULL SIZE DISK LABEL"r:" [ESC] - - - < END >"|23:" [ ] ..... YOUR CHOICE"(9):(23):A1$:A1$"1"S130:1650A1$"2"S153:670:(27);"F";:132 CPL"5 ," [ 3 ] - - - DOUBLE WIDE 40 CPL"b 6" [ 4 ] - - - COMPRESSED 66 CPL" @" [ 5 ] - - - STANDARD / ROM PLUS" J" [ 6 ] - - - EMPHASIZE " T" [ 7 ] - - - YOUR LABEL"^" [ 8 ] - - - 10 MOST USED LAB*"; "*"40)"*";) I140:"*";:IF 6:14:": S. P. TULK :"h 12:13::"TURN PRINTER ON "n x 150 E1:2190 (8) (4):"SELECT FROM:"  " [ 1 ] - - - STANDARD 80 CPL" "" [ 2 ] - - - COMPRESSED ::: MENU ::: :::670:(18);:0 I140:"*";:I "*"40)"*"; "* *** MX-80 LABEL MAKER *** REVISED JUNE 81 SPT ** PUBLIC DOMAIN ** ,76,154,218V d WRITTEN BY: nS.P. TULK N8AGV MADISON, OHIO MARCH 1981 x f4  I047N:768I,N?I: POKE ROUTINE INTO MEMORY|R 32,183,0,201,44,208,3,32,190,222,32,6,227,201,34,208T 11,32,129,222,169,59,32,192,222,32,61,219,32,227V 223,32,108,221,133,133,132,134,32,44,213,200 X 32,233,227                 L43810+ A4$"0"ī3880M+BR1B:BR$;:BR:Z$;:BR1B:BR$;:BR::W+3890q+(BR1A:BR$;:BR::|+2L1:I+<<I+<+$"5"Z$" CP/M "&*A4$"0"37604*::1490?*I1XQ*V$"Y"ī3800o*BR1A:BR$;:BR::3810*BR1B:BR$;:BR:V2$;:V1$;:BR1B:BR$;:BR:*LL1:L2L$A$*L3L$B$*L4L$C$ +BR$;:(C((L$)2)):L$;:A:BR$:"[ 5 ] - - CP/M "::)`(9):"[ 0 ] - - SOLID BORDER ":)j(20):(9):"[ ] ..... YOUR CHOICE";:(11):A4$::A4$"0"A4$"5"3690)tA4$"1"Z$" DOS 3.2")~A4$"2"Z$" DOS 3.3")A4$"3"Z$" COBOL ")A4$"4"Z$" PASCAL "*A41$)3ī3620(3490s($:710:(3):" WHAT WOULD YOU LIKE IMPRINTED IN THE BOTTOM PORTION OF THE BORDER?":(.(9):"[ 1 ] - - DOS 3.2":(8(9):"[ 2 ] - - DOS 3.3":(B(9):"[ 3 ] - - COBOL ":(L(9):"[ 4 ] - - PASCAL ":)V(9): ":/' " [ ] ..... YOUR CHOICE";?' (14):V$:P' V$"N"3620' V$"Y"ė:(10):" ENTER YOUR VOLUME NUMBER (###) (MUST BE 3 DIGETS LONG) [ ] ";:3570' 3490' (30):"";V1$' V2$" VOL. "'(V1$)33490 ((VTHE BORDER? [ ] DEFAULT = * "G& (13):(21):"";BR$:BR$""BR$"*"[& (BR$)23440& :(10):" WOULD YOU LIKE A VOLUME NUMBER IN THE TOP LINE OF THE BORDER ?"::& " [ Y ] - - - YES ":' " [ N ] - - - NO %z 34,10:(3):(5):"**************************** * * * BORDERED LABELS * * * ****************************"& (12):" WHAT CHARACTER DO YOU WANT TO USE FOR "GOTO LINE 3460"$ B$""%$ C$""/$ E$""9$ F$""?$ W$ *** LABEL #10 ***^$ v$* A$"GOTO LINE 3530"$4 B$""$> C$""$H E$""$R F$""$\ $f ::: LABEL BORDER ::: $p 710 *** LABEL #7 *** #& 5#0 A$"GOTO LINE 3320"?#: B$""I#D C$""S#N E$""j#X *** LABEL #9 ***p#b v#l #v *** LABEL #8 *** # # A$"GOTO LINE 3390"# B$""# C$""# E$""# F$""# # *** LABEL #9 ***# $ A$ELAND OHIO 44101""^ E$""'"h F$""-"r D"| *** LABEL #5 ***J" b" A$"GOTO LINE 3180"l" B$""v" C$""" E$""" F$""" " *** LABEL #6 *** " " A$"GOTO LINE 3250"" B$""" C$""" E$""" F$""" #O 44184"! E$""! F$""#! :! *** LABEL #3 ***@! X! A$"GOTO LINE 3040"q! B$"105 MAIN STREET"! C$"PAINESVILLE OHIO 44077"! E$""!" F$""!, !6 *** LABEL #4 ***!@ A$"GOTO LINE 3040"!J B$"P.O. BOX 5241""T C$"CLEV 2500 F *** LABEL #1 ***# P F Z A$"CLEVELAND ELECT. ILL. CO."` d B$"55 PUBLIC SQUARE" n C$"CLEVELAND OHIO 44178" x E$"" F$"" *** LABEL #2 *** A$"EAST OHIO GAS CO." B$"P.O. BOX 6862" ! C$"CLEVELAND OHI3$"2"İ2730::2130/ A3$"3"İ2810::2130J A3$"4"İ2880::2130e A3$"5"İ2960::2130 A3$"6"İ3040::2130 A3$"7"İ3120::2130 A3$"8"İ3210::2130 A3$"9"İ3290::2130( A3$"10"İ3370::2 A3$(27)ī16 " 21:" [ ] ..... YOUR CHOICE" (9):(21):A3$: A3$"1"İ2650::2130 AL " [ 1 ] - - - ELECTRIC CO."JV " [ 2 ] - - - EAST OHIO GAS"q` " [ 3 ] - - - SANITARY ENG."j " [ 4 ] - - - LEADER MORTGAGE"t " [ 5 ] - - - XXXX LABEL"~ " [ 6 ] - - - XXXX LABEL" " [ 7 ] - - - XXXX 304A2$"3"ė:650:(27);(110);:0:2270:1520eA2$"4"ė:650:(27);(81);:0:2270:1520o2210v46:A$6:B$6:C$ 6:E$ 6:F$ $ *** TEN MOST USED ***. 710:4:38 " SELECT FROM:"B :#DENSED 15 CPI";" [ 3 ] - - - EXTENDED 9 CPI"e" [ 4 ] - - - ULTRA COND. 17 CPI"20:" [ ] ..... YOUR CHOICE"6:(20):A2$:A2$"1"ė:650:(27);(69);:0:2270:1520A2$"2"ė:650:(27);(113);:0:2270:15G "# B$" 5870 KIMBALL AVE "AC$"WATERLOO, IOWA 50701"N E$" "[*F$" "e42120> *** SELECT TYPEFACE ***H710R2270\:" SELECT TYPE FACE:"f:p" [ 1 ] - - - ELITE 12 CPI"z" [ 2 ] - - - CON 650:18:(27);(33);:0218:30:868W17:3::"ON ":17:28:"ON ":aE1:650:18:(27);(34);:017:28:86817:3::"OFF";:17:28:"OFF";:E0: *** YOUR LABEL ***A$" VIRGIL J. BER" 10%"* *"-10I"* GOOD BYE *"Q10m&"* *"u010:"********************"D24NI11000:IXI115::Ibl *** BOLDFACE SETUP ***vE0ī1940E1ī1980 MORE OF THE SAME LABEL ";:X$:X$"Y"X$"YES"ė:1530P60: GOTO MENUZ1610d1500  *** END ***:0:1110"********************UP ***6650:(15);:0@@ *** BORDER FOR INSTRUCTIONS ***WJ710: DRAW BORDERpT520: INSTRUCTIONS^870:GET INPUTh1410: HOW MANYLABELS r650:PRINTER ON |:1250: PRINT DOUBLE WIDE680: PRINTER OFF<:2280::"*710: DRAW INSTRUCTIONS BORDERB520: INSTRUCTIONS^870 GET INPUT r650:(15);:01410: HOW MANY LABELS ?650: PRINTER ON:1140:PRINT LABELS680: PRINTER OFF":1680, *** "YOUR LABEL" SETB$(14);C$"((14);*2E$6<(14);>FF$DPKZIRd0Xnzx *** HOW MANY LABELS ? ***14" HOW MANY LABELS?";XX0ī16 (4);"PR#";SLOT19:4.768,"";E$8144B" INPUT LINE #5 "AL20:820LV20:4[`768,"";F$ajotL13770z~I1XA$B$C$E$F$I *** DOUBLE WIDE ***I1X(14);A$(14); " INPUT LINE #1 "z16:820)16:48768,"";A$@14W" INPUT LINE #2 "d17:820o17:4~768,"";B$14" INPUT LINE #3 "18:82018:4768,"";C$L1ı14" INPUT LINE #4 "19:820$139:"%";:I:.I122:"%";:39:"%":I4>32,1I33,37S 34,2^35,22d * *** LINE LIMITER *** 45:I1S1:(95);:I>"]"HR \ *** INPUT LINES ***f14pORDERED.N7X" A RETURN WITH NO ENTRY WILL GIVE"Lb" A BLANK LINE"Wl34,13]vv *** PRINTER ON ***}1 *** PRINTER OFF ***0 *** BORDER FOR INSTRUCTIONS ***24:I139:"%";:I::1:I6:L1:S$(29):A39:B15:C20:3440QA1$"A"S136:1:(27);(112);:0:1490dA1$"Q"ī1740m350 *** INSTRUCTIONS ***3" PRINT WIDTH IS SET BY LINE LIMITER" FOR 3 1/2 INCH LABELS.&0" 5 LINES NORMAL OR 3 LINES B52:650:(27);(81);:0:1490LA1$"6"S128:650:(27);"P";:0:1490|A1$"7"S124:650:(27);(112);:0:1490A1$"8"İ1910A1$"9"ė:2050A1$"0"ė:2350A1$"A"S127:L1:S$(29):A31:B11:C16:3440#A1$"B"S13] - - - QUIT"8 T:23:15::"[ ].....MAKE A CHOICE":K ^23:16:A1$:d hA1$"1"S118:1610 rA1$"2"S126:650:(27);(110);:0:1490 |A1$"3"S136:650:(27);(69);:0:1490 A1$"4"S145:650:(27);"q";:0:1490A1$"5"S1 ] - - - PICA (PROP) 11 CPI"@ " [ 8 ] - - - BOLDFACE "e "" [ 9 ] - - - YOUR LABEL " ," [ 0 ] - - - 10 MOST USED LABELS " 6" [ A ] - - - SHORT BORDERED LABELS" @" [ B ] - - - LONG BORDERED LABEL" J" [ Q E WIDE 6 CPI"< " [ 2 ] - - - EXTENDED 9 CPI"i " [ 3 ] - - - ELITE 12 CPI" " [ 4 ] - - - CONDENSED 15 CPI" " [ 5 ] - - - ULTRA COND. 17 CPI" " [ 6 ] - - - ELITE (PROP) 14 CPI" " [ 7*"40)"*";; x"* *** DISK LABEL MAKER *** *";L "*"40)"*";a I140:"*";:Ig " IF SCREEN BLANKS OUT, CHECK PRINTER!" 16 E1:1910 8:12::"SELECT TYPE FACE": E$" " " [ 1 ] - - - DOUBL # 32,183,0,201,44,208,3,32,190,222,32,6,227,201,34,208s ( 11,32,129,222,169,59,32,192,222,32,61,219,32,227 - 223,32,108,221,133,133,132,134,32,44,213,200 2 32,233,227,76,154,218 <:::650:(18);:0 dI140:"*";:I n"#! *** DISK LABEL MAKER *** @ *** FOR IMAGEWRITER ***] **********************z * REVISED BY V.BERG * * JULY 28, 1987 * **********************I047N:768I,NI: POKE ROUTINE INTO MEMORY;            xK15:XX(XN1RA)(RNX(N1)) AX1:::"LOAN AMOUNT: ";P::"NUMBER OF MONTHS:";N::"MONTHLY PAYMENT: ";M::"MONTHLY INTEREST RATE: ";A1200*******************"D F"********<< CALCULATION RESULTS >>*******"t P"****************************************" ZX((N(P.1)M)(2(N.1))1)(A0)1A100 dAX1:V(1XN)A(N0):PPMV(P0) nMMPV(M0):RPM:NN(N0)(1AR)(X))& 14::"LOAN CALCULATOR":,n:"ENTER A '0' FOR THE CATEGORY YOU":" WANT TO FIND."(:"LOAN AMOUNT:";P::"NUMBER OF MONTHS: ";N::"MONTHLY PAYMENT: ";M::"ANNUAL INTEREST RATE: ";A:AA122 <"*********************   HEST POSSIBLE DOUBLE BONUS."::"WHEN ENTERING A WORD, BACK-ARROW WILL":"ERASE THE LAST LETTER WHILE K.N"WILL ERASE THE ENTIRE WORD. IF YOU ARE":"PLAYING ALONE, YOU CAN GET A NEW ROLL":"BY PRESSING ":165::14)"INSTRUCTIONS"::"YOU MIS DOUBLED.":"YOU ALSO RECEIVE ANOTHER 60 SECONDS OF":"PLAYING TIME."::"IF ANY OF YOUR WORDS ARE CHALLENGED AND":"FOUND INVALID, YOU ARE PENALIZED AT THEn-5"HIGHEST POSSIBLE SCORE FOR A WORD OF":"THAT SIZE. THAT IS, THE BASE SCORE":"PLUS THE HIGORD, AND THE MORE":"WORDS OF THAT LENGTH WHICH YOU HAVE,":"THE HIGHER THE BONUS.":165::14)"INSTRUCTIONS"::"FINALLY, IF YOU GET MORE THAN 1750":"POINTS IN A GAME, YOU GO INTO DOUBLE,"BONUS MODE. THE BONUS FOR EACH":"ADDITIONAL WORD YOU MAKE AL SCORE SO FAR.":*"A WORD ON SCORING. THE BASIC SCORE FOR":"A WORD IS 10 POINTS TIMES THE NUMBER OF":"LETTERS IN THE WORD. IN ADDITION, A":"BONUS RANGING FROM 0 TO 800 POINTS IS":"ADDED TO THE SCORE OF EACH WORD. THE+"MORE LETTERS IN A W"EVERYONE'S WORDS ARE DISPLAYED IN TURN*"FOR POSSIBLE CHALLENGES FROM THE OTHER":"PLAYERS. YOU WILL NEED A DICTIONARY OR":"SOME OTHER MEANS OF ARBITRATION."::"ALL PLAYERS ARE THEN RANKED ACCORDING":"TO THEIR SCORE FOR THIS GAME AND THEIR":"TOTH":"GETS A THREE MINUTE TURN WITH THE SAME":"SET OF LETTERS. NATURALLY, THOSE WHO()"HAVEN'T HAD THEIR TURN YET SHOULD NOT":"WATCH THE SCREEN WHILE OTHERS ARE":"MAKING THEIR WORDS.":165::14)"INSTRUCTIONS"::"AFTER EACH PLAYER HAS HAD A TURN,":ROUP OF FIVE GAMES IS CALLED A":"TOURNAMENT. IN THE FIRST FOUR GAMES,":"YOU MUST MAKE YOUR WORDS FROM A ROLL OFT(c"13 LETTERS. IN THE LAST GAME OF THE":"TOURNAMENT YOU WILL HAVE 20 LETTERS TO":"WORK WITH."::"IF THERE IS MORE THAN ONE PLAYER, EAC"SCREEN ACCORDING TO LENGTH. YOU CAN":"MAKE UP TO FIVE WORDS OF EACH LENGTH":"FROM THREE TO EIGHT LETTERS.":165::14)"INSTRUCTIONS":r'E"NO PROPER NOUNS ARE ALLOWED, BUT":"CONTRACTIONS, PLURALS, AND ALL PREFIXES":"AND SUFFIXES ARE FINE."::"A GA SINGLE":"PLAYER, COMPETING AGAINST THE CLOCK,":"AND TRYING TO GET THE HIGHEST POSSIBLE":"SCORE, OR BY UP TO SIX PEOPLE PLAYING":"AGAINST THE CLOCK AND EACH OTHER.":&"YOUR WORDS MUST CONTAIN AT LEAST THREE":"LETTERS. THEY ARE GROUPED ON THE":K:I:700$:14)"INSTRUCTIONS"::"THE OBJECT OF WORD WARS IS TO MAKE AS":"MANY WORDS AS YOU CAN FROM A GROUP OF":"LETTERS DISPLAYED ON THE SCREEN, WHILE":"WORKING AGAINST A TIME LIMIT OF ABOUT":"THREE MINUTES.":%"WORD WARS MAY BE PLAYED BY ,03#Z(16384)1411380:16368,0:34,0::1390#d(16384)2091370:16368,0:34,0::V12:H1:100:"THANKS FOR PLAYING - HOPE YOU HAD FUN!":105:105::#nI0NP1:FS(I)0:I:NL13:GN1 $sI0NP1:J034:WD$(I,J)"":J:K06:NW(I,K)0:65:1355r"<:V3:H6:100:"FINAL SCORING FOR TOURNAMENT":I0NP1:TS(I)FS(I):TN$(I)NM$(I):I:255:165:1370"KGNGN1:GN5NL20"P165:1395#UV15:H1:100:"PRESS FOR ANOTHER TOURNAMENT":V16:H12:100:"PRESS TO QUIT":16368TS(I)SC(I):TN$(I)NM$(I):I:255:GN5V15:H5:100:"PRESS FOR FINAL SCORES":170:1340!(GN5V15:H2:100:"PRESS FOR CUMULATIVE SCORES":170"-:V3:H12:100:"CUMULATIVE SCORES":I0NP1:TS(I)FS(I):TN$(I)NM$(I):I:255:1...":H6:V10:100:"YOU FINISHED WITH "SC(0)" POINTS":105:H4:V12:100:"YOUR TOTAL SCORE IS NOW "FS(CP)" POINTS":105:GN51355 H10:V13:100:"...AND THAT'S FINAL!":105:1365c!:V3:H12:100:"SCORING FOR ROUND":I0NP1:FS(I)FS(I)SC(I):(W$):WD$(I,J)(PC$,LW):PNLW102(BN(LW3)5):H5:V12:100:"SORRY "NM$(I)"...":H8:V14:100:"...THAT'LL COST YOU "PN" POINTS":SC(I)SC(I)PN105:105:105:34,0::1110 I:NP11300:FS(CP)FS(CP)SC(CP)::H6:V9:100:"WELL DONE "NM$(0)"RN> TO CONTINUE PLAY":16368,0N(16384)1411180:16368,0:34,0:1240(16384)1951170:16368,0::H3:V10:100:"TYPE IN THE CHALLENGED WORD ";W$:J029:WD$(I,J)W$1215:J:H5:V12:100:"THAT'S NOT ONE OF "NS$(I)" WORDS":1235LW"WD$(I,J)(PD$,K3)\j100:WD$(I,J):VV1:J:J291145:KK1:V4:J1J15:J2J25:1120yH1:V10:100:"ANY OF THESE WORDS MAY NOW BE CHALLENGED":34,8:H7:V12:100:"PRESS TO CHALLENGE A WORD":H19:V13:100:"OR":H6:V14:100:"PRESS LW3M$"** WORDS MUST HAVE AT LEAST 3 LETTERS **":H1:140:780CNW(CP,LW3)5M$"** YOU HAVE 5 WORDS OF THAT LENGTH **":H2:140:780!HNWNW(CP,LW3):NW0865:J5(LW3)5( I025:WW(I)WA(I):I:V7:H9:100:"YOUR WORD:":W$"":385V9:H15:100:"CHECKING...":I1(W$):L$(W$,I,1):L(L$)65:WA(L)0M$"** THERE ARE NO "L$"'S IN THIS ROLL **":H3:140:780*WW(L)0M$"** YOUR WORD CONTAINS TOO MANY "L$"'S155:34,24:170[SC(CP)0:V7:115:V23:115:V3:H16:100:"LETTERS:":H7:GN5H1V5:100:I1NL:(RL$,I,1)" ";:I:V11:H17(NS$(CP))2:100:NS$(CP)" WORDS":V12:H16:100:"SCORE: ":NP1V23:H10:100:"SCORE TO BEAT: "SBBW0>:OS(2)11:OS(3)17:OS(4)24:OS(5)32:BN(0)0:BN(1)5:I26:BN(I)BN(I1)2:IdAD7:GN1:BP1750:V1:H1:100:"GAME NUMBER: "GN:V1:H26:100:"TIME LEFT: ":145:200:SB0:CP0NP1CL120V1:H37:100:CL:NP1İ185:34,24:170:735NM$(I1):VV2:H10:IMgI0NP1:(NM$(I),1)"S"NS$(I)NM$(I)"'":625clNS$(I)NM$(I)"'SNqI:PC$"********":PD$"########":GW$"AAAAAAAABBCCDDDDEEEEEEEEEEEEFFGGGHHIIIIIIIIIJKLLLLMMNNNNNNOOOOOOOOPPQRRRRRRSSSSTTTTTTUUUUVVWWXYYZ":OS(0)2:OS(1)64:100:"LET'S KEEP IT DOWN TO SIX PLAYERS.":105:VV2:H1:575NWD$(NP1,34):NW(NP1,6),NM$(NP1),NW$(NP1),TN$(NP1),FS(NP1),SC(NP1),TS(NP1),BN(6),OS(6),WA(25),WW(25):NL13::V3:H10:I1NP:100:"WHAT'S PLAYER #"(I)"'S NAME":H18:VV1:100:LE ARE PLAYING WORD WARS?";NP:NP1VV2:H10:100:"THAT'S NOT VERY MANY!":VV1:H7:100:"TRY AND ROUND UP SOME MORE!":VV2:H1:105:575@INP6VV2:H7:100:"I THINK I'D GET LOST TRYING":VV1:H6:100:"TO REMEMBER ALL THOSE WORDS...":VV1:HON":V15:H19:100:"BY":V16:H13:100:"BRUCE MUSCOLINO":105V21:H14:100:"INSTRUCTIONS":V23:H12:100:"PRESS OR ":16368,0+(16384)217565:16368,0:15005(16384)206555:16368,0::H1:V3?100:"HOW MANY PEOPE **":H7:140:34,0::1365%390cH2020(W$):100:" ":H:TITIAD:H20:100:W$"":390?:V5:H16:100:"WORD WARS":V9:H10:100:"ORIGINAL TRS-80 PROGRAM":V10:H19:100:"BY":V11:H13:100:"ROWLAND ARCHER":V14:H14:100:"APPLE VERSI8,0:490VA193A218AA128:A$(A):100:A$:16368,0:HH1:TITIAD:W$W$A$_390u(W$)0795:390H20390:(W$)1W$"":100:" ":HH1:100:390W$(W$,(W$)1):100:" ":HH1:100:390NP1M$"** ABANDONING THIS GAM)"":TS(I)0:VV1:I:.V7:H20:16368,0GTITI1:TI180İ120lCL0İ105:J150:135:J:1000100::" "::A(16384):A128TITIAD:390A141Ĺ16368,0:455A136Ĺ16368,0:465A155Ĺ16368,0:480A152Ĺ1636(RL$,NLI)|I0NP2:JI1NP1:TS(I)TS(J)285:TTS(I):T$TN$(I):TS(I)TS(J):TN$(I)TN$(J):TS(J)T:TN$(J)T$J:I:V5:H12:100:"NAME":H24:100:"SCORE":V7:I0NP1:H12:100:TN$(I):TS$(I)(TS(I)):H29(TS$(I)):100:TS(I):TN$(I0:WW(I)0:I:I1NL:M((GW$)(1)1):M(GW$)MM1z L$(GW$,M,1):L(L$)65:RL$RL$L$:WA(L)WA(L)1:L$"Q"QP1 I:QP0245:I(NL(1)1):I2I2 I12I12 L$(RL$,I,1):L(L$)65:WA(L)WA(L)1:WA(20)WA(20)1:RL$(RL$,I1)"U":V23:H8:100:"PRESS ";::"";::" WHEN READY":j H7:V23:100:"PRESS TO CONTINUEx 16368,0 (16384)141175:16368,0: V7:H8:100:"OK, "NM$(CP)" PRESS ";::"";:::7 QP0:L$"":RL$"":I025:WA(I):115:TI30 V7:H20(W$):3 BZ(S)(S):^ V9:100:M$:105:105:115:V7:115: H1:110:H5:110:H10:110:H16:110:H23:110:H31:110:H40:110:V21::H140:100:" ":H::; V7:H4:100:"IT'S "NS$(CP)" TURN...CLEAR THE AREA!"16384)255I(1):202 16368,0:S16336:500> dH:V:P iX1500:X:r nV1520:100::" ":V::: sH140:100:" ":H: xCLCL1:TI0:V1:H37:100:" ":100:CL:CL60V9:H10:I150:135:I:100:"--60 SECOND WARNING --":105bring up the line number with the time info." :"Re-type the line and change the number of seconds to the amount you desire." ::9:"PRESS RETURN TO CONTINUE.":678 :V12:H10:100:"PRESS ANY KEY TO START":16368,0 (16384)128('|2:" This is a 'timed game'. You can change the number of seconds for the game to run by changing line #705."::9:"PRESS RETURN TO CONTINUE.":678:- :"Press CTRL-RESET to get the basic prompt and then type LIST 705. This will                         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      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:1580 H TIME THRU LIST"!6 IN111B@ ZC(N%(I))ZC(N%(I1))2910hJ T%N%(I):N%(I)N%(I1):N%(I1)T%rT CC1y^ Ih 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( IZ2 m< MOVE AN ITEM{F :M$"RW"P "MOVE WHICH NAME ?"::34,3:Z 1040:JId 34,2::"BEFORE WHICH NAME ?"::34,3:n 1040:I1Ix 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):NERMINE 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$> 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"Q 1040^ JIN1p N%(J)N%(J1)v  NN1   EXIT ROUTINE D$;"MON C,I,O" :K0 *M$"Y"M$"RW"940 4KK1 >K2ė:"BACK UP DISC ?";B$:(BM$"RW"M$"Y" &N0570O 0"FILE NAME ?";F$:M$"RW":A1$F$" MAIL LIST"[ :NN1:p D DEFAULT VALUES} NA$(0)"" XA$(1)"" bA$(2)"MINNEAPOLIS" lST$"MN" vZC$"55417" IN 1980 N$(N,0)A$(0) N$(N,1)A$(1) N$(N,20 A$"D"İ700# A$"E"ī7804 A$"L"İ960F A$"M"İ2620X A$"N"İ2790j A$"O"İ2370| A$"P"İ1800 A$"R"ī1520 A$"S"İ1680 A$"X"İ2950 A$"W"İ1350 A$"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 (ALPHd MAILING LIST PROGRAM8n BY DAN LONN 12/26/81TxT%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              ^(4);"CATALOG"ih:" Type the word RUN plus the NAME of the program you want from the list above."DT:4$Y:13:"LABELMAKER-EPSON"H^:11:"LABELMAKER-IMAGEWRITER"h::"Type RUN or LOAD plus the name of the program you want from the list above and press RETURN."D." :@:" Press RETURN to continue.":678T:4ype in the info desired. Make note of format and use the same line numbers andstrings.",:"NOTE...Use strings F$ and G$ if more lines are needed."6::" LOCK YOUR FILES AFTER EDITING THEM "::@:" Press RETURN to continue.":67811::"IMAGEWRITER II PRINTER":: " To place your own label on file, LIST lines 2050,2090 and replace them with your own address. SAVE with the proper name."X"" To install the TEN MOST OFTEN USED LABELS, LIST lines 2380,2470 for titles.Tesses, use same procedure- LIST lines 2900,3590. SAVE THE PROGRAM!": :"NOTE...Use strings F$ and G$ if more lines are needed." ::" LOCK YOUR FILES AFTER EDITING THEM ":: :" Press RETURN to continue.":A$ :3# :3:th your own address. SAVE with the proper name." " To install the TEN MOST OFTEN USED LABELS, LIST lines 2640,2730 for titles.Type in the info desired. Make note of format using the same line numbers and strings."H " To install the addrONS ARE AVAILABLE FOR ADDING YOUR OWN LABEL AND ALSO FOR MAKING THE TEN MOST USED LABELS." :" Press RETURN to continue.":A$ ::3:12:"EPSON PRINTERS"::3 " To place your own label on file, LIST lines 2310,2350 and replace them withe programs, press":"CTRL-RESET and press RETURN."} "Then type RUN plus the name of the program and press RETURN." :" THESE LABEL PROGRAMS HAVE BEEN MODIFIEDFROM THE ORIGINALS SO THAT COMMAS AND COLONS MAY BE ENTERED."\ :" INSTRUCTI ( * GREETING PROGRAM *K10:"***********************"p<10::"* LABELMAKER PROGRAMS *"F10:"***********************"ZdD$(4)i:14:"LABELMAKER-EPSON"n:11:"LABELMAKER-IMAGEWRITER4 :"To access one of  87,12,16,1988,12,4,1989,12,23,1990,12,12.AD$"PR#1":290T D$"PR#1":550 H H92,4,19,1993,4,11,1994,4,3,1995,4,16,1996,4,7,1997,3,30,1998,4,12,1999,4,4,2000,4,23sI111:Y,M,D:YYR1250HD$(M,D,1)"| HANUKAH ":HD$(M,D,2)"| BEGINS "( 1980,12,3,1981,12,21,1982,12,11,1983,12,1,1984,12,19,1985,12,8,1986,12,27,192,2,10,"|COLUMBUS ","| DAY ",4,5,11,"|THANKGIV","| DAY "bI121:Y,M,D:YYR1210~HD$(M,D,2)"| EASTER "T1980,4,6,1981,4,19,1982,4,11,1983,4,3,1984,4,22,1985,4,7,1986,3,30,1987,4,19,1988,4,3,1989,3,26,1990,4,15,1991,3,31,190RR1:1130)tXX1:XCRR1:1140R~HD$(M,C(M,D,R),1),HD$(M,C(M,D,R),2)X3,2,2,"|WASHINGT.","|BIRTHDAY ",2,1,5,"|MOTHER'S ","| DAY ",3,7,5,"| ARMED ","|FORCES DY",3,1,6,"|FATHER'S ","| DAY ",1,2,9,"| LABOR ","| DAY "C ","|HALLOWEEN",11,11,"|VETERAN'S","| DAY ",12,25,"|CHRISTMAS"," DAY "b8R6:MN51110~BC(5,2,R)0RR1:1090LHD$(5,C(5,2,R),1)"|MEMORIAL ":HD$(5,C(5,2,R),2)"| DAY "VI17:C,D,M:MMNćA$,A$:1160`R1:X0jC(M,D,R)*I19:M,D:HD$(M,D,1),HD$(M,D,2):$ 1,1,"|NEW YEARS","| DAY ",2,12,"|LINCOLN'S","|BIRTHDAY ",2,14,"|VALENTINE","| DAY ",3,17,"|ST. PAT. ","| DAY ",6,14,"| FLAG ","| DAY "N.7,4,"|INDEPEND.","| DAY ",10,31,"| (YR100)LY0*YR400(YR400)LY1;LYMD(2)29A[F365YRDY31(MN1)jMN21000FF((YR1)4)(.75((YR1)100)1)1010FF(.4MN2.3)(YR4)(.75((YR100)1))DWF((1F)71)7:DW0DW7Y31820R960:1020>\:"This date falls on "DA$(DW)"."{fF1F:MN1:DY1:960:"It is day ";F1F1;" of the year."p900:YR" is "LY$(LY)"a leap year."z18::"PRESS ANY KEY";::A$:A$:MD(2)28:LY0YR4(YR4)LY1YR100960:D1FG14:"Second date (MM,DD,YYYY)";MN,DY,YR:MN1MN12720XYR1753720l DY1DY31720z960:D2F 16:(D1D2);" days between dates."*890412:"Date (MM,DD,YYYY) ";MN,DY,YR:MN1MN12820>YR1753820HDY1D0ĺ" ";:7006C(MNX,I,R)10);C(MNX,I,R);" ";XI:" ";:X::17);:R:D$"PR#0":::"Type RUN and press RETURN for another."12:"First date (MM,DD,YYYY) ";MN,DY,YR:MN1MN12720YR1753720DY1DY31720 J12:" ";:X17:HD$(MN,C(MN,X,R),J)""ĺ"| ";:630]lHD$(MN,C(MN,X,R),J);jv:"|":" ";:X171:"-";::R:17);MN$(MN1)" "MN$(MN1):17);H2$" "H2$17);:R16X112:I17:C(MNX,I,R);:I171:"=";:::" ";:I17:"| "DY$(I)" ";::"|":" ";:I171:"=";::t:R16:" ";:X17D"| ";:C(MN,X,R)0ĺ" ";:600NC(MN,X,R)10);C(MN,X,R);" ";XX:"|":X14:" ";:J17:"| ";::"|":CbYRY1:900IDW$MMN1MN1,R1;D1MD(M)JC(M,I,R)DcII1:I8I1:RR1jDqM~Hİ1050" Do you want a printout? (YES/NO)";A$A$"YES"A$"Y"1290!D$"PR#3"&26);YR;MN$(MN);YR::Y0" "or calendar (1-12) ";M1:M11M112380\14:"Year for calendar (YYYY) ";Y1:Y1175339016:"Do you want holidays to appear (Y/N) ";H$:H$"Y"H1:430H$"N"H0:430400MNM11:YRY1:MN0MN12:YRYR1 DY1:960:1020:MNM1:H1$:" "H2$" "H2$" "H2$:" "H1$" "H1$" "H1$YJ" ";:R16TX02:I17:C(MX,I,R)0ĺ" ";:360^C(MX,I,R)10);C(MX,I,R);" ";hI:SP$(X);:X::" ";:R:::::MmD$"PR#0"r705'|12:"Month fD M4"Do you want a printout? (YES/NO)";A$NA$"YES"A$"Y"1280^:D$"PR#3""36);"********":36);"* "YR" *":36);"********",::M11036" ";MN$(M);" ";MN$(M1);" ";MN$(M2)E@" "H1$" "H1$" ",380,720,820,170 :T " To make another calendar type RUN and press RETURN" 12:"Year for calendar (YYYY) ";YR:YR1753180 DY1:MN1:900:960:1020 IDW M112 R1 D1MD(M) C(M,I,R)D II1:I8I1:RR1"Tuesday",WED,"Wednesday",THR,"Thursday",FRI,"Friday",SAT,"Saturday" x:" THE CALENDAR PRINTER ":" BY: BILL FORTENBERRY ": "You may:":I15:I". "M$(I)::: 10:"Your selection (1-5) ";A$:A(A$):A1A5140 10:M$(A):: A180 JULY "," AUGUST "," SEPTEMBER "," OCTOBER "," NOVEMBER "," DECEMBER " dI013:MD(I)::31,31,28,31,30,31,30,31,31,30,31,30,31,31 D nI17:DY$(I),DA$(I):: SUN,"Sunday",MON,"Monday",TUE,":H2$" S M T W T F S"0 <D$(4):I$(9)d FI112:MN$(I)::MN$(0)MN$(12):MN$(13)MN$(1) P" JANUARY "," FEBRUARY "," MARCH "," APRIL "," MAY "," JUNE " Z" for one year.":M$(2)"Print calendar for one month.":M$(3)"Find number of days between dates.":M$(4)"Calculate information about a date.":M$(5)"Quit." SP$(0)" ":SP$(1)SP$(0):SP$(2)" " (LY$(0)"not ":LY$(1)"" 2H1$"====================V THE CALENDAR PRINTER7 BY: BILL FORTENBERRYJ 2/85e ==================== INCIDER JANUARY 1986 ==================== ::MN$(13),MD(13),DY$(7),DA$(7),C(13,7,6),LY$(1),SP$(8),HD$(12,31,2) M$(1)"Print calendar          UP ***6650:(15);:0@@ *** BORDER FOR INSTRUCTIONS ***WJ710: DRAW BORDERpT520: INSTRUCTIONS^870:GET INPUTh1410: HOW MANYLABELS r650:PRINTER ON |:1250: PRINT DOUBLE WIDE680: PRINTER OFF<:2280::"*710: DRAW INSTRUCTIONS BORDERB520: INSTRUCTIONS^870 GET INPUT r650:(15);:01410: HOW MANY LABELS ?650: PRINTER ON:1140:PRINT LABELS680: PRINTER OFF":1680, *** "YOUR LABEL" SETB$(14);C$"((14);*2E$6<(14);>FF$DPKZIRd0Xnzx *** HOW MANY LABELS ? ***14" HOW MANY LABELS?";XX0ī16 (4);"PR#";SLOT19:4.768,"";E$8144B" INPUT LINE #5 "AL20:820LV20:4[`768,"";F$ajotL13770z~I1XA$B$C$E$F$I *** DOUBLE WIDE ***I1X(14);A$(14); " INPUT LINE #1 "z16:820)16:48768,"";A$@14W" INPUT LINE #2 "d17:820o17:4~768,"";B$14" INPUT LINE #3 "18:82018:4768,"";C$L1ı14" INPUT LINE #4 "19:820$139:"%";:I:.I122:"%";:39:"%":I4>32,1I33,37S 34,2^35,22d * *** LINE LIMITER *** 45:I1S1:(95);:I>"]"HR \ *** INPUT LINES ***f14pORDERED.N7X" A RETURN WITH NO ENTRY WILL GIVE"Lb" A BLANK LINE"Wl34,13]vv *** PRINTER ON ***}1 *** PRINTER OFF ***0 *** BORDER FOR INSTRUCTIONS ***24:I139:"%";:I::1:I6:L1:S$(29):A39:B15:C20:3440QA1$"A"S136:1:(27);(112);:0:1490dA1$"Q"ī1740m350 *** INSTRUCTIONS ***3" PRINT WIDTH IS SET BY LINE LIMITER" FOR 3 1/2 INCH LABELS.&0" 5 LINES NORMAL OR 3 LINES B52:650:(27);(81);:0:1490LA1$"6"S128:650:(27);"P";:0:1490|A1$"7"S124:650:(27);(112);:0:1490A1$"8"İ1910A1$"9"ė:2050A1$"0"ė:2350A1$"A"S127:L1:S$(29):A31:B11:C16:3440#A1$"B"S13] - - - QUIT"8 T:23:15::"[ ].....MAKE A CHOICE":K ^23:16:A1$:d hA1$"1"S118:1610 rA1$"2"S126:650:(27);(110);:0:1490 |A1$"3"S136:650:(27);(69);:0:1490 A1$"4"S145:650:(27);"q";:0:1490A1$"5"S1 ] - - - PICA (PROP) 11 CPI"@ " [ 8 ] - - - BOLDFACE "e "" [ 9 ] - - - YOUR LABEL " ," [ 0 ] - - - 10 MOST USED LABELS " 6" [ A ] - - - SHORT BORDERED LABELS" @" [ B ] - - - LONG BORDERED LABEL" J" [ Q E WIDE 6 CPI"< " [ 2 ] - - - EXTENDED 9 CPI"i " [ 3 ] - - - ELITE 12 CPI" " [ 4 ] - - - CONDENSED 15 CPI" " [ 5 ] - - - ULTRA COND. 17 CPI" " [ 6 ] - - - ELITE (PROP) 14 CPI" " [ 7*"40)"*";; x"* *** DISK LABEL MAKER *** *";L "*"40)"*";a I140:"*";:Ig " IF SCREEN BLANKS OUT, CHECK PRINTER!" 16 E1:1910 8:12::"SELECT TYPE FACE": E$" " " [ 1 ] - - - DOUBL # 32,183,0,201,44,208,3,32,190,222,32,6,227,201,34,208s ( 11,32,129,222,169,59,32,192,222,32,61,219,32,227 - 223,32,108,221,133,133,132,134,32,44,213,200 2 32,233,227,76,154,218 <:::650:(18);:0 dI140:"*";:I n"x#! *** DISK LABEL MAKER *** @ *** FOR IMAGEWRITER ***] **********************z * REVISED BY V.BERG * * JULY 28, 1987 * **********************I047N:768I,NI: POKE ROUTINE INTO MEMORY;          z#    ҭΠ6ŠŠ)Ӡ̠Š6Ӡ̠ɠ% Ġ)ˠҠ ǠӠ Ǡ̠Ҡ ĠӠ) ήàҭҠ %Ϡ ΠҠ/!٠ҮήҠӠ ӠӠ Ҡ20?T$"/"FPBC:FP:FL);:TEMP$" ":P$(PARLINE)" ":5010Q(T$)85160m(T$",")(T$"z")5060FPBCFL5040T$;F$F$T$ FPBCĺFL);FPFP15040(FPBC50402FPBC1F$"":" ";:FPBC:5040<" "; 70"F(PARLINE,1):F(PARLINE,2).TEMP$;5 KPARLINEPARLINE1\PARLINE7ıf4020 SCREEN EDIT SIMULATORF$""ROWF(PARLINE,1):BCF(PARLINE,2):FLF(PARLINE,3)FPBCROW:FP GOSUB 5240T$:T$(13)521ĺ" Y ";:3270" " ";PFQ$;" ";L "| PRINCIPAL | INTEREST | AMOUNT"{ "---------------------------------------" 34,11: WINDOW  ** ENTRY ROUTINEPARLINE1TEMP$P$(PARLINE):5000F$""4050P$(PARLINE)F$:40ATE: ";:F1$"##":F2$"###":VANNT:29000:O1$;" %";>l 5:26Sv "DUR : ";P$(4);^ 6:26m "FREQ: "; PFQ$"M"ĺ"MONTHLY";:3250 PFQ$"Q"ĺ"QUARTERLY";:3250 "YEARLY"; 9:1 " | CUMUL. | CUMUL. | PAY-OFF" CNSBACK SCHEDULE"5 6:"============================";& E0 4:1}: "AMT : $";:F1$"#######":F2$"##":VA:29000:O1$D "BLN : $";:F1$"#######":F2$"##":VB:29000:O1$N "PMNT : $";:F1$"#######":F2$"##":VP:29000:O1$X 4:263b "R2$"##":V(P$(6)):29000:O1$;:P$(6)O1$/ 5 ^ 5:"LOAN ANALYZER -- SPECIFICATION" 5:"=============================="   8:"MORTGAGE PAYBACK SCHEDULE" 8:"========================="   6:"INSTALLMENT PAY##":V(P$(3)):29000:O1$;:" %";:P$(3)O1$; F(4,1):1u"(3) DURATION OF BORROWING: ";P$(4);:34:" YY,MM "; F(5,1):1*" PAYMENT FREQUENCY: ";P$(5);" (M,Q,Y)";4F(6,1):1)>"(4) PAYMENT PER PERIOD: $ ";:F1$"#######":F BORROW: $ ";:F1$"#######":F2$"##":V(P$(1)):29000:O1$;:P$(1)O1$Z F(2,1):1 " FINAL BALLOON PAYMENT: $ ";:F1$"#######":F2$"##":V(P$(2)):29000:O1$;:P$(2)O1$ F(3,1):1,"(2) ANNUAL INTEREST RATE: ";:F1$"##":F2$"#0 23:1:"TOO MANY PERIODS, ... HIT A KEY ";K T$:23:1:958:1070[ PFQ11310k N601310u CNS1 TYPE$"M"İ3040:1330 (3080 23120 <19000 F3000 P9060 Z2000 d1070 n F(1,1):1K "(1) AMOUNT TOT$"Q"ė:' GOODFALSEMISS01070@ 11000: CALCULATEJ 2000T CNS0 23:1:"DETAILED PAYBACK SCHEDULE (Y/N) ? "; T$ T$(((T$,1))(((T$,1))97)32) T$"Y"T$"N"1210 T$"N"Ė1:958:1070 NPFQ601280L **** 3000 9000$ 8000. 20008 4000B $7000M .22:9m 8" , , , OR ";u BT$ LT$(((T$,1))(((T$,1))97)32) VT$(13)T$"C"T$"R"T$"Q"1090 `1:958 jT$(13)1050 tT$"R"1010 ~(7),ER(7),TABLE(60,3),PTABLE(420,3)/ :34,0@  9,30,10R ( 11,30,10c 2 13,32,6u < 15,28,5 F 17,30,1 P 19,30,10 ZFALSE0:TRUE1 dI16:F(I,1),F(I,2),F(I,3):I n x30070 31000  *** MAIN CONTRO-":8:12:"A+ DISK MAGAZINE":10:16:"PRESENTS"[12:13::"LOAN ANALYZER":kI1500:I15:12:"BY ZYNCON CORP."17:6:"PROGRAMMED BY JASON WINSHELL"23:22:"(C)COPYRIGHT 1983" I14000:I# F(7,3),P$(7),PARSET              3 6 "***************************************"e"* Programs marked (C) are copyrighted.*""* Making copies is your decision *""***************************************"::13:"STATES & CAPS (C)" (13:"WORDFIND" M1):16380$?TSIZELM>$?TSIZE(TSIZE)TSIZE(TSIZE1)U$@TABLE(TSIZE,1)ABp$@TABLE(TSIZE,2)PNAB$@TABLE(TSIZE,3)B$$@PSIZEN$.@PSIZE(PSIZE)PSIZE(PSIZE1)$8@PTABLE(PSIZE,1)AB$B@PTABLE(PSIZE,2)PNAB%L@PTABLE(PSIZE,3)QLM16330 #?TABLE(JPFQ,1)CP6#?TABLE(JPFQ,2)CIL#?TABLE(JPFQ,3)POW#?16330i#?TABLE(J,1)CP{#?TABLE(J,2)CI#?TABLE(J,3)PO#?PTABLE(J,1)CP#?PTABLE(J,2)CI#?PTABLE(J,3)PO#?J#?CNS0TSIZEN:16380 $?LM(LM)TSIZE(L0*">LN0KI(NPAB)(N1J)T1:16140="?KI(NPAB)NI" ?KPPKIV"?CPCPKPc" ?CICIKIr"*?KPCN(KP)"4?KICN(KI)">?CPCN(CP)"H?CICN(CI)"R?POABCP"\?POCN(PO)"f?TYPE$"M"A1A1KP"p?CNS116300 #z?JPFQ(JPFQ)JPF5P$(5)PFQ$$!`,MISS6P$(6)(P)>!j,PARSET(MISS)1:MISS0D!t,_!> ** FILL IN TABLE **h!>CP0q!>CI0z!>A1A!>LMNPFQ!>T10!>TYPE$"M"16100!>T1N(N1)2!>LN0!>NT1(NPA)PLN1!>J1N">TYPE$"M"KIRA1:1614: CALC N +NCN(N)! +DURN> +DURDURPFQ:DURCN(DUR)I ,11310` ,30290: CALC Pm ,PCN(P) $, *** POST PROCESS CALCS ** ., *** POST PROCESS CALCS ** 8,MISS1P$(1)(A) B,MISS3P$(3)(ANNT) L,MISS4İ30000 !V,MISS+DURNPFQ: DUR = FN CN(DUR)5p+30480: CALC PBz+PCN(P)M+11310e+ *** MORTGAGE ***+MISS11170,11310,11200,11230,11310,11280+30160: CALC A+ACN(A)+11310+30190: NEWTON R+ANNT100RPFQ+11310 +302501:I140:(95);:Ix#4* *** CALCULATE ***I+TYPE$"M"11150w +MISS11030,11310,11060,11090,11310,11120+30350: CALC A +ACN(A)*+113104+30390: CALC R>+ANNT100RPFQH+11310R+30440: CALC N\+NCN(N)f00" B(#5:1:"INSTALLMENT LOAN OR MORTGAGE : (I/M)";:32\2#TYPE$:TYPE$""9010<#TYPE$(((TYPE$,1))(((TYPE$,1))97)32)F#(TYPE$"I")(TYPE$"M")9010P#TYPE$;d#5:1:958:"INSTALLMENT LOAN OR MORTGAGE : ";TYPE$;n#7:P$(4))1):7690)YY$(P$(4),1,CMPO1)BCMPO4MM$"":7690hMM$(P$(4),CMPO1,(P$(4))CMPO)n @ **** CLEAR PARAMETERSJP$(1)" 0.00"TP$(2)" 0.00"^P$(3)" 0.000"hP$(4)"00,00"rP$(5)"M"|P$(6)" 0.ISSING PARM **(MISS4NN(12PFQ);RANNTPFQ100PGOODTRUEİ2000Vv ** CHECK ON YY,MM FORMATCMPO0:I1(P$(4))(P$(4),I,1)","CMPOI:7640ICMPO0YY$P$(4):MM$"":7690CMPO1YY$"":MM$(P$(4),2,("1" I/TTER1ER(5)1GOODTRUE:7330:24:1E39);P24:1ZER$;g$ACN(A)x.DURCN(DUR)8PCN(P)BGOODFALSE7580LMISS0VI16`I27540jPARSET(I)0MISSI:7550tI~ ** MISS IS THE # OF MOK ":74208ER$"ERROR(S) IN PARAMETERS "CTTER0NI16`ER(I)07400pTTERTTER1I3ER$ER$"/""2":7400I4ER$ER$"/""3":7400I6ER$ER$"/""4":7400I5ER$ER$"/""FREQ":7400ER$ER$"/"1\PARSET(5)1%fNUMPARNUMPAR1ak(NPFQ12)(NPFQ12)(NPFQ12)ER(4)1:PARSET(4)0ppP(P$(6))zP0P1E7GOODFALSE:ER(6)1:7320PARSET(6)1NUMPARNUMPAR1NUMPAR4GOODFALSE:ER(7)1GOODTRUEER$"PARAMETERS GOODFALSE:ER(4)1:7200$300004 PARSET(4)1HNUMPARNUMPAR1W PFQ$P$(5)*PFQ$(((PFQ$,1))(((PFQ$,1))97)32)4PFQ$"M"PFQ$"Q"PFQ$"Y"GOODFALSE:ER(5)1:7280>PFQ$"M"PFQ12:7260HPFQ$"Q"PFQ4:7260RPFQ(2)):B0B1E7B0'ANNT(P$(3))XANNT0ANNT1E7GOODFALSE:ER(3)1:7130hPARSET(3)1|NUMPARNUMPAR17600(YY$)((YY$))(MM$)((MM$))GOODFALSE:ER(4)1:7200DUR(YY$)(MM$)12:N(YY$)12(MM$)DUR0FFPFP1PF$(F$,FPBC)&Z50400d" ";6nZX *** CHECK PARAMATERS ROUTINE|bI17:ER(I)0:PARSET(I)0:IlGOODTRUEvNUMPAR0A(P$(1))A0A1E7GOODFALSE:ER(1)1:7080PARSET(1)1NUMPARNUMPAR1B(P$v 4v FNIN(A,B,P,R)-4vN(AB)(PRA)34v:4v P4w FNIP(A,B,N,R)d4wP(ABRNA)Nj4w4y ** PRINTER INIT **4|y4y"DO YOU HAVE A PRINTER (Y/N) ?";4yT$4yT$(((T$,1))(((T$,1))97)32)4yT$"N"T$"Y"311305R(AB))1)(1R)3>v 3Hv 53Rv FNMP(A,B,N,R)[3\vP(AB)R(1R)N((1R)N1)RBa3fvh3pv 3zv ** CALCULATIONS FOR INSTALL 3v 3v FNIA(B,N,P,R)3vA(PNB)(1RN)3v3v 3v FNIR(A,B,N,P)3vR(PNBA)(NA)3v4LATIONS **2u (2u FNMA(B,N,P,R)h2uA(P(BR(1R)N)((1R)N1)RB)(R(1R)N((1R)N1))n2u2u *** NEWTON ROUTINE ***2uS1.12vF(S)0.1RS1:2 vSSF(S)G(S)2v302102 v 2*v FNMN(A,B,P,R)34vN(R(AB)(PRBMM$ 1lu81vu *** FUNCTION ROUTINES FOR CALCULATIONSU1uCN(X)(100X0.5)100p1u ** NEWTON FUNCTIONS1uF(S)AS(N1)(AP)SNBSBP1uG(S)A(N1)SN(AP)NS(N1)B1u: NO MORE TRUE FUNCTIONS1u 2u *** MORTAGE CALCU)O2$(F1$,(F2$)):29140;0qO2$F1$(F4$,(F2$)(F1$))K0qO2$"."O2$[0qO1$O1$O2$a0q00u *** CONVERT DUR BACK TO YY,MM0:uYY$((DUR))0DuMM$(((DUR(DUR))120.5))0Nu(YY$)2YY$"0"YY$0Xu(MM$)2MM$"0"MM$1buP$(4)YY$","((V)))(F1$)O1$((V)):29040K/fqO1$(F3$,(F1$)(((V))))((V))X/pqF1$(V)i/zqVI1(F1$)/q(F1$,VI,1)"."29100/qVI/qF2$""O2$"":29150/qF1$"0":29110/qF1$(F1$,(F1$)VI)/qF2$""O2$F1$:291500q(F1$)(F2$PTABLE(K,2):29000:O1$;2);"| ";V.bF1$"#######":F2$"##":VPTABLE(K,3):29000:O1$o.bK48(K48)25260~.bKN25400.b(12);::::20170.b .8cK.e.Hq ***** PRINT USING ####,####,VAL.RqF3$" ":F4$"000000000""/\q(a ** PRINTOUT DETAIL **6-aTYPE$"I"İ20000:25030A-a20025L-a20045W-a20170f- bK1PSIZE-b18);:F1$"####":F2$"":VK:29000:O1$;- b3);"| ";->bF1$"#######":F2$"##":VPTABLE(K,1):29000:O1$;2);"| ";!.fbF1$"#######":F2$"##":V. | CUMUL. | PAY-OFF "D,NPFQ$"Y"T$"YEAR ":20230g,NPFQ$"Q"T$"QUARTER ":20230y,NT$"MONTH ",O17);T$;,O"| PRINCIPAL | INTEREST | AMOUNT",O16);"----------------------------------------------------",$O-":VP:29000:O1$;3+fN12);"PAYMENT FREQUENCY: ";R+kNPFQ$"Y"ĺ"YEARLY":20090t+pNPFQ$"Q"ĺ"QUARTERLY":20090+uN"MONTHLY"+zNTYPE$"I"ĭLN1ĺ33);"(Linear Decline)":20100+N+N+N+N ** COLUMN HEADINGS **!,N22);" | CUMUL;"ANNUAL INTEREST RATE: ";:F1$"##":F2$"###":VANNT:29000:O1$;" %"*WN2);"FINAL BALLOON PAYMENT: $ ";:F1$"#######":F2$"##":VB:29000:O1$;*\N8);"DURATION OF BORROWING: ";:P$(4);" YY,MM"+aN5);"PAYMENT PER PERIOD: $ ";:F1$"#######":F2$"##================")4N::')9N(12);j)>N12);"L O A N A N A L Y Z E R -- MORTGAGE PAYBACK SCHEDULE")CN12);"======================================================")HN::)MN17);"AMOUNT: $ ";:F1$"#######":F2$"##":VA:29000:O1$;E*RN9):(13);(4);"PR# ";SN%:(9);"80N";:25000:(4);"PR# 0"D(,

, , ";&J24:28:T$&JT$(((T$,1))(((T$,1))97)32)'JT$"N"B%V@#%8J ** DETAIL REPORT ***.%BJ16000X%LJCNS1Ģ7:1:"ANNUAL CONSOLIDATION";%VJTYPE$"I"ĭLN1Ģ7:25:"(LINEAR DECLINE)";%`J:I1TSIZE%jJF1$"###":F2$"":VI:29000:O1$;"|";%tJF1$"#######":F2$"##":VTABLE(I,1):29000:O1$;" | ";(NP1),SC(NP1),TS(NP1),BN(6),OS(6),WA(25),WW(25):NL13::V3:H10:I1NP:100:"WHAT'S PLAYER #"(I)"'S NAME":H18:VV1:100:NM$(I1):VV2:H10:IgI0NP1:(NM$(I),1)"S"NS$(I)NM$(I)"'":625lNS$(I)NM$(I)"'SqI:PC$"********":PD$"2:H1:105:575INP6VV2:H7:100:"I THINK I'D GET LOST TRYING":VV1:H6:100:"TO REMEMBER ALL THOSE WORDS...":VV1:H4:100:"LET'S KEEP IT DOWN TO SIX PLAYERS.":105:VV2:H1:575NWD$(NP1,34):NW(NP1,6),NM$(NP1),NW$(NP1),TN$(NP1),FSR ":16368,08+(16384)217565:16368,0:1500P5(16384)206555h:16368,0::H1:V3?100:"HOW MANY PEOPLE ARE PLAYING WORD WARS?";NP:NP1VV2:H10:100:"THAT'S NOT VERY MANY!":VV1:H7:100:"TRY AND ROUND UP SOME MORE!":VVWARS":V9:H10:100:"ORIGINAL TRS-80 PROGRAM":V10:H19:100:"BY":V11:H13:100:"ROWLAND ARCHER":V14:H14:100:"APPLE VERSION":V15:H19:100:"BY":V16:H13:100:"BRUCE MUSCOLINO":105V21:H14:100:"INSTRUCTIONS":V23:H12:100:"PRESS O390:(W$)1W$"":100:" ":HH1:100:390\W$(W$,(W$)1):100:" ":HH1:100:390NP1M$"** ABANDONING THIS GAME **":H7:140:34,0::1365390H2020(W$):100:" ":H:TITIAD:H20:100:W$"":390:V5:H16:100:"WORD A(16384):A128TITIAD:390;A141Ĺ16368,0:455UA136Ĺ16368,0:465oA155Ĺ16368,0:480A152Ĺ16368,0:490A193A218AA128:A$(A):100:A$:16368,0:HH1:TITIAD:W$W$A$390(W$)0795:390-H20J:I:V5:H12:100:"NAME":H24:100:"SCORE":V7:I0NP1:H12:100:TN$(I):TS$(I)(TS(I)):H29(TS$(I)):100:TS(I):TN$(I)"":TS(I)0:VV1:I:V7:H20:16368,0TITI1:TI180İ120CL0İ105:J150:135:J:1000!100::" "::I:QP0245:I(NL(1)1):I2I23I12I12L$(RL$,I,1):L(L$)65:WA(L)WA(L)1:WA(20)WA(20)1:RL$(RL$,I1)"U"(RL$,NLI)I0NP2:JI1NP1:TS(I)TS(J)285:TTS(I):T$TN$(I):TS(I)TS(J):TN$(I)TN$(J):TS(J)T:TN$(J)T$(16384)141175:16368,0:\ V7:H8:100:"OK, "NM$(CP)" PRESS ";::"";::: QP0:L$"":RL$"":I025:WA(I)0:WW(I)0:I:I1NL:M((GW$)(1)1):M(GW$)MM1 L$(GW$,M,1):L(L$)65:RL$RL$L$:WA(L)WA(L)1:L$"Q"QP1$H16:110:H23:110:H31:110:H40:110:V21::H140:100:" ":H:: V7:H4:100:"IT'S "NS$(CP)" TURN...CLEAR THE AREA!":V23:H8:100:"PRESS ";::"";::" WHEN READY": H7:V23:100:"PRESS TO CONTINUE 16368,0 100:" ":H: xCLCL1:TI0:V1:H37:100:" ":100:CL:CL60V9:H10:I150:135:I:100:"--60 SECOND WARNING --":105:115:TI30 V7:H20(W$): BZ(S)(S): V9:100:M$:105:105:115:V7:115:G H1:110:H5:110:H10:110:ire."2 ::9:"PRESS RETURN TO CONTINUE."678k :V12:H10:100:"PRESS ANY KEY TO START":16368,0 (16384)128(16384)255I(1):20 16368,0:S16336:500 dH:V: iX1500:X: nV1520:100::" ":V::: sH140: ::9:"PRESS RETURN TO CONTINUE.":678: :"Press CTRL-RESET to get the basic prompt and then type LIST 105. This will bring up the line number with the time info." :"Re-type the line and change the number of seconds to the amount you des':"Press CTRL-RESET to get the basic prompt and then type LIST 105. This will bring up the line number with the time i nfo."2:" This is a 'timed game'. You can change the number of seconds for the game to run by changing line #105.".              yT$5yT$"N"SN%0:55y"SLOT NUMBER (1-6) ? ";=5yT$f5yT$(((T$,1))(((T$,1))97)32)5y(T$)1(T$)6311805yT$5ySN%(T$):I FRANKLIN" lU14000:UY x:5:12:"STATES & CAPITALS":6:12:"-----------------"o 9:12:"1. PLAY" 11:12:"2. INSTRUCTIONS" 13:12:"3. QUIT" 16:14:"CHOOSE ONE";:A$ (A$)49(A$)51160 (A$)3580 (A$)2İ1 25576%(4);"BLOAD FILLER"/(::5Zad -(C)COPYRIGHT 1984 BY REX W. FRANKLINe:8:12:"A+ DISK MAGAZINE"f10:16:"PRESENTS"g:12:11:" STATES & CAPITALS ":i14:11:"BY REX W. FRANKLIN" k23:18:"(C)1984 REX W.        RESS FOR CUMULATIVE SCORES":170"-:V3:H12:100:"CUMULATIVE SCORES":I0NP1:TS(I)FS(I):TN$(I)NM$(I):I:255:165:1355"<:V3:H6:100:"FINAL SCORING FOR TOURNAMENT":I0NP1:TS(I)FS(I):TN$(I)NM$(I):I:255:165:1370 #KGNGN1:1355;!H10:V13:100:"...AND THAT'S FINAL!":105:1365!:V3:H12:100:"SCORING FOR ROUND":I0NP1:FS(I)FS(I)SC(I):TS(I)SC(I):TN$(I)NM$(I):I:255:GN5V15:H5:100:"PRESS FOR FINAL SCORES":170:1340)"(GN5V15:H2:100:"POINTS":SC(I)SC(I)PN6 105:105:105:34,0::1110!I:NP11300:FS(CP)FS(CP)SC(CP)::H6:V9:100:"WELL DONE "NM$(0)"...":H6:V10:100:"YOU FINISHED WITH "SC(0)" POINTS":105:H4:V12:100:"YOUR TOTAL SCORE IS NOW "FS(CP)" POINTS":105:GN500:"TYPE IN THE CHALLENGED WORD ";W$:J029:WD$(I,J)W$1215:J:H5:V12:100:"THAT'S NOT ONE OF "NS$(I)" WORDS":1235 LW(W$):WD$(I,J)(PC$,LW):PNLW102(BN(LW3)5):H5:V12:100:"SORRY "NM$(I)"...":H8:V14:100:"...THAT'LL COST YOU "PN" PORDS MAY NOW BE CHALLENGED":34,8:H7:V12:100:"PRESS TO CHALLENGE A WORD":H19:V13:100:"OR":H6:V14:100:"PRESS TO CONTINUE PLAY":16368,0(16384)1411180:16368,0:34,0:1240z(16384)1951170:16368,0::H3:V10:1C(CP)  CPLI0NP1:`VV2:H17((NS$(I))2):100:NS$(I)" WORDS":K0:V4:J10:J24`JJ1J2:HOS(K):WD$(I,J)""WD$(I,J)(PD$,K3)j100:WD$(I,J):VV1:J:J291145:KK1:V4:J1J15:J2J25:1120yH1:V10:100:"ANY OF THESE WONUS TIME **":H4:140:M$"** ALL BONUS SCORES NOW DOUBLED **":H3:140:M$"** YOU GET 60 SECONDS OF EXTRA TIME **":H1:140:CLCL60:BW178034,2::CPNP1Ĺ34,0:1100CPCP1:155:CPCP1:145:SC(CP)SBSBSC(CP)CP:SC(CP)SBSBS$(CP,5(LW3)NW)W$:(W$)8W$(W$,8):LW8pSCLW10:HOS(LW3):V20NW:100:W$:V9:115:V7:115:BNBN(LW3)(NW1):SC(CP)BPBNBNBNSCSCBN:SC(CP)SC(CP)SC:V12:H23:100:" ":100:SC(CP)SC(CP)BPBW0M$"** YOU'RE IN DOUBLE B140:780TCNW(CP,LW3)5M$"** YOU HAVE 5 WORDS OF THAT LENGTH **":H2:140:780HNWNW(CP,LW3):NW0865:J5(LW3)5(LW3)NW1:WD$(CP,J)W$ĂJ:865\M$"** SORRY, YOU HAVE THAT WORD **":H5:140:780-aNWNW(CP,LW3):NW(CP,LW3)NW1:WD65:WA(L)0M$"** THERE ARE NO "L$"'S IN THIS ROLL **":H3:140:780*WW(L)0M$"** YOUR WORD CONTAINS TOO MANY "L$"'S **":H3:140:780/WW(L)WW(L)1:I:TI30:LW(W$):LW8LW8>LW3M$"** WORDS MUST HAVE AT LEAST 3 LETTERS **":H1:;:I:V11:H17(NS$(CP))2:100:NS$(CP)" WORDS":V12:H16:100:"SCORE: ":NP1V23:H10:100:"SCORE TO BEAT: "SB~BW0 I025:WW(I)WA(I):I:V7:H9:100:"YOUR WORD:":W$"":385HV9:H15:100:"CHECKING...":I1(W$):L$(W$,I,1):L(L$)NUMBER: "GN:V1:H26:100:"TIME LEFT: ":145:200:SB0:CP0NP1MCL120V1:H37:100:CL:NP1İ185:34,24:170:735155:34,24:170SC(CP)0:V7:115:V23:115:V3:H16:100:"LETTERS:":H7:GN5H1uV5:100:I1NL:(RL$,I,1)" "########":GW$"AAAAAAAABBCCDDDDEEEEEEEEEEEEFFGGGHHIIIIIIIIIJKLLLLMMNNNNNNOOOOOOOOPPQRRRRRRSSSSTTTTTTUUUUVVWWXYYZ":OS(0)2:OS(1)6:OS(2)11:OS(3)17:OS(4)24:OS(5)32:BN(0)0:BN(1)5:I26:BN(I)BN(I1)2:IAD7:GN1:BP1750B:V1:H1:100:"GAME 3871188159016"6.S$(44)"06901688158711861287189017"^8S$(45)"06841384158517851887188612"BS$(46)"079017871885188520881990199020"LS$(47)"049020901988198920"VS$(48)"0589208819852086218622"R`S$(49)"291947174716461345114505480751065103517928772877277527"NS$(38)"1183298229812880287928773176337433723575358533"S$(39)"09853375357337703972397339763880388240"S$(40)"06824080387638733972397845"S$(41)"06784572397039684071497949"S$(42)"047849714966496650"$S$(43)"0184228622862185208518851784158413"ZS$(33)"107423752575277727832684248425842282217522"~S$(34)"0586228422842484258526"S$(35)"048526842583268428"S$(36)"1186288428832677277728792880288128822983298428"S$(37)"1075277330733174337633773)"0870246825693073317330752775257423"ZS$(28)"09613772357433733169306634633462366137"S$(29)"0861376041644068407039753572356137"S$(30)"106451644061415942594659485849585061506351"S$(31)"06665066497149684064406451""S$(32)"107522822\S$(23)"135715601561166218000055145415541955205721572258246324"rfS$(24)"0864256825702400005715601561166218"pS$(25)"166324582458265727572957305932593461366137623663346431632963266425"zS$(26)"09642563266329643163346634693068256425"&S$(27048174822572257215520541954155514"V4S$(19)"09482248244929572957275826582457224822">S$(20)"1149295030513252375238613761365934593257294929"HS$(21)"09523852445345534659465942604161375238"RS$(22)"106351615058505849594859465346534854495453"B836234824482248173617"FS$(14)"0836233527382738305030492948243623"n S$(15)"06383038375237513250303830"S$(16)"1136373638413842424343464452445238523738373637" S$(17)"135453544953485346534552444644434342424138363836472947""*S$(18)"094711522172517261730183618361736133710"^S$(9)"1125172520242324262727352736233618301826172517"S$(10)"09272726363036363738373830382735272727"S$(11)"09294736473638363730362636254124442448"S$(12)"0537103613361748174710"S$(13)"0736173612214211020"jS$(5)"2018061809171117131714151715191421172219232423252025172217221522122010200920081906"S$(6)"101923192518301734223526362727242624231923"S$(7)"1124482444254126362235173416351537154014421443"#S$(8)"1419062008200920102212221031092207190618061104"FS$(1)"0806090811121215121713171118091806"S$(2)"12031806191020142115191517171417131512121208110609"S$(3)"1114431540153714351232102908270923102006190318" S$(4)"151020092308271029123214351537163517341830192519231718911890179015911394109107910689068807881087128612841383138116811780187719"vAM$(3)"4777217522742373247024702371227120701969206819691869166715661666176420652165246425632462216218631664166814621461136212601359145814571557145514571358125511521047104010375240534054446045604661476147585155535354535953615462536453625263516551665067507050715172517450"KlAM$(2)"5576527754785680588160825983588356815381527949784778458240853685358634853485338532843284308329842885308531863086288526862587248622892090209119921992277,00 0::22:10:"LOADING MAIN PROGRAM":G :(4);"RUN PLAY 5"Q D::f N* STATES DATA *s X* USA *_bAM$(1)"5511041007090709060704070706090611031603180319022102250327032904300332043405360940104214432047244826482747294732503353355436533850ı 540$ * PLOT HAWAII */ J03O XT65:XS2.5:YT15:YS2.5Z N50Jc 360j Js N50z N &1390 *7 +0,00,159:1,01,159:0,159279,159:0,158279,158:279,159279,0:278,159278,0:279,00,0:279,10,1:277,1592))+ rX((S$(N),3,2)):Y((S$(N),5,2))@ |XTXSX,YTYSYL I1ND| X((S$(N),I41,2)):Y((S$(N),I41,2)) X0ēXTXS((S$(N),4I3,2)),YTYS((S$(N),4I5,2)):430 XTXSX,YTYSY I XT40:XS2.5:YT0:YS2.5 N280 :( XT40:XS2.5:YT0:YS2.5W 22:4:"DRAWING MAP OF THE UNITED STATES"m 3:0,0:62454:0 "AM$(3),S$(53) ,590 61180 @N150 J * PLOTTING ROUTINE * TN49XT1:XS2.5:YT20:YS2.5 ^N50470 hND((S$(N),1,AVAILABLE."::"HOWEVER, YOU CAN DEMONSTRATE IT"::"WITHOUT A PRINTER.":3930T s :6:"PRINTER ON OR OFF?"| "SA$ ,SA$"ON"SA$"OFF"ĺ"ENTER 'ON' OR 'OFF' AND PRESS RETURN ":290 6 @A0:G0 J4 T"ARE THE WORDS FOR YOUR PUZZL FILE":7 "SO THAT YOU MAY RE-USE THE SAME WORDS":g "LATER ON, OR ADD TO YOUR SAVED LIST OF": "WORDS TO MAKE A LARGER WORD PUZZLE.": "(MAXIMUM WORDS PER PUZZLE = 50)" 3930N 4:"TO USE THIS PROGRAM YOU MUST HAVE A"::"PRINTER O PLEASE.":90 100J ::"THIS PROGRAM WILL CREATE WORD PUZZLES":z "FOR YOU WITH WORDS YOU HAVE ENTERED. YOU" "MAY SPECIFY HOW THE WORDS WILL BE PLACED" "IN THE PUZZLE. IF YOU WISH, YOU MAY": "KEEP THE WORDS YOU ENTER IN A DATANOMON I,O,C":::255:! 2ZM23F <B(35),C(35),R(35),W$(50),X$(50)R FY$(50) P::10:5:"S U P E R W O R D F I N D E R" Z16 d"DO YOU WANT INSTRUCTIONS ";:868 nB$ x(B$,1,1)"N"ė:270 (B$,1,1)"Y"160 23:"YES OR N'" CHRISTELLA ENTERPRISE ? W O R D F I N D g AUTHOR: L. BORRY, MECC AND OTHERS ASSOCIATED PROGRAMS AND FILES: FILES ARE USER DEFINEDUI$"ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789+-*/()$= ,. ]:'& ^#<> ? ;" (D$(4):D$;"           ݻ];wnwn];ݻݻ*U*UU*U**U*UժժժUUժժ,xxxxa`mb&sbI,ob+pbMobpbob0pb a{bobpb(` a`&$&PP&) mqb'jjjjf&)e''`@ @ 0`*U*U*U*UժժժժU*U*U*U*ժժժ3fLL3f̙̙"D"D"DD"ĈĈĈpbnbobNob a`ya``a```|a`}a`~a`zaaab{aa b`za```{aa``a`a`a`yaaba b`I-ib hb&-pbbpb1Ib) b)mbbbmbbbb-b b&`&sbI,ob)pbMobpbNobpb azbobpb` `E bqblbjbkb ` >bgb& J,hbI,hb` a& Ea&bsb >bgb&I,hb `lbȄ >bgb&I,hb ``H)fb$hbhmhbrb8~rb8irb8igb|bhbIibtbnb`mbpbnbob& amb& hb& ) I1ND$X((C$,6I3,3))9Y((C$,6I,3))SX256XLX256:XH1hX256XLX:XH00,XL:1,XH:2,Y:3,2:4,3224576I."212:16:"1 - PLAY"2<14:16:"2 - QUIT">F16:16^PA$:(A$)49(A$)501330oZ(A$)2580udnC$"18221059199058185034187031064015002012043137052095071113110118110127110132136132136138179134211127224127277146"xND((C$,1,2):1:14:"INSTRUCTIONS":2:13:"--------------"c"I WILL DRAW A STATE AND ASK YOU TO NAME IT.":"YOU WILL HAVE TWO TRIES. THEN I WILL TELL YOU THE STATE."(:"THEN I WILL ASK YOU ITS CAPITAL.YOU HAVETWO TRIES BEFORE I TELL YOU THE CAPITAL75858" * DRAW USA *YX((AM$(1),3,2)):Y((AM$(1),5,2)):XTXSX,YTYSYdI13|ND((AM$(I),1,2))J1NDX((AM$(I),4J1,2)):Y((AM$(I),4J1,2))XTXSX,YTYSYJI* INSTRUCTIONS *0 103530454065406550456025802600361046104630664116413641563166220632470277021611947"jS$(50)"1174637464756574667567756976697868796779667463"tS$(51)"0869627062726273637462736170616962"~S$(52)"0564606760665965596460"S$(53)"05585860586057595 H8M2H8H92420- H8H9H9123506 H81@$ 2420L. V8V81V8 H8H9nB V8M1V8V92420L V8V9V91D84V9(M1M21)2410V V81` 2420j O01t ~ HORIZONTALLY O00 M1P M2PB(0)1 V9((1)(M1.PICK DIRECTIONAL MODE)zA62A612200@A64(1).53170IA54lD8((1)(A5.00001)1):D9D8D82430,2620,2800,2970O002280D8D81D8A5D8D92210D8D9D912280D812210T3240H8H81(W$(T))(W$(T1))2060&Q$W$(T)7W$(T)W$(T1)EW$(T1)Q$M T1TT] T31s* PLACE THE WORDS}4A6A5>T1AHB(0)(W$(T)):XX1B(0):XY163:(W$(T),XX,1)(UI$,XY,1)B(XX)XY:2140RXY\XXfB(0)P2280p 40&l21:"DO YOU WANT A KEY";:868.vC$D(C$,1)"Y"K61h(C$,1)"N"(C$,1)"Y"1900:10:17::"WORKING":B1AX$(B)""BA(P,P) SORT W$ BY LENGTH OF WORD - LONGEST FIRSTT1A1T1T1AU WANT THE PUZZLE TO BE"::"(SHOULD BE SLIGHTLY LARGER THAN "LN", THE"::"NUMBER OF LETTERS IN YOUR LONGEST WORD)"::"ENTER A NUMBER 32 OR LESS?"D:"(20 IS THE MAXIMUM SIZE WITHOUT"::"A PRINTER.)";:868N3950:PZNXbP32P0PLN18(34);A;(34)"D$;"CLOSE ";B$(Z2:"PLEASE TYPE A HEADING FOR YOUR PUZZLE":bH$i7"DO YOU WANT THE WORDS PRINTED IN A LIST"::"AT THE END";:868Z1$&(Z1$,1,1)"Y"(Z1$,1,1)"N"1800012:"WHAT SIZE DO YO(W$(JK))LNLN(W$(JK))2^(37)21Ģ6:958::hJKErAJK1Ow4240d|D$;"APPEND ";B$xD$;"WRITE ";B$JKAO1AW$(JK)JKD$;"CLOSE ";B$D$;"OPEN ";B$D$;"WRITE ";B$A10ĺ(34);A;(32);(34):176070 :J"TYPE IN THE WORDS ONE PER LINE."::"TYPE 'END' TO STOP."R:[AOAjJKA150vW$(JK)"CV(37),(W$(JK))24Ģ23:"WORDS MUST BE 24 OR LESS LETTERS LONG.":CV:868:15606958@JW$(JK)"END"1650T:"YES OR NO PLEASE.":1350#n:/xJK1A;W$(JK)A](37)21AJKİ3930:eJKo3930u6:"DO YOU WISH TO ADD TO THE LIST"::"OF WORDS";:868C$(C$,1)"N"1770(C$,1)"Y"Ģ23:"YES OR NO PLEASE.":14;B$(A10ĺ(34);A;(32);(34):1300; (34);A;(34)GJK1AWW$(JK):JKk(D$;"CLOSE ";B$z2A601770<F6:"DO YOU WISH TO SEE A LISTING OF THE"::"WORDS IN THE FILE";:868PC$Z(C$,1)"N"1460d(C$,1)"Y"Ģ237)Q4(W$(JK))24Ģ23:"WORDS MUST BE 24 OR LESS LETTERS LONG.":CV:868:800[>958aHwRW$(JK)"END"890\(W$(JK))LNLN(W$(JK))f(37)21Ģ6:958:pJKzAJK14240G611330D$;"OPEN ";B$D$;"WRITE " SAVED IN";:868B$3(B$)31(B$)0750}23:"THE NAME OF THE FILE MUST BE 1 TO 30":"LETTERS LONG.";:1:710G61:"TYPE IN YOUR WORDS ONE PER LINE."::"TYPE 'END' TO STOP." ::LN0JK150 W$(JK)*CV(3(A5)640v600 A01330&j4:"DO YOU WANT THE LIST OF WORDS SAVED IN"::"A FILE";:868rC$(C$,1)"N"760(C$,1)"Y"Ģ23:"YES OR NO PLEASE.":66095810:"WHAT IS THE NAME OF THE FILE YOU WANT"::"THE WORDSIZONTALLY AND VERTICALLY":_D" 3)WORDS HORIZONTALLY, VERTICALLY AND"::" DIAGONALLY":N" 4)WORDS HORIZONTALLY, VERTICALLY,"::" DIAGONALLY AND IN INVERTED ORDER"::X20:"ENTER 1,2,3, OR 4?";:868b3950:A5ZN lA50A55A5B$D$;"READ ";B$A$.A(A$):LN0:JK1AFW$(JK)e(W$(JK))LNLN(W$(JK))mJKD$;"CLOSE ";B$216,0A61&:4:"WHAT FORMAT DO YOU WANT THE PUZZLE TO BE":0" 1)WORDS HORIZONTALLY"::" 2)WORDS HORE SAVED"::"IN A FILE";:868& ^B$= h(B$,1,1)"N"550U r(B$,1,1)"Y"330\ |9 "WHAT IS THE NAME OF THE FILE THE WORDS"::"ARE SAVED IN";:868 3940 N$ ((N$))ĺD$"CATALOG":390 B$N$:D$;"VERIFY"B$D$;"OPEN ";" ,JK1A,-,"EDIT INSTRUCTIONS:"O,4)"TYPE 'C' TO CHANGE WORD"v,4)"PRESS 'RETURN' FOR NO CHANGE","***********************************",&:,0 *****EDIT OPTIONS******,::,D:JK;". ";W$(JK),N"";R$;-XR$""R$"C WORDS ***** +:+@+(5):"PLEASE CHECK YOUR WORDS"U+" FOR ERRORS."+(12):7)"FOLLOW 'EDIT INSTRUCTIONS'"+7)"AT THE TOP OF YOUR SCREEN."+(20):"PRESS 'RETURN' TO SEE EACH WORD.";R$,R$""ĺ(7);"PLEASE PRESS 'RETURN'.E441603*6:"PLEASE ENTER A NUMBER 1 - 3":4120?*@ZE1ĬN*JZE34190*T:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"*^1023,9*h:(4);"RUN HELLO"*rSA$"OFF"ı*|(4);"PR#1":*(4);"PR#0":+ ***** CHECK AND EDIT)"Y"Ĭ)(A$,1,1)"N"4200K):"PLEASE ANSWER WITH YES OR NO":4050)"WOULD YOU LIKE TO:"::"1) RUN THIS PROGRAM AGAIN,"::"2) RUN A DIFFERENT PROGRAM, OR"):"3) END")13:"PLEASE ENTER 1, 2, OR 3 ";:868)"3950:ZEZN*,ZE0Z(ZM:868:CV1(CV23):ZN(ZN$):?(CV1:36,CH:868:V( END OF PROGRAM~(:"PRESS ANY KEY TO CONTINUE":SA$(::5((1023)1234100(5:"WOULD YOU LIKE TO RUN THIS PROGRAM"::"AGAIN - YES OR NO";:868(A$)(A$,1,1E BAR TO CONTINUE";:AB$::l'd18:"I CAN'T FIND ";N$;", TRY AGAIN.":3930:(4);"DELETE ";N$:216,0:330'nCH(36):CV(37)'x"";ZN$:(ZN$)(((ZN$)))3980'(ZN$)0ZN$"0"3990'ZM:"THAT IS NOT A NUMBER - TRY AGAIN";:4000:3960&CL2:WDLN1&&PN(WDLN)WDLN1,&;&PNĺ25);c&"HERE ARE THE ONES TO LOOK FOR:":q& T1T31&PN(T1)CL((T1)CL)ĺ40WD32);&Y$(T);WD(Y$(T)));&(TCL(TCL)ĺ&2T&<&F4230&P4010'Z24:"PRESS SPACP);I%`"THERE ARE ";T31;" WORDS HERE -":WD2P);"CAN YOU FIND THEM?"b%j(Z1$,1,1)"N"3900p%t SORT X$~%~T1T32%CT1T31%Y$(T)Y$(C)3770%Q$Y$(T)%Y$(T)Y$(C)%Y$(C)Q$%C%T%WD13:CL3 &(WDLN)(PN) "PUSH RETURN KEY.":AB$%$ :42100$ T136$ =$ TT$ (WD(H$))2);H$Z$ e$ T1Pt$ WD2P);$ C1P$A(T,C)03620$(UI$,A(T,C),1);" ";$3630$$(UI$,((1)261),1);" ";$.C$8$BT$L%V::WD2 # C1P# A(T,C)033908#* (UI$,A(T,C),1);" ";B#4 3400M#> ". ";T#H CZ#R a#\ Ti#f :s#p 4230#z SA$"OFF"3490# "IF YOU WISH, YOU MAY NOW INSERT A DITTO"# "MASTER AT THIS TIME. WHEN READY TO"# "PRINT THE PUZZLE, ";$2)"v Q0B(T9)&" B(T9)B(B(0)T91):" B(B(0)T91)Q0B" T9L" 2200Z" PRINTERl" PN(SA$"ON")" WD40:PNWD80" K613460" 4210" PNĺ:33);"PUZZLE KEY FOR"::40(H$)2);H$" T13" " T" T1P# WD2P); T90B(0)1?! A(V8T9,H8T9)0A(V8T9,H8T9)B(T91)3100I! 2300X! O013160h! V813030w! V8M1M21! 3030! T9!& Y$(T3)W$(T)!0 T3T31!: T90B(0)1!D A(V8T9,H8T9)B(T91)!N T9!X !b REVERSE"l T91(B(0)0 @ O012960 J 2850" T T93 ^ Y$(T3)W$(T)? h T3T31P r T90B(0)1k | A(V8T9,H8T9)B(T91)s T9y DIAGONALLY2 O00 M2PB(0)1 M1P H8((1)(M2.000001)1):H9H8 V8((1)(M2.00001)(M1M21)):V9V8 !1 T9V8V8B(0)1. A(T9,H8)B(T9V81)6 T9< O DIAGONALLY 1X O00n M1PB(0)1:M2M1 V9((1)(M1.00001)1):V8V9 H9((1)(M2.00001)1):H8H9" T90B(0)1, A(V8T9,H8T9)0B(T91)A(V8T9,H8T9)2900 6 230 < VERTICALLYF O00,P M1PB(0)15Z M2PXd V9((1)(M1.00001)1):V8V9{n H9((1)(M2.00001)1):H8H9x T9V8V8B(0)1 A(T9,H8)0A(T9,H8)B(T9V81)2730 2300 O012790 2680 T9 Y$(T3)W$(T) T3T300001)1):V8V92 H8((1)(M2.00001)1):H9H8G T9H8H8B(0)1p A(V8,T9)0A(V8,T9)B(T9H81)2540z 2300 O012610 2490 T9 Y$(T3)W$(T) T3T31 PLACE IT T9H8H8B(0)1 A(V8,T9)B(T9H81)( T92 1 ] - - - ELECTRIC CO."?V " [ 2 ] - - - EAST OHIO GAS"f` " [ 3 ] - - - SANITARY ENG."j " [ 4 ] - - - LEADER MORTGAGE"t " [ 5 ] - - - XXXX LABEL"~ " [ 6 ] - - - XXXX LABEL" " [ 7 ] - - - XXXX LABEL" THE ENTIRE WORD. IF YOU ARE":"PLAYING ALONE, YOU CAN GET A NEW ROLL":"BY PRESSING ":165::14)"INSTRUCTIONS"::"YOU MAY FIND IT FUN AT PARTIES TO LET":"TWO OR THREE PLAYERS WORK TOGETHER AS An/{"TEAM. AT ANY RATE...":V7:H16:100::"HAVEVALID, YOU ARE PENALIZED AT THE-5"HIGHEST POSSIBLE SCORE FOR A WORD OF":"THAT SIZE. THAT IS, THE BASE SCORE":"PLUS THE HIGHEST POSSIBLE DOUBLE BONUS."::"WHEN ENTERING A WORD, BACK-ARROW WILL":"ERASE THE LAST LETTER WHILE .N"WILL ERASEYOU GET MORE THAN 1750":"POINTS IN A GAME, YOU GO INTO DOUBLE-"BONUS MODE. THE BONUS FOR EACH":"ADDITIONAL WORD YOU MAKE IS DOUBLED.":"YOU ALSO RECEIVE ANOTHER 60 SECONDS OF":"PLAYING TIME."::"IF ANY OF YOUR WORDS ARE CHALLENGED AND":"FOUND INWORD. IN ADDITION, A":"BONUS RANGING FROM 0 TO 800 POINTS IS":"ADDED TO THE SCORE OF EACH WORD. THE>,"MORE LETTERS IN A WORD, AND THE MORE":"WORDS OF THAT LENGTH WHICH YOU HAVE,":"THE HIGHER THE BONUS.":165::14)"INSTRUCTIONS"::"FINALLY, IF R":"SOME OTHER MEANS OF ARBITRATION."::"ALL PLAYERS ARE THEN RANKED ACCORDING":"TO THEIR SCORE FOR THIS GAME AND THEIR":"TOTAL SCORE SO FAR.":g+"A WORD ON SCORING. THE BASIC SCORE FOR":"A WORD IS 10 POINTS TIMES THE NUMBER OF":"LETTERS IN THE T":"WATCH THE SCREEN WHILE OTHERS ARE":"MAKING THEIR WORDS.":165::14)"INSTRUCTIONS"::"AFTER EACH PLAYER HAS HAD A TURN,":"EVERYONE'S WORDS ARE DISPLAYED IN TURN*"FOR POSSIBLE CHALLENGES FROM THE OTHER":"PLAYERS. YOU WILL NEED A DICTIONARY OTERS. IN THE LAST GAME OF THE":"TOURNAMENT YOU WILL HAVE 20 LETTERS TO":"WORK WITH."::"IF THERE IS MORE THAN ONE PLAYER, EACH":"GETS A THREE MINUTE TURN WITH THE SAME":"SET OF LETTERS. NATURALLY, THOSE WHO)"HAVEN'T HAD THEIR TURN YET SHOULD NOTRUCTIONS":'E"NO PROPER NOUNS ARE ALLOWED, BUT":"CONTRACTIONS, PLURALS, AND ALL PREFIXES":"AND SUFFIXES ARE FINE."::"A GROUP OF FIVE GAMES IS CALLED A":"TOURNAMENT. IN THE FIRST FOUR GAMES,":"YOU MUST MAKE YOUR WORDS FROM A ROLL OF(c"13 LETYING":"AGAINST THE CLOCK AND EACH OTHER.": '"YOUR WORDS MUST CONTAIN AT LEAST THREE":"LETTERS. THEY ARE GROUPED ON THE":"SCREEN ACCORDING TO LENGTH. YOU CAN":"MAKE UP TO FIVE WORDS OF EACH LENGTH":"FROM THREE TO EIGHT LETTERS.":165::14)"INSRS DISPLAYED ON THE SCREEN, WHILE":"WORKING AGAINST A TIME LIMIT OF ABOUT":"THREE MINUTES.":,&"WORD WARS MAY BE PLAYED BY A SINGLE":"PLAYER, COMPETING AGAINST THE CLOCK,":"AND TRYING TO GET THE HIGHEST POSSIBLE":"SCORE, OR BY UP TO SIX PEOPLE PLANG - HOPE YOU HAD FUN!":105:105::I$nI0NP1:FS(I)0:I:NL13:GN1$sI0NP1:J034:WD$(I,J)"":J:K06:NW(I,K)0:K:I:700_%:14)"INSTRUCTIONS"::"THE OBJECT OF WORD WARS IS TO MAKE AS":"MANY WORDS AS YOU CAN FROM A GROUP OF":"LETTEGN5NL20#P165:1395#UV15:H1:100:"PRESS FOR ANOTHER TOURNAMENT":V16:H12:100:"PRESS TO QUIT":16368,0#Z(16384)1411380:16368,0:34,0::1390%$d(16384)2091370:16368,0:34,0::V12:H1:100:"THANKS FOR PLAYI9 = CHRISTELLA ENTERPRISE = X/: = 22513 NORCREST DRIVE = /; = SCS,MICHIGAN 48080 = /< ========================= SE" .R$G.R$"1"R$"2"ĺ:(7);"PLEASE TYPE '1' OR '2'.":4520X.R$"1"4330^.{.:10)"PROCESSING FILE".. ***CHANGE WORD****.:. "TYPE CORRECT WORD: ";W$(JK)..  .8 ========================= */"ĺ(7);"ENTRY ERROR.":"TYPE 'C' OR PRESS 'RETURN'.":4430M-bR$"C"İ4600U-lJK[-v-(5):"YOU HAVE CHECKED ALL THE WORDS."-(12):"CHOOSE ONE OF THE FOLLOWING:"-:8);"1 = REVIEW AND/OR EDIT WORDS".:8);"2 = RECORD WORDS IN FIL" [ 8 ] - - - XXXX LABEL"C " [ 9 ] - - - XXXX LABEL"g " [10 ] - - - XXXX LABEL" :" [ESC] - " 21:" [ ] ..... YOUR CHOICE" (9):(21):A3$: A3$"1"İ2650::2130  A3$"2"İ273 FUN":::V9:H6:100:"AND IMPROVE YOUR VOCABULARY!":H7:V23:100:"PRESS TO BEGIN PLAY":16368,0/(16384)1411935:16368,0::570LE A CALENDAR OF THIS YEAR?";:ANS$3ANS$"Y"90@:4:12"THANK YOU FOR RUNNING 'CALENDAR'"::"For another calendar, type RUN and press RETURN.": ZSDAY":1350$A$"WEDNESDAY":1350<(A$"THURSDAY":1350R2A$"FRIDAY":1350d<A$"SATURDAY"F:YEAR;" BEGINS ON A ";A$PX2YEAR4ZIX(YEAR4)dX2IXĺ"IT IS A LEAP YEAR":Y$"Y":1400n"IT IS NOT A LEAP YEAR""x"WOULD YOU LIK0:L1 ~&DAYDAY1:DAY0DAY7,?LL1:L0L4ESDAY7:L3iX1983YEAR11s1160L1İ116011801270DAY1280,1290,1300,1310,1320,1330,1340A$"SUNDAY":1350 A$"MONDAY":1350 A$"TUE)50ė:12:12::"COMPUTING":5YEAR198301020KYEAR198301200UDAY7_1270mDAY7:L2X1983YEAR11090L5İ1090$1140.81270BDAYDAY1LDAY81120V1130`DAY1jtLL1:L4İ109";:Z$:x:12:"ENTER THE DESIRED CALENDAR YEAR":"(1901-2099):";YR$:YEAR((YR$)):YEAR1901YEAR2099ĺ(7):94021:1:958:21:" TURN ON THE PRINTER AND PRESS WHEN READY...";A$:A$(13)960(1983YEAR>T5)NAME$(B);#HRT33T5TV3RRT2)"*";H\T6)NAME$(B1);XfRT33T6T2hpRT2)"*";nzt|:10:5:" QUICK CALENDAR BY DON MAXWELL"::" ** COPYRIGHT 1986 BY MICROSPARC, INC **"21:7:"PRESS TO CONTINUE7);:A165:"*";:  - B1122@ BIİ800:700G BM ` 7);:"*"3);k D12w D117 D$(D1)3);  "*"3)    TV(NAME$(B)):T2(NAME$(B1)) *T5((33TV)2):T6((33T2)2)47)"*";,X)9SPV2:540 SPV35 SPV)MTH(I1,WEEK,X);; &G 03)"*"Q :WEEKW D` N640p X(4)"PR#0"} b:12:9 l"QUICK CALENDAR COMPLETE": n:"For another calendar, type RUN and press RETURN.": v-----SUB ROUTINE----- I1122 640:670:710+ WEEK165 7);? "*";J X17m MTH(I,WEEK,X)0ĺ3)" ";:480w SPV3 MTH(I,WEEK,X)9SPV2 SPV)MTH(I,WEEK,X);  3)"*"; X17 MTH(I1,WEEK,X)0ĺ3)" ";:550 MTH(I1,WEEK . 31,28,31,30,31,30,31,31,30,31,30,31B Y$"Y"M(2)29M WEEK1Y I112i NOM1M(I) "MTH(I,WEEK,DAY)NOM ,DAYDAY1 6DAY7DAY1:WEEKWEEK1 @ JWEEK1:SPV3 T ^: h(4)"PR#1":(9)"80N" r:38)YEAR |12:12::"COMPUTING"> xMTH(12,6,7),NAME$(12),M(12),D$(7)I X17T D$(X)Z m S,M,T,W,T,F,Sy X112 NAME$(X) JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER X112 M(X)  **********************; * QUICK.CALENDAR *X * BY DON MAXWELL *u( * COPYRIGHT (C) 1986 *2 * BY MICROSPARC, INC *< * CONCORD, MA 01742 *F **********************G NIBBLE FEBRUARY 1986P910Zd n     % <13:"LOAN ANALYZER (C)"? F13:"QUICK CALENDAR"Y P13:"YR.MON.CALENDAR~ 13:"WORD WARS (C)" 13:"LOAN.CALC" :1 "Type RUN plus the name of the program from the list above and press RETURN. Don't include ,"|VETERAN'S","| DAY ",12,25,"|CHRISTMAS"," DAY "M8R6:MN51110iBC(5,2,R)0RR1:1090LHD$(5,C(5,2,R),1)"|MEMORIAL ":HD$(5,C(5,2,R),2)"| DAY "VI17:C,D,M:MMNćA$,A$:1160`R1:X0jC(M,D,R)0RR1:1130tX$(M,D,1),HD$(M,D,2):$ 1,1,"|NEW YEARS","| DAY ",2,12,"|LINCOLN'S","|BIRTHDAY ",2,14,"|VALENTINE","| DAY ",3,17,"|ST. PAT. ","| DAY ",6,14,"| FLAG ","| DAY "9.7,4,"|INDEPEND.","| DAY ",10,31,"| ","|HALLOWEEN",11,11+ A4$"0"ī3880B+BR1B:BR$;:BR:Z$;:BR1B:BR$;:BR::L+3890f+(BR1A:BR$;:BR::q+2L1:Iw+< CP/M "*A4$"0"3760)*::14904*I1XF*V$"Y"ī3800d*BR1A:BR$;:BR::3810*BR1B:BR$;:BR:V2$;:V1$;:BR1B:BR$;:BR:*LL1:L2L$A$*L3L$B$*L4L$C$*BR$;:(C((L$)2)):L$;:A:BR$:L43810CP/M ":/)`(9):"[ 0 ] - - SOLID BORDER ":})j(20):(9):"[ ] ..... YOUR CHOICE";:(11):A4$::A4$"0"A4$"5"3690)tA4$"1"Z$" DOS 3.2")~A4$"2"Z$" DOS 3.3")A4$"3"Z$" COBOL ")A4$"4"Z$" PASCAL " *A4$"5"Z$" (3490h($:710:(3):" WHAT WOULD YOU LIKE IMPRINTED IN THE BOTTOM PORTION OF THE BORDER?":(.(9):"[ 1 ] - - DOS 3.2":(8(9):"[ 2 ] - - DOS 3.3":(B(9):"[ 3 ] - - COBOL ":(L(9):"[ 4 ] - - PASCAL ":)V(9):"[ 5 ] - - [ ] ..... YOUR CHOICE";4' (14):V$:E' V$"N"3620' V$"Y"ė:(10):" ENTER YOUR VOLUME NUMBER (###) (MUST BE 3 DIGETS LONG) [ ] ";:3570' 3490' (30):"";V1$' V2$" VOL. "'(V1$)33490((V1$)3ī3620 [ ] DEFAULT = * "<& (13):(21):"";BR$:BR$""BR$"*"P& (BR$)23440& :(10):" WOULD YOU LIKE A VOLUME NUMBER IN THE TOP LINE OF THE BORDER ?"::& " [ Y ] - - - YES ":& " [ N ] - - - NO ":$' "(3):(5):"**************************** * * * BORDERED LABELS * * * ****************************"& (12):" WHAT CHARACTER DO YOU WANT TO USE FOR THE BORDER? 3460"$ B$""$ C$""$$ E$"".$ F$""4$ L$ *** LABEL #10 ***S$ k$* A$"GOTO LINE 3530"u$4 B$""$> C$""$H E$""$R F$""$\ $f ::: LABEL BORDER ::: $p 710%z 34,10:L #7 *** #& *#0 A$"GOTO LINE 3320"4#: B$"">#D C$""H#N E$""_#X *** LABEL #9 ***e#b k#l #v *** LABEL #8 *** # # A$"GOTO LINE 3390"# B$""# C$""# E$""# F$""# # *** LABEL #9 ***# $ A$"GOTO LINE 44101""^ E$"""h F$""""r 9"| *** LABEL #5 ***?" W" A$"GOTO LINE 3180"a" B$""k" C$""u" E$""" F$""" " *** LABEL #6 *** " " A$"GOTO LINE 3250"" B$""" C$""" E$""" F$""" # *** LABE! E$""! F$""! /! *** LABEL #3 ***5! M! A$"GOTO LINE 3040"f! B$"105 MAIN STREET"! C$"PAINESVILLE OHIO 44077"! E$""!" F$""!, !6 *** LABEL #4 ***!@ A$"GOTO LINE 3040"!J B$"P.O. BOX 5241""T C$"CLEVELAND OHIO *** LABEL #1 *** P ; Z A$"CLEVELAND ELECT. ILL. CO."U d B$"55 PUBLIC SQUARE"u n C$"CLEVELAND OHIO 44178" x E$"" F$"" *** LABEL #2 *** A$"EAST OHIO GAS CO." B$"P.O. BOX 6862" C$"CLEVELAND OHIO 44184"0::2130$ A3$"3"İ2810::2130? A3$"4"İ2880::2130Z A3$"5"İ2960::2130u A3$"6"İ3040::2130 A3$"7"İ3120::2130 A3$"8"İ3210::2130 A3$"9"İ3290::2130( A3$"10"İ3370::2 A3$(27)ī16< 2500 F AY FIND IT FUN AT PARTIES TO LET":"TWO OR THREE PLAYERS WORK TOGETHER AS A.{"TEAM. AT ANY RATE...":V7:H16:100::"HAVE FUN":::V9:H6:100:"AND IMPROVE YOUR VOCABULARY!":H7:V23:100:"PRESS TO BEGIN PLAY":16368,0/(16384)14 ? ::: STANDARD PRINT ::: ML13930XI1X`A$hB$pC$xE$F$ I <( ::: DOUBLE WIDE ::: 14" INPUT LINE #3 ")18:870418:4C$768,"";C$N.L1ıV814mB" INPUT LINE #4 "zL19:870V19:4`768,"";E$j14t" INPUT LINE #5 "~20:87020:4768,"";F$ :I p"]"z@ q ::: INPUT LINES ::: y14" INPUT LINE #1 "16:87016:4768,"";A$14" INPUT LINE #2 "17:87017:4768,"";B$724:I139:"%";:I::1:I139:"%";:I:U I122:"%";:39:"%":I[e 32,1p*33,37z434,2>35,22HR \ ::: LINE LIMITER ::: f5:I1S1:(95); 1%V  ::: PRINTER OFF ::: 0  ::: BORDER ::: MAL OR 3 LINES BORDERED.DCN" DO NOT USE COMMAS OR COLONS."IXrb" A RETURN WITH NO ENTRY WILL GIVE"l" A BLANK LINE"v34,13  ::: PRINTER ON :::34:B12:C18:D23:3600,A1$(27)ī20105390n  ::: INSTRUCTIONS ::: 3" PRINT WIDTH IS SET BY LINE LIMITER&" FOR 3 1/2 INCH LABELS.0:" 5 LINES NOR0:1780!A1$"3"S115:1820NA1$"4"S126:670:(27);"F";:0:1930gA1$"5"S130:1970zA1$"6"İ2190A1$"7"ė:2310A1$"8"ė:2610A1$"9"S123:L1:S$(29):A28:B9:C15:D20:3600A1$"0"S129:L1:S$(29):AELS"2h" [ 9 ] - - - SHORTENED DISK LABEL"`m" [ 0 ] - - - FULL SIZE DISK LABEL"r:" [ESC] - - - < END >"|23:" [ ] ..... YOUR CHOICE"(9):(23):A1$:A1$"1"S130:1650A1$"2"S153:670:(27);"F";:132 CPL"5 ," [ 3 ] - - - DOUBLE WIDE 40 CPL"b 6" [ 4 ] - - - COMPRESSED 66 CPL" @" [ 5 ] - - - STANDARD / ROM PLUS" J" [ 6 ] - - - EMPHASIZE " T" [ 7 ] - - - YOUR LABEL"^" [ 8 ] - - - 10 MOST USED LAB*"; "*"40)"*";) I140:"*";:IF 6:14:": S. P. TULK :"h 12:13::"TURN PRINTER ON "n x 150 E1:2190 (8) (4):"SELECT FROM:"  " [ 1 ] - - - STANDARD 80 CPL" "" [ 2 ] - - - COMPRESSED ::: MENU ::: :::670:(18);:0 I140:"*";:I "*"40)"*"; "* *** MX-80 LABEL MAKER *** REVISED JUNE 81 SPT ** PUBLIC DOMAIN ** ,76,154,218V d WRITTEN BY: nS.P. TULK N8AGV MADISON, OHIO MARCH 1981 x `4  I047N:768I,N?I: POKE ROUTINE INTO MEMORY|R 32,183,0,201,44,208,3,32,190,222,32,6,227,201,34,208T 11,32,129,222,169,59,32,192,222,32,61,219,32,227V 223,32,108,221,133,133,132,134,32,44,213,200 X 32,233,22711935:16368,0::570A- EAST OHIO GAS"7&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:1680I$ A2$"2"ė:(27);"F";:0:670:(15);:0::2530:1680d$ 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$$ %( T FROM:"#j ::#t " [ 1 ] - - - STANDARD 80 CPL"d#~ " [ 2 ] - - - COMPRESSED 132 CPL"# " [ 3 ] - - - DOUBLE WIDE 40 CPL"# " [ 4 ] - - - COMPRESSED 66 CPL"# 20:" [ ] ..... YOUR CHOICE"# 6:(20):A2$: $ A2$"1"RLOO, IOWA 50701""$ E$" ",". F$" "6"8 2380"B ::: PRINT CHOICE ::: "L 750"V 2530#` :" SELEC ::: YOUR LABEL ::: ! A$"MARCIA K. SMITH"! B$"187 WOODSTOCK ROAD"" C$"WATE E0ī2220 E1ī2260$ ? 670:16:(27)"E";:0Q 15:30:868x 15:(1):"ESC ":15:36::"ON": E1: 670:16:(27)"F";:0 15:30:868 15:35::"OFF";: E0:! *">108H"********************"@R24Q\I11000:IbfI115::Ihpz ::: SETUP EMPHASIZE ::: q ::: END ::: z:0:1110"********************"10 "* *"10 "* GOOD BYE *"*104"* A ::: 66 CPL SETUP ::: U670:(15);:0_1820  ::: ROMPLUS SETUP ::: 1570: ROMPLUS ON1660? USTIONS0920:GET INPUT0:1500:HOW MANY?FD670:PRINTER ON _N:1330:PRINT LARGEvX710: PRINTER OFFb:2540::" MORE OF THE SAME LABEL ";:X$:X$"Y"X$"YES"ė:1850l150: GOTO MENUv R ::: 132 CPL SETUP ::: f670:(15);:0p1650  ::: 40 CPL SETUP ::: 750: DRAW BORDER&530: INSTRINPUT1500: HOW MANY?1670: PRINTER ONK:1210:PRINT LABELSb710: PRINTER OFF:2540::" MORE OF THE SAME LABEL ";:X$:X$"Y"X$"YES"ė:1680X$"N"X$"NO"ī17501720150: GOTO MENU : THERE IS A SHIFT/CTRL/M IN QUOTES96(4);"PR#";SLOT?@LJM$;"1A"XTS130:^ h ::: 80 CPL SETUP ::: r750: DRAW BORDER|530: INSTRUCTIONS920: GET  ::: HOW MANY ? ::: 714Z" HOW MANY LABELS ";aXoX0ī150u  ::: ROM PLUS ON ::: "SLOT3: ROMPLUS IN SLOT #3$,M$"" G2I1XS<(14);[FA$gP(14);oZB${d(14);nC$x(14);E$(14);F$I0 /- NO ":85`" [ ] ..... YOUR CHOICE";H5j(14):V$:Y5tV$"N"37805~V$"Y"ė:(10):" ENTER YOUR VOLUME NUMBER (###) (MUST BE 3 DIGETS LONG) [ ] ";:3730536505(30):"";V1$5V2$" VOL. "6(V1$)33650E FOR THE BORDER? [ ] DEFAULT = * "P4.(13):(21):"";BR$:BR$""BR$"*"d48(BR$)236004B:(10):" WOULD YOU LIKE A VOLUME NUMBER IN THE TOP LINE OF THE BORDER ?"::4L" [ Y ] - - - YES ": 5V" [ N ] - - 3750334,10:(3):(5):"********* VOL. 123 ********* * * * DISK LABEL * * * ********* DOS 3.2 *********"(4$(12):" WHAT CHARACTER DO YOU WANT TO US ::: LABEL #0 ::: 2 A$"GOTO LINE 3530"2 B$""2 C$""2 E$""2 F$""2 2 ::: LABEL BORDER ::: ::: LABEL #9 ::: 1 A$"GOTO LINE 3460"1 B$""1 C$""1 E$""1 F$""1 g2 ::: LABEL #8 ::: 0> A$"GOTO LINE 3390"0H B$""0R C$""0\ E$""0f F$""0p |1z / ::: LABEL #7 ::: / A$"GOTO LINE 3300"/ B$""/ C$""/ E$""/ F$""/* 04 E$"". F$"". . ::: LABEL #6 ::: . A$"GOTO LINE 3250". B$"". C$"". E$"". F$""/ ND OHIO 44101"-D E$""$-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$"CLEVELA ::: 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$"") * 4"İ3110::2390+( A3$"5"İ3180::2390F( A3$"6"İ3250::2390a( A3$"7"İ3320::2390|( A3$"8"İ3390::2390(" A3$"9"İ3460::2390(, A3$"0"İ3530::2390(6 A3$(27)ī150(@ 2760u)J ] - - - XXXX LABEL"8' " [ 0 ] - - - XXXX LABEL"e' :" [ESC] - "' 21:" [ ] ..... YOUR CHOICE"' (9):(21):A3$:' A3$"1"İ2900::2390' A3$"2"İ2970::2390' A3$"3"İ3040::2390( A3$"the (C). LABEL.DOCS has info to change labels." e name of the program from the list above and press RETURN. Don't include the (C). LABEL.DOCS has info to change labels." LON CITY,LITTLE ROCK,BATON ROUGE,MADISON,LANSING SPRINGFIELD,INDIANAPOLIS,COLUMBUS,FRANKFORT,NASHVILLE,JACKSON,MONTGOMERY,ALBANY,HARRISBURG,TRENTON,DOVER,ANNAPOLIS,CHARLESTON,RICHMOND,RALEIGH,COLUMBIA,ATLANTA,TALLAHASSEE,AUGUSTA,CONCORD,MONTPELIER,BOSRE,VERMONT,MASSACHUSETTSG RHODE ISLAND,CONNECTICUT,ALASKA,HAWAII/ OLYMPIA,SALEM,SACRAMENTO,CARSON CITY,BOISE,SALT LAKE CITY,PHOENIX,HELENA,CHEYENNE,DENVER,SANTA FE,BISMARCK,PIERRE,LINCOLN,TOPEKA,OKLAHOMA CITY,AUSTIN,ST. PAUL,DES MOINES,JEFFERSWA,MISSOURI,ARKANSAS,LOUISIANA,WISCONSIN,MICHIGAN ILLINOIS,INDIANA,OHIO,KENTUCKY,TENNESSEE,MISSISSIPPI,ALABAMA,NEW YORK,PENNSYLVANIA,NEW JERSEY,DELAWARE,MARYLAND,WEST VIRGINIA,VIRGINIA,NORTH CAROLINA,SOUTH CAROLINA,GEORGIA,FLORIDA,MAINE,NEW HAMPSHI/TV:TLA3:"INCORRECT":D1800:D:3020GTV:T1:868:KA$Q4500W1 WASHINGTON,OREGON,CALIFORNIA,NEVADA,IDAHO,UTAH,ARIZONA,MONTANA,WYOMING,COLORADO,NEW MEXICO,NORTH DAKOTA,SOUTH DAKOTA,NEBRASKA,KANSAS,OKLAHOMA,TEXAS,MINNESOTA,IO,1)SLSL1:3295  KLS3210* 33009 SL13320M II1:J1:3230\ GS14020f 3910u GS14020 TV:TLA2:"INCORRECT":D11000:D:3020<GS14020FTV:TLA2:"CHECK SPELLING"PD11000:Dd3020GS14020KA$,I,1)WLWL1 I& WL13900; I0:J0:SL0:K0K II1:KK1v& (A$,IJ,1)(KA$,I,1)SLSL1:31950 KLS3100: GS14020D 3910{ SL13200} II1:J1:3120 I0:J0:SL0:K0 II1:KK1 (A$,I,1)(KA$,IJ68,0:TV:T:868- 21:1:"ATTEMPT ";GS17 9000L GSGS1:LA(A$) A$KA$TV22ĢTV:28:"CORRECT":SR(N)N:KSKS1:4500 A$KA$TV23ĢTV:28:"CORRECT":CR(N)N:KCKC1:4500 (LALS)24000 WL0 I1LS (A$,I,1)("PLAY AGAIN"'23:17:"(Y/N)?";:A$D(16368)27A$"N"999UA$"Y"700i:::8100:25::103,1:104,8:2048,0:21:28:"PRESS RETURN"22:28:"TO CONTINUE";:A$(A$)27999 GS0:LS(KA$) 163NL(N)0)(CR(N)0NL(N)0)Ģ22:SN$(N);2);SC$(N):7000:1000D0NJXol21:6:"STATES";17);"CAPITALS"q21:17::":SCORE:":v22:7:KS;"/";KK;21);KC;"/";KK23:8:(100KSKK);1);"%"23:32:(100KCKK);1);"%" 22:15:N150@ SR(N)0CR(N)0Ģ22:SN$(N);2);SC$(N):7000:1000G NS :8100 22:"WANT TO SEE THE STATES AND CAPITALS " 23:"YOU NEED TO STUDY (Y/N)?";:A$ (A$)27999 A$"N"600 A$"Y"500  N150=&(SR(N)0͢21:1:"ATTEMPT ";"0";2);"STATES ";KS;"/";KK;3);"CAPITALS ";KC;"/";KKz 22:1:"WANT TO SEE HOW YOU DID (Y/N)?";:A$ (A$)27999 A$"N"600 A$"Y"400  22:1:"YOU GOT THE FOLLOWING STATES & CAPITALS" D11000:D: 1:"STATE : ";' KA$SN$(N):T9:TV221 3000T 21:12:"STATES ";KS;"/";KK1x ,16368,0:23:1:"CAPITAL : "; 6KA$SC$(N):T11:TV23 @3000 E21:25:"CAPITALS ";KC;"/";KK1 JKKKK1 TKKKN370 ^8100 h105 r8100:H |16368,0::100" U16368,O:82q d21:1:"ATTEMPT ";"1";2);"STATES ";KS;"/";"1";3);"CAPITALS ";KC;"/";"1" iN((1)501) nI150 xNNL(I)105 I NL(N)N 7000 * ASK STATE NAME 22:868:23:868 16368,0:22:S AND CAPITALS DO YOU WANT"C 823:1:"ME TO ASK YOU (1 TO 50)?";N 9"";KNa :KN1KN5055y ;22:868:23:868 <I150:SN$(I):I FI150:SC$(I):I K6000 P22:8:"PRESS RETURN TO CONTINUE"; RN((1)501) T(16384)127.769,160:770,0:771,76:772,44:773,254H * STATES & CAPITALS b * COPYRIGHT (C) 1984x* REX W FRANKLIN:8000:(4);"BLOAD FILLER"25576:SN$(50),SC$(50),F$(50),NL(50),SR(50),CR(50)2KK0:KS0:KC0 722:1:"HOW MANY STATE!! ! ! ! ! !!!!!!!!!""" " " " " ""CE VOL. IN LINE 3740. (MAINTAIN SPACES INSIDE QUOTES) A ROMPLUS CARD IN SLOT #3. GOTO LINE 1570 ^< IF YOU WOULD LIKE TO USE YOUR INIT. IN THE TOP LINE OF A DISK LABEL... REPLA : THIS PROGRAM IS SET UP FOR THE MX-80 CARD IN SLOT #1. GOTO LINE #670 ; THE PROGRAM IS SET UP FOR 2)):L$;:A:BR$:L43970-9A4$"0"ī4040^9BR1B:BR$;:BR:Z$;:BR1B:BR$;:BR::h940509BR1A:BR$;:BR::9L1:I9&: AL ""8<A4$"5"Z$" CP/M "48FA4$"0"3920B8P::1650M8ZI1X_8dV$"Y"ī3960}8nBR1A:BR$;:BR::39708xBR1B:BR$;:BR:V2$;:V1$;:BR1B:D)BR$;:BR:8LL1:L2L$A$8L3L$B$8L4L$C$9BR$;:(C((L$)7(9):"[ 5 ] - - CP/M ":C7(9):"[ 0 ] - - SOLID BORDER ":7 (20):(9):"[ ] ..... YOUR CHOICE";:(11):A4$::A4$"0"A4$"5"38507A4$"1"Z$" DOS 3.2 "7A4$"2"Z$" DOS 3.3 "7(A4$"3"Z$" COBOL "82A4$"4"Z$" PASC6(V1$)3ī378063650|6:750:(3):" WHAT WOULD YOU LIKE IMPRINTED IN THE BOTTOM PORTION OF THE BORDER?":6(9):"[ 1 ] - - DOS 3.2":6(9):"[ 2 ] - - DOS 3.3":6(9):"[ 3 ] - - COBOL ":6(9):"[ 4 ] - - PASCAL ":B8Ĺ16368,0:KB0:JJ1:9030(D#9035BF#J1A$"":J1:9010YH#A$(A$,J1):9010rK#KB27999: * ENDP#KB13Ĺ16368,0:KB0:9070U#(KB);Z#A$A$(KB)d#16368,0:KB0:JJ1:9010n#,0:67,64r769"w7:0,06,0(|87:0,06,0I60,0:61,64\62,255:63,95m66,0:67,32v7697:0,06,0(#A$"":J1:KB02#(16384)127KB(16384)128<#KB0ĢTV:TJ::" ";::9010A#TV:TJ:868C#KFbND((F$(N),1,1))$lI1ND>vX((F$(N),6I4,3))XY((F$(N),6I1,3))rX256XLX256:XH1X256XLX:XH00,XL:1,XH:2,Y24576I7:0,06,0@7:0,06,0E60,0:61,32^62,255:63,63 h66)"2259049258052">ZF$(49)"5028094054135056142060146063153"kdF$(50)"5124149113138118140099133083129"qXC$"0912130913081108101309131209080912091310111310131114111209161213091210130915131015131310111200131313"[CF((C$,2N1,2))]3,C"3224086240072234084"6F$(39)"3245094220096249084"KF$(40)"1235101"` F$(41)"1219115"F$(42)"3234124243144220125"F$(43)"1263034"(F$(44)"2259039258035"2F$(45)"1254039"<F$(46)"2254047265044"FF$(47)"1264049"PF$(48F$(29)"4193101193100210095222088"7F$(30)"1196110"LF$(31)"1202104"mF$(32)"3235052253053248035"F$(33)"2236061241054"F$(34)"1252058"F$(35)"3252069251067250064"F$(36)"3247071244067254075"F$(37)"1229077"F$(38)1169056"8F$(20)"1173075"8BF$(21)"2180112187094"SLF$(22)"2180117192133"nVF$(23)"2180036187057"`F$(24)"4208040215049195041191033"jF$(25)"1194088"tF$(26)"1202080"~F$(27)"2222060220075"F$(28)"3196090198089214079""019120039"$F$(9)"2104044116065"9F$(10)"1132091"TF$(11)"2104117114095"iF$(12)"1143035"~F$(13)"1154054"F$(14)"1137069"F$(15)"1150084"F$(16)"1157099"F$(17)"3136097127133154150"$F$(18)"1163053".F$(19)"TON,PROVIDENCE,HARTFORD. JUNEAU,HONOLULUNpF$(1)"3081030069012059015"hF$(2)"2056029073049"F$(3)"3050047056074072105"F$(4)"2068052077088"F$(5)"2087020094056"F$(6)"2103088091061"F$(7)"2085088098118" F$(8)"2091