' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6L65 & "L}"BB5L&]655555553L36 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`7`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"_*]6` L/  !"#$%&'()*+,-./0123456789:;<=>?80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L6 i:5`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmxӠ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n555m5555m555`"L? 585H ~.(3` d ֠z# CARDS IN YOUR HAND AND THE COMPUTER'S HAND WILL BE CHOSEN RANDOMLY AND INDEPENDENTLY DURING EACH ROUND."^::"DO YOU WANT THE MIRROR OPTION? (Y/N) ";^ YN$:YN$"N"YN$"N"MO0:2100^YN$"Y"YN$"Y"MO1:2100^YN$(27)Ĭ31^ 2060:1:1::40);:" MIRROR OPTION SELECTION SCREEN ";40):]:"IF YOU CHOOSE THE MIRROR OPTION, BOTH YOU AND THE COMPUTER WILL HAVE IDENTICAL CARDS IN YOUR HANDS DURING EACH ROUND. "k^"IF YOU CHOOSE NOT TO HAVE THE MIRROR OPTION, THE1(A$)10B$A$:*\(A$)10B$"10":B\(A$)1B$"ACE":\\(A$)11B$"JACK":w\(A$)12B$"QUEEN":\(A$)13B$"KING":\16368,0\P(16384):P" ";:1990\Y13:BUZZ(49200):Y:\ ADVANCED OUTGUESS B] T I E G A M E "&[&T[023:6:"PLEASE PRESS THE [RETURN] KEY.";b[:16368,0[DP(16384):P1411860[N16368,0:31[XX113:DU(X)0:PP(X)0:[bX113[lR%(1)131:DU(R%)11900[vC(X)R%:DU(R%)1::\(A$)SS [ESC] TO QUIT." Z16368,00ZP(16384)KZP155Ĺ16368,0:1790dZP208P240ė:1200nZ1750Z15:1:958:ZYTCTĺ" Y O U W I N ! ! ! "ZYTCTĺ" C O M P U T E R W I N S ! ! " [CTYTĺ" 16368,0Y:\Y:1:1:41):40:" ";:40:" ";:40:" "39)::3:16:"OUTGUESS"Y8:11:"YOUR TOTAL SCORE: ";:YTCTğYYT::Y5:"COMPUTER'S TOTAL SCORE: ";:CTYTğYCT:Z22:7:"PRESS [P] TO PLAY AGAIN OR PRE1620X"YSCS1600IX,"YOU WIN "(YSCS)10" POINTS.":YTYT(YSCS)10SX61630X@"COMPUTER WINS "(CSYS)10" POINTS.":CTCT(CSYS)10XJ1630XT"TIE GAME."X^"PLEASE PRESS THE [RETURN] KEY.";Xh16368,0XrP(16384):P1411650 Y|21,YW23:1:868DW(A$)C(L)ĺ"YOU WIN THE TRICK.":YSYS1xW(A$)C(L)ĺ"COMPUTER WINS THE TRICK.":CSCS1W(A$)C(L)ĺ"TIE...NO ONE WINS THE TRICK."W"SCORE: YOU - ";YS" COMPUTER - ";CS;WWWA11000:WA::XYSCSC(L)10ĺ"10":1450,VC(L)1ĺ"ACE":1450GVC(L)11ĺ"JACK":1450cVC(L)12ĺ"QUEEN":1450~VC(L)13ĺ"KING":1450VY30:X((A$)1)21:4:16X,Y:PP((A$))1V7:Y100:16(C(L)1)21,Y:V4:14(C(L)1)21,Y11:W4:C(L)(C(L)1)$"10":1370&U2A$"J"A$"11":1370@U<A$"Q"A$"12":1370[UFA$"K"A$"13"::1370sUPA$"2"A$"9"1290UZPP((A$))11290Ud1920:B$:22:1:"YOU PLAY "B$;:20:"COMPUTER PLAYS ";UnC(L)1C(L)10ĺC(L):1450Vx)21,Y:2000 ";T A$:TA$(27)Ĭ31TTA$"A"A$"1":1370 U(A$"1"AE MOMENT...":15:"WE ARE RETURNING TO THE PROGRAMS MENU...":104,8:2048,0:(13);:(4);"RUN PROGRAMS"xS&P141510S0:16368,0:S BASIC OUTGUESS S::S1880S0,0:1,12:6144:16304,0SCS0:YS0 TX113:7:Y30:16(X18,0:(13);:(4);"RUN PROGRAMS"0RP141420BR:16368,0:HRNRR24:"[ESC] TO END OR [RETURN] TO CONTINUE ";R:16368,0:16384,128RP(16384)RP155Ğ:1:7:39):::3:11:"WE ARE NOW LEAVING"hSP155ė:13:14)"ON24:"[ESC] TO END OR [RETURN] TO CONTINUE ";HQ:16368,0:16384,128XQP(16384)dQRN(1)QP155Ğ:1:7:39):::3:11:"WE ARE NOW LEAVING" RP155ė:13:14)"ONE MOMENT...":15:"WE ARE RETURNING TO THE PROGRAMS MENU...":104,8:204 PRESS THE [ESC] KEY TO EXIT. ";:yP20:5:"WHICH VERSION OF THE GAME DO YOU WISH TO PLAY? (1 OR 2) ";PV$PV$""P155:450PV$"I"V$"I"ė:60PV$"1"V$"2"390PV$P34,0:(V$)1190,2010P205,255:,Q TIME PRESENTS:":5:20((ZZ$)2)4OhZZ$:34,8:SOr:11:"BY: FRED BURGGRAF"O|13:4:"THERE ARE TWO VERSIONS OF OUTGUESS:"O~:7:"[1] BASIC OUTGUESS"::7:"[2] ADVANCED OUTGUESS"&P:23:1:" PRESS THE [I] KEY FOR INSTRUCTIONS. ":" SS [ESC] TO QUIT." n 16368,00n P(16384)In P155Ĺ16368,0:31vn P208P240ė:CS0:YS0:CT0:YT0:2010n 3230n --- SIMULATE INPUT --- n K1$"":K2$"":K3$""n K1$n K1$(27)Ĭ31n K1$""K1$" "3290 o K1$"0"K1NAL SCORE: "CTmb 17:1:Sml YTCTĺ" Y O U W I N ! ! ! ":mv CTYTĺ" C O M P U T E R W I N S ! ! ":m CTYTĺ" T I E G A M E ":n 22:4:"PRESS [P] TO PLAY ANOTHER GAME OR PREX1NC:YC%(X)C(X):YC(C(X))1::31302l X1NCUl& R%((1)13)1:YC(R%)13110nl0 YC%(X)R%:YC(R%)1:vl: :lD X113:PP(X)(YC(X))::lN --- FINAL SUMMARY SCREEN --- mX 8:1:958:12:11:"YOUR FINAL SCORE: "YT::5:"COMPUTER'S FIk (A$)11B$"JACK":5k (A$)12B$"QUEEN":Ok (A$)13B$"KING":qk --- BUZZ THE SPEAKER --- k Y13:BUZZ(49200):Y:k --- CLEAR OUT CARD ARRAY --- k X113:YC(X)0:k --- RANDOMIZE PLAYER'S CARDS --- &l MO1jh - RANDOMIZE COMPUTER'S CARDS - Ejr X113:DU(X)0:PP(X)0:Qj| X1NCqj R%(1)131:DU(R%)12950j C(X)R%:DU(R%)1::j --- ASSIGN NAMES TO CARDS --- j (A$)1(A$)10B$A$:j (A$)10B$"10":k (A$)1B$"ACE":T" POINTS. ";:Mi GL24MOCTYTĖ3:" COMPUTER CAN WIN "CT" POINTS.";:i" 22:3:"PRESS [P] TO PLAY THE NEXT ROUND OR PRESS [ESC] TO QUIT."i, 16368,0i6 P(16384)i@ P155Ĺ16368,0:3160iJ P208P240ė:GLiT 2870i^ '10:"CURRENT ROUND: "NC" CARD"PE$(NC1)"."Rh 14:15:"YOUR SCORE: ";:YTCTğ\h YT:h :9:"COMPUTER'S SCORE: ";:CTYTğh CT:h GL24MOĢ19:1::" NEXT ROUND IS DOUBLE OR NOTHING. "i GL24MOYTCTĖ3:" YOU CAN WIN "YIE GAME."0g "PLEASE PRESS THE [RETURN] KEY.";>g 16368,0[g P(16384):P1412710ig 16368,0g --- MAIN SUMMARY SCREEN--- g :g :1:1:41):40:" ";:40:" ";:40:" "39)::3:16:"OUTGUESS"g GL25MO3160,h 8:"YOU WIN "HM10(HM0)10" POINTS.":YTYT(HM10)(HM0)10:2690pfF YTCTĺ"YOU WIN "YT" POINTS!":YT(YT2):zfP 2690fZ GL25MOĺ"COMPUTER WINS "CS10" POINTS.":CTCTCS10:2690fd CTYTĺ"COMPUTER WINS "CT" POINTS!":CT(CT2)fn 2690 gx "TS TAKEN: YOU - ";YS" COMPUTER - ";CS;-e Ee --- PAUSE --- Ye WA11000:WA:{e --- SUM UP THE ROUND --- e( 21:1:958:"YOU PREDICTED YOU WOULD WIN "HM" TRICK"PE$(HM1)".":"ACTUAL NUMBER WON: "YS"."e2 HMYS2650Af< GL25MOĺ:Y100:16(C(L)1)21,Y:6d 4:14(C(L)1)21,Y11:Qd 4:C(L)(C(L)1)21,Ybd 23:1:868d (A$)C(L)ĺ"YOU WIN THE TRICK.":YSYS1d (A$)C(L)ĺ"COMPUTER WINS THE TRICK.":CSCS1d (A$)C(L)ĺ"TIE...NO ONE WINS THE TRICK."'e "TRICK"B$;:20:"COMPUTER PLAYS ";Fcj C(L)1C(L)10ĺC(L):2470_ct C(L)10ĺ"10":2470xc~ C(L)1ĺ"ACE":2470c C(L)11ĺ"JACK":2470c C(L)12ĺ"QUEEN":2470c C(L)13ĺ"KING":2470c Y30:X((A$)1)21:4:16X,Y:PP((A$))1d 7 "A" THEN A$ = CHR$ ( ASC (A$) - 32)>b A$"A"A$"1":2390Xb$ A$"1"A$"10":2390rb. A$"J"A$"11":2390b8 A$"Q"A$"12":2390bB A$"K"A$"13"::2390bL A$"2"A$"9"2310bV PP((A$))12310&c` 2980:B$:22:1:"YOU PLAY DICTION AND THEN PRESS THE [RETURN] KEY ---> ";:3280:21:1:958PaHM(HM$)eaHM0HMNC2250a --- PLAY OUT THE CARDS --- aL1NCa21:1:"YOUR PREDICTION: "HM" YOUR PLAY ---> ";a A$:a A$(27)Ĭ31%b IF A$ = >1)21,Y:3050=`Y41:5:SL((I2)(I2)):15(I1)21SL,YW`4:Y30:I(I1)21,Y^`I`16301,0:16300,0:16297,0:16304,0:16368,0` --- GET PREDICTION --- Ba21:1:958:"PREDICT: HOW MANY TRICKS WILL YOU TAKE?":"TYPE YOUR PRE_* START OF GAME LOOP M_4GL1MO25MO:NCGL((GL13)((GL13)2))V_>AN0`_H::_R0,0:1,12:6144:16304,0_\CS0:YS0:PE$(0)"":PE$(1)"S"_f2930:3070_p --- DRAW CARDS --- _zI113_PP(I)12220 `7:Y30:16(I519570S#X64Y15195802S#X124Y1519590 once you"@"have entered the program."~$:2:24:" PRESS TO CONTINUE. ";(8);:.R$:R$(13)10708ABINIT,LOAD,SAVE,RUN,CHAIN,DELETE,LOCK,UNLOCK,CLOSE,READ,EXEC,WRITE,POSITION,OPEN,APPEND,RENAME,NDER', use the ":1060:7:1:958:"arrow keys to move the cursor over the ""item that you wish to change or function":"you wish to use and press . To ":"quickly jump to the end of the list of ":"options, press .":::"For more i your standard DOS 3.3":"commands, (such as 'RUN', 'LOAD',"::"'CATALOG', etc.) For example, you can ":"change the 'catalog' command to 'C'.":N"Later, whenever you type 'C', you will"::"catalog your disk.":::"To operate the 'DOS COMMANDER".9:" By Dave Hersey":14\" Would you like instructions? (Y/N) ";uR$:R$"N"R$"n"ı::41):40:2):40:2):40:41)::3:13:"][ INSTRUCTIONS ][":7"The 'DOS COMMANDER' allows you to change":"the names of.":::2:"LEAVE PROGRAM:";::" EXITS PROGRAM."`24:" PRESS WHEN FINISHED. ";yAA$:AA$(13)940::LOC43140:120::41):40:2):40:2):40:2):40:2):40:41)::3:3:"UP TIME PRESENTS:":5:16:"THE DOS COMMAlighted, press . You may":"replace the command with any name as ""long as it is not longer than the"::"original command.":::2::"SAVE CHANGES:";::" STORES THE NEW COMMANDS."12::"RESTORE SETUP:";::" RESTORES OLD COMMANDSSD16336qpLOC43140:T027:SND(SD):C1(OC$(T)):LOC,((OC$(T),C,1)):LOCLOC1:C,T:LOC,0:LOC43140:z::11:"[] INSTRUCTIONS []":N4:"Use the arrow keys to move the cursor. ":"When you wish to change a command that ":"is high COMMANDS":=4BC$NC$(24):(BC$)1BC$((BC$)128):840h>BC$(BC$,(BC$)1)(((BC$,1))128)HD$;BC$;N$;",A43140,L"LOC43140R:" WHENEVER YOU WISH TO INSTALL THESE":" COMMANDS, TYPE 'BLOAD ";N$;"'.":1060\ RESTORE ORIGINALS f$"9"3290o K1$;o K2$0o K2$(27)Ĭ31Ko K2$""ĺ" ";:3280bo K2$" "HM$K1$:|o K2$"0"K2$"3"3330o* K2$;o4 K3$o7 K3$(27)Ĭ31o> K3$" "HM$K1$K2$:oH K3$""ĺ" ";:3330oR 3380QXX1:X101İ320:770/AR$(X,LN)""ī1010APİ870:1010P900:1010{V34,9::14)"PRINT LABELS":34,10::?`::"IF YOU HAVE NOT USED OPTION NUMBER 2 TO ":"SAVE YOUR MOST RECENT UPDATES, ALL NEW ":"INFORMATION WILL BE LOST! 63,39,45,45,45,45,45,54,54,54,54,62,0,0,0,219,54,37,21,77,73,45,60,12,28,8,24,8,32,60,62,56,219,27,63,46,30,6,09,36,36,44,0,0,0,45,45,220,35,33,41,224,63,23,6,0,0,0,168,45,12,228,103,12,63,63,6,0,0,0,73,44,56,63,103,13,36,23,6,0,0,0ob}%54,39,60,54,39,36,45,45,54,46,36,36,63,63,39,45,45,45,54,54,46,36,36,36,63,63,63,39,45,45,45,45,54,54,54,46,36,36,36,36,63,63,63,5,7,0,0,0,9,36,36,60,47,9,53,0,0,0`{%32,36,108,9,54,54,30,63,7,0,0,0,9,12,12,36,60,219,54,54,41,0,0,0,32,36,44,73,54,54,30,28,188,58,0,0,0,77,33,223,99,13,28,28,13,12,223,51,0,0,0,9,36,60,40,41,56,219,6,0,0,0ya|%45,45,220,27,12,12,12,12,63,63,6,0,0,0,,36,36,5,0,0,0,36,36,172,14,110,36,188,150,49,4,0,0,0,36,36,172,14,14,86,36,36,52,0,0,0,41,45,32,36,28,63,23,54,54,0,0,0"`z%36,36,44,45,21,246,63,5,0,0,0,32,36,12,45,21,54,31,14,21,31,63,0,0,0,36,36,44,45,21,54,59,55,9,21,4,0,0,0,45,45,32,28,63,7,32,41,4,0,0,45,45,220,27,36,45,101,56,63,55,6,0,0,0^x%36,77,56,63,36,45,45,7,0,0,0,41,45,32,63,19,35,36,12,45,21,6,0,0,0,36,36,172,42,45,36,150,54,4,0,0,0,41,229,36,36,47,49,0,0,0,168,45,32,36,60,13,6,0,0,0x_y%36,36,44,73,30,23,119,21,21,4,0,0,0,45,45,220,270,211,0,224,0,236,0,248,0,3,1,17,1,31,1,44,1,54,1,66,1,78,1,91,1,105,1,116,1,130,1,137,1,150,1,162,1,174,1,232,1,^w%36,36,33,41,170,62,63,78,49,4,0,0,0,36,36,44,45,21,30,63,78,49,30,63,5,0,0,0,32,36,12,45,21,150,30,63,7,0,0,0,36,36,44,45,21,54,30,30,63,0e":60102\N%22:"ACROSS Mother of Apollo":6010S\X%22:"ACROSS Not one":6010s\b%22:"ACROSS Jumble":6010\l%22:"ACROSS Always":6010p]v%22:"ACROSS Ilium":6010:446,32,0,66,0,79,0,94,0,106,0,118,0,132,0,143,0,157,0,169,0,178,0,188,0,201,010)[%24:" DOWN Nevada city";:6010N[%24:" DOWN Three pips";:6010u[%24:" DOWN Change: abbr";:6010[&%22:"ACROSS Roster":6010[0%22:"ACROSS Grain by-product":6010[:%22:"ACROSS German river":6010\D%22:"ACROSS Encouragmale animal":24:" DOWN Giver";:6010bZ$22:"ACROSS Injury":24:" DOWN Streetcar";:6010Z$24:" DOWN Gown";:6010Z$24:" DOWN Brews";:6010Z$22:"ACROSS Associate":24:" DOWN Delicacy: arch";:6010[$24:" DOWN Smell";:6e";:6010IY$22:"ACROSS East Indian tree":24:" DOWN Offer";:6010iY$22:"ACROSS Divide":6010Y$24:" DOWN Mature beings";:6010Y$22:"ACROSS Birds":24:" DOWN Overcame";:6010Y$22:"ACROSS Dreadful":6010(Z$22:"ACROSS Fed";:60103X^$24:" DOWN Foreign dollars";:6010YXh$22:"ACROSS Having wings":6010Xr$22:"ACROSS Pen":24:" DOWN Suitable";:6010X|$22:"ACROSS Fish eggs":6010X$22:"ACROSS Jewel":6010 Y$22:"ACROSS Irritate":24:" DOWN PrunROSS Asylum":24:" DOWN Witches";:6010_W,$24:" DOWN Toward the sheltered side";:6010W6$24:" DOWN Seductive woman";:6010W@$22:"ACROSS An insect":24:" DOWN Box";:6010WJ$24:" DOWN Cleaving tool";:6010 XT$24:" DOWN A birn attack":6010/V#22:"ACROSS Zealot":6010RV#24:" DOWN A weight";:6010tV#22:"ACROSS Actually":6010V$24:" DOWN Acticle: German";:6010V$22:"ACROSS Deity":6010V$22:"ACROSS Eager":24:" DOWN Ascend";:6010+W"$22:"ACbird";:60106U#24:" DOWN Whirling motion";:6010XU#22:"ACROSS Confused":6010~U#22:"ACROSS First garden":6010U#22:"ACROSS City in Rumania":6010U#22:"ACROSS A beast":6010U#22:"ACROSS A tree":6010V#22:"ACROSS Sudde:24:" DOWN Lukewarm";:6010MTd#24:" DOWN Pertaining to verse";:6010pTn#24:" DOWN A number";:6010Tx#24:" DOWN Weaken";:6010T#22:"ACROSS Orifice":24:" DOWN March";:6010T#24:" DOWN By mouth";:6010 U#24:" DOWN A BELS -> MAKE MAILING LABELS":" EITHER SINGLY OR":" FROM ENTIRE LIST"' :"G - CATALOG DISK"::"H - CLEAR FILE -> REMOVES ALL DATA FROM":" MEMORY"' :"J - QUIT":6( " ** REMEMBER - YOU MUS LIST RECORD #,":" LAST NAME,PHONE":" --TYPE A KEY TO":" PAUSE LIST"& :"E - UPDATE FILE -> ADD,CHANGE,DELETE":19)"A RECORD -- START":19)"A NEW FILE"l' 5000:"F - PRINT LAPTIONS"::"A - LOAD FILE -> GET A SET OF ADDRESSES"::"B - SAVE FILE -> SAVE SET ON DISK"% 5000:"C - LIST A RECORD -> SEE ADDRESS THAT":" CORRESPONDS TO AN":" ENTERED LAST NAME"& :"D - LIST ALL RECORDS ->RE ARE NINE OPTIONS AVAILABLE."::"BUT FIRST, SOME DEFINITIONS..."$ 5000:" A FILE IS A WHOLE SET OF ADDRESSES"::" A RECORD IS ONE ADDRESS. THERE ARE"::" 100 RECORDS IN ONE FILE."[% "---------------------------------------":16);"O2140 # J# X101ė:"'";SK$;"' ";::"- NOT ON FILE -";:22:1:320:#$ K(16384):K127Ĺ16368,0:R$:R$(27)ġ:2140#. C$ :"THIS PROGRAM IS A BASIC FILING SYSTEM"::"WHICH LETS YOU KEEP TRACK OF YOUR"::"FRIENDS' ADDRESSES.":::"THEER$"WRITE PROTECT":ER4ER$"END OF DATA":ER5ER$"FILE NOT FOUND":ER6ER$"I/O":ER8ER$"DISK FULL":ER9ER$"FILE LOCKED":ER10ER$(ER)"ER$" ERROR DETECTED !"::""ERROR IS IN LINE: ";(218)(219)256:":320:"216,0# !" J - QUIT":N!49168,0::"SELECT AN OPTION => ";:21:R$:R(R$)64!R1130,1260,400,330,470,770,1430,2000,3000,1120::2155!:(4);"PR#0":::K15:(7);::10:" >>> DATA ERROR <<< ":::"ER(222):ER$"NEXT WITHOUT FOR":ER0AD A FILE"# l" B - SAVE A FILE"G q" C - LIST A SPECIFIC RECORD"n {" D - LIST ALL RECORDS ON FILE." " E - UPDATE CURRENT FILE IN MEMORY" " F - PRINT LABELS" " G - DISK CATALOG" " H - CLEAR CURRENT FILE" " I - HELP"(7)"> ENTER INPUT: ";:R$:R(R$):7\0:::2260f::41):40:2):40:2):40:2):40:2):40:41)::3:12:"UP TIME PRESENTS:":4:12:"THE ADDRESS BOOK":34,9:iNM$""NM$"EMPTY"j6:2:"CURRENT FILE IS: ";NM$: k" A - LO"THIS FUNCTION WILL CLEAR ALL CURRENT ":"ADDRESSES. ARE YOU SURE YOU WANT TO ":"CLEAR THE MEMORY? Y/N ";:ZZ$:ZZ$"Y"2140423:(7)"^ ENTER SELECTION":23:R$:R(R$):>(R$)1(R$)9R(R$):H2100%R23:(7)(4);"CATALOG" NM$FILE$}::"YOUR FILE IS NOW ON DISK AS A TEXT FILE "::"FILE NAME: ";FILE$::250:320:214027014)"DISK CATALOG"34,10:(4);"CATALOG"250:3202140270:7:"[ CLEAR CURRENT FILE ]"::"OPEN ";FILE$;",L256"/((4);"DELETE ";FILE$A2(4);"CLOSE"a<(4);"OPEN ";FILE$;",L256"zF(4);"WRITE ";FILE$PX0100ZY07dAR$(X,Y)n:(4):17::" RECORD ";::": ";X;" ":(4);"WRITE ";FILE$:x(4);"CLOSE ";FILE$' ";FILE$;" ' ":::250:320:2140,270m:9:(7)"ENTER A DOS FILE NAME: "::FILE$:FILE$""2140(FILE$)0İ2320:1270 FILE$""İ2320:127034,9::9:868:15::" ' SAVING ' ":::L$::::" FILE ";::": ";FILE$(4);ILE$$(4);"OPEN ";FILE$;",L256"<(4);"READ ";FILE$IX0100TY07bAR$(X,Y):17::" RECORD ";::": ";X:(4);"READ ";FILE$:(4);"CLOSE ";FILE$#NM$FILE$::9:(7);(7);"THE FOLLOWING FILE IS NOW IN MEMORY: "::" 44605,21:(4);"RUN PROGRAMS"&j270at9)"[ LOAD FILE FROM DISK ]":34,11::(4);"CATALOG"~::"ENTER THE FILE NAME: ";::"";FILE$:FILE$""ī214034,9::9:14::" ' READING ' ":::L$::::" FILE ";::": ";FILE$(4);"CLOSE";F ":"DO YOU STILL WANT TO EXIT? Y/N ";:ZZ$:ZZ$"Y"2140Qe216,0:1127[f1129g::"INSERT YOUR UP TIME PROGRAM DISK INTO ":"THE DRIVE AND PRESS RETURN ";:678:1120i270:10::"RETURNING TO THE MAIN PROGRAMS MENU."::44452,22:T CLEAR CURRENT FILE BEFORE STARTING A NEW ONE!"@( 5000J(2140(24:21:16368,0:"PRESS ";:IN$:IN$(13)5000(:Hz#     ӠĠı$Ӡˠ"ӠŠˠҠǠԠӠӮԠ ӠӮŠ1ӠҠŮ̠ 3Ĺ1016,0 A8ė::25 KC,0:::(4)"RUN"X$a 216,0:::"UNABLE TO RUN ";::X$::g  L Address Book,The Disk Inspector,Dos Commander,Out Guess40,X:J:I! rXI8DA:240,X6S |I60100:3I,X:XX(SS):J15:J:3I,X:I :9A:17:" ";:I1(ST$(A)):J110:XX(SS)::(ST$(A),I,1);:I:  I1(ST$(A)):X((ST$(A),I,1)):X$X$(X32(X96)):I 430 1016,215:AJ150:J:(KB)128Ă:280B ,A$((KB)128):A$"1"A$"4"280Y 67:37:A$:A(A$)v @6:251,46246,51251,57 J150,20:246,510,51 T0:I13:18I,5018I,65:I h240,62:3 jI1A:J14 lJ16:XI8DAJ:240,X:20,5 n232:240,62= I13:18I,4418I,65:43I,4443I,52:Ii 10:I14:15::I"-";::" "ST$(I):I} ::::40): 13:"Select a program." 251,46259,46259,57251,57251,46 49236,0 KC,0:I1(FST$):7:37:(FST$,I,1) "140:0:1:3! %I14:ST$(I):7 (KB49152:KC49168W -FST$"!/-\":SS16336:DA60^ de z I14:1I,0:I :27:"P.O.Box 299":27:"Newport, RI":33:"02840" I4244:0,I279,I:I::6:11:"The Best of Times"::70,39188,39 34,0:35,24:32,0:33,40E(1023)22ĺ:(4)"RUN PROGRAMS"P35840p (1023)99Ĺ230,64:3086 230,32:3086 1023,04::(1016)215ĺ(4)"BLOADUPTIME.ML"49239,0:49232,0:49237,0:49234,036608 232,0:233,     30,0,208,147,230,1,208,143,96 "1,31,5,230,133,6,164,8,192,255,208,179,230,0,208,147,230,1,208,143,96 ,7,165,7,198,8,164,2,145,5,232,232,224,192,144,24,164,2 j 200,200,192,41,144,6,198,4,48,59,160,0,192,40,144,2,160,1,132,2,166,4,138,41,192,133,5,74,74,5,5,133,5,138,133,6,10,10,10,38,6,10,38,6,10,102,5,165,6,41,31,5,230,133,6,164,8,192,255,208,179,2   FILENAME: OUTGUESS <X0132:Y:6144X,Y:g104,64:16384,0:"RUN OUTGUESS.GAME"7 ` 162,1,134,4,165,230,9,4,133,6,160,255,132,8,200,132,2,132,5,160,0,177,0,201,128,208,24,230,0,208,2,230,1,177,0,133,8,230,0,208,2,230,1,177,0,133  |` w`@|<??!afgf!~~x  xx ~A"@@OA ```AA`??s# ""B31~D @x? |y xHNIHO;!< A@_b0LCAa00a {00 | yAA@00333OAAA6F| L @@!p | !0 0@ @a3a AA ~x|$@@aafc``_a!?~~ p`AAA" #"B33D#xx@x@`p0D`@||aaafffgfff!CCC~Fgf0 00 AAA0?0s33saa cff @@ @~A" @@ApD@3aafa` x8@ ` I@HH$"@@0  @ FA303 xO3 <0@@?aa?fffcgff CCCfffAAAf | @@@   0@ @3c3@@     6666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666. $$$$$$$$$$$$$666666666666.666%$$, 9>>655-IIIu?--u???----u?????------u???????7-------5???????7-------5???????w-m)M-?--566 $$$$l066666n$$$$$$l666666n@#$$$$$$ 066666n@#$$$$166666666666666v$$$$$$$$$$$$$d66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,6666"6DRev b 66%$$ 6!$$66 ),557777-- ),55?*.>>'' )>?*->7--5;-% ??.-5575;'' ).>>''%'%')55 .,->779>. 9,,557?>..%%? 9<,,55757=:'' )>7)>.>-- ''%'%')557575; -5;.>.>>'' 175757)-(<,<,?5)   :PP:400N6:(14):"DO YOU WANT TO PRINT THESE GUIDELINES?";:PG$::PG$"Y"PG$"Y"ė:(13)(4);"PR#1":P158:A$(P)::P:(4)"PR#0":N@490NJ31NT#O^:ZZ$"OUTGUESS":::41):40:2):40:2):40:2):40:2):40:41)::3:12:"UP400$MPP711:A$(PP)::PP:400CM"PP1219:A$(PP):PP:400dM,PP2026:A$(PP)::PP:400M.PP2732:A$(PP)::PP:400M/PP3339:A$(PP)::PP:400M1PP4046:A$(PP)::PP:400M3PP4752:A$(PP)::PP:400 N5PP5358:A$(PP):)"HAS A CHANCE TO DOUBLE HIS SCORE. IF":A$(55)"YOUR PREDICTION IS CORRECT AND YOU ARE":A$(56)"BEHIND, YOU DOUBLE YOUR SCORE. IF YOUR":L A$(57)"PREDICTION IS WRONG AND THE COMPUTER IS":A$(58)"BEHIND, IT DOUBLES ITS SCORE!"MPP16:A$(PP)::PP:NDS; THE GAME STARTS AND ENDS":A$(49)"WITH 2 CARDS DEALT INSTEAD OF 1. IN":A$(50)"BOTH VERSIONS OF ADVANCED OUTGUESS, THE":K A$(51)"FINAL ROUND IS A "Q$"DOUBLE-OR-NOTHING"Q$:A$(52)"ROUND.":L A$(53)"WHOEVER IS BEHIND AT THE FINAL ROUND":A$(54 ":A$(43)"STARTING IN ROUND 14, THE NUMBER OF":A$(44)"CARDS WILL DECREASE BY ONE EACH ROUND"JA$(45)"UNTIL THE 25TH AND FINAL ROUND, WHEN":A$(46)"AGAIN YOU ARE DEALT ONLY ONE CARD."~KA$(47)"WITH THE MIRROR OPTION ON, THE GAME HAS":A$(48)"23 ROUUR PREDICTION, TRY TO GET AS MANY":A$(38)"TRICKS AS YOU CAN, THUS KEEPING THE":A$(39)"COMPUTER'S SCORE LOW.)"^JA$(40)"IN ROUND 2, YOU WILL BE DEALT 2 CARDS,":A$(41)"3 CARDS IN ROUND 3, AND SO ON TO ROUND":A$(42)"13, WHERE YOU WILL RECEIVE 13 CARDS.HA$(32)"TIMES THE NUMBER OF YOUR PREDICTION.":A$(33)"IF YOU ARE INCORRECT, THE COMPUTER WILL":A$(34)"WIN A NUMBER OF POINTS 10 TIMES THE ":A$(35)"NUMBER OF TRICKS IT HAS WON. (HINT: IF"oIA$(36)"YOU SEE THAT YOU ARE NOT GOING TO MAKE":A$(37)"YO OF 25 ROUNDS.":A$(27)"ON THE FIRST ROUND, YOU ARE DEALT ONE"HA$(28)"HEART AND COMPUTER IS DEALT ONE SPADE. ":A$(29)"PREDICT HOW MANY TRICKS YOU WILL TAKE.":A$(30)"IF YOUR PREDICTION IS CORRECT, YOU WILL":A$(31)"WIN A NUMBER OF POINTS EQUAL TO 10"INS":A$(21)"YOU WILL CHOOSE WHETHER OR NOT YOU":A$(22)"YOU WANT THE MIRROR OPTION (THE MIRROR":A$(23)"OPTION MEANS THAT YOU AND THE COMPUTER">GA$(24)"WILL HOLD THE SAME CARDS IN YOUR":A$(25)"HANDS). WITH NO MIRROR OPTION, THE GAME":A$(26)"CONSISTS [1] PLAYS THE TEN."HEA$(16)"[4] PLAYS THE 4. [J] PLAYS THE JACK."}EA$(17)"[5] PLAYS THE 5. [Q] PLAYS THE QUEEN."EA$(18)"[6] PLAYS THE 6. [K] PLAYS THE KING."EA$(19)"[7] PLAYS THE 7."FA$(20)"ADVANCED OUTGUESS: WHEN THE GAME BEGU OUTGUESS THE COMPUTER"FDA$(11)"(AND THE LAWS OF CHANCE) TO WIN?"DA$(12)"THESE KEYS WILL PLAY THE CARDS:"(13)(13)DA$(13)"[A] PLAYS THE ACE. [8] PLAYS THE 8."DA$(14)"[2] PLAYS THE 2. [9] PLAYS THE 9."EA$(15)"[3] PLAYS THE 3. "WINS THE TRICK (IN THIS GAME, KING IS":A$(6)"HIGH AND ACE IS LOW). ":AT THE END OF THE GAME"CnA$(7)"AT THE END OF THE GAME, WHOEVER IS":A$(8)"AHEAD WINS 10 POINTS FOR EVERY TRICK"DxA$(9)"OVER AND ABOVE THOSE WON BY THE":A$(10)"OPPONENT. CAN YO-------- START CODE HERE --------------------aB<A$(1)"BASIC OUTGUESS: YOU HOLD A HAND OF 13"BFA$(2)"CARDS...ALL THE HEARTS. THE COMPUTER"BPA$(3)"HOLDS 13 CARDS...ALL THE SPADES. PLAY"BZA$(4)"YOUR CARDS ONE AT A TIME. HIGH CARD "_CdA$(5)074134074133075177074208219096":A768813:V((V$,3(A767),3)):A,V::768A1::"BLOAD CARDS,A$1400":"BLOAD OUTGUESS.LAYOUT,A$C00"A232,0:233,20A 1:0:Q$(34)A!DU(13),C(13),PP(13),YC(13),YC%(13),A$(58)A&:350/B2 ------------/@205,255@38400|@ ---------------------- LOWER CASE SENSOR AND CONVERTER FOR II+ ----------------------MA(1101)6V$"00165103133074165104133075160004177074240015201127176008201097144004041223145074200208237160000177074170200177               ::12:16::"I/O ERROR!";(7):::::LOC43140:120`  STORE COMMANDS IN A BINARY FILE::"ENTER A NAME FOR THE BINARY FILE => ";N$:N$""ė:LOC43140:120 F$(N$,1):F$"A"F$"Z"ĺ(7):790 *580:12:1:868:13::"SAVINGL19:24574L,((C2$,L,1))::CD2:750:" THESE COMMAND NAMES WILL BE INSTALLED EVERY TIME THIS DISK IS BOOTED.":1060 RWTS RTNS.16384:IB(74)256(75):IB3,0:IB4,1:IB5,SC:IB8,0:IB9,96:IB12,CD:IB14,0:16392:(76)0ıC1$(C$,124)C2$"";(C$)124C2$(C$,(C$)123)QC2$C2$((LOC))x(C1$)124C1$C1$((LOC)):690(C2$)9C2$C2$" ":690(C1$)124C1$C1$" ":700L1124:24707L,((C1$,L,1))::CD2:750SC8:CD1:750):"INSTALLING COMMANDS":|XLOC43140:T027:SND(16336):C1(NC$(T)):LOC,((NC$(T),C,1)):LOCLOC1:C,T:LOC,0:b STORE CHANGES IN DOSl:580:12:1:868:13::"SAVING TO DISK":vSC7:CD1:750 C$"":T027:C$C$NC$(T)::$)1(TC$)3LOC43140::120I(TC$)780,610,560:::LOC43140:120h& STORE CHNGS IN MEM. ONLYp0::580::" NOTE: THESE CHANGES WILL BE REMOVED FROM MEMORY WHEN A NEW DISK IS BOOTED.":1060D STORE CHANGES IN MEMORYN12:11:quently formatted will have your changes installed. commands will be active in memory until a new disk is booted."23:" PRESS <";::"ESC";::"> TO EXIT THE SAVE OPTION. ";21:" WHICH METHOD WOULD YOU PREFER? (1-3)";:TC$:(TCd to install the new command names.":"2) Patch dos on any dos 3.3 formatted disk. Any time that you boot the disk, your new commands will be installed.":"3) Store new commands in memory. Any disks that are subseNDS.":xSD0:880::10:" ONE MOMENT PLEASE."::"WE'RE RETURNING TO THE PROGRAMS MENU.":D$"RUN PROGRAMS":+:40);" YOU MAY SAVE CHANGES IN THREE WAYS: ";40):::"1) Save changes into a binary file which may later be loadeprograms on this disk use standard DOS"::"3.3 command names."k18:" Would you like to exit to":" the Programs Menu or to DOS? (P/D) ";R$:R$"D"R$"d"ĺR$:R$"P"R$"p"ĉ::LOC43140:120:::11:"RESTORING COMMAHT11:B$;:HT11:NC$(VP);$ 200M :" [] LEAVING PROGRAM []" 4:"You may exit to the Programs Menu or to ":"DOS. If you exit to the Programs Menu, ":"the original DOS commands will be"::"restored. This is because other":?":130X J1:24:34,23:958:"New Command Name: ";:C1(OC$(VP)):"-";::19:"";NC$q TNC$""ė:34,0:200 ^(NC$)(OC$(VP))ĺ(7);:320 hHI$(((NC$,1))128):(NC$)1NC$(VP)HI$:390 rNC$(VP)(NC$,(NC$)1)HI$ |:34,0 VT:6384):KEY127210 16368,03 KEY155VP30D KEY141320` HT:(L$,8(VT19)5);} KEY136KEY139VPVP1 KEY191890 KEY149KEY138VPVP1 "KEY0:VP30VP0 ,VP0VP30 6200 @VP28480:VP30410:VP29İ86020::NC$(T);:SND(16336):VT:HT::NC$(T);:Tj 20:21:OC$(T):21:21:OC$(T1):22:21:OC$(T2) :20:1:"PRESS ? FOR HELP.": L$OC$(VP):L$L$B$:VTVP5(VP13)14(VP27)1:HT1(VP13)20:VT:HT::(L$,8(VP27)5);: KEY(1 nL131:V:16383L,V:C x1:8:"[] THE DOS COMMANDER []":q T027:1(T13)20:VTT5(T13)14:VT OC$(T);:10(T13)20:"= ";:N(OC$(T)) NC$(T)"" CH$((LOC)):NC$(T)NC$(T)CH$:LOCLOC1:(CH$)1281602 VT:HT12(T13) UP^TIME M DOS COMMANDER BY DAVE HERSEY C.1985S(l2::OC$(30),NC$(27)<(1101)6İ1130F960PZX030:OC$:OC$(X)(OC$,(OC$)1)(((OC$,1))128):dD$(13)(4):LOC43140:VP0:B$" "          0>3>3333300>333>3?633>03333 00000333 >kkcc33333333333>003>063333333 cckk>3 3333>0? ?𘘜833?3333333333333333;33333?333? ?00003333?3?33333337;3333333333337;3333303? 33333333333 33333?333 33333 ?0 ?8p`xx``xx>8888866$$~$~$>> >B%$R! *,88888"6">~~`p83;?73  ?30 ?30038<63?00?0333?3 333333>0 ~~ < <~b0 <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""**6""">>8  80"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>"(~ < (&20 *, **>> """ " >> ">> """>""""""< >> "L`H hɺ-ɡ4ɗɌLďLޭiɖ` X`\67L67LɠaH)<=H8< <<<&=<&=e<)e?>i>?i?hhL F犨P ,0``---?? --??-- ??,,.>><+c_u2--c~$$$$$$$'??--5,.65.6.6565656565%%$%$%$%$%,$,$%,,--=?776666666666=7??-----M----------%$$$6667???????>???'$$$$,?>??76&$7666????'$$$$?-,- -----??>/66666666.655-.-----,%%%,$$$$$$$$,??????7$'$$$$$=/6666666666.?>?/----mI ---------'---------MII-----??/6666666666.?>?/----m)----=?'?%$$$     16368,0:16384,128$P(16384)^P155Ğ:1:7:39):::3:11:"WE ARE NOW LEAVING"P155Ģ13:14)"ONE MOMENT...":15:"WE ARE RETURNING TO THE PROGRAMS MENU...":(13);:(4);"RUN PROGRAMS"P1411760:16368,0: Z40:2):40:41)::3:12:"UP TIME PRESENTS:":5:20((ZZ$)2)S ZZ$:34,8:q :13:"By: Tom Schmidel"y : ::" UPTIME's electronic version of the ": " old classic!"  24:"[ESC] TO END OR [RETURN] TO CONTINUE ";:PP:1745) .PP814:A$(PP)::PP:17455 1(13);[ 6:15:12:"One moment....Please"} @:12:"CROSSWORD is loading" E103,1:104,64:16384,0 J(4);"RUN CROSSWORD1" h B :ZZ$"CROSSWORD #1":::41):40:2):40:2):40:2): save the puzzle at any time and"R A$(9)"recall it later by using the MENU on" A$(10)"the puzzle screen. Checking the " A$(11)"solution and reviewing these instruc-" A$(12)"tions will automatically save the game." ,PP17:A$(PP)::are. The appropriate Across and Down"U A$(4)"clues will then be displayed at the" A$(5)"bottom of the screen. Then type in the" A$(6)"answer or move to another square. At" A$(7)"any time, use the Space Bar to erase."! A$(8)"You may8219096":A768813:V((V$,3(A767),3)):A,V::768B Z:1700N dA$(25) -------------------- START CODE HERE -------------------- A$(1)"To play CROSSWORD, use the arrow keys" A$(2)"to move the cursor to the desired"% A$(3)"sque ---------------------- LOWER CASE SENSOR AND CONVERTER FOR II+ ----------------------6 (1101)6V$"0016510313307416510413307516000417707424001520112717600820109714400404122314507420020823716000017707417020017707413407413307517707420     Y51Y748740#N@!Y73Y10788309NB!Y106Y1298900IND!Y1288945SNF!6010eNH!X4Y89000xNR!X16Y89020N\!X28Y89030Nf!X40Y89040Np!X64Y89050Nz!X76Y89060N!X88Y89070N!X100Y89080N!X124Y89090215Ĕ23X,YMW216Ĕ24X,Y2MW217Ĕ25X,YEMW218Ĕ26X,Y[M0:W160Ĕ31X,YkMW1553100|MW177ī3200MW1783300MW179C1:3200MW180C2:3200M6010M4!24:1:39)::::Y7Y198520M!,YLW202Ĕ10X,Y(LW203Ĕ11X,Y;L$W204Ĕ12X,YNL.W205Ĕ13X,YaL8W206Ĕ14X,YtLBW207Ĕ15X,YLLW208Ĕ16X,YLVW209Ĕ17X,YL`W210Ĕ18X,YLjW211Ĕ19X,YLtW212Ĕ20X,YL~W213Ĕ21X,YLW214Ĕ22X,Y MWX12:8500'KW136X4XX12:8500]K3:32X,Y:P125::0:32X,Y:5260:W1506010rK3:W193Ĕ1X,YKW194Ĕ2X,YKW195Ĕ3X,YKW196Ĕ4X,YKW197Ĕ5X,YKW198Ĕ6X,YKW199Ĕ7X,YKW200Ĕ8X,YLW201Ĕ9X7:31138,107:31150,107:31162,107:6010J3:3188,41:3176,52:3164,63:3152,74:3140,85:31124,74:31112,85:31100,96:3188,107:3176,118:JzW(16384):16368,0:W139Y8YY11:8500JW138Y151YY11:8500 KW149X160X:1:0:X16:Y19:C0:2000:0:3152,6:3152,17:3152,28:3152,131:3152,142:3152,153:31112,6:31112,17:31112,28+J31112,131:31112,142:31112,153:312,52:3114,52:3126,52:31138,52:31150,52:31162,52:313,107:3114,107:3126,10;::16368,0:16384,128:W(16384):W1553100AHVW1413300Ht::10:10:"Returning to instructions":(4);"RUN CROSSWORD #1"{I:0:0,0:62454:3:L115:X12L12:Y11L11:X,0X,154:1,Y167,Y::N:L76767741N:K:L,K::233,29:232,252700 G 6010G 3150:23:1:"PUZZLE is loading":(4);"BLOAD PUZZ":3150:23:1:"PUZZLE is loaded":L11500::3150:X16:Y19:C0:60101H 23:1:"SOLUTION is being loaded":(4);"BLOAD PUZZ2":3150::24:1:"[ESC] TO END OR [RETURN] TO CONTINUE "104:2480F MF ::10:10:"Returning to PROGRAMS":(4);"RUN PROGRAMS"fFN 24:1:39)::::F 3150:23:1:"PUZZLE is being saved":(4);"BSAVE PUZZ,A8192,L8192":3150:23:1:"PUZZLE is saved":P11500::3150:X16:Y19:C13500G C2314252,158E 4260,158:3030 Fm 28180,95:20196,95:15204,95:18220,95:5228,95:3236,95:1244,95:12252,95:12260,95:19198,104:1205,104:22212,104:5219,104:4226,104:16240,104:21247,104:26254,104:26261,104:12268,104:5275,36,137:9244,137 E 5252,137:23260,137:9198,146:14205,146:19212,146:20219,146:18226,146:21233,146:3240,146:20247,146:9254,146:15261,146:14268,146:19275,146:5180,158:19188,158:3196,158:20220,158:15228,158:5244,158:236,83:5244,83:2925D 29180,116:20196,116:15204,116:19220,116:5228,116:5236,116:19204,125:15212,125:12220,125:21228,125:20236,125:9244,125:15252,125:14260,125:30180,137:20196,137:15204,137:18220,137:5228,137:2221:31236,41:L15:XX12L184:YY11L11:XX,0XX,44:197,YY255,YYC:255,0255,44:13180,60:5188,60:14196,60:21204,60:27180,74:20196,74:15204,74:19220,74:1228,74:22236,74:5244,74:16204,83:21212,83:26220,83:26228,83:12768813:V((V$,3(A767),3)):A,V::768IA2:::216,0:A(0):4000EB3200,19:18212,19:15224,19:19236,19:19248,19:23224,8:18224,30:4224,41:31200,8:31212,8:31236,8:31248,8:31200,30:31212,30:31236,30:31248,30:31212,4p"@ * CROSSWORD1,@ * BY TOM SCHMIDELC@ * VERSION: 101-AZ@( * COPYRIGHT 1986+A-(1101)6V$"00165103133074165104133075160004177074240015201127176008201097144004041223145074200208237160000177074170200177074134074133075177074208219096":A          );"PR#1"-" TO: ";AR$(X,NA);" ";AR$(X,LN)D" ";AR$(X,AD)`" ";AR$(X,CI);",";" ";AR$(X,ST);" ";AR$(X,ZI)::(4);"PR#0"X0:P0:111012:958:"DO YOU WANT PROMPTING (Y/N)";:R$:1:868:R$"Y"P1 *1110 4300:SK$""2140->X1100KH(AR$(X,LN),SK)SK$İ870QR`\2330:770f:280:10:15::" ' PRINT ADDRESS LABEL '":22p::" PRESS '";::" L ";::"' TO PRINT AN ADDRESS LABEL ";:10::R$::R$"L"900z:(4250:320:2140i80:34,20:::" RECORD ";::" ";X;" ";::" HAS BEEN STORED ! ":::250:320:470r270| 1110:" 1 - MANUAL SEARCH":" 2 - AUTO SCAN - WITH PROMPTING":(14):" * - - RETURN TO MENU" 260:R810,990:2140ADD A NEW RECORD -";::" < < < "::(7)7:170::" PRESS '";::" S ";::"' TO STORE THIS FILE RECORD ";:10::R$::R$"S"730470X1100AR$(X,LN)""AR$(X,NA)""760:::9:" THE FILE IS FULL - RECORD ABORTED !":E RECORD";::10:R$:R$"D"670)470AR$(X,LN)"":AR$(X,NA)"":AR$(X,AD)"":AR$(X,CI)"":AR$(X,ST)"":AR$(X,ZI)"":AR$(X,HP)""34,20:::" RECORD ";::" ";X;" ";::" HAS BEEN DELETED ! ":::250:320:470,X0:::" > > > ";::"- :X::250:320:X1X1:555dl::" > > > ";::"- DELETE A RECORD -";::" < < < "::(7)v:300:X1100:(AR$(X,LN),SK)SK$650:2330:470 280:10:20::"> DELETE RECORD <"::22:" PRESS '";::" D ";::"' TO DELETE THIS FIL100:(AR$(X,LN),SK)SK$580"01:2330:470_D280:10:20::"> CHANGE RECORD <"::12lF13:170N::" PRESS '";::" S ";::"' TO STORE THIS FILE RECORD ";:10::R$::R$"S"610X470b80::" ABOVE DATA IS STORED AS RECORD: ";:" 1 - ADD A RECORD":7" 2 - CHANGE A RECORD":V" 3 - DELETE A RECORD":" * - FOR THE MAIN MENU":260:R690,540,620:2140::" > > > ";::"- CHANGE A RECORD -";::" < < < "::(7)&X11:300:+XX1LN),14);:20:(AR$(X,HP),19))h2340:0r0>|250:320H2140Q270t:12)"LOCATE A RECORD"13):300:X1100(AR$(X,LN),SK)SK$4602330:400:280:320:4002708)"UPDATE THE CURRENT FILE"::O.: ";AR$(X,HP):L$: ,(22):3:" TO EXIT TO THE MAIN MENU."::11:"ENTER THE NAME OF THE RECORD FOR SEARCH.":":>";SK$:SK$""ġ:2140 6SK(SK$): @" * PRESS TO CONTINUE =>";:R$:: J270 TX1100^X;:5:(AR$(X,R#0":34,9::: :10:868::" RECORD: ";::" ";AR$(X,RN);::16:25)::L$:" LAST NAME: ";AR$(X,LN):"FIRST NAME: ";AR$(X,NA):" ADDRESS: ";AR$(X,AD) "" CITY: ";AR$(X,CI):" STATE: ";AR$(X,ST):" ZIP CODE: ";AR$(X,ZI):" PHONE NSTATE: ";ST$:ST$""ST$AR$(X,ST):(37):13:ST$p " ZIP CODE: ";ZI$:ZI$""ZI$AR$(X,ZI):(37):13:ZI$ " PHONE NO.: ";HP$:HP$""HP$AR$(X,HP):(37):13:HP$ "": 49168,0::"SELECT AN OPTION => ";:21:R$:R(R$): (4);"P" LAST NAME: ";LN$:LN$""LN$AR$(X,LN):(37):13:LN$x "FIRST NAME: ";NA$:NA$""NA$AR$(X,NA):(37):13:NA$ " ADDRESS: ";AD$:AD$""AD$AR$(X,AD):(37):13:AD$ " CITY: ";CI$:CI$""CI$AR$(X,CI):(37):13:CI$2 " ======================"/ 744452,13:44605,12[ <RN0:LN1:NA2:AD3:CI4:ST5:ZI6:HP7e F2140x PAR$(X,RN)(X) ZAR$(X,LN)LN$ dAR$(X,NA)NA$ nAR$(X,AD)AD$ xAR$(X,CI)CI$ AR$(X,ST)ST$ AR$(X,ZI)ZI$ AR$(X,HP)HP$ :  VERSION 8.0 19846 ALL RIGHTS RESERVEDK VIKING DATA ================ THE UP TIME REM! ================ ) =========== MODIFIED BY BILL CARY 6/11/85 =========== 2AR$(100,7):L$"==================          16,215:A3Ĺ1016,0$EA8ė::2?EKC,0:::(4)"RUN"X$kE216,0:::"UNABLE TO RUN ";::X$::qEEL Address Book,The Disk Inspector,Dos Commander,Out Guessm,5Dn240,X:J:I+DrXI8DA:240,X6]D|I60100:3I,X:XX(SS):J15:J:3I,X:ID:9A:17:" ";:I1(ST$(A)):J110:XX(SS)::(ST$(A),I,1);:I:DDI1(ST$(A)):X((ST$(A),I,1)):X$X$(X32(X96)):ID430E10I,1)%C"J150:J:(KB)128Ă:280LC,A$((KB)128):A$"1"A$"4"280cC67:37:A$:A(A$)C@6:251,46246,51251,57CJ150,20:246,510,51CT0:I13:18I,5018I,65:ICh240,62:3CjI1A:J14DlJ16:XI8DAJ:240,X:20188,39B32:240,62GBI13:18I,4418I,65:43I,4443I,52:IsB10:I14:15::I"-";::" "ST$(I):IB::::40):B13:"Select a program."B251,46259,46259,57251,57251,46B49236,0CKC,0:I1(FST$):7:37:(FST$,32,0:233,140:0:1:3+A%I14:ST$(I):AA(KB49152:KC49168aA-FST$"!/-\":SS16336:DA60hAdoAAI14:1I,0:IA:27:"P.O.Box 299":27:"Newport, RI":33:"02840"BI4244:0,I279,I:I::6:11:"The Best of Times"::70,39 @::)@34,0:35,24:32,0:33,40O@(1023)22ĺ:(4)"RUN PROGRAMS"Z@35840z@ (1023)99Ĺ230,64:3086@ 230,32:3086@ 1023,0@4::(1016)215ĺ(4)"BLOADUPTIME.ML"@49239,0:49232,0:49237,0:49234,0@36608A 2     TO CONTINUE";:A$:P155:240R222:1::"OPTIONS ARE D, P, W, OR "::1080hZ(A$,1)"C"1550~d(A$,1)"$"1450nI1(A$):(A$,I,1)"0"A9999:1610(A$,I,1)"9"A9999:1610I:A(A$):A255A99991610 (A$)2AЭA16EA:1290T22:1::"SECTOR NUMBER MUST BE 0 THRU 15 ($0 THRU $F)"::1220 24:14:"PLEASE WAIT";:F$"D"İ2360:1630:1060F$"P"İ2360:2480:1060F$"W"İ2810:1060(F$(27)ė:11:11:"INSERT UPTIME DISK":9:"PRESS [RET] CK NUMBER";:B$""ĺ" ?";B$:1200Dj15:24:A$:958:A$""1080d~B$A$:1370:A35FA:120022:1::"TRACK NUMBER MUST BE 0 THRU 34 ($00 THRU $22)"::113017:1:" ENTER SECTOR NUMBER";:17:25:A$:958:A$""1130C$A$:1370:D$(255),B$(255),C$(255)::::12:9:"INSERT DISK TO INSPECT":8:"PRESS [RETURN] TO BEGIN ";:A$::12:14:"PLEASE WAIT":2930$2710:F$"D"F$"P"Ģ13:18:F$:1110813:18:F$:958:13:18:F$;:F$"D"F$"P"1310"V15:1:" ENTER TRA THE","DISPLAY OR OPTIONS MENU MUST BE USED.""THE PRINT OPTION WILL PRINT THE VALUES","IN FIVE COLUMNS. A PRINTER WIDTH OF AT","LEAST 75 CHARACTERS IS REQUIRED FOR","THIS OPTION. THE ENTIRE SECTOR WILL BE","PRINTED ON 55 LINES."A$(255),E$(255),ADECIMAL($XX), OR","CHARACTER(C'X'), NOTATION. ALL","CHARACTER ENTRIES WILL BE CONVERTED TO"-"'HIGH-BIT' ASCII ($A0 THRU $DF). THE","CHANGE COMMAND WILL MODIFY THE POSITION","IN MEMORY ONLY. TO UPDATE THE SECTOR ON","THE DISK, THE WRITE(W) OPTION FROMAILABLE.","EXPLANATIONS OF THESE COMMANDS WILL BE","DISPLAYED IF HELP(H) IS ENTERED AT ANY","DISPLAY SCREEN."\"ANY POSITION IN A CURRENTLY DISPLAYED","SECTOR CAN BE CHANGED WITH THE CHANGE","COMMAND. THE NEW VALUE CAN BE ENTERED","IN DECIMAL(XXX), HEXFROM ZERO. THE FIRST","SCREEN WILL SHOW CHARACTERS 0 THRU 31,","THE SECOND WILL SHOW CHARACTERS 32 THRU","63, AND SO ON. THE DECIMAL, HEX, AND"m"CHARACTER VALUE OF EACH POSITION WILL","BE DISPLAYED. SEVERAL COMMANDS FOR","PAGING THRU THE SECTOR ARE AVS. FOR EXAMPLE, TRACK 17, SECTOR","15 IS EQUIVALENT TO TRACK $11, SECTOR","$F. THE WRITE OPTION CAN BE USED ONLY","AFTER THE SECTOR HAS BEEN DISPLAYED.""THE DISPLAY SHOWS 32 CHARACTERS AT A","TIME. THE CHARACTERS ARE NUMBERED BY","THEIR DISPLACEMENT ($0 TO $F).","AFTER INSERTING THE DISK, YOU CAN","DISPLAY(D), PRINT(P), OR WRITE(W) A","SECTOR ON THE DISK. THE DISPLAY AND","PRINT OPTIONS REQUIRE YOU TO ENTER A""TRACK AND SECTOR NUMBER. THESE NUMBERS","CAN BE EITHER DECIMAL OR HEXADECIMAL","NUMBERDISKS ARE ORGANIZED BY TRACKS AND","SECTORS. EACH SECTOR CONTAINS 256","CHARACTERS, EACH TRACK CONTAINS 16","SECTORS, AND THE ENTIRE DISK CONTAINS","35 TRACKS. THE TRACKS ARE NUMBERED FROM" "0 TO 34 ($0 TO $22) AND SECTORS ARE","NUMBERED FROM 0 TO 15 :16368,0:16384,128:P(16384)d P155Ğ:1:7:39):::3:11:"WE ARE NOW LEAVING":38400 P155Ģ13:14)"ONE MOMENT...":15:"WE ARE RETURNING TO THE PROGRAMS MENU...":(13);:(4);"RUN PROGRAMS" P141220 :16368,0::"APPLE 200:24:1::" TO END";::958::1000 :::41):40:2):40:2):40:2):40:2):40:41)::3:12:"UP TIME PRESENTS":5:20((G$)2):G$:34,8::13:"BY :LARRY D. PEEL":: :24:4:"[ESC] TO END OR [RETURN] TO ";E$;# OU LIKE INSTRUCTIONS? ";:A$:A$"Y"āI145:A$:I:110 2E$"CONTINUE"::I17:J16:A$:A$::J:200:I:J13:A$:A$::J:200::14:"WOULD YOU LIKE TO PRINT INSTRUCTIONS? ";:D$::D$"Y"D$"Y"Į::1:I145:A$:A$::I:0:. n:E$"RUN":38143:V$"00165103133074165104133075160004177074240015201127176008201097144004041223145074200208237160000177074170200177074134074133075177074208219096":A768813:V((V$,3(A767),3)):A,V:::G$"DISK INSPECTION UTILITY":140:12:69 "WOULD Y          (16IJ)C$(I)C$(J):J:I:I015:C$(I)"0"C$(I):I:I0255:A$(I)(I):I10A$(I)" "A$(I)z# I100A$(I)" "A$(I)# I:,3:775,96:776,0:777,0:778,1:779,96:780,1:781,0:782,17:783,15:784,32:785,3:786,0:787,149:788,0:789,0:790,1:791,0:792,0:793,96:794,1:800,0:801,1:802,239:803,216:I015_#s C$(I):I:0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F:I115:J015:C$ 22:1::"DISPLAY(D) OR PRINT(P) REQUIRED BEFORE":"UPDATING A SECTOR"::q!" ::"TRACK ";B$;", SECTOR ";C$!6 3:1:"CONFIRM UPDATE(Y/N) ?";A$:A$"N"ı!J A$"Y"2870!T 790,2:768:"r 768,169:769,3:770,160:771,10:772,32:773,217:774";E$(P);" ";B$(P);" ":(4);"PR# 0": ::" DISK INSPECTION UTILITY":::" D - DISPLAY DISK SECTOR"::" P - PRINT DISK SECTOR"::" W - WRITE UPDATED SECTOR"::" - EXIT PROGRAM":::" ENTER OPTION?": B$""C$""2850M!$(27)ı A$(13)2480 :(4);"PR# 1":"CONTENTS OF TRACK NUMBER ";B$;", SECTOR NUMBER ";C$::I15:"DSP DEC HEX C ";:I:::I050:J04:P51JI:J0PP1& F A$(P);" ";D$(P);" $";E$(P);" ";B$(P);" ";:J::I:P51:A$(P);" ";D$(P);" $ HELP"::1720# BA:B224B224-$ 16408 782,F:783,E:790,1:768:C38144:P0255:N(CP):D$(P)A$(N):E$(P)C$(N):B$(P)" ":N322450t N127N1602450~ N2552450 B$(P)(N) P:  ::" TO PRINT, TO EXIT":A$:A THRU $FF)"::2140ONA:CP,N:D$(P)A$(N):E$(P)C$(N):B$(P)" ":N322260eN127N1602260uN2552260B$(P)(N)4:1:A$(P);" ";D$(P);" $";E$(P);" ";B$(P)::20401370:A9999233023:1::"INVALID COMMAND - TYPE H FOR1::"VALUE MUST BE 0 THRU 255 ($00 THRU $FF)"::204043:1:"DSP DEC HEX C":PA::A$(P);" ";D$(P);" $";E$(P);" ";B$(P)::958\7:1:"ENTER NEW VALUE ?";A$:958:(A$)02040p1370:A99992200z9:1::"VALUE MUST BE 0 THRU 255 ($00" W UPDATE SECTOR ON DISK"::" H DISPLAY COMMAND LIST"::" X EXIT DISPLAY OPTION":::" TO CONTINUE":A$:1640A$"C"2290:1:1:"DISPLACEMENT TO CHANGE ?";A$:958:(A$)01640 1370:A9999210073:ISPLAY OPTION"::"COMMAND DESCRIPTION":"------- -----------"::" DISPLAY NEXT 32 POSITIONS"::" - DISPLAY PREVIOUS 32 POSITIONS"::" P PRINT ENTIRE SECTOR"::" XXX NUMBER TO START DISPLAY":Y" C CHANGE A VALUE"::FOR HELP)?";A$:958:(A$)01780;BB32:B224B224E1640WA$"X"1800a1060sA$"W"18202810:1640A$"P"1840&2480:16300A$"-"1870:BB32:B0B0D1640NA$"H"2020X::"COMMANDS FOR D64@A160AA64J"^B0h::"DISPLAY OF TRACK ";B$;", SECTOR ";C$::"DSP DEC HEX C DSP DEC HEX C"::DB15:PBD:A$(P);" ";D$(P);" $";E$(P);" ";B$(P);" ";:A$(P16);" ";D$(P16);" $";E$(P16);" ";B$(P16):P#22:1:"COMMAND(H 9999:1610$(A$)3A9999:1610dA0:I2(A$):J015:(A$,I,1)(C$(J),1)A16AJ:1530xJ:A9999:1610I:1610(A$)4A9999:1610(A$,2,1)"'"A9999:1610"(A$,4,1)"'"A9999:1610,A((A$,3,1)):A96AA