' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠d ֠z# u`tions...":CENT(P):P$45uD$;"OPEN PIPPINOPTIONS"R:uD$;"WRITE PIPPINOPTIONS"[DuMK$cNuPSkXuPAbuD$;"CLOSE PIPPINOPTIONS"luu --- READ OPTIONS FILE ---uD$;"OPEN PIPPINOPTIONS"uD$;"READ PIPPINOPTIONS"uMK$uPSu--- TEACHER'S KEY ----Vp17:P$"Please choose new teacher's key: ":CENT(P):P$;^zI$r(I$)13ī6070(I$)90I$((I$)32)(I$)32(I$)90ĺ(7):6000MK$I$:SF1&u--- WRITE OPTIONS FILE ---0u:12:P$"Saving op(7):4000PS(I$):SF1":~ --- PRINTER? ----}17:P$"Allow printer use? (Y = Yes, N = No): ":CENT(P):P$;I$(I$)13ī5070(I$)90I$((I$)32)I$"Y"I$"N"ĺ(7):5000PA0:I$"Y"PA1SF1f6000:2000 RSF1SF0:30000? \G$"G"ĺ:D$;"RUN PIPPIN"E Y --- SPEED ---- 17:P$"Please choose speed for Pippin (1-9).":CENT(P):P$ 18:P$"(1 = fast, 9 = slow): ":CENT(P):P$; I$ (I$)13ī4040 (I$)1(I$)9ĺ game ":CENT(P):P$\ 17:P$"Please chose S, P, K, or G: ":CENT(P):P$;d G$ (G$)90G$((G$)32) G$"S"G$"P"G$"K"G$"G"ĺ(7):2000 *17:1:BL$ 4G$"S"İ4000:2000 >G$"P"İ5000:2000 HG$"K"İ for Pippin":CENT(P):P$X 11:P$"S = Speed for math game....."(PS):CENT(P):P$r PA$"N":PA1PA$"Y" 12:P$"P = Print story............."PA$:CENT(P):P$ 13:P$"K = Key to exit math game..."MK$:CENT(P):P$# 14:P$"G = Go to19:P$"Please choose P or C: ":CENT(P):P$;5 BG$R G(G$)90G$((G$)32)j LG$"C"İ2000:1000 VG$"P"ĺ(7):1086 [:12:P$"Please wait...":CENT(P):P$ `:D$;"RUN PIPPIN"  ---- GET OPTIONS ----  6:P$"OptionsCENT(P):P$) P$" INTRODUCING PIPPIN "> 9:CENT(P):P$\ P$" "r 10:CENT(P):P$x  $12:P$CPY$:CENT(P):P$ .P$"P = Play game " 816:CENT(P):P$ :P$"C = Change options" <17:CENT(P):P$- >( 0CPY$"(C) 1988 by THINKING WITH COMPUTERS"B HELLOPIPPINX UPDATED 6-21-88d<D$(4)FCENT(P)20((P$)2)P30100: READ OPTIONSZBL$" "P$" " 8: VLCH9VN$(L)N$(L1))VPP16AVV1(L,PP)V1(L1,PP)IVPPUVPP12oVF1$(L,PP)F1$(L1,PP)VF1(L,PP)F1(L1,PP)WPP WLWN$(10)N$WPP16&WV1(10,PP)V(PP)0WPP:WPP12DWF1$(10,PP)F$(PP)NWF1(10,PP)FV(R1:26000'700:730:760&'4000'6300I (NNV(4)İ100:10260Y (700:24000(CASH(GUESSER)30CASH(GUESSER)CASH(GUESSER)30(TPLAYER:PLAYERGUESSER:GUESSERT(700:730:760:940:10110NV --- SETUP ---VCH10ī22290d look away."W'20:3:"Press to continue,":3:"or to quit: ";:DM$n'DM$"Q"DM$"q"Ĭ'700: ERASE MESSAGE BOX'16:3:N$(PLAYER);"'s turn."'18'3:"Starting number (1 - 30): ";SN'SN1SN30ĺ(7):10126 'N First player's name: ";N$(1)A8'"Second player's name: ";N$(2)WB'FIRST(2(1))1V'FIRST2T$N$(1):N$(1)N$(2):N$(2)T$t'PLAYER1:GUESSER2y'200: TO GAME SCREEN~'16:3:N$(PLAYER);"'s turn to make a rule." '3:N$(GUESSER);" shoulCE BAR> to continue.";JI$6TP16:V(P)H(P):P?^700Eh`-- GET NEXT NUMBER --k16:1N$(GUESSER);", for $100, what is the next""number in the pattern? ";NN' ----- MAIN -----'$'900: TO HEADER.'12:"(P)H(P):P7005 --DIVIDE BY ZERO ---B700:16l""You are trying to divide by zero! ","You can not divide by zero!"6:"Please try a different repeating number";"or a different repeating operation."@::"Press to continue.";I$ P16:Vgenerate a number "=d"that is smaller than I can handle!"ln:"Please try a smaller repeating number"s"or a different repeating operation."x::"Press to continue.";I$P16:V(P)H(P):P700 -- LESS han I can handle!"A :"Please try a smaller repeating number"l"or a different repeating operation."::"Press to continue.";I$(P16:V(P)H(P):P2700<O --TO SMALL --P700:16Z"You are trying to  REVERSE ORDER FOR DIVIDE/NX4:P12MTV(P):V(P)V(NX):V(NX)TYNXNX1`Pf{ --- DIVIDE ---FV04120GNGNFV--TO LARGE --700:16"You are trying to generate a number ""that is larger tE ---93:3:P$(CASH(1)):55000::"$";P$;14(P$));m3:23:P$(CASH(2)):55000:"$";P$;14(P$));s --- ADD VALUE ---GNGNFV ---- SUBTRACT VALUE ---GNGNFV --- MULTIPLY VALUE --- GNGNFV -- ERASE PLAYER 2 ---D XX05:5XX:22:" ";:XXJ i  --- DISPLAY SEQUENCE ---} PLAYER730,760 HLL14:5LL:(T(PLAYER)):V(LL);:LL \ z -- HEADER -- 2:P$"RULE MAKER":CENT(P):P$  --- SHOW SCOR5P:T(GUESSER):V(P); P8 5P:T(GUESSER):"?";> ^  --- ERASE MESSAGE BOX --f 14 XX19:" ":XX   --- ERASE PLAYER 1 ---- XX05:5XX:2:" ";:XX   -":11:21:" "S 13:" "p "T110(((N$(1),20))2) ,T210(((N$(2),20))2) 6:2:T11:(N$(1),20);:T220:(N$(2),20) @  --- DISPLAY SEQUENCE FOR GUESSER --- P13 CENT(P):P$ N 2:" ":2:21:" "u " ";:19:" ";:21:" ";:39:" " 4:" ":4:21:" " P17:" ";:19:" ";:21:" ";:39:" ":P 11:" (P$)2) FT(1)10:T(2)302 Z10010: TO MAINQ c ---- CORRECT ANSWER ----u dCASH(GUESSER)CASH(GUESSER)100 n700:16:P$"CORRECT":CENT(P) x"CORRECT!" P110:(7);:P ------ GAME SCREEN ---- P$"RULE MAKER":q'CPYRGT$"(c) 1987 BY S&S SOFTWAREF (C) 1986 BY CHUCK STEELEa FILENAME: RULEMAKER2w UPDATED 9/13/88D$(4)#(103)(104)25624577ĺD$;"RUN HELLO"(V1(10,6),F1$(10,4),F1(10,4)2MAX999999999:MIN.01 <CENT(P)20(           B LɛL Lt b /Bа`# `,==2B ^ɍ&ɛL:qBLϠ>LP>L#$0%L"%0`L`h lj i ጭ01 \% " ID$*D$;"CLOSE OPTIONS FOR CUPS"06T> ---- SAVE HI SCORES ---nHD$;"OPEN HIGHSCORES"RD$;"WRITE HIGHSCORES"\P15fN$(P)kD(P)pPzD$;"CLOSE HIGHSCORES"& --- READ HIGH ROLLER ---0D$;"+,u+U*UjU*U*U*U*u*U*U*U*U~/U*U*u+,u+U*Uj`@U*U*U*U*ux`*U*U*U*U,U*U*u+,u+,u+,u+,u+U*U*U*U**Q"E(Q" E*U*@* U*U*U*U*u+,u+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u+,u+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u+,u+U*Uj@@U*U*U*U*u `*U*U*U*U,U*U*u+U*U*U*U*P*Q"E(Q"* *U U(**U*U*U*U*u+,u+U*UjU*U*U*U*u*U*U*U*U~/U*U*u+,u+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u+,u+U*Uj@@U*U*U*U*up`*U*U*U*U~,U*U*u+/u+,u+,u+,u+U*U*U*U*(Q"E(Q" E*U @*U*U*U*U*u+,u+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u+,u+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u+,u+U*Uj@@U*U*U*U*u`*U*U*U*U@,U*U*u+U*U*U*U*T*Q"E(Q"E*Q*(U U(*D*U*U*U*U*u+,u+U*Uj@U*U*U*U*u`*U*U*U*U,U*U*u+,u+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u+,u+U*Uj@U*U*U*U*u`*U*U*U*U,U*U*u+}+u+,u+,u+,u+U*U*U*U*U(Q"E(Q"*Q"E*U U *U U*U*U*U*u+,u+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u+,u+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u+,u+U*Uj@@U*U*U*U*ux`*U*U*U*U|,U*U*u+U*U*U*U*T*Q"E(Q"E*Q*T(U U(*D*U*U*U*U*u+,u+U*Uj@U*U*U*U*u`*U*U*U*U,U*U*u+,u+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u+,u+U*Uj@U*U*U*U*u`*U*U*U*U,U*U*uPROG$""0 I$"Y"I$"y"PROG$"RULEMAKER2"U I$"N"I$"n"PROG$"RULEMAKER"i PROG$""ī4000o  Ө۱ɽϱŠԤĤϭпؽ˨°°ؽ˨ŭ""  ڐɮ `Q4Pm534%%L4ΣōĠ٠נ ԠԍԠŠ̠Š.ӠՍŠϠŭԍȠǯ̍͠ӍҠŠΩ7ʍūōūàҍōˠӠԠԠ L(P$)֭L4550601֭(P$)999999999ıPP$(P$,L3)","(P$,L2)\L(P$)k׭L855060 P$(P$,L7)","(P$,L6)ױ_ -- READ OPTIONS FILE --`D$;"OPEN OPTIONS FOR CUPS"jD$;"READ OPTIONS FOR CUPS"tREP~TA$âVT:HT:" ";$CC1:C4C12íC1VT8@íC2VT9OíC3VT10]íC4VT9iHTHT1{íHTTī50110ë50010ñֲ --- COMMA FORMAT ---ֲ FORMATS P$ CONTAINING WHOLE DOLLARSֲ RECEIVES P$ֲ RETURNS P$ FORMATEDS"I$"s"ī10000:BUCKSD(5)İ63000: NEW HIGH SCORE@`:12:12:"Please wait..."xD$;"RUN CUPSPROG2"~Fò --- TWIRLEYS -----PVT9:HT40:C0ZÁLP110dâVT:HTnRN((1)9)1xúRN;íVT10:X(16336)ÂLP**PLAYER**":633002J9110: DISPLAY HIGH SCOREScRBUCKSD(5)āP15:N$(P)H$(P):D(P)H(P):PT:"Would you like to try and triple your"^"money again?"h:"If you would, press ,"r"if not, press S to stop."|I$I$"FV$eFV(L)(FV$)eP24-eGNV(P1)9ePP1LQfF$F$(PP):FVFV(PP)afF$"+"F1qfF$"-"F2fF$"X"F$"x"F3fF$"/"F4fF1000,2000,3000,4100f V(P) = GNfV(P)((GN100).005)100fGNMAXİ5100:PPL:P6:L$)֭L4550600P$(P$,L3)","(P$,L2)<L(P$)K׭L855060j P$(P$,L7)","(P$,L6)pױNG ANSWER ---6]18:"The correct answer was: ";V(6)R]"The rule was: ";F$;FVX]pe --- GET RULES ---veeLL14:V(LL)SN:LLeL1NReP14:H(P)V(P):Pe800e10:1:"---------------------------------------" e11:10:VPP16!VV1(L,PP)V1(L1,PP))VPP5VPP12OVF1$(L,PP)F1$(L1,PP)gVF1(L,PP)F1(L1,PP)oWPPv WLWN$(10)N$WPP16&WV1(10,PP)V(PP)0WPP:WPP12DWF1$(10,PP)F$(PP)NWF1(10,PP)FV(PP)XWPPbW ] -- WRO'SN1SN30ĺ(7):10126-'NR1:260007'6200A'6300Z (NNV(4)İ100:10260}(CASH(GUESSER)CASH(GUESSER)30(TPLAYER:PLAYERGUESSER:GUESSERT(SS1:10110NV --- SETUP ---VCH10ī22290VLCH9VN$(L)N$(L1) AYER);"'s turn to make a rule."E'N$(GUESSER);" should look away."T'SS1İ940'20:"Press to continue,":"or to quit: ";:DM$'DM$"Q"DM$"q"Ĭ''6:N$(PLAYER);"'s turn."'12'"Starting number (1 - 30): ";SN1(CH,P)(P2+' ----- MAIN -----1'F$'900: TO HEADERn.'12:" First player's name: ";N$(1)8'"Second player's name: ";N$(2)B'FIRST(2(1))1V'FIRST2T$N$(1):N$(1)N$(2):N$(2)T$t'PLAYER1:GUESSER2~':900:12:N$(PLr $100, what is the next"<"number in the sequence? ";NNB] -- DISPLAY RULES ---5:N$(CH);"'s complete sequence was:":5P16:V1(CH,P);" ";:P: 9:N$(CH);"'s rule was:":P125F1(CH,P)0ĺF1$(CH,P);F to continue.";"I$:P16:V(P)H(P):PC700Ig7 -- DISPLAY SEQUENCE --t8:10:1BN$(PLAYER);"'S SEQUENCE IS:"L12:1V400: DISPLAY SEQUENCE`-- GET NEXT NUMBER --14:1N$(GUESSER);", fo::"Press to continue.";-I$EP16:V(P)H(P):PN700T`700:2"You are trying to generate a number ""that is less than zero!":"Please try a smaller value or a""different function."::"Press R> to continue.";I$1(P16:V(P)H(P):P:2700@<TO --TO SMALL --`P700:2Z"You are trying to generate a number "d"that is smaller than I can handle!"n:"Please try a smaller value or a"s"different function."%x1L! I$(LEGAL$,P,1)LEGAL1( P. A --TO LARGE --M 700:2y "You are trying to generate a number " "that is larger than I can handle!" :"Please try a smaller value or a" "different function."::"Press LL14 HV(LL) RLL \ z -- HEADER -- 2:P$"R0((P$)2)" Z10010: TO MAINA c ---- CORRECT ANSWER ----e dCASH(GUESSER)CASH(GUESSER)100o n:12 x"CORRECT!" P110:(7):P  --- DISPLAY SEQUENCE -- P13 V(P);" "; P "?"   --- ERASE TOP OF'CPYRGT$"(c) 1987 BY S&S SOFTWAREF (C) 1986 BY CHUCK STEELEd FILENAME: RULEMAKER{ UPDATED: 6/29/88D$(4)#(103)(104)25624577ĺD$;"RUN HELLO"(V1(10,6),F1$(10,4),F1(10,4)2MAX999999999:MIN.01 <CENT(P)2 P$(P$,L7)","(P$,L6)$ױmart me.":CENT(P):P$ =140&=nother description":CENT(P):P$'PSo borrow $20"1]"and keep Playing? (Y or N):";=]" ";I$U](I$)1I$(I$,1)o]I$"N"I$"n"ī40076|^BUCKS20^10000wi&u - READ CASH --0uD$;"OPEN CASH":uD$;"READ CASH"DuBUCKSNuD$;"CLOSE CASH"Xu 6 --- CONTIf800Df22:3:Nf"Is the above pattern OK (Y/N)? ";I$SXfI$"Y"I$"y"26290lbfI$"N"I$"n"26000wlf26180}fwiֲ --- COMMA FORMAT ---ֲ FORMATS P$ CONTAINING WHOLE DOLLARSֲ RECEIVES P$ֲ RETURNS P$ FORMATEDL(P  HELLO" UPDATED 9/5/88>CENT(P)20((P$)2)DK(62P$"HOTS disk for first year materials.":CENT(P):P$48:P$"Version 2.2":CENT(P):P$7<P$"Copyright (c) 1988 by":CENT(P):P$ FP$"THINKING WITH COMPUTERS" ; PZDM$ZZ400001] -- WRONG ANSWER ---[]19:"The correct answer was: ";V(4)]" The rule was: ";F$;FV]:"Sorry, but you lost all of your money!"]"Press any key to continue.";]DM$]:10 ]:"Would you like t26290bfI$"N"I$"n"26000*lf261800f6wiRֲ --- COMMA FORMAT ---~ֲ FORMATS P$ CONTAINING WHOLE DOLLARSֲ RECEIVES P$ֲ RETURNS P$ FORMATEDL(P$)֭L455060P$(P$,L3)","(P$,L2)L(P$)׭L855060fV(P)((GN100).005)100=fGNMAXİ5100:PPL:P6:LL1cfGN0İ5300:PPL:P6:LL1:26142yfF2ĭGN0ī26142fGNMIİ5200:PPL:P6:LL1fPP&fP0fL:f800Df22:3Nf"Is the above pattern OK (Y/N)? ";I$XfI$"Y"I$"y"F$(L);e20:21:FV$4e(FV$)1(FV$)926090=eFV$NeFV(L)(FV$)YeP24geGNV(P1)sePP1LfF$F$(PP):FVFV(PP)fF$"+"F1fF$"-"F2fF$"X"F$"x"F3fF$"/"F4fF1000,2000,3000,4100f V(P) = GNeP14:H(P)V(P):Pe800Ie16:10:"Repeating";:20:"Repeating"qe17:10:"Operation";:20:"Number"e18:10:" (+-X)";:20:"(1-9)"e20:4e"RULE : ";e20:13:F$(L)eF$(L)"+"F$(L)"-"F$(L)"X"F$(L)"x"26080eRONG ANSWER ---/]17:"That is not correct!"X]18:"The correct answer was: ";V(4)~]"The repeating rule was: ";F$;FV]22:3:"Press to continue";:DM$]e --- GET RULES ---e700eLL14:V(LL)SN:LLeL1NR VPP16#VV1(L,PP)V1(L1,PP)+VPP7VPP12QVF1$(L,PP)F1$(L1,PP)iVF1(L,PP)F1(L1,PP)qWPPx WLWN$(10)N$WPP16&WV1(10,PP)V(PP)0WPP:WPP12DWF1$(10,PP)F$(PP)NWF1(10,PP)FV(PP)XWPPbW] -- W'400'6300+ (NNV(4)İ100:10260; (700:24000p(CASH(GUESSER)30CASH(GUESSER)CASH(GUESSER)30(TPLAYER:PLAYERGUESSER:GUESSERT(700:730:760:940:10110NV --- SETUP ---VCH10ī22290VLCH9VN$(L)N$(L1)(A$)32)! ZA$(TA$,1)ī23100L"Z:"Second letter of teacher's code:";m#ZZ$:(Z$)90Z$((Z$)32)%ZZ$(TA$,2,1)ī23100&ZBUCKSBUCKS3:DBL1(Z40000 to continue."ss to continue,":3:"or to quit: ";:DM$P'DM$"Q"DM$"q"Ĭm'700: ERASE MESSAGE BOX'16:3:N$(PLAYER);"'s turn."'18'3:"Starting number (1 - 30): ";SN'SN1SN30ĺ(7):10126'NR1:26000'700:730:760#8'"Second player's name: ";N$(2)9B'FIRST(2(1))1dV'FIRST2T$N$(1):N$(1)N$(2):N$(2)T${t'PLAYER1:GUESSER2y'200: TO GAME SCREEN~'16:3:N$(PLAYER);"'s turn to make a rule."'3:N$(GUESSER);" should look away."9'20:3:"PreP16:V(P)H(P):P 700&A-- GET NEXT NUMBER --L16:1|N$(GUESSER);", for $100, what is the next""number in the pattern? ";NN' ----- MAIN -----'$'900: TO HEADER.'12:" First player's name: ";N$(1) --- DIVIDE BY ZERO ----'700:16S"You are trying to generate a number "r"that is less than zero!":"Please try a smaller repeating number""or a different repeating operation."::"Press to continue.";I$ trying to generate a number "Hd"that is smaller than I can handle!"wn:"Please try a smaller repeating number"s"or a different repeating operation."x::"Press to continue.";I$P16:V(P)H(P):P700is larger than I can handle!"L :"Please try a smaller repeating number"w"or a different repeating operation."::"Press to continue.";I$(P16:V(P)H(P):P2700<O --TO SMALL --P700:16Z"You areNFV  * REVERSE ORDER FOR DIVIDE:NX6:P13XTV(P):V(P)V(NX):V(NX)TdNXNX1kPq --- DIVIDE ---FV04120GNGNFV--TO LARGE --700:16"You are trying to generate a number ""that - SHOW SCORE ---C3:3:P$(CASH(1)):55000:"$";P$;14(P$));w3:23:P$(CASH(2)):55000:"$";P$;14(P$));} --- ADD VALUE ---GNGNFV ---- SUBTRACT VALUE ---GNGNFV --- MULTIPLY VALUE --- GNG  --- ERASE PLAYER 2 ---O XX05:5XX:22:" ";:XXU t  --- DISPLAY SEQUENCE --- PLAYER730,760 HLL14:5LL:(T(PLAYER)):V(LL);:LL \ z -- HEADER -- 2:P$"RULE MAKER":CENT(P):P$  --13 5P:T(GUESSER):V(P);' PB 5P:T(GUESSER):"?";H g  --- ERASE MESSAGE BOX--o 14 XX19:" ":XX   -- ERASE PLAYER 1 ---- XX05:5XX:2:" ";:XX ":11:21:" "Y 13:" "v "T110(((N$(1),20))2) ,T210(((N$(2),20))2) 6:2:T11:(N$(1),20);:T220:(N$(2),20) @  ---- DISPLAY SEQUENCE FOR GUESSER ----\ PKER":CENT(P):P$ T 2:" ":2:21:" "{ " ";:19:" ";:21:" ";:39:" " 4:" ":4:21:" " P17:" ";:19:" ";:21:" ";:39:" ":P& 11:" 20((P$)2)" FT(1)10:T(2)308 Z10010: TO MAINW c ---- CORRECT ANSWER ----{ dCASH(GUESSER)CASH(GUESSER)100 n700:16:P$"CORRECT":CENT(P) x"CORRECT!" P110:(7);:P ------ GAME SCREEN ----  P$"RULE MA%'CPYRGT$"(c) 1987 BY S&S SOFTWAREF (C) 1986 BY CHUCK STEELEd FILENAME: RULEMAKER} UPDATED: 9/13/88D$(4)#(103)(104)25624577ĺD$;"RUN HELLO"(V1(10,6),F1$(10,4),F1(10,4)2MAX999999999:MIN.01 <CENT(P)          ou were right!"?Y:"If you can tell your teacher the rule,"k Z"I will triple your money and let you"~Z"play again!"ZBZ110Z(7);ZCLK110:X(16336):CLKZBZZ:"First letter of teacher's code:";ZA$:(A$)90A$(":12:CENT(P):P$P?xPP$"I'm sorry,":12:CENT(P):P$lPP$"but "(34)IN$(34):CENT(P):P$PP$"is not a unique description.":CENT(P):P$PP$"Please try another description":CENT(P):P$P.":12:CENT(P):P$`O@OP$"I'm sorry,":12:CENT(P):P$mOP$"but "(34)IN$(34):CENT(P):P$OP$"is not a unique file name.":CENT(P):P$OP$"Please try another file name.":CENT(P):P$OPP$"You must enter a description.RN*NP$"I'm sorry,":11:CENT(P):P$jNP$"but you pressed "(34)IN$(34)".":12:CENT(P):P$NP$"I don't know what that means!":CENT(P):P$NLOP$"I'm sorry,":11:CENT(P):P$VOP$"but "(34)IN$(34)"is too many programsITE HOTSMENUFILE"/NP%/C1NP:/F$(C);",";D$(C)A&/C^0/D$;"CLOSE HOTSMENUFILE"dd2N ---- ERROR MESSAGES --- N*N9004NER20100,20200,20300,20400,20500,20600>NP$"Press any key to continue.":20:CENT(P):P$;HNDMY$EAD HOTSMENUFILE"p+NP*z+NP1ī111809+LOOP1NPP+F$(LOOP),D$(LOOP)Z+LOOPw+D$;"CLOSE HOTSMENUFILE"}|.. --- SAVE MENUFILE ---..P$"ADDING "F$(NP)" TO THE MENU":12:CENT(P):P$.D$;"OPEN HOTSMENUFILE".D$;"WRP110MAX1".'1000: GET INPUT>8'IN$"0"Ā: ****** FIXLB'IN(IN$)fL'INNP1İ3000:10000V'IN0INNPİ6000:10000:*****FIX SUB`'ER1:20000:10000: **** FIX SUB* -- READ MENUFILE ---*\+D$;"OPEN HOTSMENUFILE"f+D$;"RNP1# F$(NP)FILE$:D$(NP)DESC$. 119904Nf --- RUN PROGRAM ---TpzP$"LOADING "D$(IN):12:CENT(P):P$D$;"RUN";F$(IN)' ==== MAIN ====='2000: DISPLAY MENU'"Please choose (0 - ";(NP1);"): "; $'MAX2:N'd :P$"ADD A PROGRAM":CENT(P):P$2j 10:1dl "DESCRIPTION OF ";:FILE$;:":":MAX12:1000sq DESC$TXT$v (DESC$)1ER5:2000:3180 (DESC$)27ī3990 UD0 X0NP D$(X)DESC$UD1 X UD1ER6:20000:3172 NP NPMPER3:20000:3990#  H & P$"ADD A PROGRAM":CENT(P):P$P 0 10v : "NAME OF NEW FILE:":MAX12:1000 ? FILE$TXT$ D (FILE$)0ī3990 N (FILE$)27ī3990 S UF0 X X0NP ^ F$(X)FILE$UF1 ` Xb UF1ER4:20000:3100 Order Thinking Skills":12(NP2)4:CENT(P):P$[ P$"MENU":12(NP2)3:CENT(P):P$v D$(0)"Quit HOTS menu" 12(NP2) COUNT0NP COUNT;"= ";D$(COUNT) COUNT NP1;"= Add a program"   ---- ADD PROGRAMS ----103 < 111< 127!< 141+< 1535< 159N< ---- REST DATA ----Y< 1000c< 500m<( 250w<2 125<< 62 to continue."; WDMY$ X Z10010: TO MAIN c ---GET STARTING NUMBER-- dF1SN(100ʰ(CPYRGT$"(c) 1987 BY S&S SOFTWARE"H (C) 1986 BY CHUCK STEELEe FILENAME: HIGH ROLLER| UPDATED: 9/13/88D$(4)#(103)(104)25624577ĺD$;"RUN HELLO"(V1(10,6),F1$(10,4),F1(10,4)2MAX999999999:MIN.01 <30000: G          "    ! ! $N-LOP$"I'm sorry,":11:CENT(P):P$_VOP$"but the menu is full.":12:CENT(P):P$e`OOP$"I'm sorry,":12:CENT(P):P$OP$"but "(34)IN$(34):CENT(P):P$OP$"is not a unique file name.":CENT(P):P$OP$"Please try an0,20200,20300,20400,20500,20600V>NP$"Press any key to continue.":20:CENT(P):P$;`HNDMY$fRNNP$"I'm sorry,":11:CENT(P):P$NP$"but you pressed "(34)IN$(34)".":12:CENT(P):P$NP$"I don't know what that means!":CENT(P):P$F$(NP):CENT(P):P$:.P$" TO THE MENU":CENT(P):P$V.D$;"OPEN HOTSMENUFILE"s.D$;"WRITE HOTSMENUFILE"{/NP/C1NP/F$(C);",";D$(C)&/C0/D$;"CLOSE HOTSMENUFILE"d2N ---- ERROR MESSAGES --- N*N9004NER2010MENUFILE ---*.\+D$;"OPEN HOTSMENUFILE"Jf+D$;"READ HOTSMENUFILE"Rp+NPcz+NP1ī11180r+LOOP1NP+F$(LOOP),D$(LOOP)+LOOP+D$;"CLOSE HOTSMENUFILE"|.. --- SAVE MENUFILE ---..P$"ADDING":12:CENT(P):P$.PU+'"Please choose (0 - ";(NP1);"): ";D$'MAX2:NP110MAX1Z.'1000: GET INPUTv8'IN$"0"Ā: ****** FIXB'IN(IN$)L'INNP1İ3000:10000V'IN0INNPİ6000:10000:*****FIX SUB`'ER1:20000:10000: **** FIX SUB * -- READ (X)DESC$UD1 X1 UD1ER6:20000:3172= NPNP1[ F$(NP)FILE$:D$(NP)DESC$f 11990lf --- RUN PROGRAM ---pzP$"LOADING "D$(IN):12:CENT(P):P$D$;"RUN";F$(IN)' ==== MAIN ====='2000: DISPLAY MEN$UF1 ` X)b UF1ER4:20000:3100Pd :P$"ADD A PROGRAM":CENT(P):P$[j 10:1l "WORDING TO APPEAR ON MENU FOR":FILE$;:":"::MAX30:1000q DESC$IN$v (DESC$)0ER5:20000:3172 (DESC$)27ī3990 UD0 X0NP D$  ' ---- ADD PROGRAMS ----E NPMPER3:20000:3990K  p & P$"ADD A PROGRAM":CENT(P):P$x 0 10 : "NAME OF NEW FILE:"::MAX25:1000 ? FILE$IN$ D (FILE$)0ī3990 N (FILE$)27ī3990 S UF0 X X0NP^ F$(X)FILEr Order Thinking Skills":13(NP2)4:CENT(P):P$\ P$"MENU":14(NP2)3:CENT(P):P$w D$(0)"Quit HOTS menu" 13(NP2) COUNT0NP COUNT10ĺ" "; COUNT;"= ";D$(COUNT) COUNT NP110ĺ" "; NP1;"= Add a program"(IN$,(IN$)1):IE1:800:10200 LIK271130Z V(IN$)0IE(IN$):800:IN$"":1020n `IN$(27):1140 jIK13İ900:1020 tDMY(16368) ~  --- DISPLAY MENU ---  P$"DOCTOR POGROW'S":13(NP2)5:CENT(P):P$3 P$"Highe:IM$""@ IC1MAX:IM$IM$"_":IC:IM$;:IC1MAX:(8);:ICS IK$:IK(IK$)j IK32IK1261060 (IN$)MAXĺIK$;:IN$IN$IK$:1020 900:1020 $IK8IK1271100 .(IN$)0İ900:1020 8(IN$)1IN$"":IE1:800:1020 BIN$PROGS >F$(MP),D$(MP)$ AD$(4)/ F11000K PCENT(P)18((P$)2)W ZD$(4)o 10000: (TO MAIN)  --- ERASE --- IC1IE:(8);"_";(8);:IC * z ---- RING BELL --- SA1ĺ(7);   ---- INPUT ------ IN$""( (C) S&S SOFTWARE 19879 FILENAME: HOTS MENUQ UPDATED: 7-27-87 PURPOSE: EXPANDABLE MENU FOR HOTS PROGRAMS( DEVELOPED FOR DR. STANLEY PROGROW, UNIVERSITY OF ARIZONA, TUCSON, AZ2SA1: ***** REMOVE ***** <MP14: MAX     OK (Y/N)? ";I$'|XfI$"Y"I$"y"26290@|bfI$"N"I$"n"26000K|lf26180Q|fW|wil|&u - READ CASH --|0uD$;"OPEN CASH"|:uD$;"READ CASH"|DuCASH|NuD$;"CLOSE CASH"|XuCfF$"-"F2{fF$"*"F3-{fF$"/"F4H{fF1000,2000,3000,4100Y{f V(P) = GNw{fV(P)((GN100).005)100{fGNMAXİ5100:PPL:P6:LL1{fGNMIİ5200:PPL:P6:LL1{fPP{&fP{0fL{:f800{Df22:1:|Nf"Is the above sequence RULE ";L;": ";#ze14L:13:F$(L)ZzeF$(L)"+"F$(L)"-"F$(L)"*"F$(L)"/"26080fzeF$(L);yze14L:21:FV$ze(FV$)1(FV$)926090zeFV$zeFV(L)(FV$)zeP26zeGNV(P1)zePP1LzfF$F$(PP):FVFV(PP)zfF$"+"F1 {ybye --- GET RULES ---%ye>yeLL16:V(LL)SN:LLJyeL1NRbyeP16:H(P)V(P):Pkye800ye11:1:"---------------------------------------"ye12:10:"Function";:20:"Value"ye13:10:" (+-*/)";:20:"(1-9)"ye14L:4ze" ":22:7:"

=Play again, =Quit: ";I$DxbLEGAL$"PpQq":5000Xx bLEGAL0ī25100mx*bI$"P"I$"p"Ĭsx4byx>bxob -- MENU 2 --xpb:12:9:"

=Play again, =Quit: ";I$xzbLEGAL$"PpQq":5000xbLEGAL0ī25200xbI$"P"I$"p"ıyb:"The correct answer was: ";V(6)=w]"The rule was: ";F$;FVCw]`wa --- DISPLAY SCORE ---nwa:12:14waTC1ĺTC;" CORRECT ANSWER":25020waTC;" CORRECT ANSWERSwaw b --- MENU ----,x b22:" WPP v WLvWN$(10)N$%vWPP169v&WV1(10,PP)V(PP)Av0WPPMv:WPP12cvDWF1$(10,PP)F$(PP)xvNWF1(10,PP)FV(PP)vXWPPvbWvY -- CORRECT ANSWER --vY:(7):(7)vY12:16:"CORRECT"vYTCTC1vYv] -- WRONG ANSWER ---!w]18PP &fP0fL:f800%Df22:1:PNf"Is the above sequence OK (Y/N)? ";I$iXfI$"Y"I$"y"26290bfI$"N"I$"n"26000lf26180fwi&u - READ CASH --0uD$;"OPEN CASH":uD$;"READ CASH"DuCASHNuD$;"CLOSE CASH"XueGNV(P1)ePP1L/fF$F$(PP):FVFV(PP)?fF$"+"F1OfF$"-"F2_fF$"*"F3ofF$"/"F4fF1000,2000,3000,4100f V(P) = GNfV(P)((GN100).005)100fGNMAXİ5100:PPL:P6:LL1fGNMIİ5200:PPL:P6:LL1f:"Value".e13:10:" (+-*/)";:20:"(1-9)";e14L:4Pe"RULE ";L;": ";ee14L:13:F$(L)eF$(L)"+"F$(L)"-"F$(L)"*"F$(L)"/"26080eF$(L);e14L:21:FV$e(FV$)1(FV$)926090eFV$eFV(L)(FV$)eP26 H"rXuCq":5000(rbLEGAL0ī25200=rbI$"P"I$"p"ıCrbIrbOrwidr&u - READ CASH --xr0uD$;"OPEN CASH"r:uD$;"READ CASH"rDuCASHrNuD$;"CLOSE CASH"rXuC:1:"---------------------------------------" e12:10:"Function";:20"p"Ĭ q4bq>b%qob -- MENU 2 --Sqpb:12:9:"

=Play again, =Quit: ";I$kqzbLEGAL$"PpQq":5000qbLEGAL0ī25200qbI$"P"I$"p"ıqbqbqwiq&u - READ CASH --q0uD$;"OPEN CASH"q:uD$;"READ CASH"qDuCASHrNuD$;"CLOSE CAS26180 fwi-ֲ --- COMMA FORMAT ---Yֲ FORMATS P$ CONTAINING WHOLE DOLLARSkֲ RECEIVES P$ֲ RETURNS P$ FORMATEDL(P$)֭L455060P$(P$,L3)","(P$,L2)L(P$)׭L855060 P$(P$,L7)","(P$,L6)ױd ֠z#?C??    ԠӠ ӠҠӠӠ Π  Π7Ӡ  ӠՠDzȠҠȠҲӠŠ ϠDZӠ ҠαβҮŠ" PP13!PP1P$"HeHe"5PP2P$"HaHa"IPP3P$"HoHo"XH0:P14cV03mHH1STV:H:P$;SS150:SSSTV:H:" ";VV301:HH1:STV:H:P$;SS150:SSSTV:H:" ";VIAL KEYSKF1:K27SNF1:1060:TITI(PS40):770aK9GGF1:900:TITI(PS40):770g -----MATH PROBLEM-----AN1N2 *AN1N24>AN1N2HRN20A0:870\AN1N2fpz ---- GIGGLE ----CT):690K(I$):SKF0:710/SKF1ī690](I$)32Ė1:" ";:MI$(CT);:" ":CTCT1mCTMCī600y1:610 --- SPECIAL KEY ---K("Z")K("z")SLF1:1250:TITI(PS40):SKF1:770K13770K31770: NOT SPEC '  ------POINT AND PUSH-------4 ST4:1@ &X1MCX 0" ";:MI$(X);:" "_ :X DBS1:"Press SPACE BAR to choose" N"Press RETURN to tell me the answer." XST4:1:CT1 b:" ";:MI$(CT);:" ";: lI$v(I$)13CH$MI$(380 330:380( IK8IK127470@ (IN$)0İ330:380d (IN$)1IN$"":IE1:300:380 IN$(IN$,(IN$)1):IE1:300:380 IK27500 (IN$)0IE(IN$):300:IN$"":380 IN$(27):510 IK13İ330:380 DMY(16368)ING BELL --- JSA1ĺ(7);# T; ^ ---- INPUT ------M hIN$"":IM$"" rIC1MAX:IM$IM$"_":IC:IM$;:IC1MAX:(8);:IC |SKF0:IK$:IK(IK$):KIK:FGF0İ710:FGF0 SKF1ī520 IK32IK126430 (IN$)MAXĺIK$;:IN$IN$IK$:$) L2ī2802 L2JN$(N$,2)(N$,1):280^ L3JN$(N$,3)(N$,2,1)(N$,1):280k Z(L2)| T$(N$,Z,1) A$(N$,Z1) Z$(N$,Z1) JN$Z$T$A$  " --- ERASE --- ,IC1IE:(8);"_";(8);:IC 6 @ ---- RUP MUSICO nN$"":AGE$"":COL$"":SZ$"":FF$"":N10:N20:SX$"":MV$"":JN$""a x1660: MAIN x ----CONTINUE---- P$"Press SPACE BAR to continue":BS:CENT(P):P$; SKF0:IN$:K(IN$) 710 -----JUMBLE NAME-------- L(N'5  (C) S&S SOFTWARE 19870 PIPPINF REVISED 9/13/88`(ST10:BS23:N10:N20|2CENT(P)20((P$)2)<F$(1)"+":F$(2)"-":F$(3)"*":F$(4)"/"FGF0: GAME FLAG NOT ONPD$(4)Z4900: READ OPTIONS FILE d4980: SET              P):P$ (4);"RUN "PROG$"  @  ---- GET DIV OR NOT ---h ID$"Y"ID$"y"PROG$"RULEMAKER2" ID$"N"ID$"n"PROG$"RULEMAKER"   --- READ OPTIONS FILE ---- D$;"OPEN OPTIONS FOR CUPS" D$;"READ OPTIONS FOR CUPS" REP:I(I$) I1I4ī20106 I1PROG$"CUPSPROG1"Q I2PROG$"CUPSPROG2"` I3İ4000} I4PROG$"SET OPTIONS" LOC245761:(103)(104)256LOCĹLOC1,0:103,LOC(LOC256)256:104,(LOC256) :12 P$"Please wait...":CENT((P):P$ .119 8P$"1 = Level 1 ":CENT(P):P$c BP$"2 = Level 2 ":CENT(P):P$ P$"3 = Level 3 ":CENT(P):P$ P$"4 = Change options":CENT(P):P$ 16 P$"Please choose 1, 2, 3, or 4: ":CENT(P):P$; "";I$):P$3 18:P$"Copyright (c) 1988":CENT(P):P$Q 19:P$"by":CENT(P):P$ 20:P$"THINKING WITH COMPUTERS":CENT(P):P$ 23 P$"Press to continue. ":CENT(P):P$; DM$ :9 $P$"***** STRATEGY CUPS *****":CENT@& COPYRIGHT 1987 BY S&S SOFTWARE@ FILENAME: HELLOCUPSW UPDATED: 7/05/88o ---HELLOCUPS-----{D$(4)CENT(P)20((P$)2)5000: READ OPTIONSP$"WELCOME TO":10:CENT(P):P$:: P$"STRATEGY CUPS":CENT(P    40Y :ST:"We can make this room":"the color you choose.":"What color do you like?" MC5:MI$(1)"RED":MI$(2)"BLUE":MI$(3)"GREEN":MI$(4)"ORANGE":MI$(5)"PURPLE":540 SKF1SKF0:2550  COL$CH$:CNCT:3240! :22:"Now we can go to tm.". 1:ST5:"Press Z to open the door.";K SKF0:IN$:K(IN$):710k (IN$)90IN$((IN$)32) IN$"Z"ī2470 :ST:"Oops, I forgot.":"That was my sleepy key.":"Thanks for waking me up." "Now let's go to my color room." 1` "do you like?5j MC2:MI$(1)"LOUD":MI$(2)"SOFT">t 540U~ SKF1SKF0:2390a MV$CH$ :ST:"We can listen to some ":MS$;:" music." 3770: PLAY MUSIC :ST:"I liked those sounds.":"Let's open the door to go":"to the color roow we are in my sound room."$ MS1> 3770: MUSIC ROUTINEG 140t$ :ST:"What kind of music do you like?". MC2:MI$(1)"SLOW":MI$(2)"FAST"8 540B SKF1SKF0:2340L MS$CH$:MS0:MS$"SLOW"MS2V :ST:"What kinds of sounds":" door";'SKF0:IN$:K(IN$):710F : GOSUB 710 SPECIAL KEYSZ(IN$)9ī2250d2200:ST:"Oops, I forgot,""that key tickles me.""I meant to tell you to press""the SPACE BAR to open the door."140:ST:"NoST:"All my doors are Pippin-size."Qf"Help me make my doors ";:N$;:"-size."mp"What size are you?":zMC3:MI$(1)"LARGE":MI$(2)"MEDIUM":MI$(3)"SMALL":540SKF1SKF0:2140SZ$CH$" size" :ST:"Press TAB to open this ";:SZ$; : TEMP = ASC ( LEFT$ (IN$,1)): IF TEMP > 48 AND TEMP < 58 THEN GOTO 10370c: GOTO 10320 :ST:"Let's take a tour of where I live."*"We can go through this door"4"to the sound room.">140H(IN$)32ī2140R2080#\:hat are you?"6MC2:MI$(1)"BOY":MI$(2)"GIRL":540MSKF1SKF0:1960YSX$CH$:ST:"I am not sure if I am a boy or a girl.""I know I am not very old.":"How old are you? ";MAX2:360SKF1SKF0:2000AGE$IN$Pr name."LNBS:P$"Press any letter to fix your name.":CENT(P):P$;:IN$ZXCK(IN$)qbCK64CK91ī1920lCK96CK123ī1920v1870:ST:"It's nice to meet you"N$"I would like to ask some questions."140 :ST:"W"next to the wake up key,"C"so I can remember your name.";^SKF0:K$:K(K$):710oSKF1SKF0(K$)27ī1760(K$)27İ190& GOSUB SNEEZE0:ST:"Uh- oh, ";:JN$:"you pressed my sneeze key"D"and I mixed up you|1250: SLEEP SUBB:ST:"Hello. My name is Pippin."Y"I live in here."|"I'm glad you came to visit."140:ST:"What is your name?":MAX12:FGF1:360SKF1SKF0:1720N$IN$:ST:"Press the ESC key"111(124);"20:(124);2"39:(124)9,P618:1:(124);"------------------";(124);"------------------";(124)@12:6JV1;" ";F$(FF);" ";V2;" = "T12:26^V1;" ";F$(FF);" ";V2;" = "hr------MAIN-------------4:20:(124);4:24+"Pippen"?4:39:(124);R5:1:(124);g" Score: ";S1{5:20:(124);" Score: ";S25:39:(124);6:1:(124);"------------------";(124);"------------------";(124)7:1P)128:16368,0STL:C6(C35ĺ".....";:1340E2"...ZZZ";U<X(16336)xFCC1:C35C1:LL1:L2L1PK491300Zd --- GAME SCREEN ---nx3:"_______________________________________"4:(124);" ";N$P75C$"W"V(4(1))0H(40(1))1BSTV:H:C$;IPOe -----SLEEP-----s16368,0yP$"Pippin has fallen asleep!":ST:CENT(P):P$P$"Press 1 to wake up Pippin.":BS:CENT(P):P$; L1:C1K(16384P PP) ---- SNEEZE ----]$: IF GF = 0 THEN VTAB 2: HTAB 1: GOSUB 25000j.ST2:1v8P120B"A";LPP140:PPVP`" CHEW!"jC$"C"tP1100~PP13:X(16336):PPP25C$"H"P50C$"E"  :ST:"Call your teacher to help you":"print the story.":F,f 140x,z :ST:"Would you like to print the story?":, MC2:MI$(1)" YES ":MI$(2)" NO ":540, CT2ī3550, :14:"Please make sure the printer is on.", 140"- :12:P$"Pri+ CN2CN2+ CN3CN12.+ CN4CN9=+ CN5CN3O+ HOLDST:ST22V+ :`+ :CNl+ X140x+ 0,39X+ X+ :ST:15+ "Now this room is ";:COL$+* 140+4 SKF1SKF0:420+> STHOLD+H +R --------PRINT STORY-----=,\ **PRINT STORYB*b :ST:"It's been nice meeting you ":N$;:"."d*l "Thank you for visiting me."*v "Now it's time for me to go to sleep."* 140* P11000:P* 110* - - - - - COL OR SCREEN - - - - - - - - - + CN1CN1."() "Now let's go to my story room."1) 140_) :ST:"Here in my story room I can show") "numbers and letters on the screen")& "or on paper.")0 "I can write a story about you."): 140)D 3570:*** WRITE STORY)N 140*X PF1İ3420:MART";::" me."( 140'( S10:S20@( 3890: GAME ROUTINEI( GF0( :ST:"You won!":"Would you like to play again?"( MC2:MI$(1)"YES":MI$(2)"NO"( 540( SKF1SKF0:3010( CT1ī2990) :ST:"It was fun playing games with youd you about. As my friend, I hope":"you will remember what I tell you.":"Let's introduce ourselves again.":140' 1680: START OVER( :ST:"Now let's have a contest. We will see":"if you can outsmart me. REMEMBER,":"to win you must ";::"OUTS0:2870&r ANS(IN$)=&| AANSĺ::"You are right!":2960d& ::"The correct answer was ";:Am& 140& :ST:"I'm tired.":"Please put me to sleep."& SKF0:IN$:K(IN$):710& IN$"Z"IN$"z"ī2970r' :ST:"That's not the key I":"tolP$PROB$:CENT(P):P$; % ANS)% 1403%" 4260Z%, P$(V1)" "F$" "(V2)" ""= "%6 :ST:"You can work problems too.":%@ "Please answer this:":%J P$(V1)" "F$" "(V2)" ""= "%T ST4:CENT(P):P$;%^ MAX1:360&h SKF1SKFrst number: ";:N10ĺN1:2760-$ MAX4:360D$ SKF1SKF2:2710R$ N1(IN$)$ 1:ST5:"Type the second number: ";:MAX4:360$ SKF1SKF0:2710$ N2(IN$)$ FF790,810,830,850$ PROB$(N1)" "F$" "(N2)" = "$ ANSA% :ST:$(1)"ADDITION":MI$(2)"SUBTRACTION":MI$(3)"MULTIPLICATION":MI$(4)"DIVISION"W#d 540n#n SKF1SKF0:2640z#x FF$CH$# FFCT# F$F$(FF)# IN$"":N10# :ST:"You can give me a ":"problem to do in ";:FF$;:".":$ 1:ST3:"Type the fit's introduce ourselves again.":140;"1 1680: START OVERR"2 SKF1SKF0:2620"< :ST:"Thank you! That was fun!"::"This is my numbers room.":"I can add, subtract,":"multiply, and divide.""F 140"P :ST:"What is your favorite?"N#Z MC4:MIhe numbers room."!( 140&!, :ST10Y!- :ST:"I want to laugh!":"Please tickle me."v!. SKF0:IN$:K(IN$):710!/ (IN$)9ī2610$"0 :ST:"That's not the key I":"told you about. As my friend, I hope":"you will remember what I tell you.":"Leode for crediting "E " dollars in HIGHROLLER..............";TA$M 14u "nclude division in HIGHROLLER" " and RULEMAKER......................";ID$ 17 "uit SET OPTIONS MENU." ,20:1 6"Please choose , , , o*** REMOVE( P4000: READ OPTIONS FILEG c --------- MAIN --------M dl nP$"Set options for CUPS:"} x4:CENT(P) P$ 8 "uccesses required in level 2" " to advance to RULEMAKER.............";REP 11 "eacher c>CPYRGT$"(c) 1985 BY CHUCK STEELE, 1987 BY S&S SOFTWARE"\ PUBLIC DOMAIN SOFTWAREy FILENAME: SET OPTIONS UPDATED: 07/27/87D$(4)(CENT(P)18((P$)2)2REP4: ****** REMOVE<TA$"AZ": **** REMOVE FID$"Y": *     4V1043204V2AV1 474 --- GEN SUB ----I4V2(10(1))X4V204370d4&V1AV2j404: --- GEN MULT ----4DV1(10(1))4NV1044204XV2AV14bT(V2)4lV2T45004vA(10(1))4A0ī44704442045T ANSWERED FLAG3h12:16:K$33r4570: RESULTSH3|MK1MK0:4240X3DF0ī3900e3STHST:~3 ---- GEN PROB ----3A(10(1))3A0ī42603FF4320,4370,4420,45203V11V21ī426033 ---- GEN ADD ----3V1(10(1))4570: DO RESULTS"2A11ī392072MK1MK0:4240a2SKF0:****** MORE RESET FLAGS???????y2"3900: TO ANOTHER2, *** KEY HIT ***26KK1282@710: SPECIAL KEY2ESKF0GCGC12JSKF1SKF0:D1:39202TK$(K)3^SAF1: STUDENEY HIT? **1K127ī4150;1 * KEY NOT HIT, TIME UP? *W1TIPS20TITI1:3960x1** TIME UP,PIPPEN ANSWER **112:361A11A10:NA1:40901SNF0ĺA:40801X(10(1)):XA40601X1PAF1:GCGC1: ** PIPPEN ANSWERED20( ---- PLAY GAME ----=02HSTST:ST19:GF1:A10:NA0:GC0n0<SKF0:SNF0:SLF0:GGF0:PAF0:SAF0:D0:DF00F4260: GEN PROB0P1390: GAME SCREEN 0ZTI0: TIME0d ** STROBE KEYBOARD **0n16368,00xK(16384)016368,0 1** KAY NOTE---$/~RST0āR1R(RST):R4/0,255P(P)=/1,LF/771L/e/----PLAY MUSIC ----~/L(MS1)40:RST6MS/X12/P1:3710:3710/P2:3710/P1:3710/P3:3710/P1:3710/P4:3710/ P3:3710/X/PN$" is a "SZ$" "SX$" who is"\.$L$(3)AGE$" years old. "PO$" favorite music is "..L$(4)MS$" ""and "MV$". "N$.8L$(5)"likes "FF$" the best.".BL$(6)N$" chose the color "COL$".".LX16.VL$(X).`X.j /t ----PLnting, please wait.":CENT(P):P$2- D$;"PR# 1"H- (14): BIG TYPER- 3580b- D$;"PR# 0"h- - -------WRITE STORY-------- :4- L$(1)"Today I met "N$"."-SX$"BOY"PN$"He":PO$"His"-SX$"GIRL"PN$"She":PO$"Her"#.L$(2)r : "; @I$. J(I$)90I$((I$)32)_ TI$"S"I$"T"I$"I"I$"Q"ĺ(7);:300j X20:1 Z" " \20:1 ^I$"S"İ1000:100 hI$"T"İ2000:100 rI$"I"İ3000:100 | VC1İ5000: 66??????????????????????????%,$%,$%,$%,$%,$%,$%,$%,--------5.65.65.65.65.65.65.65.65.65.6666???????????????????????????'$$$%,$%,$%,$%,$%,$%,$%,$%,$%,$%,-------5.65.65.65.65.65.65.65.65.65.666??????????????????????????'$$%,$%,$%,$%,$%,$%,$%,$%,$%,$%,------5.65.65.65.65.65.65.65.65.65.!%%----.....66>>>>?I*555566>>>>>????'''''-6?'$--66??'$$---666???'$$d--m66;?? $$H)-M6?$ LIͪ@LIII+$$$$%,$%,$%,$%,$%,$%,$%,$%,$%,$%,--------5.65.65.65.65.65.65.65.65.65.6666????????????????????????????$$$$%,$%,$65.65.65.65.65.65666>??????????????????????????? H@@H@Q,,,---55555566777777777777776.------%???????$$$,$%,$%,$%,$%,$%,$%,$%,$%,$%,$---------65.65.65.65.65.65.65.65.65.65666>???????????????????????????A@@@AH@Ha& {)!#%$$$,$%,$%,$%,$%,$%,$%,$%,$%,$%,$---------65.65.65.65.65.65.65.65.65.65666>???????????????????????????gAAHIII 77 666666666666??,- -5?/$$$,$%,$%,$%,$%,$%,$%,$%,$%,$%,$---------65.65.65.65.    -- CORRECT ANSWER --&nY:(7):(7)=nY12:16:"CORRECT"InYTCTC1OnYkn] -- WRONG ANSWER ---n]18:"The correct answer was: ";V(6)n]"The rule was: ";F$;FVn]na --- DISPLAY SCORE ---na:12:14oaTC1ĺTC;" CORRECT ANSWER(L1)mVPP16)mVV1(L,PP)V1(L1,PP)1mVPP=mVPP12WmVF1$(L,PP)F1$(L1,PP)omVF1(L,PP)F1(L1,PP)wmWPP~m WLmWN$(10)N$mWPP16m&WV1(10,PP)V(PP)m0WPPm:WPP12mDWF1$(10,PP)F$(PP)mNWF1(10,PP)FV(PP)mXWPPmbWnY 00): ";SN lOSN1SN10020220(l O23LlO"Number of rules (1 - 2): ";NRhlONR1NR2ĺ(7):20235l$O26000: GET RULESl.O22000: SAVE RULEMAKERSl8O25200: MENU2lBO20060lQlV --- SETUP ---lVCH10ī22290lVLCH9mVN$(L)N$GUESSER:GUESSERT!k(SS1:10110'kNBkN ===== CHALANGER ====Hk NNk!Ndk#N(7):(7):(7)k%ND$;"BLOAD HELPSCREEN2"k*N:19:38k4NDM$kN --- GENERATE SEQUENCE ---kN20:1kN"Your name: ";N$kN22:1 lO"Starting number (1 - 19409j'20:P$"Press to continue ":P$;:DM$?j']j'6:N$(PLAYER);"'s turn."ej'12j'"Starting number (1 - 100): ";SNj'NR1:26000j'6200j'6300j (NNV(4)İ100:10260j(CASH(GUESSER)CASH(GUESSER)30k(TPLAYER:PLAYER First player's name: ";N$(1)Ai8'"Second player's name: ";N$(2)WiB'FIRST(2(1))1iV'FIRST2T$N$(1):N$(1)N$(2):N$(2)T$it'PLAYER1:GUESSER2i~':900:12:N$(PLAYER);"'s turn to make a rule."i'N$(GUESSER);" should look away."j'SS1İAY RULES ---9h5:N$(CH);"'s complete sequence was:":@h5_hP16:V1(CH,P);" ";:P:h 9:N$(CH);"'s rule was:":hP12h5hF1(CH,P)0ĺF1$(CH,P);F1(CH,P)h(Ph2h' ----- MAIN -----h'h$'900: TO HEADERi.'12:"gP16:V(P)H(P):P!g700'gDg7 -- DISPLAY SEQUENCE --Qg8:10:1tgBN$(GUESSER);"'s sequence is:"gL12:1gV400: DISPLAY SEQUENCEg`g-- GET NEXT NUMBER --g14:1g"Next number in sequence: ";NNg h -- DISPL):P f2700f<'fO --TO SMALL --3fP700:2_fZ"You are trying to generate a number "fd"that is smaller than I can handle!"fn:"Please try a smaller value or a"fs"different function."fx::"Press to continue.";gI$e--TO LARGE -- e700:2Le"You are trying to generate a number "ue"that is larger than I can handle!"e :"Please try a smaller value or a"e"different function."e::"Press to continue.";eI$f(P16:V(P)H(P REVERSE ORDER FOR DIVIDE*dNX6:P13HdTV(P):V(P)V(NX):V(NX)TTdNXNX1[dPadvd --- DIVIDE ---dFV04120dGNGNFVdd --- CHECK LEGAL$ ---dL(LEGAL$):LEGAL0dP1LdI$(LEGAL$,P,1)LEGAL1dPeCENT(P):P$c*c --- SHOW SCORE ---Ic6:N$(1);" has $";CASH(1)hc7:N$(2);" has $";CASH(2)ncc --- ADD VALUE ---cGNGNFVcc ---- SUBTRACT VALUE ---cGNGNFVcc --- MULTIPLY VALUE ---c GNGNFVc dF SCREEN---b2:1!bXX18Pb" "XbXX^b}b --- DISPLAY SEQUENCE ---b 700b%2:1b*"SEQUENCE IS NOW:"b4b>LL14bHV(LL)bRLLb\bz -- HEADER -- c2:P$"RULE MAKER":э (SAVE OPTIONS FILE)G P$"Returning to CUPS MENU.":14:CENT(P):P$o :P$"Please wait...":CENT(P):P$ D$;"RUN HELLOCUPS"   ----- CHANGE REPETITIONS -- "Number of successes (2 - 9): "; I$ (I$)13ī1090 I(I$) άΠϠ΍ӬӠӍI2ĺ(7);:1020 VC1& $REPI, BM  -- CHANGE ACCESS CODE --y "New teacher code (two characters): "; A$:(A$)90A$((A$)32) A$; (A$)132090 Z$:(Z$)90Z$((Z$)32) Z$ TA$A$Z$ VC1 *宠堠ŠҾ宠Ӯ堠`ᠠ@堠Ҡ桠&嬠򠢯`Ҡ堠2Π堠Ҡ    OPEN HIGHSCORES"*:D$;"READ HIGHSCORES"5DP15@NN$(P)JPD(P)QXPlbD$;"CLOSE HIGHSCORES"rlxv --- NEW HIGH SCORE ----:2:14:"HIGH ROLLER""5:"WOW! You get to join the big winners.",12:"Please type your n -- CHANGE DIVISION --C "Include division? ( or : ";K I$^ (I$)133040i ID$I$ (ID$)90ID$((ID$)32) ID$"Y"ID$"N"ĺ(7);:3010 VC1  --- READ OPTIONS FILE ---D$;"OPEN OPTIONS FOR CUPS"Ҡ堠宠堠󠠠`ҧ嬠堢򠢫@ŠҾ宠&ҠԺӠ򠠠`ӡ4ҡӠ    +U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u+,u+,u+,u+U*U*U*U*U(Q"EP"E*Q"E*U U(*U U*U*U*U*u+,u+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u+,u+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u+,u+U*Uj@@U*U*U*U*u`*U*U*U*U@,U*U*u+U*U*U*U*@ T(U @(U*U*U*U*u+,u+U*Ujx@U*U*U*U*u|`*U*U*U*U~,U*U*u+,u+,u+U*Uj@U*U*U*U*u`*U*U*U*U,U*U*u+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u+,u+,u+,u+U*U*U*U*U(Q"@P"*Q"E*U U(U U*U*U*U*u+,u+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u+,u+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u+,u+U*Uj@@U*U*U*U*u`*U*U*U*U,U*U*u+U*U*U*U*P T(U*@(U*U*U*U*u+,u+U*Ujx@U*U*U*U*u|`*U*U*U*U,U*U*u+,u+,u+,u+U*Uj@U*U*U*U*u`*U*U*U*U,U*U*u+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u+,u+,u+,u+U*U*U*U*(Q"@(Q"Q"A*U U(U*U*U*U*u+,u+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u+,u+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u+,u+U*Ujx@U*U*U*U*u `*U*U*U*U@A,U*U*u+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u+,u+U*Ujx@U*U*U*U*u|`*U*U*U*U@,U*U*u+,u+,u+,u+U*Uj@U*U*U*U*u`*U*U*U*U,U*U*u+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u+,u+,u+,u+U*U*U*U**Q"E(Q" *U U(* U*U*U*U*u+,u+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u+,u +,u+U*Ujx@U*U*U*U*u|`*U*U*U*U@,U*U*u+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u+,u+U*Uj@@U*U*U*U*u `*U*U*U*U@A,U*U*u          P8=PPLP8= ANAP/=)e  ֠ P ڐ,L5 B  v ɛ,L V ALm7;B8;P ;L: ^   \ ^ L P ^ɛ_O2Ȍ )Hh ڐL ʽ \L֍L ڐLk B ȹ5 ȹ $ ǩ$ ݑ /L#H  ) h9 ՓHȱhIHIiH hh $ iДC Փ (ȱȱ ɍ i婢 Ч ՓHHi꥞ .hhʩ$ $`ŠōPɍ 0` 0.Р@H h H, ShLp`ɍɠ) `$(2(P0 $(͆2͆٩դ$H2(h,`ߢ ) ڥP3Q4, ڥP5QLw34 5L5 P i.j :ۥkl LȱQL֭ \L5  V AL5 ڐ \L5ȱPȱQ B L]h67`gg8` 0.ɛ ڐL#ɠrnɍ,`,6.7 J X ?` 0(E)T`ɠ9.0ɍ,Lɛ CL#,LS,67ST`,67`^  ^ LtPȹ ^ G ڐ4`)` 8(`i( `ɠ 8`hh Lkhh 2Lt`P ^ɺ ɰ)А2L0 `P \ \L# ݑ 3LDԭɺ ɰLQ% / 8l ݑ />L  L,L5Ӎ ԧXeIH΍4 / / ݑ Xhɤ L 3LfLiLkLkP ڐLk  \Lۍ LtL- BP @ b  /L0 /L)L  AL# L#LL#H8967ɮ2 @ nL# \۩ LȠϠ 34 󉩠 :3i34Le2 H2L%i(8(%$ " >2ɓP?I?ILv ?i 2A 2`LkL P ^ɠ*Hh (2 \ ^ɍ8ѰL5)% "((ɠ ȹL -!ɠ) $'% B`ɮϤ%пԠNǠ@ b L/`4ЍLȱ:`ԠɈLɉL֍ɍLɖLɒ L/L!ɔLɕLϏɛL5ɁLRɑLɘL5ɗL ɚLɋ AIALq ڐLk2ɠ ڐLq2 \Lk @ X /LkŠЩ ʭ@}2% "( (ɭ񩠠(22 :`%$L") H 9ɠɢ9I9h`hh 9Ȍ $LLڐ \: ^VLLLɠ5L!LLLɮL՗L‹LϒLɤɠL[ɃLɂLhɄLɅLɎLɆLCLoLI / H: /L X@n  )e$$ LX' ݌P` 9ȱ 󉤅ȱ0  ) ȱ `8Єτ 0  0  о枱` $ȹQɠ I֩Ӎ ԧ   XL  2304 ԧLL1)fGN0İ5300:PPL:P6:LL1:26142?fF2ĭGN0ī26142_fGNMIİ5200:PPL:P6:LL1gfPPn&fPu0fL~:f800Df22:1:IfN$(PLAYER)", "Nf"is the above sequence OK (Y/N)? ";I$XfI$"Y"I$"y"26290bfI$"N"I$"n"26000lfڍٍ PP) XWPPbW-] -- WRONG ANSWER ---M]17:"That is not correct!"v]18:"The correct answer was: ";V(4)]"The repeating rule was: ";F$;FV]22:3:"Press to continue";:DM$]e --- GET RULES ---e700eLL1D$;"READ OPTIONS FOR CUPS"5REP: REPETITIONSUTA$: TEACHER ACCESS CODEwID$: INCLUDE DIVISION FLAGD$;"CLOSE OPTIONS FOR CUPS" --- SAVE OPTIONS FILE ---P$"Saving OPTIONS FILE.":12:CENT(P):P$D$;"OPPA uD$;"CLOSE PIPPINOPTIONS"&uC huCASH10lu'6--- RULES -----E@3:14:"-- RULES --"::ZE"You have $10."J:"Try to guess which cup has the ball."T"You have to bet on your guess."^:"If you are wrong, you loose your bet." h"If you are right, you win 2 ---------- BJCOUNT(3(1))5/LJP1COUNTFVJP(0,P)(3(1))1M`JP]jJCC(0)COUNTctJ0u ------ LOOSE GAME ----:u9000: clear text Du21Nu"Sorry, but you are out of money!"Xu:"Press for another game. ";buDM$CCUP:4000!.P1PAUSE100:P+.50001.I:/ --- RIGHT CUP ---^D/CP(P1,P2):4000hI/Y198tN/L110X/YY11083b/4C(C)30,Yd/4C(C)30,Yg/Yi/Y1Y11l/Lq/5000v/ 8J------------ generate random pattern-----\+9000: clear textf+21Ep+"CONGRATULATIONS!!! You have won!"nz+"You finished the game with $";CASH+"Press for another game.";+DM$+9000: to clear txt+CASH10+T0+10060|.. --- WRONG CUP -- .e)8000: bet*00*7000: cup choice62*a:*CUPP(P1,P2)CASHCASH(BET2):10850sD*CASHCASHBETN*12000: wrong cupb*12100: right cupl*TRAP(3(1))1v*TRAP1TRAP310860*P2R+CASH100ī10070: doit again)1t'TRAP1TRAP310090-'P21CC(P1)K'CASH99P2CC(P1):11000e'CASH1İ30010:11180o'TT1zF(C13P(4000: raise cupZ(C(1000: bounce ball)C13 )CTRAP10530)5000: lower cups")C)1200: shuffl/<#" "6F#P<P#Y' ===== m a i n =====m'H1C(1):V1DOWN$'H2C(2):V2DOWN.'H3C(3):V3DOWN8'2000: draw cupsL'P10:19010: Generate random patternV'9000: clear text j'TRAP(3(1)cup";:I$#vI(I$):I1I37000-CUPI3N6 --- PLACE BET ---X@9000`E21wJ"You have $";CASHO21:30:"TURN: ";TT"How much to bet";:I$^BET(I$):BET1BETCASH8000# --- CLEAR TEXT ---(#212#P13),UP % ---- lower cup ----.OFF=5C(C),UPNRUPDOWN6WO1Ne5C(C),RnOFF|5C(C),RRO1N5C(C),DOWNN --- CUP CHOICE --X21b"You have $";CASHg21:30:"TURN: ";T l"Which H2:VV2:1100" HH3:VV3:1100( I --- load game screen ---k D$;"BLOAD PICTR.GAME,A$2000"q  ---- raise cup ---- OFF 5C(C),DOWN RDOWNUP6 O1N 5C(C),R OFF 5C(C),R R O1N5C(C(S2)C(S1)IN:O1N:5MV,V:OFF:5MV,V:MV:1282u MVC(S2)C(S1)IN:O1N:5MV,V:OFF:5MV,V:O1N:5C(2),V:MV HC(1):CLRO1N:1100 HC(2):1100 HC(3):1100 LOOP   ---- draw cups ---- CLRO1N HH1:VV1:1100 H--- draw cup ----- LCLR& V5H,V, `L  --------- shuffle -------_ RR(9(1))7n LOOP1RR S1(3(1))1 S2(3(1))1 S1S21210 IN((C(S1)C(S2))3) CLROFF:HC(S1):VDOWN:1100 S12S22ī12401 MVCs- 16301,0:16300,0:16297,0:16304,0A 10000 to main_  ----- bounce ball -----p X2027610 Y981085 4X,Y 4X,Y XC(TRAP)30X276:Y108 Y $X &OFF:5C(TRAP),UP (O1N:5C(TRAP),DOWN . B - 2C(2)110: cup2 position< <C(3)200: cup3 positionI FPAUSE10U PCASH10_ d0:1s nSH4000:D$(4) xD$;"BLOAD CUPS,A";SH 232,SH(SH256)256 233,(SH256) 230,32 7 3000: drawscreen  40000: to rule(CPYRGT$"(c) 1987 BY S&S SOFTWARE"H (C) 1985 BY CHUCK STEELEb FILENAME: CUPSPROG1z UPDATED: 06/28/88C(3),P(10,10),CC(10),N$(10)DOWN112: cups down(UP90: cups up*O1N2,OFF0 -C(1)20: cup1 position     t you got the wrong answer":CENT(P):P$:P$"because you sneezed.":CENT(P):P$9WF2WF0:P$"I beat you.":CENT(P):P$:"If you would THINK, then you would be":"able to outsmart me!"9WF3WF0:P$"You may try again.":CENT(P):P$>:NA1ES ----S8SNF1SNF0:P$"You made Pippen SNEEZE and get confused":CENT(P):P$8GGF1GGF0:P$"You made Pippen GIGGLE and waste time!":CENT(P):P$8SLF1SLF0:P$"You made Pippen SLEEP and waste time!":CENT(P):P$Q9WF1WF0:P$"I beA(K$)ĭSKF0WF1:47807A(K$)S1S11:P$"You are RIGHT!":CENT(P):P$:D0ĺ"But you did not outsmart me, so you":"did not win. Think carefully!"7D1DF1:P$"You outsmarted me!":CENT(P):P$74810: MESSAGES78--- MESSAGss SPACE BAR to continue.";$6 DM$D6(DM$)90DM$((DM$)32)V6 DM$MK$MK1\6*z64 --- PIPPEN ANSWERED ---6>ST6HSNF0S2S216RD0WF26\SNF1WF3:A116f4810: MESSAGES6p6z ----- STUDENT ANSWERED ----6ST7 --- GEN DIV ---"5V2(10(1))25V20ī4520>5V1AV2D5Y5 -- RESULTS ---d5ST:85GC3GC0:6000:46505PAF1PAF0:4670:4610: PIPPNE ANSWERED****5NA1İ48105SAF1SAF0:4740: STUDENT ANSWERED623:6:"PreEN OPTIONS FOR CUPS"5D$;"WRITE OPTIONS FOR CUPS"LREP: REPETITIONSkTA$: TEACHER ACCESS CODEID$: INCLUDE DIVISION FLAGD$;"CLOSE OPTIONS FOR CUPS" Ctimes your"r"bet."B|:"When you have over $100, you win!"n20:"Press to play game.";TITI1:TI32000TI1K(16384):KK128K140100œDM(TI)̜ğ OSE GAME ----%:u9000: clear text -Du21UNu"Sorry, but you are out of money!"Xu:"Press for another game. ";buDM$huCASH10lu6--- RULES -----@3:14:"-- RULES --"::E"You have $10."J:"Try to guess whi0X/YY11083"b/4C(C)30,Y3d/4C(C)30,Y:g/YFi/Y1Y11Ml/LWq/5000]v/8J------------ generate random pattern---------------BJCOUNT(3(1))5LJP1COUNTVJP(0,P)(3(1))1`JPjJCC(0)COUNTtJ 0u ------ LOs for another game.";*+DM$F+9000: to clear txtR+CASH10Z+T0e+10060k+q|.. -- WRONG CUP ---.CCUP:4000.P1PAUSE100:P.5000.:/ --- RIGHT CUP ---D/CP(P1,P2):4000I/Y198N/L11upl*TRAP(3(1))10v*TRAP1TRAP3108608*P2^R+CASH100ī10070: doit againnW+ACUMACUM1\+9000: clear texta+ACUMREPī50000f+21p+"CONGRATULATIONS!!! You have won!"z+"You finished the game with $";CASH!+"Pres0: bounce ball)C13- )CTRAP10530D)5000: lower cupsK")Ca)1200: shuffles)8000: bety*0*7000: cup choice2*:*CUPP(P1,P2)CASHCASH(BET2):10850D*CASHCASHBETN*12000: wrong cupb*12100: right c B'ACUM06L'P10:19010: Generate random patternNV'9000: clear text cj'TRAP(3(1))1|t'TRAP1TRAP310090'P21CC(P1)'CASH99P2CC(P1):11000'CASH1İ30010:11180'TT1F(C13P(4000: raise cupZ(C(100#^BET(I$):BET1BETCASH8000)B# --- CLEAR TEXT ---J(#21U2#P13<#" "F#PP#' ===== m a i n ====='H1C(1):V1DOWN$'H2C(2):V2DOWN.'H3C(3):V3DOWN8'2000: draw cupsg21:30:"TURN: ";T/h30:"GAME: ";ACUM1El"Which cup";:I$_vI(I$):I1I37000iCUPIo6 --- PLACE BET ---@9000E21J"You have $";CASHO21:30:"TURN: ";TP30:"GAME: ";ACUM1T"How much to bet";:I$C(C),RRO1N&5C(C),UP,G ---- lower cup ----POFF_5C(C),UPpRUPDOWN6yO1N5C(C),ROFF5C(C),RRO1N5C(C),DOWNN --- CUP CHOICE --X21b"You have $";CASHCLRO1N HH1:VV1:11000 HH2:VV2:1100D HH3:VV3:1100J k --- load game screen --- D$;"BLOAD PICTR.GAME,A$2000"  ---- raise cup ---- OFF 5C(C),DOWN RDOWNUP6 O1N 5C(C),R OFF50 S12S22ī1240S MVC(S2)C(S1)IN:O1N:5MV,V:OFF:5MV,V:MV:1282 MVC(S2)C(S1)IN:O1N:5MV,V:OFF:5MV,V:O1N:5C(2),V:MV HC(1):CLRO1N:1100 HC(2):1100 HC(3):1100 LOOP   ---- draw cups ---- ВO1N:5C(TRAP),DOWN .4 B ---- draw cup -----= LCLRH V5H,VN `n  --------- shuffle ------- RR(9(1))7 LOOP1RR S1(3(1))1 S2(3(1))1 S1S21210 IN((C(S1)C(S2))3) CLROFF:HC(S1):VDOWN:110wscreen # 40000: to rulesO 16301,0:16300,0:16297,0:16304,0c 10000 to main  ----- bounce ball ----- X2027610 Y981085 4X,Y 4X,Y XC(TRAP)30X276:Y108 Y $X &OFF:5C(TRAP),UP ( 2C(2)110: cup2 position; <C(3)200: cup3 positionG AD$(4)T FPAUSE10` PCASH10 Z60000: READ OPTIONS FILE d0:1 nSH4000 xD$;"BLOAD CUPS,A";SH 232,SH(SH256)256 233,(SH256) 230,32 7 3000: dra'CPYRGT$"(c) 1987 BY S&S SOFTWAREF (C) 1985 BY CHUCK STEELEa FILENAME: CUPSPROG2y UPDATED: 06/28/88C(3),P(10,10),CC(10),N$(10)DOWN112: cups down(UP90: cups up*O1N2,OFF0-C(1)20: cup1 position      !!! ":CENT(P):P$ P:C ZP$"Software developed by":CENT(P):P$j dP$"S & S Software":CENT(P):P$ nP$"Tucson, Arizona":CENT(P):P$ x22:" Press any key to continue."; DMY$ (4);"RUN HOTS MENU" TA$ ID$2 D$;"CLOSE OPTIONS FOR CUPS"8 >  D"CLOSE OPTIONS FOR CUPS"a g  ch cup has the ball.";T"You have to bet on your guess."j^:"If you are wrong, you loose your bet."h"If you are right, you win 2 times your"r"bet."|:"When you have over $100, you win!":"If you win ";(REP);" times in a row, yo$(5)NN$ ND(5)BUCKS bP5. lP263370F vD(P)D(P1)63370l HOLDD(P):D(P)D(P1):D(P1)HOLD HOLD$N$(P):N$(P)N$(P1):N$(P1)HOLD$ PP1:63340 ame: ";6"";NN$1@63300: TO SORT SCORES)dE12:" "J9110: TO DISPLAY HIGH SCORESw61000: TO SAVE HIGHSCORES|16:"Press any key to continue...";DM$: --- SORT SCORES --- DND$;"OPEN CASH"$úD$;"WRITE CASH".úCASHCúD$;"CLOSE CASH"]ĺD$;"RUN HIGH ROLLER"uV READ OPTIONS FILE`D$;"OPEN OPTIONS FOR CUPS"jD$;"READ OPTIONS FOR CUPS"tREP~TA$ID$D$;"CLOSE OPTIONS FOR CUPS"217Zú"WOW!! You have won ";(REP);" games in a row!"cdú"Would you like to play for triple or"}nú"nothing? (Y/N): ";xÄ"";I$íI$"N"I$"n"ACUM0:11175íI$"Y"I$"y"ĺ(7):9000:50000×:â12Ö13:"Please wait..."u will"5"get the chance to play HIGH ROLLER and"O"triple your money!"{22:"Press to play game.";TITI1:TI32000TI1K(16384):KK128K140100œDM(TI)ǜ̜ğFò ---- FOUR IN A ROW ---PâR nt'100: GENERATE FUNCTION>n'300: GENERATE SEQUENCETn'ZF1ZF0:10010n((:6:"What is the next number in the sequence:"n2(8n<(400: DISPLAY SEQUENCEn(10n(500: DISPLAY ANSWERSn(15n)600: GET ANSWERoh)CAF1İ23000PLAY RULES ---;m5:N$(CH);"'s complete sequence was:":Bm5amP16:V1(CH,P);" ";:P:m 9:N$(CH);"'s rule was:":mP12m5mF1(CH,P)0ĺF1$(CH,P);F1(CH,P)m(Pm2m' ----- MAIN -----n'200: GENERATE START NUMBE2:9:"

=Play again, =Quit: ";I$=lzbLEGAL$"PpQq":5000QlbLEGAL0ī25200flbI$"P"I$"p"ıllbrlbxlwil&u - READ CASH --l0uD$;"OPEN CASH"l:uD$;"READ CASH"lDuBUCKSlNuD$;"CLOSE CASH"lXuCsequence: ";NNlm -- DISkaTC;" CORRECT ANSWERS ka5k b --- MENU ----k b22:" ":22:7:"

=Play again, =Quit: ";I$kbLEGAL$"PpQq":5000k bLEGAL0ī25100k*bI$"P"I$"p"Ĭk4bk>bkob -- MENU 2 --%lpb:1RONG ANSWER ---8j]18:"The correct answer was: ";V(6)Tj]"The rule was: ";F$;FVZj]`jwiuj&u - READ CASH --j0uD$;"OPEN CASH"j:uD$;"READ CASH"jDuBUCKSjNuD$;"CLOSE CASH"jXuC ---ja:12:14kaTC1ĺTC;" CORRECT ANSWER":25020 the next number in the sequence:"*i2(11Fi<(400: DISPLAY SEQUENCENi(13ji(500: DISPLAY ANSWERSri(18i)600: GET ANSWERih) CAF=????i0*iY -- CORRECT ANSWER --iY:(7):(7)iY12:16:"CORRECT"iYTCTC1iYj] -- Whh' ----- MAIN -----@h'200: GENERATE START NUMBER_ht'100: GENERATE FUNCTION}h'300: GENERATE SEQUENCEh'ZF1ZF0:10010h':2:14:"HIGH ROLLER"h'6:"You have $";BUCKS;"."h(8:"For double or nothing,""i((9:"what isg REVERSE ORDER FOR DIVIDE-gNX6:P13KgTV(P):V(P)V(NX):V(NX)TWgNXNX1^gPdgyg --- DIVIDE ---gFV04120gGNGNFVgg --- CHECK LEGAL$ ---gL(LEGAL$):LEGAL0gP1LgI$(LEGAL$,P,1)LEGAL1gPCAF1:690'fLEGAL$"AaBbCcDd":5000lfLEGAL0Ģ15:" ":15:600rff --- ADD VALUE ---fGNGNFVff ---- SUBTRACT VALUE ---fGNGNFVff --- MULTIPLY VALUE ---f GNGNFVf ";A(3)eN"D) ";A(4)eS5eW --- GET ANSWER ---?eXCAF0geb"Please choose A, B, C, or D: ";I$elI$"A"I$"a"ĭA(1)V(6)CAF1:690evI$"B"I$"b"ĭA(2)V(6)CAF1:690e{I$"C"I$"c"ĭA(3)V(6)CAF1:690 fI$"D"I$"d"ĭA(4)V(6)5X25dP14(dA(P)(X2(1))X1;dA(P)V(6)510UdP2ĭA(P)A(P1)510{dP3ĭA(P)A(P1)A(P)A(P2)510dP4ĭA(P)A(P1)A(P)A(P2)A(P)A(P3)510dPdCA(4(1))1d&A(CA)V(6)d0"A) ";A(1)d:"B) ";A(2)eD"C) F MULT FOR DIVcV(6)2ZF1CcV(6)9999999V(1)9999999ZF1Icgc --- DISPLAY SEQUENCE --rcP15cV(P);" ";cPc"?"cc --- DISPLAY ANSWERS ---cXV(6)32:X1X1cX1(V(6)2X)cX11X11dX24X:X2bF1F$"+"bF2F$"-".bF3F$"*">bF4F$"/"QbFV(9(1))2Wbub+ -- GENERATE SEQUENCE --b,GNSN:V(1)SNb6P26b@ FOR FUNCTION LOOP LATERbTF1000,2000,3000,3000bhV(P)GNb|PcF4İ4000: REVESE ORDER OCASHaZ10010: TO MAIN8ac ---GET STARTING NUMBER--WadF1SN(100(1))1:190wanF2SN(100(1))50:190axF3SN(20(1))1:190aF4SN(100(1))50:190a((SN))7ī100aa---GENERATE FUNCTION--aF(4(1))1ONUE ? ----@B3WEDBL0P$(BUCKS):55000:"You still have $";P$;".":40008tFBZ130:X(16336):BZG"You have tripled your money!":P$(BUCKS):55000:"You now have $";P$;".":DBL0HBUCKSD(5)āP15:H$(P)N$(P):H(P)D(P):P:NN$"