' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( O Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`N MENU ...." A$:+ (4);"RUN MENU"1 "TEAM. AT ANY RATE...";/V7:H16:100::"HAVE FUN"::l/V9:H6:100:"AND IMPROVE YOUR VOCABULARY!"/H7:V23:100:"PRESS TO BEGIN PLAY":16368,0/(16384)1411935/16368,0::570VX>"2.N"WILL ERASE THE ENTIRE WORD. IF YOU ARE"_.S"PLAYING ALONE, YOU CAN GET A NEW ROLL"x.X"BY PRESSING ".]165.l:14)"INSTRUCTIONS":.q"YOU MAY FIND IT FUN AT PARTIES TO LET".v"TWO OR THREE PLAYERS WORK TOGETHER AS A "/{INVALID, YOU ARE PENALIZED AT THE"N-5"HIGHEST POSSIBLE SCORE FOR A WORD OF"y-:"THAT SIZE. THAT IS, THE BASE SCORE"-?"PLUS THE HIGHEST POSSIBLE DOUBLE BONUS.":-D"WHEN ENTERING A WORD, BACK-ARROW WILL".I"ERASE THE LAST LETTER WHILE (w"GETS A THREE MINUTE TURN WITH THE SAME"k(|"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":F FIVE GAMES IS CALLED A"E'Y"TOURNAMENT. IN THE FIRST FOUR GAMES,"t'^"YOU MUST MAKE YOUR WORDS FROM A ROLL OF"'c"13 LETTERS. IN THE LAST GAME OF THE"'h"TOURNAMENT YOU WILL HAVE 20 LETTERS TO"'m"WORK WITH.":(r"IF THERE IS MORE THAN OCAN"0&""MAKE UP TO FIVE WORDS OF EACH LENGTH"T&'"FROM THREE TO EIGHT LETTERS."]&1165y&@:14)"INSTRUCTIONS":&E"NO PROPER NOUNS ARE ALLOWED, BUT"&J"CONTRACTIONS, PLURALS, AND ALL PREFIXES"&O"AND SUFFIXES ARE FINE.":'T"A GROUP O-%"AND TRYING TO GET THE HIGHEST POSSIBLE"W% "SCORE, OR UP TO SIX PEOPLE PLAYING"%"AGAINST THE CLOCK AND EACH OTHER.":%"YOUR WORDS MUST CONTAIN AT LEAST THREE"%"LETTERS. THEY ARE GROUPED ON THE"&"SCREEN ACCORDING TO LENGTH. YOU MAKE AS"6$"MANY WORDS AS YOU CAN FROM A GROUP OF"d$"LETTERS 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,"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:K:I#x700#:14)"INSTRUCTIONS": $"THE OBJECT OF WORD WARS IS TONM$(I):I"F255:165:13705"KGNGN1:GN5NL20D"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)2091370W#i!(GN5V15:H2:100:"PRESS FOR CUMULATIVE SCORES":170l!-:V3:H12:100:"CUMULATIVE SCORES"!2I0NP1:TS(I)FS(I):TN$(I)NM$(I):I!7255:165:1355!<:V3:H6:100:"FINAL SCORING FOR TOURNAMENT" "AI0NP1:TS(I)FS(I):TN$(I) GN51355: H10:V13:100:"...AND THAT'S FINAL!"I 105:1365r :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:1340C05:105:105:34,0::1110!I0NP11300KFS(CP)FS(CP)SC(CP):wH6:V9:100:"WELL DONE ";NM$(0);"..."H6:V10:100:"YOU FINISHED WITH ";SC(0);" POINTS"105H4:V12:100:"YOUR TOTAL SCORE IS NOW ";FS(CP);" POINTS" 105)W$1215JNH5:V12:100:"THAT'S NOT ONE OF ";NS$(I);" WORDS":1235nLW(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)PN119:V13:100:"OR"HH6:V14:100:"PRESS TO CONTINUE PLAY"V16368,0o(16384)141118016368,0:34,0:1240(16384)195117016368,0:H3:V10:100:"TYPE IN THE CHALLENGED WORD ";W$J029 WD$(I,JJJ1J2:HOS(K)4eWD$(I,J)""WD$(I,J)(PD$,K3)Pj100:WD$(I,J):VV1:J_oJ291145tKK1:V4:J1J15:J2J25:1120yH1:V10:100:"ANY OF THESE WORDS MAY NOW BE CHALLENGED":34,8~H7:V12:100:"PRESS TO CHALLENGE A WORD"H0:CLCL60:BW1780%34,2:>CPNP1Ĺ34,0:1100\CPCP1:155:CPCP1:145uSC(CP)SBSBSC(CP)}CPSC(CP)SBSBSC(CP) CPLI0NP1QVV2:H17((NS$(I))2):100:NS$(I);" WORDS"[K0:V4:J10:J24`SC(CP)BPBNBNBNWSCSCBN:SC(CP)SC(CP)SC:V12:H23:100:" ":100:SC(CP)SC(CP)BPBW0M$"** YOU'RE IN DOUBLE BONUS TIME **":H4:140:M$"** ALL BONUS SCORES NOW DOUBLED **":H3:140:M$"** YOU GET 60 SECONDS OF EXTRA TIME **":H1:14$(CP,J)W$ĂJ:865J\M$"** SORRY, YOU HAVE THAT WORD **":H5:140:780naNWNW(CP,LW3):NW(CP,LW3)NW1fWD$(CP,5(LW3)NW)W$k(W$)8W$(W$,8):LW8pSCLW10uHOS(LW3):V20NW:100:W$:V9:115:V7:115zBNBN(LW3)(NW1)1 4I'9TI30:LW(W$):LW8LW8m>LW3M$"** WORDS MUST HAVE AT LEAST 3 LETTERS **":H1:140:780CNW(CP,LW3)5M$"** YOU HAVE 5 WORDS OF THAT LENGTH **":H2:140:780HNWNW(CP,LW3)MNW0865RJ5(LW3)5(LW3)NW1WWDORD:"W$"":3855V9: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$"'S **":H3:140:780/WW(L)WW(L)LETTERS:"H7:GN5H1DV5:100:I1NL:(RL$,I,1);" ";:IvV11:H17(NS$(CP))2:100:NS$(CP);" WORDS"V12:H6:100:"SCORE: "NP1V23:H10:100:"SCORE TO BEAT: ";SBBW0 I025:WW(I)WA(I):IV7:H9:100:"YOUR W BP17502:V1:H1:100:"GAME NUMBER: ";GNSV1:H26:100:"TIME LEFT: "\145j200:SB0yCP0NP1CL180:V1:H37:100:CL:NP1İ185:34,24:170:735155:34,24:170SC(CP)0V7:115:V23:115 V3:H16:100:"vPC$"********":PD$"########"{GW$"AAAAAAAABBCCDDDDEEEEEEEEEEEEFFGGGHHIIIIIIIIIJKLLLLMMNNNNNNOOOOOOOOPPQRRRRRRSSSSTTTTTTUUUUVVWWXYYZ"OS(0)2:OS(1)6:OS(2)11:OS(3)17:OS(4)24:OS(5)32BN(0)0:BN(1)5:I26:BN(I)BN(I1)2:IAD7:GN1,TN$(NP1),FS(NP1),SC(NP1),TS(NP1),BN(6),OS(6),WA(25),WW(25):NL13QXI1NP]100:"WHAT'S PLAYER#";(I);"'S NAME":H18:VV1:100:NM$(I1):VV2:H10bIgI0NP1:(NM$(I),1)"S"NS$(I)NM$(I)" ' ":625lNS$(I)NM$(I)"'S"qIDNP1VV2:H10:100:"THAT'S NOT VERY MANY!":VV1:H7:100:"TRY AND ROUND UP SOME MORE!":VV2:H1:105:575INP6VV2:H4:100:"LETS KEEP IT DOWN TO 6 PLAYERS.":105:VV2:H1:575NVV1:H10:WD$(6,34)ESNW(NP1,6),NM$(NP1),NW$(NP1)MUSCOLIND"1056V21:H14:100:"INSTRUCTIONS"]!V23:H12:100:"PRESS OR "k&16368,0+(16384)217565016368,0:15005(16384)206555:16368,0::H1:V3?100:"HOW MANY PEOPLE ARE PLAYING WORD WARS?";NPrTIAD:H20:100:W$"":390<:V5:H16:100:" WORD WARS"iV9: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 W$A$390(W$)0795(3906H20390c(W$)1W$"":100:" ":HH1:100:390W$(W$,(W$)1):100:" ":HH1:100:390NP1M$"** ABANDONING THIS GAME **":H7:140:34,0::1365390H2020(W$):100:" ":H:TI5:J150:135:J:10005100::" "::A(16384)OA128TITIAD:390iA141Ĺ16368,0:455A136Ĺ16368,0:465A155Ĺ16368,0:480A152Ĺ16368,0:490A193A218AA128:A$(A):100:A$:16368,0:HH1:TITIAD:W$(J)T:TN$(J)T$ J "IN 'V5:H12:100:"NAME":H24:100:"SCORE":V7\ ,I0NP1 1H12:100:TN$(I):TS$(I)(TS(I)):H29(TS$(I)):100:TS(I):TN$(I)"":TS(I)0:VV1 6I ; V7:H20:16368,0 TITI1:TI180İ120CL0İ100245" I(NL(1)1):I2I21 I12I12 L$(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) TS16368,0:J 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 I QP110( V21::H140:100:" ":H::d 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 (16384)141175 ɰ100:" ":100:CL;" "i }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: H1:110:H5:110:H10:110:H16:110:H23:110:H31:110:H40:'0 :V12:H10:100:"PRESS ANY KEY TO START">16368,Oj(16384)128(16384)255I(1):20x16368,0ZS16336:500dH:V:iX1500:X:nV1520:100::" ":V:::sH140:100:" ":H: xCLCL1:TI0:V1:H37:                       F A$(Y,(N1));520(A$(Y,(N1))));A$(Y,X);Q 20(A$(Y,X)));R(Y,X)X*Y^4w>32);"TOTAL ";T(X)}HRXfk"PR#0"p"ANOTHER RUN ? ";Z$z1265 I ON A SIMILAR PROGRAM IN 'BASIC PROGRAMS FOR HOME FINANCIArT);T(X)|X!."PR#0"Q"WOULD YOU LIKE A COMINATION""PRINTOUT, VERBIAL& NUMBERS ? (Y/N) ";Z$(Z$,1)"N"Ā(O$,1)"P"ĺ"PR#1":" 80N":34);"TRADE STUDY"X1NA$((F1),X)Y180(F2))"NAME";!X1FBX1ĺT);A$(X,(N1));:1570o(T1)(A$((X1),(N1))));A$(X,(N1));v"X,T5);"TOTAL"6:@X1NJA$((F1),X);TY1FYY1ĺ(T5)(A$((F1),X)));R(Y,X);:1640^T);R(Y,X);hY,X);:1210+T(A$((Y1),X)));A$(Y,X);2Y::AXGT"PR#0"m"ANOTHER RUN ? ";Z$(Z$,1)"Y"(Z$,1)"N"ī1260(Z$,1)"N"Ā1000(O$,1)"P"ĺ"PR#1":" 80N":34);"TRADE STUDY" T((O$,1)"P"ī10807: 88B34);"TRADE STUDY">LPVT(80(F1))]`"NAME";hjX1FoX1ĺT1);A$(X,(N1));:1150tT(A$((X1),(N1))));A$(X,(N1));~X::X1NA$((F1),X);Y1F Y1ĺT);A$(YOR PRINTER (S/P) ? ";O$<(O$,1)"S"(O$,1)"P"ī1020Bq" WOULD YOU LIKE A CHART OF THE NUMBERS"$"OR THE VERBIAL RATINGS ? (N/V) ";Z$)(Z$,1)"N"(Z$,1)"V"ī1060.(Z$,1)"N"ī15003(O$,1)"P"ĺ"PR#1":" 80N":5$(X,Y),10))F5A$(X,Y)(A$(X,Y),12)HF4A$(X,Y)(A$(X,Y),15)gF3A$(X,Y)(A$(X,Y),20)"(ON A SCALE OF 1 TO 10) ";R(X,Y)T(Y)T(Y)(R(X,Y))W(X) Y X***** DISPLAY SELECTION *****"DISPLAY ON SCREEN X1F""FACTOR: ";A$(X,(N1))(3Y1N=ZXYW5);A$((F1),Y);" ";r"(IN WORDS) ";A$(X,Y)F10A$(X,Y)(A$(X,Y),6)F9A$(X,Y)(A$(X,Y),7)F8A$(X,Y)(A$(X,Y),8)F7A$(X,Y)(A$(X,Y),9) F6A$(X,Y)(ATES."0" THEN ENTER A NUMBER REPRESENTING "^" WHERE THE CANDIDATE RANKS ON A SCALE"" 0F 1 TO 10. AFTER WE FINISH ALL THE"" CANDIDATES, I'LL PRINT ANOTHER"" FACTOR, AND REPEAT THE LIST UNTIL"" WE ARE DONE."(Z$,1)"N"ī530&&(Z$,1)"Y"ī470/0360SX*****INPUT FACTOR RATINGS*****Ybl" I'LL PRINT THE NAME OF A FACTOR,"q" THEN PRINT THE VARIOUS CANDIDATES."v" ENTER YOUR ESTIMATE IN ONE OR TWO"{" WORDS OF HOW THE CANDIDATE RA.ZFĺ"*** OOPS *** THAT'S TOO HIGH ! ***"<ZFī470f"NUMBER";13);"FACTOR";24);"WEIGHT"3);Z;13);A$(Z,(N1));26);W(Z)" WHAT IS THE CORRECT WEIGHTING FACTOR ? ";W(Z)" ANOTHER CHANGE ? ";Z$!(Z$,1)"Y"MBER";13);"FACTOR";24);"WEIGHT"'2X1FX3);X;13);A$(X,(N1));26);W(X)_Xe" DO YOU WANT TO CHANGE ANY WEIGHTING ? (Y/N) ";Z$(Z$,1)"Y"(Z$,1)"N"ī530(Z$,1)"N"600" WHICH FACTOR NUMBER ? ";ZN A NUMERICAL WEIGHT TO"F " EACH FACTOR, WITH THE MORE IMPORTANT"n " FACTORS HAVING HIGHER NUMBERS."t " ,"FACTOR";20);"WEIGHT" 6 @X1F JA$(X,(N1));30); TW(X) ^X h r" LET'S REVIEW THE FACTORS" |!"NUA$(X,(N1))(A$(X,(N1)),8)B F7A$(X,(N1))(A$(X,(N1)),9)i F6A$(X,(N1))(A$(X,(N1)),10) F5A$(X,(N1))(A$(X,(N1)),12) F4A$(X,(N1))(A$(X,(N1)),15) F3A$(X,(N1))(A$(X,(N1)),20) X  " PLEASE ASSIG((F1),(N1)),R(F,N),T(N),W(F)) X1N/ K "CANDIDATE NUMBER ";X;\ A$((F1),X)g T(X)0n Xy X1F "FACTOR NUMBER ";X; A$(X,(N1)) F10A$(X,(N1))(A$(X,(N1)),6) F9A$(X,(N1))(A$(X,(N1)),7) F8OU SPECIFY" B:+ n12);"TRADE STUDY"C p12);"----- -----"I si x"HOW MANY CANDIDATES ? ";N yN10ĺ:"SORRY, A MAXIMUM OF 10"::120 } "HOW MANY FACTORS WILL YOU EVALUATE ? ";F F10ĺ:"SORRY, A MAXIMUM OF 10"::130 A$L MANAGEMENT' BY W. B. GOLDSMITHC 2****** SETUP MATRIX ******s <::" A DECISION MAKER PROGRAM": A" THE PROGRAM 'TRADE STUDY' WILL HELP YOU EVALUATE A SERIES OF CHOICES BY A NUMBER OF FACTORS, EACH WEIGHTED BY A VALUE THAT Y :( *************************G** TRADE STUDY **f*************************(***** VERSION 1 *****# *-MODIFIED AND CHANGED BY J. D. RIVERS - DALLAS, BUT BASED ON A SIMILAR PROGRAM IN 'BASIC PROGRAMS FOR HOME FINANCIA            "WHERE DID THE BLINK GO ?";% 10ddA,B8(AD256,167N<57,3XF1002^PZ 72,41,63,145,40,104,76,27,253d FROM APPLE TECH NOTESi MAY NOT WORK WITH DIVERSI-DOSn GIVES NON-BLINK CURSOR3:13:"BLINKING CURSOR":g "YOU DO NOT LIKE THE APLLE'S BLINKING CURSOR, WOULD LIKE A NON-FLASHER OR ONE THAT STAYS ON.": "THEN ADD THIS LISTING TO YOUR 'HELLO' PROGRAM. ONE PROBLEM, DON'T PRESS THEFORBIDDEN KEY AS BACK WILL COME THE CURSED BLINKER.": ' :150! A935943(B1A,B8(AD256,167N<57,3XF1002^PZ 72,41,63,145,40,104,76,27,253d FROM APPLE TECH NOTESi MAY NOT WORK WITH DIVERSI-DOSn GIVES NON-BLINK CURSOR3:13:"BLINKING CURSOR":    3C160:D75&(C,D>2K.175:M5:A0::R1JPAAMRWZR(KA)fdXR(A)CunYR(A)D~xX,YA28.780W13000:W(4);"RUN COLOR PLOTTING"<  $ "HAPPY BORDERING........"+ 2A D$;"BRUN BORDER"G ...";A$:wL(C$):(40(C$))21:C$:L(C$):(40(C$))21"-";:XX1:XL6 HEADINGS TO BE CENTER  SHOULD BE C$="STATEMENT" C$=" " :GOSUBTY, 11715 145 TH AVE, EDMONTON, ALBERTA T5X 1M2 CANADA ON PAGE 110 INCIDER MARCH 1983.": x"THE SCREEN WILL CLEAR, PRESS AGAIN AND WILL HAVE YOUR BORDER WITH THELETTER 'M'. PRESSING ANY KEY WILL CHANGE THE BORDER TO THAT CHARACTER." 4% UNDERLINE C$:GOSUB 4:GOSUB 5< EXAMPLE LINE 100H 2D$(4)_ 7D$;"BLOAD BORDER"f _2 dC$"SCREEN BORDER":4:5 i[ n:"MACHINE LANGUAGE PROGRAM FOR BORDERING THE MONITOR SCREEN WITH ANY CHARACTER. FROM AN ARITCLE BY A. E. DOUGHID$;"BRUN BORDER":':::50U24:"PRESS RETURN TO CONTINUE.....";A$:wL(C$):(40(C$))21:C$:L(C$):(40(C$))21"-";:XX1:XL6 HEADINGS TO BE CENTER  SHOULD BE C$="STATEMENT" C$=" " :GOSUB  OOKIES,SWEET,EAGLE,BIRD@YFLAME,FIRE,PATIO,PORCH,CEILING,HIGH[ZTABLE,DINE,ANKLE,FOOTv2}RANCH,FARM,POODLE,DOGCOMPUTER,APPLE,FIREPLACE,WARM<VBLANKET,COVER,DOOR,CLOSEh"VBATHROOM,BATH,TEACHER,LEARN,GERBIL,RAT,VBASKET,WEAVE,DOCTOR,SICK6V HOSPITAL,ILL,HORSE,RACE@VWITCH,SAM,PUMKIN,ORANGEJVFLOWER,SMELL,LIGHT,SEEYCARPET,FLOOR,STORE,BUYYCIMAL':RSCHOOL,STUDY,AUTOMOBILE,DRIVEJDRTELEVISION,MOVIE,STEREO,MUSICmNRAMERICAN,UNITED,BEDROOM,PLACEXR PLAYGROUND,SWING,PARAKEET,BIRDbRCLOCK,TIME,HALLOWEEN,COBBLINSUTHANKSGIVING,TURKEY,CHRISTMAS,TOYVEASTER,EGG,HOUSE,BUILDINGVNING,PICTURE,WALL,MONEY,PAY,GRASS,GREENuR DRIVEWAY,CEMENT,LIBRARY,BOOKS,RASPBERRY,FRUIT,PILLOW,SLEEP,CLOTHES,WEAR&R BICYCLE,RIDE,DESSERT,CAKE,TELEPHONE,TALK,PIANO,MUSIC,PENCIL,WRITE0R SLEIGH,SNOW,OCEAN,WATER,AIRPLANE,FLY,EXERCISE,JOG,GIRAFFE,AN FOR NOW!"RN\NS$""#fNTR0,pNHT0PzN DELETE CORRECT WORD FROM LISTcNFL$(R)FL$(BL)vNHN$(R)HN$(BL)|NNBLBL1NBL020150N4010N"SORRY, YOU HAVE USED ALL MY WORDS!"N20040R DATA'R CHAIR,SIT,BREAKFAST,MOR"ONE TRY!":20000!> HINT)>:5>HN$(R)Q>HN$(R)"NO MORE HINTS!">:"PRESS 'RETURN' WHEN YOU ARE":" READY TO GUESS.";S$>> N CLOSING*N"WOULD YOU LIKE ANOTHER WORD (YES OR NO)";4NS$>N(S$,1)"Y"20060 HN"BYEEWARD.HT1.6000.06 WRONG GUESS:6::U6"SORRY, "NA$;". ";S$z6"IS NOT THE WORD. TRY AGAIN!"6XZ11500:XZ6: SCORE KEEPING:HT0:"YOU FOUND THE WORD IN ":TR115060:TR;" TRIES!":20000 :LXZ1100:XZX?1233:*** RESET TEXT MODE ***EK"' RANDOMIZATION - CHANGE 'RND (1) TO 'RND (0)' FOR TRS-80 AND PET!'R((1)BL)1$'* JUDGE ANSWER+S$"?"16000 +TRTR1+S$C$12000 +14000. RL"THAT'S ";V`RIGHT;%j6t" RIGHT!!"<~Yd **********************qn *** GRAPHICS ***|xDS.25X15C1((1)14)1C2((1)14)1C2C16560L0382C10,39LC20,39L,6150,6170& EX$"GREAT APPLES !!! "0 6180P EX$"SUPER APPLE STEMS !!!"Z 6180 EX$"FANTASTIC GREEN APPLES !!! " 6180 EX$"TASTY APPLE CIDER !!!" 6180 EX$"O K! APPLE CORE !!! " $2 . 8EX$;", ";NAME$ B10 HINK THE WORD IS?"3 "TYPE IN A '?' FOR A HINT."; :C S$N 11000^ HT115000h 4200 p ********************** z *** REWARD ***  *** SCORE KEEPING *** RIGHTRIGHT1  23 X((1)5)1 X6090,6110,6130)"#" I I1L( D$(C$,I,1)I J((1)L)1: MIX POSITION] B$(J)"#"4130g 4100t "B$(J)D${ ,I 6I1L @T$T$B$(I) JI TT$C$4040 ^ h:"HERE IS THE SCRAMBLED WORD." r |T$  "WHAT DO YOU TVE TO GUESS THE WORD!"9 "IF YOU TYPE IN A '?' I WILL"Q "GIVE YOU A HINT."W j "HERE WE GO!"r : "TYPE RETURN WHEN YOU ARE READY TO START";X$   MAIN PROGRAM 10000 C$FL$(R) L(C$) T$"" I1L B$(I20 I1200% "WORD SCRAMBLE";, I5 255C I13000J IV I124\ c Ii % *"HI! I'M YOUR FRIENDLY COMPUTER!" 4 > H"WHAT IS YOUR NAME?" RNA$ W \ "I WILL SHOW YOU THE LETTERS," "AND YOU HAx%d SCRAMBLED WORDS BY GARY ORWIG? THIS WAS A MISTAKE! INITIALIZATION - SET 'TL' EQUAL TO TOTAL NUMBER OF WORDS IN YOUR DATA SET.TL60BLTLFL$(TL),HN$(TL),B$(20)I1TLFL$(I),HN$(I)$I INTRODUCTION 2       2:10C0>24:"PRESS RETURN TO CONTINUE.....";A$:`L(C$):(40(C$))21:C$:|L(C$):(40(C$))21"-";:XX1:XL6 :BIAS.5:33,40 ORIGINAL CONCEPT BY SIR FRANCIS GALTON( DESIGN BY 2 JOSEPH HUILT ON THE 1ST HIRES PAGE THERE IS ROOMBELOW TO DISPLAY THE NUMBEROF DROPS AND THE DISTRIBUTION IN EACH OFTHE COMPARTMENTS."::"'DROPS' IS PROGRAMMED FOR 1000, SO YOU WILL 'SHAKE, RATTLE AND DROP' FOR A LONGTIME. SUGGEST YOU ENTER SPEED AT 100."EPEND.":"SEEM TO REMEMBER A SIMPLE FORM OF THE QUINCUNX WAS ON AN EARLIER DOM, BUT BE- LIEVE YOU WILL FIND THIS ONE INTERESTING.":2~3:"THE PROGRAM RUNS IN VIVID COLOR AND RATTLES AS THE SHAPE DROPS. AS THE QUINCUNX IS BA DEVICE"u"TO APPROXIMATE A NORMAL DISTRIBUTION. THIS DEVICE HAS COME TO BE KNOWN AS GALTON'S QUINCUNX.":"THE 'QUINCUNX' ILLUSTRATES THE ORIGIN OFTHE CURVE OF FREQUENCY THAT MIMICS IN A VERY PRETTY WAY THE CONDITIONS ON WHICH DEVIATIONS DbDROPS1000360l;2:C$"GALTON QUINCUNX":4:5: :"IN 1889 ENGLISH GENETICIST SIR FRANCIS GALTON, COUSIN OF CHARLES DARWIN, PUB- LISHED A CLASSIC WORK ENTITLED 'NATURAL INHERITANCE' (MASMILLAN & CO. NEW YORK, P.63) IN WHICH HE DESCRIBED 2Z:I S16336:B14/ BOUNCE(S)(S)6 B= YJ 1X,Y8\ I(XX0)166l H(I)H(I)1} &Y159H(I)1 0X6,YX7,Y :23:12::"THE GALTON QUINCUNX": D21:"DROPS = ";DR;:I32:"." N22:I32:H(I);"" XDRDR1X,Y:XX16 JJ:I% T DROP BALL1 ^DROPS1: hXX0L rYY0Y0808Z |YY0400l AX,Y8:XX1w 1X,Y R(1):P((100R))100 21:35:P PBIAS450 X1X8:470 X1X8  ADJUST THIS LOOP TO CHANGE SPEED I110 I1638416393:A:I,A:I* I1118 H(I)0:IG :2:8:3k 50,0230,0230,15950,15950,0} SET-UP GRID X0140:Y010 I192 XX08(I1) YY08(I1) J1I:X,Y "XX16:J ,XX0I8:YY8 6J1I1 @;BIAS2 n"":"TYPE A SPEED BETWEEN 0-100 --> ";Z x:"ENTER A NUMBER BETWEEN 0 AND 100 TO":"SEED THE RANDOM NUMBER GENERATOR--> ";SR I1SR:R(1):I:30 1,0,4,0,35,45,54,63,4,0 GENERATE BALL-SHAPE TABLE H(11) 232,0:233,64ILSENRATH& < PROGRAM BY BRUCE FIELD F5:"THIS PROGRAM PRODUCES A GALTON QUINCUNX"::"TO SIMULATE A NORMAL DISTRIBUTION." P:"DO YOU WISH TO BIAS THE DISTRIBUTION? "::"(Y/N)--> ";A$ ZA$"N"110 d:"TYPE A NUMBER BETWEEN .3 ADN .7 --> " :::700>24:"PRESS RETURN TO CONTINUE.....";A$:`L(C$):(40(C$))21:C$:|L(C$):(40(C$))21"-";:XX1:XL6 :BIAS.5:33,40 ORIGINAL CONCEPT BY SIR FRANCIS GALTON( DESIGN BY 2 JOSEPH H  RINTER MUST BE IN SLOT 1":% ;::I @C$"TURN ON YOUR PRINTER":4:5U E::: J"PROGRAM TRANSLATED FROM TRS-80 TO APPLE BY JOYCE CONKLIN BY DAVID P. HESPELT ON 20 MAY 1983, CIDER PRESS JUNE 1983, SAN FRANCISCO APPLE CORE": T2 ^10 R:: 1:(15):! Y123, X1Y@ A$A$(A(X,Y))e A$A$" ": SPACE BETWEEN QUOTESl X (132(A$))2);A$ A$"": NO SPACE BETWEEN QUOTES Y (18):0: ,2:C$"PASCAL TRIANGLE":4:5 1:: 6:"EPSON MX-80 PE8  TRANSLATED FROM TRS-80 TO APPLE BY JOYCE CONKLIN[ # REQUIRES EPSON MX-80 PRINTERi (A(25,25)q 2: <12:14::"LOADING ARRAY" FX123 PA(X,X)1:A(1,X)1 ZX dY323 nX2Y1 xA(X,Y)A(X,Y1)A(X1,Y1) X:Y :::300?24:"PRESS TO CONTINUE....";A$:aL(C$):(40(C$))21:C$:}L(C$):(40(C$))21"-";:XX1:XL6 BY DAVID P. HESPELT 20 MAY 1983 CIDER PRESS JUNE 1983  SAN FRANCISCO APPLE COR  (RANGE IS G0 THROUGH FS4)":::"A BRIEF SUMMARY OF THESE INSTRUCTIONS WILL BE DISPLAYED DURING NOTE ENTRY."::"PRESS 'RETURN' TO BEGIN. ";X$:OIGHTH":" Q = QUARTER S = SIXTEENTH#:"3. A LETTER INDICATING THE NOTE, A-G, OR A REST, R. (IF A REST, THIS IS THE LAST CHARACTER TO ENTER.)"::"4. A LETTER FOR SHARP OR FLAT (S,F)#:"5. A NUMBER (0-4) INDICATING THE OCTAVE AN F SHARP IN THE 3RD OCTAVE.":::"PRESS 'RETURN' TO CONTINUE. ";X$:+#"HERE IS A COMPLETE NOTATION SUMMARY:":::"1. OPTIONAL LEADING DOT"::"2. A LETTER INDICATING NOTE DURATION:":" W = WHOLE (DOT NOT ALLOWED)":" H = HALF E = ETHE 'H' INDICATES A HALF NOTE, THE 'C' INDICATES THE NOTE":"ON THE SCALE, AND THE '2' INDICATES THE OCTAVE.JZ#:"THE LEADING PERIOD (.) IN THE SECOND EXAMPLE INDICATES A DOTTED NOTE, IN THISCASE AN EIGHTH ('E'). THE REMAINING":"CHARACTERS INDICATE1014,0:1015,3:(#:2:"THIS PROGRAM ENABLES YOU TO INPUT NOTES AND CREATE TUNES, WHICH CAN BE SAVED TO TAPE OR DISK."::"THE FOLLOWING ARE EXAMPLES OF THE NOTA- TION USED IN ENTERING NOTES:"::9:"HC2 .EFS3lF#:"IN THE FIRST EXAMPLE, 230,104,134,003,134,001,133,000":I135:I767,((PO$,I43,I41)):ITPO$"170,160,001,132,002,173,048,192,136,208,004,198,001,240,007,202,208,246,166,000,208,239,165,003,133,001,198,002,208,241,096":I133:I802,((PO$,I43,I41)):I:1013,76:1:24:"PRESS RETURN TO CONTINUE LISTING";X$::" NT DUR NT DUR NT DUR";I:24:"PRESS RETURN FOR MENU";X$:1000H@PO$"201,084,208,015,032,177,000,032,248,230,138,072,032,183,000,201,044,240,003,076,201,222,032,177,000,032,248, ";:6280:XTB1:MI0::N01000:" NT DUR NT DUR NT DUR";:I1N:DD%(I):NTNT%(I):MIMI1:TBTB1:NUTB:MO20:60:3R:114(TB20)(MI100)(MI10):MI". "NT100)NT" "(D10)(D100))D:NUTB:MO60:60:R597120]TB(J)(K)7LT:"#"M":"A$;:50:TT10:T416250:T1:jM:::"DO YOU WANT TO CHANGE ANY NOTES? (ENTER":"NOTE #, OR 'RETURN' FOR NO CHANGE.) ";"";X$:N1N:N(X$):N0NN1:6340 NN1:FL1:2110:NN1:FL0:"NEXT CHANGE (NOTE #, OR RETURN):).6931.996110,6120,6130,6140,61508A$A$"S":6160LA$A$"E":6160`A$A$"Q":6160tA$A$"H":6160A$A$"WNT0A$A$"R":6220K0$NN200NNNN2:KK1:6180.I112:X(NNNT(I)):X1.02X.98JI8I:A$A$NN$EPS)":NT%:D%:NNT%(0)<p:TE4:T1:N01000:M1N:M81M161M241M321M401M4816060::"PRESS 'RETURN' TO CONTINUE LISTING.";X$:DD%(M):NTNT%(M):NNNT:DO2:NUD:MO3:60:R0D255DO3A$"":DO3A$".$DDDO:(D5000::"FILE NAME: ";F$::"INSERT DISK AND PRESS RETURN. ";X$:D$"OPEN"F$:D$"READ"F$:NT%(0):D%(0):NNT%(0):I1N:NT%(I):D%(I):I:D$"CLOSE"F$:5180:"POSITION TAPE, START PLAYING, AND PRESS RETURN. ";X$::"LOADING. . . (WAIT FOR 4 BEWRITE"F$:I0N:NT%(I):D%(I)8,I:D$"CLOSE"F$:4200J:"POSITION TAPE, START RECORDING, AND PRESS RETURN. ";X$::"SAVING. . . (WAIT FOR 4 BEEPS)":NT%:D%h:"LOAD TUNE FROM TAPE OR DISK? (T/D) ";X$:X$(X$,1):X$"T"5140:X$"D"):TE1TE83000:M1N:DD%(M):NTNT%(M):50:M::N04200:NT%(0)N:"SAVE TUNE TO TAPE OR DISK? (T/D) ";X$:X$(X$,1):X$"T"4170:X$"D"4000::"FILE NAME: ";F$::"INSERT DISK AND PRESS RETURN. ";X$:D$"OPEN"F$:D$"DELETE"F$:D$"OPEN"F$:D$""SORRY, I CAN ONLY GO DOWN TO G0":2110c2 NT17NT0ĺBE$"SORRY, I CAN ONLY GO UP TO FS4":2110< NN1:D%(N)D:NT%(N)NT:TE1:50:NMA11ĺBE$"JUST TEN NOTES TO GO. . .Z NMA1000:FL2110n 3 ::"PLEASE CHOOSE TEMPO (1-8) ";X$:TE(X$z#  ̠ РŠˠ Š٠ ĠӠ) ! Ҡ!ؠӠ"àŠ̠Š ؠ ĠӠ ΠҠ   Ҡ ҠȠӠҠӠؠŠƠؠ ŠȠˠΠ Ա!ԱӠ  ŠĠˠҠԠҠǠҠ8ԠƠؠҠɠŠؠϠ Ӯà" ՠ  ̠٠ נՠ  Ҡ ̠ԪՀ`|ת``pĂЂЂĂԂЂЂЀЂԂժ}ժԪժժԪՊx@ԂԂЂЂԂԂЂĂ`ժՀտ~`@|?ׂ_}~A?` ЪߪՀ`pת`hp>ժսխԊѨԪՀՂ@||~|ժ>ժՀ|`@ժ׀|ׂ?``ՀЪժת`ptժ``pԊЂ|ժսժժЪЀժՀ`ժՀ߂ |AׂZ: KEYS." 10:"PRESS 'RETURN' ONCE TO HIGHLIGHT 'RUN'":"OPTION. PRESS <- -> KEYS TO SELECT":"OTHER OPTIONS." 14:"PRESS RETURN WHEN DESIRED OPTION IS":"SHOWN." 19:8:"PRESS ANY KEY TO RU2( APPLE COMPUTER ENJOYMENT SOCIETYG FORT LAUDERDALE, FLORIDA\D$(4): CTRL-Dd(:}2D$;"BLOAD ACES.PIC"<16302,0FI13000:IP:Z2:11d"A.C.E.S. PRESENTS"n4:13x"VOLUME: GR-19"< 7:"MOVE CURSOR TO pՊ``0Ha߂ԊЂĈЂЂЂЊЂЂժժժժ`@ЂЂЂĈЈЂ|ժՀߊ`|`~`|`xժuծ׀o~p`ApՊ񃀟x`0ߪߊĈժߪՀժժx@ЂЂĈЂxժՀ    xժՀ׀@O}0``@pՊÃx`0<ߪߊĈԊԊժժժժx@ԊԊĈԊxժՀ~    pת|p@׀_{}|` `ԪՂx08~pתwЀĈЂկ}תժժժժx@ĈժՀ``````ߪ|pׂ_y|` ` s RETURN  ɍ`` > 1 L HH   ^ hhH h`    m F$pؠ HhL5#R8=$0pI1`I1 m DISK ERR   ɛ=ɍ ee   Z *   LU  L H8     4 h    4  LQ8*i8e` m INSERT SOURCEL m INSERT TARGET s PRESS  (&Hɠ)?(h`  i  HhH h` p SELECT FILE, FOR A NEW DIRECTORY` p SELECT COMMAND, FOR ANOTHER FILL $ v RETURN OR ESC `"@Ȅȱ  Z m TARGETL| $ v SLOT= DRIVE $JJJJ $( ɍIH h $ ɍI ȑ` (Ȅ$ ɛ L ! ɛ !` $$)? @( ɍɛ)Ɉ&ɕ $  L H8H   G  !% "L "0 1 z L m ANOTHER DIRECTORY ?$ ɍ L m SOURCE   ɍ ɛ ܩhi ȥJJJJLUJKi ԅl(h)JL G ! | G ɠ?2i@ 2 (᩠Lɩ8@A H@Ah@AAd  A LL$* i` .Qt >: ($   ) L m ERROR hhL ` s VOLUME | $$A⩰ v FILEө$ P v FREE SECTOR` % L s Rĩ s Wҩ  s T=$ S=` s MOD BY FMP '83`$L[($Hi i ()?` RUN BRUN LOAD BLOAD EXEC LOCKUNLOCK COPYRENAMEVERIFYDELETERESTORREMOVE hhH hHHL ,,,` ,L L   .L %$ $ $(*)+!h"0 H $(*0 ~)J(  08 j( Ɉɕɛɍ 9 % " H H` L  -r. 8i$L[i i d2080aMICRO-WARE : HBhi T ii / X v DISK SELECT (BY MAC)  1 x ."# R ()(>( H hɛL} Ɉ%ɍZɕi p б0ߥᰧ8#H pժ``0@|A߂Ѐժժժ`@xrr|~ժՀ߂|ժժԪ`իwՀ`:17)"THE END"&lW12500:W::R::4:11::"WHAT'S ON THE MENU?"::n12)"PETER C. WEIGLIN":"APRIL 1983 APPLE ORCHARD, STARTING PAGE 56, IS AN ARTICLE COVERING VARIOUS TYPESOF MENUS, WRITTEN BOTH IN BASIC AND PASCAL. THIS 'A11000:X:207:15:8:"WISH HAD FILE TO SORT!!!"d:12)"TRY IT AGAIN..":X11000:X:20:15:5:"SAVE THE ELECTRICITY. PRINT WHAT??":12)"TRY IT AGAIN..":X11000:X:20X:15:2:"NOW, FINALLY, YOU ARE HITTING ON ALL 6"b"WHAT RECORDS? NO GOT ANY RECORDS"Qn:12)"TRY IT AGAIN..":X11000:X:20:15:5:"DUMMY, YOU DO NOT HAVE ANY FILES.":12)"TRY IT AGAIN..":X11000:X:20,:15:8:"ADD/DELETE!!! WHAT TO???"6:12)"TRY IT AGAIN..":X:M%MH% Q86- RV%:55:V%(V%2):M%M%1E SV%VH%V%VL%:M%1Q VV%:52 Y21:38:868:M%: VTAB ADJUSTED FOR $ 0F MENU ITEMS Z72 [16368,0:M%100,200,300,400,500,600 \ LINE 91 BRANCHES TO PROGRAM LINE NUMBER ]$d:15:3:OWS, AND NUMERICAL PARAMETERS* E ARROWSC FM%1:VL%:52:V%VL%w G21:38:M%: VTAB ADJUSTED FOR # 0F MENU ITEMS H16368,0 IQ%(16384):Q%12873 JQ%14191 LQ%14982 MQ%13672 OV%:55:V%(V%2):M%M%1 PV%VL%V%VH% ==> ARROW MENU <== =::2W >5:2:"WHAT'S YOUR PLEASURE?": PRINTS MENU HEADING` ?VL%y @I16:9:M$(I):: A:"MOVE ARROW KEYS; TO SELECT" B 136=UP (LEFT); 149=DOWN (RIGHT) C 141= (128+13) D ARROWS AND UN-ARRH%2): FIRST & LAST MENU SCREEN VTAB LINESM 1LA$"==>":RA$"<==":BK$" "U 260g 3 PRINT SUBRS 4LA$;:30:RA$;:9::M$(M%):: 5 PRINTS ARROW AND MENU LINE 7BK$;:30:BK$;:9:M$(M%) 9 : REPRINTS LINE THE ARROW JUST LEFT <(7) ( MERNU ITEM STRINGS? )M$(1)" SHOW/CHANGE RECORD "\ *M$(2)" LOAD/SAVE FILE "} +M$(3)" ADD/DELETE RECORDS " ,M$(4)" SORT THE FILE " -M$(5)" PRINT OUT FILE " .M$(6)" END ACTIVITY " /MH%6: # OF MENU ITEMS+ 0VL%8:VH%6(M  ************************? * *^ * ARROW MENU *} * APPLE ORCHARD * * PETER C. WEIGLIN * * * ************************1000 D$(13)(4):GG$(7)24158,124 ^113,70121,581 h181,110189,98E r113,98121,110X |181,58189,70i W13000:W (4);"RUN COLOR PLOTTING" YDXC,YDnXC,YDXC,YDxI12000:I6A80:B600:C200X0702YA(XC)(XC)B X,Y:X X721322@ YA(XC)(XC)B4(X102)3.17L X,Y:X] X1341482s YA(XC)(XC)B X,Y:X C34:D20 XX1 5 "XC,YDXC,YD ,XC,YDXC,YD 6X,Y40X,Y40 @2 J144,44158,44 T144,1  :1W119:Z11:A1420X279292:(BXWH2YZBBAT<X,Y:XeFC9:D5:E10rPXX1:2ZX,YEX,YEdXC,YDXC,YDnXC,YDXC,YDxI12000:I6A80:B600:C200X0702YA(XC)(XC)B     @!ϥL  m REPLACE EXISTING FILE ? $ L> m RENAME TARGET FILE ? $ hhLT@ m RENAME $ ɛLL# 0uȊ 4 0S4Ȋ OR L> m CANNOT RESTORE FILE L> m FORMAT ERROR   0LTL LbLȱ"퐏 ӥ  8     ҥ `ȱ`hhL  + TO GO."GQ0H340RL"THE LOCAL SULTAN IS COLLECTING.....JUST WAIT....."[V340l`A(10(1))zjA21240t"YOU HAVE ARRIVED AT AN OASES-----YOUR CAMEL IS"~"FILLING YOUR CANTEEN AND EATING FIGS."Z4S65"YOU DI(1))X151040I"CONGRATULATIONS, YOU SUCCESSFULLY ESCAPED!!!!"QQ0Z340"YOU WERE MORTALLY WOUNDED BY A PIG STABBER WHILE ESCAPING."1410$X1(100(1)).8X1241100B"YOUR RANSOM HAS BEEN PAID AND YOU ARE FREELOCAL SHEIK HAS AGREED TO THEIR RANSOM. . ."`"DEMANDS....BUT.....WATCH FOR THE PYGMIES!!!!""YOU HAVE A NEW CHOICE OF SUB-COMMANDS:""#7 ATTEMPT AN ESCAPE""#8 WAIT FOR PAYMENT""YOUR SUB-COMMAND";XX81060X1(10F;" GOOD DAYS LEFT."H "YOU HAVE ";S;" DRINKS LEFT IN YOUR CANTEEN."R>SS1`HS01200R"BETTER WATCH FOR AN OASES!"\Z4f480pA(100(1))zA51120"WILD BERBERS HIDDEN IN THE SAND HAVE CAPTURED YOU.","LUCKILY THE (1))CCX12"YOUR CAMEL LIKES THIS PACE.";340EFF3SF71190\880pX12(10(1)){CCX1"YOUR CAMEL IS BURNING THE DESERT SANDS."340"YOUR CAMEL THANKS YOU!"F0 350"YOUR CAMEL HAS";7ELLED ";C;" MILES ALL TOGETHER."= "WHAT IS YOUR COMMAND";D Y_ Y830,610,680,760,790p &T(10(1)) 0T11200 :"HELP HAS FOUND YOU IN A STATE OF UNCONSCIOUSNESS." DS3 NZ4 X340 bFF1 lF81190 v880X1(10rPP1 |X2(10(1)2.5)* Q09407 P4470D C1C1X2R C1C460 "THE PIGMIES HAVE CAPTURED YOU. CAMEL AND PEOPLE SOUP" "THEIR FAVORITE DISH!!!!!!!" 1560 "THE PYGMIES ARE "CC1;" MILES BEHIND YOU." "YOU HAVE TRAVOUND BY HELP."M 6"IF HELP DOES NOT FIND YOU AFTER COMMAND SIX, ;YOU LOSE."r @"GOOD LUCK AND GOOD CAMELING!!" J"YOU ARE IN THE MIDDLE OF THE DESERT AT AN OASIS." O2000 TC1991210 ^ZZ1 cZ1ĺ"---------WARNING-------GET A DRINK" P FOR THE NIGHT"' "#5 STATUS CHECK"? "#6 HOPE FOR HELP"E K Q W ]  " YOU HAVE ONE QUART OF WATER WHICH WILL LAST YOU SIX DRINKS." ""YOU MAY RENEW YOUR WATER SUPPLY COMPLETELY AT AN OASES." ,"YOU GET HALF A QUART IF F= "A TRIBE OF KNOCKED-KNEED PIGMIES WILL BE CHASING YOU."s "YOU WILL BE ASKED FOR COMMANDS EVERY SO OFTEN."y  "COMMANDS:" "#1 DRINK FROM YOUR CANTEEN" "#2 AHEAD MODERATE SPEED" "#3 AHEAD FULL SPEED" "#4 STO 26);"CAMEL"/22)"FRED'S COMPUTING"O20)"CORCORAN, CALIFORNIA"Y#::~n"WOULD YOU LIKE INSTRUCTIONS?";xD$(D$,1)"N"320:" WELCOME TO CAMEL. THE OBJECT IS TO TRAVEL" "200 MILES ACROSS THE GREAT GOBI DESERT."      `= X 50/- (' (',  . / L` E..." VA$` A *****? * *^ * ARROW MENU *} * APPLE ORCHARD * * PETER C. WEIGLIN * * * ************************1000 D$(13)(4):GG$(7)RROW MENU' LOOKS NEAT":"YOU SHOULD HAVE FEW PROBLEMS, IF ANY, INCORPORATING THIS MENU IN YOUR PROGRAM.THERE ARE REMARK STATEMENTS TO COVER ALLTHE ACTION OF THE MENU, WHICH CAN BE RE-MOVED FOR FASTER PROGRAMMING."L23:"PRESS ANY KEY TO CONTINUGRAM THAT"]7b"DRAWS THE CIRCLE JUST SEEN."::Dl540,580Nq3000~v::"NOW WE CAN EXPERIMENT WITH VARIETIES":"OF THE SAME IDEA USING THE SAME CENTER":"AND RADIUS. WE CAN USE THE SYMMETRY OF":"CIRCLE TO PLOT MUCH QUIC OF "R" AND WITH CENTER AT";:"("XCENTER","YCENTER")."D:3[&TH023.14161R0XR(TH):YR(TH).83: CORRECTION FACTOR OF .83 WORKS BEST WITH MY TELEVISION:XCENTERX,YCENTERYDTHN3000 X"HERE IS THE PORTION OF THE PROENTERDXCENTERLXXCENTERHXĺ"OUT OF LIMITS - - TRY AGAIN":460y::"TYPE Y COORDINATE (HOW FAR DOWN):";YCENTERYCENTERLYYCENTERHYĺ"OUT OF LIMITS - - TRY AGAIN":460936"GOOD. NOW WE WILL PLOT A CIRCLE WITH":"A RADIUS OF "R" TO": :"USE FOR OUR CIRCLE, WE NEED TO SELECT"i :"A CENTER POINT THAT HAS THE FOLLOWING"z :"LIMITS:" LXR:HX279R:LYR:HY159R :LX;" < = X < = ";HX :LY;" < = Y < = ";HY::"TYPE X COORDINATE (HOW FAR OVER):";XCALUES BETWEEN ABOUT 10 AND 79"C V:"WORK BEST FOR THIS PROGRAM."I Xj Y"PLEASE TYPE IN A RADIUS:";t ^"";Rz _ hR(R)ĺ"WE NEED AN INTEGER":344 rR10R79ĺ"TRY VALUES BETWEEN 10 AND 79":344 |936 "NOW THAT WE HAVE A RADIUSD"1 ":"A CENTER POINT. WE NEED TO SELECT A "a ,:"POINT THAT IS FAR ENOUGH AWAY FROM THE" 6:"EDGE OF THE SCREEN SO THAT OUR CIRCLE" @:"DOES NOT GO OUT OF THE PLOTTING RANGE " J:"OF THE APPLE (0-279 ACROSS AND 0-159" T:"DOWN). VAPH HAS BEEN PLOTTED."E :"FEEL FREE TO USE AND REVISE THE IDEAS"k :"ANY WAY THEY FIT YOUR NEEDS."s : :"YOU MIGHT EVEN CONSIDER CONTRIBUTING" :"THEM TO MACUL FOR DISTRIBUTION." 3000 "BEFORE WE CAN PLOT THE CIRCLE, WE NEE CONTINUE." 20:20- "JIM WINEBRENER"7 3000c "FIRST WE WILL PLOT A CIRCLE USING A " :"COUPLE OF DIFFERENT METHODS. I WILL" :"DISPLAY THE LISTING OF THE CRITICAL " :"LINES OF THE PROGRAM ON THE SCREEN" :"AFTER THE GR:"DOWN).":Z936$_5Rd"I HOPE THIS PROGRAM WILL HELP YOU WITH"n:"SOME OF THE HIGH RESOLUTION GRAPHICS ON"x:"ON THE APPLE. WHEN YOU ARE TIRED OF A":"PARTICULAR PIECE OF GRAPHICS, SIMPLY" :"PRESS THE SPACE BAR TO     DANT A NEW CAMEL GAME?";6D$4@(D$,1)"Y"320>T1650k^"YOU RAN OUT OF WATER....SORRY CHUM!!!"uh1410r"-----------------"w" CHICKEN"y"-----------------"|Z4S6C0C10Q0F0 P01560U51520T"THE LOCAL SHEIK NOW USES YOUR SKULL FOR A CHANGE PURSE!!!"^1560lU71550"PEOPLE WITH LITTLE INTELLIGENCE SHOULD STAY OUT OF THE DESERT."1560"TURKEYS SHOULD FLY, NOT RIDE CAMELS!!!!!"","W PYGMIES WERE FOOTWEARY!!!"!x2U(10(1))Q"YOU DIED IN THE DESERT."_U11460"THE NATIONAL CAMEL'S UNION IS NOT ATTENDING YOUR FUNERAL!!!"1560U31490"YOUR BODY WAS EATEN BY VULTURES AND IMPORTED CANNIBALS!!!"SANDSTORM.....GOOD LUCK!"+X5(10(1))=X6(10(1))L X651320WCCX5a1330l(CCX52"YOUR NEW POSITION IS ";C;" MILES SO FAR!"<FX1(100(1))PX15ıZC1C11d"YOUR CAMEL HURT HIS HUMP."n"LUCKILY THERTY RAPSCALLION! YOU RAN YOUR POOR CAMEL TO DEATH!!"?1410x"YOU WIN, A PARTY IS BEING GIVEN IN YOUR HONOR...."".....THE PYGMIES ARE PLANNING TO ATTEND............"1560X1(100(1))X151350"YOU HAVE BEEN CAUGHT IN A           N 24:5:"PRESS THE ";::"SPACE BAR";::" TO CONTINUE";:O0$::936: 24:5:"PRESS THE ";::"SPACE BAR";::" TO CONTINUE";:O0$:936:21:,:3 CLL IN THE FIRST TRIANGLE"&NX1X26N,Y1X4,Y4=NG3001q"NOW WE CAN COMPLETE THE TRAPEZOID."~NX4X3&X2,Y2N,Y40N:3000 3000 "THAT'S ALL FOR NOW...MORE TO COME LATER." 20:20 "JIM WINEBRENER" INE HORIZONTAL;X2((1)100)100: BETWEEN 100 AND 200hX3((1)100)179: BETWEEN 179 AND 279~Y3((1)59)100Y4Y3X4((1)30):3X1,Y1X2,Y2X3,Y3X4,Y4X1,Y121:"RANDOM TRAPEZOID"3001"NOW WE CAN FIROGRAM WILL SHOW THIS DONE"L@:"IN STEPS. PRESS THE SPACE BAR AS USUAL"nJ:"TO GET TO THE NEXT STEP."xT3000^ GENERATE RANDOM TRAPEZOIDhX1((1)40)20: BETWEEN 20 AND 60rY1((1)50): BETWEEN 0 AND 50|Y2Y1: ASSURE TOP LMPLE LOOP POSSIBLE.")1410144033000_"WE CAN FILL IN OTHER FIGURES SUCH AS":"RECTANGLES AND TRAPEZOIDS BY BREAKING"":"THEM UP INTO SEPARATE TRIANGLES AND",:"FILLING THEM IN SEPARATELY. THE NEXT"6:"PART OF THE P30005"HERE AGAIN IS THE LISTING OF THE PART"`:"OF THE PROGRAM THAT FILLED IN THE":"TRIANGLE. NOTE THAT CHOOSING ONE SIDE":"OF THE TRIANGLE TO BE VERTICAL (OR FOR":"THAT MATTER, HORIZONTAL) MAKES THE USE":"OF A SI20"+<:"THRU 1260. HERE IS THAT LINE."1F;P1280EZ3000od"NOW WE CAN FILL IN THE TRIANGLE BY"n:"ADDING ONE SIMPLE LOOP TO OUR PROGRAM."x300016304,0: RESET HGR WITHOUT ERASING1NY1Y2X3,Y3X1,NNY1((1)50))Y2Y1((1)50)50?X3((1)50)200UY3((1)130)10^:3{X1,Y1X2,Y2X3,Y3X1,Y1 3000"THE TRIANGLE IS DRAWN WITH ONE":"STATEMENT AFTER THE PROPER RANDOM"(:"NUMBERS ARE GENERATED IN LINES 12:"PLOT THE SOLID CIRCLE FROM THE CENTER"9~:"POINT."?I1070S1180]3000"NOW WE CAN DO SOME WORK WITH TRIANGLES.":"FIRST LET ME PLOT A RANDOM TRIANGLE"":"WITH ONE OF ITS SIDES VERTICAL."X1((1)50)X2X1ELEVISION2.XCENTERX,YCENTERYXCENTER,YCENTER:8THDB3000tL"THIS LAST FORM OF PLOTTING COULD BE USED"V"IN CREATING PIE CHARTS AND POSSIBLY"`:"WORKING WITH FRACTIONS AND CIRCLES."j:"HERE IS THE LINE THAT WAS CHANGED TO")tND A NEW"6:"COLOR. WE WILL MODIFY THE PLOTTING"f:"STATEMENTS TO BE MORE LIKE WHAT WE SAW":"DURING THE FIRST CIRCLE WE PLOTTED.":1TH023.14161R $XR(TH):YR(TH).83: CORRECTION FACTOR OF .83 WORKS BEST WITH MY TTHE LINE WHICH WAS CHANGED"K:"TO PLOT LINES ACROSS THE CIRCLE RATHER"p:"THAN JUST THE POINTS ON THE":"CIRCUMFERENCE OF THE CIRCLE."9003000"WE WILL NOW FILL IN THE CIRCL USING" :"A SLIGHTLY DIFFERENT METHOD AL"3H:"PLOT A SIMPLE DISK, WITH A LITTLE COLOR"BR:"EVEN."L\3000Uf:2lpTH03.141621RzXR(TH):YR(TH).83XCENTERX,YCENTERYXCENTERX,YCENTERY:XCENTERX,YCENTERYXCENTERX,YCENTERYTH3000"BELOW IS LY CHANGES ARE"@:"IN LINE 680 (SMALLER ARC OF THE CIRCLE)"n:"AND LINE 700 (PLOTTING 4 POINTS AT A":"TIME RATHER THAN 1) 670,710*30004"NOW CHANGE FROM PLOTTING INDIVIDUAL ">:"POINTS TO PLOTTING LINES AND YOU WILKER."3000:3/TH03.141621RKXR(TH):YR(TH).83XCENTERX,YCENTERY:XCENTERX,YCENTERY:XCENTERX,YCENTERY:XCENTERX,YCENTERYTH3000"HERE IS THE LISTING FOR THE FASTER":"CIRCLE PLOTTING. THE ON0:1490:I83:1490:I87:14907I93:1490:I99:1470?50I:10v"DIFFICULTY LEVEL (0-5): ";:60:DRE16I$"0"I$"5"ė:8:"ZERO TO FIVE ONLY!"::970DD5:G40AD::10)"GOOD LUCK!":K(N(1))1S1N:T(1,S)0:T(2,S"N"950EzI132:1480:I117:1490:I0:1490:I104:1490:I99:1480SI0:1480I87:1490:I83:1490:I0:1490:1490:I87:1490:I99:1490I87:1490:I83:1490:I61:1490:I66:1490:I83:1490:I99:1490I0:1490:I66:1490:I69:1480:I50::29 " YOU SET THE LEVEL OF DIFFICULTY (THE ?*l4"LIKELIHOOD OF THE GUILTY PARTY LYING),r>H"FROM 0 (EASIEST) TO 5 (THE KILLER WILLR\"ALWAYS TELL THE TRUTH).f::p"YOU MAY TYPE Q AT ANY TIME TO QUIT.uSN$D YOU WILL SEE THE ANSWER.$::P" WHEN YOU THINK YOU KNOW THE KILLER,V"TYPE K. THE INSPECTOR WILL CHALLENGE"YOU TO NAME THE GUILTY PARTY. THEN,"TYPE THE SUSPECT'S INITIAL TO MAKE THE "ACCUSATION. .D"IS GUILTY AND MAY LIE. WHENEVER THE"4N_X"INSPECTOR ASKS FOR A SUSPECT, TYPE:"bS1N::5);(S64)" FOR "S$(S);lS2ĺ" THE BUTLER";v:"."50::" CLOUZOT WILL THEN INTERROGATE THAT""SUSPECT, ANI$"N"885!I$"Y"450'/:["YOU ARE ASSISTING THE GREAT INSPECTORa "CLOUZOT. A MURDER HAS BEEN COMMITTED."THERE ARE "N" SUSPECTS. "N1" ARE INNOCENT -&0"THEY ALWAYS TELL THE TRUTH. THE OTHER :),P$(P,1)::I06:J$(I):AI05:AL$(I)::I05:CN$(I):I:P8p8)"C L O U Z O T !:"DO YOU WANT SOUND (Y/N)? ";SN$:SN$"Y"SN$"N"466SN$SN$"N"Ĺ770,96::"DO YOU WANT THE RULES (Y/N)? ";:60r"AT THE BALLET WHEN THE DEED WAS DONEq|"SCANDALOUS!","YES, YES, VERY SAD","IN FRANCE THAT WOULD BE ILLEGAL"I WAS AFFLICTED THUS, BEFORE I JOINED THE SURETE"WHO IS MORE DESERVING?","QUELLE DOMMAGE!S1N1:S$(S):P1A:P$(P,0ICK, YOU OAF!","HMMM. VERY SUSPICIOUS.M@"IN FRANCE THE WEEK OF THE MURDERrJ"ILL THE EVENING OF THE KILLINGT"WITH RELATIVES IN AKRON WHEN THE MURDER WAS COMMITTED^"IN JAIL, DRUNK WHEN POOR VINCENT DIEDh"AT A STATE DINNER THAT NIGHT(S","LAZY5"UNNHH! NOT JIU JITSU, KATO, YOU FOOL!d"WHO HAS REMOVED THE ARM FROM THIS CHAIR?"NEVER MIND, THE SURETE PAYS FOR DAMAGES.""OF COURSE, I HAD ALREADY DEDUCED THAT.,"I AM NOBODY'S FOOL, MY FRIEND!&6"LET GO OF THE CUE-STON "ESMERALDA","FRED FELL/ "THE KILLERG "INNOCENT","GUILTY] "A MAN","A WOMANz "BLUE-EYED","BROWN-EYED "LEFT-HANDED","RIGHT-HANDED "TALL","SHORT "RICH","POOR "ATHLETIC","CLUMSY "BRILLIANT","STUPID"AMBITIOU53 8" <I$:I$:RE(I$)64:] dC$"CLOUZOT: ":I((79)):SP$" " n1800: POKE SOUND SUBROUTINE TO PAGE 3 xA9:N6:P(A,1),AL$(5),T(A,N1),A(A,N1),CN$(5):N9.9999:410 "AUNT ANN","BENSON "CORA COOK","DR. DENTIED*"  *FOR EDUCATIONAL USE &*@ *MAY NOT BE SOLD.COPY-*^ ! *RIGHT 1982 CUE,INC *| " *********************** (100 222:1 3"PRESS TO END" 4"PRESS TO CONTINUE => "; 5BV$ 6BV$(27)30000 7BV$(13) *2  * 333 MAIN STREET *P  * REDWOOD CITY *n  * CA 94063 *  * *  * (415)363-5472 *  * *  ***********************  *PROGRAM MAY BE COP******$ * *B  * SAN MATEO COUNTY *`  * OFFICE OF EDUCATION *~  * & *  * COMPUTER-USING *  * EDUCATORS *  * *  * SOFTSWAP *  *  C L O U Z O T !% S OUTWIT A BRILLIANT DETECTIVE.^ i  APPLESOFT 32K  AUTHOR UNKNOWN  ADAPTED TO APPLE FROM PET BY KEITH FAULKNER. ***************** 2) AERIAL DISPLAY 3) SPIRAL 4) FLOWER III" 15:"5) QUIT" :5:"WHICH? ---> ";X X1ĺ(4);"RUN HIRES COLOR VS X" X2ĺ(4);"RUN AERIAL DISPLAY" X3ĺ(4);"RUN SPIRADEMON- STRATE, HE WROTE 4 PROGRAMS MAKING FULL"\ s"ADVANTAGE OF APPLE'S COLOR GRAPHICS. x:"OF THESE PROGRAMS, 'AERIAL DISPLAY' IS THE BEST AND COULD BE MADE TO CONTINUE THE FIREWORKS INDEFINATELY."n }:"ENTER NUMBER 1) HIRES COLOR VS X OSUB 4:GOSUB 5% EXAMPLE LINE 100- Z:Z dC$"COLOR PLOTTING FROM EQUATIONS":4:5` i1 n:"A.R.RUNMLE WROTE AN ARTICLE PUBLISHED INTHE WASHINGTON APPLE PI MARCH 1983, CON-CERNING PLOTTING CURVES USING APPLE II+ RATHER THAN A SLIDE RULE. TO X:::100>24:"PRESS RETURN TO CONTINUE.....";A$:`L(C$):(40(C$))21:C$:|L(C$):(40(C$))21"-";:XX1:XL6 HEADINGS TO BE CENTER  SHOULD BE C$="STATEMENT" C$=" " :GOSUB 4 UNDERLINE C$:G100"Du"WOULD YOU LIKE TO PLAY AGAIN (Y/N)? ";9"NuRS$J"XuRS$"Y"960^"buRS$"N"30030h"lu:10"vu"WOULD ANYONE ELSE LIKE TO PLAY (Y/N)? ";"uRS$"uRS$"Y"Ĭ"uRS$"N"30080"u"u(4);"RUN MENU"Ă%!I$(SP$,Z21)(I$,Z1):1750/!I$:!770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202!782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:791,0:792,0!!0u":u:Z(Y10):YY10Z( YSYA:Z1590= ZSZA:Y1590W A(I,J)Z130Y:J,I:] :c :l Z20 Z(I$):Z39I$I$(SP$,39Z):1790 Z39A1:T((I$,Z,1)):TT128(T127):T32T45Ă!(I$,Z):Z20āZ2812:(I$,Z2,1)":":C$"J'ACCUSE! ":I02500:EJ"MAIS- BY NOW YOU MUST KNOW.":1310KT:{^I1A:J1N1:YA(I,J):Z(Y10):YY10ZhYYQYWYA:ZQZW1600rZZQZWZA:YYA1600|A(I,J)Z130Y:J,I:1550: I1A:J1N1:YA(I,J):768,I1:769,50:770:GRA(P,S):Q(R10):RR10Q:LIR:RQ:QIUQA1590lRARXQXI0:zRQ15901730:Qĺ:C$"OF COURSE...":1630RRX:RXRALIR:RQ:QI"IA:A(P,S)Q130R:,:61730@I02500:,K))", ";:M6ĺ@QQA::I01500:::::10:S$(K);::"![768,255:769,255:770I0400:::"YOU HAD "C1" CLUES";Zĺ", YOU BUMBLING CRETIN!50:30000768,I1:769,40:770T050:I0āT1150::T0100:"WRONG! ":13906PZ0:"VE";:I1(G1C)8:"R";:\Z"Y GOOD. SOMEDAY YOU TOO MAY BEd"A GREAT CRIMINOLOGIST!":1440nZA::"ONLY A MASTER BRAIN LIKE MINE KNOWS THE"x"KILLER IS:"::Q255M3A:J0999::I24020M:1490:P$(M,T(MZOT, EH?:1740? C::10:"THAT IS ENOUGH CLUES":1310q:8:"AHHH, YOU HAVE BEEN PAYING ATTENTION.":"WHO IS THE KILLER? ";:60:(:72RE17ĺ"HA HAA!":1390<IRE:I1INĺ"DO NOT TRIFLE WITH ME, M'SIEU!":1310FKIĺXSAL:X5XX5:X5XX5KAR$(AR$,(AR$)3)"WAS ":A$AL$(X):XAlI$I$AR$A$:1500:I01110{P1İ1680J50(A):J7I$C$J$(J):1280J44P51290LI$C$CN$((1)6):1280I$C$"PERHAPS NOT SO "P$(P,L)" AS CLOU:60:1080VP(A(A)N9)4`S((N4)(A)N9)MjSNSN1:P11110itLT(P,S):P2SN1110~SWAR$S$(S)" IS ":1170AR$"I'M ":P11110WK(1)DL1LA$P$(P,L):I$" "S$(W)": ":P1XW:1220L(A).71110)0:S1:K2K4K6S0-T(2,N1)S\T(1,K)1:P3A:S1N:T(P,S)(.5(1)):zT(P,S)T(P,K)::AL(1)6$C1G:"NEXT SUSPECT? ";:60.((37))8RE171320BRE111300 LWRE:W1WNĺ"YOU STUPID FOOL! NEXT SUSPECT! ";:"AND UNFORTUNATELY . . . YOU JUST DIED."8BB5:470\:W((1)61):DY0W35370mT11500:Ts"YOU LOST ALL OF YOU GOLD AND YOU WERE. ."". . .UNABLE TO MEET THE DEMANS OF . . ."10:13::"THE DUNGEON OF DANGER":"YOU ARE IN AN EAST-WEST CORRIDOR"Fh"YOU CAN ONLY GO EAST OR WEST"Rr:1120X|:"YOU ARE IN A NORTH-SOUTH CORRIDOR""YOU CAN ONLY GO NORTH OR SOUTH"1650BB2:470::DY15510"YOUR 'HIT-POINTS' HAVE DEPLETED,"*:G0UP THE STAIRWAY"."YOU DON'T HAVE THE KEY"?460::1120`"YOU ARE NOT AT A STAIRWAY"o460:1120y1120":MA11990,"YOU DON'T HAVE THE MAP"6:460:1120@:"YOU HAVE ";G;" GOLD PIECES WITH YOU"J:1120T"^:16202(D1)01880!<DD1+F10709PA61660KZ(C1)91930UdCC1_n1070mxA71620(D1)91950DD11070A61660(C1)01970CC11070:A91540K1740"YOU CANNOT GO H, (W)EST"3"(U)P, (M)AP, (G)OLD, (H)IT POINTS"<M1$MM1M11:TL0[C1C:D1DmM1$"N"1320M1$"E"1360M1$"S"1400M1$"W"1440M1$"U"1480M1$"M"1570 M1$"G"1600M1$"H"3280:1120(A7F$"":8AA(C,D,L1)!B460ULA2100,4060,3580,3580,2210,2510,2560,2610,2870jVTE1TE0:1070|`:H101700jDY1MDMD1tDY1MD01700~F$"R"1070A$;", WHAT IS YOUR ACTION OR MOVE?" "(N)ORTH, (E)AST, (S)OUT001)M1)5"GAME RATING IS ";R;" = ";:5620F:G03210x"YOU TOOK ";M1;" TURNS TO FIND THE WAY OUT,""AND KILLED ";CA;" MONSTERS."BB3:470C((1)81)D((1)81)A(C,D,2)1$L12:K4((1)41)1.\"YOU ARE AT . . . . . LEVEL 1"0fBB4:470:p1070Zz"YOU FOUND YOUR WAY . . ."". . .OUT OF THE DUNGEON OF DANGER":"CONGRADULATIONS!":"YOU HAVE ACQUIRED ";G;" GOLD PIECES"9501810GGG1 R((GGCA70UP THE STAIRWAY" 460G "THE ENCHANTED KEY . . . OPENS THE LOCK"P 460^ L10890 MA0:K0:K4((1)41)1:H1HI820 *850 4H1HI >"YOU FEEL STRONGER . . . . .":460 H"YOUR 'HIT-POINTS' ARE RESTORED TO ";HI R:CBCAK4"Y 0X :H((1)71)' DA122 NN1HD XX((1)81)V bY((1)81)e lA(X,Y,A)8l vNs A S((1)41)2 A12 N1S X((1)81) Y((1)81) A(X,Y,A)9 N A  L1L11 "YOU WALK F DANGER . . . LEVEL 2" D "YOU WILL ENCOUNTER MONSTERS AND"] "THIEVES, AND GOLD"q :"GOOD LUCK!"w  BB5 470 1030 BB1 ZZ1909BB ZZ  X18 Y18 Z12 A(X,Y,Z)((1)71) Z &YOU."/ ,"YOUR 'HIT-POINT' VALUE IS ";H1:460W 6"IF IT REACHES ZERO, YOU WILL DIE"| @". . . . . . . . SO BE CAREFUL" J:460:A$" . . .YOU ARE ON YOUR WAY" TBB1:470 ^500 h r"YOU HAVE ARRIVED AT . . . ." | "THE DUNGEON OANGER" T11500:T' :DY0:MD11 5530m MA0:CA0:G500:M11:K0:HI20((1)151):HI(HIPL) T11000:T: H1HI:22:"ENTER YOUR CHARACTER'S NAME?" A$ 460 :"YOU CARRY A MAGIC SWORD" ""AND 500 GOLD PIECES WITH )6d/n2:13::"THE DUNGEON OF DANGER":@xT12550:TFLj10:15:"A FANTASY GAME"sBB2|470:A(9,9,2)"YOU WILL BE TELEPORTED TO . . ."5:5:"THE"7:9:"DUNGEON"9:17:"OF" 11:20:"D                    L"" X4ĺ(4);"RUN FLOWER III"@ X5ĺ(4);"RUN HELLO,D1"P X1X590V XC$:|L(C$):(40(C$))21"-";:XX1:XL6 HEADINGS TO BE CENTER  SHOULD BE C$="STATEMENT" C$=" " :GOSUB 4 UNDERLINE C$:GION . . . ."% BB4:470:*% AA1600E% "** %%";M% AA[% 460:::i% A43600%W((1)151):3610%W((1)151)15%AA1W%$MS$,HP,HM%.AA%8%B%L"THERE IS SOMETHING LURKING . . ."&V". . . . INYOU ACTIVATED SOME SORT OF TRAP. . .":460V$ C((1)81):D((1)81):BB4:470:$ "SUDDENLY YOU FEEL DIZZY, AND PASS OUT"$ :BB2:470:3540$ "WHEN YOU WAKE UP. . .YOU FIND"$ "THAT YOU WERE . . . . TELEPORTED" % "TO AN UNKNOWN LOCAT3680#> TE1:TL1!#H K13460P#R K1::"YOU NOTICE A SHINY OBJECT . . . ."q#\ ". . . . AT YOUR FEET":460#f "YOU PICK IT UP AND FIND THAT . . ."#p "IT IS THE ENCHANTED KEY . . . . . .":460#z :"BUT YOU WEREN'T CAREFUL . . . .":460*$ "((1)81):W733003" W((1)81):W833909" f" :"YOU HAVE ";H1;" 'HIT-POINT(S)' LEFT"p" 1120" W((1)41)30" AA1W" MS$,HP,HM" AA" " " "THERE IS SOMETHING LURKING""* "IN THIS CORRIDOR . . .":460#4 :UND . . . . . ."2!D "AND FIND THE ENCHANTED KEY";!N 460A!X K!b 3120U!l 1230e!v CACB3110k! ! "YOU KILLED ";CA;" MONSTERS "! ". . . . . . IN ";M1;" TURNS."! T12000:T! ! "THE DOOR CLOSES AND LOCKS BEHIND YOU":460" W T  ^ "O "; h & r "M ";, | 9 "? ";? L "C ";R _ "NS ";e r "EW ";x 2950 "UP "; H1:O9:W8 B0:E5:R14  C0:PR0  1030  & 460 0 K1!: :"YOU LOOK TO THE GRO. . . YOU STILL HAVE THE KEY"# N "YOU FELL INTO A DEEP . . . PIT":PT1W 460 "LUCKILY . . YOU DIDN'T GET HURT, PHEW!"  460" "BUT IN CLIMBING OUT . . .", 27206 "YOU ARE AT A STAIRWAY"@ ". . . . . . . GOING UP" J 2690 Z )d "BUT. . .CAUGHT YOURSELF"=n "FROM FALLING"Cx R L122800d L1L11::K1 "YOU FELL THRU TO LEVEL 2. . .AND" G0 460  "YOU . . . . . . . . LOST" "ALL OF YOUR GOLD PIECES" :PT1PT0: "BUT .SECRET DOOR" :3240 ' :R "YOU ENTER AN. . .EAST-WEST CORRIDOR"x "THRU A. . . . . . .SECRET DOOR" :3240( 2 "YOU ACTIVATED A. . .TRAP DOOR"< 460F TD((1)41)PL:TD4ĺ"YOU FELL THRU. . .":460:1720P TD4OUT HE DROPS. . .."G G4((1)400L11):". . .";G4;" GOLD PIECES."q "YOU PICK UP THE GOLD PIECES":GGG4 :MA1ı MA((1)41):MA2MA1 MA12380  : "YOU ENTER A. . .NORTH-SOUTH CORRIDOR"  "THRU A. . . . . . . . .";G4;" GOLD PIECES":% GGG41 MA1ıP$ MA((1)41):MA2MA1_. MA12380e8 nB 460L "YOU SEARCH THE CHAMBER AND"V 460` "YOU. . . . .FIND A MAP"j t :"YOU SURPRISED THE THIEF. . . ."~ 460 "AS HE RUNS  6:"THERE IS A THIEF IN THIS CHAMBER"FA(C,D,L1)1O460vG4((1)500L11):(GG4)0G4GY((1)81)Y32420". . . . . . .HE SURPRISES YOU"460"AS HE QUICKLY PASSES BY YOU HE" "SNATCHES,2930,2930,2950,2990,3010,3030,3040* N07 QA*1120]4W((1)21):W22160c>H"YOU ARE IN A COLD AND DARK"R". . . . . . . EMPTY CHAMBER"\fpz"YOU ARE IN A DAMP AND MISTY"". . . . . . . EMPTY CHAMBER"RE AT THE EAST WALL"1890A:"YOU ARE AT THE SOUTH WALL"K1890m:"YOU ARE AT THE WEST WALL"w1890:"THE DUNGEON OF DANGER-MAP: LEV ";L1Q18N18CNDQĺ"P1 ";:2060S1A(N,Q,L1)#S12910,2970QUER THE DUNGEON OF DANGER";G10:13::"HEH-HEH-HEH!!!"RH:T19000:T::NT11500:T::"WELCOME BACK TO. . .":210X:"YOU ARE AT THE NORTH WALL"b"YOU CANNOT PASS THROUGH"lv"TRY ANOTHER DIRECTION?"1120:"YOU A:T12800:T4:"BETTER LUCK NEXT TIME!"=950P:T12000:TX:m"ANOTHER GAME?"&"ENTER (Y)ES OR (N)O"0F$:F$"Y"1870DF$"N"1862FT12500:T::"COME BACK AGAIN SOME OTHER TIME AND SEE IF YOU CAN CON'5P". . . . . . . SPIDER . . .":460D5Z". . . . . AND . . . ."N5d4530X5n5290{5xMS$"DARK WIZARD":HP8:HM14:5"DO NOT PASS . . . I AM THE ";MS$:4605"I WILL HACK YOU TO PIECES . . ."5BB2:470545306:"SUDDENLY . . . SOES"*4"OUT OF GOOD WILL AND FREINDSHIP"04W4H4((1)10PL1)(6PL):H1H1H4z4 "ALSO, I WILL INCREASE . . ."4"YOU 'HIT-POINTS' BY . . . ";H444604(4252904<MS$"GIANT SPIDER":HP6:HM125F"IT'S A HUGE MAN-SIZED CRAWLING"OLD PIECES"3CACA1:K1ı-3L113190=3CAK43110C3Q3BB2:470[352903"HALT. . .I AM THE ANCIENT WIZARD"3"I WILL NOT HARM YOU . . . . . .":BB2:4703:G4((1)3001)100:GGG4:4"I GIVE YOU . . . ";G4;" GOLD PIEC 2$"YOU HAVE KILLED THE ";MS$&2.=28A(C,D,L1)64950S2BA(C,D,L1)24950c2LA(C,D,L1)12VG8500:A(C,D,L1)6G82502`G4((1)G8L11)75:A2G4G422jGGG4:4602t"YOU SEARCH THE AREA . . . ." 3~460:"AND FIND . . . ";G4;" GW((1)61):W34830?1N((1)HPL11)((1)HPL11)I14840_1N((1)HPPL1)n1HM2N11H1H1N:460:H10ı1"AND IT DOES ";N;" 'HIT-POINT(S)' OF DAMAGE"1:"YOU HAVE . . . ";H1;" 'HIT-POINT(S)' LEFT"1:2:460TL1556010pN((1)21):BB2:470:W35330=0zH1H1Nk0"AS YOU LEAVE, THE ";MS$;" ATTACKS":460x0H10ı0"AND IT DOES ";N;" 'HIT-POINT(S)' OF DAMAGE"0BB3:470:0:W((1)71)0". . . . . . .IT ATTACKS YOU":W253501WING OF YOUR SWORD""IT HAS. . ";HM;" 'HIT-POINT(S)' LEFT"/H:460/R4530/\W((1)41):CC1:DD1 0f"YOU QUICKLY RUN OUT. . .":D NO EFFECT ON YOU".&.460:::.:W((1)41)I.W24540X.460:4780e.H10ı.:"WILL YOU (F)IGHT OR (R)UN ?".F$:.F$"F"4600.F$"R"4700.4540.::460."YOU ATTACK THE. . .";MS$:460/ "WITH A SH10ı3-::"IT WAS A BLACK MAGIC POTION. . ."b-D"WHICH DECREASED YOUR 'HIT-POINTS' BY";H3h-N-XH3((1)10PL1)(6PL):H1H1H3-b"IT WAS A WHITE MAGIC POTION. . ."-l"WHICH INCREASED YOUR 'HIT-POINTS' BY";H3-v."THE LIQUID HA"WOULD YOU LIKE A DRINK?"E,"ENTER (Y)ES OR (N)":DL((1)61)M,D$^,D$"Y"4350d,,:"YOU TAKE A DRINK . . .":BB2:470:,DL34440,DL24480,H3((1)61)PL:H1H1H3,&"YOU FEEL A LITTLE FUNNY. . .":460:460 -0+^W4L125720+h5230@+r:"YOU LOOK AROUND . . . ":460R+|V((1)71)`+V54250f++"ON THE GROUND, AT YOUR FEET, IS A VIAL"+BB2:470+"YOU PICK UP THE VIAL . . AND SEE THAT"+"IT CONTAINS . . . MILKY LIQUID"+,PTY . . .": *BB2:470:4500S*460:"BUT WAIT . . BEFORE YOU PROCEED":460:*""YOU HEAR A NOISE OFF IN THE DISTANCE"*,BB3:470*6"CAUTIOUSLY YOU WALK TOWARDS THE SOUND"*@BB3:470:W((1)41):HIH14180*JW15040*TW25170TING PLANT",1,2 )"HYDRA",3,6;)"GELATINOUS CUBE",2,4V)"GIANT CENTIPEDE",1,2k)"GIANT RAT",2,4})"SHADOW",2,4)"YOU STUMBLED ONTO . . . . .")"A HIDDEN CAVERN":460):4210)W((1)91) *460:W3ĺ:"THE CAVERN SEEMS EM"GIANT ANT",1,2&(("GIANT SLUG",2,47(2"MUMMY",3,6L(<"NASTY ORC",2,4`(F"SKELETON",1,2q(P"TROLL",3,6(Z"GOBLIN",3,6(d"VAMPIRE BAT",3,6(n"CREEPING BLOB",3,6(x"MAD DOG",2,4("LARGE SPIDER",3,6("BLACK CAT",2,4)"MAN EA"DEADLY COBRA",5,10''"MAD ELF",5,10;'"CLAY MAN",4,8R'"HAIRY BEAST",5,8g'"MAD DWARF",4,8y'"ZOMBIE",4,8'"BERSERKER",5,10'"GIANT SCORPION",6,12' "GIANT COCKROACH",4,8'"DOPPLEGANGER",5,10'"GIANT FIRE BEETLE",1,2(# THIS CHAMBER . . . .":460E&`". . . . . . . . . . . BEWARE!":470K&jv&t"IT IS A . . . . . ";MS$;" . . ":460&~4510& "LARGE DRAGON",6,12& "HIDEOS GHOUL",5,10& "LIZARD MAN",4,8&"MANTICORE",6,12&"PURPLE WORM",6,12' XD(A)X2 YD(A)Y2' X,Y. A5 I< 7J X3X:Y3Y\ A06.28.02g BN2Au DR2(B) XD(A)X3 YD(A)Y3 X,Y A W13000:W "(4);"RUN COLOR PLOTTING" 4 I3L300:M83:R140:R280:N16:N24f( 249,193,5.50,6.02,191,173,1.31,1.83,171,83q2I13}<X1:X2FXX1X22PY(XM)(XM)LMZX,Y:XnI2210s3xA1:A2:Y2YAA1A2.01BN1ADR1(B)THE 'SUBROUTINE AT 100.1 'ALSO, Q(1-D) ANDP 'A(1-D) MUST BE ZERO. t 'X1D:X(0,X)X:I(X)1(X1): 'Q1:100:A: N 4 %N 20000 IS THE X&Y DIMENSION *N1,2,0,1 4N0,1,-1,2 >N1,2,1,2 HN-1,2,2,0 D>>> '>>> THIS PROGRAM WILL1 $'>>> FIND THEI .'>>> DETERMINANT OF[ 8'>>> A MATRIXd B'>>>l t': ~' MATRIX READ FROM DATA 'D 'M(D,D),X(D,D),Q(D),A(D),I(D) 'Y1D:X1D:M(X,Y):X,Y ' LINE 10150 IS NEEDED 'TO PREPARE FOR   10000UdQD1QQ1:AM(X(Q,1),D1)M(X(Q,2),D)M(X(Q,2),D1)M(X(Q,1),D):nQ(Q)Q(Q)1:Q(Q)DQ1Q(Q)0:AA(Q):A(Q)0:QQ1:xY0:X1DQ1:XQ(Q)YY1:X(Q,Y)X(Q1,X):QQ1:100:A(Q)A(Q)I(Q(Q))AM(X(Q1,Q(Q)),Q):110 'ALL INTO THE POOL . . LOST":BB4:470: A:470:45306=:"AS YOU CLIMB OUT . . .":460:4530q="THE WATER IS STEAMING . . . ."::"HOT!"::BB3:470=:"AS YOU QUICKLY JUMP OUT . . . ."=G4((1)5001)100:(GG4)0G4G=GGG4:"YOU DROP . . . ";G4;" GOLD PIECES"'> "WHICH F. . ICY COLD":BB3:470:E<"SUDDENLY . . YOU FEEL SOMETHING WARM"|<". . . RUB AGAINST YOUR LEGS . . . .":BB3:470:<"IT THEN SURFACES NEXT TO YOU . . ."<"AND YOU SEE THAT IT IS A SLIMY . . ." =". . . ";MS$;" . . READY TO ATTACK":BB2 DARK":460:;b". . . POOL . . OF MURKY WATER":BB3:470Y;lW((1)61)::W55780h;vW35860;"IT IS WARM AND SOOTHING . . AND":BB2:470;"YOU CLIMB OUT . . FEELING RELAXED"::;MS$"GILL MONSTER":HP8:HM12:<"THE WATER IS . R0ĺ"APPRENTICE":/:R100ĺ"HALFLING":L:R200ĺ"FOOT SOLDIER":d:&R600ĺ"WARRIOR"::0R900ĺ"GREAT WARRIOR":::R1500ĺ"SWORDSMAN"::DR2500ĺ"MAGIC SWORDSMAN"::NR2500ĺ"DUNGEON MASTER": ;X:"YOU FELL INTO A DEEP . .:9TL0:BB2:470D9"YOU REACTIVATED THE TELEPORTATION TRAP"X9BB2:470:35409"YOU END UP BACK IN THE AREA WHERE"9". . . YOU LAST WERE TELEPORTED FROM":4609BB2:470:9R400ĺ"INCOMPETENT SERF":9R100ĺ"WEAKLING"::OU SHALL HAVE ";MD;" MOVES"<8^"LEFT TO FIND YOUR WAY OUT"`8h"OUT OF THE DUNGEON OF DANGER"n8rBB3:470~8|3540:11108A$;", YOU DEPLETED YOU MOVES"817208T11000:T::"ENTER DIFFICUTY LEVEL?"8"1=MODERATE 2=DIFFICULT"9PL:ED . . A ZONE"07"BETWEEN . . LIFE AND DEATH"@7:BB3:470f7":"I . . . . THE ANCIENT WIZARD"7,"WILL RESTORE YOUR 'HIT-POINTS' TO ";HI76"AND . . . . YOU HAVE ONE MORE "7@"CHANCE IN THE DUNGEON"7J:MD((1)151)CA10:H1HI8T"YMETHING JUMPS . . ."96"IN FRONT OF YOU . . . . . . ."I6BB3:470:O6n6460:"AS YOU LEAVE . . ."6"THE ";MS$;" ATTACKS . .":4606460:"BUT . . . . . . . . IT MISSES":BB2:47066BB2:470:3540:DY1:H1HI7"YOU HAVE ENTER   ;"RUN COLOR PLOTTING"1I17)(I72X1412C<X,Y:XSFX701102_PX,Y:XnZX160200zdX,Y:XnX2012403xX,Y:XYY15IS4096:H160:K159:M114XH205YK(S(XH)(XH))X,Y:X YMK XH(S(YK)(YK))( X,Y:Y3 1:21Z "X ODD";11)"X EVEN";28)"X BOTH"e 1:22 "STEP 2";11)"STEP 2";24)"STEP 1 STEP 3" "1:23 ,3)"FROM TOP,COLOR NOS. ARE 1 TO 7" 61:24 @; J1:1 TW13000:W ^(4) : Y5"I17)(I72X1412C<X,Y:XSFX701102_PX,Y:XnZX160200zdX,Y:XnX2012403xX,Y:XYY15IS4096:H160:K159:M114XH205YK(S(XH)(XH))X,Y:X Y?";X$ PX$"Y"İ100% UX$"Y"ė+ ZB d:"LIST LINE #";NM n60000 `L$("0000"(N),5):L(121)(122)25651:J15:LJ,((L$,J,1))::00090: "FROM BEAGLE BROS BULLETIN. KEYED BY";" CHUCK SMITH" D0 "THIS ONE LINE SUBROUTINE WILL ALLOW YOU"_"TO LIST A USER DETERMINDED PROGRAM LINE""FROM WITH IN A PROGRAM. THE LINE NUMBER"("IS ACTUALLY POKED INTO LINE 6000 BEFORE"2"THE PROGRAM GETS THERE!"<D$(4): F"READY TO TRY ITv "LIST LINE #";N!60000t`L$("0000"(N),5):L(121)(122)25651:J15:LJ,((L$,J,1))::00000: UREAD 'END'."g T:"THIS PROGRAM BY DAN BISHOP WRITTEN UP INJULY 1983 PAGE 30 OF 'IN CIDER' MAGAZINE"n ^2v h20 TO CONTINUE....";A$:aL(C$):(40(C$))21:C$:}L(C$):(40(C$))21"-";:XX1:XL6::C110:C220:R15:R235(22:100<1:200FW13000:W::K6 P S    ҤңҤҤ΢ԱҤңč 2,0 D1DD:M(X,Y)ADJ(X,Y)DET:Y,X+("adj A="T(Y1DD:X1DD:ADJ(X,Y)" ";:::{(:" -1":"A =(1/det A)(adj A)="(Y1DD:X1DD:M(X,Y)" ";:::: N 4%N 20000 IS THE X&Y DIMENSION*N1,2,0,14N0,1,-1,2>N1,2,1,2HN-1,2,1 <(X2X21:M(X2,Y2)TRN(X1,Y1):TRN(X1,Y1)" ";; (X1:C (Y1k (X1D:Q(D)0:A(D)0:X(0,X)X::Q1 (103:ADJ(X0,Y0)1(X0Y0)A:"=";1(X0Y0);"*";A;"=";ADJ(X0,Y0): (Y0,X0 (FIND ADJ*DET (INV) AND (PUT IT BACK IN M(X1DD:YY)" ";:::* ' FIND THE ADJ OF M(D,D)9 '"MINORS:"H 'DDD:DD1j (X01DD:Y01DD:FIND MINOR ("MINOR OF POSITION A("X0","Y0"):" (GET MINOR OF T AND PUT (IT IN M ((Y20:Y11DD:Y1Y010400 2(Y2Y21:X20:X11DD:X1X010390D,D),X(D,D),Q(D),A(D),I(D),TRN(D,D),ADJ(D,D)K 'Y1D:X1D:M(X,Y):X,Yo 'X1D:X(0,X)X:I(X)1(X1): 'Q1:103:DETA:"DETERMINANT= "A ' FIND THE TRN OF M(D,D) 'X1D:Y1D:TRN(X,Y)M(Y,X):Y,X '"trn A=" 'Y1D:X1D:TRN(X,(X(Q1,Q(Q)),Q):" *"M(X(Q1,Q(Q)),Q);:I(Q(Q))1ĺ"*-1";h " [="I(Q(Q))AM(X(Q1,Q(Q)),Q)"]":107q '>>> '>>> THIS PROGRAM WILL $'>>> FIND THE .'>>> INVERSE OF 8'>>> A MATRIX B'>>> t': ~' MATRIX READ FROM DATA 'D, 'M(1:AM(X(Q,1),D1)M(X(Q,2),D)M(X(Q,2),D1)M(X(Q,1),D): kQ(Q)Q(Q)1:Q(Q)DQ1Q(Q)0:AA(Q):A(Q)0:"\";:X1(DQ)27:"--";::"/":" (="A")"::QQ1: nY0:X1DQ1:XQ(Q)YY1:X(Q,Y)X(Q1,X) x: QQ1:99:A(Q)A(Q)I(Q(Q))AM  10000cQ(Q1)1102Gd:"/";:X1(DQ)29:"--";::"\"fe" WHICH EQUALS:":103f" !":" --+--"::" !"gY1DQ1::" !";:X1DQ1:36,X43:M(X(Q1,X),QY1);:X:36,X43:"! ";:Y: iQD1QQ       Y1DD:X1DD:M(X,Y)" ";::::, N 4M %N 20000 IS THE X&Y DIMENSIONZ *N1,2,0,1h 4N0,1,-1,2u >N1,2,1,2 HN-1,2,2,0 D20:Y11DD:Y1Y0103909 <(Y2Y21:M(X2,Y2)TRN(X1,Y1)A (Y1I (X1q (X1D:Q(D)0:A(D)0:X(0,X)X::Q1 (100:ADJ(X0,Y0)1(X0Y0)A:A:Y0,X0 (FIND ADJ*DET (INV) AND (PUT IT BACK IN M (X1DD:Y1DD:M(X,Y)DETADJ(X,Y):Y,X$ (: 'Q1:100:A:DETA5 ' FIND THE TRN OF M(D,D)\ 'X1D:Y1D:TRN(X,Y)M(Y,X):Y,Xy ' FIND THE ADJ OF M(D,D) 'DDD:DD1 (X01DD:Y01DD:FIND MINOR (GET MINOR OF T AND PUT (IT IN M ((X20:X11DD:X1X010400 2(X2X21:Y>>> '>>> THIS PROGRAM WILL1 $'>>> FIND THEE .'>>> INVERSE OFW 8'>>> A MATRIX` B'>>>h t': ~' MATRIX READ FROM DATA 'D 'M(D,D),X(D,D),Q(D),A(D),I(D),TRN(D,D),ADJ(D,D) 'Y1D:X1D:M(X,Y):X,Y 'X1D:X(0,X)X:I(X)1(X1)  10000UdQD1QQ1:AM(X(Q,1),D1)M(X(Q,2),D)M(X(Q,2),D1)M(X(Q,1),D):nQ(Q)Q(Q)1:Q(Q)DQ1Q(Q)0:AA(Q):A(Q)0:QQ1:xY0:X1DQ1:XQ(Q)YY1:X(Q,Y)X(Q1,X):QQ1:100:A(Q)A(Q)I(Q(Q))AM(X(Q1,Q(Q)),Q):110 'ER DEFINING BOTH THE X AND Y DIMENSIONS OF THE ARRAY. TO DO A DETERMINANT OR AN INVERSE, THE MATRIX MUST BE SQUARE1000,"(X=Y); THEREFORE, ONLY ONE NUMBER IS NEEDED FOR BOTH DIMENSIONS. IF YOU HAVE YOUR OWN MATRIX TO USE, DELEORK AND WOULD LIKE TO COPY ... SORRY, I MEAN CHECK THEIR "ANSWERS WITH THE COMPUTER), READ ON. IN ALL 3 PROGRAMS, THE MATRIX TO BE USED IS IN THE HIGHER LINE NUMBERS IN DATA STATEMENTS. THERE IS ONE DATA~"STATEMENT WITH A SINGLE NUMBLE YOU ARE READING THIS. WELL, FOR YOU WHO DO KNOW ABOUT"H 1000 "MATRICES AND DETERMINANTS AND INVERSES AND WOULD LIKE TO SEE THE COMPUTER SOLVE THEM (SUCH AS STUDENTS TAKING; "ALGEBRA WHO HAVE TO DO THIS TEDIOUS STUFF FOR HOMEWN THAT ALGEBRA CLASS A FEW YEARS BACK YOU WOULD KNOW NOW. AND YOU" "NEVER THOUGHT THAT INFORMATION WOULD COME IN HANDY LATER IN LIFE WHEN YOU TOOK THAT CLASS? TOO BAD, YOU'RE WRONG"> "BECAUSE IT WOULD KEEP YOU FROM FEELING SO STUPID WHIIS A GROUP OF NUMBERS, ORGANIZED INTO ROWS AND COLUMNS. IT IS THE SAME" n"AS A TWO-DIMENSIONAL ARRAY ON A COMPUTER. NOW STOP ASKING SILLY QUESTIONS. WHAT IS A DETERMINANT, YOU"E x"ASK? WELL, IF YOU WOULD HAVE BEEN LISTENING I BE PRINTED ON THE PRINTER (IF YOU HAVE ONE) ? ";Y$Z P(Y$,1)"Y"ĺD$"PR#1"::20 Z(Y$,1)"N"ĺ"A 'YES' OR 'NO', PLEASE.":70 [ _"I DIDN'T THINK THAT YOU WOULD.":D11000: `H d" LET'S START AT THE BEGINNING. A MATRIX / D$(4) :N"EXPLANATION FOR THE THREE PROGRAMS ENTITLED:"o" DETERMINANT OF A MATRIX"(" INVERSE OF A MATRIX2" INVERSE WITH WORK SHOWN"<AY$""1009 F"DO YOU WANT THE MEANINGLESS INFORMATION THAT FOLLOWS TO!!!!!!!""" " " " " "HTAB 10 : PRINT CHR$(14)NM$ : NEW"5 e"LOAD ";NM$A f"LIST"W g"PRINT CHR$(12)"c }"PR#0"u ~"RUN LISTER" D$;"CLOSE PRINT FILE" D$;"EXEC PRINT FILE"D PRINT FILE"( HD$;"DELETE PRINT FILE"B ID$;"OPEN PRINT FILE"] JD$;"WRITE PRINT FILE"i K"PR#1" \"PRINT CHR$(9)+CH$;CHR$(78);CHR$(27);CHR$(78);CHR$(5)" ^(EM$,1)"Y"ĺ" PRINT CHR$ (27);CHR$(69)" b(CC$,1)"Y"ĺ"PRINT CHR$ (15)"$ c MODE ? ";EM$L :5:"USE COMPRESSED CHARACTER MODE ? ";CC$| <15:"TURN PRINTER ON AND POSITION PAPER !" C17:"PRESS RETURN TO START PRINTER OR CONTROL'A' TO RESET PRINTER FORMAT. ";:A$ DA$(1)ī50 F:D$(4) GD$;"OPEN D$(4) 6 :10:"PRINT LISTING PROGRAM"Q ::"'&' FOR CATALOG"u"NAME OF FILE TO PRINT ? ";NM$NM$(38)ĺD$;"CATALOG":142:12::"PRINTER FORMAT":43:"HOW MANY CHARACTERS PER LINE ";CH$ 64:"USE EMPHASIZED! ! ! !"3. THEN TYPE 'RUN'."x P::"IT'S AS SIMPLE AS THAT TO USE THE FULL WIDTH CAPACITY OF YOUR EPSON DURING LISTS." Z:" HAPPY LISTING!"; d n*********************** x* BY JOE ISHAM * ***********************  :"LIST132 INSTRUCTIONS"g:"TO USE THIS PROGRAM SUCCESSFULLY, YOU NEED AN EPSON PRINTER."::"INSTRUCTIONS:":(:"1. LOAD THE PROGRAM YOU WANT TO LIST IN 132-COLUMNS."2:"2. ENTER THE COMMAND:"<:" ]EXEC LIST132" F:!! NN02140:KK1:(A$)K2140:AD0:C$(A$,K,1):C$"S"C$"F"2580:C$"S"NNNN1:NN13NN1:AD1 C$"F"NNNN1:NN0NN12:AD1 KK1:(A$)K2140:C$(A$,K,1) OC(C$)AD:OC0OC42140' NTNT(NN)2OC:NT(NT.5):NT255ĺBE$7.5DO:C$"H"D64DO*8 C$"Q"D32DO>B C$"E"D16DOQL C$"S"D8DOV KK1:(A$)K2140:C$(A$,K,1):NN0:C$"R"2590:C$"C"NN1~ C$"D"NN3 C$"E"NN5 C$"F"NN6 C$"G"NN8 C$"A"NN10 C$"B"NN12i:2670 R(A$)1(A$)62300I \BE$"INVALID ENTRY; TRY AGAIN":2110d DO2:(A$,1)"."DO3  KDO1:(A$)K2140:C$(A$,K,1):DO3C$"W"ĺBE$"SORRY, DOTTED WHOLE NOTES NOT ALLOWED":2110 C$"W"C$"H"C$"Q"C$"E"C$"S"2140:D12:" 1. (DOT): (.)":" 2. DURATION: W, H, Q, E, S":" 3. NOTE OR REST: A-G, R":" 4. SHARP, FLAT: S, F":" 5. OCTAVE: 0-4 (G0-FS4)"::"ENTER CHARACTERS WITHOUT SPACES. PRESS 'RETURN' ALONE FOR MAIN MENU.":34,9: >"NOTE #"N1;:": ";A$:A$""ĉY RE-ENTER PROGRAM WITH MEMORY INTACT BY TYPING 'GOTO 1000'.":r `C3000,2030,6000,7000,2000,4000,5000:1000 :5:"THIS OPTION WILL DESTROY ANY TUNE NOW IN MEMORY. DO YOU WANT TO DO THIS?"::"ENTER 'Y' OR 'N': ";X$:(X$,1)"Y"2670:N0 ::" 3. LIST/EDIT THE NOTES"::" 4. LIST CODED NOTE TABLE"::" 5. START A NEW TUNE"::" 6. SAVE TUNE TO TAPE OR DISK .:" 7. LOAD TUNE FROM TAPE OR DISK"::" 8. SIGN OFFB B:"(TYPE IN THE NUMBER) ";X$:C(X$):C1C81090:C8ĺ:"YOU MAI: 0,384,364,342,324,306,284,272,255,242,228,216,204:I012:NN$(I):I R,C,CS,D,DS,E,F,FS,G,GS,A,AS,B:18:8:"DO YOU WANT INSTRUCTIONS?";X$:(X$,1)"N"İ9000| :"WOULD YOU LIKE TO:"::" 1. PLAY THE TUNE IN MEMORY"::" 2. ADD MORE NOTES" (100/2NT0āI12(D(DTED)8):I:F7TN,D(DTED)8:l<R((NUMO(NUMO))MO.00001):I d:MA500:5:8:"M U S I C M A C H I N E":8:13:"BY JON VOSKUIL":8000:D%(MA),NT%(MA),NT(12),NN$(12):D$(4):BE$(7)(7):I012:NT(I):""""""""     NTINUE ... ";#A$:A$(13)ĺ:-1020 DS ABOUT 2:30 A.M. ON THE MORNING OF THE APPLE MEETING, AND I HAVE A BOOTH TO RUN, AND BESIDES, MY""MOM TOLD ME TO GET TO BED, SO GOODBYE, GOOD LUCK, AND GOOD NIGHT!"'(Y$,1)"Y"ĺD$"PR#0",(Y$,1)"Y"ı "PRESS RETURN TO COCLOSELY, YOU MAY BE ABLE TO TELL WHY THE DETERMINANT ROUTINE IS RECURSIVE. THE COMPUTER WORKS THE"DETERMINANTS IN A VERY UNIQUE WAY, AND SOMETIMES IT IS VERY DIFFICULT TO FOLLOW."i" THAT'S ABOUT ALL I HAVE TO SAY BECAUSE IT'DETERMINANTS FOR A 4X4, 26 FOR A 5X5). THE INVERSE PROGRAM THAT SHOWS"ITS WORK IS REALLY INTERESTING TO WATCH IF YOU KNOW WHAT TO LOOK FOR. MOST OF THE WORK IT SHOWS IS REALLY THE EXPANDING OF THE DETERMINANTS. IF YOUg"LOOK AT IT "FULL OF ARRAYS AND ALL SORTS OF COMPLEX STUFF. THE DETERMINANT ROUTINE IS NOT ONLY IN THE DETERMINANT PROGRAM, BUT IT IS ALSO THE HEART OF THE INVERSE1000I"PROGRAM. IN FACT, YOU HAVE TO FIND A LOT OF DETERMINANTS TO FIND AN INVERSE (17 A BIT ABOUT HOW THEY WORK. THE DETERMINANT ROUTINE IS RECURSIVE, MEANING THAT IT"GOSUBS ITSELF. WRITING RECURSIVE PROGRAMS IS SIMPLE, SO I'VE HEARD, IN PASCAL, BUT IN BASIC IT MAKES A MESS. THAT IS WHY THE DETERMINANT ROUTINE IS"TE THE EXISTING DATA STATEMENTS, TYPE IN THE"NEW DIMENSION IN A DATA STATEMENT, AND AFTER THAT ENTER DATA STATEMENTS THAT MAKE UP THE ARRAY. TYPE THESE IN ROW BY ROW.V" NOW THAT YOU MORE OR LESS KNOW HOW TO RUN THE PROGRAMS, LET ME SAY