' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` pp>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- ( X Ԯ͠@跻~!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# up ȑ8f`qΙzu hhnΪHHy΅ȱ΅FؠoΪȱΠΊ` QP`5l넹슨H Jh` ee` ee`΅ȱ΅`Υȑ`>`ΐޢMlȥȊ`쪈눱`hihi蚽 J ill%00 00 ` `ꥥ`ҥ %Lhihihhh  llΊihihhelhhlhihihh8hhelhhlﺽ}%} (i `(i!l 4)eȘΰ r`쥝@Ɂ:ɑ=ɐ))Q&&Q*$0P`IPQIiQP`QߩPQ`5l쥢0"ɁɉɈ )*```5l \` W`hihihhhlhihʚHH芠L+hihiHHHHHl뺽ɁhhiL+iҺɁ0liɁݥۘՊi ꥢ뺽 纽 +뺊i $0 0ihhHH` 0l J i`lE`hihi r륝HHHHHHlhihihhhhhhl+%0#0 00QP`QPSRQP`QPSR`QPϥQeSQPeRP`S8QQRPP`QIiQPIiP`$P0`P0QЧ`QP`Q8SPRp 0 `0``hhRN <,8뤹"湱"湱:,`hihihEhhhhhlPQQPPQP` "hhh h*HH *fIiIi 0*$<9;<$$$éʮ j8 o8}νȑΦ:ʽ),"l $ߠL1 )0&w`V3 \ j8  J(䥸:`8f H JhŸ ,  r,n,,*lhhhhhhhhhe؍Z[ oLfHHHHHHHHHFةHHH3vv00Z[΄ϩР0 o$0L L $0W ] 1 hh 1l1 ? \۽` \(0  A 0Lu͠ɠŠޥ110Li 89 +멻 [9\9]9E 9 7 c7 3 9 7 k7 ]2 7L[/ [9\9]9[9\9]9 6HHH  7 P3PQL/ ' 5 ک " 5 L0[9\9]9 6HHH  7 P3PQL/1 798999 9 7 g7L/ ;7L/LaL00H9 6 7 P3PHQHh 8 7 k7 2 7Lp.h 8 8 +=9>9?9HHH8 5 5=9>9?9L+٠8 8 7 c7L.=9>9?9 6HHHF9G9H9 }6hhh=9>9?9L.=9>9?9 6HHHF9G9H9 }6hhh=9>9?9L+L4 ?5 2PQ 9G9H9 6 7 T3PQ ]2 7L>-c 8 8 +L+w 5 6HHHF9G9H9 6 7 P3PHQHc 8 7 c7 2 7L-L+F9G9H9 5w 5 6HHHF9G9H9 6 7 P3PHQHh 8 7 c7 2 7L-L+w 5 6HHHF9G98 + z1 1 6F9G9H9 5 6HHHF9G9H9 6 7 P3PQLX,o :9;9<9L. 5 6HHHF9G9H9 6 7 P3PQL,8 ꩕ 5 5L.F9G9H9 [8PQ ޠ8 7 k7 3F9G9H9 [8PQ 8 7 o7 ]2 7 3w 5 6HHHFhShR 3PQL + I9J9K9L4 ک 5 5\  5 ک  5 کߠ  5 ک & 5 ک$ " 5 کF ! 5 کg ! 5 ک " 5 ک # 5 L4͠ 798999La9 9!9:9;9<99 9!9=9>9?9E 8 +c 8 6HHH  7PHQH P3hShR 3F9G9H9 6HHH  7PHQH P3hShR 3F9G9H9 6HHH 7PHQH P3hShR 3F9G9H9 6HHH  7PHQH P3hShR 3F9G9H9 6HHH  7PHQH P3hShR 3F9G9H9 6HHH  7PHQH P33F9G9H9 6HHH  7PHQH b3hShR q3PQLF) I9J9K9F9G9H9 6HHH  7 f3F9G9H9 6HHH  7PHQH b3hShR q3F9G9H9 6HHHϠ 7PHQH P3hShR 3PQL) I9J9K9F9G9H9 6HHH  7 P3F9G9H9 PHQH P3hShR q3PQL(L(X9Y9Z9 6HHH̠  7 P3R9S9T9 6HHH̠  7PHQH P3hShR q3PQLt(L( Xc 8 '4(HH 3 4H8HH X4  5R9S9T9 5  5 JH *'hLf'L4} I9J9K9F9G9H9 6HHHԠ 7 f; 5 8 '7 7c 9 9 + X4L4 کY  5 z1 1 6U9V9W9 L4s X9Y9Z9 ڭ%9&9'9 5w 5 ڭ%9&9'9 5 5 1 2 6X9Y9Z9 l1%9&9'9 5  5 ڭX9Y9Z9 6HHH  7 P3R9S9T9 6HHH  7^9 5 8 '7 5  58 ꩤ; 5 8 .495969 5 X4L4E 9 7 c7Lc&L''9 8 '4&HHc 3c 3H8HH9 e; 5 8 '7 6HHH  7 T3PQL 'c 9 9 + 9 ꩐: 5 89 eH P3PQ ]2 7L;%| ꩻ9 5 8 '7L9M9N9JH q#h| 8 7 k7Lj%| 9 +JH hc ꩻ9 5 8 '7L9M9N9JH <"hL4 کc Ԡ8 7 o7L%&  5 LB&6 # 5 کc 8 '4%HHԠ8 3 4H8HH8 ; 5 8 8 +L($L# 798999L4| ꩻ9 5 8 '7HHHc 5 5F9G9H9JH (h| 8 7 c7I9J9K9 6HHH  7PHQH P3PQ ]2 7L$| ꩻ9 5 8 '7 q88 +| 8 7 c7I9J9K9 6HHH  7PHQ8999Ln#c Ԡ8 Ԡ8 +Ԡ8 ^9 5 8c ꩻ9 5 8 '7 7Ԡ8 ꩤ; 5 88  +L4E 8 +c 8 8 +Ԡ8 8 7 k7L# 798999L($8 ^9 5 8 '7 6HHHL9M9N9 7 P3PQL$8 5 8F9G9H9 q8 + X49 ?< 5 8 8 +L4E 8 +c 8 8 +8 ^9 5 8 '7 6HHHL9M9N9 7 P3PQL"8 ꩤ; 5 88  +Ln#Ԡ8 8 7 o7L"LJ"Ϡ8 Ԡ8 7 c7L# 79?< 5 8 *3  +c 9 9 +L"F9G9H9 6HHH  7 P3PQL!c 9 ?< 5 89 ?< 5 8 3c 9 ?< 5 8 *3 i +c 9 9 +L"c 9 9 +9 ?< H 7 P3PQL c 9 ?< 5 89 ?< 5 8 3c 9 ?< 5 8 *3  +c 9 9 +L"F9G9H9 6HHH  7 P3PQL7!c 9 ?< 5 89 ?< 5 8 3c 9 9 +c 8 '4H.H 9 3 4H8HH8 ꩐: 5 8 '7F9G9H9F9G9H9 6HHH  7 P3PQLc 9 ?< 5 89 ?< 5 8 3c 9 ?< 5 8 *3  +c 9 9 +L"F9G9H9 6HH9 7 u7LRJH E&hc 9 9 +9 e; 5 8F9G9H9 7LF9G9H9 6HHH  7 P3PQLc 9 9 +9 e; 5 8F9G9H9 7Lc 9 9 + 9 ꩐: 5 8F9G9H9 7 X4JH E&hE P3PHQH9 e; 5 8hQhP '7 6HHH  7PHQH P3hShR 3PQL_h 9 +9 e; 5 8 '7 6HHH  7 P3PQLE 9 +9 9 7 k7Lc 9 9 +9 e; 5 8F9G9H9 7L9 PHQH T3hShR q3F9G9H9 6HHH 7PHQH T3hShR q3PQLKLRF9G9H9 6HHH  7 P3F9G9H9 6HHH  7PHQH P3hShR 3PQLh 9 +E 9 7 c7LE 9 +L9 e; 5 8 '7 6HHH  7 9 +9 8 '4H0H8 3 4H8HH8 ꩻ9 5 8 '7F9G9H9F9G9H9 6HHH  7 P3PQL|JH E&hLc 9 +c 9 +F9G9H9 6HHH  7 T3F9G9H9 6HHH  7PHQH T3hShR q3F9G9H9 6HHH  7798999 6HHH9 9!9 7PHQH T3PQ ]2 7L>Lac 9 +JH h8 .495969 5 La̠ R9S9T9JH W'h Xc 8 '4HHO 3 4H8HH X4w 5 5Ӡ  5 ڭ%9&9'9 5  5 کE 9 +E HHO 3 4H8HH 8 2O9P9Q9 8 X4m 8 '4HZHr 3 4H8HH 8 2O9P9Q9 8O9P9Q9 5 X4Lac 8 7 c7Lc ꩻ9 5 8 '7L9M9N9JH q#h798999 6HHH9 9!9 7 P3PQLLRc 8 7 c7L2 ڭ%9&9'9 5  5 ڭ9 9!9495969Lac ꩻ9 5 8 '7 6HHH 7 P3PQL J8 Xc 8 '4HHO 3 4H8HH 8 2O9P9Q9 8O9P9Q9 5 X4Lac ꩻ9 5 8 '7 6HHHà 7 P3PQL J8 Xc 8 '4QLdE Ԡ8 +c 8 '4H=HϠ8 3 4H8HH8 ^9 5 89 9!9 7 X4Lac ꩻ9 5 8 '7 6HHH  7 P3PQL ڭ%9&9'9 5  5(9)9*9 5 ڭ192939495969Lac ꩻ9 5 8 '7 6HHH  7 P3PQQLLah ꩻ9 5 8 '7 6HHH  7 P3PHQHh 8 7 y7 2 7L`JH +$hLac ꩻ9 5 8 '7 6HHHQ  7 P3PQLJH #+hLac ꩻ9 5 8 '7 6HHH\  7 P3PQLJH %hLac ꩻ9 5 8 '7 6HHH  7 P3P  7 P3PQLPc 8 8 +8 ꩻ9 5 8F9G9H9 7LP X4C9D9E9 6HHH{  7 P3PHQHc 8 7 k7 2 7L8 ꩻ9 5 8 '7L9M9N9JH q#h8 ꩻ9 5 88 6 7798999 6HHH9 9!9 7 T3P9H9 }6hhh 7LPI9J9K9 6HHH  7 P3@9A9B9 6HHHr  7PHQH P3hShR q3PQLc 8 8 +8 ꩻ9 5 8=9>9?9HHH=9>9?9QPPQ 8 4 c 5 5 q8 6 7u @9A9B9LPI9J9K9 6HHHHHHx  7PHQH P3hShR q3PQLuc 8 8 +8 ꩻ9 5 8F9G9H9 7{ C9D9E9LPI9J9K9 6HHH  7 T3C9D9E9 6HHH{  7PHQH P3hShR q3PQL8 ꩻ9 5 88 ꩻ9 5 8 '7 6HHHF9Gq3PQLx C9D9E9LI9J9K9 6HHH  7 P3@9A9B9 6HHHu  7PHQH P3hShR q3PQLsLPI9J9K9 6HHH  7 T3@9A9B9 6HHHu  7PHQH P3hShR q3PQLr @9A9B9I9J9K9 6HHH  7 P3C9D9E9 6QH P3hShR q3F9G9H9 6HHH  7PHQH T3hShR q3PQL8 ꩻ9 5 8 '7L9M9N9JH q#h8 ꩻ9 5 88 6 7798999 6HHH9 9!9 7 T3PQLLaI9J9K9 6HHH  7 P3C9D9E9 6HHH{  7PHQH P3hShR 6HHH"9#9$9 7 P3PQL"LPJH (hI9J9K9 6HHH}  7 P3PQL` 798999LaI9J9K9 6HHH  7 T3@9A9B9 6HHHu  7PHQH P3hShR q3PQLr @9A9B9I9J9K9 6HHH  7 P3C9D9E9 6HHH{  7PH:9;9<9 6HHHo  7 P3PQL(Ln=9>9?9 6HHH9 9!9 7 P3PQLTLar @9A9B9x C9D9E9c 8 +E 8 +c 8 '4HH=9>9?9QPPQ 3 4H8HH=9>9?9HHH8 5Hc 5 #6F9G9H9F9G9H95  5495969 5 ک( 5495969 5 ک % 5 ک@ 5 کL ! 5 ڭ798999 6HHH9 9!9 7 T3PQL798999 5495969 5 ڭ9 9!9798999495969 5 کm  5T ٠8 +Y ޠ8 +^ 8 +JH +hԠ8 + ڭ%9&9'9 5Š 5 ڭ%9&9'9 5Ҡ 5 1 2 6(9)9*9 l1 1 2 6+9,9-9 l1 1 2 6.9/909 l1%9&9'9 5ߠ 5 کĠ192939+9,9-9 6HHHȠ 7 P3PQL J 5 6192939 X( 5495969 5 کO THE PROGRAM DISKIS IN THE DISK DRIVE, AND RE-BOOT.MATH ERRORp 0 4@@@` XP$^p0 8 ک. 7Ġ9 9!9Ġ"9#9$9; 5 6%9&9'9@ Ϡ8 +E IST......... LIST VALUES OF VARIABLESCLEAR........ ERASES ALL VARIABLESHELP......... LIST THESE COMMANDSEXAMPLES1.... SIMPLE CALCULATIONSEXAMPLES2.... VARIABLE ASSIGNMENTSLIKE HELP, TYPE COMMAND AFTER COLONERROR IN EXPRESSIONCOMPUTERDISK ERROR. MAKE SURE /(TOO MANY VARIABLESUNDEFINED VARIABLENO VARIABLES SET:::::::::: SET VARIABLES ::::::::::HIT ANY KEY TO CONTINUE...NOIDOPEN IDENT.DMREAD IDENT.DMCLOSE IDENT.DMDATAINSERT THE DESK MASTER DISKZ9PON.......... TURNS PRINTER ONPOFF......... TURNS PRINTER OFFL-------------DESK CALCULATORENTER FORMULAS, VARIABLE ASSIGNMENTS,OR COMMANDS.TYPE HELP FOR A LIST OF COMMANDS.: ESCNOTVALNOTIDBAD CHARBAD CHARACTERNUMERICOPERATOR=ALPHACLEARPONPR#POFFPR#0EXAMPLES1EXAMPLES2PROGRAMRELOADING DESK MASTER...RUN DESKMASTER.DM)*+08$L40,"SIMPLE CALCULATIONS:"," "," ",":2+2","4","", ":5*5","25","",":2+(8/2)","6","ASSIGNMENTS:"," "," ",,":A=15","",":A","15" ,"",":TOTAL=A+15","",":TOTAL", "30" OPEN SPECS.DMREAD SPECS.DMCLOSE---------------------------               ȑ8f`qΙzu hhnΪHHy΅ȱ΅FؠoΪȱΠΊ` QP`5l넹슨H Jh` ee` ee`΅ȱ΅`Υȑ`>`ΐޢMlȥȊ`쪈눱`hihi蚽 J ill%00 00 ` `ꥥ`ҥ %Lhihihhh  llΊihihhelhhlhihihh8hhelhhlﺽ}%} (i `(i!l 4)eȘΰ r`쥝@Ɂ:ɑ=ɐ))Q&&Q*$0P`IPQIiQP`QߩPQ`5l쥢0"ɁɉɈ )*```5l \` W`hihihhhlhihʚHH芠L+hihiHHHHHl뺽ɁhhiL+iҺɁ0liɁݥۘՊi ꥢ뺽 纽 +뺊i $0 0ihhHH` 0l J i`lE`hihi r륝HHHHHHlhihihhhhhhl+%0#0 00QP`QPSRQP`QPSR`QPϥQeSQPeRP`S8QQRPP`QIiQPIiP`$P0`P0QЧ`QP`Q8SPRp 0 `0``hhRN <,8뤹"湱"湱:,`hihihEhhhhhlPQQPPQP` "hhh h*HH *fIiIi 0*$>9<>$$$éʮ j8 o8}νȑΦ:ʽ),"l $ߠL1 )0&w`V3 \ j8  J(䥸:`8f H JhŸ ,  r,n,,*lhhhhhhhhhe؍Z[ oLfHHHHHHHHHFةHHH3vv00Z[΄ϩР0 o$0L L $0W ] 1 hh 1l1 ? \۽` \(0  A 0Lu͠ɠŠޥ110Li 89 +멻 [9\9]9E 9 7 c7 3 9 7 k7 ]2 7L[/ [9\9]9[9\9]9 6HHH  7 P3PQL/ ' 5 ک " 5 L0[9\9]9 6HHH  7 P3PQL/1 798999 9 7 g7L/ ;7L/LaL00H9 6 7 P3PHQHh 8 7 k7 2 7Lp.h 8 8 +=9>9?9HHH8 5 5=9>9?9L+٠8 8 7 c7L.=9>9?9 6HHHF9G9H9 }6hhh=9>9?9L.=9>9?9 6HHHF9G9H9 }6hhh=9>9?9L+L4 ?5 2PQ 9G9H9 6 7 T3PQ ]2 7L>-c 8 8 +L+w 5 6HHHF9G9H9 6 7 P3PHQHc 8 7 c7 2 7L-L+F9G9H9 5w 5 6HHHF9G9H9 6 7 P3PHQHh 8 7 c7 2 7L-L+w 5 6HHHF9G98 + z1 1 6F9G9H9 5 6HHHF9G9H9 6 7 P3PQLX,o :9;9<9L. 5 6HHHF9G9H9 6 7 P3PQL,8 ꩕ 5 5L.F9G9H9 [8PQ ޠ8 7 k7 3F9G9H9 [8PQ 8 7 o7 ]2 7 3w 5 6HHHFhShR 3PQL + I9J9K9L4 ک 5 5\  5 ک  5 کߠ  5 ک & 5 ک$ " 5 کF ! 5 کg ! 5 ک " 5 ک # 5 L4͠ 798999La9 9!9:9;9<99 9!9=9>9?9E 8 +c 8 6HHH  7PHQH P3hShR 3F9G9H9 6HHH  7PHQH P3hShR 3F9G9H9 6HHH 7PHQH P3hShR 3F9G9H9 6HHH  7PHQH P3hShR 3F9G9H9 6HHH  7PHQH P3hShR 3F9G9H9 6HHH  7PHQH P33F9G9H9 6HHH  7PHQH b3hShR q3PQLF) I9J9K9F9G9H9 6HHH  7 f3F9G9H9 6HHH  7PHQH b3hShR q3F9G9H9 6HHHϠ 7PHQH P3hShR 3PQL) I9J9K9F9G9H9 6HHH  7 P3F9G9H9 PHQH P3hShR q3PQL(L(X9Y9Z9 6HHH̠  7 P3R9S9T9 6HHH̠  7PHQH P3hShR q3PQLt(L( Xc 8 '4(HH 3 4H8HH X4  5R9S9T9 5  5 JH *'hLf'L4} I9J9K9F9G9H9 6HHHԠ 7 f; 5 8 '7 7c 9 9 + X4L4 کY  5 z1 1 6U9V9W9 L4s X9Y9Z9 ڭ%9&9'9 5w 5 ڭ%9&9'9 5 5 1 2 6X9Y9Z9 l1%9&9'9 5  5 ڭX9Y9Z9 6HHH  7 P3R9S9T9 6HHH  7^9 5 8 '7 5  58 ꩔< 5 8 .495969 5 X4L4E 9 7 c7Lc&L''9 8 '4&HHc 3c 3H8HH9 ꩡ; 5 8 '7 6HHH  7 T3PQL 'c 9 9 + 9 ꩮ: 5 89 ꩡH P3PQ ]2 7L;%| ꩻ9 5 8 '7L9M9N9JH q#h| 8 7 k7Lj%| 9 +JH hc ꩻ9 5 8 '7L9M9N9JH <"hL4 کc Ԡ8 7 o7L%&  5 LB&6 # 5 کc 8 '4%HHԠ8 3 4H8HH8 < 5 8 8 +L($L# 798999L4| ꩻ9 5 8 '7HHHc 5 5F9G9H9JH (h| 8 7 c7I9J9K9 6HHH  7PHQH P3PQ ]2 7L$| ꩻ9 5 8 '7 q88 +| 8 7 c7I9J9K9 6HHH  7PHQ8999Ln#c Ԡ8 Ԡ8 +Ԡ8 ^9 5 8c ꩻ9 5 8 '7 7Ԡ8 ꩔< 5 88  +L4E 8 +c 8 8 +Ԡ8 8 7 k7L# 798999L($8 ^9 5 8 '7 6HHHL9M9N9 7 P3PQL$8 5 8F9G9H9 q8 + X49 /= 5 8 8 +L4E 8 +c 8 8 +8 ^9 5 8 '7 6HHHL9M9N9 7 P3PQL"8 ꩔< 5 88  +Ln#Ԡ8 8 7 o7L"LJ"Ϡ8 Ԡ8 7 c7L# 79/= 5 8 *3  +c 9 9 +L"F9G9H9 6HHH  7 P3PQL!c 9 /= 5 89 /= 5 8 3c 9 /= 5 8 *3 i +c 9 9 +L"c 9 9 +9 /= H 7 P3PQL c 9 /= 5 89 /= 5 8 3c 9 /= 5 8 *3  +c 9 9 +L"F9G9H9 6HHH  7 P3PQL7!c 9 /= 5 89 /= 5 8 3c 9 9 +c 8 '4H.H 9 3 4H8HH8 ꩮ: 5 8 '7F9G9H9F9G9H9 6HHH  7 P3PQLc 9 /= 5 89 /= 5 8 3c 9 /= 5 8 *3  +c 9 9 +L"F9G9H9 6HH9 7 u7LRJH E&hc 9 9 +9 ꩡ; 5 8F9G9H9 7LF9G9H9 6HHH  7 P3PQLc 9 9 +9 ꩡ; 5 8F9G9H9 7Lc 9 9 + 9 ꩮ: 5 8F9G9H9 7 X4JH E&hE P3PHQH9 ꩡ; 5 8hQhP '7 6HHH  7PHQH P3hShR 3PQL_h 9 +9 ꩡ; 5 8 '7 6HHH  7 P3PQLE 9 +9 9 7 k7Lc 9 9 +9 ꩡ; 5 8F9G9H9 7L9 PHQH T3hShR q3F9G9H9 6HHH 7PHQH T3hShR q3PQLKLRF9G9H9 6HHH  7 P3F9G9H9 6HHH  7PHQH P3hShR 3PQLh 9 +E 9 7 c7LE 9 +L9 ꩡ; 5 8 '7 6HHH  7 9 +9 8 '4H0H8 3 4H8HH8 ꩻ9 5 8 '7F9G9H9F9G9H9 6HHH  7 P3PQL|JH E&hLc 9 +c 9 +F9G9H9 6HHH  7 T3F9G9H9 6HHH  7PHQH T3hShR q3F9G9H9 6HHH  7798999 6HHH9 9!9 7PHQH T3PQ ]2 7L>Lac 9 +JH h8 .495969 5 La̠ R9S9T9JH W'h Xc 8 '4HHO 3 4H8HH X4w 5 5Ӡ  5 ڭ%9&9'9 5  5 کE 9 +E HHO 3 4H8HH 8 2O9P9Q9 8 X4m 8 '4HZHr 3 4H8HH 8 2O9P9Q9 8O9P9Q9 5 X4Lac 8 7 c7Lc ꩻ9 5 8 '7L9M9N9JH q#h798999 6HHH9 9!9 7 P3PQLLRc 8 7 c7L2 ڭ%9&9'9 5  5 ڭ9 9!9495969Lac ꩻ9 5 8 '7 6HHH 7 P3PQL J8 Xc 8 '4HHO 3 4H8HH 8 2O9P9Q9 8O9P9Q9 5 X4Lac ꩻ9 5 8 '7 6HHHà 7 P3PQL J8 Xc 8 '4QLdE Ԡ8 +c 8 '4H=HϠ8 3 4H8HH8 ^9 5 89 9!9 7 X4Lac ꩻ9 5 8 '7 6HHH  7 P3PQL ڭ%9&9'9 5  5(9)9*9 5 ڭ192939495969Lac ꩻ9 5 8 '7 6HHH  7 P3PQQLLah ꩻ9 5 8 '7 6HHH  7 P3PHQHh 8 7 y7 2 7L`JH +$hLac ꩻ9 5 8 '7 6HHHQ  7 P3PQLJH #+hLac ꩻ9 5 8 '7 6HHH\  7 P3PQLJH %hLac ꩻ9 5 8 '7 6HHH  7 P3P  7 P3PQLPc 8 8 +8 ꩻ9 5 8F9G9H9 7LP X4C9D9E9 6HHH{  7 P3PHQHc 8 7 k7 2 7L8 ꩻ9 5 8 '7L9M9N9JH q#h8 ꩻ9 5 88 6 7798999 6HHH9 9!9 7 T3P9H9 }6hhh 7LPI9J9K9 6HHH  7 P3@9A9B9 6HHHr  7PHQH P3hShR q3PQLc 8 8 +8 ꩻ9 5 8=9>9?9HHH=9>9?9QPPQ 8 4 c 5 5 q8 6 7u @9A9B9LPI9J9K9 6HHHHHHx  7PHQH P3hShR q3PQLuc 8 8 +8 ꩻ9 5 8F9G9H9 7{ C9D9E9LPI9J9K9 6HHH  7 T3C9D9E9 6HHH{  7PHQH P3hShR q3PQL8 ꩻ9 5 88 ꩻ9 5 8 '7 6HHHF9Gq3PQLx C9D9E9LI9J9K9 6HHH  7 P3@9A9B9 6HHHu  7PHQH P3hShR q3PQLsLPI9J9K9 6HHH  7 T3@9A9B9 6HHHu  7PHQH P3hShR q3PQLr @9A9B9I9J9K9 6HHH  7 P3C9D9E9 6QH P3hShR q3F9G9H9 6HHH  7PHQH T3hShR q3PQL8 ꩻ9 5 8 '7L9M9N9JH q#h8 ꩻ9 5 88 6 7798999 6HHH9 9!9 7 T3PQLLaI9J9K9 6HHH  7 P3C9D9E9 6HHH{  7PHQH P3hShR 6HHH"9#9$9 7 P3PQL"LPJH (hI9J9K9 6HHH}  7 P3PQL` 798999LaI9J9K9 6HHH  7 T3@9A9B9 6HHHu  7PHQH P3hShR q3PQLr @9A9B9I9J9K9 6HHH  7 P3C9D9E9 6HHH{  7PH:9;9<9 6HHHo  7 P3PQL(Ln=9>9?9 6HHH9 9!9 7 P3PQLTLar @9A9B9x C9D9E9c 8 +E 8 +c 8 '4HH=9>9?9QPPQ 3 4H8HH=9>9?9HHH8 5Hc 5 #6F9G9H9F9G9H95  5495969 5 ک( 5495969 5 ک % 5 ک@ 5 کL ! 5 ڭ798999 6HHH9 9!9 7 T3PQL798999 5495969 5 ڭ9 9!9798999495969 5 کm  5T ٠8 +Y ޠ8 +^ 8 +JH +hԠ8 + ڭ%9&9'9 5Š 5 ڭ%9&9'9 5Ҡ 5 1 2 6(9)9*9 l1 1 2 6+9,9-9 l1 1 2 6.9/909 l1%9&9'9 5ߠ 5 کĠ192939+9,9-9 6HHHȠ 7 P3PQL J 5 6192939 X( 5495969 5 کO THE PROGRAM DISKIS IN THE DISK DRIVE, AND RE-BOOT.MATH ERRORp 0 4@@@` XP$^p0 8 ک. 7Ġ9 9!9Ġ"9#9$9; 5 6%9&9'9@ Ϡ8 +E IST......... LIST VALUES OF VARIABLESCLEAR........ ERASES ALL VARIABLESHELP......... LIST THESE COMMANDSEXAMPLES1.... SIMPLE CALCULATIONSEXAMPLES2.... VARIABLE ASSIGNMENTSLIKE HELP, TYPE COMMAND AFTER COLONERROR IN EXPRESSIONCOMPUTERDISK ERROR. MAKE SURE /(TOO MANY VARIABLESUNDEFINED VARIABLENO VARIABLES SET:::::::::: SET VARIABLES ::::::::::HIT ANY KEY TO CONTINUE...NOIDOPEN IDENT.DMREAD IDENT.DMCLOSE IDENT.DMDATAINSERT THE DESK MASTER DISKZ9PON.......... TURNS PRINTER ONPOFF......... TURNS PRINTER OFFL-------------DESK CALCULATORENTER FORMULAS, VARIABLE ASSIGNMENTS,OR COMMANDS.TYPE HELP FOR A LIST OF COMMANDS.: ESCNOTVALNOTIDBAD CHARBAD CHARACTERNUMERICOPERATOR=ALPHACLEARPONPR#POFFPR#0EXAMPLES1EXAMPLES2PROGRAMRELOADING DESK MASTER...RUN DESKMASTER.DM)*+08$L40,"SIMPLE CALCULATIONS:"," "," ",":2+2","4","", ":5*5","25","",":2+(8/2)","6","ASSIGNMENTS:"," "," ",,":A=15","",":A","15" ,"",":TOTAL=A+15","",":TOTAL", "30" OPEN SPECS.DMREAD SPECS.DMCLOSE---------------------------                               ̍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍ ̍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍̍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍̍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍΍z#?     Ϡؠؠ íΠ 2ήíŠ2Ԯ͠Ү͠^Ԯ͠ ˮ͠î͠Ԯ͠ Ӯٍ͠"; PER8ĺ"DISK PROBLEM. RE-INSERT DISK AND TRY AGAIN."L QER6ER8iju T"ERROR CODE: ";ER;" ENCOUNTERED AT" ^"LINE NUMBER: ";EL h r"START OVER, OR CONSULT YOUR COMPUTER MANUAL." | |D *** ERROR ROUTINE ***5 EER(222): GET ERROR CODEf FEL(218)(219)256: GET ERROR LINE NUMBER| JER5ED$"EOF": OER6ĺ"THE PROGRAM DISK SHOULD BE IN THE DRIVE.":"IF IT IS, THEN THERE IS PROBABLY":"SOMETHING WRONG WITH YOUR PROGRAM DISK.:295< N12ĺ5);"PERSONAL COMPUTING MAGAZINE";4);:295g "N18ĺ12);"LEON LJ STARR";11);:295 #N19ĺ9);" -------------";11);:295 %36); '"*": ("**************************************" ,D$;"RUN DESKMASTER.DM" 6 @, BRING UP THE MAIN PROGRAM ***O :"**************************************"[ N221e "*"; N15ĺ17);"BY";17);:295 N10ĺ16);"FROM";16);:295 N8ĺ7);"PRESENTING DESK MASTER";7);:295 N17ĺ9);" -------------";11); PD$(4)ZNU$"""d320.nED$NU$4x] *** SEE IF SPECS HAVE BEEN SET ***uD$;"OPEN SPECS.DM"D$;"READ SPECS.DM"(ED$"EOF")ĄPS$:AL$:SW$ED$"EOF"ĺD$;"RUN SPECSET.DM"D$;"CLOSE" *** NOW THAT ALL IS SET    $"C")İ22200:4150"PR$"CARD">(CH$"A")İ40250:4150Y(CH$"F")İ4800:4150h0PR$"FILE"b(CH$"D")İ21150:4150(CH$"L")OU$"DISPLAY":13850:16850:4150(CH$"Q")(CH$EK$)ī4700ME$"CHOICE NOT ON MENU"*4150\THE BUFFER IS ERASED? ";7K$:K$"N"CH$"S":3350ST0:ME$"BUFFER ERASED"Ys *******************  *** CARD FILE MENU ***<PR$"FILE":TY$".CDX"EC$NU$ CASE OF CH$, ESC QUIT6OF3:5600;PR$"FILE"h(CH"L")OU$"DISPLAY":13850:16850:3150C (CH$"D")İ21150:3150b(CH$"Q")(CH$EK$)ī3750BME$"CHOICE NOT ON MENU"t3150T0ī3799"IN CASE YOU HAVEN'T ALREADY,""WOULD YOU LIKE TO SAVE YOUR MEMO ON DISK""BEFORE ENU *** "  EC$NU$3 PR$"MEMO":TY$".MES"G GOSUB MENUGENVN OF2:5600 (CH$"E")NM$"NUMBER":6800:NM$NU$:3150 (CH$"C")İ37450:3150 (CH$"P")İ11950:3150 (CH$"S")İ17500:3150H (CH$"R")İ19400:3150'z (CH$OR..."::D$;"RUN CALC.DM">zCH$"H"ĺ:D$;"RUN SPECSET.DM"cCH$"I"ĺ:D$;"RUN DATADISK.DM"~CH$"Q"CH$EK$ī2200EC$"ESC"ī2200ME$"CHOICE NOT ON MENU"2140: END WITH ESC: *********************** *** MEMO MEC$NU$R GOSUB MENUGEN7W CASE OF CH$,ESC QUITM\F$NU$:OF1:5600faCH$"W"İ2800:2140fCH$"F"İ3850:2140k(CH$"A")İ27900:2140sCH$"C"CH$"H"CH$"I"DE$"PROGRAM":41555uCH$"C"ė:N111:::10);"GETTING CALCULAT STUFFC(28): CALENDARS7 MS(12): MONTH SIZESRMN$(12): MONTH NAMESjDN$(7): DAY NAMESFV(3),LV(3),FE$(3): DIGIT FIELDS  *** ONE TIME VALUES ***%4 *********************> *** MAIN MENU ***CHT$,LN):M,R ***********************J *** MORE CONSTANTS ***PnBS50: TEXT BUFFER SIZEFL40: MAX FILES PER TYPE *** ARRAYS ***L$(BS),L2$(BS): TEXT BUFFERSFT$(FL): FILE INDEX TABLE CALENDARWR$NU$) ***** WORD WRAP ****< IMPORT T$,LNQ  EXPORT: T$,WW$W%c*LNLN1t/CLN:WW$NU$4CC1:C$(T$,C,1)9(C$BL$)WW$(T$,LNC):T$(T$,C):1:39);:1:MA$;T$:845>(C1)ī820CWW$NU$H((T$)LN)T$( (C$BS$)(C2)ĺ;:690F (C$BS$)(C2)CC2:T$(T$,C):705w CLNTI$"TIME"ĺ:::T$T$C$:TI$NU$:780 (CLN)(WR$"WRAP")T$T$C$:780 (CLN)(C$BL$)ĺS1):780 (CLN)(C$BL$)T$T$C$:790:780 T$T$C$:705 (WW$):WW$NU$ CC1:C$8 (C$EK$)EC$"ESC":780G SSW5C1a (NM$"NUMBER")SS3 (C$RE$)(TI$"TIME")ĺBL$:::TI$NU$:780 C$RE$ĺS);:780 (((C$)FC)((C$)LC))(C$BS$)CC1:705 (C$BS$)(C1)ĺ;:690 C$;"Y"LF$NU$ bSW(SW$) = 2000: BYPASS GET LINEe  GET LINE IS WAY UP HERE FOR SPEED|  *** GET LINE ***  IMPORT: LN,FC,LC  EXPORT: T$,EC$  EC$NU$:T$WW$:WR$"WRAP"āN1LN:US$;::N1LN:BS$;: WW$; CANK,NULL PS66:TM52 PAGESIZE, TOP MARGIN8 D D$(4)m DE$"PROGRAM":41555: CHECK DISK ID ,D$;"OPEN SPECS.DM" ^D$;"READ SPECS.DM" PS$:AL$:SW$ D$;"CLOSE"  SET LINEFEED FOR PRINTER AL$"N"LF$(10) &AL$**& 7 *PERSONAL COMPUTING MAGAZINE*J < *****************************P FV P\ Z| d *** PROGRAM CONSTANTS *** nRE$(13):BS$(8):EK$(27):BE$(7) x RETURN,BACKSPACE,ESC,AND BELL KEYS }US$(95):BL$" ":NU$""  UNDERSCORE,BL0Z(4);"MAXFILES 5"$41600*N *****************************r ** DESKMASTER MAIN PROGRAM ** ****** COPYRIGHT 1982 *******( ***** BY LEON LJ STARR ******- ***************************** 2 ******* PUBLISHED BY ******                               ";F$;" ";PR$;"? ";:K$:::&>(K$EK$)EC$"ESC":16750Z&?(K$"N")(F$NU$)ī16500}&H?::"ENTER A ";PR$;" NAME: ";&z?WR$"NOWRAP"&?LN16:FC32:LC95:660: GET LINE&?(EC$"ESC")((T$)0)EC$"ESC":16750&@F$T$:C$(F$,1)\'B@((C$ FOR NO EXIST%Z%N>EC$NU$:ME$NU$%>OU$"DISPLAY":13850: GETINDEX&>(F$NU$)ĺ::"DO YOU WANT THE")ĺFT$(F)"$9(FT$(F)"0L")LEF($:_$4:(LE1)(OU$"DISPLAY")ĺ"NO ";PR$;"S";" YET."::v$f::D$;"CLOSE ";FI$$:OU$NU$$:$: *********************$.; *** FILE EXISTS ***$`; IMPORT: FT$(LE)$; EXPORT: EX$; %(011250: PUTRECn R0E$ W0TY$".MES"āN1(PSTTM):E$: p0D$;"PR#0" 0E$NU$ 0PP$NU$ 0 1 ********************* 81 *** PUT INDEX *** !1 IMPORT-L$(L);E$F-((L20)L20)(PP$"PRINT")(OU$"DISK")İ16850::L-`.OU$NU$:NM$NU$fJ.|. **********************. *** PRINT RECORD ***./PP$"PRINT"D/v/E$LF$/(T0)ME$"NOTHING TO PRINT":12500" /10:8);"MAK(RETURN) WHEN FINISHED:":2*NM$"NUMBER":10000M*+LNSW:FC32:LC95:660Z\+L$(L)T$`+}+ **********************+ *** PUT RECORD ***$, IMPORT: L$(T),OP$,,MA$NU$-(OU$"DISK")ĺTP-L1T-(NM$"NUMBER")İ10000  ( *********************5<( *** CHANGE LINE ***;n(S("LINE TO CHANGE ";_)EC$NU$h)GD$"NN":FV(1)1:LV(1)T:26500)EC$"ESC"ī11150)L(FE$(1)))(L1)(LT)ĺ"NO LINE WITH THAT NUMBER!":104500*:::*:"HIT (ESC) OR FC32:LC95:660:LNSW: GET LINE2L$(L)T$I(EC$"ESC")ī7850YFLBSī7450uxLBSME$"BUFFER FULL"}TLNM$NU$@ *******************' *** PRINT MARGIN ***B'MA$BL$(L)BL$t'L9MA$(L)BL$'MA$;' FINISH.":LNSWTI$"TIME"ĺ"ENTER A VALID TIME LIKE 7:30 AM,":"THEN ENTER YOUR APPOINTMENT MESSAGE":"BELOW IT..."::"TIME (HH:MM AM/PM): ";L0LL1L(NM$"NUMBER")İ10000~WR$"WRAP":LNSWTI$"TIME"WR$"NOWRAP":LN8% INPUT REC ***  IMPORT: PR$8& EXPORT: L$(T),ME$>XYbT0TY$".MES"ī7050l::"OKAY TO ERASE CURRENT MEMO IN BUFFER? ";:K$vK$"Y"ME$"CANCELED":7950EC$NU$WW$NU$ "ENTER YOUR ";PR$;":": R"HIT (ESC) TO";ME$;" ***"pME$NU$ĺ'ME$NU$-7::?8N0IjNN1bOM: OPTION NUMBERnO1OMvO$2(NOF)ĺ10);O$:d(NOF)ī6250"SELECT ONE OF THE ABOVE: ";:CH$,^ ********************** ***CH$"D")(CH$"E")(CH$"P")İ24650:5150H(CH$"Q")(CH$EK$)ī5500eJME$"CHOICE NOT ON MENU"k| ******************** *** MENU GENERATOR *** IMPORT: ME$,DATAv EXPORT: CH$,EC$EC$NU$  >(ME$NU$)ĺ"*** ***********************B *** CARD FILE FIND MENU ***H\V GOSUB MENUGENhEC$NU$tOP$NU$ CASE CH$,ESC QUIT (SAME PATH)OF4:5600PCH$"D"OP$"DISPLAY"(CH$"E")OP$"DELETE"(CH$"P")OP$"PRINT")(HbDE$"DATA":41555,6pb:D$;"OPEN ";F$TY$P6b(OP$"DELETE")ĺD$;"OPEN TEMP"g6bTY$".APT"ī25600p6c:868c"ENTER A KEY WORD TO SEARCH FOR, BELOW: ":"(TO MATCH ALL CARDS, JUST TYPE AN '*')":6jcLNSW:FC32:LC95:660 7c(EC$"ESC")ME$"CAN` ********************35J` *** FIND RECORDS ***:5|` F5`EC$NU$Z5aFO$"NOT FOUND"i5DaPR$"FILE"5vaCF$"SHOULD BE":TY$".APT"İ15700: FILENAME5aTY$".APT"ī251505aED$NU$5 b(EC$"ESC")ME$"CANCELED":264005>b(ME$NU$)ī2640064*] EXPORT: GI$4] #4]EC$NU$/4$^GI$NU$R4V^(KE$"*")GI$"GOT IT":245504^(FU$"ORDER")(K2$KE$)GI$"GOT IT":245504^(FU$"ORDER")(K2$KE$)ī245504^L04_LL14P_L$(L)KE$GI$"GOT IT":245504_(LT)ī243504_FU$NU$:5A":415553[(36[D$;"APPEND ";F$TY$@3h[D$;"WRITE ";F$TY$O3[OU$"DISK"c3[11250: PUTREC{3[D$;"CLOSE ";F$TY$30\ME$"APPENDED TO "F$" FILE"3b\3\ *************************3\ *** KEY/ORDER MATCH ***3\ IMPORT: KE$,L$(T),FU$ ";F$TY$!2YD$;"WRITE ";F$TY$92BYD$;"CLOSE ";F$TY$P2tY13250: ADD INDEXf2~YME$"CREATED "F$2YEX0ME$"CLEARED "F$2Y2Y ********************2 Z *** APPEND RECORD ***2IED$NU$+I(ED$"EOF")ĄT+I(ED$"EOF")ī19300+JL1T+8JL$(L)NU$+jJC$+J(C$RE$)ī19250 ,JL$(L)LOWED":184004*E(EC$"ESC")ME$"CANCELED":18400K*E(ME$NU$)ī18400b*E17200: WAITMESSx*F:13);"WRITING"*(FDE$"DATA":41555*PFD$;"OPEN ";F$TY$*FD$;"WRITE ";F$TY$*FOU$"DISK":11250: PUTREC +F:D$;"CLOSE ";F$TY*** )bC)C12/)C" PLEASE WAIT"5)CQ)*D *********************i)\D *** SAVE FILE ***o)D{)DEC$NU$)$E(T0)ME$"NOTHING TO SAVE":18400)VECF$"SHOULDN'T BE":15700: GET FILE NAME *oE(LE1FL)(EX0)ME$"NO MORE "PR$"S AL"OVERWRITE ";F$;"? ";:K$:(K$"Y")ME$"CANCELED"?(D}MDMD1:CO$NU$aD,~MD$(MD):MD10MD$"0"(MD)D^~F$"C"(YY$,2)MM$MD$:15150: EXISTSD~MD9S3D~MD9S4D~(CP$"PRINT")(EX0)N1:CO$":"D&SN);DXEX0Ğ ECONEXT MONTHCp{C{5C{ *** DISPLAY CALENDAR ***]C{CP$"PRINT"ĺ:D$;"PR#";PS$:E$LF$}C{DWWD: SAVE FOR FUTURE REFC|:E$:E$C8|16);MN$(MM);E$:E$Cj|D17C|3);(DN$(D),2);C|C}E$D2}"--------------------------------------KDAY COUNTER-BJy COUNT UP TO SELECTED MONTH5B|yM0?ByMM1RBy(MMM)ī31700rBzMD0: DAY OF MONTH COUNTER~BDzMDMD1BvzWDWD1BzWD7WD1: START WEEK OVERBz IF MONTHDAY < MONTHSIZE(M)B {MDMS(M)ī31300: NEXT DAY C>{MMMī31150: 1960.Av 28 #'S IN SEQUENCE, SEE LINE 44100KA$w(YI28)YIYI28:30500XAVwCAC(YI)rAw FIND THE MONTH NAMEAwMO$MN$(MM)Aw IS IT A LEAP YEAR?Ax(CA7)MS(2)29Ax FIND THE FIRST DAY OF YEARAxFDCAAx(CA7)FDCA7 ByWDFD: WEE GETDIGITS"@tEC$"ESC"ī35900@@0uMM(FE$(1)):YY(FE$(2))Z@buMM$FE$(1):YY$FE$(2)@u:10:13);"HOLD ON"::10);"I'M COUNTING..."@u@*v@\v@v **** CALCULATE INDEXES ****@v FIND CALENDARAvYIYY1959: SEQ OF CAL #'S STARTS AT;?rCP$:CP$EK$ī359006? sCP$"P"CP$"DISPLAY"O?qEC$"ESC"ī35900A>HqF2$"C"(FE$(3),2)FE$(1)FE$(2)W>zq13850: GETINDEXt>qX1: FOR EACH APPT FILE>q(XLE)ī29300: NO APPTS ANYWAY>rF2$FT$(X)F$FT$(X):21150:29100>BrXX1:29150>tr:1:12?r"DISPLAY OR PRINT (D/P)? ".APT" =o1=o *** DELETE OLD APPOINTMENTS ***A=pN111::q=&p"SO THAT PAST APPOINTMENTS CAN BE ERASED,"w=Dp=Np"PLEASE ENTER THE CURRENT DATE: ";=pGD$"MM/DD/YY"=pFV(1)1:FV(2)1:FV(3)61>pLV(1)12:LV(2)31:LV(3)99:26500: DIGIT FEAD CALENDAR DATA *****U@HUrTT1NUhU֜ *******************U *** ADD RECORD ***U:NM$"NUMBER":6800Ul::"WOULD YOU LIKE TO CHANGE THIS? ";:K$:(K$"Y")İ37450UK$EK$ME$"CANCELED":40600,VН5 T660T L$(I)T$:TT1'TRII1=TEC$"ESC"ī39450NTTBSī39000jT虭TBSME$"BUFFER FULL"pTTL ***************************T~ *** DELETE LINE ***TT⚺"LINE TO DELETE ";TGD$"NN":FV(1)1:LV(1)TTF26500 UxEC$"ESNSERT A LINE ***S;S,(TBS)ME$"BUFFER FULL":39450VS^"LINE BELOW INSERT ";zSGD$"NN":FV(1)1:LV(1)T:26500S—EC$"ESC"ī39450SI(FE$(1))S&SXLT1I11:L$(L)L$(L1):SNM$"NUMBER":10000TWR$"WRAP":LNSW:FC32:LC9 SPACE IN BUFFER":37650(RԔ1:39):1BRK$"C"İ10300:37650\R8K$"I"İ38600:37650vRjK$"D"İ39550:37650RK$"A"İ40700:37650RΕ(K$EK$)K$NU$:38500RME$"CHOICE NOT ON MENU"R237650RdR *******************SȖ *** IQ|QEC$NU$:Q(T0)ME$"NOTHING TO CHANGE":38500@QDaQvME$NU$ĺ"*** ";ME$;" ***"pQME$NU$ĺ|QړME$NU$Q ::Q>NM$"NUMBER":11250: PUTRECQp::"CHANGE, INSERT, DELETE, APPEND, ESC? ";:K$R(K$"I")(TBS)ME$"NO MOREPOU$"DISK" "NOVEMBER","DECEMBER"cp "SUNDAY","MONDAY","TUESDAY"c "WEDNESDAY","THURSDAY"cԭ "FRIDAY","SATURDAY" d **************IDAY","SATURDAY"/b ************************R"Nbԭ "FRIDAY","SATURDAY"mb ************************R"AUGUST","SEPTEMBER","OCTOBER"b> "NOVEMBER","DECEMBER"bp "SUNDAY","MONDAY","TUESDAY"b "WEDNESDAY","THURSDAY"cԭ "FRIDAY","SA8,3,4,51av 31,28,31,30,31,30,31,31,30,31,30,31Ta "JANUARY","FEBRUARY","MARCH"vaڬ "APRIL","MAY","JUNE","JULY"a "AUGUST","SEPTEMBER","OCTOBER"a> "NOVEMBER","DECEMBER"ap "SUNDAY","MONDAY","TUESDAY"a "WEDNESDAY","THURSDAY"bԭ "FR#` "ERASE CARDS (E)"F`J "PRINT CARDS (P)"g`| "QUIT (ESC)"` *********************`૲ **************************` ** PERPETUAL CAL DATA **aD 13,1,2,3,11,6,7,1,9,4,5,6,14,2,3,4,12,7,1,2,10,5,6,7,C)"_V CARD FILE MENU4_ 6,"CREATE FILE (C)"R_ "ADD CARD (A)"o_쩃 "FIND CARD (F)"_ "DELETE FILE (D)"_P "LIST FILES (L)"_ "QUIT (ESC)"_ CARD FILE FIND MENU`檃 4,"DISPLAY CARDS (D)" (ESC)"^b MEMO MENU<^ 8,"ENTER MEMO (E)"Z^Ƨ "CHANGE/VIEW (C)"v^ "PRINT MEMO (P)"^* "SAVE MEMO (S)"^\ "RETRIEVE MEMO (R)"^ "DELETE MEMO (D)"^ "LIST MEMOS (L)"_$ "QUIT (ES******** ] *** MENU DATA ***0]ҥ MAIN MENUP] 7,"WRITE MEMO (W)"r]6 "CARD FILE (F)"]h "APPOINTMENTS (A)"] "CALCULATOR (C)"]̦ "HARDWARE TYPE (H)"] "INIT DATA DISK (I)"^0 "QUIT -BOOT."X\:"IF YOU KEEP GETTING THIS ERROR, YOUR":"DISK OR DRIVE MAY BE DEFECTIVE."c\41900\"THERE MAY BE A PROBLEM WITH":"YOUR COMPUTER'S MEMORY."\"ERROR CODE: ";ER\ޣ"AT LINE NUMBER: ";(218)(219)256\<]n *****************N ECOUNTERED":"BY DESKMASTER."::>[\ER$"COMPUTER"ī41880m[f"THIS PROBABLY MEANS THAT THE WRONG DISK"[p"WAS IN THE DRIVE AT THE WRONG TIME, OR"[u"IT WAS WRITE PROTECTED, AND SHOULDN'T":"HAVE BEEN."\z:"RE-INSERT THE PROGRAM DISK AND RE LINE NUMBER$Z(ER5)ED$"EOF":DZ (ER9)ME$BE$"DISK FULL"aZ%(ER16)ER$"COMPUTER"Z*ME$BE$"DISK FULL"ER22ġ:41770Z4ME$BE$"DISK FULL"ī2110Z>ZCER$"COMPUTER"ZH(ER16)(ER0)ER$"DISK"#[R"A ";ER$;" ERROR HAS BEE(DK$"PROGRAM")(DE$"PROGRAM")ī415957Y]:N17::cYb"INSERT THE DESK MASTER ";DE$;" DISK."vYx16850: PAUSEYy41557Y{Y} **************************Y **** ERROR HANDLING ***YER(222): ERROR CODE ZEL(218)(219)256: GETXED$"EOF"ĄT"XD$;"CLOSE"8XꡭED$"EOF"İ21150>X]XN ************************yXS *** CHECK DISK ID ***XTDK$"NOID"XU:D$;"OPEN IDENT.DM":D$;"READ IDENT.DM"XVDK$:D$;"CLOSE IDENT.DM"XW(DK$"DATA")(DE$"DATA")ī41595&YX00: NUMBER MARGIN#WNM$"NUMBER"IWğWR$"WRAP":LNSW:FC32:LC95:660VWL$(T)T$mW(EC$"ESC"ī40800sWZW ********************W *** DELETE EMPTY DAY ***WȠDE$"DATA":41555W:D$;"OPEN ";F$TY$W"ED$NU$WTD$;"READ ";F$TY$ٍLOSE IDENT.DM"32 (DK$"DATA")(DE$"DATA")ī2670^< (DK$"PROGRAM")(DE$"PROGRAM")ī2670oF :N17::P "INSERT THE DESK MASTER ";DE$;" DISK"Z 2500: PAUSEd 2590n x **************************************N**************** AND START OVER." : ****** WAIT FOR RESPONSE ***@ J ::m "HIT ANY KEY TO CONTINUE...";u K${ ********************* *** CHECK DISK ID ***  DK$"NOID"  :D$;"OPEN IDENT.DM":D$;"READ IDENT.DM"( DK$:D$;"CER(222): GET ERROR CODEK @EL(218)(219)256: GET ERROR LINE NUMBER JER4ĺ"THE PROGRAM DISK SHOULD NOT BE WRITE-":"PROTECTED AT THIS TIME.":"PEEL OFF THE WRITE-PROTECT TAB":"AND START OVER." TER8ĺ"DISK ERROR.":"RE-INSERT PROGRAM DISKNS" D$;"OPEN SPECS.DM"4 D$;"WRITE SPECS.DM"G PS$:AL$:SW$W D$;"CLOSE" DE$"PROGRAM":2570: CHECK DISK ID :N111:::6);"LOADING DESK MASTER" D$;"RUN INIT.DM" + , ************** ERROR ROUTINE *************** 6(AL$NU$)ī130% AL$NU$AL$DF$+ 8 DF$"40"W "MAXIMUM COLUMNS ALLOWED" "ON SCREEN (1-132)? <";DF$;:"> ";SW$ ((SW$)1(SW$)132)SW$NU$ī175 SW$NU$SW$DF$ SW$((SW$)5) :N112:::6);"SAVING SPECIFICATIORN";::" KEY." v:# wDF$"1"F x"PRINTER SLOT# (1-7)? <";DF$;T y"> ";PS$ z(((PS$)1)((PS$)7))(PS$NU$)ī120 ~PS$NU$PS$DF$  DF$"Y" "AUTO LINEFEED FOR PRINTER (Y/N)? <";DF$; "> ";AL$ (AL$"N")(AL$"Y") P300ZNU$"""dD$(4)(nVo"******* HARDWARE SPECIFICATIONS ******"^p:s"JUST HIT ";::"RETURN";::" IF YOU WANT THE"t"ANSWER IN BRACKETS <>." u:"OTHERWISE, TYPE IN THE APPROPRIATE":"RESPONSE AND HIT THE ";::"RETU     "AM")(DE$"PROGRAM")ī2670+ F :N17::V P "INSERT THE DESK MASTER ";DE$;" DISK"h Z 2500: PAUSEr d 2590x n 7:: P "INSERT THE DESKMASTER ";DE$;" DISK" Z 2500: PAUSE d 2590 n 6 ::) "HIT ANY KEY TO CONTINUE...";1 K$7 S *********************o *** CHECK DISK ID ***~  DK$"NOID"  :D$;"OPEN IDENT.DM":D$;"READ IDENT.DM" ( DK$:D$;"CLOSE IDENT.DM" 2 (DK$"DATA")(DE$"DATA")ī2670 < (DK$"PROGRE$"PROGRAM":2570: CHECK DISK ID( U N111:::9);"RELOADING DESK MASTER"q D$;"RUN DESKMASTER.DM"w   ** WRITE BLANK INDEXES ** "0L" F139 "0N"  D$;"CLOSE"  ****** WAIT FOR RESPONSE ***  MEMOINDEX"% D$;"WRITE MEMOINDEX". 700F D$;"OPEN CDXINDEX"_ D$;"WRITE CDXINDEX"h &700 0D$;"OPEN APTINDEX" :D$;"WRITE APTINDEX" D700 D$;"CLOSE" :N111:: "INSERT PROGRAM DISK AGAIN AND HIT KEY..";:K$:" D:: *255 +TI11000:C ,"HIT ANY KEY WHEN READY.";:K$I i ****** SET UP FILES ***** :D$;"OPEN IDENT.DM" D$;"WRITE IDENT.DM" "DATA":D$;"CLOSE IDENT.DM" N111:::6);"WRITING FILE INDEXES..." D$;"OPENy DATA HELLO PROGRAM$3000D$(4):N111:::"INSERT A BLANK, INITIALIZED DISK TO BE":"SET UP AS A DESK MASTER DATA DISK.":#::"WARNING";::":"%TI11000:'100(:" THE CONTENTS WILL BE OBLITERATED..." ):     XPORT: NUN0NN1F(NLE)ME$"UNDEFINED VARIABLE":1470e(N$(N)ID$)NUV(N):1470o1430ME$"UNDEFINED VARIABLE" ****************** *** ASSIGN A VALUE ***C$(I$(3),1):5000 (I3)(TP$"NUMERIC" IMPORT: NU,ID$(N0'2NN1F<(N$(N)ID$)V(N)NU:1380XF(NLE)ī1330P(LEMV)ME$"TOO MANY VARIABLES":1380ZLELE1:N$(LE)I$(1):V(LE)NUdw *********************x *** GET VALUE FROM TABLE ***  IMPORT: ID$ E0C$"-"S(TP1)S(TP1)S(TP):TPTP1:1230`C$"*"S(TP1)S(TP1)S(TP):TPTP1:1230C$"/"S(TP1)S(TP1)S(TP):TPTP1:1230TPTP1:S(TP)(C$)NUS(TP) *********************** *** PUT VALUE IN TABLE ***:PCPSİ2000:TPTP1:S$(TP)C$:1090N<(C$"(")TPTP1:S$(TP)C$:1090_> IDENTIFIERr@PP1:P$(P)C$xBD2000: EMPTY STACKt *** EVALUATE POSTFIX ***~TP0C1PC$P$(C)C$"+"S(TP1)S(TP1)S(TP):TPTP1:1230I$(C)0*(C$")")İ2000:1090: EMPTY OPSTACK>,PC1:PS1q.(C$"*")(C$"+")(C$"/")(C$"-")ī10840(C$"*")(C$"/")PC22TP0PS0:10804(S$(TP)"*")(S$(TP)"/")PS26S$(TP)"("PS08PCPSTPTP1:S$(TP)C$:1090(LOADING DESK MASTER..."5:D$;"RUN DESKMASTER.DM"X *** POSTFIX AND EXECUTE ***w *** REM INFIX TO POSTFIX ************************** IMPORT: I$(I) EXPORT: P$(P)  POSTFIX FROM I$ TO P$$TP0:P0&CIBI(C$11:X$:X$::300RI$(1)"EXAMPLES2"Į::X111:X$::X1224:X$:X$::300yI1ID$I$(1):1400:ME$NU$ī690I1ME$NU$ī300IB1:1000: POST/EXNU;E$300 DE$"PROGRAM":2570: CHECK DISK ID:N111:::8);"REASSIGN VALUE9mI$(1)"HELP"İ6000:300: LIST COMMANDSVoI$(1)"LIST"İ1600:300qI$(1)"CLEAR"LE0:N1MV:N$(N)NU$::300vI$(1)"PON"ĺ:D$;"PR#";PS$:E$LF$:300I$(1)"POFF"ĺ:D$;"PR#0":E$NU$:300I$(1)"EXAMPLES1"Į::X1C1))):N$"VAL":570>(TP$"OPERATOR")II1:I$(I)C$:570D:D(IN$"ID")(I1)ID$I$(I):1400:I$(I)(NU):ME$NU$ī300W ************************X *** DETERMINE FUNCTION ***b IMPORT: I$(I) l(I$(2)"=")(I2)İ1500:300: (TP$"NUMERIC")(N$"VAL")ī570M (TP$"NUMERIC")(N$"VAL")N$"NOTVAL" (TP$"ALPHA")(IN$"NOTID")II1:I$(I)C$:IN$"ID":570 (TP$"OPERATOR")(IN$"ID")I$(I)I$(I)C$:570(TP$"NUMERIC")(N$"NOTVAL")II1:I$(I)(((T$,(T$)000: GET CHAR TYPE TP$F (TP$"BAD CHAR")ME$"BAD CHARACTER":300s (TP$"NUMERIC")(N$"VAL")N$"NOTVAL" (TP$"OPERATOR")(IN$"ID")(C$"=")ID$I$(I):1400:I$(I)(NU):ME$NU$ī300 (TP$"OPERATOR")(IN$"ID")IN$"NOTID":508 TSTRING ^EC$"ESC"ī800, hT$NU$ī300H  *********************y  *** PARSE INFIX EXPRESSION INTO TOKENS ***  IMPORT: T$  EXPORT: I$(I)  N$"NOTVAL":IN$"NOTID":N1:I0 C1(T$) C$(T$,C,1) C$BL$ī570 5 VARIABLE ASSIGNMENTS,":"OR COMMANDS."::"TYPE HELP FOR A LIST OF COMMANDS.":i + ****************** , *** PROMPT AND GET INFIX EXPRESSION *** 6 EXPORT: T$ J NME$NU$ĺME$;E$:ME$NU$ OE$:": "; TLN80:FC32:LC90:20000: GE LF$""" AL$"N"LF$(10)= ********************X *** PRINT HEADER ***^ d "----------------------------------------";E$ 11:"DESK CALCULATOR";E$ "----------------------------------------";E$P :"ENTER FORMULAS,C 30000+ *** CALC SUBPROGRAM ***1D*** SETUP ***K( ^2NU$"":BL$" "j<D$(4)AMV30:LE0:V(MV),N$(MV)CI$(80),P$(80),S(80),S$(80)FPD$;"OPEN SPECS.DM"ZD$;"READ SPECS.DM"dPS$:AL$:SW$ nD$;"CLOSE"          ٍ ," "B!à ": TOTAL=A+15"," ",": TOTAL", " 30"F " 30" IuER$"COMPUTER"ME$"MATH ERROR"8 NuER22ġ:30030A Xu300_ Pà "SIMPLE CALCULATIONS: "m Zà " "," " dà ": 2+2"," 4"," ", ": 5*5"," 25"," " nà ": 2+ (8/2)"," 6" à "ASSIGNMENTS: "," "," ",!à ": A = 15"," ",": A"," 15":20090#N(CLN)T$T$C$:202507OT$T$C$:20090=O_0u ******* ERROR ROUTINE *****m:uER(222)|>uER$"DISK"?uER0ER15ER$"COMPUTER"DuER$"DISK"ĺ"DISK ERROR. MAKE SURE THE PROGRAM DISK":"IS IN THE DISK DRIVE, AND RE-BOOT.":#NU$ pNC0zNCC1:C$:N(C$(27))EC$"ESC":20250ZN(C$(13))ĺ41C);:20250N(((C$)FC)((C$)LC))(C$(08))CC1:20090N(C$(08))(C1)ĺ;:20060NC$;N(C$(08))(C2)ĺ;:20060N(C$(08))(C2)CC2:T$(T$,C)0"LIKE HELP, TYPE COMMAND AFTER COLON":6RX *** ERROR ROUTINE ***Xb{lME$"ERROR IN EXPRESSION":300N ******************** N *** GET STRING ****N CONST:CW4N IMPORT: LN,FC,LC>N EXPORT: T$,EC$HN\NEC$NU$:T$N")"POFF......... TURNS PRINTER OFF"W"LIST......... LIST VALUES OF VARIABLES""CLEAR........ ERASES ALL VARIABLES""HELP......... LIST THESE COMMANDS""EXAMPLES1.... SIMPLE CALCULATIONS""EXAMPLES2.... VARIABLE ASSIGNMENTS"C$"Z")TP$"ALPHA"F((C$"0")(C$"9"))(C$".")TP$"NUMERIC"(C$")")(C$"(")(C$"+")(C$"-")(C$"*")(C$"/")(C$"=")TP$"OPERATOR" ******************p:5);"LIST OF COMMANDS"z"PON.......... TURNS PRINTER ODE$"PROGRAM")ī2670%F :N17::PP "INSERT THE DESK MASTER ";DE$;" DISK"bZ 2500: PAUSEld 2590rn x ************************** *** DETERMINE CHAR TYPE *** IMPORT: C$ EXPORT: C$,TP$TP$"BAD CHAR"(C$"A")(IT ANY KEY TO CONTINUE...";# K$+ :1 M *********************i *** CHECK DISK ID ***x DK$"NOID" :D$;"OPEN IDENT.DM":D$;"READ IDENT.DM"( DK$:D$;"CLOSE IDENT.DM"2 (DK$"DATA")(DE$"DATA")ī2670< (DK$"PROGRAM")( ::::::::::"hrN1LE5|N$(N);"=";V(N);E$;Ad *** EMPTY OPERATOR STACK ***jzTP0ī2080NTP11S$(TP)"("PP1:P$(P)S$(TP) TPTP1  ****** WAIT FOR RESPONSE ***  :: "H)NU(I$(3))?(I3)(TP$"ALPHA")ID$I$(3):1400: GETVAL^(I3)IB3:1000: POSTEX{ID$I$(1):1300: PUTVAL"@ *** PRINT CONTENTS OF ALL VARIABLES ***JT:YLE1ĺ"NO VARIABLES SET":1699 ^":::::::::: SET VARIABLESٍ͍ "CATALOG"!΍**********N