' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӖu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( %  Ϡ-@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`"50 DEF FN A(X)=";FF$&y"RUN 1180"5~D$"CLOSE"MD$"EXEC EXEC.SIMP"Sq(4)"DELETE EXEC.SIMP": INSTRUCTIONS:"THIS PROGRAM ESTIMATES THE NUMERICAL":"VALUES OF DEFINITE INTEGRALS USING"::"SIMPSON'S RULE."%:$(I$,1)"Y"İ5000.:v8"ENTER THE FUNCTION USING NORMAL BASIC SYMBOLS (E.G. 'X SQUARED' IS REPRESENTED";B"AS X^2)."L:"F(X) = ";FF$QFF$""1100VD$"OPEN EXEC.SIMP"`D$"WRITE EXEC.SIMP"j"40 F$=";(34);FF$;(34)t:350 :!3M"SIMPSON'S RULE NUMERICAL INTEGRATION"|:" BY DANIEL TOBIAS SEPT. 1982""IMPROVED VERSION FOR DAN TOBIAS PROGRAM PAK #1, (C) 1983 BY DANIEL TOBIAS."" INSTRUCTIONS (Y/N)? ";I$NGE SPECIFIED.":340d I69I77ĺ"SORRY. THIS PROBLEM CAUSES AN OVERFLOW OF THE SYSTEM."::350q &I255ij0"UNFORSEEN ERROR (CODE #"I": SEE":"PAGE 136 OF APPLESOFT REFERENCE MANUAL)":"THERE MAY BE A BUG IN THE PROGRAM. EVENI'M NOT PERFECT.":(I$,1)"Y"1070$ :D$"RUN MENU"0  ONERR6 C I(222)N 216,0v I107I163I176I191I224I16 I16ĺ"THE FUNCTION:":" F(X) = ";F$:"CONTAINS A SYNTAX ERROR."::370 I53I133ĺ"THE FUNCTION IS NOT CONTINUOUS OVER THE RA0A&0A1NP:GT%(A)GT%(A)1:A,0E0X PRINT FINAL SCORESO0]6000[0bK1NPg0lPPL(K)p0v200v0{0"HIT ANY KEY TO CONTINUE. ";:I$0K0:0:"FINAL SCORES:"00A1NP0PL$(PL(A));30);GT%(PL(A))0A1F THE COLUMNS:"W/P"COLUMN ONE: SINGLE":"COLUMN TWO: DOUBLE":"COLUMN THREE: TRIPLE"/d:"HIT ANY KEY TO CONTINUE. ";:I$/n/p FIGURE ORDER/zA1NP/HI1/B1NP/GT%(B)HIHIGT%(B):PL(A)B/B/GT%(PL(A))GT%(PL(A))1 SCORES 40 POINTS. (EXAMPLES: 12345; 23456)"2.s.("F: YAHTZEE- 5 OF A KIND. SCORES 50 PTS. (EXAMPLE: 55555)"y.2.<"G: CHANCE- YOU CAN USE ANY ROLL FOR THIS. IT SCORES THE TOTAL OF THE DICE. (EXAMPLE: 12246 SCORES 15)".F/K"VALUE OES: 22444; 33366)">-:"HIT ANY KEY TO CONTINUE. ";:I$::-"D: SMALL STRAIGHT- A SEQUENCE OF FOUR CONSECUTIVE NUMBERS. SCORES 30 POINTS. (EXAMPLES: 12346; 13456; 34456)"- ,."E: LARGE STRAIGHT- A SEQUENCE OF FOUR CONSECUTIVE NUMBERS. DICE. (13334 WOULD BE WORTH 14.)"*,w,"B: 4 OF A KIND- SCORES TOTAL OF ALL DICE, JUST LIKE 3 OF A KIND."," (EXAMPLE: 33335 SCORES 17.)",-"C: FULL HOUSE: THREE OF ONE NUMBER AND TWO OF ANOTHER. SCORES 25 POINTS. (EXAMPL 3, A ROLL OF 12335 WOULD BE WORTH 6 (2 TIMES 3)."+" EVEN IF THE ROLL INCLUDES ONLY ONE OF THE PROPER NUMBER, YOU MAY STILL SCORE IT IN ONE OF THESE ROWS. (12345 WOULD BE WORTH 1 IN COLUMN 1.)"+$,"A: 3 OF A KIND- SCORES TOTAL OF ALL ):PT(A)* GT%(A)*A** D$"CLOSE"2**:=* INFOE*:s*"EXPLANATION OF SCORING ROWS IN YAHTZEE"y**"1-6: SCORE THE TOTAL OF ALL OF THE PROPER NUMBER. EXAMPLE: IN ROW 1 A ROLL OF 11123 WOULD BE WORTH 3. IN"4+" ROW)GT%(A))"A ),D$"CLOSE"()6:3) SAVEF):D$"CATALOG"f):"FILE NAME TO SAVE: ";N$v)D$"OPEN"N$)D$"WRITE"N$)NP:P:TP)A1NP:B113:C13)SC%(A,B,C))C,B)B14:C13)TL%(A,B,C))C,B*PL$(A5(SC%SC%R(A)(A(*( LOAD=(:D$"CATALOG"](:"FILE NAME TO LOAD: ";N$m(D$"OPEN"N$}(D$"READ"N$(NP:P:TP(A1NP:B113:C13(SC%(A,B,C)(C,B(B14:C13(TL%(A,B,C)(C,B(PL$(A):PT(A) 1)1NN1!' R(A)R(A1)35409' R(A)R(A1)1N1J' N4SC%30S' A:f' LG. STRAIGHT'SC%40:A25:R(A)R(A1)1SC%0'$A:'t YAHTZEE'~LR(1)'A2'R(A)Lı'AA1:A5SC%50:'3730' CHANCE(A11N:D$(A)A"CLOSE"%\"DO ANOTHER CRYPTOGRAM? (Y/N) ";I$:(I$,1)"Y"Ĭ:"RUN 'CRYPTOGRAM.WRITER'? (Y/N) ";I$:(I$,1)"Y"ĺD$"RUN CRYPTOGRAM.WRITER":"INSERT PROGRAM DISK AND HIT ANY KEY. ";:I$ :D$"RUN MENU" (# S& R(A)R(A1)NN1&& N3SC%1<& R(A)R(A1)N0J& LR(A):Aa& SC%0SC%0:3800g& x&H FULL HOUSE&R R(1)R(2)R(4)R(5)ı&\ R(1)R(5)ı&f R(3)R(1)R(3)R(5)ı&p SC%25:& SM. STRAIGHT& N1:A25 ' R(A)R(A0% R133800% % 1-6+%& A15A%0 R(A)RSC%SC%RG%: M%D _% 3 OF A KINDg% N0r% A25% R(A)R(A1)NN1% N2SC%1% R(A)R(A1)N0% LR(A):A% SC%0SC%0:3800% % 4 OF A KIND% N0% A25 PT(P)((40(PL$(P)))2)0$ PT(P)1PT(P)1G$ PT(P)40PT(P)40r$ P::"HIT ANY KEY TO START GAME.":I$$ P1:TP1$ $ SCORE$ SC%0$ R63100$ R73200$ R83300$ R93400$ R103500$ R113600% R12370900 # 4000#" "#T NEW GAME(#Y .#[ K#^ "HOW MANY PLAYERS? ";NPx#h NP5ĺ"NO MORE THAN 5 PLAYERS."::2910#r NP1NP(NP)ĺ"DON'T BE RIDICULOUS."::2910#| P1NP# "PLAYER #"P;:": ";PL$(P)# (PL$(P))39PL$(P)(PL$(P),39)$E MESSAGE'HIT ESC TO QUIT' IS SHOWN. YOU WILL"" "BE GIVEN A CHANCE TO SAVE THE GAME TO DISK, ALLOWING IT TO BE RESUMED LATER."" " "HIT ANY KEY TO BEGIN. ";:I$" START" " " "LOAD GAME FROM DISK (Y/N) ?";I$# (I$,1)"Y"2$:%!~ :"UP TO 5 PEOPLE CAN PLAY."! :"THE GAME ENDS AFTER 39 TURNS, WHEN ALL THE BOXES ARE FILLED. (YOU ALWAYS MUST FILL IN ONE BOX EVERY TURN, EVEN IF NONEMATCHES.)"/" :"TO STOP THE GAME BEFORE THE END, HIT ESC IN BETWEEN PLAYERS, WHEN THOUR" V "CATEGORY USING 1 THROUGH 6 OR A THROUGH G TO SELECT THE ROW, THEN 1 THROUGH 3 TO PICK THE COLUMN. WHILE PICKING THE ROW, YOU MAY TYPE 'I' FOR THE LIST OF" ` "SCORING CATEGORIES AND THEIR VALUES." j !t "HIT ANY KEY TO CONTINUE. ";:I THE DICE ALL THREETIMES, OR HAVE DECIDED NOT TO RE-ROLL ANY THE SECOND TIME, YOU WILL BE ASKED" L "TO SELECT THE BOX ON YOUR SCORECARD YOU WOULD LIKE TO USE FOR THIS ROLL. THE SCORECARD REMAINS ON THE SCREEN DURING YOUR ENTIRE TURN. YOU SELECT YHEN YOU ARE DONE SELECTING DICE TO ROLL AGAIN, HIT THE ESC KEY."8 :"WHILE YOU ARE SELECTING THE DICE TO RE- ROLL, YOU MAY TYPE 'I' TO GET THE LIST OF THE SCORING CATEGORIES."= :"HIT ANY KEY TO CONTINUE. ";:I$:bB :"AFTER YOU HAVE ROLLEDROLLS, YOU HAVE TO PICK WHICH DICE TO RE-ROLL."$ "THE COMPUTER WILL SHOW THE ENTIRE ROLL, WITH A CURSOR ON ONE DIE. YOU MOVE THE CURSOR USING THE ARROW KEYS, AND WHEN". "THE CURSOR IS ON A DIE YOU WISH TO RE- ROLL, HIT THE SPACE BAR."D3 "WRAPIDLYCHANGING NUMBERS LIKE THIS:"e:::"HIT ANY KEY TO CONTINUE. ";:(40)(41)256(36),96wA((1)6)118:20:A;(16384)127Ĺ16368,0:2320 2280 3 :"TO STOP EACH DIE, HIT ANY KEY."::"FOR THE SECOND AND THIRD R) AND YOU MAY NOT USE"/"THAT BOX AGAIN."5"YOU HAVE THREE CHANCES TO ROLL THE DICE PER TURN. FOR THE SECOND AND THIRD ROLLS YOU MAY CHOOSE TO RE-ROLL ANY,""ALL, OR NONE OF THE DICE."#"THE DICE BEING ROLLED SHOW UP AS UE. ";:I$5000:"EACH BOX MAY ONLY BE USED ONCE. YOU MAY PLACE A ROLL IN A CATEGORY WHICH DOES NOT APPLY, LIKE PLACING '12223' IN""THE YAHTZEE ROW, IN WHICH CASE YOU WOULDGET A ZERO IN THAT BOX (SHOWN AS AN X BY THE COMPUTEOX. IN ADDITION, ALL SCORES IN THE"f"THIRD COLUMN ARE TRIPLED, AND THE SCORESIN THE SECOND COLUMN ARE DOUBLED, WHEN THEY ARE ADDED INTO THE GRAND TOTALS."p:"THE FOLLOWING IS A DESCRIPTION OF THE DIFFERENT ROWS." z:"HIT ANY KEY TO CONTINON YOUR SCOREPAD. EACH PLAYER HAS"zR"HIS OWN SCOREPAD, AND IT HAS 13 ROWS AND 3 COLUMNS, FOR A TOTAL OF 39 BOXES."W$\"EACH ROW IS LABELED WITH A CATEGORY NAME, WHICH DETERMINES WHAT SCORE YOU RECEIVE WHEN YOU SCORE A ROLL IN THAT BROGRAM PAK #1, (C) 1983"&10E"INSTRUCTIONS (Y/N) ?";I$\ (I$,1)"Y"2800o4 INSTRUCTIONSu9>:"THE OBJECT OF TRIPLE YAHTZEE IS TO ACCUMULATE AS HIGH A SCORE AS YOU CAN"#H"BY ROLLING FIVE DICE AND SCORING THE ROLL ="" LOWER TOTAL:"+" COMBINED:"?"GRAND TOTAL:"N:34,21:Z STARTb:i8:" T R I P L E Y A H T Z E E":" BY DANIEL TOBIAS FEB. 1982":"A NEVER-BEFORE-PUBLISHED PROGRAM IN THE DAN TOBIAS P3) =""FOURS (4) ="+$"FIVES (5) =">."SIXES (6) ="Q8" SUBTOTAL:"aB" BONUS:"wL" UPPER TOTAL:"V"3 OF A KIND ="`"4 OF A KIND ="j"FULL HOUSE ="t"SM. STRAIGHT ="~"LG. STRAIGHT =""YAHTZEE =""CHANCE SC%(P,A,2)0ĺ"X";-:SC%(P,A,3)0ĞT32:SC%(P,A,3)0ĺSC%(P,A,3)::_"X":s LAY OUT BOARD{:A16:A:::::A("A")("G"):(A):32,2:33,38"ACES (1) =""TWOS (2) =""THREES ( RR$:8300pR$:"WHAT COLUMN (1-3) ?";:C$QuC$"0"C$"4"C(C$):C;:Zz800u DISPLAY 1 SCORE LINESC%(P,A,1)0Ğ18:SC%(P,A,1)0ĺSC%(P,A,1);SC%(P,A,1)0ĺ"X";:SC%(P,A,2)0Ğ25:SC%(P,A,2)0ĺSC%(P,A,2);22:12:I15:R(I);:5  SELECT POSITION;%_*"YOUR ROLL: ";:A15:R(A);:e/4"WHAT ROW (1-6, A-G) (I=INFO) ?";:R$>R$"I"İ5000:1000:200:800H(R$)0(R$)7R(R$):880MR$"A"R$"G"R(R$)("A")7:880E.)"; 2211I:630*1:X0ır23:"(HIT ANY KEY TO STOP ROLL)";:868::868:I15:R(I)069522:11I:300I:700: SORT ROLL;PRINTA0I14R(I1)R(I)RR(I):R(I)R(I1):R(I1)R:A1I:A17051:X1:625I$(27)6790I$(8)II1DI$(21)II1UI$"I"6255000:1000:200:22:"YOUR ROLL: ";:A15:R(A)0ĺR(A);R(A)0ĺ"-";A:"(ARROWS MOVE CURSOR; SPACE BAR SELECTS DIE TO RE-ROLL; HIT ESC WHEN DON:12:I15:300(0)2:I(700823:868:FX RE-ROLLNZX0U]1b23:"(ARROWS MOVE CURSOR; SPACE BAR SELECTS DIE TO RE-ROLL; HIT ESC WHEN DONE.)";lI1qI1I1rI5I5s22:11I vI$:I$" "ĺ"-";:R(I)1:II(P,R,C)1-R7TL%(P,1,C)TL%(P,1,C)SC%OTL%(P,1,C)63TL%(P,2,C)35rR6TL%(P,3,C)TL%(P,3,C)SC%TL%(P,4,C)TL%(P,4,C)SC%GT%(P)GT%(P)CSC% ROLL 5 DICE:"YOUR ROLL: -----":"(HIT ANY KEY TO STOP ROLL)"22:N;O$(N);" PLACE";:T1ĺ" (TIE)";) */ +: , DICEH .16368,0Z 3Z((1)6)1b 6Z;m 8(36) ;KE(16384):KE128350 E307 ^16368,0:R(I)Z h  CREDIT SCORE X0 SC%(P,R,C)0X1: SC%(P,R,C)SC%:SC%0SC%(P,2,2);:33:TL%(P,1,3)TL%(P,2,3)6 A713:900:l 19:TL%(P,3,1);:26:TL%(P,3,2);:33:TL%(P,3,3) 19:TL%(P,4,1);:26:TL%(P,4,2);:33:TL%(P,4,3) "18:GT%(P); $N1:T0:A1NP:GT%(A)GT%(P)NN1 &GT%(A)GT%(P)TT1# (A:25 DISPLAY SCORE 1:1% 8688 PT(P):PL$(P)t 32,17:33,23:34,1:35,21::32,0:33,40:35,24:34,21{ 2 A16:900: A12:19:TL%(P,A,1);:26:TL%(P,A,2);:33:TL%(P,A,3):# 19:TL%(P,1,1)TL%(P,2,1);:26:TL%(P,1,2)TL%GT%(PL(A)):::"SAVE GAME TO DISK? ";I$:(I$,1)"Y"İ4500D W100 Z:"GAME OVER.":"HIT ANY KEY FOR FINAL SCORES. ";:I$:7000 _"ANOTHER GAME? (Y/N) ";I$:(I$,1)"Y"Ĭ a d:"HIT ANY KEY TO RETURN TO MENU. ";:I$:: nD$"RUN MENU" 800:SC%(P,R,C)055- <3000:400:X155P F200::PP1:PNPP1:TPTP1_ KTP4090 PPL$(P)" IS NEXT.":"HIT ESC TO QUIT.":"HIT ANY OTHER KEY TO CONTINUE. ";:I$:I$(27)40; U:::"QUIT WITH SCORE:"::6000:A1NP:PL$(PL(A));30);) TRIPLE YAHTZEE5(C) 1983 BY DANIEL TOBIASF SC%(5,13,3)VTL%(5,4,3)qO$(5):A15:O$(A):|PL(5) ST,ND,RD,TH,THD$(4)GT%(5) PL$(5),PT(5)#2000%1000( LOOP-2002500:600:X1İ600 7               ŠϠҠ٠Ơōč΍ӠϠҠΠӬȠӍč΍ŠΠŠŠƠӍč΍ȠŠ٠ˠӮč΍ŠϠԠנӠϠōč΍ӠƠӠ˻Ĭč΍̠Šč΍ӠՍҍčȍԠӠˍč΍ӠˠӠԠ٭Ĭύč΍ԠӠčȍōč΍΍č΍Šōč΍ӮĮҍč΍ȍ΍Š٠ϠŠͮԠΠϠōč΍ĠϠРŠ٠͠Ӯč΍Πԍč΍΍č΍ΠϠՍҍҍč΍ΠϠՍҍčȍүҍč΍Ӡ͠ӠӠҠԭč΍ӠϠӬĠӠٍŠӬĠͮč΍ǮĬȠӠՠōč΍ͮč΍Πͮҍč΍ΠǠčč΍Ӎč΍ΠϠՍҍčȍ͠Ӎč΍ӠŠӠƠϠӺč΍ͮҬȠӠՍč΍ΠϠՍҍčȍˍč΍ӠӠҠŠŮč΍Πԍč΍͠čȍԮƮŮӍč΍ӠӠΠŠŠԠΠōč΍ԠŮč΍Πԍč΍ˍč΍ˠŬԠ̠ƍč΍ŠŠΠĠҠӍč΍ήҠӬǠōč΍ŠŠЧŠҠ΍č΍ĠŮҍč΍ҍčȍԠӠˍč΍ӠˠӠӠΠȠӮč΍ŠƠ͠ŠĠٍč΍Π͠Ӎč΍үҍč΍Šč΍΍č΍΍é٠̠Ӎč΍΍Ġ٠ˍN. THESE AREAS ARE";2:"SUMMED TO GET THE TOTAL AREA."k<::"YOU HAVE TO SPECIFY A FUNCTION USING"F:"BASIC SYMBOLS, SUCH AS 'X*3' OR 'X^2+1'.":"THE FUNCTION IS PLACED INTO THE PROGRAM"P:"USING THE DOS EXEC COMMAND, MAKING THIS"::"A IT ANY KEY TO CONITNUE. ";:I$$S"SIMPSON'S RULE INVOLVES DIVIDING UP THE" :"CURVE INTO A NUMBER OF SUBINTERVALS OF":"EQUAL WIDTH, AND USING THE AREA UNDER":"THE ARC OF A PARABOLA APPROXIMATING THE"(:"CURVE OF THE FUNCTIO"FOR THOSE OF YOU WHO HAVEN'T TAKEN"W:"CALCULUS, OR HAVE FORGOTTEN, AN INTEGRAL""REPRESENTS THE AREA UNDER THE GRAPH OF":"A FUNCTION."::"SIMPSON'S RULE IS A METHOD OF APPROX-":"IMATING THE VALUE OF AN INTEGRAL.":"HSTOP":"HIT RETURN TO ENTER NONSTANDARD NOTE."\ "ARROWS: MOVE BACK AND FORTH THRU SONG."b m SAVE:"":"":"FILE TO SAVE: ";I$I$ E F # G # A # B C # D # E KEYS : 0 P Z S X D C F V B H N J M " "NOTES: F # G # RESTS":"KEYS : , L . ; SPACE BAR" :"HIT THE : KEY TO CHANGE TONE LENGTH. IT SHOULD BE FOLLOWED BY A NUMBER KEY.". "/ DELETE - INSERT ESC: L%(N)L%>NNLı$HANLN1DRT%(A1)T%(A):L%(A1)L%(A)VWN$(A1)N$(A)m\A:NLNL1:T%(N)0{aN$(N)" "f DISPLAY 1:8 "NOTES: C # D # E F # G # A # B C # DKEYS : Q 2 W 3 E R 5 T 6 Y 7 U I 9 O"I "NOTES: #1)T%48I$(8)T%5-BI$"/"T%6AFI$(13)T%7UHI$(27)T%8[Kh DELETENNLNLNL1:T%(N)0:N$(N)" ":NNLıAN1NLT%(A1)T%(A):L%(A1)L%(A)N$(A1)N$(A)A:NLNL1 4 INSERT 9RB  INPUT*T%12I$ZI$"A"I$"Z"T%NO%((I$)64):nI$","T%38:I$"."T%34:I$";"T%32:I$"0"I$":"T%NO%((I$)21):I$" "T%0:$I$":"T%2)I$"-"T%3.I$(2T%6İ2000:710'T%3İ2100:7095T%0750CT%0810V L,L%:T,T%:Rl*L%(N)L%:T%(N)T%y/N$(N)I$4NN19NNL1NLN1>709 PLAY BACKNL0ıB1NLT%(B)0İ400T%(B)0ĹT,T%(B):L,L%(B):;T%(N);:868N500ı0L%L%(N):T%T%(N)>T%0750TL,L%:T,T%(N):Rd6:1:1000tT%2İ500T%7İ600T%8L%(N)L%:T%4NNLT%1T%4L%(N)L%:820T%5N1750 T%5L%(N)L%:NN1:70910(v1:4:868:"TONE: ";A$:T%(A$)=T%0T%255630HI$"*"N\ PROGRAMbl3000wL%100NNLN$(N)""1:1:"NOTE #"N" : "N$(N);:868:NNLT%(N)0:L%(N)L%"LENGTH: ";L%(N);:868 :"TONE: "T%:L,L%:R:310 REST/A1L%(B)2:A5I CHANGE LENGTHc1:"L";:1:I$:" ";oI(I$)zI0ıL%LV%(I)D3:1:"LENGTH: ";L%;:868NX NONSTANDARD NOTEb1:3:868:"LENGTH: ";A$:L%(A$)lL%0L%2556:200+200(, PLAY MUSIC:NO PROG.31L%100?3:3000U43:"LENGTH: ";L%e61:6:1000u;T%2İ500<T%7İ600:3:"LENGTH: ";L%=T%8ı@T%0310E1:1:868:"NOTE: "I$:4:868:"TONE: ";T%JT%0İ400:310TT, WANT TO DO THIS? ";:"";J$:(J$,1)"Y"I$""L (I$)4İ300:200l (I$)1NL0:N1:700:200 (I$)2ė::"NOTE # TO START AT: ";N:N0İ700:200 "(I$)3İ900:200 $(I$)5İ4000:200 &(I$)6İ5000:200((I$)7İ6000"E " (6) LOAD FROM DISK":" (7) SEE INSTRUCTIONS":" (8) QUIT"q :"WHICH? ";:I$:(I$)0(I$)8200 (I$)8ė::"INSERT PROGRAM DISK AND HIT ANY KEY. ";:I$::D$"RUN MENU"5 (I$)1NL0ė::"THIS WILL ERASE SONG IN MEMORY. DO YOU PAK #1, (C) 1983 BY DANIEL TOBIAS."U "========================================"i "YOUR CHOICE:" :" (1) WRITE NEW SONG" " (2) EDIT SONG" " (3) PLAY BACK SONG" " (4) PLAY MUSIC WITHOUT STORING SONG" " (5) SAVE TO DISK T%(500),L%(500)" N$(500)4 NO%(100):A1Y NO%(A):NO%(A)999AA1:190d NNA1p START :"========================================";% "MUSICIAN - BY DANIEL TOBIAS - JAN. 1982"::"IMPROVED VERSION FOR DAN TOBIAS PROGRAM ,173:771,48:772,192:773,136:774,208:775,4:776,198:777,7:778,240 n779,8:780,202:781,208:782,246:783,166:784,6:785,76:786,2:787,3:788,96 x:"NOMONC,I,O" OP$"OPEN ":WR$"WRITE ":CL$"CLOSE " RE$"READ " R770:T6:L7# MUSICIAN- BY DANIEL TOBIAS 1/82KIMPROVED VERSION (C)1983[ FOR DTPP1e200m2:<LV%(9):A19:LV%(A):AF 12,25,37,50,75,100,150,200,250PD$(4)c LINES 100 AND 110 POKE THE TONE MAKER INTO MEMORY G d770                  : A"CC1~'CR10200''AA1:10100;'J$(A)(J$,J,1)H'NN1:JR'K$""p'A1(J$):K$K$J$(A):A(:"YOUR MESSAGE JUMBLED:" (J$K$:J$(JU$J$(:"RUN UNJUMBLER WITH THIS JUMBLE (Y/N) :";I$::(I$,1)"Y"130+("RUN THE MENU"' JUMBLE':>$'"ENTER LINE YOU WANT JUMBLED."M.'500:J$I$^8'J$""10030B'K$(" ",(J$))G'N(J$)I'J1(J$):J$(J)"":JL'J1(J$)V'R(N(1))1`'A1j'C0t'J$(A)"2#:7<#:"JUMBLE:":JU$::"YOUR SOLUTION:":K$:FA#J$JU$:T1F#"DO YOU WANT TO DO THE SAME JUMBLE OVER AGAIN? (Y/N) :";I$K#P#(I$,1)"Y"130Z#"DO YOU WANT TO RUN THE PROGRAM AGAIN? (Y/N) :";I$:d#(I$,1)"Y"Ĭn#:D$"RUN TE D0O$(K$,T,1)+A1(JU$)Z(JU$,A,1)O$(J$,A,1)"*"D0İ4500:D1aAnIT:300tzA1J$(JU$,1)(J$,2)A(J$)J$(J$,A1)(JU$,A,1)A1A(J$)J$(J$,A1)(JU$,A,1)(J$,A1)(# END4000:3000:K$K$"-"&tI$" "İ200001000@ ADD SPACEST1K$" "K$uT1K$(K$,T1)" "(K$,T){ REMOVE SPACE L(K$) T1K$(K$,2) TLK$(K$,(K$)1) T1TLK$(K$,T1)(K$,T1)  ELIMINA(K$,T,1)" "İ4000=II$"-"(K$,T,1)" "İ700:IT:300UJI$"-"TT1:1000gKT(K$)1000LI(I$):I32(K$,T,1)"-"I$"-"ıVI32(K$,T,1)" "I$"-"İ700:`I32((K$,T,1))32I$"-"İ4000:jI$""((K$,T,1))32İ.I$(13)9000Q3I$" "(K$,T,1)"-"(K$,T,1)" "İ4000:300:K$K$"-"z8I$" "(K$,T,1)"-"İ300:K$K$"-"=I$" "TT1?T(K$)1000BI$""(K$,T,1)" "İ3000:1000DI$""(K$,T,1)"-"İ3000:K$K$"-":1000GI$"-"D1TT1114:1:"NO MORE LETTERS."::1000F WAIT FOR INPUTm1:8:J$;:868:1:12:K$;:868zT1T1T(K$)T(K$)IT12:TI$I$"*"104014:1:868I$(21)TT1:1000$I$(8)TT1:1000I$)1I$(I$,(I$)1)' ?A$;:868:G GET RID OF THE RIGHTMOST -O D0s (K$,1)"-"K$(K$,(K$)1): X(K$)1 (K$,X,1)"-"K$(K$,X1)(K$,X1): XX1 (XT)D0TT1:D1 X1730 (K$,1)"-"K$(K$,2): $)K$(K$,I1)I$(K$,I1)" T- INPUT7 I$""? A$V A$(8)İ555:510y (I$)38A$(13)ĺ"";:510 A$(13)ĺ: A$"*"A$"-"A$" "ĺ"";:510 A$; !I$I$A$ &510 +<-- 0I$""ı 5(I$)1I$"" :(0:155 TT1 300:155- INSERT *5 F1M B1J$"*"(J$,2)o B(J$)J$(J$,(J$)1)"*" B1B(J$)J$(J$,B1)"*"(J$,B1) , UPDATE SOLVING $ 6I1K$I$(K$,2) @I(K$)K$(K$,(K$)1)I$ JI1I(K===============":" CTRL-I: INSERT SPACE":" CTRL-D: DELETE CHARACTER"b " ARROWS: MOVE CURSOR" " RETURN: EXIT PROGRAM" 1000 F0:B1(J$) I$(J$,B,1)F0İ200 IT B:F0Ģ14:1:"THERE IS NO '"I$"'.":868:I$"-":300000 d START iT1 n:R s"ENTER JUMBLE YOU WANT TO SOLVE:":500:J$I$a xJ$""115l }JU$J$r K$"":A1(J$) (J$,A,1)" "K$K$"-" A: 1:6:"JUMBLED STRING:":1:10:"UNJUMBLED STRING:"F 1:16:"===========> JUMBLER/UNJUMBLER0 BY DANIEL TOBIAS< D$(4)HJ$(40)N2:9:12:"JUMBLER / UNJUMBLER"::7:"BY DANIEL TOBIAS JAN. 1982"::" DAN TOBIAS PROGRAM PAK #1 EDITION."<:7:"(J)UMBLE OR (U)NJUMBLE? ";I$ F(I$,1)"J"1     č΍ҠРǠĠ٠ҍč΍ŠŮՠΧԠĠٍč΍ˠĠҠӠŮč΍Πԍč΍΍č΍ӮƠĮč΍Πԍč΍ȍč΍ΠϠՍҍčȍȍ΍Πԍč΍ӮĮҍč΍ΠϠՍҍčȍӮĮҍč΍ӠӠčȍŠōč΍Ӡ͠ӠΠŠҍč΍ϠŠҠРŠĠҍč΍ΠӠŮŠӍč΍ŠΠΠŠͮčǠՠ٠ĠԠՠ٠ԍč΍ˠҠŠԠϠˮč΍Πԍč΍Šōč΍ΠϠՍҍҍčȍ΍č΍Ӡ͠Ӡՠ٠Íč΍ΠҠĠӠƠԠӠč΍ϠҠήԠ̠Šōč΍čȍ΍Πͮҍҍčȍ΍ΠͮǮčҍčȍ΍ΠүҍՍč΍ŠԠȠϠĠԠϠҍҍčȍ΍ΠԮƮŮӍҍčȍ΍ΠˍҍKEEP THE SAME"? "****************************************";E _ FINISH INSTRUCTIONS "WHEN YOU ARE DONE THE COMMANDS WILL BE ALTERED IN MEMORY. THIS DOES NOT CHANGE";  "THE DOS THAT IS STORED ON THIS DISK. YOU ARE GIVEN THE CHANCE ʬנɠàקʠ٠ύˠìҠʠˠϠٍ̠٠Р٠ՠ٠Ϡˡ٠ǧؠԠՠ٠Ҡ٠ìˠˠҠʠР٠٭ϧ٠נ٠؍ϠҠخٮנʬàʠ٬Πˠˠ٠˧ˍíΠ٠ՠ٠ʍРˮì٠ʍՠ٠à̠ˠנˠ٬ΠҠ٠ˠààٍՠٮ̠ɠקʠ٠ˠˠ٠ʠ٠ʠǍ٠נРˠخʠҠ٠Рՠ٬٠ʍˠҠʠ٠Р٠ˍ٠٠ˠ٠٠ՠύʬҠ٬РٍˠΠРՠ٠נʍ  ΍Š٠ϠŠͮԠΠϠōč΍ĠϠРŠ٠͠Ӯč΍Πԍč΍΍č΍ΠϠՍҍҍčȍ΍Π΍ҍčȍ΍ΠӠ؍ҍ̭ҠӍč΍РˠƠӠؠĠҍč΍Ƞ٠ҠԮĠ΍č΍נˠŬԠ٠ˠŮč΍Πԍč΍ΠϠՍΠԍč΍Ӡ؍č΍ΠϠՍҍčȍӠ؍č΍ӠӠ̠č΍ϠΠϠϮʮӠӠ͍č΍ϠϠ̠ΠǍč΍ΧӠŮԠӠΠàōč΍ϠԠՠԠŠΠՠōč΍Ǡٮčεčȍ΍ΠӮĮҍҍčȍ΍Πȍҍčȍ΍č΍ΠՠԮƮŮӍҍčȍ΍Π΍ҍčȍ΍ΠŠōҍԠ٭ԠҠӠٍč΍ԠǠҠӬΠՍč΍Ԡ٠٠Šōč΍٠ϠǠŠ٠čč΍ԠŠƠ٭č΍ήč΍ΠՍҍčȍԠӠˍč΍ӬΠ̠͠נϠҍč΍ԮƠՠנԠҠӍč΍ϠΩΠϠՍҍčȍ̠ōč΍΍č΍Ӡ؍ōč΍ӠՍĬՠՠӍ֠ѠĠՠӠӍàƠѠՠ֠ɠčˠ֬РĠՠƍàԠРՠɠ΍ĠՠˠɠӮӠӠɍ֠ՠؠѠƠэϠԮՠĠӠѠƠӍˠՠؠƠРƮՠԬؠѠƠÍĬѠؠî֬ԠЭʠΠѠ΍ՠƮˠԠѠʬ֍ѠՠԠլàՠԍĮ  č΍ΠϠՍҍčȍ΍Π΍ҍčȍ΍ΠԮҍҍӠ؍č΍ӠӠ̠̭ҠӍč΍РˠƠӠؠĠҍč΍Ƞ٠ҠԮĠ΍č΍נˠŬԠ٠ˠŮč΍Πԍ F20:I$::D$"RUN MENU"D201,190,240,3,76,201,222,32,177,0,32,227,223,32,44,213,232,189,0,2,208,250,134,157,138,32,82,228,160,0,145,131,200,165,113,145,131,200,165,114,145,131,160,2,162,0,165,157,76,226,229X5036  H T1ĺ"Q=QUIT H=HARDCOPY G=GOBACK M=MORE":5080t "Q=QUIT H=HARDCOPY V=VERBAL OR 1-"T D$"PR#0": pA$(T$,2) zA$ D$; A$: (# END 2#::"DON'T FORGET TO BOOT THE OTHER SIDE OF THIS DISK.":: T(T$)' A1T:A$:RN(A)(A$)- A T1İ400:1300J 200Y  CONTINUE_ i 1000w PRINTOUT ::D$"PR#1" "DAN TOBIAS PROGRAM PAK #1 : SIDE "DT$" : FRAME "RN  A1NL L$(A) TTL(A) TT0ĺ:TTTT1: TY$ T$ T(T$)5 $T$:TY$"H"1065K %(T$,1)")"6000 &::"DAN TOBIAS PROGRAM PAK #1 - S"DT$", F"RN:::NL0 )T$:NLNL1:L$(NL)T$:L(NL)T .T0ĺ:TT1:1070 3D$ 8NNNN1:1010  END OF PAGE T1$:FV:T$T)I1I(I)ĺ"";:230) "RNRN(I):5 MINPUT= D$o :"Q=QUIT H=HARDCOPY G=GOBACK M=MORE ";:w I$ I$"Q"9000 I$"H"İ5000: I$"G"RN1: RNRN(1): GET PAGE NNRN RD$;NN T$ T$"D"1200IPTIONS.TEXT" 2L$(30),L(30)= <VL$(500),S%(500),C%(500)F ZOP$_ dRD$;0:LF:VN:DT$g nD$p xRN1z 1000 NUMBERINPUT D$ :"Q=QUIT H=HARDCOPY OR 1-"T; I$ I$"Q"9000 I$"H"İ5000: I(I$) (I  MENU5::255:12:12::"LOADING MENU":k 1013,76:1014,0:1015,3:X1768818:Y1:X1,Y1:D$(4):OP$D$"OPEN DESCRIPTIONS.TEXT,L47"RD$D$"READ DESCRIPTIONS.TEXT,R"#WR$D$"WRITE DESCRIPTIONS.TEXT,R" (CL$D$"CLOSE DESCR     ɠԠؠɍ٠͠ؠ Ю͠͠͠ ͠جɠ٠ՠӠР͠נɬԠͬ͠ōǬ͠٠͠ɍͬ͠͠Πͬ͠͠ؠ Ǎՠؠ٠Ǭ  AND PAID TO THE STATE.)" )""P):"WHEN YOU START THE PROGRAM YOU WILL BE"):"GIVEN THE OPTION OF LOADING A FILE FROM""):"DISK; WHEN YOU QUIT YOU WILL BE GIVEN AN";,):"OPTION TO SAVE THE DATA FILE. WITHIN"6):"THE PROGRAM YOUR TBASE WOULD"8(:"BE PROHIBITIVE. THIS PROGRAM IS NO"h(:"SUBSTITUTE FOR A BUSINESS LEDGER, ONLY"(::"HIT ANY KEY TO CONTINUE. ";:I$:(:"AN AID TO THE SPECIFIC TASK OF KEEPING"(:"TRACK OF SALES TAX WHICH MUST BE"(:"REPORTED NG CODE. YOU THEN MAY GET A"P(:"PRINTOUT SHOWING THESE TOTALS, SORTED IN";}(:"NUMERICAL ORDER BY REPORTING CODE. "(:"NOTE: THIS PROGRAM DOES NOT REMEMBER"(:"INDIVIDUAL SALES ONCE THEY HAVE BEEN" (:"ENTERED; THE SIZE OF THE DATASALE,";8Z(:"AND IT WILL DO THE REST. IT WILL FIRST"hd(:"COMPUTE THE AMOUNT OF TAX WHICH IS DUE"n(::"HIT ANY KEY TO CONTINUE. ";:I$:x(:"ON THE TRANSACTION, AND IT WILL THEN ADD";(:"THIS DATA TO ITS TOTALS FOR THE"(:"REPORTI, MOST LIKELY.) HOWEVER,"I((:"ONCE YOU HAVE LOOKED UP THE REPORTING"x2(:"CODE (WHICH IS A NUMBER) AND TAX RATE"<(:"(IN PERCENT) FOR A PARTICULAR SALE, THIS";F(:"PROGRAM WILL LET YOU ENTER THIS"P(:"INFORMATION, AND THE AMOUNT OF THE :"THIS PROGRAM WON'T LOOK UP THE REGION OR";Y':"TAX RATE FOR A SPECIFIC SALE (THAT"(::"HIT ANY KEY TO CONTINUE. ";:I$: (:"INFORMATION CHANGES FREQUENTLY AND WOULD";(:"BE OUT OF DATE BY THE TIME THIS PROGRAM"(:"IS DISTRIBUTEDIVED, AND";9':"THE TAX COLLECTED, FOR EACH OF THESE"i':"REGIONS. THE BUSINESS OWNER MUST LOOK"':"THIS INFORMATION UP IN A BOOKLET, WHICH"':"ALSO GIVES THE CURRENT TAX RATES, WHICH"':"DIFFER FROM REGION TO REGION."'""-'IFFERENT COUNTIES, CITIES,"N~':"ETC. WHICH MUST BE SEPARATELY REPORTED. ";z'::"HIT ANY KEY TO CONTINUE. ";:I$:':"THE BUSINESS MUST PERIODICALLY FILE A"':"SUMMARY REPORTING THE TOTAL NUMBER OF" ':"SALES, THE AMOUNT OF MONEY RECE:"STATE, BUT MIGHT WORK IN OTHER STATES. "_L':"BUSINESSES MUST COLLECT TAX ON ALL SALES";V':"MADE TO RESIDENTS OF THEIR HOME STATE. "`':"FURTHERMORE, THE TAX COLLECTED MUST BE"j':"GROUPED BY 'REPORTING CODE', WHICH"t':"REFERS TO DčȍŠՍč΍ԠӠˍč΍ԮƮŮӍč΍ˍč΍                  L:0,1);20);"$"N(0,2);30);"$"N(0,3)(6D$"PR#0"["HIT RETURN TO CONTINUE. ";I$:n' INSTRUCTIONSt'$':"THIS PROGRAM KEEPS TRACK OF DATA ON".':"SALES TAX COLLECTED FOR MAIL-ORDER"8':"BUSINESSES. IT IS BASED ON NEW YORK",B'جȠ٠͠έؿϠϠנѠˠŠ͍ͬ͠͠͠àͬΠ͠ˠ͡Š͠͠άΠŠ͠͠ڮΠʍάڠج֠͠ȍϠ֠οѠΠʠΠנэӠ͠נ͠  "+ :"SEE HOW WELL THEY ARE DOING. IT"X :"REMEMBERS SCORES ON EXAMS, QUIZZES," $:"HOMEWORK, ETC., AND CAN COMPUTE YOUR" .:"AVERAGE." 8:"WHEN YOU RUN THIS PROGRAM YOU WILL FIRST"; B:"BE REMINDED TO INSERT YOUR DATA DISKETTE";/OUR CHOICE: ";I$:I(I$)/ xI1I4I(I)ĬJ I4ė::D$"RUN MENU"m I3ĺD$"RUN GRADEKEEPER.MAIN"v PF0 I24000  INSTRUCTIONS  :"THIS PROGRAM LETS COLLEGE OR HIGH SCHOOL"; :"STUDENTS KEEP TRACK OF THEIR GRADES ANDM, PART OF DAN TOBIAS PROGRAM PAK #1. (C) 1983"b 2:"----------------------------------------"w <"YOUR CHOICES:" F:" (1) SEE INSTRUCTIONS" P:" (2) GET HARDCOPY OF INSTRUCTIONS" Z:" (3) RUN PROGRAM" d:" (4) EXIT PROGRAM" n:"Y4! ** STUDENT.GRADEKEEPER **D (C)1983 BY DANIEL TOBIAS j INSTRUCTION PORTION vD$(4) ::" STUDENT.GRADEKEEPER":" BY DAN TOBIAS MAR 1983"*0 -"A NEVER-BEFORE-PUBLISHED PROGRA    r):"YOUR PRINTER."C|)::"HIT ANY KEY TO CONTINUE. ";:I$:I})WO OPTIONS ARE TO"B@):"'ENTER MORE SALES', AND TO 'LIST SALES"sJ):"BY CODE'. THE SECOND CHOICE IS HOW YOU"T)::"HIT ANY KEY TO CONTINUE. ";:I$:^):"GET A LIST OF TAX COLLECTED; YOU MAY"h):"CHOOSE TO GET IT OUTPUT TO THE SCREEN OR";51,61,64,165"+8' 57,-1,48,102,437+B' -1,36,41,46,92O+L' 82,202,155,74,139g+V' 110,54,185,68,125p+`' 78+j' 87,-1,195,175,-1+t' 149,132,117,-1,99+* -999ASEE INSTRUCTIONS"=*::"HIT ANY KEY TO CONTINUE. ";:I$:E*""o*:"LETS YOU SEE THESE INSTRUCTIONS."w*""*:"8. QUIT"*""*:"EXITS THE PROGRAM."*::"HIT ANY KEY TO CONTINUE. ";:I$:**' DATA*' NOTES +.' -1, E"5:"APPLE'S KEYBOARD, AND SAVE YOUR SONGS TO";h:"PLAY BACK LATER. FROM THE MAIN MENU YOU";:"HAVE 8 CHOICES. THEY ARE:""":"1. WRITE NEW SONG""":"THIS ALLOWS YOU TO PLAY A SONG TO BE":"STORED. THE SCRE(I$,1)"Y"20000)N*)R DROP COURSEU)RO$"WHICH COURSE DO YOU WANT TO DROP?"_)R2000h)!RCH1w)&RCN$(C%)"")+RCC%CC%1)0R:"OK."::20190)0u EXIT):uCHİ7000)Du::"":I$)Nu:D$"RUN MENU"РĠҬƮɠΠѠӠà͠Ѡ׍ѠؠЬĠҠōŠҠؠĠخɠ΍ѠĠĠàĠˍؠҠɠĠРѬčҠŠŠҠؠĠخ٠РŠŬč  TO EXIT>"$:"FILE TO LOAD: ";I$CI$"C"ĺD$"CATALOG":5015PI$""ılD$"OPEN"I$:D$"READ"I$tNLA1NL:T%(A):L%(A):AA1NL:N$(A):AD$"CLOSE":p INSTRUCTIONSz:"THIS PROGRAM LETS YOU PLAY MUSIC ON TH:"ACCURATE THE APPROXIMATION IS."T:"THE NUMBER OF SUBDIVISIONS MUST BE EVEN."::"WHILE IT IS CALCULATING THE RESULT, YOU":"CAN HIT TO SEE HOW FAR ALONG":"THE PROGRAM IS."\f"HIT ANY KEY TO START. ";:I$::o<"OUTPUT TO PRINTER? (Y/N) ";I$::(I$,1)"Y"ĺD$"PR#1"SB13:N(0,B)0:B|"CODE # SALES AMT. RECD. TAX"A1N%:2);A$(A);13);N(A,1);20);"$"N(A,2);30);"$"N(A,3)B13:N(0,B)N(0,B)N(A,B):BA":"TOTALS:";13);N(:$" (1) ENTER MORE SALES"*I" (2) LIST SALES BY CODE"O`" (3) QUIT"s:"WHICH? ";II140,5000,9004000 LIST:N%0ĺ"NOTHING ENTERED YET.":A11000::S%0ĺ"PLEASE WAIT. SORTING.":3000:N%0 A$(A)S$(A)+: B13:N(A,B)S(A,B)4D B,A=I S%1CN N MENUW:5"**************************************** SALES TAX RECORDER ****************************************""FILE: "F$;:F$""ĺ"* UNNAMED *";IN D$"CLOSE"*% SORT1 N%2ı= A1N%Q S(A,0)(A$(A))X Ag AN%11o H0~ BN%11 S(B,0)HHS(B,0):HNB B S$(A)A$(HN):S(A,1)N(HN,1):S(A,2)N(HN,2):S(A,3)N(HN,3) S(HN,0)1 A& A1N% N%0ĺD$"CLOSE":( A1N%3 A$(A)> B13M $N(A,B):BT .A\ 3INk 8D$"CLOSE"q B|  SAVE D$"OPEN F."F$:D$"WRITEF."F$ S% N% N%0ĺD$"CLOSE": A1N% A$(A) B13 N(A,B):B A"SAVE TO DISK? (Y/N) ";I$:(I$,1)"N"ĺ"FILE NAME (DEFAULT:";F$")":"";I$:I$""F$I$:930s (I$,1)"N"940} 2000 :"":I$::D$"RUN MENU"   LOAD D$"OPEN F."F$:D$"READ F."F$ S% R S0R0140( T((SR).5)1007 "TAX: ";T? N0Y A1N%:I$A$(A)NA` A N0N%N%1:A$(N%)I$:N(N%,1)1:N(N%,2)S:N(N%,3)T N0S%0 N0N(N,1)N(N,1)1:N(N,2)N(N,2)S:N(N,3)N(N,3)T 142  END ^ Y"İ10000Y n:"FILE TO LOAD: (HIT RETURN IF YOU DON'T WANT TO LOAD FROM DISK)":"";F$k xF$""İ1000u 4000} : "(HIT RETURN TO EXIT)" :"REPORTING CODE: ";I$ I$""ı "ENTER AMOUNT OF SALE: ";S:"PERCENT TAX RATE: "; START f i:D k"SALES TAX: BY DANIEL TOBIAS, 11/81": l"NEVER-BEFORE-PUBLISHED PROGRAM FOR THE DAN TOBIAS PROGRAM PAK #1, (C) 1983"::"": m"INSTRUCTIONS ? ";I$:(I$,1)"J SALES TAX/ BY DANIEL TOBIAS: 11/81I A PROGRAM FOR SMALLe MAIL ORDER BUSINESSES} IN NEW YORK STATE (POSSIBLY USABLE IN OTHER STATES) (C) 1983A$(200),N(200,3)N%0(S$(200),S(200,3)2D$(4) d             РРʠؠנ͍٠ؠѧخ֠ˠȠˠנ٠ϿɠϠϮϠ٠ΠˠנĮΠˠנ̠Ьˠč٠Ġ̠Ϭ֠ĠؠɍӠĠĠӠп PLAY." )::"5. SAVE TO DISK"()D""J)N:"SAVES YOUR SONG TO DISK."R)X""n)b:"6. LOAD FROM DISK"v)l"")v:"LOADS A PREVIOUSLY SAVED SONG. THIS"):"ERASES THE PREVIOUS SONG IN MEMORY, IF"):"THERE IS ANY.")""*:"7. (""5(:"4. PLAY MUSIC WITHOUT STORING SONG"=(""m(:"LETS YOU PLAY NOTES ON THE KEYBOARD IN"(:"THE SAME FASHION AS USUAL, EXCEPT THAT"(:"THE NOTES ARE NOT STORED FOR LATER"(&::"HIT ANY KEY TO CONTINUE. ";:I$:)0:"RE""0':"THIS LETS YOU GO BACK AND MAKE MORE"\'::"HIT ANY KEY TO CONTINUE. ";:I$:':"CHANGES IN A SONG YOU HAVE ENTERED USING";':"THE FIRST OPTION."'""':"3. PLAY BACK SONG"'""(:"PLAYS THE SONG YOU HAVE ENTERED."PROGRAM AGAIN? (Y/N) :";I$::(I$,1)"Y"Ĭ=(("SO LONG.":DI$:CH1!(\N:"GRADING WEIGHTS:".(fN:A19](pNX0:B19:GC%(C%,B)(A)ĺTN$(B)" ";:X1(zN:X1ĺCW%(C%,A)"% OF GRADE"(N(N:"EDIT GRADING WEIGHTS? ";I$:(I$,1)"Y"20190(NCH1(NAC%(N12000)N"CHANGE ANOTHER ?";I$:SE?"'*NCF1:2000:CF0<'4NC%NC%1ANC%1:10010:20190P'9NC%NC%221000l'>N::CN$(C%)" "CT$(C%)'CN:"(HIT RETURN TO LEAVE ITEM UNCHANGED)"'HN:"NEW COURSE NUMBER: ";I$:I$""CN$(C%)I$:CH1(RN"NEW COURSE TITLE: ";I$:I$""CT$(C%)8&&/"ENTER PERCENTAGE OF FINAL GRADE FOR EACHCATEGORY.">&0/I&:/B19\&?/T%(B)012130r&D/"CATEGORY #"B":"&N/C09:GC%(A,C)Bĺ" "TN$(C);&X/::"% OF GRADE: ";CW%(A,B)&]/&b/&l/& N EDIT COURSE DATA'%NO$"EDIT DATA ON WHICH COUR* DONE % +%%. GRADING STANDARDS+%.}%."ENTER CATEGORY # (1-9) IN WHICH TO PLACE EACH ITEM. (0 IF NOT USED.)"%.%.B09:T%(B)0:%.B19%/TN$(B);:": ";GC%(A,B)%/GC%(A,B)0GC%(A,B)912035%/T%(GC%(A,B))1%/%/':-$$'"HIT RETURN WITH NO INPUT TO END."H$.':"COURSE #: ";CN$(A)]$8'CN$(A)""11000|$B':"COURSE TITLE: ";CT$(A)$L'CT$(A)""11000$Q'CH1$V'12000$t'B19:TN%(A,B)0:TP%(A,B)0:TG%(A,B)0:$~'AA1:CC%CC%1:NC%NC%1$'10010%#f&SD%(C%,T%,B1)SD%(C%,T%,B):SC(C%,T%,B1)SC(C%,T%,B):SG%(C%,T%,B1)SG%(C%,T%,B)Z#p&v#z&TN%(C%,T%)TN%(C%,T%)1#&AA1#&#& DONE#&:"EDIT ANOTHER? ";I$:(I$,1)"Y"9000#&#' SET UP TEMPLATE#'A1#'LF$"(NEW FILE)"$%)SISC(C%,T%,A);"%TG%(C%,T%)TG%(C%,T%)SISG%(C%,T%,A)T"%SI1ĺ""o"%SI1ĺ""u"%"H& DELETE"M&SI1TP(C%,T%)TP(C%,T%)SC:TG%(C%,T%)TG%(C%,T%)SG"R&ATN%(C%,T%)TN%(C%,T%)TN%(C%,T%)1:"\&BA1TN%(C%,T%)TT%,A)SI(D1100D2)H!N%"SCORE: ";SC(C%,T%,A):"OUT OF: ";SG%(C%,T%,A)!X%SI1TP(C%,T%)TP(C%,T%)SCSC(C%,T%,A):TG%(C%,T%)TG%(C%,T%)SGSG%(C%,T%,A)!b%!% 'DROP' GRADE!%SD%(C%,T%,A)SD%(C%,T%,A)!%SI(SD%(C%,T%,A))"%TP(C%,T%)TP(C%,TOUT CHANGING" x#I$4 }#I$"E"I$"D"I$"X"CH1F #I$"E"İ9500X #I$"X"İ9600j #I$"D"İ9800{ #I$"Q"9900 # #AA1:ATN%(C%,T%)9050 #9900 % EDIT &%"ENTER DATE : ";D1,D2 0%D11D112D21D2319510!:%SD%(C%,РàˠàЍԠנɠàìˠӠàРլˠ٠Ӡîנà٠àԠ֍נՠ٠ѠЬàР̠ЍԠɠѠЮ D::"":p""v"FILE NAME: ";N$N$"C"ĺD$"CATALOG"::5027N$""5100"OPEN"N$"WRITE"N$NA1N:C$(A):A A"HIT RETURN TO CONTINUE. ";I$:/ HARD COPY7:`"START PRINTER AND HIT RETURN. ";I$ftD$"PR#1"A1NC$(A)D$(A)AD$"PR#0" QUIT:"SAVE TO DISK? (Y/N) ";I$(I$,1)"Y"5100 (C$(B))03080' C1(C$(B))@ A((C$(B),C,1))64\ A0A27N%(A)N%(A)1c Cj Bv A126 PR03100 (37)21ĺ:"HIT RETURN TO CONTINUE. ";I$:: (AL$,A,1);": ";N%(A);" OCCURRENCES."& A+ :D$"PR#0"0 3 QUIT"%:" GO BACK"+O"YOUR CHOICE: ";:I$::I(I$)Uk I3000,4000,5000t200 FREQ. COUNT  PR0 :"OUTPUT TO PRINTER? (Y/N) ";I$:(I$,1)"Y"ĺD$"PR#1":PR1  N%13082 N%1 B1N1D$(A)R$(D$(A),2):GB(D$(A))D$(A)(D$(A),(D$(A))1)R$:nD$(A)(D$(A),B1)R$(D$(A),B1)tz832,10:33,30"YOUR CHOICES:"" 1 FREQUENCY COUNT"" 2 HARD COPY" " ISMATCH >>":9308DE0ĺ"<< INPROPER FILE >>":930U"<< FILE NOT FOUND >>"gD$"DELETE"N$wA12000:} NO SOLUTION STRINGSA1ND$(A)(BL$,(C$(A))):10000A216,0:D$"CLOSE":200 REPLACEB:((A$)64);:I$I$A$<A$"A"A$"Z"II$II$A$]A$"A"A$"Z"II$II$" "f620o<--|I$""ı(I$)1I$"":II$""(I$)1I$(I$,(I$)1):II$(II$,(II$)1)A$;:868: ONERR(222)13ĺ"<< TYPE M)(C$(A),B,1)C$İ1000#B*A3200D INPUT-DISKNI$""[A$:A$;kA$(13)ıxI$I$A$&520X INPUTbI$"":II$""lA$vA$(8)İ700:620A$(13)ĺ:(I$)38ĺ"";:620A$;A$" "(27)2000 TC$"A"C$"Z"310[^24:"WHAT DO YOU WANT TO REPLACE '"C$"' WITH? ";:R$bh1rrR$" "390|R$"A"R$"Z"35024:868R$" "420F%((R$)64)1İ9000F%((R$)64)0F%((R$)64)1A1NB1(C$(A)A 22! :PA1ĺ"<- MORE") 22D NPA7Ė34:"MORE ->"i PA1NPA7Ģ22:17:"PAGE ";PAo z ,24:1 6"ENTER LETTER TO REPLACE (ESC FOR MENU) ";:C$ @1 CC$(8)PA1PAPA1:200 FC$(21)NPA7PAPA1:200 JC$DE1:I$:N(I$):DE0:N0āA1N:500:C$(A)I$:A> 950K A0190d A1N:500:D$(A)I$ D$(A)""D$(A)(BL$,(C$(A))):10000 A D$"CLOSE" 216,0 A(PA1)71PA7 C$(A):D$(A) ANAPA7 A1:200 D$(A)II$& AA1:120h ::" :"": "FILE NAME: ";N$:N$""80 N$"C"ĺD$"CATALOG"::152 "OPEN"N$:"READ"N$ 9004 BEFORE-PUBLISHED PROGRAM, PART OF DAN TOBIAS PROGRAM PAK #1, (C) 1983.":k i"LOAD FROM DISK? (Y/N) ";I$ k(I$,1)"Y"150 m"ENTER CRYPTOGRAM, LINE BY LINE." nA1 p"(HIT RETURN WITH NO INPUT TO END)" s x600:C$(A)I$ C$(A)""NCDEFGHIJKLMNOPQRSTUVWXYZ"% <F%(26)6 AN%(26):N%0? FPA1I P:: Z"**************************************** CRYPTOGRAM SOLVING AID BY DANIEL TOBIAS DEC. 1981 ****************************************"J d"A NEVER- CRYPTOGRAM.SOLVING.AID< BY DANIEL TOBIAS 12/81K (C) 1983X C$(100)eD$(100)BL$" "(D$(4) 2AL$"AB      z #    ŮԮƮŮӠ ŮԠ ԮҠ ڠ ŠŠ+ ӮĮҠȠ Π ӮԠ Ӡؠ ՠ ͠ ͠ ͠ ͠ ͠үҠΠ%ϠԮƮŮӠ[ˠS"ͮҠ ͮǮĠ͠͠TO SAVE THE"a "ALTERED COMMANDS TO DISK WHEN YOU ARE DONE. IF YOU DO, THEY ARE SAVED AS A" "BINARY FILE, WHICH YOU MUST BLOAD WHEN YOU WANT TO USE THE ALTERED COMMANDS" "AGAIN." :"HOWEVER, IF YOU INITIALIZE A DISK WHILE THE DOS COMM.":.y "HIT ANY KEY TO CONTINUE. ";:I$::8z 3300~{ "WHICH DO YOU WANT TO CHANGE: COMMANDS OR ERROR MESSAGES? ";I$} :(I$,1)"C"TY0:3200~ (I$,1)"E"TY1:3200 3195 "HERE IS THE FIRST ONE..." ": CHANGE; ERROR MESSAGES ARE STORED SLIGHTLYDIFFERENTLY, AND A REPLACEMENT MESSAGE MUST BE THE SAME LENGTH AS THE ORIGINAL.THIS PROGRAM WILL PAD IT WITH BLANKS IF NECESSARY."v x "SPACES WITHIN COMMANDS ARE NOT ALLOWED, BUT THEY ARE ALLOWED IN ERROR MESSAGESN"b "OLD ONE YOU MUST MAKE ANOTHER ONE SHORTER. YOU WILL GET THE MESSAGE 'TOO LONG!' IF THERE IS NO ROOM TO FIT THE COMMAND YOU TYPED. YOU MUST THEN"l "TYPE A SHORTER WORD."m n "HIT ANY KEY TO CONTINUE. ";:I$::q "NOTE: OMMAND OR"6 "ERROR MESSAGE SHOWING, HIT THE "d& "KEY. IF YOU DO NOT WANT TO CHANGE IT,"~0 "HIT THE SPACE BAR."N X "THE NEW COMMANDS MUST FIT IN WHERE THE OLD ONES WERE IN MEMORY, SO IF YOU MAKE A NEW COMMAND LONGER IN LENGTH THAN A(Y/N) ";I$% ::(I$,1)"Y"3195 "********* DOS COMMAND CHANGER *********"::"LETS YOU CHANGE 'TOKEN' WORDS (COMMANDS" "OR ERROR MESSAGES) IN APPLE DOS 3.3."  "TOKEN WORDS WILL APPEAR ONE BY ONE."  "IF YOU WANT TO CHANGE THE C MENU" ::"BYE.":$ BEGIN. ::4 Z 6:"*** DOS COMMAND CHANGER ***"`  "BY DAN TOBIAS SEPT 1981" "IMPROVED VERSION FOR DAN TOBIAS PROGRAM PAK #1, (C) 1983 BY DANIEL TOBIAS."  "INSTRUCTIONS? OUR 'BSAVE' COMMAND, WHAT IS IT NOW? ";B$:B$""BS$B$[ D$;BS$;N$;",A"ST",L"LNa  "TO RETREIVE, TYPE 'BLOAD "N$"'."  :"RUN THIS PROGRAM AGAIN? (Y/N) ";I$:(I$,1)"Y"Ĭ:"RETURN TO MENU? (Y/N) ";I$:(I$,1)"Y"ĺD$"RUNAD1 A   END& 1100R "YOUR DOS COMMANDS ARE NOW CHANGED.": :"DO YOU WANT TO SAVE THESE ALTERED TOKENS TO DISK? (Y/N)"; "";I$ (I$,1)"Y"2057  "FILE NAME: ";N$ ? TY1Ą"IF YOU HAVE CHANGED YL(B$):LLN(NWX)ĺ"TOO LONG!":LL(B$):1000H TY0X25BS$B$_ J$(X)B$:XX1:15x L POKE IN NEW VALUES QADST VA1X1 [(J$(A))11150 `B1(J$(A))1 jAD,((J$(A),B,1)) oADAD1 tB ~AD,((J$(A),1))128:ADJ$(27)1000 vJ$" "1122 wJ$(X)A$:XX1u LL(A$):LLN(NW(X1))XX1:LL(A$):"TOO LONG!":1000} 15  CHANGE  "CHANGE "A$" TO: "; 4000 TY1(B$)(A$)B$B$(" ",(A$)(B$))2 LNW55 I(AD) ADAD18 III:II127IIII128H A$A$(II)W I127100h 2ADSTLN20p 7: <"THAT'S ALL. PLEASE WAIT WHILE I POKE THE NEW COMMANDS INTO DOS.": F2000 d LIST WORD iX25T0BS$A$ nA$ pJ$ u, DOS COMMAND CHANGER9 BY DAN TOBIAS 9/29/81Y UPDATED VERSION (C) 1983 eD$(4)uBS$"BSAVE"3000 J$(100):X1 TY0ST(978)2562948:LN132:NW28 TY1ST(978)2563188:LN202:NW14 ADSTA$"" X     VR$"1.2":VD$"8/17/83")D$(4)4:255< :F8:7g"DAN TOBIAS PROGRAM PAK #1"#:9)"VERSION "VR$" "VD$(:16);"(SIDE 2)"2:" COPYRIGHT (C) 1983 BY DANIEL TOBIAS"<:"--------- HIT ANY KEY FOR MENU ---------" EN WILL SHOW WHAT KEYS"J:"YOU HAVE TO HIT FOR EACH NOTE OR SPECIAL";z:"COMMAND. TO PLAY A NOTE, SIMPLY PRESS"::"HIT ANY KEY TO CONTINUE. ";:I$::"THE PROPER KEY. THE SPACE BAR ENTERS A":"'REST', WHICH MEANS A PAUSE. YO RETURN TO EXIT>"D:"FILE NAME: ";I$:I$"C"ĺD$"CATALOG":1010QI$""ıu(I$)0ĺ"INVALID NAME.":1010 I$"0"ĺ"INVALID NAME.":1010D$"OPEN "I$D$"WRITE "I$$NL.A1NL:X$(A):A3A1NL:D$(A):A8D$"CLOSE"(B$)1B$"":$B$(B$,(B$)1)*D$""ĺ"";:4020=TY1(B$)(A$)J$(13)ĺ"";:4020STY0J$" "4020\J$;{J$(13)B$""ĺ"":4020J$(13)ı(J$)32Ğ:((J$)64);:B$B$J$4020h BS|(B$)0ı~B$(0)ı(8);:868ANDS ARE CHANGED, THE"i* "ALTERED COMMANDS WILL BE AUTOMATICALLY ACTIVATED WHEN THAT DISK IS BOOTED."4 :"HIT ANY KEY TO CONTINUE. ";:I$9 :>  INPUTB$""(A$,1)(0)B$(0)J$J$(8)İ4200:4020J$(13)BE 10, OR BY ADDING OR REMOVINGDUMMY STATEMENTS SUCH AS 'A=A' IN THE"pN"DELAY LOOP (LINES 10000 THRU 10120)."N:"HIT ANY KEY TO START. ";:I$:: TO CONTINUE"+\N"0: RESET TO ZERO; STOP">fN"S: SET TIME"pN"L: POST LAP TIME (UP TO 7 LAP TIMES MAY BE DISPLAYED AT ONCE)"uN"ESC: QUIT"zN:"YOU CAN TINKER WITH THE ACCURACY OF THE STOPWATCH BY CHANGING THE VARIABLE"DN"DLY IN LIN**************************************STOPWATCH - BY DANIEL TOBIAS - MAY, 1982";/N"****************************************"4N"COMMANDS:"::"RIGHT ARROW: FORWARD">N"LEFT ARROW: REVERSE"HN"RETURN KEY: STOP" RN"SPACE BAR: PAUSE; HIT AGAIN PAUSEJPAUSE08100&^13:4/h" ";rPAUSE0A|S SET PAUSE:^13:4g"P"sPAUSE1y(#:936::D$"RUN MENU"' TIME LOOP'LOOP1DLY'AA'QQ1'AA:AA'2000$'LOOP* NP*N::"**"; (16384)128ĂCOUNT+ 16368,03 10> X SETK b936:2^ g"YEARS= ";Yd lw v"DAYS= ";D} { "HOURS= ";H  "MINUTES= ";M  "SECONDS= ";S 936:1000 LOOP1 A0:PAUSE0 NL0  @ PAUSE1ı& SSA:S0S60ı1 SS60? S0S59V MMA:M0M60ıa MM60o M0M59 HHA:H0H24ı HH24 H0H23 DDA:D0D365ı DD365:D0D364 YYA A0ı COUNT115 "0  12:3  " "  % ` 8 j LOOPLOOPLDLYQ t 15:2:"LAP TIMES:"m v H$(H):H10H$"0"H$ x M$(M):M10M$"0"M$ z S$(S):S10S$"0"S$ | 17NL:NLNL1:NL6NL0 ~ Y","D" "H$":"M$":"S$;:868: ADVANCE TIME00 I141İ2300$ I160İ80004 I1559000I I211I176ıZ I211İ7000i %I176Ĭ10o * 4A1LOOPDLYLOOP >A1 @12:3 C"-->" H A1LOOPDLYLOOP A1 12:3 "<--"   STOP COLD  A "YEARS= ";Y;" " 9 "DAYS= ";D;" "? W "HOURS= ";H;" "] u "MINUTES= ";M;" "{  "SECONDS= ";S;" " B  INPUT? I(16384) 16368,0 I149İ2100: + I136İ2200: - I204İ24 20000D$(4)# DLY140LDLY1.58:Cd33,25Ni32,15Tn\pA0esTA1}xH0:M0:S0:D0:Y01000: PLOT TIME MAIN LOOP1000030001000SMHDY0A04000200 PLOT TIME 2     AME #";AA060104D$"OPEN GAME."NA$",L500"QD$"WRITE GAME."NA$",R"ArL:B1NI:IL%(B):B:WT:TB1NL:R%(B):B:M:EB1NI:PR(B):BCM%:R:JPW:RMD$"CLOSE"SP:d LOAD GAMEn6900x"GAME #(1)10M(M) LOOK(XX14L%(L)0:D| INVLX0f"YOU ARE CARRYING: "rA1NIA105540IL%(A)0ĺ" "ID$(A):X1AM0ĺ" $"M" IN CASH.":X1X0ĺ"NOTHING."p SAVE GAMEu255z"G  DROPEFW%(1)1FW%(1)NIĺ"YOU ARE NOT CARRYING ONE.":xIL%(FW%(1))0ĺ"YOU ARE NOT CARRYING ONE.":IL%(FW%(1))L:WTWTIW(FW%(1))"OK."L39ĺ"IT SLIDES INTO A CREVICE IN THE RUINS AND IS LOST.":IL%(FW%(1))1FW%W%(1))150ĺ"TOO HEAVY. YOU MUST DROP SOMETHING FIRST BEFORE YOU PICK IT UP.": IW(FW%(1))150ĺ"TOO HEAVY FOR YOU TO LIFT.": IW(FW%(1))0ĺ"IT IS SECURELY FASTENED.": IL%(FW%(1))0:WTWTIW(FW%(1)) "OK." FW%(1)10M(M) HERE.":> IL%(FW%(1))0ĺ"YOU ARE ALREADY CARRYING IT!":k IL%(FW%(1))Lĺ"NO SUCH THING HERE.": PR(FW%(1))0R%(L)1ĺ"ROBOT: YOU CAN'T TAKE THAT WITHOUT PAYING FOR IT! PLEASE BUY IT IF YOU WANT IT.":U WTIW(FW%(1))150IW(F40HX17ĺ"ROBOT: SORRY, THIS INFORMATION BOOTH IS OUT OF ORDER.":c LD$(X,0)"S"İ12000:*L36X37Ą"ENTER COMBINATION: ";A$:(A$)CM%ĺ"SORRY. WRONG!":4X3814000LX:XX1: PICK UP  FW%(1)0FW%(1)NIĺ"NO SUCH THINGkR%(L)20FW%(1)100IL%(12)0ĺ"ROBOT: I.D. ACCEPTED. YOU CAN PASS. GOOD DAY, MR. SMITH.":2060R%(L)20FW%(1)100ĺ"ROBOT: I'M SORRY, BUT YOU CANNOT GO THAT WAY WITHOUT AN I.D. CARD.": L39X39(1).35PL1PL:X35:PL0X)3ĺ"ROBOT: TRYING TO ESCAPE, HUH? IT WON'T WORK! ZAP! YOU'RE DEAD!":1500X6IL%(7)0ĺ"ROBOT: I'M SORRY, BUT THE DRESS CODE REQUIRES THAT YOU WEAR A TIE.":L6R0ĺ"ROBOT: I'M SORRY. YOU ARE A BAD CREDIT RISK. YOU CAN'T ENTER.":5:A"HIT ANY KEY TO RETURN TO MENU. ";:I$:::D$"RUN MENU"L MOVEvFW%(1)101FW%(1)108ĺ"GO WHERE?":XLV%(L,FW%(1)100)X0XNLĺ"NOT DEFINED YET.":L28I$"BREAK OUT"15000X0ĺ"YOU CAN'T GO THAT WAY.":OR%(L(A)Lĺ .A* 8X0ĺ"THERE ARE NONE.": =R%(L)0ĺ\ BR%(L)1ĺ"CLERK ROBOT HERE." LR%(L)20R%(L)29ĺ"GUARD ROBOT HERE." VR%(L)3ĺ"BERSERK ROBOT HERE!" `TE100ĺ:"YOU ARE GETTING HUNGRY!" :"STOP AFTER "T" TURNS.":258J0ĺ"THE BARS ARE BROKEN LEAVING A PATH OUT."7 C L%(L)1x "OPEN PATHWAYS: ";:A18:LV%(L,A)0ĺDN$(A); A  "VISIBLE OBJECTS:" X0 A1NI $IL%(A)Lĺ" "ID$(A);:X1:PR(A)0R%(L)1ĺ" (PRICE: $"PR(A)")"; )IL%OUND WORD& bB1NW:WD$(B)WD$İ650: lB:WD$"":AA1I vA(I$)ıR 530] C01| W%(B,C)0FW%(C)W%(B,C) C   PRINT DESC LD$(L,0)"S"İ12000  LD$(L,L%(L)) L28J0ĺ"THERE IS A DOOR WITH BARS."1 L2000,15500,16000,16500,10000/ FW%(0)9915009 TT1B 110U  HANDLE INPUTc 16368,0k SP FW%(0)0:FW%(1)0  "-->";I$ I$""510 WD$"":A1 (I$,A,1)" "600 WD$WD$(I$,A,1) &AA1:A(I$)530 X F1),FW%(1) 18000:19000* 2SP255:SP2 <:> d STARTG lXX1W nXX1İ1000` x500w }XXXX1:XX5XX1 FW%(0)0ĺ"WHAT?":110 FW%(0)2000,3000,4000,5000,5500,6000,7000,8000,9000,9500 FW%(0)10ĴFW%(0)1013000,13500,14500,15Y PLANET.OF.THE.ROBOTS; BY DANIEL TOBIAS 11/81Y AN ADVENTURE-STYLE GAMEv DTPP1 EDITION (C) 1983NA$"PLANET.OF.THE.ROBOTS" D$(4)LV%(100,8),LD$(100,1),R%(100),ID$(50),IL%(50),PR(50),IW(50),L%(100) WD$(100),W%(100,                              " &":L28&"SP4&"A1NI:IL%(A)0IL%(A)29@&"M(M)G&"AR&"XX1:^&(# SHOOT}&2#IL%(9)0ĺ"WITH WHAT?":&<#R%(L)0ĺ"NOTHING TO SHOOT AT.":&F#R%(L)3ĺ"THE ROBOT'S FORCE FIELD REPELS THE RAY.":CH1:8500C'P#"THE DEFECT W CHARGED."%"!%" SENTENCING*%"SE2%"CH1ĺ"JUDGE: YOU ARE HEREBY SENTENCED TO DEATH BY ELECTROCUTION."::"YOU LOSE.":1500&""JUDGE: YOU ARE HEREBY SENTENCED TO":" "SE" YEARS IN PRISON. BAILIFF, PLEASE":" REMOVE THE PRISONER... NEXT CASE!AY FOR HIMSELF?"$o",$t""DEFENDANT: ";I$2$v"x$y""JUDGE: THE JURY WILL NOW REACH A VERDICT.":A11500:A~${" %~""JURY: THE WORD OF A ROBOT IS MORE RELIABLE THAN THAT OF A MERE HUMAN. THEREFORE, I FIND THE DEFENDANT GUILTY ASWHICH I WORK, AND WOULD NOT PAY.")# "L#""D.A.: WHEN DID THIS HAPPEN?"R#"#""ROBOT: JUST ";((1)59)" MINUTES, "(1)59:" SECONDS AGO."#"#$""D.A.: I REST MY CASE."#)"#`" YOUR REPLY$j""JUDGE: WHAT DOES THE DEFENDANT HAVE TO SE WITH A":IL%(9)0ĺ" RAY GUN ";<"!IL%(9)0ĺ" KNIFE ";w"!"ONLY "((1)59)" MINUTES, "(1)59:" SECONDS AGO."}"!"!"D.A.: I REST MY CASE.""!"!8800"! THEFT OF SERVICES##""ROBOT: THIS MAN HAD A MEAL AT THE RESTAURANT IN T HIS CASE."!!7!!"* THE D.A. IS ALSO A ROBOT. *"=!!e!!"D.A.: I WILL NOW CALL UPON THE ";|!!R%(L)1ĺ"CLERK "!!R%(L)1ĺ"GUARD "!!" ROBOT, SERIAL #"((1)999999)" TO TESTIFY."!!!!CH18700!"!"ROBOT: THIS MAN ASSAULTED MUDGE: YOU ARE CHARGED WITH ";D !CH1ĺ"ASSAULT OF":" A ROBOT. ";k !CH1ĺ"THEFT OF":" SERVICES. "; !"HOW DO YOU PLEAD?" ! !"DEFENDANT: ";I$ ! !(I$)6(I$,6)"GUILTY"8900 !!"JUDGE: THE DISTRICT ATTORNEY WILL NOW PRESENH!"POLICE: YOU ARE UNDER ARREST. YOU HAVE A RIGHT TO REFRAIN FROM INPUTTING ANYTHING; ANYTHING YOU INPUT MAY BE HELD AGAINST YOU IN COURT."\!:"* YOU ARE TAKEN TO A COURTROOM. * * THE JUDGE AND JURY ARE ALL ROBOTS. *"f! p!:"JRRENT COMBINATION TO THE DOOR OF ROOM ";RM" IS POSTED ON THE GOVERNMENT":"COMPUTER NETWORK IN THE FILE TITLED 'CHRONOS'. THE PASSWORD TO THE FILE IS '";PW$(PW);"'." *!4! TRIAL/JAIL9!128>!"* A POLICE ROBOT ARRIVES. *"C!KED THE NAME OF THE FILE YOU WANT. FILES YOU HAVE ACCESS TO": "INCLUDE 'POP', WHICH CONTAINS THE CURRENT POPULATION OF THE U.S.A. HAVE FUN!"D l " T O P S E C R E T"v "TO: WORKERS ON PROJECT CHRONOS" :"THE CU NETWORKS" :"YOU CAN ACCESS THE GOVERNMENT'S PUBLIC INFORMATION DATA FILES THROUGH ANY MODEM-EQUIPPED COMPUTER. TO DO THIS SIMPLY TYPE:" " PR#3"& "THEN, YOU SELECT THE GOVERNMENT NETWORK BY TYPING:":" GOVT">0 "NOW YOU ARE ASAGENT BILL SMITH, AND HAS HIGHEST SECURITY CLEARANCE.":FW%(1)14ĺ"THEY APPEAR TO BE THE FRAGMENTS OF A BUTCHER'S KNIFE.":FW%(1)118200FW%(1)138300"NOTHING INTERESTING.":  "TITLE: HOW TO MAKE THE MOST OF COMPUTER 5ĺ"THE SIGN SAYS: INSERT $2.50":vrFW%(1)10ĺ"THEY ARE MOSTLY DOLLAR COINS, BUT THERE ARE SOME $2.50 PIECES.":|FW%(1)4ĺ"IT IS HOOKED TO A MODEM.":FW%(1)8ĺ"IT IS THE ADVENTURES OF SUPERROBOT.":9FW%(1)12ĺ"IT BELONGS TO SECRET RE IS NO SUCH ITEM HERE.":C"IT WEIGHS ";IW(FW%(1));" POUNDS."IT@ READEFW%(1)200ĺ"THE BARS LOOK RUSTY AND WEAK.":JFW%(1)1FW%(1)NIĺ"NO SUCH THING HERE.":TIL%(FW%(1))LIL%(FW%(1))0ĺ"NO SUCH THING HERE.":#^FW%(1)16,0D$"CLOSE"*"GAME NOT FOUND."0<X WEIGHmbIL%(2)LIL%(2)0ĺ"THERE IS NO SCALE.":lFW%(1)2ĺ"YOU CAN'T WEIGH IT ON ITSELF!":vFW%(1)1FW%(1)NIĺ"THERE IS NO SUCH ITEM HERE.":IL%(FW%(1))LIL%(FW%(1))0ĺ"THE";A}A06520/D$"OPEN GAME."NA$",L500"KD$"READ GAME."NA$",R"AlL:B1NI:IL%(B):B:WT:TB1NL:R%(B):B:M:EB1NI:PR(B):BCM%:R:JJLV%(28,8)27PW:RMD$"CLOSE"216,0 ONERR20),((1)40):"";-6>5I(16384):16368,0=6C5GAGX:GBGYF6E5GF0d6H5I136GAGX1:GA0GA06R5I149GAGX1:GA39GA396\5I141GBGY1:GB0GB06f5I175GBGY1:GB39GB396k5I160GF16p50:GX,GY 7z5GA,GB)0ĺ"";:GSGS1KAPOW! ****"5413570:13600L55"SCORE="GS" "20)"TIME LEFT: "GT" "w5 5"X COORD="GX" "20)"Y COORD="GY" "55"Q TOLERANCE="((1)1000)" "20)"X-Y DECLENSION="((1)100)" ";555 55*515:GX,GY645(0).75Ġ((1)15):((1)4BOT: DO YOU WANT TO GO BACK TO THE LOBBY?":"";I$:(I$,1)"Y"L34:XX1:T4l4d44 PLAY GAMEy44:"COST: $2.50"44M2.5ĺ"YOU CAN'T AFFORD IT.":4425544MM2.544:44GX20:GY20:GT200:GS044GH0 54"**** SUPER STELLAR ALIEN ;I$<34(I$)RMĺ"ROBOT: SORRY, THAT ROOM IS NOT OPEN.":34:"THE WALL SLIDES OPEN, AND YOU ARE BRISKLY CARRIED ON A PLATFORM FLOATING INCHES ABOVE THE FLOOR, THROUGH SEVERAL HALLWAYS. YOU COME TO A STOP."34L36:XX1:3X4 HALLN4b4"ROR%(L)3ĺ"THE ROBOT KILLS YOU WHILE YOU ARE ATTEMPTING TO COMMUNICATE WITH IT!"::"STOP AFTER ";T;" TURNS.":23"ROBOT: YES?"23" ";I$23"ROBOT: TELL THAT TO THE JUDGE!"2323 UNIVERSITY33"ROBOT: WHAT ROOM NUMBER DO YOU NEED?":""(I$,1)"Y"1000012L3ı:12"ROBOT: CAN I HELP YOU?"F13" ";I$W1 3I$""13060`13520w13FW%(0)10İ9500:13FW%(1)4L3100001"3"ROBOT: I AM NOT PROGRAMMED TO ANSWER QUERIES OF THIS TYPE."1313 GUARD AND BERZERK ROBOTSt23T TO GET OFF HERE? ";I$:(I$,1)"Y"LLV%(L,8):XX1:C0:/:12050T02 CALL ROBOTv02R%(L)0ĺ"NOBODY TO CALL.":02R%(L)11320002L61100002L341330002L361340012L3ĺ"ROBOT: WOULD YOU LIKE TO TRY OUT THE APPLE X?":"";I$:LV%(L,1)0LV%(L,2)0ĺ"WHICH TRAIN: NORTHBOUND OR SOUTHBOUND?":"";I$:I2:(I$,1)"N"I1q/.LV%(L,1)0I2//LV%(L,2)0I1//LLV%(L,I)//"NEXT STATION: ";LD$(L,1)/!/LV%(L,I)0ĺ"END OF THE LINE.":LLV%(L,8):XX1:/&/600/"DO YOU WAN(I$)1(I$)311050/.H+:"YOU ARE SERVED."K.R+"MMM. IT TASTES GOOD."S.W+ETt.\+:"ROBOT: YOUR CHECK, SIR.".p+:"YOU DO NOT HAVE ENOUGH MONEY!".z+CH0:8500.. SUBWAY..LLV%(L,6).."YOU ENTER AT THE ";LD$(L,1):"STATION."..]/." (1) MARSBURGER"%-+" $120"T-+" (2) GREEN GOOP (SPECIAL OF THE WEEK!)"f-+" $140"- +" (3) CAVIAR AND CHAMPAGNE"-%+" $350"-'+"(HIT RETURN IF YOU DO NOT WANT TO ORDER.)"-*+:"YOUR ORDER: ";I$-4+I$""ı.>+ 23,241,203 ROBOTS.":101204,'I$"CHRONOS"10200P,'"NO SUCH FILE":10120^,' CHRONOSs,'"PASSWORD: ";I$,'I$PW$(PW)ĺ"IMPROPER PASSWORD":10120,'"THE COMBINATION IS ";CM%,(10120,* RESTAURANT,+"ROBOT: HERE IS THE MENU:"- +DE."+':")";I$++'I$"OFF"XX1:SP:c+'I$"GOVT"ĺ"INPROPER DATA BANK REFERENCE":10120y+'"FILE NAME: ";I$,'I$"POP"ĺ"CURRENT POPULATION OF USA ACCORDING TO CENSUS BUREAU AS OF 7/6/2121: EXACTLY 0 PERSONS, 'I10060,10065,10070,10075,10080:10030?*L'"SYNTAX ERROR":b*Q'"IMPROPER DELIMITER ERROR":*V'"UNBALANCED COORDINATE ERROR":*['"UNFORMATTED REFERENCE ERROR":*`'"UNINDEXABLE ADDRESS ERROR":*t' MODEM+~':"YOU ARE NOW IN NETWORK MOOT: WHEN YOU ARE FINISHED, TYPE 'OFF' TO SHUT IT OFF."::"HIT RETURN TO TURN APPLE X ON. ";I$m)'255)':" A P P L E X":)$'2252000;" BYTES FREE").':">";I$)8'I$"PR#3"10100)='I$"OFF"XX1:SP:)B'I((1)5)1(*G.(!%IL%(FW%(1))Lĺ"NO SUCH THING HERE.":^(&%PR(FW%(1))0ĺ"THERE IS NO PRICE ON IT.":o(0%PPR(FW%(1))(:%PMĺ"YOU DON'T HAVE ENOUGH MONEY!":(D%MMP(N%PR(FW%(1))0(X%3000(' COMPUTER('IL%(4)Lĺ"NOTHING TO TURN ON.":d)'"ROBHICH CAUSED THE ROBOT TO MALFUNCTION ALSO AFFECTED ITS NORMALLY"'Z#"INVULNERABLE FORCE-FIELD. YOUR SHOT DESTROYS IT."'d#R%(L)0'n#'% BUY'%FW%(1)1FW%(1)NIĺ"NO SUCH THING HERE.":(%IL%(FW%(1))0ĺ"YOU ARE ALREADY CARRYING IT!": LUCK!">FH:"SOME UTILITY COMMANDS:":" QUIT - EXITS GAME"FH" SAVE - SAVES GAME TO DISK: YOU WILL BE ASKED TO SPECIFY A GAME NUMBER. THIS CAN BE ANY POSITIVE INTE- GER, AND THE GAME WILL BE SAVED";dGH" IN THE REESULTS ARE NOT GUARANTEED!"HEH:"*** HIT RETURN TO CONTINUE ***";I$:EH:"'GO NORTH' MAY BE ABBREVIATED 'N', AND"::"THE SAME CAN BE DONE WITH THE OTHER"EH:"COMPASS DIRECTIONS."FH:"THE OBJECT IS TO GET BACK TO THE 20TH"::"CENTURY. GOOD:"INTO USING SIMPLE SENTENCES, IN THE"VDH:"STANDARD ADVENTURE-GAME FASHION, SUCH"DH:"AS 'ATTACK ROBOT' OR 'EXAMINE COIN'.":DH"IF A ROBOT IS IN THE ROOM, YOU MAY "::"ATTEMPT TO TALK TO IT BY"EH:"TYPING 'CALL ROBOT', BUT POSITIVE"::"RUT THE"::"HUMAN RACE. HOWEVER, THE COMPUTERS"`CH:"AND ROBOTS DON'T KNOW THIS, AND KEEP":CH"GOING ABOUT THEIR BUSINESS AS IF NOTHING":"HAS HAPPENED."CH:"*** HIT RETURN TO CONTINUE ***";I$:'DH::"YOU EXPLORE THE WORLD YOU ARE THRUST":4BF3:"INSTRUCTIONS? (Y/N) ";I$:(I$,1)"N"ė::GBDH INSTRUCTIONSOBNH:}BXH"A TIME WARP HAS SUDDENLY TRANSPORTED":BbH"YOU INTO THE FUTURE, WHEN A WAR USING"BlHBvH"NEUTRON BOMBS AND BACTERIOLOGICAL":0CH"WARFARE HAS COMPLETELY WIPED OECT)":" CALL ROBOT":" ATTACK ROBOT"BA@" SHOOT ROBOT":" LOOK"JA@:PAFFeAPF OPENING TITLESmAZF:wAdF4:3AnF"**** PLANET OF THE ROBOTS ****"AxF:3AF"BY DANIEL TOBIAS NOV. 1981"AF:" DAN TOBIAS PROGRAM PAK #1 EDITION"AFp@>"ALL THE DOORS OPEN AND CLOSE AUTOMATICALLY, SO THERE IS NO NEED TO OPEN THEM OR CLOSE THEM."v@>@t@ HELP@~@:@@"SOME AVAILABLE COMMANDS: ":@@" INV":" GET (OBJECT)":" BUY (OBJECT)":" DROP (OBJECT)"%A@" EXAMINE (OBJCK.":d? OPENRY.">8IL%(FW%(1))1*>8FW%(1)10M00>8H>: BREAK OUT OF JAIL^>:L28ĺ"WHAT?":>:"THE RUSTY, WEAKENED BARS GIVE WAY AND THERE IS AN OPENING OUT.">:LV%(28,8)27:J1>:>< ATTACK>8TE150ĺ"NOT VERY NUTRITIOUS. I'M STILL HUNG."<7Y1900ĺ"YOU END UP IN THE YEAR ";Y;". I DIDN'T":"PROGRAM ANY ADVENTURE GAME FOR THAT CENTURY, AND THE TIME MACHINE IS OUT OF POWER. YOU'RE ON YOUR OWN."<(71500<8 EAT<8FW%(1)0L611000<8FW%(1)1FW%(1)NIĺ"EAT WHAT?":= MACHINE IS OUT OF POWER. YOU'RE ON YOUR OWN."<7Y1970Y1900ĺ"WELL, AT LEAST YOU MADE IT TO THE 20TH CENTURY, BUT YOU'LL HAVE TO WAIT AROUND A WHILE FOR APPLE COMPUTERS TO COME.":Y1939ĺ"PS: BUY ACTION COMICS #1 FOR 10 CENTS WHEN IT COMES OUT RULES TO THE ARCADE GAME, IF YOUHAVEN'T ALREADY. IT IS TOTALLY":"IRRELEVANT TO THE ADVENTURE, BUT I THREWIT IN FOR THE HECK OF IT."0; 7Y2000ĺ"WHY DID YOU GO TO THE FUTURE AGAIN? I DIDN'T PROGRAM ANY ADVENTURE GAME FOR THAT CENTURY, AND THE TIME"HOUR: ";I$:"MINUTE: ";I$:"SECOND: ";I$H96:"THE MACHINE WHIRRS..."Y96A11000:Ar96"YOU HAVE ARRIVED!"97Y1970Y2000ĺ"BACK IN THE 20TH CENTURY AT LAST! YOU WIN!":7Y1970Y2000ĺ" FOR EXTRA CREDIT YOU CAN TRY TO FIGUREOUT THEGH1000ĺ"";:GHGS:GT75:13600c85::12:6:"G A M E O V E R"::6)"FINAL SCORE: "GS:k85SP|85XX0:1000:86 TIME MACHINE86"YOU ARE IN THE TIME MACHINE!"86"NOW SET THE CONTROLS."86"YEAR: ";Y)96"MONTH: ";I$:"DAY: ";I$:0GA,GB)7|5GF013700Q7}5A039:GA,A)0GA,A)15GSGS5GA,A):"";75A,GB)0A,GB)15GSGS5A,GB):"";75A:15:0,39GB:0,39GA:0:0,39GB:0,39GA7515:GA,GB:GXGA:GYGB7522:1:1357075GTGT1:GT013600%85GSE BY SUBWAY STOP."PVO"YOU ARE IN FRONT OF A DOOR.","YOU'RE IN FRONT OF DOOR."VO "YOU ARE IN THE LABORATORY FOR *** PROJECT CHRONOS *** THE TOP SECRET PROJECT WHICH DID RESEARCH INTO TIME TRAVEL.","YOU'RE IN LAB." WRS OF ANY KIND ARE VISIBLE BESIDES THE ENTRANCE TO THE SUBWAY.","YOU'RE IN UNIVERSITY LOBBY."VO"YOU ARE ON A PLAIN WHERE A BOMB BLAST HAS COMPLETELY DESTROYED THE TOWN. THERE IS RUBBLE ALL AROUND. THE PLAIN STRETCHES INTO THE MIST.","YOU'R"S","MARKET STREET"0TjO "S","METRO UNIVERSITY"FTtO "S","ENDSVILLE"T~O "YOU ARE ON A STREET WHICH IS BLOCKED IN BOTH DIRECTIONS BY FALLEN DEBRIS.","YOU'RE ON BLOCKED STREET."aUO "YOU ARE IN THE MAIN LOBBY OF THE METRO UNIVERSITY BUILDING. NO DOOSBO "YOU ARE IN A HALLWAY IN THE JAIL. A CELL IS TO THE SOUTH AND A CLOSET TO THENORTH. A STAIRWAY LEADS UP.","YOU'RE IN JAIL HALLWAY."SLO "YOU ARE IN A JAIL CELL.","YOU'RE IN JAIL CELL."SVO "YOU ARE IN A CLOSET.","YOU'RE IN A CLOSET."T`O DING TOWARDS OFFICES TO THE EAST.","YOU'RE IN HALLWAY."R$O "THERE IS AN OFFICE TO THE NORTH AND ANOTHER TO THE SOUTH.","YOU'RE BETWEEN TWO OFFICES."R.O "YOU ARE IN AN OFFICE.","YOU'RE IN OFFICE"S8O "YOU ARE IN AN OFFICE.","YOU'RE IN OFFICE"'RE IN THE LOBBY OF THE CITY HALL. THERE IS A STAIRWAY HERE.","YOU'RE IN CITY HALL LOBBY."QO "THE ROAD ENDS HERE. THERE IS A STAIRWAY LEADING DOWN TO A SUBWAY STATION.","YOU'RE BY SUBWAY STATION."QO "S","CITY HALL":RO "YOU ARE IN A HALLWAY LEAS OUT OF ORDER, AND THE CASH BOX HAS BURSTOPEN.","YOU'RE IN PHONE BOOTH."XPN "I","I"PN "YOU ARE IN THE LIBRARY.","YOU'RE IN LIBRARY."PN "TO THE WEST IS A LIBRARY, AND THE CITY HALL IS TO THE EAST.","YOU'RE BY LIBRARY AND CITY HALL."\QO "YOUD THATTHE ROAD IS BLOCKED BY FALLEN DEBRIS ANDYOU CAN'T GO ANY FURTHER.","YOU'RE AT DEAD END"ON"YOU ARE NEXT TO AN INFORMATION BOOTH MANNED BY A ROBOT. THE ROAD CONTINUES SOUTH.","YOU'RE BY INFO BOOTH."JPN "YOU ARE IN A PHONE BOOTH. THE PHONE INN "YOU ARE IN A CLOTHING STORE.","YOU'RE IN CLOTHING STORE."rNN "YOU ARE IN A GROCERY.","YOU'RE IN GROCERY."NN"YOU ARE ON A N-S ROAD. THERE IS A SHOPPING MALL TO THE WEST.","YOU'RE ON ROAD BY MALL."]ON "AFTER GOING ABOUT 100 FEET YOU FINE BY ARCADE AND GROCERY."KMN "YOU ARE IN AN ARCADE.","YOU'RE IN ARCADE."MN "TO THE WEST IS A BUTCHER SHOP, AND TO THE EAST IS A CLOTHING STORE.","YOU'RE BY BUTCHER AND CLOTHING STORE."MN "YOU ARE IN A BUTCHER SHOP.","YOU'RE IN BUTCHER SHOP."?A STORE CATERING TO COMIC BOOK COLLECTORS (YEP, THEY STILL EXIST EVEN IN THE FUTURE.)","YOU'RE IN COMIC STORE."zLuN 6:LzN "YOU ARE IN A RESTAURANT.","YOU'RE IN RESTAURANT."MN "TO THE WEST IS AN ARCADE, AND TO THE EAST A GROCERY STORE.","YOU'RNEXT TO YOU.","YOU'RE IN MALL AT COMPUTER STORE."tK\N "YOU ARE IN THE COMPUTER STORE.","YOU'RE IN COMPUTER STORE."KfN "TO THE WEST IS A BACK-ISSUE COMIC BOOK STORE; TO THE EAST IS A RESTAURANT.","YOU'RE BY COMIC STORE AND RESTAURANT."qLpN "THIS IS N ","S ","E ","W ","U ","D ","IN ","OUT"6J*N #PLACESRJ>N PLACE DESC,SHORT DESCJHN "YOU ARE IN THE PARKING LOT OF A SHOPPINGMALL. A ROAD IS TO THE EAST.","YOU'RE IN PARKING LOT TO MALL"1KRN "YOU ARE IN THE SHOPPING MALL. THERE IS A COMPUTER STORE 1:19075IJNWA1 IJL1:T1/IJW0:M119?IJE0:J0:R0iIJ::"LOAD GAME FROM DISK? (Y/N) ";I$IJDUMMY((79)256(78)):RANDOM SEEDIJPW((1)10)1IJCM%((1)9999):RM((1)900)100IJ(I$,1)"Y"İ6500IJI N DATA(J%N "B:LD$(A,0)""AA1:19025'HSJNLA1QHVJA1NL:B18:LV%(A,B):B:R%(A):AhH`JA1NL:L%(A)0:ApHjJA1HtJID$(A),IL%(A),IW(A),PR(A):IL%(A)999AA1:19060HyJNIA1H{JA110:PW$(A):AH~JA1 IJWD$(A),W%(A,0),W%(A,1):WD$(A)""AACORD OF THAT NUMBER OF RANDOM-ACCESS DISK FILE 'GAME.PLANET.OF.THE.ROBOTS'."GH:"*** HIT RETURN TO BEGIN ***";I$:::G8J INITIALIZE G:J"PLEASE WAIT. INITIALIZING DATA."G=JA18:DN$(A):AGLJA1HQJB01:LD$(A,B):68,0 Ti Y"TRY SAME FUNCTION WITH A DIFFERENT NUMBER OF DIVISIONS (Y/N) ?";I$:(I$,1)"Y"220o [ ^"TRY SAME FUNCTION WITH DIFFERENT LIMITS OF INTEGRATION? (Y/N) ?";I$ h(I$,1)"Y"Ĭ r:"TRY A DIFFERENT FUNCTION? (Y/N) ?";I$ |N)(BA))P J(16384):16368,0:J148ĺ"INDEX: "I" / "N"; X="C"; R="Y(H3)` YYKA(C)s "KK2:K0K4y , 6YYA(B) @RY(H3) J:"THE RESULT OF INTEGRATING THE FUNCTION":" F(X) = ";F$:"FROM "A" TO "B" IS:" O" ";R Q163TION: ";B, :"# OF DIVISIONS TO USE: ";N2 c N2(N2)ĺ"MUST BE AN EVEN NUMBER.":220m 500{ H(BA)N (H)1E10ĺ"TOO MANY DIVISIONS. TRY A LOWER NUMBER.";:220 "H = ";H YA(A) K4 I1N1 CA((I, SIMPSON'S RULE NUMERICAL INTEGRATIONI BY DAN TOBIAS SEPT 82h UPDATED VERSION (C) 1983tD$(4)~#500(F$""2 DEF FNA<216,0FF$""1000d"LOWER LIMIT OF INTEGRATION: ";A "UPPER LIMIT OF INTEGRA    NORTH,1,101aIa SOUTH,1,102/aNa EAST,1,103@aSa WEST,1,104OaXa UP,1,105`a]a DOWN,1,106uaba INVENTORY,5,-1aga ENTER,1,107 ala EXIT,1,108aa "",-999,-999N`i_ CASH,-1,10 `n_ BOOK,-1,111`x_ SHOOT,9,-1D`_ ATTACK,15,-1U`_ I.D.,-1,12f`_ CARD,-1,12y`_ LETTER,-1,13`_ PIECES,-1,14`_ OPEN,16,-1`_ CLOSE,16,-1`_ HELP,17,-1`_ ON,18,-1`_ BARS,-1,200`?a*****UNABBREVIATED: aDa_^ PILLS,-1,3 _^ APPLE,-1,44_^ COMPUTER,-1,4E_^ CALL,11,-1U__ GAME,-1,5f_ _ PLAY,12,-1v__ SUIT,-1,6__ TIE,-1,7_(_ COMIC,-1,8_2_ EAT,13,-1_<_ BREAK,14,-1_F_ ESCAPE,14,-1_P_ GUN,-1,9_Z_ COINS,-1,10_d_ MONEY,-1,10IN,1,107^$^ OUT,1,108'^.^ GET,2,-15^L^ GO,1,-1E^`^ DROP,3,-1U^j^ LOOK,4,-1d^t^ INV,5,-1u^~^ QUIT,99,-1^^ SAVE,6,-1^^ ROBOT,-1,200^^ BUY,10,-1^^ WEIGH,7,-1^^ READ,8,-1^^ EXAMINE,8,-1^^ KNIFE,-1,1^^ SCALE,-1,2F METAL,-1,15,0,]xZ TIME MACHINE,37,2000,0D]] "",-999,-999,-999]] SESAME,SNARK,QUARK,PEARTREE,MOONSHINE,SHOE,TURKEY,CHRISTMAS,HALLOWEEN,ROBOTWAR]] WORDS]] N,1,101]] S,1,102]] E,1,103]] W,1,104]^ U,1,105]^ D,1,106^^ PLE X COMPUTER,3,40,100008\ ZVIDEO GAME MACHINE,8,-1,0W\Z SUIT OF CLOTHES,11,6,995k\Z TIE,11,.25,20~\2Z COMIC,5,.3,6\S 0,0,0,0,0,30,0,0,0ZHS 0,0,0,0,0,31,0,0,1[R,0,0,0,0,17,0,0'YR0,0,0,0,0,0,0,40,0@YR 0,0,0,0,0,0,0,15,1YYR 0,0,0,0,0,0,0,19,0uYR 15,21,20,18,0,0,0,0,0YR 0,0,0,0,23,27,0,19,26YR 19,0,0,0,0,22,0,0,3YR 0,30,0,0,0,0,0,21,0YR 0,0,24,0,0,20,0,0,23YR 26,25,0,23,0,0,0,0,0ZR,0,0,0,0,0,4,1X?R 6:/XDR 0,0,0,0,0,0,0,4,1HXNR 9,2,12,8,0,0,0,0,0`XXR 0,0,0,0,0,0,0,7,0zXbR 0,7,11,10,0,0,0,0,0XlR 0,0,0,0,0,0,0,9,0XvR 0,0,0,0,0,0,0,9,1XR 0,0,0,0,0,0,0,7,1XR 14,15,0,1,0,0,0,0,0XR 0,13,0,0,0,0,0,0,0YR13,19O "T","T"8WO "YOU ARE ON PLAIN.","YOU ARE ON PLAIN."rWO"YOU ARE BY A PHONE BOOTH.","YOU'RE BY PHONE BOOTH."~WQ "",""WR MOVEMENT, ROBOTSWR 0,0,13,0,0,0,2,0,0WR 7,4,0,0,0,0,3,1,0W&R 0,0,0,0,0,0,0,2,1W0R 2,0,6,5,0,0,0,0,0X:R 0,0(FW%(1))0MX%MX%1!IL%(I)L,"OK."I20L11ĺ"THE TIGER GOBBLES IT UP AND CURLS IN A CORNER SLEEPING CONTENTFULLY.":T%1:IL%(I)1:SC%SC%100RE%(I)2ĺ"IT SEEPS INTO THE GROUND AND IS LOST.":IL%(I)1:SC%(I)0L1SC%SC%SC%FROM THE OTHER STUFF IN THE BOWL.":LR2ĺ"YOU ARE NOT CARRYING IT.":I7L40ĺ"IT GOES INTO THE WATER. SOON THERE IS A DREADFUL SHRIEK COMING FROM THE WEST, FOLLOWED BY A TOTAL SILENCE.":SM%1:IL%(7)1:SC%SC%400:IL%(FW%(1))3RE%C%SC%(I)2:SC%(I)SC%(I)CSC%(I)0L1SC%SC%SC%(FW%(1))2IT DROPaIFW%(1)I1INIĺ"YOU ARE NOT CARRYING IT.":I7L404020IL%(I)2RE%(I)2I211000%IL%(I)3RE%(I)0MX%1ĺ"IT CAN NOT BE SEPARATED IL%(I)2:3110( PICKUP CONDITIONSU IW(I)0ĺ"IT IS SECURELY FASTENED.":: L38I13SM%0ĺ"THE SMURK WON'T LET YOU!":: L11FW%(1)19T%0ĺ"THE TIGER IS IN THE WAY!":: I8ĺ"THE GHOUL WON'T LET YOU!":: SC%(I)0SC%S"YOU ARE ALREADY CARRYING IT.":* 3500= RE%(I)23300_ IL%(I)3RE%(I)0MX%MX%1l IL%(I)0w& "OK."}D  INTO BOTTLE IL%(2)0ĺ"YOU NEED A BOTTLE.": B1 IL%(B)2ĺ"THE BOTTLE IS FULL.": BB1:BNI3330CULOUS!":& I21(L39L40)13500: I4L1713500a I1INIĺ"NO SUCH THING HERE.":} IL%(I)2RE%(I)2I2 11000:R0ĺ"NO SUCH THING HERE.": IL%(I)3ĺ"IT CAN NOT BE SEPARATED FROM THE OTHER STUFF IN THE BOWL.":  R2ĺA100ĺ"THE SMURK SEES THE POISON AND SAYS: YOU ARE TRYING TO POISON ME, HUH? I WILL KILL YOU FOR THAT! HE POINTS AT YOU AND YOU COLLAPSE INTO ASHES." A1001500LX:XX1: PICK UP IFW%(1)  I51I52ĺ"DON'T BE RIDIETURN TO MENU. ";:I$:::D$"RUN MENU"2 MOVE\FW%(1)101FW%(1)108ĺ"GO WHERE?":tXLV%(L,FW%(1)100)X0XNLĺ"NOT DEFINED YET.":X0ĺ"YOU CAN'T GO THAT WAY.":L3X3ĭ(1).37X2A0X38I7:11000:R1A100":VL11T%0ĺ"A CONTENTED-LOOKING TIGER DOZES HERE."``L38SM%0ĺ"THE SMURK IS HERE!"jL38SM%0ĺ"THE DEAD BODY OF THE SMURK LIES HERE.":"STOP AFTER "T" TURNS.":"FINAL SCORE: "SC%" OUT OF 1000.":255:'"HIT ANY KEY TO R8:LV%(L,A)0ĺDN$(A); A% = "VISIBLE OBJECTS:"E X0Q A1NIo A2IL%(A)Lİ5600:1070 !A23IL%(A)Lİ5700:1070 $IL%(A)Lĺ" "ID$(A):X1 .A 8X0ĺ"THERE ARE NONE."LL11T%0ĺ"THERE IS A FEROCIOUS TIGER HERE!,C):670' W%(B,C)0FW%(C)W%(B,C). C4 E  PRINT DESCK _ L11L381010 L5LO%0ĺ"IT IS TOO DARK TO SEE.": L5I1:11000:R0ĺ"IT IS TOO DARK TO SEE.": LD$(L,L%(L))  L%(L)1 "OPEN PATHWAYS: ";:A1,1) &AA1:A(I$)530, X FOUND WORDI bB1NW:WD$(B)WD$İ650] lB:WD$"":AA1l vA(I$)ıu 530 W%(B,1)100FW%(1)0ı W%(B,1)100FW%(0)0FW%(0)1 C01 C1FW%(C)0(W%(B,C)2W%(B,C)23W%(B,C)21)FW%(2)W%(B0,13500,14500,15000,15500,16000,16500,10000,17000E FW%(0)991500O TT1X 110k  HANDLE INPUTy 16368,0 SP FW%(0)0:FW%(1)0 FW%(2)0  "-->";I$ I$""510 WD$"":A1 (I$,A,1)" "600 WD$WD$(I$,A8000:19000 2SP255:SP" <:. d START7 lXX1W nSC1000ĺ"YOU WIN!":1500g sXX1İ1000p x500 }XXXX1:XX5XX1 FW%(0)0ĺ"WHAT?":110 FW%(0)2000,3000,4000,5000,5500,6000,7000,8000,9000,95001 FW%(0)10ĴFW%(0)1013007Q  SMURK, BY DANIEL TOBIAS 12/81J AN ADVENTURE-STYLE GAMEg DTPP1 EDITION (C) 1983wNA$"SMURK" D$(4)LV%(100,8),LD$(100,1),ID$(50),IL%(50),SC%(50),IW(50),L%(100)WD$(100),W%(100,1),FW%(2)FB%(50),RE%(50) 1                          6&l%F0:A1NI:IL%(A)2ĺ"THE BOTTLE IS FULL!":F1D&v%A:F1ıs&%FW%(1)2ĺ"YOU CAN'T PUT IT IN ITSELF!":&%IFW%(1):XIL%(I):11000:R0ĺ"NO SUCH THING HERE.":&%XLİ3500'%X3RE%(I)0MX%1ĺ"IT CAN'T BE SEPARATED FROM THE OTHER STA%:%(FW%(1)4L17)(FW%(1)21(L38L40))FW%(1)FW%(2):13500s%D%IFW%(2):11000:R0ĺ"NO SUCH THING HERE.":%N%FW%(1)1FW%(1)NIĺ"NO SUCH THING HERE.":%X%FW%(2)239680%]%FW%(2)21(L38L40)9000&b%FW%(2)2ĺ"IT CAN NOT BE DONE.":B1NI:IL%(B)3AA14$^$IL%(B)3FB%(B)0NF1m$h$B:A1ĺ"YOU CAN'T FIT ALL THAT IN THE BOTTLE."::$r$NF1ĺ"IT WON'T FIT!"::$|$X2:$% PUT$&%FW%(1)0FW%(1)NIĺ"PUT WHAT IN WHAT?":$0%FW%(2)0FW%(2)NIĺ"PUT WHAT IN WHAT?":)1:SC%SC%400X#$RE%(A)2IL%(A)Lĺ"THE "ID$(A)" SEEPS INTO THE GROUND.":IL%(A)1|#$SC%(A)0L1SC%SC%SC%(A)2#"$Z3RE%(A)0IL%(A)ZMX%MX%1#,$:#6$#@$JI:I2:11000:IJ:R0ĺ"THERE IS NO BOTTLE HERE."::#J$NF0$T$A0:"#A20L11ĺ"THE TIGER GOBBLES UP THE STEAK AND CURLSIN A CORNER SLEEPING CONTENTFULLY.":T%1:IL%(A)1:SC%SC%100#$A7L40ĺ"IT GOES INTO THE WATER. SOON THERE IS A DREADFUL SHRIEK COMING FROM THE WEST, FOLLOWED BY A TOTAL SILENCE.":SM%1:IL%(ATO THE BOWL? (YES/NO) ";I$:(I$,1)"Y"X3>!#L11:L2NIX!#I2I23L1I:L2Iu!#AL1L2:IL%(A)Z9260!#IL%(A)X:"OK."!#Z3RE%(A)1MX%1L1L2ĺ"IT CANNOT BE SEPARATED FROM THE OTHER STUFF IN THE BOWL.":IL%(A)Z!#XL9240vL%(23)LIL%(23)0)ĺ"THERE IS NO BOWL HERE.":_ #FW%(2)23Z3ĺ"IT IS ALREADY IN IT.": #FW%(2)2Z2ĺ"IT IS ALREADY IN IT.": #Z2FW%(2)23X3:9160 #Z3İ9270/!#Z2(IL%(23)LIL%(23)0)FW%(2)0Ą"DO YOU WANT TO POUR IT IN"NO SUCH THING HERE.":I<#IFW%(1):11000:R0ĺ"NO SUCH THING HERE.":UF#Z0:XL|P#I2I23I0IL%(I)0ZIL%(I)Z#I23Z3d#I2Z2n#Z0ĺ"I DON'T UNDERSTAND.":x#FW%(2)09150}#FW%(2)21(L38L40)91501 #FW%(2)23(I BE PRODUCED USING THE FOLLOWING INGREDIENTS:":" TIGER LILIES":" OIL":" VINEGAR":" BROCCOLI":" MAGIC POWDER #"PN%hFW%(1)15ĺ"PLACE ALL THESE TOGETHER IN A BOWL AND MIX."::*!"NOTHING SPECIAL.":(# POUR2#FW%(1)1FW%(1)NIĺ.":<JFW%(1)15I16:11000:R0ĺ"IT IS IN SANSKRIT.":TFW%(1)15ĺ:"IT SAYS:":" A SMURK IS NEARLY INVULNERABLE. THE ONLY KNOWN WAY TO KILL ONE IS TO POUR POISON IN ITS WATER SUPPLY. A SUBSTANCE";~^FW%(1)15ĺ"POISONOUS TO A SMURK CANK."("YOU HAVE A POISONOUS MIXTURE!"KA36:IL%(A)1:A:IL%(19)1YIL%(7)3_ep"OK.""NOTHING UNUSUAL IS PRODUCED.":@ READBFW%(1)1FW%(1)NIĺ"NO SUCH THING HERE.":EIFW%(1):11000:R0ĺ"NO SUCH THING HERE ONERR216,0$D$"CLOSE";"GAME NOT FOUND."AKX MIX]IL%(23)0IL%(23)Lĺ"YOU HAVE NO MIXING BOWL.":_IL%(28)3IL%(28)IL%(4):IL%(4)3bX0lA36:IL%(A)3X1vA:X07100IL%(19)37100"OOSE"SP:d LOAD GAME)n69009x"GAME #";AG}A06520eD$"OPEN GAME."NA$",L500"D$"READ GAME."NA$",R"AL:B1NI:IL%(B):B:TSC%:SM%:T%B1NI:SC%(B):BLO%:MX%PN%D$"CLOSE"216,0 90IL%(C)3ĺ" "ID$(C)&C:6p SAVE GAME?u255Oz"GAME #";A]A06010{D$"OPEN GAME."NA$",L500"D$"WRITE GAME."NA$",R"AL:B1NI:IL%(B):B:TSC%:SM%:T%B1NI:SC%(B):BLO%:MX%PN%D$"CLB1IL%(B)25640;BB1:BNIĺ" EMPTY BOTTLE":E5620a" BOTTLE OF ";ID$(B):nD BOWL vIX1~NB1XIL%(B)35750bBB1:BNIĺ" BOWL":l5720v" BOWL CONTAINING: "C1NIC2IL%(C)3ĺ" ";:5600:57(I)2  LOOK XX1,L%(L)02<| INVDX0^"YOU ARE CARRYING: "jA1NIA2IL%(A)0İ5600:5540A23IL%(A)0İ5700:5540IL%(A)0ĺ" "ID$(A):X1AX0ĺ"NOTHING." BOTTLE X1 OF THE FORM:">6H:"'PUT FISH IN KETTLE' MAY ALSO BE USED."6H:"'POUR KETTLE' WOULD SPILL THE CONTENTS"::"OF THE KETTLE ONTO THE GROUND."::"SUBSTITUTE REAL OBJECTS, AS THERE ARE"6H:"NO FISH OR KETTLES IN THIS GAME."7H:"*** HIT RETURN T HAS YET LIVED"::"TO TAKE ANY OUT OF THE CAVE."^5H:"*** HIT RETURN TO CONTINUE ***";I$:5H:"YOU EXPLORE THE CAVE USING SIMPLE"::"SENTENCES, IN THE STANDARD ADVENTURE"6H:"GAME FASHION, SUCH AS 'ATTACK SMURK' OR"::"'READ BOOK'. SENTENCES FOOLISH DARE ENTER LIVES THE"x4XH:"FEARSOME *** SMURK ***. THIS HORRIBLE"::"CREATURE IS NEARLY INVULNERABLE, AND"4bH:"CAN KILL SOMEBODY BY MERELY POINTING"::"AT HIM."15lH:"THERE ARE RUMORED TO BE GREAT TREASURES"::"IN THE CAVE, BUT NOBODY U R K ==========="3xF:3E3F"BY DANIEL TOBIAS DEC. 1981"r3F:" DAN TOBIAS PROGRAM PAK #1 EDITION"x3F3F3:"INSTRUCTIONS? (Y/N) ";I$:(I$,1)"N"ė::3DH INSTRUCTIONS3IH4NH:"IN A CAVE WHERE ONLY THE BRAVEST OR THE"::"MOST000:R0ĺ"IT WILL COST YOU TWO BAT'S WINGS. COME BACK WHEN YOU CAN PAY.":2BIL%(17)1:IL%(6)0:"GHOUL: THAT'LL BE TWO BAT'S WINGS. THANK YOU.":"HE HANDS YOU THE POWDER.":2PF OPENING TITLES2ZF:2_F2552dF10:33nF"=========== S MATTACK (CREATURE):1@"GET (ITEM)":"DROP (ITEM)":"QUIT"M1@"INV":"LOOK"U1@:e1hB RING BELL1B"GHOUL: WHICH MAGIC POWDER DO YOU WANT? (ORDER BY NUMBER, PLEASE.)"1B" #";I$1B(I$)PN%ĺ"GHOUL: SORRY, WE ARE SOLD OUT."::L2BI17:11>300>"SIP SIP SIP"0>SP*0>"OK."80>IL%(I)1q0>FW%(1)7ĺ"IT IS POISON!!!":"YOU DROP DEAD.":1500w0>0t@ HELP0~@:0@"SOME AVAILABLE COMMANDS: ":0@"PUT (ITEM) INTO (CONTAINER)"1@"FILL (CONTAINER)":"EMPTY (CONTAINER)":"USLY ATTACKS YOU BACK, AND YOU ARE KILLED."5/<1500A/> DRINKj/>FW%(1)1FW%(1)NIĺ"DRINK WHAT?":/>RE%(FW%(1))2ĺ"YOU HAVE TO EAT IT.":/>IFW%(1):11000:R2ĺ"YOU DON'T HAVE THAT.":/>IW(FW%(1))2ĺ"DON'T BE RIDICULOUS.":/>0(L38FW%(1)52)(L11FW%(1)51)ĺ"ATTACK WHAT?":.5A0ĺ"NOT%(2)LR1&*4+IL%(I)2IL%(2)0R3C*>+IL%(I)3IL%(23)LR1`*H+IL%(I)3IL%(23)0R3z*M+R0I21I29:11000*O+R0I4I28:11000*R+*2 OFF*2IL%(1)013100*2IL%(1)3IL%(23)013100*2"YOU HAVE NO LAMP.":+,3LO%0:"OK1:IL%(3)1:IL%(27)3:MX%MX%1()4&1)' ONE)'IL%(1)010100d)$'IL%(1)3IL%(23)010100x))'IL%(1)L10100).'"YOU HAVE NO LAMP.":)t'LO%1:"OK.":XX1:)* IS ITEM PRESENT?)+R0) +IL%(I)LR1)+IL%(I)0R2 **+IL%(I)2ILUT IT IN ITSELF!":E(%XIL%(I):11000:R0ĺ"NO SUCH THING HERE.":T(&XLİ3500l( &RE%(I)0MX%MX%1w(&"OK."( &IL%(I)3")*&IL%(22)3IL%(3)3ĺ"THE STUFF IN THE BOWL FIZZES....":"CO2 IS RELEASED, A CHEMICAL REMAINS IN THE BOWL.":IL%(22)UFF IN THE BOWL.":B'%FB%(I)0ĺ"IT CAN'T FIT IN THE BOTTLE.":_'%X3RE%(I)0MX%MX%1j'%"OK."z'%IL%(I)2:'% BOWL'%FW%(1)1FW%(1)NIĺ"NO SUCH THING HERE.":'%IFW%(1):IL%(I)3ĺ"IT IS ALREADY IN IT!":(%I23ĺ"YOU CAN'T PN "YOU'RE IN A MAZE.","YOU'RE IN A MAZE.","YOU'RE IN A MAZE.","YOU'RE IN A MAZE.","YOU'RE IN A MAZE.","YOU'RE IN A MAZE.","YOU'RE IN A MAZE.","YOU'RE IN A MAZE.","YOU'RE IN A MAZE.","YOU'RE IN A MAZE."FN"YOU ARE AT A DEAD END.","YOU'RE AT DEAD END."{ EXITS TO THE NORTH.","YOU'RE IN SMALL ROOM."EN "YOU'RE IN A MAZE.","YOU'RE IN A MAZE.","YOU'RE IN A MAZE.","YOU'RE IN A MAZE.","YOU'RE IN A MAZE.","YOU'RE IN A MAZE.","YOU'RE IN A MAZE.","YOU'RE IN A MAZE.","YOU'RE IN A MAZE.","YOU'RE IN A MAZE."FN THE CENTER OF THE CAVERN. THERE IS A POOL OF OIL HERE.","YOU'RE AT POOL OF OIL."DN"YOU ARE IN A LARGE CAVERN STRETCHING FURTHER TO THE NORTH THAN YOU CAN SEE.","YOU'RE AT SOUTH END OF EAST CHAMBER.".EN "YOU ARE IN A SMALL ROOM. A SMALL HOLEHAMBER."rCN"YOU ARE IN A CHAMBER STRETCHING OUT OF SIGHT TO THE NORTH.","YOU'RE IN SOUTH END OF WEST CHAMBER."CN"YOU ARE IN A LARGE CAVERN STRETCHING AS FAR AS THE EYE CAN SEE TO THE SOUTH.","YOU'RE AT NORTH END OF EAST CHAMBER."UDN"YOU ARE IN"YOU ARE IN A N-S PASSAGEWAY.","YOU'RE IN N-S PASSAGEWAY."BN"YOU ARE IN AN ENORMOUS CHAMBER THAT STRETCHES OUT OF SIGHT TO THE SOUTH.","YOU'RE AT NORTH END OF WEST CHAMBER."CN"YOU ARE AT THE CENTER OF THE CHAMBER.","YOU'RE AT CENTER OF WEST CW PASSAGEWAY."qAN"YOU COME TO A SMALL COAL-BLACK ROOM. THE PASSAGEWAY ENDS HERE.","YOU'RE IN DIAMOND ROOM."AN"THE PASSAGEWAY ENDS AT A MEDIUM-SIZED CHAMBER. A CRACK IN THE CEILING LETS IN A BEAM OF SUNLIGHT.","YOU'RE IN TIGER ROOM."HN "YOU ARE IN A TENT.","YOU'RE IN TENT.">RN"YOU ARE ON A PATH HEADING EAST. A TENT IS NEARBY.","YOU'RE ON PATH BY TENT.">\N "YOU ARE SOMEWHERE IN THE WOODS.","YOU ARE SOMEWHERE IN THE WOODS."?fN "YOU ARE IN FRONT OF A CA%(A,1):WD$(A)""AA1:19075*=JNWA16=JL1:T1`=J::"LOAD GAME FROM DISK? (Y/N) ";I$=JDUMMY((79)256(78)):RANDOM SEED=JPN%10((1)90)=J(I$,1)"Y"İ6500=J= N DATA=%N "N ","S ","E ","W ","U ","D ","IN ","OUT">>N 8:DN$(A):AI:"COMPASS DIRECTIONS.":AI:"PLEASE NOTE THAT PASSAGES TWIST, AND"::"IF YOU GET SOMEWHERE BY GOING NORTH,"::"THAT DOES NOT GUARANTEE THAT YOU"::"CAN RETU YOU GET HALF THE POINTS FOR":"A TREASURE WHEN YOU FIRST PICK IT UP,"8I:"AND THE OTHER HALF WHEN IT IS PLACED"::"IN THE TENT, WHICH IS YOUR BASE."::"TO FIND OUT YOUR SCORE, YOU CAN TYPE"::"'SCORE'."8/I:"*** HIT RETURN TO CONTINUE ***";I$:O CONTINUE ***";I$:m7 I:"THE MAIN OBJECT OF THE GAME IS TO KILL"::"THE SMURK. ALSO, YOU SHOULD TRY TO"7I:"GET ALL OF THE TREASURE. YOU ARE"::"GIVEN POINTS OUT OF A MAXIMUM SCORE OF"F8I:"1000 AS YOU PROGRESS TOWARD THESE"::"OBJECTIVES. V_OIL,-1,4V_POWDER,-1,6/V_POISON,-1,7AV_MIXTURE,-1,7PV`BELL,-1,8^V `MIX,7,-1mV`POUR,9,-1}V`SPILL,9,-1V`EMPTY,9,-1V`PUT,10,-1V`OFF,11,-1V"`FILL,12,-1V'`GOLD,-1,9V,`DIAMONDS,-1,10V6`RUBIES,-1,11W;`SILVER,-1,3,-1Ue^THROW,3,-1$Uj^ LOOK,4,-13Ut^ INV,5,-1DU~^ QUIT,99,-1TU^ SAVE,6,-1dU^ READ,8,-1wU^ EXAMINE,8,-1U2_ EAT,13,-1U_ ATTACK,15,-1U_ HELP,17,-1U_ ON,18,-1U_LAMP,-1,1U_BOTTLE,-1,2U_VINEGAR,-1,3U_BROCCOLI,-1,51,0 ,0,0 ,1,2 ,1,1 ,0,0 ,0,0 ,0,0 ,0,0:T] 1,2 ,1,2 ,1,2FT] WORDSTT]N,-1,101bT]S,-1,102pT]E,-1,103~T]W,-1,104T^U,-1,105T^D,-1,106T^IN,-1,107T$^OUT,-1,108T.^ GET,2,-1T8^TAKE,2,-1TB^PICK,2,-1TL^ GO,1,-1U`^ DROP,,0,0SZBOWL,6,9,0$SZCLUB,9,9,05SZSPADE,8,9,0FSZROCK,32,9,0[SZCHEMICAL,-1,0,0kSZOIL,-1,0,0}S[WATER,-1,0,0S] "",-999,-999,-999S] 0,0 ,0,0 ,1,2 ,1,2 ,1,0 ,1,1 ,1,2 ,0,0 ,0,0S] 1,0 ,0,0 ,0,0 ,0,0 ,1,0 ,0,0 ,0,0&T] 1,0 ,0,0 ,ZBARS OF SILVER,42,50,400RZZEMERALDS,38,9,120HRdZRARE COINS,33,0,80YRnZBOOK,36,5,0RxZENGLISH-SANSKRIT DICTIONARY,30,9,0RZ DEAD BAT,14,0,0RZPLANK OF WOOD,12,9,0RZTIGER LILIES,11,0,0RZSTEAK,6,0,0RZWATER,-1,0,0SZBAKING SODA,6 QY ITEMSQYLAMP,1,10,00QYBOTTLE,6,3,0EQYVINEGAR,-2,.5,0VQZOIL,-1,.5,0kQ ZBROCCOLI,6,.4,0QZMAGIC POWDER,-1,.3,0QZ POISONOUS MIXTURE,-1,0,0Q(ZBELL,41,5,0Q2Z BARS OF GOLD,34,10,100Q" :"B'B(C$(A))D$(A)(D$(A),(D$(A))1)(C$(A),B,1)L'B1B(C$(A))D$(A)(D$(A),B1)(C$(A),B,1)(D$(A),B1)t'B:CRATCH LETTER-#RR$R$:R$" "*2#A1N?7#(D$(A))09050Q<#B1(D$(A))mF#(D$(A),B,1)RR$İ1000tP#B{Z#Ad#R$RR$:' PUT PUNCTUATION IN'B1(C$(A))$'I((C$(A),B,1))64.'I0I27101008'B1D$(A)(C$(A),B,1)(DSELF-MODIFYING PROGRAM."@Z:"HIT ANY KEY TO CONTINUE. ";:I$Hd:n"YOU THEN SPECIFY THE LOWER AND UPPER"::"LIMITS OF THE INTEGRAL, AND THE NUMBER"x:"OF SUBDIVISIONS TO MAKE. THE HIGHER THE""NUMBER OF SUBDIVISIONS, THE MORE""" STUDENT GRADEKEEPER:(C) 1983 BY DANIEL TOBIASF(D$(4)s2CN$(9),CT$(9),TN%(9,9),TP(9,9),TG%(9,9)<SC(9,9,25),SG%(9,9,25)ASD%(9,9,25)FTN$(9):A19:TN$(A): PQUIZZES,EXAMS,HOMEWORK,PAPERS,LABS,PROJECTS,FINAL EXAM,MASTER !!! ! ! ! ! !!!!!!!!!"""""""     :DF$:D$"CLOSE"6000#120.p LOAD@D$"OPEN "LF$RD$"READ "LF$[NC%gCC%NC%tA1NC%CN$(A):CT$(A)B19TN%(A,B):TP(A,B):TG%(A,B)GC%(A,B):CW%(A,B)TN%(A,B)06155C1TN%(A,B)SC(A,B,10000:120oLF$"C"ĺ:D$"CATALOG"::"HIT ANY KEY TO CONTINUE. ";:I$:::TI$:"DEFAULT FILE: ";DF$:5030LF$""LF$DF$LF$DF$ĺ:"MAKE THIS NEW DEFAULT ? ";I$:(I$,1)"Y"DF$LF$D$"OPEN GRADE.INIT":D$"WRITE GRADE.INIT":DT$ST RUN: ";DT$::"ENTER DATE: ";I$:I$""DT$I$:"ENTER FILE NAME TO LOAD (HIT RETURN FOR DEFAULT, TYPE C FOR CATALOG, OR TYPE S TO START FROM SCRATCH.)"":";LF$ LF$"S"ĺD$"OPEN GRADE.INIT":D$"WRITE GRADE.INIT":DT$:DF$:D$"CLOSE":83"3DT$"(NEVER)":DF$"(NO DEFAULT SET)":50279" ";:I$:D$"OPEN GRADE.INIT":D$"READ GRADE.INIT":DT$:DF$1D$"CLOSE":216,0:"DEFAULT FILE: ";DF$:"LA):TGTGCW%(C%,C)B% STARTUP.CH07CF0GNC%0:CC%0O:TI$"-------- GRADE TALLYING PROGRAM --------BY DAN TOBIAS FEB 1983":TI$"PUBLISHED FOR THE FIRST TIME AS PART OF DAN TOBIAS PROGRAM PAK #1. (C) 19"TOTAL GRADE: ";TS;"%"" <$ DISP TOTAL FOR CAT.T)F1:T20FT1T2j+P(F1000.5)10w,P0P0-PFĺ." (WORTH "CW%(C%,C)"% OF FINAL GRADE)";1PFĺ4" "T1" OUT OF "T2" ("P"%)":PFĺ8F0TSTSFCW%(C%,C$(C%)" "CT$(C%)$"TOTAL GRADES:"*8TS0:TG0CC19QT10:T20YF0dD19GC%(C%,D)Cĺ" "TN$(D);:T1T1TP(C%,D):T2T2TG%(C%,D):F1F1İ4900  TG0TG1TSTS(TG100)TS(TS10.5)10: !"TOTAL: ";" "TP(C%,T%)" OUT OF "TG%(C%,T%);:TG%(C%,T%)0ĺ" ("(1000(TP(C%,T%)TG%(C%,T%)).5)10"%)"; PFĺ::":"HIT ANY KEY TO CONTINUE. ";:I$:, DISP TOTAL GRADESPFėPFĺCN):B1TN%(C%,T%)AD0(SD%(C%,T%,B)):SI(SD%(C%,T%,B))pD1(D0100):D2D0100D1:" "D1"/"D2": ";SC(C%,T%,B)" OUT OF "SG%(C%,T%,B);:SG%(C%,T%,B)0ĺ" ("(1000(SC(C%,T%,B)SG%(C%,T%,B)).5)10"%)";SD%(C%,T%,B)0ĺ" ";GRADES/ O$"LOOK AT GRADES IN WHICH COURSE?"9 2000D A19M T%Af TN%(C%,T%)0İ4000l v 4500 "LOOK AT ANOTHER COURSE? ";I$:(I$,1)"Y"3000  DISP GRADESPFė:PFĺCN$(C%)" "CT$(C%):TN$(T%ATE OF SCORE: ";D1,D2:SD%(C%,T%,P%)D1100D2UD11D112D21D2312250[w"SCORE: ";SC(C%,T%,P%)"OUT OF: ";SG%(C%,T%,P%)CH1TP(C%,T%)TP(C%,T%)SC(C%,T%,P%)TG%(C%,T%)TG%(C%,T%)SG%(C%,T%,P%) LOOK AT :"WHAT TYPE OF GRADE?":% HA19; MGC%(C%,A)02140O R" "A": "TN$(A)U \[ ar f"YOUR CHOICE: ";I kI0ġ: pI1I9I(I)2100 uT%I z  ENTER GRADE : CN$(C%)" "CT$(C%) "CATEGORY: "TN$(T%) 5"D :C CF1ĺ" "NC%1": ADD COURSE":" "NC%2": DROP COURSE":Z "YOUR CHOICE: ";Il I0ġ:CF0: CF1(INC%1INC%2)2075 I1INC%I(I)2000 CN$(I)""2000 C%I  4 SELECT GRADE TYPE >::CN$(C%)" "CT$(C%):RADE IN WHICH COURSE?" 2000* 2100T TN%(C%,T%)TN%(C%,T%)1:P%TN%(C%,T%)^ 2200 ::"ENTER ANOTHER ? ";I$:(I$,1)"Y"1000   SELECT COURSE : O$: A1NC% CN$(A)""2050 " "A": "CN$(A)" "CT$(A)OUT REPORT"% :" (4) EDIT GRADES"E :" (5) SAVE FILE TO DISK"d :" (6) EDIT COURSE DATA"w :" (7) EXIT" :"YOUR CHOICE: ";I I1I7I(I)120 I1000,3000,8000,9000,7000,20000,30000 120  ENTER GRADE O$"ENTER GY EXAM,OTHER% ZGC%(10,9),CW%(10,9)- _:3 d= n5000G xMENUO :X TI${ "FILE: "LF$;25);"DATE: ";DT$ :CHĺ"CHANGES HAVE BEEN MADE SINCE LAST SAVE.": " (1) ENTER NEW GRADES" :" (2) LOOK AT GRADES" :" (3) PRINT ,T%,A)):SI(SD%(C%,T%,A))8_#D1(D0100):D2D0D1100[d#SCSC(C%,T%,A):SGSG%(C%,T%,A)i#D1"/"D2": "SC" OUT OF "SG;:SI1ĺ" ";k#n#:"DIT, ELETE, UIT, :";:SI1ĺ" 'DROP'"q#SI1ĺ" 'ADD'" t#": SKIP WITH9 |T%B2$TN%(C%,T%)0İ4000*44500:MPF0:D$"PR#0"Se(# EDIT GRADES-#O$"EDIT GRADES IN WHICH COURSE?"2#2000<#2100A#:F#TN%(C%,T%)0ĺ"THERE ARE NO GRADES IN THIS CATEGORY.":9900P#A1Z#D0(SD%(C%(I$)0I$"0"ĺ"";:8025#]7^PF1:D$"PR#"I$\c"GRADE REPORT FOR "LF$;72);DT$nhA1NC%:C%AiCN$(C%)""8080j"--------------------------------------------------------------------------------"m:CN$(C%)" "CT$(C%)rB21CH0 @ PRINT REPORT'J:T"TURN ON PRINTER AND HIT RETURN TO PRINT ON PRINTER IN SLOT 1, A NUMBER KEY TO PRINT IN THAT NUMBERED SLOT, OR ESC TO GO BACK TO MENU. ";YI$:(I$)7ĺ"";:8025ZI$(27)ı[I$(13)I$"1"\""7157CN$(A):CT$(A)'B19HTN%(A,B):TP(A,B):TG%(A,B)`GC%(A,B):CW%(A,B)uTN%(A,B)07155C1TN%(A,B)SC(A,B,C):SG%(A,B,C)D1(SD%(A,B,C)100):D2SD%(A,B,C)D1100D1:D2D$"CLOSE" ":";SF$!SF$""SF$LF$2SF$""7040xSF$"C"ĺ:D$"CATALOG"::"HIT ANY KEY TO CONTINUE. ";:I$:7000SF$"X"ıLF$"(NEW FILE)"LF$SF$(SF$,1)"("ıD$"OPEN "SF$D$"WRITE "SF$CC%A1NC%CN$(A)C):SG%(A,B,C)D1:D23SD%(A,B,C)D1100D29A :PD$"CLOSE"VaX SAVEib:l"FILE ORIGINALLY LOADED: ";LF$v:"ENTER FILENAME TO SAVE. (HIT RETURN TO SAVE TO FILE THAT WAS LOADED. TYPE C FOR CATALOG, X TO EXIT.)" "I$I$A$620#<--0I$""ıJ(I$)1I$"":II$""|(I$)1I$(I$,(I$)1):II$(II$,(II$)1)A$;:868: SAVE TO DISK::"":"