' +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- ( 0 Ϡ@跻~!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 ~(` i d ֠z# u``0@@@ |<0 0>   8>8@@@@`````@`@@`|? @xp@ 80@  >p@0`` ` @@@8@ 0   `@@@@<@@0`0@```0`` 8`0`@@@~?`px@p  00 8|p@@@@@8@`@  @0@x0@  ` 0  @8@@@pa@p `@ `0 @@`@@@@@`` 88@00@ p@ 7 - ?@@@@mժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ @0@@`@0`a@`0`@ @p@ @>0   Z110:(7);:Za>:21::"FINAL SCORE"::Q$": "S:QQ$": "SSr>SSSWW$Q$>SSSWW$QQ$>21:20::WW$" IS THE WINNER!">:24:20:"PLAY AGAIN (Y/N)?";:A$:A$"Y"ī10>::6CHOOSE A TARGET NUMBER (1-36): ";)`;VA>e;(VAHA)ī15220|j;:"SORRY, YOU CANNOT PICK THE SAME NUMBER AS PLAYER 1."o;:"HIT TO CHOOSE ANOTHER NUMBER.";:A$:15190t;VA1VA36ī15190;23;"HIT TO START GAME.";A$: : START OF GAME:10$:I:"WHAT IS THE NAME OF PLAYER 1?"Q:Q$X:5}:"WHAT IS THE NAME OF PLAYER 2?":QQ$;:10;Q$",":"CHOOSE A TARGET NUMBER (1-36): ";.;HAB;HA1HA36ī15110G;HA(HA)!V;:15:QQ$",":"24XX,YY24XX,YY 5XXXX50& 5W14513300K5 : BOXES -- VERTICALX5SSSS50v5(7);(7);(7);(7);(7)5W145XX,YYXX24,YYXX24,YY24XX,YY24XX,YY5YYYY306W6133006::56"DO YOU NEED DIRECTIONS (Y/N)?";3(CCGGKKOOVA)TW14|3(CCGGKKOOVA)ī13750?3XX204P3TZ1ī13300k3(DDHHLLPPVA)TZ13(DDHHLLPPVA)ī1375034 : BOXES--HORIZONTAL4SS504(7);(7);(7);(7);(7)434W144XX,YYXX24,YYXX24,YYNNOOPPHA)RZ1/@3(MMNNOOPPHA)ī135009J3YY57CO3XX54TQ3TU1ī13155oS3(AAEEIIMMVA)TU1T3(AAEEIIMMVA)ī13750c3XX104e3TV1ī13175g3(BBFFJJNNVA)TV1h3(BBFFJJNNVA)ī13750w3XX154y3TW1ī13195{3(AABBCCDDHA)RU143(AABBCCDDHA)ī13500>3YY87O3RV1ī13090j3(EEFFGGHHHA)RV13(EEFFGGHHHA)ī13500"3YY117'3RW1ī13110+3(IIJJKKLLHA)RW1,3(IIJJKKLLHA)ī1350063YY147;3RZ1ī13130?3(MMB$B$ /& 0 : BOX ALREADY PICKED3 0:21:1c40"SORRY, THAT BOX HAS ALREADY BEEN PICKED!">0"HIT TO TRY AGAIN."H0Z1R0A$\02 : ADDING R'S AND C'S2T1SSN2T2SSSSN2XX542YY572RU1ī130701U),YX(.6U),YX(.8U),Y(.5U))'3' : 0^$'X,YX(.8U),YX(.8U),YUX,YUX,Yf8'N0l*. : TEST FOR TAKEN BOXES.Z0.I(BB$).I0ī12140/C1I/W$(BB$,C)0/P$(W$,1)D/B$P$ī12300X/Cl/BB$B|)X(.2U),YUX(.7U),YU!W+X : 7NlX(.2U),YX(.8U),YUX,YUT?^@ : 8TX,YX(.8U),YX(.8U),YUX,YUX,YhX,Y(.5U)X(.8U),Y(.5U)'#(# : 9<#X,YUX(.8U),YUX(.8U),Y(.5U)X,Y(.5U)X,YU#P#X(.  : 4;X,YUX,Y(.4U)X(.8U),Y(.4U)XX(.7U),YUX(.7U),Y^h : 5X,YX(.8U),YX(.8U),Y(.5U)X,Y(.5U)X,YUX(.8U),YUop : 6X,YX(.8U),YX(.8U),Y(.5U)X,Y(.5U)X,YX,Y(.5U,YX(.8U),Y!X,YX,Y(.2U)lX,YX,Y(.2U)X(.8U),Y(.7U)X(.6U),YUX(.2U),YUX,Y(.8U)r | : 3 X,YX(.8U),YX(.8U),Y(.4U)X(.6U),Y(.5U)X(.4U),Y(.5U)X(.6U),Y(.5U)X(.8U),Y(.6U)X(.8U),YUX,YU78NNNV79OON&V80PPN1R13000<\TT1IaT2T1_f(BB$)16ī15999h300r : 1y0X,YX(.2U),Y3X(.2U),YX(.6U),YX(.4U),Y$X(.4U),YX(.4U),YUX(.2U),Y(.6U) : 2 X,3000,4000,5000,6000,7000,8000,9000,100006V(B$)EV65AANTV66BBNcV67CCNrV68DDNV69EENV70FFNV71GGNV72HHNV73IINV74JJNV75KKNV76LLNV77MMNV(N$)48(N$)57Ģ22Q(N$)48(N$)57ĺ"YOU MUST SELECT A NUMBER FROM 0-9!"l(N$)48(N$)57ĺ""(N$)48(N$)57ĺ"HIT TO TRY AGAIN.";(N$)48(N$)57ľA$:(N$)48(N$)57ī700N(N$)N0N10)N1000,200054)B$"E"B$"F"B$"G"B$"H"Y84PB$"I"B$"J"B$"K"B$"L"Y114wB$"M"B$"N"B$"O"B$"P"Y144:21:13T$"'S TURN""CHOOSE BOX NUMBER VALUE"" 0 1 2 3 4 5 6 7 8 9"12:N$(N$)48(N$)57ė:"C3R4B$"O")C4R4B$"P"412000BZ1ī300hbB$"A"B$"E"B$"I"B$"M"X59lB$"B"B$"F"B$"J"B$"N"X109vB$"C"B$"G"B$"K"B$"O"X159B$"D"B$"H"B$"L"B$"P"X209B$"A"B$"B"B$"C"B$"D"YC2R1B$"B"%C3R1B$"C"9C4R1B$"D"MC1R2B$"E"aC2R2B$"F"uC3R2B$"G"C4R2B$"H"C1R3B$"I"C2R3B$"J"C3R3B$"K"C4R3B$"L"C1R4B$"M"C2R4B$"N {"4"; |23:295 }R$:R$(48)R$(57)ī381H R(R$):R(R)d R1R4ė:R1R4Ģ22 R1R4ĺ"ROW NUMBER IS OUT OF BOUNDS." R1R4ĺ"":R1R4ĺ"HIT TO TRY AGAIN."; R1R4ľA$:R1R4ī369 C1R1B$"A"MBER IS OUT OF BOUNDS."P nC1C4ĺ"":C1C4ĺ"HIT TO TRY AGAIN.";o oC1C4ľA$:C1C4ī350| q:21:1 rT$"'S TURN" s"":"SELECT YOUR BOX" t21:23 u"1" v22:23 w"2 WHICH ROW" x23:23 y"3" z24:23S TURN." [25:A$! ^:21:12 `T$"'S TURN"M b"":"SELECT YOUR BOX"Y d21:23m e"WHICH COLUMN"y f23:23 g" 1 2 3 4" h24:28 iC$:C$(48)C$(57)ī361 jC(C$):C(C) lC1C4ė:C1C4Ģ22 mC1C4ĺ"COLUMN NU0,10000 HOHA(10HT)" X192 HO0HO10m HO1000,2000,3000,4000,5000,6000,7000,8000,9000,10000v +U15 ,T1T$Q$ 4T2T$QQ$ @:21::"SCORE" J:">"Q$": "S O"^"QQ$": "SS T21:20 W"HIT FOR" Y20:T$"' VT1000,2000,3000,4000,5000,6000,7000,8000,9000,10000K VOVA(10VT)U X144e VO0VO10 VO1000,2000,3000,4000,5000,6000,7000,8000,9000,10000 X1 Y102 HTHA10 HT(HT) HT1000,2000,3000,4000,5000,6000,7000,8000,900y  16384AA100:BB100:CC100:DD100:EE100:FF100:GG100:HH100:II100:JJ100:KK100:LL100:MM100:NN100:OO100:PP100T014000UBB$""dnx(4);"BLOAD GRID"3U18X126Y24VTVA10VT(VT)9       F NUMBERS TO BE USED"38:13)"1) ONE TO THREE"M13)"2) ONE TO FIVE"g13)"3) ONE TO NINE"14:16)"1, 2 OR 3";S$S(S$)S1ī5000S3ī5000|L((1)4):L0ī5500L((1)6):L0ī5520MBER OF CORRECT"%s " MATCHES."Gx "PRESS TO RESTART."k 24:"PRESS TO QUIT."; A$:A$(2)A$(17)ī2620 A$(17)ī4000 1 : QUIT6 : CHOOSING RANGE:43)"SELECT RANGE OHIS"R " SEQUENCE."HT :"PRESS TO RESTART ALL VALUES"]V " TO ZERO."X 24:"PRESS TO QUIT.";Z A$:A$(16)ī10\ A$(2)ī1^ A$(17)ī4000` A$(2)A$(16)A$(17)ī2620n :"CHILD HAS MAXIMUM NUED CORRECTLY: "R6 "NUMBERS MATCHED INCORRECTLY: "WM P((R(RW))100)w "PERCENTAGE MATCHED CORRECTLY: "P"%"( 12:"NAMES OF NUMBERS MISSED:"2 BB$< 17:1F "PARENT OR TEACHER:"K (S$)70ī2670P "PRESS TO CONTINUE TRE  : RW0ī2540J 2)"THERE IS NO SCORE SINCE THE PROGRAM"e 12)"HAS JUST BEGUN." :::10)"HIT ANY KEY TO BEGIN.";:A$:10 8)"**** SCORE SHEET ****" 4:" TOTAL NUMBER OF NUMBERS APPEARING: "RW 7:"NUMBERS MATCHE"CT1:VT8:FT2:A$"COPYRIGHT 1983 LLOYD RIEBER"8100G&CT1:VT15p0A$"DO YOU NEED INSTRUCTIONS (Y/N)?"y:100DA$N(13)lA$"Y"ī645vA$"N"ī660580:(4);"RUN WAFFLE INSTRUCTIONS":(4);"RUN WAFFLE(218)(219)256:TYPE(222)::TXT,0:21:TYPE255ĺ(7);"CODE-";TYPE;" ERROR IN LINE #";LINE:y MAIN PROGRAM: HC3:HT1:VT1:FT1:CT0:IN0:CL8:RT0:FT3$""::FULL,0:STARTING DEFAULTSHC3CT1:VT5:FT1 A$"WAFFLE":100/OTO 400 AGAIN.":11:"FOR EXAMPLE, TYPE:"::"FT=1:A$="Q$"TITLE"Q$":GOTO 400":I1(A$):((A$,I,1))31X,YT:99:62923:XRXR(224)::X(280XR)2:HT(X6)7:"FOR HTAB, LET HT=";(HT10)10:HT1ğ:7:(7)" COPY TOO LONG ";:958:cLIN HT CALCULATOR: :24::Q$(34):"CENTER FINDER":"-------------":"FONT: ";FT:"COPY: "Q$A$Q$:X0:YT176:XR0:BG::232,(7662FT):233,(7672FT)O(A$)(FT1FT3)ĺ(7);"SPECIFY FONT NUMBER (FT=#)":"AND COPY (A$="Q$"WORDS"Q$"),":"AND GFLAG0500@ D$;"BLOAD CURSORS,A16384":LOC(1)16640:I13o (FT$(I))ĺD$;"BLOAD ";FT$(I);",A";LOC(I) LOC(I1)LOC(I)(43616)(43617)256: J800:I13:XLOC(I):J,X(X256)256:L1(I)(J):J1,(X256):L2(I)(J1):JJ2::500 I,Y: 0:1:IN0: 1:0:CL8:3:TF256:T131:TXT49235:FULL49234:HIRES49232:UL(UL$):G$(7):D$(13)(4):D$;"MONICO" J800:I13:LOC(I)(J)(J1)256:L1(I)(J):L2(I)(J1):JJ2::STORE.FONT.LOCATIONS FONT LOAD ROUTINE: XR(224)::X(280XR)2 xHC:100X,Y:Z1(A$):((A$,Z,1))T1:99::62923:XOX:X(224)(225)TF:CT0:RT0:HT(X6)7:(IN)ı 232,0:233,64:XRX:YB8(LO(FT)1):SCXRXO:SC256ęSC:0:IY(Y0)YYB:3XO,I::150 YB:16:IXXR:3INT ROUTINE: f d232,L1(FT):233,L2(FT):(FT3$)ĺD$;"BLOAD ";FT3$;",A";LOC(3):FT$(3)FT3$:FT3$"": iX7HT6:Y8VT8:RT16:CL8BGCL:BG:CL8:0,0:62454:VT1:HT1:FT1: nCTX0:YT176:XR0:BG:Z1(A$):((A$,Z,1))T1X,YT:99:62923:XR  (2FLAG0,3FT$(1)"]FATSO"F4FT$(2)"]FATSO/SMALL"`5FT$(3)"]SERIF/SMALL"l6UL$"@"v74508170ZT$"":LC0:I1(A$):J((A$,I,1)):JULT$T$(JLC(J63J96))::A$T$:100_LCLC3264(LC32)::A$T$ c PR     ժժժժժժժժժժժժժժժժժժժժժժժժժժժժ             : CORRECTRR1)C15:(7);:C7S$S$"*"K(S$)70ī2500S10e : INCORRECTo WW1| I(BB$) I0ī2400$ C1I. W$(BB$,C)8 P$(W$,1)B N$P$ī2410L CV BB$BB$" "` BB$BB$N$j 10 : SCOB  :23)"MATCHES:"S$;4 22:1] "(PRESS ONLY FOR SCORE.)";h421:1~>N%1T$" TIME:"@N%1T$" TIMES:"H"HIT THE "N%" BUTTON "W$;:T$;RANS$\ANS$""ī2500pANS(ANS$)ANSNNī2300 ,10:14,11-12,1713:14,18:15,19:16,20P17,2321:24,20:25,19:26,18V` : 0iN%0tN$"0"13,2913:14,30:15,31:16,3217,2333:24,32:25,31:26,3029,1327:26,12:25,11:24,10 23,179:16,10:15,11:14,1223,1733:16,32:15,31:14,30Aa29,2513:14,24:15,23:16,22GzQ : 9_W$"NINE"hN%9sN$"9"NN99999999928,2914:15,30:16,3117,2332:24,31:25,30:26,2928,122726,11:25,10:24,9 23,178:16,9:158%W$"EIGHT"*N%8$+N$"8"44NN88888888W>23,1721:16,20:15,19:14,18zC17,1313:14,12:15,11:16,10H17,239:24,10:25,11:26,12M13,1727:26,18:25,19:24,20R24,22:25,23:26,24W25,2927:26,30:25,31:24,32\,31:27,30- 29,2428:27,23:26,22:25,21P 24,1820:17,21:16,22:15,23V `  : 7o W$"SEVEN"x N%7 N$"7" NN7777777 16,2810:14,1128 G15:HG1:I27 J19 G,HI GG2:HG1:II1 J   : 23:400"HIT TO LOAD 'WAFFLE'.";A$8::MDD$;"RUN WAFFLE"Y TO CONTINUE.";A$!:3N" YOU CHOOSE A BOX BY ENTERING THE"|"COLUMN NUMBER AND THEN THE ROW NUMBER."::17"COLUMN"15)"1 2 3 4" 13)"R 2"13)"O"13)"W 3"!15)"4"&EARN 50 POINTS!":D" THE PLAYERS TAKE TURNS CHOOSING"q"BOXES AND ENTERING NUMBERS. WHEN ALL""THE BOXES ARE FILLED THE GAME IS OVER.":" THE PLAYER WITH THE MOST POINTS IS THE WINNER!"24" HIT ANY KE: 37 " BOTH PLAYERS MUST CHOOSE 'TARGET"d "SUMS'. EACH PLAYER THEN TRIES TO GET" "THEIR ROW OR COLUMN TO EQUAL THEIR SUM." : " WHEN ALL THE NUMBERS IN YOUR ROW" "OR COLUMN ADD UP TO YOUR 'TARGET SUM'""YOU ,:219 1"PLAYER 2 CONTROLS ALL VERTICAL COLUMNS.";@ 63I ;X65T @C14_ EE12m JX,22X,0~ OX,22X5,15 TX,22X5,15 Y0 ^D11000:D cE h3 mXX50 rC w24:8 |"HIT ANY KEY TO CONTINUE."; A$ FLE GAME BOARD." 24:144 "HIT ANY KEY";:A$> :21m "PLAYER 1 CONTROLS ALL HORIZONTAL ROWS.";t 3} Y45 C14 E12 30,Y1,Y 30,Y18,Y9 30,Y18,Y9 0 D11000 D E "3 $YY30 'C" Z20/ \" HIT ANY KEY TO CONTINUE.";7 ^A$= dD x6k 40,30240,30240,15040,15040,30} 90,3090,150 140,30140,150 190,30190,150 40,60240,60 40,90240,90 40,120240,120 :21:4 "THIS IS THE WAFNTS." L:< N" POINTS ARE EARNED TWO WAYS. FIRST,"k P"YOU GATHER POINTS WHEN YOU CHOOSE A BOX" R"AND ENTER A NUMBER. YOU EARN AS MANY" T"POINTS AS THE NUMBER ITSELF. YOU CAN" V"ALSO EARN POINTS BY OUTWITTING YOUR" X"OPPONENT!  D$(4)<:BA" THIS IS A MATH STRATEGY GAME FOR"nC"TWO PLAYERS. THE OBJECT IS TO SCORE"E"MORE POINTS THAN YOUR OPPONENT. YOU"G"SHOULD TRY TO SCORE POINTS AS WELL AS"I"TRY TO BLOCK YOUR OPPONENT FROM GETTING" K"POI    `p0@@ 0@8`@@@@@00 @` `xq@x~@@@@8` `0  ` @0@@`0 @@`0p@@`> ` @ @00xp`@`@ 0` @``` 0 0`@ `@````<@@8`0``@p p< @ `@8`80`8p@0@@0``` `y0`@00@``<0 @@@  8`00` ``                !24,2327:29,2528:31,30279 &26,32:25,33:24,34G +13,2335M NW X : 6d ]W$"SIX"m bN%6x cN$"6" lNN666666 v13,1227:26,11:25,10 {24,189:17,10:16,11:15,12 13,2914:15,30:16,31:17,32 18,2433:25,32:26,1633:32,3114   : 4. W$"FOUR"7 N%4B N$"4"N NN4444[ 5,2012i 12,2820v 5,3522|   : 5 W$"FIVE" N%5 N$"5" NN55555 26,1410:19,1114:15,2319 11,1914 24,20:25,21:26,22 HREE" 6N%3 7N$"3"$ @NN333B J14,11:14,10:15,9:16,9O O17,238g T24,9:25,10:26,11u Y12,1727 ^26,18:25,19:24,20:23,20 c21,2321 h23,22:24,22:25,23:26,24 m25,3027 r26,31:25,32:24,33 w17,2334 |15 : 2 W$"TWO"" N%2- N$"2"7 NN22E 14,1213] 14,11:15,10:16,9j 17,238 24,9:25,10:26,11 12,1727 G26:H18 I113 G,H GG1:HH1 I 31,3413 13,2734 " , : 3 1W$"T 5000!S$"",BB$""> CL((1)15)LCL0ī10RZCLkANSNNī35S5500,5520,5540#L100,200,300,400,500,600,700,800,900,1000%2000d : 1iW$"ONE"kN$"1"nN%1sNN1x5,3520           CT1:VT8:FT2:A$"COPYRIGHT 1983 LLOYD RIEBER":100I&CT1:VT15h0A$"HIT ANY KEY TO BEGIN."q:100yDA$N(13):(4);"RUN PINPOINT"FE(218)(219)256:TYPE(222)::TXT,0:21:TYPE255ĺ(7);"CODE-";TYPE;" ERROR IN LINE #";LINE:y MAIN PROGRAM: HC3:HT1:VT1:FT1:CT0:IN0:CL8:RT0:FT3$""::FULL,0:STARTING DEFAULTSHC3CT1:VT5:FT1 A$"PINPOINT":1001OTO 400 AGAIN.":11:"FOR EXAMPLE, TYPE:"::"FT=1:A$="Q$"TITLE"Q$":GOTO 400":I1(A$):((A$,I,1))31X,YT:99:62923:XRXR(224)::X(280XR)2:HT(X6)7:"FOR HTAB, LET HT=";(HT10)10:HT1ğ:7:(7)" COPY TOO LONG ";:958:cLIN HT CALCULATOR: :24::Q$(34):"CENTER FINDER":"-------------":"FONT: ";FT:"COPY: "Q$A$Q$:X0:YT176:XR0:BG::232,(7662FT):233,(7672FT)O(A$)(FT1FT3)ĺ(7);"SPECIFY FONT NUMBER (FT=#)":"AND COPY (A$="Q$"WORDS"Q$"),":"AND GFLAG0500@ D$;"BLOAD CURSORS,A16384":LOC(1)16640:I13o (FT$(I))ĺD$;"BLOAD ";FT$(I);",A";LOC(I) LOC(I1)LOC(I)(43616)(43617)256: J800:I13:XLOC(I):J,X(X256)256:L1(I)(J):J1,(X256):L2(I)(J1):JJ2::500 I,Y: 0:1:IN0: 1:0:CL8:3:TF256:T131:TXT49235:FULL49234:HIRES49232:UL(UL$):G$(7):D$(13)(4):D$;"MONICO" J800:I13:LOC(I)(J)(J1)256:L1(I)(J):L2(I)(J1):JJ2::STORE.FONT.LOCATIONS FONT LOAD ROUTINE: XR(224)::X(280XR)2 xHC:100X,Y:Z1(A$):((A$,Z,1))T1:99::62923:XOX:X(224)(225)TF:CT0:RT0:HT(X6)7:(IN)ı 232,0:233,64:XRX:YB8(LO(FT)1):SCXRXO:SC256ęSC:0:IY(Y0)YYB:3XO,I::150 YB:16:IXXR:3INT ROUTINE: f d232,L1(FT):233,L2(FT):(FT3$)ĺD$;"BLOAD ";FT3$;",A";LOC(3):FT$(3)FT3$:FT3$"": iX7HT6:Y8VT8:RT16:CL8BGCL:BG:CL8:0,0:62454:VT1:HT1:FT1: nCTX0:YT176:XR0:BG:Z1(A$):((A$,Z,1))T1X,YT:99:62923:XR (2FLAG0,3FT$(1)"]FATSO"F4FT$(2)"]FATSO/SMALL"`5FT$(3)"]SERIF/SMALL"l6UL$"@"v74508170ZT$"":LC0:I1(A$):J((A$,I,1)):JULT$T$(JLC(J63J96))::A$T$:100_LCLC3264(LC32)::A$T$ c PR    0  : MISSILES EXHAUSTED1SH((NG))<S(S)I4:21:6nH"ALL MISSILES HAVE BEEN FIRED!"\22:11)"MYSTERY TARGET: "Na24f"SCORE: "S;p24:21z"PLAY AGAIN (Y/N)?";:A$A$"Y"ī20::62XA$@TA$"Y"ī20"^2190< : GR EFFECTS OF HITGRAD50QST.6]LL12hL13uL1C5L2C2L3C1CI012.6STXRAD(I)XCTRY(RAD4)(I).3YCTRXCTR,YCTRX,YIL&LLL'S EYEC110!(7);:C+:211914M"DIRECT HIT!";S ]1700f"23:m'4,"YOU HIT THE TARGET IN "SF" SHOTS!";124:13S(HSF)(H4)4S(4S)(MSF)5S(S)6"SCORE: "S;:20:"PLAY AGAIN (Y/N)?";:I : CROSS HAIRS!C135,D133D>D13RSOUND(16336)YD`3qX9,YX9,YX,Y9X,Y90X9,YX9,YX,Y9X,Y9C3X,Y440S(HSF)(H4)S(S(4(MSF))) : BULG) PSLS LSG!"SFSF1.&D(NG)90FH84E:RADDFV?RAD1RAD1`DMM1oNGNī1500 : PINPOINTING GUESSXCTR140YCTR80ST.75 R(1)32.54I0RSTHXRAD(I)XCTRRY(RAD4)(I).3YCTRzG$$G$(45)G$(58)ī4950G(G$)BG0GHī490K540:21:13)"OUT OF BOUNDS!":7)"CHOOSE NUMBER FROM 0 TO "H"."505:21:9)"YOU MUST TYPE A NUMBER!":50524:7)"HIT TO TRY AGAIN.";:A$:440G( H(H)0(4);"BLOAD TARGET"DN((1)(H1))JYM0ī2000a21i20"MISSILES LEFT: "M22:20"LAST TWO SHOTS: "PS36)LS;22:1"CHOOSE NUMBER";23:1"TO FIRE (0-"H"):"24 TARGET IS HIT."L18::"HOW MANY MISSILES DO YOU WANT (5-30)?";M$hM$(45)M$(58)ī390tM(M$)M4M31ī397:13)"OUT OF BOUNDS"7)"HIT TO TRY AGAIN.";:A$:39024:10:"HIT TO BEGIN.";A$::"BUT":;{:" FINAL SCORE IS PENALIZED BY THE"c|" TOTAL NUMBER OF MISSILES."~:" 2) A SMALL NUMBER OF MISSILES"" INCREASES DIFFICULTY LEVEL.":8::"BUT"::" MORE POINTS CAN BE SCORED IF"""**** MISSILES ****"E q4:" THE USUAL NUMBER OF MISSILES IS 15."x s" WOULD YOU LIKE TO CHANGE THIS (Y/N)?";:A$ tA$"N"M15 uA$"N"ī397 v:"REMEMBER:" x" 1) MANY MISSILES INCREASES CHANCE" y" TO HIT TARGET," z:8IS THE MAXIMUM."A V:7)"HIT TO TRY AGAIN.";:A$:310k ^:6)"SORRY, POSITIVE NUMBERS ONLY." `:7)"HIT TO TRY AGAIN.";:A$:310 h:9)"YOU MUST TYPE A NUMBER." j:7)"HIT TO TRY AGAIN.";:A$:310 m:11 oELECTION ***" @8B E3)"CHOOSE THE LARGEST POSSIBLE MYSTERY"U F17)"TARGET:"[ G H7)"(25 IS GOOD FOR BEGINNERS)" J L:19:H$ NH$(45)H$(58)ī360 OH(H$) PH1000ī340 QH0ī350 R365 T:5)"SORRY, BUT 1000 ND") 7)"DESTROY THE MYSTERY TARGET."\ :1)"YOUR FINAL BATTLE SCORE DEPENDS ON THE" 6)"NUMBER OF SHOTS FIRED AND THE" 12)"DIFFICULTY LEVEL." 24:8 '"HIT ANY KEY TO CONTINUE."; ,A$ 6:5 ;" *** MYSTERY TARGET RANGE S3)"BETWEEN 0 AND A NUMBER YOU CHOOSE."Z :3)"YOUR ONLY CLUES TO ITS IDENTITY ARE"x 11)"YOUR MISSED SHOTS." :2)"YOUR RADAR SCREEN WILL SHOW HOW CLOSE" 6)"EACH SHOT IS FROM THE TARGET." :2)"USE THIS INFORMATION TO PINPOINT AXCTR140LS0 PS0)SF05YCTR80>(M10Jd::16Zn"PINPOINT"x:4)"YOU MUST SEEK OUT AND DESTROY THE"}2)"MYSTERY TARGET BEFORE YOU RUN OUT OF"15)"MISSILES.":"THE MYSTERY TARGET IS AN UNKNOWN NUMBER"*          L((1)10):L0ī5540 S B"; 6A$ @A$(2)ī310' J:2 T(13)K ^(4);"RUN ALPHABET"9H":100;CT1:VT8:FT2:A$"COPYRIGHT 1983 LLOYD RIEBER"D100S&CT1:VT15r0A$"HIT ANY KEY TO BEGIN."{:100DA$N(13):(4);"RUN NUMBER MATCH PATCH"UE(218)(219)256:TYPE(222)::TXT,0:21:TYPE255ĺ(7);"CODE-";TYPE;" ERROR IN LINE #";LINE:y MAIN PROGRAM: HC3:HT1:VT1:FT1:CT0:IN0:CL8:RT0:FT3$""::FULL,0:STARTING DEFAULTSHC3CT1:VT5:FT1 A$"NUMBER MATCH PATCOTO 400 AGAIN.":11:"FOR EXAMPLE, TYPE:"::"FT=1:A$="Q$"TITLE"Q$":GOTO 400":I1(A$):((A$,I,1))31X,YT:99:62923:XRXR(224)::X(280XR)2:HT(X6)7:"FOR HTAB, LET HT=";(HT10)10:HT1ğ:7:(7)" COPY TOO LONG ";:958:cLIN HT CALCULATOR: :24::Q$(34):"CENTER FINDER":"-------------":"FONT: ";FT:"COPY: "Q$A$Q$:X0:YT176:XR0:BG::232,(7662FT):233,(7672FT)O(A$)(FT1FT3)ĺ(7);"SPECIFY FONT NUMBER (FT=#)":"AND COPY (A$="Q$"WORDS"Q$"),":"AND GTCH":100=CT1:VT8:FT2:A$"COPYRIGHT 1983 LLOYD RIEBER"F100U&CT1:VT15t0A$"HIT ANY KEY TO BEGIN."}:100DA$N(13):(4);"RUN ALPHABET INFO"E(218)(219)256:TYPE(222)::TXT,0:21:TYPE255ĺ(7);"CODE-";TYPE;" ERROR IN LINE #";LINE:y MAIN PROGRAM: HC3:HT1:VT1:FT1:CT0:IN0:CL8:RT0:FT3$""::FULL,0:STARTING DEFAULTSHC3CT1:VT5:FT1  A$"ALPHABET MATCH PAOTO 400 AGAIN.":11:"FOR EXAMPLE, TYPE:"::"FT=1:A$="Q$"TITLE"Q$":GOTO 400":I1(A$):((A$,I,1))31X,YT:99:62923:XRXR(224)::X(280XR)2:HT(X6)7:"FOR HTAB, LET HT=";(HT10)10:HT1ğ:7:(7)" COPY TOO LONG ";:958:cLIN HT CALCULATOR: :24::Q$(34):"CENTER FINDER":"-------------":"FONT: ";FT:"COPY: "Q$A$Q$:X0:YT176:XR0:BG::232,(7662FT):233,(7672FT)O(A$)(FT1FT3)ĺ(7);"SPECIFY FONT NUMBER (FT=#)":"AND COPY (A$="Q$"WORDS"Q$"),":"AND GFLAG0500@ D$;"BLOAD CURSORS,A16384":LOC(1)16640:I13o (FT$(I))ĺD$;"BLOAD ";FT$(I);",A";LOC(I) LOC(I1)LOC(I)(43616)(43617)256: J800:I13:XLOC(I):J,X(X256)256:L1(I)(J):J1,(X256):L2(I)(J1):JJ2::500 I,Y: 0:1:IN0: 1:0:CL8:3:TF256:T131:TXT49235:FULL49234:HIRES49232:UL(UL$):G$(7):D$(13)(4):D$;"MONICO" J800:I13:LOC(I)(J)(J1)256:L1(I)(J):L2(I)(J1):JJ2::STORE.FONT.LOCATIONS FONT LOAD ROUTINE: XR(224)::X(280XR)2 xHC:100X,Y:Z1(A$):((A$,Z,1))T1:99::62923:XOX:X(224)(225)TF:CT0:RT0:HT(X6)7:(IN)ı 232,0:233,64:XRX:YB8(LO(FT)1):SCXRXO:SC256ęSC:0:IY(Y0)YYB:3XO,I::150 YB:16:IXXR:3INT ROUTINE: f d232,L1(FT):233,L2(FT):(FT3$)ĺD$;"BLOAD ";FT3$;",A";LOC(3):FT$(3)FT3$:FT3$"": iX7HT6:Y8VT8:RT16:CL8BGCL:BG:CL8:0,0:62454:VT1:HT1:FT1: nCTX0:YT176:XR0:BG:Z1(A$):((A$,Z,1))T1X,YT:99:62923:XR (2FLAG0,3FT$(1)"]FATSO"F4FT$(2)"]FATSO/SMALL"`5FT$(3)"]SERIF/SMALL"l6UL$"@"v74508170ZT$"":LC0:I1(A$):J((A$,I,1)):JULT$T$(JLC(J63J96))::A$T$:100_LCLC3264(LC32)::A$T$ c PR    FLAG0500@ D$;"BLOAD CURSORS,A16384":LOC(1)16640:I13o (FT$(I))ĺD$;"BLOAD ";FT$(I);",A";LOC(I) LOC(I1)LOC(I)(43616)(43617)256: J800:I13:XLOC(I):J,X(X256)256:L1(I)(J):J1,(X256):L2(I)(J1):JJ2::500 I,Y: 0:1:IN0: 1:0:CL8:3:TF256:T131:TXT49235:FULL49234:HIRES49232:UL(UL$):G$(7):D$(13)(4):D$;"MONICO" J800:I13:LOC(I)(J)(J1)256:L1(I)(J):L2(I)(J1):JJ2::STORE.FONT.LOCATIONS FONT LOAD ROUTINE: XR(224)::X(280XR)2 xHC:100X,Y:Z1(A$):((A$,Z,1))T1:99::62923:XOX:X(224)(225)TF:CT0:RT0:HT(X6)7:(IN)ı 232,0:233,64:XRX:YB8(LO(FT)1):SCXRXO:SC256ęSC:0:IY(Y0)YYB:3XO,I::150 YB:16:IXXR:3INT ROUTINE: f d232,L1(FT):233,L2(FT):(FT3$)ĺD$;"BLOAD ";FT3$;",A";LOC(3):FT$(3)FT3$:FT3$"": iX7HT6:Y8VT8:RT16:CL8BGCL:BG:CL8:0,0:62454:VT1:HT1:FT1: nCTX0:YT176:XR0:BG:Z1(A$):((A$,Z,1))T1X,YT:99:62923:XR (2FLAG0,3FT$(1)"]FATSO"F4FT$(2)"]FATSO/SMALL"`5FT$(3)"]SERIF/SMALL"l6UL$"@"v74508170ZT$"":LC0:I1(A$):J((A$,I,1)):JULT$T$(JLC(J63J96))::A$T$:100_LCLC3264(LC32)::A$T$ c PR       : Z! L$"Z"0 X110:Y559 X,YC XX1T X160ī2520d X,Y:2513t XX1:YY1 X110ī2527 X,Y:2520 XX1 X160ī2535 X,Y:2527 S X,Y:2527 2413t X160:Y55v X,Y,y XX1:YY1={ X110ī2433M~ X,Y:2425S Y c : Yn L$"Y"} X115:Y55 X,Y XX1:YY2 X140ī2470 X,Y:2460 X165:Y55 X,Y XX1:YY2 Y132ī2482 X,Y:2475,Y:2325 X140:Y55  X,Y0! XX1:YY3A$ X155ī2345Q' X,Y:2337`) X170:Y55i+ X,Yy. XX1:YY30 X155ī23573 X,Y:23505 _ ` : Xd L$"X"g X110:Y55j X,Ym XX1:YY1o X160ī2420q X,Y:X,Y:2263X165:Y55$X,Y4XX1:YY2EX140ī2280UX,Y:2273[ak : Wv L$"W" X110:Y55 X,Y XX1:YY3 X125ī2320 X,Y:2313 X140:Y55 X,Y XX1:YY3 X125ī2333 XFLAG0%XCTR140:YCTR80:RAD304B3.15:F0=950QX169.9625:Y80ZX,YdYY1tY55ī2235X,Y:2227X169.9625:Y55:YY105900 : VL$"V"X115:Y55X,YXX1:YY2X140ī2270 0 EFLAG0(HXCTR140:YCTR92:RAD158JB4.9:F9.3BM1000HeRf : T]jL$"T"smX140:Y36:YY105|p900rX125:Y55tX,YwXX1zX155ī2175|X,Y:2167 : UL$"U"X110:Y55:YY85900 50X169:Y55:YY132!900'-7 : RBL$"R"M FLAG0c X110:Y55:YY105l900XCTR129:YCTR75:RAD23B3.8:F5.5100034 : S8L$"S";FLAG0>XCTR140:YCTR67.5:RAD15AB5.9:F1.575C95YCTR80:RAD30#wB4.725:F1.575,{9502< : PGL$"P"]X110:Y55:YY132f900qFLAG0XCTR140:YCTR80:RAD30B3.15:F9.451000 : QL$"Q"FLAG0XCTR140:YCTR80:RAD30B6.3:F0915:F6.3-1000(0X188:Y72:YY1051290079A: : NL>L$"N"bAX110:Y55:YY105kD900vFFLAG0HXCTR135:YCTR76:RAD25KB3.15:F6.3N1000QX159:Y76:YY105S900kl : 0pL$"O"rFLAG0tXCTR140:  : LL$"L",X140:Y18:YY1055900;E : MP L$"M"fX110:Y55:YY105o900zFLAG0XCTR130:YCTR72:RAD20B3.15:F6.31000!X149:Y72:YY105$900&FLAG0)XCTR169:YCTR72:RAD20+B3.B.1:F3.151000+169,42169,451; : KFL$"K"\X110:Y18:YY105e900tX135:Y55}X,YXX1:YY1X110ī1725X,Y:1716X115:Y75X,YXX1:YY1X145ī1735X,Y:17300:YCTR80:RAD30 B3.7:F6.3*1000@"X169:Y80:YY105I$900O?Y@ : IdBL$"I"zEX140:Y55:YY105J900T140,42140,45qr : JstL$"J"wX169:Y55:YY106y900|FLAG0~XCTR140:YCTR105:RAD30 : GL$"G"FLAG07XCTR140:YCTR80:RAD30EB6.3:F0N950dX169:Y55:YY106m900xFLAG0XCTR140:YCTR105:RAD30B.1:F2.751000  : HL$"H"FLAG0X114:Y18:YY105900XCTR140:RAD30B6.3:F.5"FLAG0+9501; : FFL$"F"bXCTR160:YCTR38:RAD20mFLAG0wB5.5F3.15950X140:Y38:YY105900Y55:X125:XX155X,YXX1:XXXī1477X,Y:1472F.8FLAG0950!+F : D@KXCTR140:YCTR80KPRAD30YRB6.3:F0bS950mUL$"D"XX169:Y18:YY105Z900wx : E}L$"E"Y80:X110:XX169X,YXX1:XXXī1417X,Y:1412XCTR140:YCTR8F0 j950#oX169:Y55:YY105,p9002}<~ : BIXCTR140UYCTR80`RAD30kL$"B"vB3.15F9.45FLAG0X110:Y18:YY1059001000 : CXCTR140YCTR80RAD30L$"C"B5.5FLAG1X,Y"IIST:IFı-IIST6965D : CL CRNST.1\IBFSTp$XRAD(I)XCTR.Y(RAD4)(I).3YCTR3FLAGēX,Y:FLAG18X,YBIGL : AQXCTR140RYCTR80SRAD30VL$"A"`B6.3eIT.";&uA$:A$(2)A$(17)ī845CvA$(17)ė:A$(17)Ċ6Kz10^ : V LINE SUBgX,YqYY1}YYYıX,Y920 : CNT CLK CRFLAG0ST.1IBXRAD(I)XCTRY(RAD4)(I).3YCTRFLAGēX,Y:CTRL-Q> TO QUIT.";) aA$:A$(16)ī100: cA$(2)ī10W dA$(17)ė:A$(17)Ċ6~ fA$(2)A$(16)A$(17)ī845 k:"CHILD HAS MAXIMUM NUMBER OF CORRECT" n" MATCHES." p"PRESS TO RESTART."r24:"PRESS TO QULY: "P"%"- H12:"NAMES OF LETTERS MISSED:"6 JBB$A M17:1[ W"PARENT OR TEACHER:"n X(S$)70ī875 Y"PRESS TO CONTINUE THIS" Z" SEQUENCE." \:"PRESS TO RESTART ALL VALUES" ^" TO ZERO." _24:"PRESS <:::10)"HIT ANY KEY TO BEGIN.";:A$:10L 48)"**** SCORE SHEET ****"~ 94:" TOTAL NUMBER OF LETTERS APPEARING: "RW >7:"NUMBER MATCHED CORRECTLY: "R A"NUMBER MATCHED INCORECTLY: "W CP((R(RW))100) E"PERCENTAGE MATCHED CORRECTWW1 I(BB$) I0ī785+ C1I; W$(BB$,C)J P$(W$,1)Z L$P$ī790a Cr BB$BB$" " BB$BB$L$ 100  : SCORE *: ,RW0ī820 -2)"THERE IS NO SCORE SINCE THE PROGRAM" .12)"HAS JUST BEGUN."+ /MATCHES:"S$; 22:18 "(PRESS FOR SCORE.)";C ,21:1^ @"MATCH THIS LETTER:";h TANS$} hANS$(27)ī800 ANS$L$ī700  : CORRECT RR1 C15:(7);:C S$S$"*" 0(S$)70ī800 :100  : INCORRECT   S$""BB$""!16384'd.i34nGANS$L$ī200XN((1)27)fN0ī170N1100,1150,1200,1350,1400,1450,1500,1550,1600,1650,1700,1750,1800,1850,1900,1950,2000,2050,2100,2150,2200,2250,2300,2400,2450,2500:23 "          AD"2 "OF THE LETTER MATCH. EXITING THE SCORE"[ "SHEET IS DONE WITH THE USE OF THE" " BUTTON TO HELP PREVENT" "ACCIDENTAL CRASHING OF THE PROGRAM." 23 "9)"HIT TO BEGIN." ,"PRESS AND HOLD KEY, THEN PRESSORRECT"( " LETTER FORMATION."Y :" 3) INTRODUCE YOUNG CHILDREN TO THE"{ " COMPUTER KEYBOARD." :"THE CHILD'S PROGRESS CAN EASILY BE" "MONITORED WITH THE SCORE SHEET FEATURE." "SIMPLY PRESS THE BUTTON INSTEM d:n10-x"ALPHABET MATCH PATCH"S:"THIS PROGRAM IS DESIGNED TO:":" 1) HELP YOUNG CHILDREN MATCH LOWER"" CASE AND UPPER CASE LETTERS.":" 2) PROVIDE THESE CHILDREN WITH" " ACCURATE MODELS OF C LL VALUES"V " TO ZERO."CX 24:"PRESS TO QUIT.";YZ A$:A$(16)ī10i\ A$(2)ī1}^ A$(17)ī4000` A$(2)A$(16)A$(17)ī2620n :"CHILD HAS MAXIMUM NUMBER OF CORRECT"s " MATCHES." x "PRESS TO MINESHAFT""CT1:VT8:FT2:A$"COPYRIGHT 1983 LLOYD RIEBER";100J&CT1:VT15s0A$"DO YOU NEED INSTRUCTIONS (Y/N)?"|:100DA$N(13)lA$"Y"ī645vA$"N"ī660580:(4);"RUN MINESHAFT INSTRUCTIONS": (4);"RUNE(218)(219)256:TYPE(222)::TXT,0:21:TYPE255ĺ(7);"CODE-";TYPE;" ERROR IN LINE #";LINE:y MAIN PROGRAM: HC3:HT1:VT1:FT1:CT0:IN0:CL8:RT0:FT3$""::FULL,0:STARTING DEFAULTSHC3CT1:VT5:FT1 A$"MINESHAFT":1002OTO 400 AGAIN.":11:"FOR EXAMPLE, TYPE:"::"FT=1:A$="Q$"TITLE"Q$":GOTO 400":I1(A$):((A$,I,1))31X,YT:99:62923:XRXR(224)::X(280XR)2:HT(X6)7:"FOR HTAB, LET HT=";(HT10)10:HT1ğ:7:(7)" COPY TOO LONG ";:958:cLIN HT CALCULATOR: :24::Q$(34):"CENTER FINDER":"-------------":"FONT: ";FT:"COPY: "Q$A$Q$:X0:YT176:XR0:BG::232,(7662FT):233,(7672FT)O(A$)(FT1FT3)ĺ(7);"SPECIFY FONT NUMBER (FT=#)":"AND COPY (A$="Q$"WORDS"Q$"),":"AND GFLAG0500@ D$;"BLOAD CURSORS,A16384":LOC(1)16640:I13o (FT$(I))ĺD$;"BLOAD ";FT$(I);",A";LOC(I) LOC(I1)LOC(I)(43616)(43617)256: J800:I13:XLOC(I):J,X(X256)256:L1(I)(J):J1,(X256):L2(I)(J1):JJ2::500 I,Y: 0:1:IN0: 1:0:CL8:3:TF256:T131:TXT49235:FULL49234:HIRES49232:UL(UL$):G$(7):D$(13)(4):D$;"MONICO" J800:I13:LOC(I)(J)(J1)256:L1(I)(J):L2(I)(J1):JJ2::STORE.FONT.LOCATIONS FONT LOAD ROUTINE: XR(224)::X(280XR)2 xHC:100X,Y:Z1(A$):((A$,Z,1))T1:99::62923:XOX:X(224)(225)TF:CT0:RT0:HT(X6)7:(IN)ı 232,0:233,64:XRX:YB8(LO(FT)1):SCXRXO:SC256ęSC:0:IY(Y0)YYB:3XO,I::150 YB:16:IXXR:3INT ROUTINE: f d232,L1(FT):233,L2(FT):(FT3$)ĺD$;"BLOAD ";FT3$;",A";LOC(3):FT$(3)FT3$:FT3$"": iX7HT6:Y8VT8:RT16:CL8BGCL:BG:CL8:0,0:62454:VT1:HT1:FT1: nCTX0:YT176:XR0:BG:Z1(A$):((A$,Z,1))T1X,YT:99:62923:XR  (2FLAG0,3FT$(1)"]FATSO"F4FT$(2)"]FATSO/SMALL"`5FT$(3)"]SERIF/SMALL"l6UL$"@"v74508170ZT$"":LC0:I1(A$):J((A$,I,1)):JULT$T$(JLC(J63J96))::A$T$:100_LCLC3264(LC32)::A$T$ c PR     z #  ҠǠȠҠǠȠϠ ԠϠ Š Π̠ Π̠Ϡ  ҠŠ ҠŠϠ ҠȠȠҠȠȠϠ  ԠϠ Ԡ ԠϠ Ԡ" ŠӠ Ġ"ŠϠ  ȠӠ"ȠӠϠ ȠӠӠ ԠӠ!ԠԠϠ ԠϠɭҠ ӠϠϯ̠Ư̠٠ՠ"9):OU0ī2480> OU2520,2540,2560,2580,2600,2620,2640,2660e "POPPED UP IN THE INFIELD!":2680 "GROUND BALL TO SHORTSTOP!":2680 "FLY BALL TO CENTER FIELD!":2680 "LINE DRIVE TO LEFT FIELD!":2680( "SHORT FLY TO RIGHT FIELD!":268(7); eWp840 3140/ : SINGLE7H1G::22:16V"SINGLE!"aW15l(7);sW|8403140 : OUT$ 8 OO1L 21:13` TIME240ī2460t :"STRUCK OUT!" 2685 ::21:8 OU((1)xBEEP15yPAUSE175*zSOUND(N)5{PAUSE?|BEEPH840R3140a : TRIPLEiH3y::22:16"TRIPLE!"W115(7);W840 3140  : DOUBLE4H2H::22:16\"DOUBLE!"aW110c | H0ī1820# E0CT15 E0D0CT2K E0D0C0CT3e E0D0C0B0CT4 E0D0C0B0A0CT5 E0D0C0B0A0CC1  0 : HOMERUN DH4 X::22:16 l"HOMERUN!" qW120 t(7); vW  C4C0 B0CC2ī1360* (BBH3 <BI0C PB4RR1R dB4BI4` xB5B0m B4B0 A0CC1ī1500 AAH AI0 A4RR1 A4AI4 A5A0 A4A0 ,CC5CC0 @ TH0ī1660 hCCCC1EH EI0 E4RR1, E4EI4: E5E0G E4E0\ D0CC4ī1080f DDHo $DI0 8D4RR1 LD4DI4 `D5D0 tD4D0 C0CC3ī1220 CCH CI0 C4RR1 C4CI4 C5C0 BASE& 5,22:6,21:7,22:8,23:7,242 5,723? 22,256S  : SECOND BASE 20,8:21,9:22,10:21,11:20,12:19,11:18,10:19,9 19,2110:9,1120 43420 H : MOVE BASERUNNERS \CT900,1040,1180,1320,1460 pE0CC5ī940 ELX0ī400 |300 RX20) RY394 RX,RY@ RXRX1L RYRY1] RX39ī540f 440x  : HOMEPLATE 019,2136 D19,2137 X20,38 l : FIRST BASE 35,22:34,21:33,22:32,23:33,24 33,3523:22,2434  : THIRD  :ESTIMATION BASEBALL6 : COPYRIGHT 1983 BYK : LLOYD RIEBER\ : BOX 305 x : BLUEWATER, NM 87005d:nN16336xCT5CC1R0546013LX20LY39,LX,LY@LXLX1TLYLY1 h    D  (768)0Āj ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."p ,A6: 769 (768)1250% I --IF THERE, LOAD INTG AND PA#1P 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082  --NO CARD OR CAN'T RELOAC2SS$S2$ NC3SS$S3$/ NC4SS$S4$A NC5SS$S5$S NC6SS$S6$e NC7SS$S7$w NC8SS$S8$ NC9SS$S9$ NC1ī1030 NC9ī1030 :: (4);"RUN "SS$S: (4);"RUN "SS$128: }831,192:832,9$"WAFFLE INTRO"+ S5$"SOUR APPLE INTRO"I S6$"MATH INVADERS INTRO"b S7$"PINPOINT INTRO" S8$"ESTIMATION BASEBALL INTRO" S9$"MINESHAFT INTRO" NC$ (13) NC$(48)NC$(57)ī1030  NC(NC$) NC1SS$S1$ N2 : LLOYD RIEBER'< : BOX 305 DA : BLUEWATER, NM 87005 Jdmx(4);"BLOAD SERENDIPITY MENU"{16297,016304,016302,0S1$"ALPHABET INTRO"S2$"NUMBER MATCH PATCH INTRO"S3$"NUMBER COUNTING PATCH INTRO" S4    GUE)dNB0ī3920x44804XX0:S$"":TIME0BSS16336SXX(16384)a16368,0sXX141ī4300TIMETIME1TIME80TIME160TIME240ī41404180,DE110@SOUND(SS)(SS)(SS)(SS)(SS):DETTIME240ī2320 TU$;29::"SCORE"!$38CO1RARARELCO2RBRBRX`26:TA$": "RAlt26:TB$": "RB;tR01:"HIT ANY KEY FOR PITCH";Z$1320,3822:12(NA((1)LEAGUE)<NA0ī3880PNB((1)LEAI0:CI0:DI0:EI0  :24:135 "HIT ANY KEY.";= Z$G 3420j 13:34,23:20,10:6,23:20,38q4 2wH }\ p :21 :"TEAM AT BAT:";: 18 :"OUTS:";::O; 29::"INNING:";::IG CO1TU$TA$ CO2TU$TB$IG1 IC3IC1' IGTT1ī6760/ R09 3360C0 3420`D : BASERUNNER--GRAPHICSjX 3360ql 2 A1B1C1D1E1č34,23 A2B2C2D2E2č20,10 A3B3C3D3E3č6,23 AI4BI4CI4DI4EI4č20,38 AI0:B2800 3420) : END OF HALF INNING9 ::21:16H "3 OUTS!"R, :23~@ "THE SIDE IS RETIRED! HIT ANY KEY FOR"T 6)"THE OTHER TEAM TO BAT UP.";h Z$r A0:B0:C0:D0:E0| O0 COCO1 CO2CO1 ICIC1 IC3IG0%< "GROUND BALL TO SECOND!":2680MP "GROUND BALL TO THIRD BASE!":2680{d "LONG FLY CAUGHT BY LEFT FIELDER!":2680x 22:18:"OUT!"} BEEP1100 SOUND(N) W13 W BEEP :24:13 "HIT ANY KEY."; Z$ O3ī"TO USE HI-WRITER, YOU NEED TO ENTER COMMANDS AFTER LINE 500. SEE YOUR APPLE MECHANIC KEY CHART AND INSTRUCTIONS."::"(DELETE LINE 502 TO OMIT THIS MESSAGE.)":: DELETE.THIS.LINEGOTO XXX (SEE PAGE 40)58 :uLINE(218)(219)256:TYPE(222)::TXT,0:21:TYPE255ĺ(7);"CODE-";TYPE;" ERROR IN LINE #";LINE: MAIN PROGRAM: HC3:HT1:VT1:FT1:CT0:IN0:CL8:RT0:FT3$""::FULL,0:STARTING DEFAULTSFGRAM LINES HERE. ::10:RDS"Q$"),":"AND GOTO 400 AGAIN.":11:"FOR EXAMPLE, TYPE:"::"FT=1:A$="Q$"TITLE"Q$":GOTO 400":I1(A$):((A$,I,1))31X,YT:99:62923:XRXR(224)::X(280XR)2:HT(X6)7:"FOR HTAB, LET HT=";(HT10)10:HT1ğ:7:(7)" COPY TOO LONG ";:9JJ2::500#  HT CALCULATOR: :24::Q$(34):"CENTER FINDER":"-------------":"FONT: ";FT:"COPY: "Q$A$Q$:X0:YT176:XR0:BG::232,(7662FT):233,(7672FT)a(A$)(FT1FT3)ĺ(7);"SPECIFY FONT NUMBER (FT=#)":"AND COPY (A$="Q$"WO LOAD ROUTINE:  FLAG0500R D$;"BLOAD CURSORS,A16384":LOC(1)16640:I13 (FT$(I))ĺD$;"BLOAD ";FT$(I);",A";LOC(I) LOC(I1)LOC(I)(43616)(43617)256: J800:I13:XLOC(I):J,X(X256)256:L1(I)(J):J1,(X256):L2(I)(J1):YB:16:IXXR:3I,Y:) 0:1:IN0: 1:0:CL8:3:TF256:T131:TXT49235:FULL49234:HIRES49232:UL(UL$):G$(7):D$(13)(4):D$;"MONICO" J800:I13:LOC(I)(J)(J1)256:L1(I)(J):L2(I)(J1):JJ2::STORE.FONT.LOCATIONS FONTX,YT:99:62923:XRXR(224)::X(280XR)2 xHC:100X,Y:Z1(A$):((A$,Z,1))T1:99::62923:XOX:X(224)(225)TF:CT0:RT0:HT(X6)7:(IN)ı 232,0:233,64:XRX:YB8(LO(FT)1):SCXRXO:SC256ęSC:0:IY(Y0)YYB:3XO,I::150 ::A$T$ c PRINT ROUTINE: x d232,L1(FT):233,L2(FT):(FT3$)ĺD$;"BLOAD ";FT3$;",A";LOC(3):FT$(3)FT3$:FT3$"": iX7HT6:Y8VT8:RT16:CL8BGCL:BG:CL8:0,0:62454:VT1:HT1:FT1:+ nCTX0:YT176:XR0:BG:Z1(A$):((A$,Z,1))T1 (*2FLAG0:(0=LOAD,1=DON'T)>3FT$(1)"]FATSO"X4FT$(2)"]FATSO/SMALL"r5FT$(3)"]SERIF/SMALL"~6UL$"@"74508170ZT$"":LC0:I1(A$):J((A$,I,1)):JULT$T$(JLC(J63J96))::A$T$:100 _LCLC3264(LC32)     "WOULD YOU LIKE TO PLAY AGAIN?";Z$>#Z$"Y"Z$"YES"ī100L#:11:15\#"BYE-BYE!"c#6t#L : TIE GAME#SCO2İ3360#TCO2ī3420#`#t22#15)"TIE SCORE!"#24#4)"HIT ANY KEY FOR AN EXTRA INNING.";#PAUSE13 $(RBRA)W$TB$"D12!"V:145"X"WINNING TEAM";"[N"](W$)10Ė15`"^(W$)8Ė16r"_(W$)6Ė17"`(W$)4Ė18"a(W$)2Ė19"dW$"l23:4"qPAUSE15"rBEEP1200"sSOUND(N)"tBEEP:7030"u7025"vPAUSE$#0!mCO2İ3360!!nCO2ī34206!rAPCT((JG)10)M!wBPCT((JJGG)10)U!|:u!9)"THE BALLGAME IS OVER!"|!5!12)"FINAL BOX SCORE"!""!!"TEAM","SCORE","EST %"!!TA$,RA,APCT!TB$,RB,BPCT!RARBW$TA$"0' 7:"CHOOSE A NUMBER FROM 1-4:";PR0 :8] 3)"REMEMBER, THE VISITING TEAM ALWAYS"t 14)"BATS FIRST."| 15 3)"PRESS TO START THE GAME.";:Z$ CO1 IC1 ,IG1 @RA0:RB0 T h : END OF GAME!lRARBī750 : M*D*A*S:4G2)"CHOOSE THE TYPE OF PITCHES YOU WANT."W"":"":""u7)"1) ADDITION PITCHES"}""7)"2) SUBTRACTION PITCHES"(""<7)"3) MULTIPLICATION PITCHES"P""d7)"4) DIVISION PITCHES" x"":"":"""11)"9) HALL OF FAME"("":""N7:"SELECT A NUMBER FROM 1-9:";LaL1LEAGUE10tL2LEAGUE15L3LEAGUE20$L4LEAGUE308L5LEAGUE50LL6LEAGUE100`L7LEAGUE500tL8LEAGUE1000L9LEAGUE5000+4)"PLAY. THE HIGHER THE NUMBER, THE"G12)"TOUGHER IT GETS!"S"":""i 11)"1) PEE WEE"~ 11)"2) LITTLE"411)"3) PONY"H11)"4) COLT"\11)"5) AMERICAN LEGION"p11)"6) SEMI-PRO"11)"7) MINOR"11)"8) MAJOR TEAM? ";TB$TB$""ī5640&0""HD11:"2) VISITING TEAM? ";TA$ZXTA$""ī5700l"":"HOW MANY INNINGS FOR THIS GAME (1-9)";:TTTT1TT9ī5740 : LEVEL OF DIFFICULTY255:3"CHOOSE THE LEAGUE IN WHICH YOU WANT TO"ACB((NANB)ACA)&ACB0ACB0>ACC((ACB(NANB)))DU : DIVISIONgACA((NB)S)zACB((NB)ACA)ACB0ACB0,ACC((ACB(NB)))@T85002558)"WHAT IS THE NAME OF THE:""":"" 11:"1) HOME360 : ADDITION)ACA((NANB)S)?ACB((NANB)ACA)PACB0ACB0hACC((ACB(NANB)))n( : SUBTRACTION<ACA((NB)S)PACB((NB)ACA)UACB0ACB0dACC((ACB(NB)))x : MULTIPLICATIONACA((NANB)S) MULTIPLICATION#NA" X "NB" =?"/24:12D"ESTIMATION: ";J[ : DIVISIONg21:11w"--------"22:7$NA822:11L")"(NANB)`12:24t"ESTIMATION: "; : CHECKING ACCURACYPR5060,5160,5260,5XACC700ī2200'lACC700ī2320< : MATH PROBLEMXPR4520,4620,4720,4820i : ADDITION}NA" + "NB" =?"24:12"ESTIMATION: ";  : SUBTRACTION (NANB)" - "NA" =?"424:12H"ESTIMATION: ";\p :hXX128ī4020|(7);,(XX128);@S$S$(XX128)J4020VS(S$)^""h5020|ACC(ACC1000) CO1GG1CO1JJACCCO2GGGG1CO2JJJJACCACC950ī18400ACC900ī1960DACC800ī2080L,a GY[hu --???---->???7---->???7----???-- --66??$$ 666.--$$$7- <=<>@>?>@A@=?<>`ؠ :????.---->????MII  ? ? ? ? - ? ? 5 M >   ?  ? ?  - ۖ ۖ ۖ ? ޖ >;?MII ;-m)->??7-m)->??7----???w--?7-5?7-5?7-5?7-5?oII5----5????7----5????wI -5??--??--??--?7----5????7----5????oIII?- ->?.m-?.5?.5?.5?.5?.m??.m->?MI- w- ->?.m->7->7->7->7->7->?.m->?MIRI-??---????NI:7->7->IIIII->??7-m)->??7----5????w---??oII-m)->??7-m)->??7-m)->??7-m)->??7-m)-??.---??7--?7-oI )-mI)5??7-mI)5??7-m- ->??7-m- ->??7-m- ->??7-----5?????7-----????w-M-MII-m)->??7-m)->??7----???w--5??---????7----5?;?.-M-5?;?.-M-5?- ->??MII?---????.---->????.-M-5?;?.-M-????.---????.---->??7-m)->??7-m)->??oIII --???----5????7-m)-;?.---????---->???N -5?;?.---->????---??oII----5????7----5????w -5?7-5?7-5?7-5?7-5?7-5?oII--m)->??7-m)->??7-m)->??7-m)->??7-m)??7----5????7----5???7-m)->?7-mI5?oIII? --???----5????7-m)->??7-m)->??7-m)->??7-m)->??7----5????w---??oII?---????.---->????.-M-5?;?.-M-5????7----????.---?7-5?7-5?oIII? --???----5????7-m)->??7-m)->??7-m)->?;7- m->??.- - ???- -mI-5??;?.-M--???7----???7---??7---???7----???7-m)-??;?.-M -5??oIII >-5?7-5?7-5?7-5?7-5?7-5?7---->???7---->???oII MII >7-MI)5??7--M-->?????.----->?????.----->?????.- m-5??7-mI-5??7-mI-5??oIII )MI-5?7-M)->??7-- -5????7----5???oII --???----5????7-m)-;?.-MI:??7-m-->??7-m-->?7----5????w---->???MIIm-m)->??7-m)->??7-m)->??7----5????7----5????7-m)->??7-m)->??7-m)->??oIII>-5?7-5?7-5?7-5?7-5?7-5?7-5?7-5?oI-I--->??7--->??w)->?.->?.->?ߛ-m-5??7---->???w---??MII?----5?;?.-M-5?;?.->?.-MI:??7-m)->??7----5????w---??oIII---????.---->????.-M-5?;?.-M-5?;?.-M-5?;?.-M-5?;?.---->????.---???oIII---->???7---->???7-5?7---5???7---5???7-5?7---->???7---->???oII ?---->???7---->???7-5?7---5???7---5???7-5?7-5?7-5I --???----5????7-m)->?---???.--?7-5?w?7-5?oIINRI?.5?.5?NI:???w---??-VI --???----5????7-m)->??7-m)->??7----5????7----5????7-m)->??7-m)->??oIII---????.---->??7-m)->??7----???7----?;?.-M-5?;?.---->????.---???oIII --????w---??---????7-m)->??7----5????w---??oII --???----5????7-m)->??7----5????w---->???N -5?;?.---->????---??oII-J?7-5?7-:?.->?.-NJ?7-5?7-:?.->7-?MMJ >-MI:??-- -->??w->II---5???*--->???RIIJI7-???.-m--???NI)7-5?????.----5?????NI)->?.->?MI5----5????7----5????7-5?7---????.---->?.->??7----5????w---??oII --???----5????7-m)-;?.---????.---->????.-M-5?;?.---->????---??oII-----5????7----5????wI)-??--??--?7-5?7-5?7-5?oII > --???----5????7-m)->7-m)->??7-m)->??7----5????w---??oII)->?7-->?7-->?.->?.->?.->?--5??7--5??oI m --???----5????7-m)->?--??--??--??.---->????.---->????MII - --???----5????7-m)->?*--??7--???N)->??7----5????w---??oIIII-5??--5???---5????-- -5?;?.----5?.?J -5??-?.5?.5?.5?.5?.?w-->?M -??N-5?.5?.5?.5?.5?.5?*-?oI?J mw--?----?--w JIMJ 575----5????wI575II *->?.->7o I??7--5??JI7-5?7-5?o 5II5->->->->->->75oII- --???----5????7-m)->??7-m)->??M->;7-M->;wM R7 -M->;7-M->;*----->?????.-----??.m)m:?????.----->?????N-M->;7-M->;oIII-I5*--5???7---??.--???N-->???.---???N)>VI )m 5;?7-- 5??- 555mI:;m)-5??߿m --?oIII-I---???---;7-M??w---M???w---??N?M ?-5?7aBdb *Kn%Pa/{8W<PP  * v X ! a  9  !)19AIQYaiqy I-5?7-5?7-5?7-5?7-5?7-w?7-5?oI--      HT CALCULATOR: :24::Q$(34):"CENTER FINDER":"-------------":"FONT: ";FT:"COPY: "Q$A$Q$:X0:YT176:XR0:BG::232,(7662FT):233,(7672FT)O(A$)(FT1FT3)ĺ(7);"SPECIFY FONT NUMBER (FT=#)":"AND COPY (A$="Q$"WORDS"Q$"),":"AND GFLAG0500@ D$;"BLOAD CURSORS,A16384":LOC(1)16640:I13o (FT$(I))ĺD$;"BLOAD ";FT$(I);",A";LOC(I) LOC(I1)LOC(I)(43616)(43617)256: J800:I13:XLOC(I):J,X(X256)256:L1(I)(J):J1,(X256):L2(I)(J1):JJ2::500 I,Y: 0:1:IN0: 1:0:CL8:3:TF256:T131:TXT49235:FULL49234:HIRES49232:UL(UL$):G$(7):D$(13)(4):D$;"MONICO" J800:I13:LOC(I)(J)(J1)256:L1(I)(J):L2(I)(J1):JJ2::STORE.FONT.LOCATIONS FONT LOAD ROUTINE: XR(224)::X(280XR)2 xHC:100X,Y:Z1(A$):((A$,Z,1))T1:99::62923:XOX:X(224)(225)TF:CT0:RT0:HT(X6)7:(IN)ı 232,0:233,64:XRX:YB8(LO(FT)1):SCXRXO:SC256ęSC:0:IY(Y0)YYB:3XO,I::150 YB:16:IXXR:3INT ROUTINE: f d232,L1(FT):233,L2(FT):(FT3$)ĺD$;"BLOAD ";FT3$;",A";LOC(3):FT$(3)FT3$:FT3$"": iX7HT6:Y8VT8:RT16:CL8BGCL:BG:CL8:0,0:62454:VT1:HT1:FT1: nCTX0:YT176:XR0:BG:Z1(A$):((A$,Z,1))T1X,YT:99:62923:XR (2FLAG0,3FT$(1)"]FATSO"F4FT$(2)"]FATSO/SMALL"`5FT$(3)"]SERIF/SMALL"l6UL$"@"v74508170ZT$"":LC0:I1(A$):J((A$,I,1)):JULT$T$(JLC(J63J96))::A$T$:100_LCLC3264(LC32)::A$T$ c PRTHE THIRD BUZZER."A&!"REMEMBER, THREE STRIKES AND YOU'RE OUT!"M&!"":""z&!" PRESS THE KEY TO SELECT"&!"WHICH LEAGUE YOU WANT TO PLAY IN AND"&!"THE TYPE OF PITCHES YOU WANT.";&!Z$&"&(# : END OF GAMEON OF AMERICA'S GRAND"A%!"OLE PASTIME, YOU CAN BE THE HOMERUN"o%!"KING OR THE STRIKE OUT CHAMP DEPENDING"%!"ON YOUR SKILL."%!"":""%!" YOU WILL HEAR THE STRIKE BUZZER"%!"ABOUT EVERY 5 SECONDS. ENTER YOUR"&!"ESTIMATION BEFORE BEEP1200$SOUND(N)*$BEEP:76104$7605?$PAUSEG$Z$Q$3360[$3420m$@ : GAME OVER$4! : INSTRUCTIONS$>!:4$H!150$f!" HOW GOOD ARE YOU AT ESTIMATING"$p!"THE ANSWER TO A MATH PROBLEM QUICKLY?"%z!"IN THIS VERSIJwJMJMJJoJJNJnJ1JMJMJMJ6J-JvJMJMJ JJMJJvJJNJJ7@@C?.- ??N -5?*m ->??w- -7mu)->?7m:w)>?7-u ---5??w)>.>.N Mm57m57m5??-NMm57m57m?N Im 57m 57--->?.M)Nm57--?-->7mum)>7m)?w57uI-->?w m:?7--N>-5?757m:?.-Nr?-?-?N.-5?w)>.>?.-NRR?mJ?--->??oIIRJJMJMJ-JJ-.-N-->?7m:?.M:?7--N-->?7m:?.-7uI)->?7m7m5??-uMm57m5??.-57mu ->7->7->7-N6I575m5??-Nm57-5?7m57mu5757m:?.-N m 5??.--57m 57m uM)>7- 5??7m->7m)N3)??. 57m5??-N-??. 5??.-7uI3)??. 57m??w--N-??. 5??.--->?7m:?N)>?7-u )->?7m:?. 5??-N--->?w 57uI3)??. ?m5??-N)??. 5?w)>?7-u 5w:.N5w:.MIwwu-I??.-*-5??VI NwuI.-??N)?.uI3)-n- n- s--N)??. 57-->7mu--7m?7m57-u J)??. 7m5??-N1-??. 57m5??>??wmu ? m:? ?wm??NuIm1w)?-7Mu)->?7M?M??-u57 )>757?u?575?.N ->7-NN I:.??7--;.N 7MRRI:?7-- 7uII ?-?-?NI )??. 57m5??-N1->w57?7-us-??N)?m??.-uN-??N)?N5??.-NI57m??7--7u ad)<CO[l|#2EW`ju&9KYiz"4D]p &,28>DJPV\bhntz" 575w:.Nnm57m ) ???.-----     OTO 400 AGAIN.":11:"FOR EXAMPLE, TYPE:"::"FT=1:A$="Q$"TITLE"Q$":GOTO 400":I1(A$):((A$,I,1))31X,YT:99:62923:XRXR(224)::X(280XR)2:HT(X6)7:"FOR HTAB, LET HT=";(HT10)10:HT1ğ:7:(7)" COPY TOO LONG ";:958:cLIN HT CALCULATOR: :24::Q$(34):"CENTER FINDER":"-------------":"FONT: ";FT:"COPY: "Q$A$Q$:X0:YT176:XR0:BG::232,(7662FT):233,(7672FT)O(A$)(FT1FT3)ĺ(7);"SPECIFY FONT NUMBER (FT=#)":"AND COPY (A$="Q$"WORDS"Q$"),":"AND GFLAG0500@ D$;"BLOAD CURSORS,A16384":LOC(1)16640:I13o (FT$(I))ĺD$;"BLOAD ";FT$(I);",A";LOC(I) LOC(I1)LOC(I)(43616)(43617)256: J800:I13:XLOC(I):J,X(X256)256:L1(I)(J):J1,(X256):L2(I)(J1):JJ2::500 I,Y: 0:1:IN0: 1:0:CL8:3:TF256:T131:TXT49235:FULL49234:HIRES49232:UL(UL$):G$(7):D$(13)(4):D$;"MONICO" J800:I13:LOC(I)(J)(J1)256:L1(I)(J):L2(I)(J1):JJ2::STORE.FONT.LOCATIONS FONT LOAD ROUTINE: XR(224)::X(280XR)2 xHC:100X,Y:Z1(A$):((A$,Z,1))T1:99::62923:XOX:X(224)(225)TF:CT0:RT0:HT(X6)7:(IN)ı 232,0:233,64:XRX:YB8(LO(FT)1):SCXRXO:SC256ęSC:0:IY(Y0)YYB:3XO,I::150 YB:16:IXXR:3INT ROUTINE: f d232,L1(FT):233,L2(FT):(FT3$)ĺD$;"BLOAD ";FT3$;",A";LOC(3):FT$(3)FT3$:FT3$"": iX7HT6:Y8VT8:RT16:CL8BGCL:BG:CL8:0,0:62454:VT1:HT1:FT1: nCTX0:YT176:XR0:BG:Z1(A$):((A$,Z,1))T1X,YT:99:62923:XR (2FLAG0,3FT$(1)"]FATSO"F4FT$(2)"]FATSO/SMALL"`5FT$(3)"]SERIF/SMALL"l6UL$"@"v74508170ZT$"":LC0:I1(A$):J((A$,I,1)):JULT$T$(JLC(J63J96))::A$T$:100_LCLC3264(LC32)::A$T$ c PR  N--N -3v-N666n--N iI ---3 - ?n- ?nI1???MI @@>> " !-3>">"*6-NI56jo 5n).m)N566-N--n m u--3M1߻- -NR-3M1s-N--3M?7>MIR--3M1?w om7-NIR---u 1-3Msu - -3M1s--N- -3MNIm n . u - -- -N- -3M1?jI??MI -- -3M1n >7Mq m s  ߻m u- -3M-N --s M.--N-66.-NrN-566*-NIM @II:??oIIRR--3M1smu5.-3M1߻--NR-53Ms-NI)*-n >muR-3---u n:?-N R--3M1?w ?oI 5n7M1߻- -N??n - -N>-66-N@I-6M1s-N -M3 7 -Mu-6n߻--um 7 n - -Nm)7 >n - -N)3M13M1s-N--3M?7-NI)-nInis- N--3M?7M߻- -N)-5n?wI.-u ---s 6-N - -3M13M1s-N - -3M13MNI-N)3M?M1s-N)3M1??N .-N5w:.N5w:.nIu--ޛ-- uI)sIN )-nm>?n---NIM13--- -N--3M?7M1߻--N)36Ms-N--3M13M1߻--N--53 >7 ߻--u--53 >7 -NI)-n?n -N- -3M1 ?wqII;.MM:M)NIn?M s- N1R 6N@6N I-??-NN n:?w1VIMRI:?RI @7uINI )3M5.M-N)66*-u@-sIM.-u-sIw13-u I> 3---N--n?wI.-N)-n?7M1s-N--N -a{d*1;DWbisz#,5@KVbw #5BWl}!1DOXcmz!*;LZjz$-JJJSI6v m5n i----nNN ? ?     ?6Vyxx66~08~l@ N56?@OOC  DQ""@'$D I(0`q?|~Ggcqqxx?<36nYyynyys3@;6`gc3>>66`sq<@wcsqqx@`@G0@?6lgMMMMAM76~YX666n08n ` N?67O@Mg`ffc0L `c`f``s@GC| rDQ"t" $$D I`@A @agLG3`q?|~Gccqqxx?<16FyxyFqxc1?@?>c;0>>pq|@csqqx@`@O p@;>~lgLMOOOO36nYyy>>6f|9f|`?N;>~3O@Mg`fff0L `g`f``sxE 0DQ"2" $$D  I(@A @agLAO3@p?|~Gacpq?xx?<?@56@k?>6q|~Ccsqq?x@`@M @A O`@1~l'L GGO16Fyxy6b|9bx@?N1~1@Oacggf0L`gcc0m8<pQa>\{acYpNsnpip O@G@gNGM3 ?p?|~G`c?pqxx?<@56`766@q|~Ccsqqx@`3FyxYFYa`1          @Maggfc0M ``fggp  @OO@A O`p|~Ccsqqx@`3>FYyYFYap3?p?<~Gb?pqx@`@O gOOMs`1@16lg BMGOM@1>>@c1><6>~@MaffffpO ``fff03FyxYf08fx@c N163| 0 @G@GC`?p<~Ccsqqyx@p;6FYxFya0s@p?<~Gcpqx@`@M gMMMsp3@16lg GMOOM@OagfgfgpNO``gggp3>FYyY>>>f08f|`g N163@O Cp`p<@csqqyx@x?6VyxxVYa0p`q?<~GGcqqx@`@OO`gLOO3f@A 0@1>|gNMOMA GacFccg0 G`@cccp;6FYx666v08vl` N1>;@M Cx@9gnq[vc;DCop\sG7`sq<@ocsqqyx@|76~YX~Ya03@16`cc3>66`q?<~Ggcqqx@`@G`'LGf@A p@56|gOMMMGRESTART."- 24:"PRESS TO QUIT.";O A$:A$(2)A$(17)ī2620c A$(17)ī4000j 1w : QUIT}6 SATCH":100>CT1:VT8:FT2:A$"COPYRIGHT 1983 LLOYD RIEBER"G100V&CT1:VT15u0A$"HIT ANY KEY TO BEGIN."~:100DA$N(13):(4);"RUN NUMBER COUNTING PATCH"&E(218)(219)256:TYPE(222)::TXT,0:21:TYPE255ĺ(7);"CODE-";TYPE;" ERROR IN LINE #";LINE:y MAIN PROGRAM: HC3:HT1:VT1:FT1:CT0:IN0:CL8:RT0:FT3$""::FULL,0:STARTING DEFAULTSHC3CT1:VT5:FT1  A$"NUMBER COUNTING POTO 400 AGAIN.":11:"FOR EXAMPLE, TYPE:"::"FT=1:A$="Q$"TITLE"Q$":GOTO 400":I1(A$):((A$,I,1))31X,YT:99:62923:XRXR(224)::X(280XR)2:HT(X6)7:"FOR HTAB, LET HT=";(HT10)10:HT1ğ:7:(7)" COPY TOO LONG ";:958:cLINLL":100<CT1:VT8:FT2:A$"COPYRIGHT 1983 LLOYD RIEBER"E100T&CT1:VT15s0A$"HIT ANY KEY TO BEGIN."|:100DA$N(13):(4);"RUN ESTIMATION BASEBALL"E(218)(219)256:TYPE(222)::TXT,0:21:TYPE255ĺ(7);"CODE-";TYPE;" ERROR IN LINE #";LINE:y MAIN PROGRAM: HC3:HT1:VT1:FT1:CT0:IN0:CL8:RT0:FT3$""::FULL,0:STARTING DEFAULTSHC3CT1:VT5:FT1 A$"ESTIMATION BASEBA@1>>>`w3>>6>>~ECT MAXIMUM SIZE OF AN ADDEND",17)" ";4FFEFF9ī8290x22:2)"CHOOSE A LARGER NUMBER (AT LEAST 9)."6)"HIT AND TRY AGAIN.";A$7000 : SUBTRACTION:82)"SELECTION OF MAXIMUM MINUEND SIZE"LY!"+6)"HIT AND TRY AGAIN.";9A$:6890TNF7000,7100,8200,7200eX : ADDITIONn]:8b4)"SELECTION OF MAXIMUM ADDEND SIZE"l12:10q:"EXAMPLE:";r:" 7 + 5 = ?"v10)"7 AND 5 ARE ADDENDS"{164)"SEL7:7)"1) ADDITION DEFENDER"C"":7)"2) SUBTRACTION DEFENDER"l"":7)"3) MULTIPLICATION DEFENDER""":7)"4) DIVISION DEFENDER""":"":"":8:"TYPE A NUMBER FROM 1-4: ";FF0F5ī699022:5"CHOOSE A NUMBER FROM 1-4 ON1İ2000XD2İ2000'XD3İ20007YV%ī6080BXX1MYY1ZX1ī20d6010o::7"CHOOSE THE NUMBER OF POINTS NEEDED TO""WIN THE GAME:";PT%PT%5ī6800:46)"CHOOSE THE TYPE OF DEFENDER"XD3İ2000"Y(V%.6)ī50907X(P1%1)ī4000BXX1MYY1W5020sp : BOUNCE LF - FT WALLuC%1S1%S1%25vC%2S2%S2%25z13SOUND(16336)X,YY(Y)Y37ī6050XP%ī45003000XD180 DK0107 : BOUNCE LF - BK WALLLC%1S1%S1%25aC%2S2%S2%25i13}SOUND(16336)(X0)(Y39)Ġ2X,YY(Y)Y37ī5060X1ī20XP%ī45003000XD1İ2000XD2İ2000 X37ī5000Y0ī4015&K1ġ-9;37,39P%J(P%1),38Y(P%1),38h(P%1),37w(P%1),37C%1S1%S1%50C%2S2%S2%50S16336CLICK130SOUND(S)(S)PAUSE125PAUSECLICKD XP%ī4500 K0 ' 7500C : BOUNCE RT - FT WALLXC%1S1%S1%25mC%2S2%S2%25|X(P1%1)13SOUND(16336)X,YY(Y)3000XD1İ2000XD2İ2000XD3İ2000XX1YY1  : DEFENDER PATH CHK+Y5ī2020:Y9ī2020JY13ī2020ZY17ī2020jY21ī2020zY25ī2020Y29ī202020213500 D0 DD1 D3ī3010 K1 0 X,Y Y39ī20 Y37ī309025 Y729 15 "D1,Y1+ 'D1,Y26 ,D1,Y3A -D1,Y4L .D1,Y5W /D1,Y6b 0D1,Y7m 1D2,Y4x 2D2,Y7 6D2,Y5 ;D2,Y6 <D2,Y1 =D2,Y2 >D2,Y3 @D3,Y1 BD3,Y2 DD3,Y3 FD3,Y4 HD3,Y5 JD3,Y6 LD3,Y7DS%((1)23)! DS%13ī15054 DS%P1%ī1505? D1DS%S DS%((1)31)e DS%23ī1509x DS%P1%ī1509 D2DS% DS%((1)39) DS%31ī1520 DS%P1%ī1520 D3DS% Y15 Y29 Y313 Y417 Y521 Y6939 V%((1)30)( V%10ī1010; P%((1)38)L P%15ī1030_ SP%((1)15)p SP%4ī1035 P1%P%SP% P1%1ī1060 39,V%P1% 8 $39,37P% )2 *0,390 +0,390 ,0,3939  : DEFENDERS 15 1)) ESOUND(16336) FX,Y+ GY(Y)9 MY37ī80I NXP%ī4500S P3000a QYV%ī85v RX(P1%1)ī6000 UX37ī5000 _Y38ī20 `XD1İ2000 aXD2İ2000 bXD3İ2000 dX39ī55 I 20 15 4 0,3C%1 Y0 #13:0,1 $5 %"PLAYER 1: "S1%J &"PLAYER 2: "S2%y '"PTS TO WIN: "PT%20)"PLAYER "C%"'S TURN" (20)"VELOCITY: "; 2A 3A2000A2000 4A2A2 713 8 : INIT PROJECTILE PATH 9XX1 <Y((((XX)(1A))ȸ : MATH INVADERS/ : BY LLOYD RIEBERD : P.O. BOX 305` : BLUEWATER, NM 87005| : PHONE (505)876-2388:6800 C%0 1000K1ġX1S1%PT%ī8710S2%PT%ī8710C%C%1 C%3          90&L"PR((RTCT)100)&V"8%&`"N&j"S1%PT%ĺ"PLAYER 1 IS THE WINNER!"w&t"S2%PT%ĺ"PLAYER 2 IS THE WINNER!"}&~"&"3:13&""PLAYER 1: "S1%&"13&""PLAYER 2: "S2%&"8:11&":"MATH FACT ACCURACY"&"&"11 '""PLAYER 1";ORRECT MATH FACT - 5 PTS"!%!11N%!"DESTROY ENEMY COMMAND CENTER - 50 PTS"V%!20}%!6)"PRESS TO CONTINUE.";%!A$%!%" : WINNER%"9030%":%$"COUNTCRWR:CTRTIN%."COUNT0ī8770%8"PER((CRCOUNT)100)&B"CT0ī87APE BEING DESTROYED BY A DEFENDER"H$\!6)"YOU MUST ANSWER A MATH FACT"^$f!15)"CORRECTLY."g$p!" "$z!6)"PRESS TO CONTINUE.";$!A$$!$!11)"HOW TO EARN POINTS"$!5$!2)"EVERY BOUNCE OF SPACECRAFT - 25 PTS$!8%!8)"C# #P#E15#Z#A150-#d#SOUND(16336):#n#A:9090D#x#9060Q##C1100^##C:9120h##9040o##Ey##8730##11##"****************BYE-BYE!***************"##6ELOCITY"#H!"THIS VELOCITY CAN BE ANY NUMBER YOU WISH""$R!"TO ESC"":"MATH FACT ACCURACY" ""(""11Y"""PLAYER 1";:17)COUNT" FACTS";:33)PER"%""""PLAYER 2";:17)CT" FACTS";:33)PR"%"""18:5"""WOULD YOU LIKE TO PLAY AGAIN";"#B$" #B$"Y"ī6"#B$"YES"ī6"#"(#"2#"""<#9140#F!."COUNT0ī8770+!8"PER((CRCOUNT)100);!B"CT0ī8790Q!L"PR((RTCT)100)X!V"8^!`"!j"S1%PT%ĺ"PLAYER 1 IS THE WINNER!"!t"S2%PT%ĺ"PLAYER 2 IS THE WINNER!"!~"!"3:13!""PLAYER 1: "S1%!"13!""PLAYER 2: "S2%!"8:11; N FF R FF1ī8290% T 22:2Q V "CHOOSE A LARGER NUMBER (AT LEAST 1)."x X 6)"HIT AND TRY AGAIN."; Z A$ \ 8200 b 20 l 8)"PRESS TO BEGIN."; v A$ " : WINNER "9030 ": $"COUNTCRWR:CTRTINBEEP1255,SOUND(S)(S)(S)(S)6BEEP<D10[ : MULTIPLICATIONd :8 "CHOOSE ONE OF THE FOLLOWING"& "MULTIPLICATION FACTS WHICH YOU NEED TO"0 "PRACTICE:": "1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12" D 17)" "C%1S1%S1%5# C%2S2%S2%5-1560F@ : INCORRECT ANSWERNE10iJF8020,8030,8040,8050yTMMM:8060^MMM:8060hFFM:8060rM:8060|(Y3),(Y3)XX36Ď(X3),XYX36ī8080(X3),(X3)YS163361560 : DIVISION2M((1)13):M3ī7865>MMFFMDJU23:3a"----"jFF;~3)")"MM" = ";NC%2ī7920NMCRCR1NMWRWR17930NMRTRT1NMININ1NMī8000ICATION#dM((1)13):M3ī7780-f:243iGnFF" X "M" = ";NsN^xC%2ī7820r}NFFMCRCR1NFFMWRWR17830NFFMRTRT1NFFMININ1NFFMī8000C%1S1%S1%5C%2S2%S2%5F):MMMī7700:242M" - "MM" = ";9#NI(C%2ī7740]-NMMMCRCR1r2NMMMWRWR1|77750<NMMMRTRT1ANMMMININ1FKNMMMī8000PC%1S1%S1%5UC%2S2%S2%5Z1560_ : MULTIPLNC%2ī7650+NMMMCRCR1@NMMMWRWR1J7660^NMMMRTRT1sNMMMININ1yNMMMī8000C%1S1%S1%5C%2S2%S2%51560  : SUBTRACTIONM((1)FF1):M2ī7695MM((1)FR NUMBER (AT LEAST 1)."BX6)"HIT AND TRY AGAIN.";:A$L\7200aL : MATH PROBLEMiV13r`X,YjF7600,7690,7775,7860 : ADDITIONM((1)FF1):M0ī7605MM((1)FF1):MM0ī7610:24M" + "MM" = ";N."; A$7100'  : DIVISION0%:8\*"CHOOSE ONE OF THE FOLLOWING DIVISORS"/"WITH WHICH YOU NEED TO PRACTICE:"4"">"1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12"H17)" ";RFFTFF1ī8290U22V2)"CHOOSE A LARGE12:10:"EXAMPLE:";-:" 9 - 2 = ?"I10)"9 IS THE MINUEND"Q16"SELECT THE MAXIMUM SIZE OF THE MINUEND"17)" ";FFFF9ī829022:2"CHOOSE A LARGER NUMBER (AT LEAST 9)."6)"HIT AND TRY AGAIFT. IF YOU LEAVE YOUR"D&"OPPONENT THE SOUR APPLE, THEN YOU WIN"U+"THE GAME!"`024:75"HIT TO CONTINUE.";:A$?255dn"LET'S SEE WHO WILL BE PLAYING!"x6"PLEASE TYPE IN PLAYER 1'S FIRST NAME:":P$ (P ";::"NOT";::" TO BE"F"LEFT WITH THE SOUR APPLE. (IT TASTES"X"TERRIBLE!)"` 10"THE GAME BEGINS WITH 14 RIPE APPLES AND""1 SOUR APPLE. THE PLAYERS TAKE TURNS""EATING THE RIPE APPLES UNTIL ONLY THE"!"SOUR APPLE IS LEINNER!":"**SCORE**"'P$": "T7PP$": "TT;S25:"PLAY AGAIN?";:A$^SKIP1pA$"Y"ī6600A$"Y"ī900010| : INSTRUCTIONS175::6"THIS IS A GAME FOR 2 PLAYERS."5"THE OBJECT OF THE GAME IS30 36603010+ : WINNER8D1200?DPW$P$TT1dW$PP$TTTT1rBEEP13~A150SOUND(J)A:50165013PAUSE1100PAUSE:50195011BEEP:2110 :W$" IS THE WP15 SOUND(J) D120'DbSOUND(J):SOUND(J):SOUND(J):SOUND(J):SOUND(J)lBEEPu190XX40Y130ī3630$X100ī3700.X20ī3700LCQAPPLES0W$PP$SAPPLES0ī5000V4000tYY40X2TO EAT AT LEAST 1 APPLE!"K "":"HIT AND TRY AGAIN.";:A$:3510` SAPPLESī3574 "IMPOSSIBLE! THERE AREN'T ENOUGH RIPE APPLES TO EAT "S"." "" "HIT AND TRY AGAIN.";:A$:3510 APPLESAPPLESS C1S BEE PP$"'S TURN"; "HOW MANY APPLES DO YOU WISH TO EAT?"C S$` S$(47)S$(58)ī3555 :"PLEASE ENTER A NUMBER FROM 1 TO "N".":3570 S(S$) SNS0ī3565 :21:SNĺ"SORRY, "N" IS THE MOST YOU CAN EAT." S0ĺ"YOU HAVE (J):SOUND(J):SOUND(J):SOUND(J):SOUND(J);  BEEPB  0K  U30T  190_ 0 XX40q D Y130ī3150 I X100ī3200 N X20ī3200 X C ] APPLES0W$P$ _ APPLES0ī5000 b 3500 YY40 X230 3160 21AND TRY AGAIN.";:A$:3010/ SAPPLESī3068q "IMPOSSIBLE! THERE AREN'T ENOUGH RIPE APPLES TO EAT "S"."y "" "HIT AND TRY AGAIN.";:A$:3010 APPLESAPPLESS C1S BEEP15  SOUND(J)  D120  D1  SOUNDH TO EAT?" S$/ S$(47)S$(58)ī3050c :"PLEASE ENTER A NUMBER FROM 1 TO "N".":3057o S(S$) SNS0ī3061 :21:SNĺ"SORRY, "N" IS THE MOST YOU CAN EAT." S0ĺ"YOU HAVE TO EAT AT LEAST 1 APPLE!" "":"HIT XX40 X230ī2000# C- 20506 X30A YY40R Y120X110\ 1200e XXXn YYYx X130 Y15 U40 *1 4190 : START OF GAME X150 Y130 :21 P$"'S TURN" "HOW MANY APPLES DO YOU WIS(.1U),Y(.1U)X(.3U),YX(.4U),Y(.1U)X(.5U),Y(.3U)X(.3U),Y(.7U)X(.3U),Y(.7U)X(.5U),Y(.3U)X(.4U),Y(.1U)X(.3U),YX(.1U),Y(.1U)X,Y X,YX,Y(.2U)X(.1U),Y(.3U) +  LX30 `Y50 ~C114 190 : SOUR APPLE. : COPYRIGHT 1983 BYD : LLOYD RIEBER U : BOX 305 q : BLUEWATER, NM 87005~ J16336:F5500KSKIP0Pdx6APPLES14U301000 : APPLEX,YX(.1U),Y(.1U) X    0 (x#9060(#C1100%(#C:9120/(#90406(#E@(#8730H(#11w(#"****************BYE-BYE!***************"~(#6:17)COUNT" FACTS";:33)PER"%"M'""PLAYER 2";:17)CT" FACTS";:33)PR"%"X'"18:5}'""WOULD YOU LIKE TO PLAY AGAIN";'#B$' #B$"Y"ī6'#B$"YES"ī6'#'(#'2#""'<#9140'F#'P#E15'Z#A150'd#SOUND(16336)(n#A:909-#T0:TT0<#:21;P#"IS ANYONE ELSE WAITING TO PLAY?"OZ#A$:A$"Y"ī20[n#::11x#"****************BYE-BYE!***************";#6dJATENAT ONE TIME";:N( N1N10ī70008"":"":""bN9ĺ"DON'T CHOOSE A NUMBER OVER 9."N2ĺ"I THINK YOU BETTER PICK A LARGER NUMBER."""":"":"HIT AND TRY AGAIN.";:A$::6660XSKIP1ī80](# : END OF THE GAME LLY, 3 APPLES IS THE MOST THAT CAN BE EATEN AT ONE TIME. HOWEVER, YOU CAN CHANGE THIS IF YOU LIKE."q"":"""WOULD YOU LIKE TO CHANGE THIS?(Y/N)";:A$A$"Y"N3A$"Y"ī7000"":"":"""WHAT WILL BE THE MOST APPLES TO BE E"":"SURELY YOUR FRIENDS DON'T CALL YOU THAT!"b"":"HIT AND TYPE SOMETHING SHORTER."rA$::6540z13"REMEMBER, PLAYER 1 GOES FIRST."247)"HIT TO CONTINUE.";:A$:P$" AND "PP$",""e"USUA$)1ī6520(P$)14ī6540&""V"SURELY YOUR FRIENDS DON'T CALL YOU THAT!""":"HIT AND TYPE SOMETHING SHORTER.";A$::65209"NOW TYPE IN PLAYER 2'S FIRST NAME:":PP$(PP$)1ī6540(PP$)14ī6560."RUN MATH INVADERS"D INVADERS"1B:CT1:VT8:FT2:A$"COPYRIGHT 1983 LLOYD RIEBER";100J&CT1:VT15s0A$"DO YOU NEED INSTRUCTIONS (Y/N)?"|:100DA$N(13)lA$"Y"ī645vA$"N"ī660580:(4);"RUN MATH INVADERS INSTRUCTIONS":(4);E(218)(219)256:TYPE(222)::TXT,0:21:TYPE255ĺ(7);"CODE-";TYPE;" ERROR IN LINE #";LINE:y MAIN PROGRAM: HC3:HT1:VT1:FT1:CT0:IN0:CL8:RT0:FT3$""::FULL,0:STARTING DEFAULTSHC3CT1:VT5:FT1:A$"MATH INVADERS":1002OTO 400 AGAIN.":11:"FOR EXAMPLE, TYPE:"::"FT=1:A$="Q$"TITLE"Q$":GOTO 400":I1(A$):((A$,I,1))31X,YT:99:62923:XRXR(224)::X(280XR)2:HT(X6)7:"FOR HTAB, LET HT=";(HT10)10:HT1ğ:7:(7)" COPY TOO LONG ";:958:cLIN HT CALCULATOR: :24::Q$(34):"CENTER FINDER":"-------------":"FONT: ";FT:"COPY: "Q$A$Q$:X0:YT176:XR0:BG::232,(7662FT):233,(7672FT)O(A$)(FT1FT3)ĺ(7);"SPECIFY FONT NUMBER (FT=#)":"AND COPY (A$="Q$"WORDS"Q$"),":"AND GFLAG0500@ D$;"BLOAD CURSORS,A16384":LOC(1)16640:I13o (FT$(I))ĺD$;"BLOAD ";FT$(I);",A";LOC(I) LOC(I1)LOC(I)(43616)(43617)256: J800:I13:XLOC(I):J,X(X256)256:L1(I)(J):J1,(X256):L2(I)(J1):JJ2::500 I,Y: 0:1:IN0: 1:0:CL8:3:TF256:T131:TXT49235:FULL49234:HIRES49232:UL(UL$):G$(7):D$(13)(4):D$;"MONICO" J800:I13:LOC(I)(J)(J1)256:L1(I)(J):L2(I)(J1):JJ2::STORE.FONT.LOCATIONS FONT LOAD ROUTINE: XR(224)::X(280XR)2 xHC:100X,Y:Z1(A$):((A$,Z,1))T1:99::62923:XOX:X(224)(225)TF:CT0:RT0:HT(X6)7:(IN)ı 232,0:233,64:XRX:YB8(LO(FT)1):SCXRXO:SC256ęSC:0:IY(Y0)YYB:3XO,I::150 YB:16:IXXR:3INT ROUTINE: f d232,L1(FT):233,L2(FT):(FT3$)ĺD$;"BLOAD ";FT3$;",A";LOC(3):FT$(3)FT3$:FT3$"": iX7HT6:Y8VT8:RT16:CL8BGCL:BG:CL8:0,0:62454:VT1:HT1:FT1: nCTX0:YT176:XR0:BG:Z1(A$):((A$,Z,1))T1X,YT:99:62923:XR  (2FLAG0,3FT$(1)"]FATSO"F4FT$(2)"]FATSO/SMALL"`5FT$(3)"]SERIF/SMALL"l6UL$"@"v74508170ZT$"":LC0:I1(A$):J((A$,I,1)):JULT$T$(JLC(J63J96))::A$T$:100_LCLC3264(LC32)::A$T$ c PR     3CT1:VT8:FT2:A$"COPYRIGHT 1983 LLOYD RIEBER"<100K&CT1:VT15j0A$"HIT ANY KEY TO BEGIN."s:100{DA$N(13):(4);"RUN SOUR APPLE"RE(218)(219)256:TYPE(222)::TXT,0:21:TYPE255ĺ(7);"CODE-";TYPE;" ERROR IN LINE #";LINE:y MAIN PROGRAM: HC3:HT1:VT1:FT1:CT0:IN0:CL8:RT0:FT3$""::FULL,0:STARTING DEFAULTSHC3CT1:VT5:FT1 A$"SOUR APPLE":100OTO 400 AGAIN.":11:"FOR EXAMPLE, TYPE:"::"FT=1:A$="Q$"TITLE"Q$":GOTO 400":I1(A$):((A$,I,1))31X,YT:99:62923:XRXR(224)::X(280XR)2:HT(X6)7:"FOR HTAB, LET HT=";(HT10)10:HT1ğ:7:(7)" COPY TOO LONG ";:958:cLIN HT CALCULATOR: :24::Q$(34):"CENTER FINDER":"-------------":"FONT: ";FT:"COPY: "Q$A$Q$:X0:YT176:XR0:BG::232,(7662FT):233,(7672FT)O(A$)(FT1FT3)ĺ(7);"SPECIFY FONT NUMBER (FT=#)":"AND COPY (A$="Q$"WORDS"Q$"),":"AND GFLAG0500@ D$;"BLOAD CURSORS,A16384":LOC(1)16640:I13o (FT$(I))ĺD$;"BLOAD ";FT$(I);",A";LOC(I) LOC(I1)LOC(I)(43616)(43617)256: J800:I13:XLOC(I):J,X(X256)256:L1(I)(J):J1,(X256):L2(I)(J1):JJ2::500 I,Y: 0:1:IN0: 1:0:CL8:3:TF256:T131:TXT49235:FULL49234:HIRES49232:UL(UL$):G$(7):D$(13)(4):D$;"MONICO" J800:I13:LOC(I)(J)(J1)256:L1(I)(J):L2(I)(J1):JJ2::STORE.FONT.LOCATIONS FONT LOAD ROUTINE: XR(224)::X(280XR)2 xHC:100X,Y:Z1(A$):((A$,Z,1))T1:99::62923:XOX:X(224)(225)TF:CT0:RT0:HT(X6)7:(IN)ı 232,0:233,64:XRX:YB8(LO(FT)1):SCXRXO:SC256ęSC:0:IY(Y0)YYB:3XO,I::150 YB:16:IXXR:3INT ROUTINE: f d232,L1(FT):233,L2(FT):(FT3$)ĺD$;"BLOAD ";FT3$;",A";LOC(3):FT$(3)FT3$:FT3$"": iX7HT6:Y8VT8:RT16:CL8BGCL:BG:CL8:0,0:62454:VT1:HT1:FT1: nCTX0:YT176:XR0:BG:Z1(A$):((A$,Z,1))T1X,YT:99:62923:XR (2FLAG0,3FT$(1)"]FATSO"F4FT$(2)"]FATSO/SMALL"`5FT$(3)"]SERIF/SMALL"l6UL$"@"v74508170ZT$"":LC0:I1(A$):J((A$,I,1)):JULT$T$(JLC(J63J96))::A$T$:100_LCLC3264(LC32)::A$T$ c PRNVADERS"3TO EARN POINTS" !5C !2)"EVERY BOUNCE OF SPACECRAFT - 25 PTSJ !8n !8)"CORRECT MATH FACT - 5 PTS"v !11 !"DESTROY ENEMY COMMAND CENTER - 50 PTS" !20 !7)"PRESS TO BEGIN."; !A$ !(13) ": "(4);"RUN MATH ISING A LIFTOFF VELOCITY"H H!"THIS VELOCITY CAN BE ANY NUMBER YOU WISH"w R!"TO ESCAPE BEING DESTROYED BY A DEFENDER" \!6)"YOU MUST ANSWER A MATH FACT" f!15)"CORRECTLY." p!" " z!6)"PRESS TO CONTINUE."; !A$ ! !11)"HOW DESTROY"- 8)"THE BROWN COMMAND CENTER."6 " "V !10)"THIS IS NOT SO EASY!"_ !" " !2)"YOU MUST SAFELY PASS WHITE DEFENDERS" !8)"WHO ARE ALWAYS ON GUARD!" *!" " 4!3)"YOU FIRE YOUR SPACECRAFT INTO ENEMY" >!"TERRITORY BY CHOO  : INSRUCTIONS ! J 5)"THIS IS A GAME FOR TWO PLAYERS.S " " 2)"THIS GAME WILL TEST YOUR SKILL AS A" 1)"MARKSMAN AS WELL AS YOUR KNOWLEDGE OF" 9)"THE BASIC MATH FACTS." " " 2)"THE OBJECT OF THE GAME IS TO    3,1733:16,32:15,31:14,30?a29,2513:14,24:15,23:16,22EzO : 9]W$"NINE"fN%9qN$"9"NN99999999928,2914:15,30:16,3117,2332:24,31:25,30:26,2928,122726,11:25,10:24,923,178:16,9:15,1%W$"EIGHT"*N%8"+N$"8"24NN88888888U>23,1721:16,20:15,19:14,18xC17,1313:14,12:15,11:16,10H17,239:24,10:25,11:26,12M13,1727:26,18:25,19:24,20R24,22:25,23:26,24W25,2927:26,30:25,31:24,32\21:27,30+ 29,2428:27,23:26,22:25,21N 24,1820:17,21:16,22:15,23T ^  : 7m W$"SEVEN"v N%7 N$"7" NN7777777 16,2810:14,1128 G15:HG1:I27 J19 G,HI GG2:HG1:II1 J   : 824,2327:29,2528:31,30277 &26,32:25,33:24,34E +13,2335K NU X : 6b ]W$"SIX"k bN%6v cN$"6" lNN666666 v13,1227:26,11:25,10 {24,189:17,10:16,11:15,12 13,2914:15,30:16,31:17,32 18,2433:25,32:26,3633:32,3114   : 4, W$"FOUR"5 N%4@ N$"4"L NN4444Y 5,2012g 12,2820t 5,3522z   : 5 W$"FIVE" N%5 N$"5" NN55555 26,1410:19,1114:15,2319 11,1914 24,20:25,21:26,22 !EE" 6N%3 7N$"3"" @NN333@ J14,11:14,10:15,9:16,9M O17,238e T24,9:25,10:26,11s Y12,1727 ^26,18:25,19:24,20:23,20 c21,2321 h23,22:24,22:25,23:26,24 m25,3027 r26,31:25,32:24,33 w17,2334 |15,1 : 2 W$"TWO" N%2+ N$"2"5 NN22C 14,1213[ 14,11:15,10:16,9h 17,238 24,9:25,10:26,11 12,1727 G26:H18 I113 G,H GG1:HH1 I 31,3413 13,2734 " , : 3 1W$"THR S$"""BB$""4 CL((1)15)BCL0ī10HPCLaANSN%ī35rL((1)11)L0ī27#L100,200,300,400,500,600,700,800,900,1000%2000d : 1iW$"ONE"kN$"1"nN%1sNN1x5,3520        """"" MINESHAFT"d"":""4 4)"ALL OTHER FRACTIONS ARE PERMITTED."g "":"THE PLAYER WHO MINES ENOUGH PICKS FIRST" 13)"IS THE WINNER." 24:2 "PRESS TO START *MINESHAFT*";A$ : XD$;"RUN MINESHAFT"dNINESHAFT***********" XD$;"RUN4, r:"REMEMBER THESE IMPORTANT RULES:":4 |""e :"1) IMPROPER FRACTIONS ARE NOT ALLOWED":m "" :"2) NO MIXED NUMBERS": "" :"3) NEGATIVE FRACTIONS ARE NOT ALLOWED": ""::"4) NEVER TYPE '0' FOR YOUR DENOMINATOR":  MINE." 246 7)"PRESS TO CONTINUE.";> A$M , : PAGE 2S 6 @"YOU CONTROL YOUR ELEVATOR BY CAREFULLY" J10)"CHOOSING A FRACTION." T"":3)"THE FLOOR OF YOUR ELEVATOR WILL BE" ^7)"LOWERED TO THAT FRACTION." h"":ATCH THE FLOOR OF YOUR ELEVATOR"L 3)"TO THE LEVEL OF THE MINER'S PICK."} "":" THE PLAYER WHO LOWERS THEIR ELEVATOR" 2)"CLOSEST TO THE PICK WILL SEE IT GET" 2)"LOADED INTO THEIR ELEVATOR AND THEN" 2)"DUMPED ONTO THEIR SIDE OF THE d : MINESHAFT INSTRUCTIONS,nD$(4)4x:;5e5)"THIS IS A GAME FOR TWO PLAYERS.""":"THE OBJECT OF THE GAME IS TO LOWER THE""ELEVATOR IN YOUR MINESHAFT AS CLOSE TO"5)"THE MINER'S PICK AS POSSIBLE." "":"TRY TO M  K:RN"/"RD;:P!TD13,U(7);>VDD1100:DDEWDMZM1_dP120FM0wi(P120)FPF120~n1x0:93,P193,P18193,193,P83,P83,P20103,P20103,P83,PD110:DM0ī1500083,PFF0ĺ"NEGATIVE FRACTIONS NOT ALLOWED!":FF0ĺ"HIT RETURN AND TRY AGAIN.";:FF0ľA$:FF0ī1200o:21~9:N"/"D;26:NN"/"DD;1350 : PICK(X,YX,YU2X,YX(.4U),Y(.2U)<X,YX(.5U),Y(.2U)AF21:17D$)65ľA$:(DD$)65ī1200+DD(DD$)DD0ĺ"IMPOSSIBLE FRACTION!":DD0ĺ"HIT RETURN AND TRY AGAIN.";:DD0ľA$:DD0ī1200 FFNNDDFF1ĺ"IMPROPER FRACTIONS NOT ALLOWED!"FF1ĺ"HIT RETURN AND TRY AGAIN";:FF1ľA$:FF1ī1200eSSIBLE! HIT RETURN AND TRY AGAIN.";+A$51200CNN(NN$)O24:10n"ENTER DENOMINATOR: ";DD$DD$""ĺ"IMPOSSIBLE! HIT RETURN AND TRY AGAIN.";:DD$""ľA$:DD$""ī1200(DD$)65ĺ"IMPOSSIBLE! HIT RETURN AND TRY AGAIN";(DATIVE FRACTIONS NOT ALLOWED!":F0ĺ"HIT RETURN AND TRY AGAIN.";:F0ľA$:F0ī1080[ ao21:16:"PLAYER 2":23:28"---"22:10" ENTER NUMERATOR: ";NN$NN$""ī1266(NN$)65ī12661269#"IMPO65ľA$(D$)65ī1080(D(D$)D0ĺ"IMPOSSIBLE FRACTION!":D0ĺ"HIT RETURN AND TRY AGAIN.";:D0ľA$:D0ī1080FNDF1ĺ"IMPROPER FRACTIONS NOT ALLOWED!"F1ĺ"HIT RETURN AND TRY AGAIN.";:F1ľA$:F1ī1080TF0ĺ"NEG"IMPOSSIBLE! HIT RETURN AND TRY AGAIN.";3A$=1080IN(N$)Q24o"ENTER DENOMINATOR: ";D$D$""ĺ"IMPOSSIBLE! HIT RETURN AND TRY AGAIN.";:D$""ľA$:D$""ī1080(D$)65ĺ"IMPOSSIBLE! HIT RETURN AND TRY AGAIN";(D$)ϫ1020RFRNRD&L((RF)120)20- 3> 105,L143,LGU10QX124[$YL2e.1310k8qB~L21:7:V"PLAYER 1":`23j19)"---"t22~" ENTER NUMERATOR: ";N$N$""ī1155(N$)65ī11551158+8R1008,1009,1010,1011,1012,1013,1014,1015,1016,1017GRD3:1020VRD5:1020eRD7:1020uRD11:1020RD13:1020RD17:1020RD19:1020RD23:1020RD29:1020RD31:1020RN((1)32):RNRDī1020RN0140167,140 SY1ı& D110:D- 0\ SX,SYSX,SY20SX20,SY20SX20,SYSX,SYs SYSY5:SY1SY1| 700  : EQUAL DISTANCES FROM PICK RFX83 \SX145 fFYP pSYPP zYL2   : LOAD R((1)11):R0ī1005X20,FYFX,FY N13104 XFYFY5:YY5:FY1FY1F ]FY1YFY18O b500m  : UP COMES LOSING SHAFT 0:SX10,SY1SX10,SY6 1 SX10,1SX10,SY SX,SYSX,SY20SX20,SY20SX20,SYSX,SY F1ē81,140105,140 FF1ē143,FX10,FY6 1( FX10,1FX10,FYW FX,FYFX,FY20FX20,FY20FX20,FYFX,FYp F1ē81,140105,140 FF1ē143,140167,140 3 !TTTĒ0 "TTTYL2 &1310 +FY1ī700 0D110:D :0 DFX,FYFX,FY20FX20,FY20F2 T1310 YTTTİ800! ^30 hTTTX93A rTTTYP18Q |TTTX155c TTTYPP18m 1310} TTTFX83 TTTSX145 TTTFYP TTTSYPP TTTFX145 TTTSX83 TTTFYPP TTTSYP 0:FX10,FY17WW231" H8W7:H8WW2410 H8ī100? H0ī100G CHP CCHZ 3000d +1000} , : LOADING THE PICK -E13 .A150 /SOUND(16336) 0A:306 1303 2D1100 3D:309 4301 5E 60 @X124 JYLɌ P16384Z::10Hd"HOW MANY MINER'S PICKS TO WIN (8 IS MAX)"Si19:HmnH1W77:H1WW171xH2W67:H2WW181H3W57:H3WW191H4W47:H4WW201H5W37:H5WW211H6W27:H6WW221 H7W17:H!! ! ! ! ! !!!!!!!!!""" " " " " """"((R(RW))100)9 "PERCENTAGE MATCHED CORRECTLY: "P"%"]( 12:"NAMES OF NUMBERS MISSED:"f2 BB$q< 17:1F "PARENT OR TEACHER:"K (S$)70ī2670P "PRESS TO CONTINUE THIS"R " SEQUENCE." T :"PRESS TO RESTART ATHE PROGRAM"' 12)"HAS JUST BEGUN."W :::10)"HIT ANY KEY TO BEGIN.";:A$:10y 8)"**** SCORE SHEET ****" 4:" TOTAL NUMBER OF NUMBERS APPEARING: "RW 7:"NUMBERS MATCHED CORRECTLY: "R "NUMBERS MATCHED INCORRECTLY: "W P(S$)70ī250010' : INCORRECT1 WW1> I(BB$)M I0ī2400X$ C1Ih. W$(BB$,C)w8 P$(W$,1)B N$P$ī2410L CV BB$BB$" "` BB$BB$N$j 10 : SCORE : RW0ī2540  2)"THERE IS NO SCORE SINCE B  :23'"MATCHES:"S$;2 22:1S "(PRESS FOR SCORE.)";^421:1yH"MATCH THIS NUMBER:";RANS$\ANS$(27)ī2500pANS(ANS$)ANSN%ī2300 : CORRECTRR1C15:(7);:CS$S$"*" 0:14,11+12,1713:14,18:15,19:16,20N17,2321:24,20:25,19:26,18T^ : 0gN%0rN$"0"13,2913:14,30:15,31:16,3217,2333:24,32:25,31:26,3029,1327:26,12:25,11:24,10 23,179:16,10:15,11:14,12@  U*@*U*@@A @@X(.7U),YUX(.7U),Y!> : PROCLAIMING A WINNERJD110U(7);fDD125:DDmDw:22}8C0W1CC0W2"PLAYER "W" IS THE WINNER!";:24:5"PLAY AGAIN?";:A$A$"Y"ī80:6(.8U),Y(.7U)X(.6U),YUX(.2U),YUX,Y(.8U);VE` : 3jX,YX(.8U),YX(.8U),Y(.4U)X(.6U),Y(.5U)X(.4U),Y(.5U)X(.6U),Y(.5U)X(.8U),Y(.6U)X(.8U),YUX,YUt~ : 4X,YUX,Y(.4U)X(.8U),Y(.4U)BER SHAPESa : 3120-1 3170-2 3220-3 3250-4 3290-5 3320-6 3360-7 3390-8 3430-9 3470-0k : 1zX,YX,YUX(.2U),YX(.2U),YX,YUX(.2U),Y(.7U)$. : 28X,YX(.8U),YBX,YX,Y(.2U)5LX,YX,Y(.2U)X X1814 3710> : 3/4%H X62/R Y1079\ 3680Cf X181Mp 3680Vz X62` Y119j 3710t X181~ 3710 1 83,P83,P20103,P20103,P83,P : P/120 1 145,PP145,PP20165,PP20165,PP145,PP  : NUM,95'N 71,12581,125:167,125177,1259X : FRACTIONSDb U6:3Ml X65Vv Y77` 3580j X184t 3580} X62 Y89 3630 X181 3630 : 1/4 X65 Y47 3580 X184 3580 X62 Y59 3710*167,140 : FRACTION LINES? 61,8081,80:167,80187,80_ 61,5081,50:167,50187,50 61,11081,110:167,110187,110& : UNMARKED FRACTION LINES0 71,3581,35:167,35177,35: 71,6581,65:167,65177,65D 71,9581,95:167,95177Ē0 1310C0ī4000,CC0ī4000=TTTWW10PTTTWWWW10Wl0hv106,L142,Lu{P1:PP11000  P1:PP1 1 81,2081,140:105,20105,140 81,140105,140 143,20143,140:167,20167,140 143,140@145,PP145,PP20165,PP20165,PP145,PP7JPPPP2GTMM1ī1500W^ : TESTINGihT((P20)L)}rTT((PP20)L)|300 : SCORING01310TTTXWTTTXWWTTTCC1TTTCCCC1Y153TTT83,P20103,P20103,P83,P&PP25M1ī1380;DMM1YPP120FFMM0u(PP120)FFPPFF1200:155,PP1155,PP181155,1155,PP145,PP145,PP20165,PP20165,PP145,PP"D110:D,MM0ī163060+