' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 7777777 7777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#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 < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`T 3e`0PPPPPP@@@UUUUUUUUUUUUTTTTTTTTTTTT@? 33 33 33333333 3d3 33`0L000033 33 33 ?@333333 3d3 0000@0`@]w]w]w]w]w]whE&D?J( EP(@ B@(@8$A f@HD P O{H0r p LM/ఐp p!?D" UUTTU77~>~~~0``>~~~~>bBBF0 ~~~~>FBBb> 0~~~>~Ą``077//@@66,,ll4437//36,,l44`ĈsL х ` RP6PDH)#n6,6ph" ֩PyQ AL6h) `x0x| x0`00`0000000000`0000`l000܌x0xx0000 0``0 0x`0x |||| ||x|8l````|| x0p000x8pp00000xxx|| |x ````l8|x0``xxxx| 00000`0``0`0 0`x000x|0xxx||00000 xxxxlxx x000000xx0PAUSCWININj]mjmfj9k\kkkkkkkdkklmGmmmn`000000lllXXXXX0|x<00` ``t0`0``00 00x0x00000 @0 0`xx0p0000xx 8` 8 x8x x<`x 0`pʝo) ,po9qp Ю 9pLo ` ֩PyQ AL ,pqpBp`$p#p p#p$p` ~LpH)hJJJBp`LANCS AZ09!/:@[`{~ @BOHOOUNHOOCECRDFAFPARSNOJUSJUSCNNOCNGCDVSHSSPACCE),PY58(TA12)PX70(PL12),PY43(TA12)PX58(PL12),PY43(TA12)PX58(PL12),PY58(TA12)s(*5ZX113700(/5A(0):A(1)(45:CO,PX60(PL12),PY46(TA12):"?"(>5A(5):AA128:A48A57136156)C5CO,PX60(PL12),PY46(TA12):" "::(PL))13380t'?4CO,PX40,PY95:"NO, TRY AGAIN.":30000:AFT,1:CN$:HSP,4:CO,PX40,PY95:" ":13360'D4C0:13900:PL'I4AA(0):AA(1)'N4CO,PX10,PY95:"RIGHT!"'X4' 5CA(PL)0ıc(%5C:PX58(PL12),PY58(TA12)PX70(PL12)0NB(PL1)1&3PL'&3T32:PL14K&4PL2VA(PL)0VA(PL1)013385Z&4C3:13600s&4C0:ZX1:13600:ZX0&&4C3:13900&04CO,PX60(PL12),PY63:"?"&:4A(0):A(1):A(5):AA128:A48A5713370 '<4CO,PX60PL12,PY63:(A):(A)(VA %h3VA(2)VA(2)((B$(X),4,1))@%r3VA(3)VA(3)((B$(X),3,1))`%|3VA(4)VA(4)((B$(X),2,1))g%3Xs%3PL14%3VA(PL)VA(PL)CC(PL)%3VA(PL)1013250%3A$(VA(PL)):B$(A$,1):C$(A$,1)%3CC(PL1)(B$):VA(PL)(C$):CA(PL1)1&3VA(PL195:"NO, TRY AGAIN.":T31:30000:AFT,1:CN$:CO,PX40,PY95:" ":BOX,PX,PY63,PX48,PY73:XCXC1:XC2XC0:13130$@313000$J3X15:VA(X)0:NB(X)0:CA(X)0:CC(X)0:X:BOX,PX,PY63,PX58,PY73$T3X15%^3VA(1)VA(1)((B$(X),5,1))ST 5 TIMES' from":" Race Time"::" 5. Return to Management Options":" menu"/:"Which number? ";:INP,(1,"-15",1),O$:(O$)12500,12600,12100,12200,12300/12000D/12400:Z$"Y"Z$"y"12000K/CL$:CO,0,89:"Clearing 'TOP 10 SCOR.:"Options:":." 1. See 'TOP 10 SCORES' list":" from the Repeat after Me game"::" 2. See 'BEST 5 TIMES' list from":" Race Time":W." 3. Delete 'TOP 10 SCORES' list":" from the Repeat after Me game"::" 4. Delete the 'BE:"1. EASY":DE$(A,1)::CO,0:"2. MEDIUM":DE$(A,2)::CO,0:"3. HARD":DE$(A,3):9+CO,0,160:"Which level? ":CO,104,160:INP,(1,"-13",1),A$:AA(A$):936A,AA1>+D$"BSAVET.O.FILE,A900,L41":H+11000.CL$:CO:"Check Best Score Lists"CC$.."D$((938))7+" 3. The Fence Game...."D$((939))a +" 4. Repeat after Me..."D$((940))*+:"Which game? "::" (Press RETURN to exit.)":CO,96,99:INP,(1,"-14",0),A$:A(A$):A$""ıS4+CL$:WIND,24,0,279,191:CO:DE$(A,0)CC$::CO,0*WIND:CL$:CO:"The level of difficulty for each game can be set for easy, medium, or hard. This setting does not affect the difficulty of the problems. Current settings are:":+" 1. Three in a Row...."D$((937))  +" 2. Zebug Nim.......(N1$,L1):NA$","%7#N1$N1$NA$:L+<#D#62)"M":59)"C A"#50)"N"8)"O S":50)"U L G G R T":50)"M E R I R E"#50)"B V O V E R":50)"E E U E C Y":"NAME"46)"R L P N T Y"#I179:"-";:::'RNH,"PRINTER SUPPORT"4^D$"READSTFILE,R"R:A$(X):(A$(X),1)"0"X100NhX:D$"CLOSESTFILE":(#NA$"":N1$"":N$(A$(X),25):L$(A$(X),27,1):G$(A$(X),28,1):GI$(A$(X),29,2):CO$(A$(X),31,2):MA$"NO":(A$(X),1)"1"MA$"YES"4#L125:NA$(N$,L,1):NA$"*"N1$):2L);G$;:L(GI$):3L);GI$;:L(CO$):3L);CO$;" ";MA$XFEED,3,F:Fİ9100:F0kX:FEED:POFF24576:CL$:CO,0,90:"Printing complete.":30000:@D$"OPEN STFILE,L35":D$"READSTFILE,R0":A$:R((A$,3))1TX1100:RR1:R0R100136,16&.dà 14,211,11,257,33,5,231,16D.nà 16,23,58,69,80,25,43,65e.xà 18,211,58,257,80,27,231,65.à 20,23,105,69,127,15,43,112.à 22,117,105,163,127,7,136,112.à 24,211,105,257,127,16,231,112. 25,5,6,5,7,5,8,5,9,5,10,5 Y6310P(P)P(P)R6080%(#5m2#L15:72L,110L202L,110L202L,140L72L,140L72L,110L:L<#AFT,1:CN$:HSP,2:CO,95,120:"Zebug Nim"CO$A#CO,95,155:"Do you want":CO,87,165:"instructions? ";:DB:36000:Z$"Y"Z$"y"9120F:L5:F1:6295MR(2F)2(L1)R(2F)2(L1)1R2:PL(1):L5:F1:6295R(2F)4L1R(2F)4L2RP(L(2F))4L2:PL(2F):L5:F1F:LP6080L110:6060:P(P)P(P)R:P(1)P(2)P(2)P(3)P(1)P(3)6305P(P)P(P)R:L:1:PL(1):L5:F1:6295UR(1F)2LR(1F)2L1RP(L(3))1:PL(3):L5:F1:6295R(2F)4L1R(2F)4L3R1:PL(1):L5:F1:6295R(2F)4L2R(2F)4L1RP(L(2F))4L1:PL(2F):L5:F1:6295R(2F)2LR(2F)2L1R2:PL(1)F)2LR(1F)2L1RP(L(3))1:PL(3):L5:F1@~F:L:6300L1R(3)4:F01:R(2F)4LR(2F)4L3RP(L(2F))4L3:PL(2F):L5:F1:6295R(2F)4L3R(2F)4LRP(L(2F))4L:PL(2F):L5:F1:6295R(2F)4LR(2F)4L2R:PL(2F):F1:L5!oF:L:6300{tL1R(3)4:F01:R(2F)4LR(2F)4L2RP(L(2F))4L2:PL(2F):L5:F1:6270vR(2F)2LR(2F)2L1R1:PL(1):L5:F1:6270yR(2F)4L2R(2F)4LRP(L(2F))4L:PL(2F):L5:F1:62700{R(1P(L)6VL:R(3)0:L13:P(L)R(3)R(3)P(L):L(3)L=[Lx`P0:L(2)6L(3)L(1):R(2)P(L(2)):R(1)6245,6260,6275eL1R(3)2:F01:R(2F)2LR(2F)2L1RP(L(2F))2L1:PL(2F):F1:L5:6255jR(2F)2L1R(2F)2LRP(L(2F))2LL)P(L2):PL:6080==P(1)P(2)P(2)P(3)P(1)P(3)6225X?P(1)P(2)P(3)36300BP(1)P(2)RP(3)(P(1)P(2)2):P3:6080GP(2)P(3)RP(1)(P(2)P(3)2):P1:6080LRP(2)(P(1)P(3)2):P2:6080QR(1)8:L13:P(L)R(1)L(1)L:R(1)M2}ZM01:ZP(ZL):(ZP);:ZM(ZP127):ZLZL1:ZM:" error at line #"ZN"."2}:"Please report this error to MECC.":30000:310002(1);:GCP,ZX,ZY2CO,ZX1,ZY:INP,(1,"YNyn",1),Z$22ZÃ12,1,5,12f3dà "I",0,"A",1,"F",1,"L",1,"G",1,"F",0":32105B1P}ZE8ĺ"Diskette bad - drive or format error.":32105m1Z}ZE9ĺ"This diskette is full.":321051d}"DOS error number "ZE" at line #"ZN".":321501i}30000:310001n}ZL53856ZE1}ZE255ĺ"Error ctrl-C hit at line #"ZN".":30000:31000WIND:RNH,"EXIT MANAGER"=0}:ZE(222):ZN(218)(219)256U0}(15):ZE1532110_0}ZUĦs0(}(12):CO,0,890<}ZE2ZE3ZE7ĺ"Please check your diskette parameters.":321051F}ZE4ĺ"Please remove the write protect sticker from your diskette.70(PL12),PY61(TA12)(CA(PL)13)4PX58(PL12),PY61(TA12)(CA(PL)13)4PX58(PL12),PY75/W6YPY60:X2PX58:X1X2(((AN))11)5:3:X1,YX2,Y/`6/0uCO$:BOX,0,185,279,191:SPACE:BOX,0,185,279,191:0y903,NP:904,SS:CA$CO$:SET,0:,"G",0,"I",1,"B",1,"K",1,"C",0,"B",0,"C",1,"D",1,"H",1,"K",0,"O",0,"A",0,"E",0,"E",1,"J",1,"M",0,"N",0T"M",0,"N",0D",0,"B",0,"C",1,"D",1,"H",1,"K",0,"O",0,"A",0,"E",0,"E",1,"J",1,"M",0,"N",0SBđI؁CđSBđI؁Crl-C hit at line #"ZN".":30000:31000t-}ZM01:ZP(ZL):(ZP);:ZM(ZP127):ZLZL1:ZM:" error at line #"ZN"."-}:"Please report this error to MECC.":30000:31000-BOX,0,138,279,191,0:-Pà 10,23,11,69,33,6,43,16.Zà 12,117,11,163,33,26,ite protect sticker from your diskette.":32105i,P}ZE8ĺ"Diskette bad - drive or format error.":32105,Z}ZE9ĺ"This diskette is full.":32105,d}"DOS error number "ZE" at line #"ZN".":32150,i}30000:31000,n}ZL53856ZE&-}ZE255ĺ"Error ctMAAAMAMAn;K]wAMAMAAAMAMA]wK;nAMAMAAAMAMA;nKw]AMAMAAAMAMAw]Kn;AMAMAAAMAMAn;K]w@L@L@A@L@L@]w]wK;n9o6,8p`@G 0`@G A G@`0 G@`0X5A(5):AA128:A48A5713615C.C5CO,PX60(PL12),PY46(ThBHSP:VSP,3:CL$"Use of ESC Key"CC$:CO,0,70:"You may want to quit in the middle of a program. If so, press the ESC (escape)";|B" key twice whenever the computer is waiting for you to type.":VSP:900:yQFĺCF$CB$:QF0:220"y200&/BOX,PX20,PY2,PX90,PY120b&/Z6:X15:ZZ1:B$(Z)A$(X):X&D/HSP,4:BOX,0,11,279,191:CO$:WIND:CO:CEL:"Problem "NP1" of 12"CC$CN$:6:0,10279,10&N/L15:CO,PX,PY12(L1):B$(L):L'S/LXPX37:CO,LX(A(3)A$(3)A$(3)(C)1%+A(4)A$(4)A$(4)(D)8%+XP%+A$(1)(A$(1),A(1))h%+A$(2)(A$(2),A(2))%+A(3)0A$(3)(A$(3),A(3))%+A(4)0A$(4)(A$(4),A(4))%,X14:A(X)(A$(X)):ANANA(X):X%,%.X1NN1%.(A$(X))412040&.0:ZZZ<$H+A((1)(ZTL))1TL:B((1)(ZTL))1TL:NN2a$\+A(3)C((1)(ZTL))1TL:NN3$p+A(4)D((1)(ZTL))1TL:NN4$z+QABCDC(X1)$+TP9(TL10)$+Q(TL10)11080$+QTP11080$+A$(1)A$(1)(A)$+A$(2)A$(2)(B)%+#(TA2:A(1)2:A(2)2((1)2)1:A((1)2):C(3A)1:11000#)X13:A(X)3:X:A(4)(3((1)2)):C(3((1)2))1:TA3:A(4)0TA4#)C(2)((1)2)#*X0:C0:D0# +XX1:A(X)11020# +Z8X:ZZZ#*+X14#4+C(X)Z9:TLC(X):11080$>+TL2:A(4)(2((1)2)):TA3:A(4)0TA4H"(C(3)((1)2):C(4)1:11000u"(C(4)1((1)2)1:X14:A(X)2:X:TA4"(C(3)((1)2):11000"(TA2:A(1)3:A(2)3:C(3)1:11000"(TA2:A(1)4:A(2)4:C(2)1:11000"(TA2:A(1)3:A(2)4:C(2)1:11000=B$"":C$"":D$"":E$"":F$"":XC0f!2(OB10310,10330,10350,10370,10400,10420,10440,10460,10480,10500!F(TA2:A(1)2:A(2)2:C(4)1:11000!Z(TA2:A(1)2:A(2)2:C(3)1:C(4)1:11000!n(TA2:A(2)2((1)2)1:A(1)1:C(4)1:11000'"(A(1)2:A(2)2:A(3)61,0)P(L5,L61,0)P(L51,L6,1)L$(65L51L64):Z1:L51:L62N L6:L5T d 'AFT,1:CN$w $'R((1)NO)1 .'OB(R)010020 8'NP(R)010020 B'NP(R)NP(R)1 L'OBOB(R)"!~'T30:KQ0:SC0:NN0:AN0:X14:A$(X)"":A(X)0:C(X)0::A$"":L$"":L502:L601:P(L5,L6,0)P(L5,L6,1)P(L51,L6,1)P(L51,L61,1)P(L51,L61,1)P(L5,L62,0)P(L5,L61,0)L$(65L5(L61)4):Z0:L52:L61L6:L5:L$""7950B L501:L602:P(L5,L6,0)P(L5,L6,1)P(L51,L6,0)P(L52,L6,1)P(L51,LL5,L6,1)P(L51,L6,1)P(L5,L61,0):Z1L7L5:L8L6:L52:L62:L$"X"^L6:L5:L$""7830L(0)P(L7,L8,0):L(1)P(L7,L8,1):L(2)P(L71,L8,1):L(3)P(L7,L81,0):L03:L(L)LLL:L3LL$(65L7(LL2)(L8(LL3))4):Z(LL1)(LL2)X(W(1)W(0)):BOX,0,159,279,191:CO,1404((N$(X))6),160:CO$N$(X)" wins!":A(0):A(1):A(5):AA128:L$(A):A8A1277720#L$"A"(L$"P"L$"a")L$"z"7700%L$"a"L$((L$)32)(FxL$"":L502:L602:ZP(L5,L6,0)P(5)MU,20:L:30000:xLCG$(7MU):L502:L602:P(L5,L6,0)P(L5,L6,1)P(L51,L6,1)P(L5,L61,0)P(L5,L6,2)İ7520VL6:L5:RVFTFT:RV0[`CO,L54023,L64027:CG$CG$CO$N$(FT2):P(L5,L6,2)1:P(L5,L6,3)FT:W(FT)W(FT)1:7300:RV1:QNL(N$(0)):(N$(1))NLNL(N$(1))IFT1:X((1)8)6:L1X:FTFTuCO$:BOX,9,159,8NL8,167,FT3:FTĞCO,10,160:N$(0)::BOX,9,169,8NL8,177,FT3:FTĞCO,10,170:N$(1)::CO,188NL,165:"will start this game."PLAY,(30FTjBnBnD ~C@xx@C~EՀQFA ?@@C~CՀQF ~CC~~CC~CՀQjGՀEBABHQՀFABCFQՀGBABFQjGVՀQVՀQVՀQjGՀVQՀVQՀVQjGXQXQXQlOpPPAOlSSAOiWWAOeZZAOGXPKKPXQjGՀVQՀVQՀVQjGVՀQVՀQVՀQjGՀVQՀVQՀVQjGOGՀD GLNBŕՀELՀFAACElOGVՀNAJAGDANVՀlOGՀVQՕDHՕQՀVlOGVRFBBFRVlOG\NLLN\AOsMMAOGՁVQFBBFQՁVlOGVՀRADIRVՀlOGՀVNAIGCNՀVlOGD px`pxxEՀLNBELFAxBC@ACՀlՀQFEAAEՀQFCEՀlOGՀVQՀVQՀVlOGVՀQVՀQVՀlOGXPKKPXlOe[[AOhWWAOlTTAOoPP BKBKGZQZQZpKGVՀQVՀQVՀlOGՀVQՀVQՀVlOGVՀQVՀQVՀlOGՀD08<4C0A|AEQՀF @`pXLF~~@@CQՀF |~~~~|ClOGLAG     Ġ͍٠΍,4,2,5,2,6,2,7,2,8,2,9,2,10,2,,191:FF60558 CO,10,120::CO,10,120:N$"'s turn:" CO,31,135:"Which row? ":CEW:CO,119,135:INP,(1,"-13",1),X$:P(X$):P(P)06040 CO,31,150:"How many? ":CO,114,150:INP,(1,"-17",0),X$:X$""6040 R(X$):P(P)R6045 20030L P(L)5050) Z25:AFT,2:CN$Z L21P(L):CO,Z,1530L:ZE$(3):ZZ20:L2a Lg t p(GA)ı uCL$:5000 zFT1İ9000: |FT2İ9900 FT(FT):9950 FFFT:30000 FF(FF):P(1)P(2)P(3)0ı BOX,0,100,279cker from your diskette.":32160k7P}ZE8ĺ"I/O error. Please check your disk drive and diskette.":321607n}(12):CO,0,897}"Error "ZE" at line "ZN" in Race Time."7}:"Please report this error to MECC."7}30000:310008PÃ20,10,1,2,2,2,3,2yCA$CO$:903,NP:904,SSG6"yCO$:HSP:SET,0:WIND:RNH,"EXIT MANAGER"{6}:ZE(222):ZN(218)(219)256:216,0:320006}WIND:VSP,1:ZE255310006}(15):ZE15321106}ZUĦ6(}(12):CO,0,89 7F}ZE4ĺ"Please remove the write protect sti555L6C:PX58(PL12),PY75PX70(PL12),PY75PX70(PL12),PY61(TA12)(CA(PL)13)4PX58(PL12),PY61(TA12)(CA(PL)13)4PX58(PL12),PY755W6YPY60:X2PX58:X1X2(((AN))11)5:3:X1,YX2,Y5`650u(1):CO$:HSP:SPACE::60(PL12),PY46(TA12):"?"'495A(5)>4>5A176A185136154C5AA128:CO,PX6012PL,PY46TA12:(A):(A)(CC(PL))137004H5CO,PX40,PY87:"NO, TRY AGAIN.":PAUSE,10GA4M5(GA)İ300005R5HSP,4:CN$:CO,PX40,PY87:" ":136153S4(GA)įBOX,XQ,YQ,XQ32,YQ40:2000+3X4;3 5CA(PL)0ı3%5C:PX58(PL12),PY58(TA12)PX70(PL12),PY58(TA12)PX70(PL12),PY43(TA12)PX58(PL12),PY43(TA12)PX58(PL12),PY58(TA12)3*5ZX1137003/5A(0):A(1)445:CO,PX6=2<4AA128:CO,PX60PL12,PY63:(A):(A)(VA(PL))13380p2?4CO,PX40,PY87:"NO, TRY AGAIN.":PAUSE,10GA2A4(GA)İ300002B4HSP,4:CN$:CO,PX40,PY87:" ":133602D4C0:13900:PL2I4A(0):A(1)2N4CO,PX10,PY87:"RIGHT!"%L1)1!13VA(PL1)0NB(PL1)1)13PLB13 MAIN STEP THREWS13T32:PL14w14PL2VA(PL)0VA(PL1)01338514C3:1360014C0:ZX1:13600:ZX01&4C3:13900104A(0):A(1):CO,PX60(PL12),PY63:"?"154A(5)1:4A176A18513360(1)((B$(X),5,1))30h3VA(2)VA(2)((B$(X),4,1))S0r3VA(3)VA(3)((B$(X),3,1))s0|3VA(4)VA(4)((B$(X),2,1))z03X03PL1403VA(PL)VA(PL)CC(PL)03VA(PL)101325003A$(VA(PL)):B$(A$,1):C$(A$,1)13CC(PL1)(B$):VA(PL)(C$):CA(PBEERFEEACOCABBAASG@FAFCDTAHBABǀBEEBBB[BBSFEBBBBSAHBBIACDCDB]BBSFACDB ̀BCAxA~BA~AxxBAxxBAxSBS x|~~NNNN~|xR@x|~~NNBN~|xIAHBABBCAAB?AA B0A A B0A AWDAS ??<99<99sWS0:AFT,0:1:0,22279,22:6:CN$:Z1:L110:Z,20Z15,20:ZZ20:L:CO,210,2:"Score ";:AFT,1:CN$;:5:247,0279,0279,14247,14247,0?sSCNM:NM1SC0 @sBOX,249,2,277,12,4:CO,2606(SC9),2:SC:AFT,2:CN$:NM0Z1:L1NM:CO,Z,3:P " FADE OUTaAFT,2:CN$:PAUSE,3:CO,X5,Y16:"HI":PAUSE,3:CO,X5,Y16:"JK":PAUSE,3:CO,X5,Y16:BOX,X5,Y16,X20,Y31:e" FADE INeAFT,2:CN$:PAUSE,3:CO,Z,3:"HI":PAUSE,3:CO,Z,3:"JK":PAUSE,3:CO,Z,3:P2$:NK90K91:DE1:29500CNK91DE0:29500HN20010 aC1:NO:OB(NO):A:L11A:A,B:L21B:OB(C)A:CC1::,3R(ZH)((1)(ZHZL1))ZL(ZH0):KB(ZZ)((ZZ127)(2(ZZ141))(3(ZZ155))(4((ZZ176)(ZZ185)))(5(ZZ149))6(ZZ136))3PN1:SC0:ZL1:L11503Z1R(NO):Z2R(NO):Z1Z213(X)2:X:TA47 (A((1)2)1:C(A)((1)2)2:11000C ( WA30h (TA2:A(1)3:A(2)3:C(3)1:11000t ( WA31 (TA2:A(1)4:A(2)4:C(2)1:11000 ( WA32 (TA2:A(1)3:A(2)4:SC1:11000 ( WA33(SC2:TA2:A(2)2:A(1)2((1)2)1:A"31111110000001","21111000011000","21111001313000","22222000000000","32222220000000","23333000000000","23411000000000","23422000000000"1փ "21111001111002","21111002323002","22222000000001","32222220000001","23333000000001" 0PòDATA AREA\0ZÃ32,42,52,62,72,82,92,102,112,122,238,228,218,208,198,188,178,168,158,1480dÃ13,9,2,11,2,12,2,13,2,14,2,15,2,16,2,17,2,18,2,19,2,20,2,21,2,22,20ֲ LINES,DIGITS[1..3,LOW..HI],MULTIPLIER POWER[1..3,LOW..HI],CARRY TYPE 1փ "-INIT",ԷҠŠԱҠŠԲҠŠԳҠŠԴҠŠԵҠŠԶҠŠ)(A$(3),A(3))0*+A(4)0A$(4)(A$(4),A(4))W*,X14:A(X)(A$(X)):ANANA(X):X]*,j*.CTCT90u*.X15*.(A$(X))412040*.A$(X)" "A$(X):12020*/X* /BOX,PX18,PY,PX125,PY20*/BOX,PX18,PY5,PX90,PY98+/Z6:X15:ZZ))1TL:NN4!)z+QABCDC(X1)2)+TP9(TL10)G)+Q(TL10)11080W)+QTP11080l)+A$(1)A$(1)(A))+A$(2)A$(2)(B))+A(3)A$(3)A$(3)(C))+A(4)A$(4)A$(4)(D))+X)+A$(1)(A$(1),A(1)))+A$(2)(A$(2),A(2))*+A(3)0A$(30TA4"()C(2)((1)2):110002(*X0:C0:D0H( +XX1:A(X)11020W( +Z8X:ZZZb(*+X14(4+C(X)Z9:TLC(X):11080(>+TL0:ZZZ(H+A((1)(ZTL))1TL:B((1)(ZTL))1TL:NN2(\+A(3)C((1)(ZTL))1TL:NN3 )p+A(4)D((1)(ZTL(1)2):110003'(TA2:A(1)3:A(2)3:C(3)1:11000X'(TA2:A(1)4:A(2)4:C(2)1:11000}'(TA2:A(1)3:A(2)4:C(2)1:11000'(TA2:A(1)2:A(2)2((1)2)1:A((1)2):C(3A)1:11000()X13:A(X)3:X:A(4)(3((1)2)):C(3((1)2))1:TA3:A(4))1:110006&Z(TA2:A(1)2:A(2)2:C(3)1:C(4)1:11000g&n(TA2:A(2)2((1)2)1:A(1)1:C(4)1:11000&(A(1)2:A(2)2:A(3)2:A(4)(2((1)2)):TA3:A(4)0TA4&(C(3)((1)2):C(4)1:11000&(C(4)1((1)2)1:X14:A(X)2:X:TA4'(C(3)(RS):.(} USERS ENTRY POINT (WHERE THE USER JUMPS BACK TO)N.2}(12):CO,0,89.<}ZE2ZE3ZE7ĺ"Please check your diskette parameters.":32105.F}ZE4ĺ"Please remove the write protect sticker from your diskette.":32105/P}ZE8ĺ"Diskette bad - d0020 -HN"-0uCO$:SPACE:(1):8-y" ENDING ROUTINEc-"yCA$CO$:SET:WIND:RNH,"EXIT MANAGER"-} STANDARD ERROR PROCESSING (HI-RES)- }ZE(222):ZN(218)(219)256-}(15):ZE1532110.}ZUĦ: ZU IS THE USER PROCESSING FLAG (FOR DOS ERRO0:WIND,14,160,265,181:(BY)BY1:CO,14,160:"Do you want instructions? ";:INP,(3,"YESNO",1),A$:A$(A$,1):A$"Y"A$"E"A$"S"İ2000,4NNP2020040,9N10000:12000:SSSS(T30),>NNP5(NP5)įBOX,0,158,279,191,0:BOX,58,0,222,30,0:1000-CN2CЪՊ@@CЪՊABAB@B@@A@ժ@EŪբEѪՊEԪժGԂGՠтGԀтժDԨԁGՊѪՂGՊѪՂGՊѪՂEբŪEըEՂEժԪEՊЪAA@@GŠGŊТAժ@CԪժ@@BBGՊЪAժAAժ@CԪժ@@CЪՊ@@CЪՊABAB@B@@ *@@A@BABACЪՊ@@CЪՊ@@CԪժ@AժAժAAժAAՈCЪՊ@@CԪժ@AժAժAAժAAժA@ժ@EEAAтAAՂGըՂժ@ԂGՊѪՂGՊѪՂGՊѪՂEբŪEըEՂ@Ԫ@EЪՊEՀ@@GՊѪՂEբŪEըEՂEժԪA@EGբŪGՊЪAժAAժ@CԪժ@@CЪՊ@@CЪՊABAB@B@@ *@@A@BABACЪՊ@@)010020%8'NP(R)010020.%B'NP(R)NP(R)1;%L'OBOB(R)%~'T30:KQ0:SC0:NN0:AN0:X14:A$(X)"":A(X)0:C(X)0::A$"":B$"":C$"":D$"":E$"":F$"":XC0%2(OB10310,10330,10350,10370,10400,10420,10440,10460,10480,10500 &F(TA2:A(1)2:A(2)2:C(416,YQ(9(L111RV))(6(L113RV))(4(L114RV)):ZR$(15):::CO,XQ16,YQ9:ZR$(11RV)q$kRVįAFT,1:CN$:$nPAUSE,10:BOX,XQ,YQ,XQ32,YQ40:$'AFT,1:CN$$'L20:L1NO:L2L2NP(L):L:L2R((1)NO)1:10060$$'R((1)NO)1 %.'OB(RAFT,0:CN$?+"yCL$:SET,0:903,NP:904,CP:RNH,"EXIT MANAGER"d+}:ZE(222):ZN(218)(219)256|+}(15):ZE1532110+}ZUĦ+(}(12):CO,0,89+<}ZE2ZE3ZE7ĺ"Please check your diskette parameters.":32105/,F}ZE4ĺ"Please remove the wrO$"GO!".#BOX,40,6,180,19:BOX,40,22,180,354#j#AFT,5:CN$:L13:CO,XQ,YQ:ZR$(L):PAUSE,4::#PAFT,5:CN$:CO,XQ,YQ:ZR$(4)#dL13:L111RV14RV:CO,XQ16,YQ(9(L111RV))(6(L113RV))(4(L114RV)):ZR$(L1):PAUSE,1[$iCO,XQ16336MU):L5:P((X5)40,(Y5)40,0)1.1FT:872001FT:L546:XL5FT,Y11XL5FT,Y39:Z(16336MU):L5:P((X5)40,(Y5)40,1)1.1FT: X(L$)65:Y(X4)405:X(X(X4)4)405:CN$:L401:CO,213,40L480:W(L4):L4:$DB:PAUSE,8:" and ";((L$)1Z3)".":30000FDZ17000,7100:7500gNFTFT:T:NP12İ7600:6999SBOX,0,159,279,191:CO::CO,5,170:CO$"Time out for some more problems..."W30000:CL$:X7200.]1FT:L546:X11,YL5X39,YL5:Z(ɺCN$:CO,98,40:ZR$(4):CO,151,55:CO$"Set...""PAUSE,5:AFT,5:CN$:CO,114,40:ZR$(5):PAUSE,2:L13:L113:CO,114,40:ZR$(5L1)"<":PAUSE,1::#AFT,5:CN$:CO,114,40:ZR$(9)"<":PAUSE,5:CO,114,40:ZR$(15):CO,114,49:ZR$(10)"<":CO,151,65:C be given 20 problems. Each correct answer will make your car move.":WIND:30000:BOX,65,85,215,140!BOX,85,7,195,32:3:80,20195,20195,2180,21!CO,48,9:"Computer":CO,48,25:N$:XQ98:YQ40:5100:CO,151,45:CO$"Ready..."."PAUSE,5:AFT,5:,8510L:RT(L)::o RT(4)0įCO,50,148:"Beat "RT(4)" seconds to add":CO,50,164:"your name to the list!" 30000:BOX,95,45,210,70:BOX,41,73,238,84:BOX,40,85,238,135:BOX,50,148,233,157:BOX,50,164,230,173e!WIND,65,85,215,140:CO:"You willCCCC1:CT0:CC21İ100+HSP,4:=RT(0)05032M5010:5020CQ$:CO,95,45:"The best times":CO,95,55:"so far are:":CO,64,73:"Name":CO,208,73:"#sec":3:62,8194,81:206,81238,81 L04:CO,40,8510L:L1". "RN$(L):CO,217 FENCE GAME",9,"REPEAT AFTER ME",20,"RACE TIME",0,"VERY GOOD!","TERRIFIC!","NICE JOB!" I/O error. Please check your disk drive and diskette.":32160Rn}(12):CO,0,89}"Error "ZE" at line "ZN" in Exit Manager."}:"Please report this error to MECC."}30000:31000W@"RACE TIME",17,"",0,"THREE IN A ROW",18,"ZEBUG NIM",16,"THEMENU"0uSPACE:y1000N }ZE(222):ZN(218)(219)256:216,0:32000m}WIND:VSP,1:ZE25531000}(15):ZE1532110}ZUĦ(}(12):CO,0,89F}ZE4ĺ"Please remove the write protect sticker from your diskette.":32160>P}ZE8ĺ"P((902))MA1:CO,1,120:PR$(((1)3)1)"!"CC$n MA0įCO,1,140:"Please try ";PG$((902));" again.";CC$ MA1PG$((902))"RACE TIME"įCO,1,140:"You are ready for "PG$((902)1)"."CC$SPACE:CL$CL$:11:"One moment please...":RNH,"* CL$:5::N$" "LN$" "CC$:X70:Y75: CO,X25,Y5:"You did "PG" problem"Q1$(2(PG1))".":CO,X25,Y10:"You got "(904)" problem"Q1$(2((904)1))" right":CO,X25,Y20:"on the first try." 6:30,60250,60250,11030,11030,601 (904) MA$(MA)) A$N$L$G$PG$PC$MA$B D$"OPEN STFILE,L35"\ D$"WRITE STFILE,R"REd A$z D$"CLOSE STFILE" 265 LN$"":N$"":X909 X910935:(X)44LN$LN$((X)):X XXX2935:(XX)32(XX1)32N$N$((XX)):XXOPEN STFILE,L35"* D$"WRITE STFILE,R00"2 A$H D$"CLOSE STFILE"k 250:L$((901)):G$((902)) PG$(PG):(PG$)1PG$"0"PG$ PC$((904)):(PC$)1PC$"0"PC$ N$LN$"* "N$:L(N$)25:N$N$" ":L (904)P((902))MA1940)1:PAPA50:PA200PA:"":AFT,1:CN$:NR(SE$)P*\qZ1NR:X((SE$,Z,1))*zqBOX,B1(X),B2(X),B3(X),B4(X),CO(X):PLAY,M(X)MU,PA:BOX,B1(X),B2(X),B3(X),B4(X),4:CO,C1(X),C2(X):X*qPAUSE,1:Z*q"":*0uAFT,0:CN$:HSP:(1):SPACE:: +yD$"OPEN STFILE,L35"- nD$"READ STFILE,R00"5 xA$K D$"CLOSE STFILE"k RE((A$,3)):TR((A$,4)) RERE1:RE101RE1 TRTR1 RE$(RE):TR$(TR) (RE$)3RE$"0"RE$:153 (TR$)4TR$"0"TR$:154 A$RE$TR$ D$"30000:31000x X04:TMRT(X)RT(X)0āL5X11:RT(L)RT(L1):RN$(L)RN$(L1):L:RT(X)TM:RN$(X)N$(0):1295 XCD$"OPENRACETIMES":CD$"DELETERACETIMES":CD$"OPENRACETIMES":CD$"WRITERACETIMES":X04:RN$(X):RT(X):X:CD$"CLOSE"0)090; 2CL$::CO,70,95:"INSERT MANAGER DISK.":SPACEe 7CL$:CO,0,89:"ONE MOMENT PLEASE..." <D$"BLOAD CHECK FILE" P(940)1ĺCL$:CO,0,89:"PLEASE INSERT THE FILE MANAGER DISK.":L12000:L:50 Z:L13:PR$(L):L _PG(903) dX  "PROGRAM: EXIT MANAGER; "PROGRAMMER:P.FUGLESTAD U"COPYRIGHT 1983 MECCt"LAST UPDATE: 84/07/09HBW32000WIND:CL$(12):PG$(6),P(6):L206:PG$(L2),P(L2):L2#D$(13)(4):CC$(3):CL$(12):Q1$(1)"":Q1$(2)"s" ((90    TMRT(4)RT(4)įCO,0,105:"Your time of "TM" seconds"CC$:CO,0,115:"puts your name"CC$:CO,0,125:"on the list!"CC$:1290:30000:BOX,PX16,PY5,PX90,PY98:BOX,40,75,238,135:5010:1280CO,0,105:"Your time was"CC$:CO,0,115:TM" seconds."CC$BOX,PX16,PY5,PX90,PY98:CO,0,75:CO$"The winner is "CC$:CO,0,85:N$(T2)"!"CC$TMRT(0)RT(0)įCO,0,105:"Your time of "TM" seconds"CC$:CO,0,115:"is a track record!"CC$:1290:30000:BOX,PX16,PY5,PX90,PY98:BOX,40,75,238,135:5010:1280):38LF32572:CTCT1:BF$(CT)(LF)(LF1):CL(GA)İ5000SX(GA)ĺCL$d[NP201200~`10000:12000:NPNP1jSSSS(T30)o(GA)İ200t1115(GA)31000TMCCTM(CT31):T2(CC20)CC20įBOX,50,160,230,173S$(0)d$(GA)ĺCD$"OPENRACETIMES":CD$"READRACETIMES":L04:RN$(L):RT(L):L:CD$"CLOSERACETIMES".CT0:LF32794:CTCT1:BF$(CT)(LF):LG13:BF$(CT)BF$(CT)(LFLG):::LF3247:CTCT1:BF$(CT)(LF)::LF961032:CTCT1:BF$(CT)(LF)(LF1X910925:(X)44ZX:X925:1053;N$(0)N$(0)((X))BXtXXZ2935:(XX)32(XX1)32XX935:1056N$N$((XX)) XX!(N$,1)" "N$(N$,(N$)1):1057"(N$)(N$(0))17N$(0)(N$,1)". "N$(0):1060#N$(0)N$" "N):B1(1)1:B1(2)1:CP$(16):CQ$(17)jDFT,1,32636:DFT,2,33796:DFT,3,34380:DFT,4,35127:DFT,5,35304GT,NO:L1NO:OB(L),NP(L):L:PX110:PY43TM(936)VA(5),NB(5),CA(5),CC(5),B0$(21,5),BF$(45),RN$(5),RT(5),N$(1):N$(1)"Computer"#0 CO$:l(908)ė::230,64:DUN,"TRACK.PCK":(5):RFL,"CAR.FNT":RFL,"CAR4.FNT":RFL,"ZERACE.FNT"CD$(13)(4):CC$(3):CE$(5):GA(908):ZR$(20)L1382:CTCT1:ZR$(CT)(31L)(31L1):%CN$(14):CO$(15):CL$(12):CC$(3PA:BOX,B1(A),B2(A),B3(A),B4(A),4:CO,C1(A),C2(A):AU)mZZ1:A((SE$,Z,1))28090)mIMAGE,3,118,50:WR1:PLAY,10MU,100:)mIMAGE,2,118,50)mTRNRįPAUSE,5:35000:X((1)5)1:CO,PX30RE(X),160:RE$(X):PAUSE,25:T3XC:)m280304*HqPA( (bA$(X)(bX4(bCD$"CLOSERTSF":30000:31000d(`mA(0)(1):AFT,1:CN$:TR0:PA30:WR0:Z0r(jmNR(SE$)(tmIMAGE,1,118,50(~mTRTR1(mA(5)(mA177A18428035(mAA128:A((A))4)mBOX,B1(A),B2(A),B3(A),B4(A),CO(A):PLAY,M(A)MU,,1501,1501,45:Y40:X110:YY10::CO,11((X10)8),Y:X". ";t'bL(A$(X)):A1$(A$(X),L3):A1$"0"A1$" "}'bA1$'bA1$(A$(X),3):A1$"000"A1$" "'bCO,230,Y:A1$:X'bCD$"DELETE RTSF":CD$"OPEN RTSF"'bX110(bCD$"WRITE RTSF"& bX10XX1:25110!&*b31000{&pbCL$:AA$"... because of your score you have been added to the 'TOP 10 SCORES` list!"&zbZ10X11:SC$(Z)SC$(Z1):A$(Z)A$(Z1):Z&bSC$(X1)SC$(X):SC$(X)SC$:A$(X1)A$(X):A$(X)SC$NN$A'b1:1,45253,45253$(42):490CV27sL117:CO,25L,72L:BF$(CV)::CV27CV28:AFT,3:CN$:CO,23,74:"89":AFT,4:CN$:480AFT,2:CN$:B30:L0102:B3B31:CO,43L,55:BF$(B33);:GCP,XZ,YZ:CA$:B33B30:CO,XZ,YZ:BF$(4):XQ43:YQ865100:52032L:BF$(CV)::CV19CV20:AFT,3:CN$:CO,244,112:"89":AFT,4:CN$:440tAFT,2:CN$:CO,206,145:BF$(1):490~CV23L118:CO,41L,148L:BF$(CV)::CV23CV24:AFT,2:CN$:CO,42,145:"####":AFT,4:CN$:460 AFT,3:CN$:CO,23,112:BFCN$:CO,0,140:"Your best score was "S2"."CC$:30000Y%]SC$(S2):(SC$)1SC$"00"SC$s%](SC$)2SC$"0"SC$%]CD$"OPEN RTSF"%aX110%aCD$"READ RTSF"%aA$(X):SC$(X)(A$(X),3)%bX%bCD$"CLOSE"% bX1%b(SC$)(SC$(X))2520029000E$ ZAFT,0:CN$:CO,0,180:"... press the right "(SE$)" keys."P$Z28000$Z(SE$)255İ35000:CO,0,160:"YOU ARE THE CHAMP!!!"CC$:30000:24000$ZWR023010$(ZPAUSE,17:35000$]SE$(SE$,(SE$)1):35000:(SE$)S2S2(SE$)4%]AFT,0::35000:AFT,0:CN$:CO,56,150:"This is the last round.":CO,56,160:"See how far you can get.":30000#Y(SE$)2āX12:SE$SE$(((1)8)1):X:23040#YSE$SE$(((1)8)1)$Z35000:AFT,0:CN$:CO,0,160:AA$", repeat after me...":PAUSE,20:C$:30000J"V35000:CO,0,160:AA$", repeat after me...":PAUSE,20:29000"VAFT,0:CN$:CO,0,180:"... press the right "(SE$)" keys."""V28000",VWR022070"0V(SE$)S2S2(SE$)"1V22000"6VPAUSE,17:35000:22000"YP9031000g#Y3000 more problems...":30000:CL$:210005!UT5421000k!U(SE$)2āX12:SE$SE$(((1)8)1):X:22030!VT4T41:T43SE$SE$(((1)8)1):22030! VPAUSE,15:21000 "VAFT,0:CN$:AO1AO0:35000:CO,0,155:"Let's start over with 2 "SN$"s."C NSE$"" RPTPT1:PGPTE R10000:12000:NPNP1:T30CPCP1V RPTGT23000 RT50:PT5(PT5)P9įPAUSE,10:CL$:21990 R21000 U3000 UT5T51:T40:WR1SE$"":AO1%!UT54PGGTįAFT,0:CN$:35000:CO,13,160:"Time out for somecan repeat without making a mistake."0N30000NCL$:WIND,40,60,240,130:CO:"You will be given 25 problems. After each set of 5 problems, you will play part of the 'Repeat after Me' game.":6:30,50250,50250,11230,11230,50:WIND N30000:CL$20:29000:20091kNCL$:WIND,40,60,240,145::AFT,0:CN$:6:30,30250,30250,11530,11530,30:CO,40,30%N:"Each time you repeat the series right, another "SN$" is added. If you miss, the game starts over with two "SN$"s. See how many "SN$"s you 00`pN35000::CO,0,145:"Let's try it. Repeat after me...":PA160:SE$"124":PAUSE,24:29000zN35000:AFT,0:CN$:CO,0,155:"Press the right keys.":P10{N28000N35000:WR020140NP1P11:35000:CO,95,155:WR1P11ĺ"Try again.":PAUSE,MUįCO,0,145:"You will hear a series of notes. Repeat the notes in the same order by pressing the keys 1-8.":30000:20080kNCO,0,145:"You will see a series of flashing boxes. Repeat the numbers of the boxes in the same order by pressing 1-8.":300fter Me"S9N1:L04:63L,142L221L,142L221L,167L63L,167L63L,142L:L>NCO,36,175:AFT,0:CN$;:"Do you want instructions? ";HNINP,(3,"YESNOyesno"),A$:(A$,1)"N"(A$,1)"n"20150RN(A$,1)"Y"(A$,1)"y"20030\N35000}fNY61(TA12)(CA(PL)13)4PX58(PL12),PY61(TA12)(CA(PL)13)4PX58(PL12),PY75W6YPY60:X2PX58:X1X2(((AN))11)5:3:X1,YX2,Y`6 NP920170%NIMAGE,1,118,50*NBOX,0,140,279,191,04NAFT,1:CN$:HSP::CO,69,150:"Repeat a46(TA12):" "::CO,PX60(PL12),PY46((CC(PL))(A))(TA12):(A)cH5(A)(CC(PL))13700R5CO,0,PY95:"NO, TRY AGAIN."CC$:30000:AFT,1:CN$:HSP,4:CO,0,PY95:CEL:136155XL6C:PX58(PL12),PY75PX70(PL12),PY75PX70(PL12),PTA12)PX70(PL12),PY58(TA12)PX70(PL12),PY43(TA12)PX58(PL12),PY43(TA12)PX58(PL12),PY58(TA12)*5ZX113700/5A(0):A(1)45:CO,PX60(PL12),PY46(TA12):"?">5A(5):AA128:A48A5713615IC5CO,PX60(PL12),PYPL12,PY63:(A):(A)(VA(PL))13380~?4CO,0,PY95:"NO, TRY AGAIN."CC$:30000:AFT,1:CN$:HSP,4:CO,0,PY95:CEL:13360D4C0:13900:PLI4AA(0):AA(1)N4CO,0,PY95:"RIGHT!"CC$X4PAUSE,10: 5CA(PL)0ıv%5C:PX58(PL12),PY58((C$):CA(PL1)1*3VA(PL1)0NB(PL1)123PLC3T32:PL14g4PL2VA(PL)0VA(PL1)013385v4C3:136004C0:ZX1:13600:ZX0&4C3:1390004CO,PX60(PL12),PY63:"?":4A(0):A(1):A(5):AA128:A48A5713370'<4CO,PX601,0)P(L,L11,1)P(L1,L11,1)0)(P(L,L11,0)P(L,L11,1)P(L1,L11,1)2)L$(65LL14):L5:L15}xL1:L:L$""6970CT361100L$(65LL14)-:BOX,0,159,279,191:CO::CO,5,160:CO$N$(1)"'s turn:":CO,21,170:"Connect dots "L$;:L1,L11,0)2)L$(65LL14):L15:L5?L1:L:L$""6970HCT2odZ0:L02:L103:P(L,L1,Z)6520i((P(L,L11,0)P(L,L1,1)P(L1,L1,1)0)(P(L,L11,0)P(L,L1,1)P(L1,L1,1)2))6520nL10L$(65LL14):L15:L5:6520es(P(L,L170 CT12Z1:L03:L102:P(L,L1,Z)6420((P(L1,L1,1)P(L,L1,0)P(L,L11,0)0)(P(L1,L1,1)P(L,L1,0)P(L,L11,0)2))6420 L0L$(65LL14):L15:L5:6420'(P(L1,L1,1)P(L1,L1,0)P(L1,L11,0)0)(P(L1,L1,1)P(L1,L1,0)P((L3):Z0(L3)1(L13):L(0)P(L,L1,0)P(L,L1,1)P(L1(L0),L1,0)P(L,L11(L10),1):L(1)P(LZ,L1Z,0)P(LZ,L1Z,1)P(L(12Z)((L0)Z),L1(12Z)((L10)Z),Z)L(0)L(1)L$(65LL14):ZZZ:Z5:L5:L15Z:L1:L:L$""ZZZ:69((1)3):Y((1)4):61257X((1)4):Y((1)3)YL$(65XY4):P(X,Y,Z)6110c6970z87900:L$""6210=7800:L$""6110B69707900:L$""69707800:L$""6970L$"":CT16310,6400,6500,6600L03:L103 connected.":30000:6030.L$L$(0):Z(Z4)7200:P((X5)40,(Y5)40,Z)įBOX,0,159,279,191:CO,5,160:"Those dots are already connected.":30000:6030Z17000,7100:75006990LVL6110,6200,6300Z((1)2):Z16115,6120XL$" and "CH$;:DB:7700:L$(1)L$:L$(8)L$""6030G" "CH$L$"."bZ((L$(0))(L$(1)))L$(1)L$(0)L$L$(1):L$(1)L$(0):L$(0)L$(Z1Z4)(Z1((L$(0))64)4(((L$(0))64)4))įBOX,0,159,279,191:CO,15,160:"Those dots cannot beL:X1,Y9X9,Y9:X2,Y10X8,Y10:CO,X2,Y2:L$:Ap5010QzFT0İ7400lT16:FT16030,6100BOX,0,159,279,191:CO::CO,5,160:CO$N$(0)"'s turn:":CO,21,170:"Connect dots "CH$;:DB7700:L$(0)L$:L$(8)L$""60326" "CH$50250,50250,12030,12030,50:CO:"You will be given 12 problems. After each set of 3 problems, you will play part of 'The Fence Game' against the computer." WIND:30000:CL$ FT1:7 3:X2,YX8,Y:X1,Y1X9,Y1:LY2Y8:X,LX10,L:L$,L4:L417000,7100,PAUSE,4:7500:LCO,10,160:CO$"After all dots are connected, the":CO,10,170:"one with the most points wins.":30000L403:L503:L603:P(L4,L5,L6)0:L6:L5:L4:W(0)0:W(1)0CL$:WIND,40,60,240,130:6:30,3VA(1)VA(1)((B$(X),5,1))<h3VA(2)VA(2)((B$(X),4,1))\r3VA(3)VA(3)((B$(X),3,1))||3VA(4)VA(4)((B$(X),2,1))3X3PL143VA(PL)VA(PL)CC(PL)3VA(PL)10132503A$(VA(PL)):B$(A$,1):C$(A$,1)3CC(PL1)(B$):VA(PL)堠蠠᪠ᠠ᪠ᠠ᪠ᠠ᪠ᠠ̠̠ĠǪ̠窠젠ͪҠ֪Ҡ蠠誠Ϊ٠ΪנӠ猪堠窠젠䪠젠ĠǪ̠    GHT!"CC$:T3XC:PAUSE,10:63:CO,0,PY95:"NO, TRY AGAIN."CC$:T31:30000:AFT,1:CN$:CO,0,PY95:CEL:BOX,PX,PY63,PX48,PY73:XCXC1:XC2XC0:13130@313000J3X15:VA(X)0:NB(X)0:CA(X)0:CC(X)0:X:BOX,PX,PY63,PX58,PY73T3X15^+z#@ӮǠ ҲԠήˠΠ Š ŠŮǠ ΠҠ' ӯӮǠ ӮǠӮǠ ̮ʭô̤µ"ˮˠ ŮԠԠҠܠ  Үˠ ЮҮʭô ǮԠ ŠŠŠ-ҴԠ ҠӮΠҮԠ ҠԠŠ !ԠҠŠ( Ǡ͠1ԮӠƠ ŠΠנ)ŠŠ2 ծˠԮˠΠҠԠҠ ԠӠ!ͮԠˠŠΠΠϠ ՠԮʠ̮ʠ Ϡ ԮϮŠ Apple //e)":"2. Any other type of printer":" interface card (e.g., parallel":" or serial, Centronics type,":" etc.)"::"Which type of printer interface":"will you be using? ";:ZB1:ZT2:37000ZN6000,7000PP1,66:BOX:A:(J);:::J96127:(J);:::::FEEDbPOFF:24576:11:" Printer test complete.":30000WIND:CO:"Printer Support"CC$:WIND,0,20,279,191:3:"1. Apple communications board":" (an obsolete card that is not":" compatible with thet"::"search)...") I0127:PPI,0:X D$"BSAVE PRINTER COMMANDS.BIN,A"PP",L128"e 30000:BOX:9:"Please prepare your printer...":30000CL$:9:"Testing the printer...":D$"IN#0":D$"PR#0":PACT:"Printer Test":*I13:J3295 P0P13P32PP64::GCP,X,Y:BOX,X1,Y1,X5,Y7,3] L2(P13):PP21L2:(P)CA$;:g L2:q L1: :" Type of printer:"::7:L120:((PP106L));::: 8:"Now returning the printer settings"::"to their original state (slosettings are:"P  :" Slot: ";(PP)128::APLĺ" Page length: ";(PP1):e  (PP2)0İ2400| $ (PP107)0İ2500 . 30000: ` " Commands:"::CT2 t L115:(PPCT)0L15:2470 ~ 7:"PRINT "(34)CA$;:L211:P(PPCT):CTCT19";(PP);".":? SD$"LOW":SD10:(PP2)127SD$"HIGH":SD30 7:"The speed is set to '";SD$;"'":"(usually ";SD;" characters per second)." :APLĺ:" Page length: ";(PP1) :(PP107)0İ2500 30000: CO:"The current printer set to"::"the default setting, which is to"::"search slots 1 and 2 for a"::"recognizable card each time the"::"diskette is started up." H30000: 3:"This diskette is currently set up to":"expect an Apple Communications Board":"in slot #":9 " 5. Return to Management Options":" menu"l $::"What is your choice? ";:ZB1:ZT5:37000 8BOX:CO:ZN2000,5000,3000,4000,31040 BL00:L0 JP1((PP)0)((PP)127) JP2100,2200,2300: 45:"This diskette is currentlyrt"CC$:WIND,0,20,279,191> L011:BOX:CO::"You may:":k " 1. Check current printer settings": " 2. Change printer settings": " 3. Return printer settings to":" original state (slot search)": " 4. Test printer settings  "PROGRAM: PRINTER SUPPORT>"PROGRAMMER: P. BOUCHARD\"COPYRIGHT (C) MECC 1983{("LAST UPDATE: 84/06/28PRWnAPL0xD$(4):PP(948)(949)256:CA$(1):CC$(3):CL$(12):Q$(34):VSP:HSP 24576:WIND:CO:"Printer Suppo     CO,PX60(PL12),PY46((CC(PL))(A))(TA12):(A)P)H5(A)(CC(PL))13700)R5CO,PX40,PY95:"NO, TRY AGAIN.":30000:AFT,1:CN$:HSP,4:CO,PX40,PY95:" ":13615)5W*L6C:PX58(PL12),PY75PX70(PL12),PY75PX70(PL12),PYOBJ":950,1:RFL,"NUM.FNT"32636:RNH,"MENU"4 L: V11:"THIS DISKETTE NEEDS AT LEAST 48K RAM MEMORY TO RUN.":16384,128:16368,0 `CS(P(P(999))1)16:CS1CS7CS6 jCS ));"MAXFILES1":16368,0# D$(4)g :230,64:D$"BRUNLOGO":16304,0:16297,0:16299,0:16302,0 D$"BRUNCIRCUTIL.OBJ":RNH,"PRUTIL.OBJ-A$8C4A-L$3B5":PP(948)(949)256:RFL,"PRINTER COMMANDS.BIN"PP RNH,"USR.OBJ-A$88C4", RFL,"HPRINT. PROGRAM:HELLO 1.0:PROGRAMMER:SHANE P. MCCARRONTCOPYRIGHT:MECC, 1983q(LAST UPDATE:84/06/07HBW2(978)1571100<1120AD$(4)F(64435)6ĺD$"PR#0":D$"IN#0":16372,0PP(I)(I)(I1)256ZX(P(78)) (4  ˠЍĠ͍٠΍ȍ#}WIND:VSP,1:ZE255310007#}(15):ZE1532110A#}ZUĦU#(}(12):CO,0,89#F}ZE4ĺ"Please remove the write protect sticker from your diskette.":32160#P}ZE8ĺ"I/O error. Please check your disk drive and diskette.":32160$n}(12):CO,)"=1L:30000:12000("0uCA$:SPACE:k"yWIND:(12);(15):CO,0,89:"Do you want to try again? "(1);v",y36000"6yZ$"Y"Ĭ"@y(12):CO,0,89:"Getting the menu...":WIND:(1):SET,0:RNH,"MENU"#}ZE(222):ZN(218)(219)256:216,0:320003):CO,240,2010L:V((X$(L),3))=!0(V10)(V100))V:LO!030000:12000"81CL$:"BEST 5 TIMES"CC$:D$"OPENRACETIMES":L15:D$"READRACETIMES":X$(L),X(L):L:D$"CLOSE":L15:CO,0,2010L:L". "X$(L):CO,240,2010L:(X(L)100)(X(L)1000))X(L 9``93?~~0``??``?3?? ``0 ??3?0``??``?3??O0 99>>``?399 >>``0 993?>>0``9``9||``?39``9 ||``0X15:" ":0:X:D$"CLOSE":12000) 0w p0CL$:CO,0,89:"Are you sure you want to clear"::"the list? ";:36000:#!0CL$:"TOP 10 SCORES"CC$:D$"OPENRTSF":L110:D$"READRTSF":X$(L):L:D$"CLOSE":L110:CO,0,2010L:L10)L". "(X$(L),(X$(L))ES' list..."CC$eN/D$"DELETERTSF":D$"OPENRTSF":D$"WRITERTSF":X110:"000 ":X:D$"CLOSE":12000/12400:Z$"Y"Z$"y"12000/CL$:CO,0,89:"Clearing 'BEST 5 TIMES' list..."CC$# /D$"DELETERACETIMES":D$"OPENRACETIMES":D$"WRITERACETIMES":t line #"ZN".":30000:31000j/}ZM01:ZP(ZL):(ZP);:ZM(ZP127):ZLZL1:ZM:" error at line #"ZN"."/}:"Please report this error to MECC.":30000:31000/Pà 20,2,1,12,3,8 t sticker from your diskette.":32105_.P}ZE8ĺ"Diskette bad - drive or format error.":32105.Z}ZE9ĺ"This diskette is full.":32105.d}"DOS error number "ZE" at line #"ZN".":32150.i}30000:31000.n}ZL53856ZE/}ZE255ĺ"Error ctrl-C hit a3,NP:904,SS:CA$CO$:SET,0:WIND:RNH,"EXIT MANAGER"Z-}:ZE(222):ZN(218)(219)256r-}(15):ZE1532110|-}ZUĦ-(}(12):CO,0,89-<}ZE2ZE3ZE7ĺ"Please check your diskette parameters.":32105%.F}ZE4ĺ"Please remove the write protec a game of THREE IN A ROW against the computer.":6:30,50250,50250,11330,11330,50:WINDl,1N30000:CL$},4NNP2031000,9N10000:12000:NPNP1:SSSS(T30),>N(GA)NP5(NP5)įPAUSE,10:CL$:1000:CL$,CN20020,0uCO$:SPACE:(1):5-y9014,160:"Do you want instructions? ";:INP,(3,"YESNOyesno",1),A$:A(A$):A(8932(A96))A(7832(A96))20013+.NA(89(32(A96)))İ2000\,/NCL$:WIND,40,60,240,130:CO:"You will be given 20 problems. After each set of 5 problems, you will play61(TA12)(CA(PL)13)4PX58(PL12),PY61(TA12)(CA(PL)13)4PX58(PL12),PY75*W6YPY60:X2PX58:X1X2(((AN))11)5:3:X1,YX2,Y*`6* N(GA)ĺCL$:20020**N200:300:400:WIND,14,160,265,181*+N(BY)BY1:20013*,N20015s+-NCO,Rp RpSp[p\p߹[p\pNo pNo , g >p ,Mo %pNp) Op PpQp)@p ߅ l Ro ) L{o HHH?p hhh ɛ Moo0LooɈ5ɍ>p7,@p ? h5880`L >p?p@pMoBp ( %pL&o | {$0! ?p ,Ln ^ {$0LnNMo Qo|Oo nr- p nPo n p-PoPoPo pLsnOoQoOo^`NMo hhh,lp` ֩PyQ ALŠҠ僁 i imiʈii &' iq&iLi N8`f `.f`}m~m ` ң Σ  h`+ hR(" ެLUj,Hl  l  hl`L, HHHHHHHHH k l |jlNO,ɍɠ ɛ8nl,lPݩ mhhhhhhmHihʍiii LiL 7k 8kM9k7k !g<>=M9k?'<>7k7k8k` H g Rh PQ`L     խ)?` ` @)`,` Wj`i-ii i !g&'i jQ&-iQ&& i ii`*U U*ժ Kj')JMKj)i Q&,iP 0=Pj`Lj`J&)` `L3f̙zj{j ߅$0Hzj{j LbLvjj j` h i i i hȥq8)h` g R  QP (`L h`L)  @ iiiijii i i giiiii giiiiiB i !g&'i jQ&-iQ&&ȭii j& jQ&-iQ&& i iihHhhh hJ` &eeieh ghIi[hi 썠h !gmhﬡhMh[hPjjjjjjj0jj) h0ȱjhjhhУ`8pPH)8 q -`,f` im imʈii iʎiLi Fggg`gg ggg`g Fg gggg`ggg8pzg.g(zgggmgg`8pg)gJJ gggg .g .g ngg)ggmgg`de80 " Ofm8h)` dem88eLf` deme` d8` f@ ~f ~f f`Lb dffL-f ``fʽ`) ` `fH`mS` dS`)\e`[e h\e g[e}`mf8ff`f` dLb,0*`%f 8fHfJhj`mfff` b d` b dI``L `emfff`) ffffffO,0 `)  d`f(`HHf,Pf88`f d fhLcfHfHff,P d fhf8hfffffff``S`S```f穀f f`f3f'ff ``)   LX8e湥 pHpH L`@ @ʩ WRPT` J  dȱȱȱ` hfH) #,f h`` fffffffh`f fS```emffff f0 d -f%%h $20 LUc $ aHaH`d\eheWeeeee,fNfgffffff(bb d #cf hf gNOH #c h f ghH ,aɈ( #cb h) e f g #c ebbh`yo 8`@```L`bbbbps$% `@ LaQa6 ,fLbLhfUabHaa,aaɠ,|a ` a欌aah`ɀ)?  @IH #c$ d e$%       0,89:$}"Error "ZE" at line "ZN" in Management Options."e$}:"Please report this error to MECC."w$}30000:31000$(1);:GCP,ZX,ZY$CO,ZX,ZY:CEL:INP,(3,"YESNOyesno",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"Z$"n"Z$"y"36020 %(Z$)96Z$= ,=&AЪBԪCժCժCժB@BсBԁBЁBԁBԁBԁBԁDԂԁZՀЪՀѨՂԨpժժժժժԪŊժԪѪԪԪժԪըժԁCЂWԊЪѪŊժՊB@C   {{ttlnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !RFRNSEIMAGPLADUM{{}3xF~ v t`~8~?=4=0>?`L~L~<0>?`L~L~L~>?`L~ø`L 䎱 掲` 3#< = <=Lt~ <=Lv~L ~ ~8~?=4=0>?`L~L~<0>?`L~L~L~>?`L~ø>}? }%p J}g^h_^`ȱ^Șe^^_iȑ^^_}}}@A }  } `@ i @ ȱ z`,X` {ݩD ^ D`}D}ED` &Lt|&J} eL׭(|#|)|$|X(|)|LXLX(|)| K}$)J}}>}? }pJ} G 8`L}8ghegiȱehj8ȱCv(| )| (|ȱ)|8(|)|8ȱ>? }:p"}<ȭK{<ȭM{<><ȥ?< <<= H <=L{I<K{}?} }  { RP(|Q)| 2|L *|J}Ll`N wbD}E}B}C}@}A}>}?} } *QP (`L y`L Sz!z z`z!z z"z#z`z Sz z"z#z z`zzz8p݇z.z(z zzmz!z`8pz)"zJJ "z"zz#z .#z .#z n"z#z)#z"zm!z"z`  K{L{M{ <= <ȭ<ȭLx2 & &JJ==<= 6yP`yyy)yhy yxx x>?xxxx .z>?xe>>?yyyH(y`yyyIiy>yPjjjjjjj0NyjJ y>0ȱ>jNyyj y>` g R  ʱD>`Lޭ@A x@0R zx $zxy8yyxx @<ȱ@=@e<?xe>>? x`/0<=(0% Hh @H(hJ)?<= 6yPp︄'&Ȅ`,&@ȱ@Ȍw>w? z >`LHh`<=< Dﭲwww w ) 8`wDwEDB`<=      w[>w?w@wAwBwCwDwEw { 媤^_ mw  w)`L w `w w v `w0ޢ wܦH)?hJ `w w `w v?Lwv .z&((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP                    t{ LtLwU~ 8ɀ  Lȱ:,֘e湥 lHkH L` <=?>,>$f<<` 0$H)1h0,20RLou67  0N2 394I73B4C5JLuɌuLɯtᅝ 8ɀ   Lޤȱ:,Әe湥 HH L`LB ?F<?F<>[ >_?Ȑ۩`?)GsBs600p00CBnJ*NGAGsBcB6cCtwutJUNGAGsBsB63CCnJ*NAsBc600`CFJUOAs``wBfgC{9{{ J*B MBlLC8W0W8JUBBgBlgClk {|J*BBC AC~~|~~JU_?CB~BBBYCFJUNG_ DydGQF@``DpA`@HB@@_BY_CFJ*NG_~E|dGOG|L|HBFACFJUNGAGOD@CBGB !B<!dGO~x`FDQB oBlOCFJUNG\A>~B>AdGP?D@D`DpD8DBBBLBlOCFJ*NG\A~>>B~AxdGOaHDQBBOB`OCFJUNG]AyA`ByCdGQ|0TAA >~~B@@oBLOCFJ*NG\ABAdGOE@`ppG`@GBJ*NGAGJp`@UCUBUBUUUBUABUCUBOBfFCFJUNG\O3yyBydGN~C*B*B* FBC BBB CFJ*NG^~ BL dGOCUBWBB@B`@CFJUNG\Bgd`Bg`ddGOCC@D`DpD8DBBBGlo`OCFJ*NG\B?捿ttmtt`BB0xXCFJ*B037B6ACFJUBBC3ACFJ*BBC3ACFJUNA^D?A/A/++++**BB3?>CFJ*NGAGOC_B WUUUBUABUCUBB>0CFJUNGTvGLB?C*B*B***B*AB*C*BBB3CFt u@ )` t t t0H)?hJ t t t?Lt t&'&Ȅ``tt ttt`t)tJJ tttt .t .t ntt)     @B@H #2&>'@@H  C$w%H  L>4$LA " D R8> +@@ H0 0`  '20 @Y>(dd( P @>W`` $#WS2~'38,$%2(` Ȥ "J OoI|I  (@舰DPD?J( EP(@ B@(@8$A f@HD PB@@Hs!"DH@DH/ H@PXs$   9O"px#G ࠠ p$& J $'H /H  ` O{ 2r@@@GIMLO{0r𐐐 O{H0r pxH@GIMLO{2r pA@GIMLO{2r p h@$(00@@D8?΄D"  ذ ذl44llll44l̀ ؘ d4+TL0:ZZZ. H+AA3:A(4)0TA42(C(4)1:C(3)((1)2):11000_(C(4)1((1)2)1:X14:A(X)2:X:TA4(A((1)2)1:C(A)((1)2)2:11000(TA2:A(1)3:A(2)3:C(3)1:11000(TA2:A(1)4:A(2)4:C(2)1:11000(TA2:A(1)3:A(2)4:C(2)1:110007(TA":F$"":XC0P2(OB10310,10330,10350,10370,10400,10420,10440,10460,10480,10500uF(TA2:A(1)2:A(2)2:C(4)1:11000Z(TA2:A(1)2:A(2)2:C(3)1:C(4)1:11000n(TA2:A(2)2((1)2)1:A(1)1:C(4)1:11000(A(1)2:A(2)2:A(3)2:A(4)(2((1)2)):T@B@`A`A0A0A0A0A0A`A`B@@C@@`@@`@@0@ @ @`@A`A Ap csDCCAM AAժBAFlAժBAFBժBAFB E`B ժ??3B ժ_^^BժBEABA ժBEAԨB}ABBBAժBAFAHAժBAFj>B;3>AժBAFl<`|f|BBDT|lDCA~MA~AժBAFll|TDDBAqBqCAMAAժBAFlpyqDqB31CAMAAժBAFla3AժBDxAIAB?DABEBAAժBEBժBEBժBwEpBժgcCgCBժBoEBժBEABEA ժBEAAժBEBժBACB ժ~>~~>~B ժxssx~pBժB}EBժBEAAժBEBժBEBժBo AdժBpDpBժBB`003aBժBDcf&&#ixB lLxAժBDFOMLL@hpqqBBPp0CAxMAxAժBDj1sSBAFfggFCAMAAժBDC3>kCgffFDGBLGCAMAAժBBA > l8kLODCCA?M0A?AժBDxL| xk0,135:"Computer"::CO,288NL,130:"will start this game.":N'AFT,1:CN$a$'R((1)NO)1t.'OB(R)0100208'NP(R)010020B'NP(R)NP(R)1L'OBOB(R) ~'T30:KQ0:SC0:NN0:AN0:X14:A$(X)"":A(X)0:C(X)0::A$"":B$"":C$"":D$"":E$"#WIND:30000:>&BOX,0,100,279,191:NL7:(N$)7NL(N$)&L((1)86):L21L:FT((L22)L22):9950:PLAY,(305FT)MU,20:L2&&CO$:BOX,9,124,18NL8,132,FT3:FTĞ&CO,10,125:N$::BOX,9,134,18NL8,142,(FT)3:FTĞ>&CO,18:20000:CO,42,120:"so you lose!".#30000#FT2:CL$:WIND,40,60,240,130:CO:CO$"You will be given 20 problems. After each set of 5 problems, you will play a game of 'Zebug Nim' against the computer."#6:30,50250,50250,12030,12030,50u take 4 Zebugs":CO,42,120:"from row 2.":R4:P2:20000#BOX,0,100,279,191:CO,10,140:"Computer takes 5 Zebugs":CO,42,150:"from row 3.":R5:P3:20000##BOX,0,100,279,191:CO,10,110:"You have to take the last Zebug...":R1:P2:3:41,11873,1130000sd#BOX,0,100,279,191:CO,10,110::CO,10,110:"You take 3 Zebugs":CO,42,120:"from row 1.":R3:P1:20000n#BOX,0,100,279,191:CO,10,140:"Computer takes 2 Zebugs":CO,42,150:"from row 3.":R2:P3:200009x#BOX,0,100,279,191:CO,10,110:"Yo#BOX,0,100,279,191:CO,10,110:"When it is your turn, you can take":CO,10,120:"as many Zebugs as you want from":CO,10,130:"any row. The one to take the last":CO,10,140:"Zebug loses."P#3:58,14995,149Z#CO,10,160:"Here's a sample game....":(TA12)PX58(PL12),PY43(TA12)PX58(PL12),PY58(TA12)P)*5ZX113700b)/5A(0):A(1))45:CO,PX60(PL12),PY46(TA12):"?")>5A(5):AA128:A48A5713615*C5CO,PX60(PL12),PY46(TA12):" "::CO,PX60(PL12),PY46((CC(PL))O, TRY AGAIN.":30000:AFT,1:CN$:HSP,4:CO,PX40,PY95:" ":13360d(D4C0:13900:PLx(I4AA(0):AA(1)(N4CO,PX10,PY95:"RIGHT!"(X4( 5CA(PL)0ı@)%5C:PX58(PL12),PY58(TA12)PX70(PL12),PY58(TA12)PX70(PL12),PY4314('4PL2VA(PL)0VA(PL1)0133857'4C3:13600P'4C0:ZX1:13600:ZX0_'&4C3:13900'04CO,PX60(PL12),PY63:"?"':4A(0):A(1):A(5):AA128:A48A5713370'<4CO,PX60PL12,PY63:(A):(A)(VA(PL))13380Q(?4CO,PX40,PY95:"Nr3VA(3)VA(3)((B$(X),3,1))=&|3VA(4)VA(4)((B$(X),2,1))D&3XP&3PL14i&3VA(PL)VA(PL)CC(PL)~&3VA(PL)1013250&3A$(VA(PL)):B$(A$,1):C$(A$,1)&3CC(PL1)(B$):VA(PL)(C$):CA(PL1)1&3VA(PL1)0NB(PL1)1&3PL'3T32:PLFT,1:CN$:CO,PX40,PY95:" ":BOX,PX,PY63,PX48,PY73:XCXC1:XC2XC0:13130j%@313000%J3X15:VA(X)0:NB(X)0:CA(X)0:CC(X)0:X:BOX,PX,PY63,PX58,PY73%T3X15%^3VA(1)VA(1)((B$(X),5,1))%h3VA(2)VA(2)((B$(X),4,1))&12:13020$313020/$3CO,IX,IY:" ":13100A$3AN$""13020]$"3CO,IX,IY:" ":IXIX12y$#3(AN$)1AN$"":13020$$3AN$(AN$,(AN$)1):13020$,3(AN$)ANįCO,PX10,PY95:"RIGHT!":T3XC:_%63:CO,PX40,PY95:"NO, TRY AGAIN.":T31:30000:A9#X/YPY60:X2PX58:X1X2(((AN))11)5:3:X1,YX2,YV#2AN$"":IXPX48:IYPY63#2A(0):A(1):CO,IX,IY:"":CO,IX,IY:A(5):AA128:A$(A)#2A1313070#2A21A12713080#2A48A5713020 $3(AN$)5įCO,IX,IY:A$:AN$A$AN$:IXIX):12020"/X3"/Z6:X15:ZZ1:B$(Z)A$(X):XL"D/ PRINT PROBLEM"I/HSP,4:BOX,0,11,279,191:CO$:WIND:CO:CEL:"Problem "NP1" of 20"CC$CN$:6:0,10279,10"N/L15:CO,PX,PY12(L1):B$(L):L#S/LXPX37:CO,LX(((AN))11),PY48:"+"(3)(C)#!+A(4)A$(4)A$(4)(D)*!+XB!+A$(1)(A$(1),A(1))Z!+A$(2)(A$(2),A(2)){!+A(3)0A$(3)(A$(3),A(3))!+A(4)0A$(4)(A$(4),A(4))!,X14:A(X)(A$(X)):ANANA(X):X!,!.X1NN1!.(A$(X))412040".A$(X)" "A$(XC\DIđFKgBDYBFB\DđIFKDgD[BDAB\DIđFKDBAChDđIFIABEBDIđ憼]ABƖBAEBDIFDBC[FBUDDFB\DIđFIƌD̏B̌[ƌBEYABFB\DđIFKBBD]BBYFGAHBACEAHGCNA BHDBFC]AHDCBAAIABDGABARAMBMAHBDBiAHCƖCAASF\AMBMAHDDBBCLԔBЀELA BHCBFC瀀IDBGAHBA CLBBELA̰CB̰ρHBBFBAIBABFBAHBBHBCGŅBAQAMBMAFBؘBDDEAIBGAHBABEAIAHDANA B𸌌FBBDCIB𱰰GAHCKqDp]AHBBCBAHBEBAHBABǀSjTNBNGAHBA ̌YpZTTGAHD SDSAHBABAAKBNA[ABD]DCDSAHBBKDgCqBDSAHBABKECgpEASAHBA"RS","XY"7Zà 20,2,2,10,4,10ecks for score and then moves.","Computer uses strategy and checks for multiple scores."'nÃ"Repeat after Me","The series is presented slowly.","The series is presented faster.","The series is presented faster yet."hen checks for win.","Computer checks for win and then makes move.","Computer uses strategy. If computer starts or opponent makes a wrong move, the computer will win."X'dÃ"The Fence Game","Computer moves randomly and then checks for score.","Computer chs error to MECC.":30000:3100056(1);:GCP,ZX,ZY6CO,ZX,ZY:INP,(3,"YESNOyesno",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"Z$"y"Z$"n"360206 7Pà " !","","$%","&'","()","*+",",-","./","23","45","67","89",":;","<=",">?","@A","JK","LM","NO","PQ",t line #"ZN".":32150'5i}30000:31000K5n} PROCESS BASIC ERROR (HI-RES)[5x}ZL53856ZE5}ZE255ĺ"Error ctrl-C hit at line #"ZN".":30000:310005}ZM01:ZP(ZL):(ZP);:ZM(ZP127):ZLZL1:ZM:" error at line #"ZN"."6}:"Please report thilease check your diskette parameters.":32105}4F}ZE4ĺ"Please remove the write protect sticker from your diskette.":321054P}ZE8ĺ"Diskette bad - drive or format error.":321054Z}ZE9ĺ"This diskette is full.":321055d}"DOS error number "ZE" a$:SET,0:WIND:RNH,"EXIT MANAGER"G3}:ZE(222):ZN(218)(219)256_3}(15):ZE15321103}ZUĦ: ZU IS THE USER PROCESSING FLAG (FOR DOS ERRORS)3(} USERS ENTRY POINT (WHERE THE USER JUMPS BACK TO)32}(12):CO,0,89-4<}ZE2ZE3ZE7ĺ"PE$(3):300002wQLVL3SS20NP20W(1)2įBOX,0,100,279,191:CO,0,120::CO,0,120:"Congratulations!"CC$:"You are a grandmaster"CC$:"'Zebug Nim' player"CC$:300002|Q20uCO$:BOX,0,185,279,191:SPACE:BOX,0,185,279,191:"3y903,NP:904,SS:CA$CO4:CO,L,Y:ZE$(9):CO,L1,Y:ZE$(9):CO,L2,Y:ZE$(10):CO,L3,Y:ZE$(10):L:XL 2rQCO,X,Y:ZE$(3):W(FF)W(FF)1:AFT,1:CN$:CO,31,137:W(0):CO,161,137:W(1):PAUSE,7:AFT,2:CN$:L17:CO,X,Y:ZE$(4):PAUSE,4:CO,X,Y:ZE$(5):PAUSE,4:L:CO,X,Y:Z:L215:LL2,134L2LL230,134L2LL230,149L2LL2,149L2LL2,134L2:L2:L0^QCO,5,110:CO$"Computer":CO,168(N$)4,110:N$:AFT,1:CN$:CO,31,137:W(0):CO,161,137:W(1):PAUSE,10:CO,21130FF,120:CO$"Wins!"Q1hQAFT,2:CN$:LX32130FF:L:CO,163,Y:ZE$(15)|/JQ0:Z1:L165220:YYZ:ZZ.05:CO,L,Y:ZE$(155(Z0)):L,Y117(Z0)L16,Y117(Z0):L:XL/OQLY162:CO,X,L:ZE$(5):CO,X,L16:ZE$(8):L:YLR0TQBOX,X,Y16,X16,Y1:CO,X,Y:ZE$(3):BOX,0,100,200,191:6:L201501304:CO,X,YL:ZE$(13(L22)):L2:L:YYL:.PCO,X,Y:ZE$(17):L315:PLAY,(353L3)MU,1:L3:CO,X,Y:ZE$(18):PAUSE,3:CO,X,Y:ZE$(19):PAUSE,2:BOX,X,Y1,X17,Y16:/@QLX1604:CO,L,Y:ZE$(7):CO,L1,Y:ZE$(7):CO,L2,Y:ZE$(6):CO,L3,Y:ZE$(6)E$(14):CO,L2,YZ:ZE$(21):CO,L3,YZ:ZE$(21):ZZZZ:Z5Z1ZZZZY-NL:XL:YYZ_-N-LOL214:L12:CO,X,Y:ZE$(6(L22)9(L24)):XX1:L:L2:L15:CO,X,Y:ZE$(16):XX1:YY1:L-~OLX180:CO,L,Y:ZE$(16):L:XL:*.OL18:L2120045),HN((1)3)120100,20200,203004,MN20700<,RNBBG,\NCO$:,NLX1804:CO,L,Y:ZE$(7):CO,L1,Y:ZE$(7):CO,L2,Y:ZE$(6):CO,L3,Y:ZE$(6):L:CO,L,Y:ZE$(7),NPAUSE,4:XL,NH-NZ0:ZZ1:LX1804:CO,L,YZ:ZE$(14):CO,L1,YZ:Z12),PY61(TA12)(CA(PL)13)4PX58(PL12),PY75m+W6YPY60:X2PX58:X1X2(((AN))11)5:3:X1,YX2,Ys+`6+ NAFT,2:CN$+*NBB1R:Y1530P:XP(P)205+/NP(P)P(P)1+4NP(1)P(2)P(3)0FT1İ20800:20050+>N(1).2520040,CN20400:(A))(TA12):(A)-*H5(A)(CC(PL))13700*R5CO,PX40,PY95:"NO, TRY AGAIN.":30000:AFT,1:CN$:HSP,4:CO,PX40,PY95:" ":13615*54+L6C:PX58(PL12),PY75PX70(PL12),PY75PX70(PL12),PY61(TA12)(CA(PL)13)4PX58(PL about accessing the Management Options."2900{I1N2:BOX:CO::CN$(I)::DE$(I):I4ĺ::CN$(I1)::DE$(I1)I5ĺDE$(I1) :900::*WIND:CL$h17000:CL$pCA$CO$:SPACE:"Addition Logician","* * *",5j00BOX:CO:::CA$:"The Management Options section allows you to see your children's scores, adjust the time for the review program, turn the graphics off, and set up a printer for printing results. ";)"See your support booklet for informationtion Logician is a drill and practice package that presents whole number addition problems which involve regrouping.";" The programs are sequenced according to difficulty. Each program includes a game which emphasizes logic and problem solving.":90İ900P901,LV(A):902,GP(A):D$;"BSAVE T.O.FILE,A900,L41":RNH,"IN MANAGER"|XCL$:11:8:"Insert another diskette."900:CL$CS(P(P(999))1)16CS1CS7CS6CS:vCL$:DN$CC$:D2$CC$:WIND,0,36,279,191:CO::::"Addi,1)" "L$(L$,(L$)1)+ X:L$" "504< (L$)1509i X2(L$):(L$,1)" "L$(L$,(L$)1)p X A$L$", "F$" "::X910935:A1A11:X,((A$,A1,1)):X CL$:CO,0,89:"Getting "CN$(A)"..."PR(950) "GET PROGRAMc CL$:10:"What is your":"first name? ";:INP,(11,"-AZ-az. '-"),F$:F$F$" " X2(F$):(F$,1)" "F$(F$,(F$)1) X:F$" "501 14:"What is your":"last name? ";:INP,(11,"-AZ-az. '-"),L$:L$L$" ":X2(L$):(L$.FILE,A900,L41":CL$:CO,00,90:"Getting the management options...":16384:RNH,"MANAGEMENT OPTIONS"s ^A((A$)) hIN:PRAN1įRNH,X1$ jDRAN1PRįRNH,X2$ lAN3PD600 mAN2PDī10000 rAN1PDİ750:MENU0:200 X(P(78))}LE$"-1"(N3PD):(CA)LE$LE$(1)R ((950)1)Č24768:DFT,1,32636:950,0p ::DUN,"MENU.PCK":(5) CO,172,150:(ST$(((907))),3(((907))));" " ,WIND:IN11:CO,79,181:"Which Number? ";:16000:A$Z$d TCAA$(1)ĺD$"BSAVE T.O(2):CF$(6) D$"NOMON CIO"0 (:255:0:1V -X(ZZ)(ZZ1)7:Y(ZZ)(ZZ1)9j 7RFL,"T.O.FILE" <DN$,D2$,N:CN$(N),DE$(N1),LV(N),GP(N) FSP$"":N1SP$"s" PI1N ZCN$(I),LV(I),GP(I),DE$(I)::DE$(I) nP(I)(I)(I1)256'  " MENU(ADDITION LOGICIAN):" (C) MECC HGR2 1984Y" BY R. PHILIP BOUCHARD y" LAST UPDATE: 84/07/11HBW8192 D$(13)(4):DL6:CN1:CA1:PR0:DR0:IS1:DI0:CL$(12):CC$(3):ST$(1)"on. ":ST$(0)"off.":CA$(1):CO$(15):CB$ԪсPĊŊ@CժCժCժBԪAЪB@CժCժCժBԪAЪ&AЪBԪCժCժCժB@BсBԁBЁBԁBԁqԊժŪԢժԨժըըЪШԪԨըѨԨpժժժժժԪŊժԪѪԪԪժԪըժԁPЪժԪժCժCժBԪAЪ&AЪBԪCժCժCժB@BсBԁBЁBԁBԁBԁPԂЪԀBՁNժѨԪժըժiժժժժժԪŊժԪѪԪբPԠժЂԪԁPѪԪՊ    PROGRAM: INIT MANAGER0(C) 1983 MECC<D$(4)G(16384_LV(901):GP(902)}L206:NM$::L2GPL26L2RNH,NM$@"RACE TIME","","THREE IN A ROW","ZEBUG NIM","THE FENCE GAME","REPEAT AFTER ME" EAN$,(AN$)1):196U CO,IX,IY:" ":(AN$)ANįCO,PX10,PY87:"RIGHT!":T3XC:196 :CO,PX40,PY87:"NO, TRY AGAIN.":T31:PAUSE,10:CO,PX40,PY87:" ":BOX,PX,PY63,PX60,PY73:XCXC1 IXPX48:IYPY63 CTCT65:B1(2) AA128:A$(A):A131822 A127A21184E A48A57196 (AN$)5įCO,IX,IY:A$:AN$A$AN$:IXIX12:CO,IX,IY:"":196 196 RV1:196 AN$""196 CO,IX,IY:" ":IXIX12:CO,IX,IY:"" (AN$)1AN$"":196 AN$(Z,YZ:CA$:B33B30C 170:AFT,3:CN$::CO,XZ,YZ:BF$(39):B30 B2(1)B2(1)1:(B1(1)1B2(1)6)(B1(1)2B2(1)5)(B1(1)3B2(1)5)(B1(1)4B2(1)4)B2(1)0:300:B1(1)B1(1)1 AFT,1:CN$: CO,IX,IY:"" AFT,1:CN$:A(3):A128196ҠȠΠ٠ˠNZN(ZN96ZN123)32J>(ZN1ZN8ZN13ZN24(ZN49ZN57))16040r>ZN8ZC1ZC0:(8);:Z$"":16040>ZN816040>ZN13(Z$)ı>ZN1316000>ZN24ZC0:Z$"":16035>(Z$)16040>Z$(ZN):ZN32ı>ZC1:Z$;:160401Ĺ907,0:10020'907,1$'D$"BSAVE T.O.FILE,A900,L41":CF$CL$CB$:CO,0,89:"Sound is now turned "ST$((907))CC$:QF1:900:QF0:CL$CF$CB$:220>(1);:ZE0:16368,0:ZC0:GCP,ZX,ZY:Z$"">CO,ZX,ZY>A$:A$""16040>(A$)9ZN(A$):Zdrill which reviews problems from all four preceding programs. A Management Option is available to adjust the time allowed to complete each set of problems. The drill is not timed"/ "if the graphics have been turned off. (20 problems)"'(907):BF$(33):B30:150# AFT,2:CN${ L0322:B3B31:CO,206(L(B2(1)32)),161:BF$(B36);:GCP,XZ,YZ:CA$:B33B30 170:AFT,2:CN$::CO,XZ,YZ:BF$(7):B30:150 AFT,3:CN$ L082:B3B31:CO,6,113(L(B2(1)10)):BF$(B338);:GCP,Xlls on whole number addition with four 2-digit addends. The regroup is 2 or more. (12 problems)"$"Repeat after Me",3,5,"Drills on whole number addition with 2- to 4-digit addends and 1 or 2 regroupings. (25 problems)"."Race Time",3,0,"A timed "Three In A Row",3,2,"Drills on whole number addition with two addends and one regrouping. (20 problems)""Zebug Nim",3,3,"Drills on whole number addition with two to four addends and 1 or 2 regroupings. (20 problems)"b"The Fence Game",3,4,"DriB31:CO,6(L(B2(1)32)),7:BF$(B39);:GCP,XZ,YZ:CA$:B33B30v r170:AFT,2:CN$::CO,XZ,YZ:BF$(10):B30:150 xAFT,3:CN$ zL0142:B3B31:CO,260,41(L(B2(1)14)):BF$(B332);:GCP,XZ,YZ:CA$:B33B30 |170:AFT,3:CN$::CO,260,YZ               zz"ApA|@`@@x@@|@@~@?A@A@A`A`ApApApApApA`A`A@A@A@~@?@|@@x@@`@A|Ap"ApA A`@`@@ @@@0@@`@C`@ 0 "PROGRAM: RACE TIME8"PROGRAMMER: PAUL WENKERL"(C) MECC 1984k("LAST UPDATE: 84/07/13PRWw)32000*39590+36864,(4)"MAXFILES1"<1000dCTCT65:B1(1)110,120,130,140nAFT,2:CN$B pL032(6(B2(1)5))2:B3 !!!                    ame.":860y4B1$(1)NM$:B1$(2)"Computer":BOX,0,158,279,191,0:CO,4,172:B1$(2):CO,84,165:CA$"will start this game.">BR((1)8)6:L1BR:F(F):L1įPAUSE,1sHBOX,2,158(F12),4(8((B1$(F1)))),168(F12),3::CO,4,160(F12):B1$(F1):P((BE)3)BH0]BW(1((BH3)(BV3)(BD3)(BE3)))(2((BH3)(BV3)(BD3)(BE3)))|BF0:BE0:BD0:BH0:BV0:L13:B3(L)109:L113:B5(L,L1)0::: CO$ *(BX)F(F):BOX,0,158,279,191,0:CO,4,165:B1$(F1)" will start this gA$:B33B300:CO,XZ,YZ:BF$(36):B30:250@AFT,2:CN$L0322:B3B31:CO,206(L(B2(2)32)),145:BF$(B3);:GCP,XZ,YZ:CA$:B33B30:CO,XZ,YZ:BF$(1):B30:250AFT,3:CN$L082:B3B31:CO,23,112(L(B2(2)10)):BF$(B3tttttt 1gͷ]w]w\`0ppppp]w]w]w]w]w]w?@wwwwww=g3 `pppp0`CBI:BL145:630RXBF((BD)3)BM1(BD3):BI76:BJ141:BK202:BL45:BH3:630bBF((BE)3)BM1(BE3):BI76:BJ45:BK202:BL141:BH3:630l650v2:L14:BI(L((BV)3)),BJ(L((BH)3))BK(L((BV)3)),BL(L((BH)3)):L:((BD)3)Ϋ210,220,230,240 AFT,2:CN$L032(6(B2(2)5))2:B3B31:CO,6(L(B2(2)32)),23:BF$(B33);:GCP,XZ,YZ:CA$:B33B30:CO,XZ,YZ:BF$(4):B30:250AFT,3:CN$ L0142:B3B31:CO,244,41(L(B2(2)14)):BF$(B335);:GCP,XZ,YZ:C(L1,L1):BEBEB5(L1,4L1)& &:BS0:X 0BS3:500:CO,100,0:((BD)3)((BE)3)BF1 :(BF)(B3(1)45B3(2)45B3(3)45)650 DBF((BH)3)BM1(BH3):BI76:BJ157(32BG):BK204:BLBJ:630NBF((BV)3)BM1(BV3):BI46(46BG):BJ45:BK247(4(NM$)),46:CO$NM$:BZ1:C ,IMAGE,2,12,1:IMAGE,1,230,1: AFT,1:CN$:CO,32,120:B6(2):CO,240,120:B6(1):CO$: L113:BV0:BH0 L213:BVBVB5(L1,L2):BHBHB5(L2,L1): ((BV)BS)((BH)BS)BF1:BGL1:L13:550 BDBDB5,(1(B3(BA)109))(2(B3(BA)77))(3(B3(BA)45)))(1(BB1))(1(BB2)):B3(BA)B3(BA)32` ~ ::DUN,"TIAR.PCK":(5) (BZ)BZ1:X162:X2217:Y15:Y225:BC2:9000:AFT,1:CN$:HSP:CO,69,10:"Three in a Row" BOX,215,46,279,60,0 CO,$NM$((X)):X: V(NM$,1)" "NM$(NM$,(NM$)1):86g Z(NM$)8NM$(NM$,1)". "(LN$,1)"."r \20000 dLB1(BB)B2(BA)B4(BB):IMAGE,BB,L,1: xL1B3(BA)4:IMAGE,BB,B2(BA),L:MUįPLAY,45TQ,1:PLAY,40TQ,1:TQTQ1 :TQ0Z B5(BAB3(L)109::B4(1)4:B4(2)4:B1$(3)"Nobody"S FRFL,"CHIP.IMA"33796:DFT,7,33796 KGT,NO:L1NO:OB(L),NP(L):L:PX100:PY40 PBQ(937):MU(907):GA(908):X910 RX910935:(X)44XXX:X935:84 SLN$LN$((X)) TX UXXX2935:NM' "THREE IN A ROW*"(C) MECC 1984F"PROGRAMMER: HBILL WAYd("LAST UPDATE:84/07/13PRWp-320002230,64:16384, <CA$(1):CB$(2):CC$(3):D$(4):CL$(12):CN$(14):CO$(15):B1(1)230:B1(2)12:B2(1)74:B2(2)121:B2(3)166:L13:       !!! ! ! ! ! !          荰 best score lists"; =CO,30,160:"8. Return to main menu"w BCO,30,180:"Which option? ";:INP,(1,"-18"),O$:O(O$) GO2000,3000,11000,6000,5000,10000,12000,31040 I1010 (908)1Ĺ908,0:2020 908,1 D$"BSAVE T.O.FILE,A900,L41" [100:560:BW0((B3(1)13)(B3(2)13)(B3(3)13))F1(F1):CO,14,164:CEL:300:1040q$5000:700:BW0:2BOX,59,0,220,30,0:CO,14,160:CEW:CO,14,160:"The first one to get three in a row wins the game.":30000:BOX,0,160,279,180,0:CO,14,160 lap time":CO,54,70:"(Currently = ";(936)20;" seconds)"h CO,30,85:"3. Set difficulty for games" $CO,30,100:"4. See names and scores" .CO,30,115:"5. Clear names and scores" 3CO,30,130:"6. Set up the printer" 8CO,30,145:"7. CheckAUSE,1::BOX,2,158((F)12),4(8((B1$((F)1)))),168((F)12),0:CO,4,160((F)12):B1$((F)1):L1įPAUSE,5RPLAY,(35F10)MU,30:\30000:BOX,0,158,279,191,0:BX1:200:300:400BOX,59,0,220,30,0:800:F1F(F11)3000,40000)"EASY":D$(1)"MEDIUM":D$(2)"HARD"9 <RFL,"T.O.FILE"C R101L CL$t CO,0,10:"Management Options";(3) CO,30,35:"1. Turn graphics ";:S$(0)"on":S$(1)"off":S$((908)):CO,54,45:"(Currently ";S$((908));")"; CO,30,60:"2. Set raceq@L133:170:AFT,4:CN$:CO,231L,8L:BF$(CV)::CV13CV14:AFT,2:CN$:CO,204,7:"####":AFT,4:CN$:320DAFT,3:CN$:CO,260,41:BF$(33):390JCV17TL133:170:AFT,4:CN$:CO,264L,132L:BF$(CV)::CV17CV18:AFT,3:CN$:CO,260,11 "MANAGEMENT OPTIONS7"PROGRAMMER:P FUGLESTADL"(C) MECC, 1984j("LAST UPDATE 84/07/10HBWv-32000216384:CA$(1):CC$(3):CL$(12):D$(13)(4):R1:A$(100),S$(1),D$(2),DE$(4,3):WIND4L14:L203:DE$(L,L2):L2:L% 7D$(41);:GCP,XZ,YZ:CA$:B33B30=:CO,XZ,YZ:BF$(42):F30B2(2)B2(2)1:(B1(2)1B2(2)6)(B1(2)2B2(2)5)(B1(2)3B2(2)5)(B1(2)4B2(2)4)B2(2)0:400:B1(2)B1(2)1AFT,1:CN$:,CTCT90:AFT,4:CN$:B1(1)310,330,350,3706CV13         ԮԠ0003f<ff<>gccccg>>~~|` fffffffffl6iɆpqs 0 000000 0 0Z<|~~6    INP,(3,N,0),N$:N$""L1:3050W N(N$):L0:N0N999N20(N20)Ĺ936,N20:L1^ L CO,0,183:D$"BSAVE T.O.FILE,A900,L41":NAME AND SCORE LISTD$"OPEN STFILE,L35":D$"READ STFILE,R00":A$:D$"CLOSE STFILE"TR((A$,4))700BF0:L113:BV0:BH0J2L213:BVBVB5(L1,L2):BHBHB5(L2,L1):o4BV2BH2BF1:BGL1:L13:44086BDBDB5(L1,L1):BEBEB5(L1,4L1)8:(BF)BD2BE24480:BD2BA3:4480DBE2BA1:4480NBV2BABG:4480XBH2BAL1):,BV2BH2BF1:BGL1:L13:4338RBDBDB5(L1,L1):BEBEB5(L1,4L1)r:(BF)BD2BE24400BD2BA3:4480BE2BA1:4480BV2BABG:4480BH2BA0L13:BAL(B3(L)(109(BG32))):BA0L3&:448A3:4290|BE2BA1:42905BH2BA0:4250?4270oL13:BAL(B3(L)(109(BG32))):BA0L3{:4290BV2BABG:42904100:4294B3(BA)454280BF0:L113:BV0:BH0L213:BVBVB5(L1,L2):BHBHB5(L2,4:CEL:"Slot "BA" is full!"CC$:PAUSE,20:CO,0,164:CEL:3000I BB1:bBQ14100,4200,4300CO,14,164:"The computer picks slot "BA".":PAUSE,20:BB2:BH0:BV0:BD0:BE0:BF0:BA((1)3)1:B3(BA)454100hBS2:500 rBD2B5607B6(1)3:400:30000:B6(1)0:B6(2)0:700:BW0:BOX,74,46,116,145,0:BOX,117,46,119,145,1:BOX,120,46,162,145,0:BOX,163,46,165,145,1:BOX,166,30,206,145,0:> CO,14,164:NM$", which slot? ";:INP,(1,"-13",1),A$:BA(A$):B3(BA)45įCO,0,16CO,14,160:"You can also win with three across...":30000iL13:B5(L,1)1:IMAGE,1,B2(L),109::560B6(1)2:400:30000:700:2200:BOX,0,160,279,180,0:CO,14,165:"... or three up and down.":30000 L13:B5(1,L)1:IMAGE,1,74,141(32L):::"You can win by placing three chips diagonally."BB1:BA3:100:300:BB2:BA2:100:300:BB1:BA2:100:300:BB2:BA1:100:300:BB1:BB1:100:300:BB2:BA2:100:300:BB1:BA1:100:300:560:B6(1)1:400:30000:700:2200:BOX,0,160,279,180,0:The time entered must be a multiple of 20 (i.e. 20,40,60,...)."o :"Current time---> "(936)20" seconds " A1A0:CO,0,166:39):3060 CO,0,178:"(Press RETURN for no change.)"CC$  CO,0,158:"New time-------> seconds":CO,136,158:) CL$:CO,0,15:"RACE LAP TIME";(3)4 L11 CO,0,50:" In this option you can set the time it takes the computer's race car to complete the race. The student must answer 20 problems correctly in order to complete the race."? :" "connect two dots as shown.":30000`BOX,0,160,279,191:L27:FTFT:L$,L4:L417000,7100vPAUSE,4:7500:LCO,15,160:CO$"If you fence in a box, you score":CO,15,170:"a point and move again.":30000BOX,0,160,279,191:L824:FTFT:L20L2,165L2:L2C AFT,1:CN$:HSP:CO,8,170:"The Fence Game" CO,159,167:CO$"Do you want":CO,159,177:"instructions?";:DB:36000:Z$"Y"Z$"y"5120$BOX,0,160,279,191:L$"J":7000:CO,15,160:"When it is your turn, you can":CO,15,170:("N$(2L)")":L FFFT:ZZMU:MU0:L103:L203:L301:P(L1,L2,L3)FTP(L1,L2,L3)1:L$(65L1L24):P(L1,L2,2)0:L317000,7100:L3FTP(L1,L2,3):7500 L3:L2:L1:MUZZ:FTFF: 2:L204:0L2,165L2154L2,165L2154L2,185L20L2,185W(1)0:BOX,150,0,155,150,6:BOX,0,150,279,155,6 L01:1L:L215:202L2,35L2L80232L2,35L2L80232L2,55L2L80202L2,55L2L80202L2,35L2L80:L2:L AFT,1:7300 CO$:L01:CO,218(N$(L))4,1080L:N$(L):CO,202,20L80:"0),1)(LN$,1):N$(3)"XX". CL$:(GA)İ5000? NP1231000Q 10000:12000j NPNP1:SSSS(T30) NP3(NP3)(GA)įPAUSE,10:6000 1010 5010:5035 CL$CO$:L$"A"::Y516440:X516440:5900:L$((L$)1):X:Y:0 W(0)0:100:9000'(N$,2)"00"X100:7080GNU$((G$)):G$"0"G$"R"bNU$"0"NU$"5":7060}NU$"1"NU$"4":7060NU$"6"NU$"3":7060NU$"5"NU$"2":7060NU$"4"NU$"1"=L(N1$):N1$;50L);NU$;:L(L$):2L);L$;:L(G$30UzCL$:12:"Would you like to use"::"a printer? ";:36000:Z$"Y"İ7000:6030_4028eXCL$:CO,0,89:"Please prepare your printer...":30000bCL$:CO,0,90:"Printing the report...":D$"PR#0":D$"IN#0"l8000:PACT:9100 vX1res? ";:DB:36000:Z$"Y"Z$"y"ıXCL$:CO,0,89:"Clearing names and scores..."qD$"OPEN STFILE,L35"D$"WRITE STFILE,R0""0000000"X1100D$"WRITE STFILE,R"X"000"XD$"CLOSE STFILE"p4000:TR060GI$:CO,238,Q:CO$:CO,258(4(MA$"YES")),Q:MA$BQ1604260Q60:XX1:9000:XX1:(N$,2)"00"İ30000:BOX,0,70,279,191,0::4260X100XHSP:30000:&CL$:CO,0,89:"Are you sure you want to clear all"::"the names and sco100:4260)NU$((G$)):G$"0"G$"R"DNU$"0"NU$"5":4240_NU$"5"NU$"4":4240zNU$"4"NU$"3":4240NU$"3"NU$"2":4240NU$"2"NU$"1"1HSP,1:CO,0,Q:N1$:HSP,2:CO,170,Q:NU$:CO,185,Q:L$:CO,202,Q:G$:CO,215,Q::OB(L),NP(L):L:PX100:PY40H xMU(907):GA(908):LVL(939)1:X910z yX910935:(X)44LN$LN$((X)):ZX:123 zX935 {X |XXZ3935:(XX)32(XX1)32N$(0)N$(0)((XX)):126 }XX935 ~XX N$(1)"Computer":N$(2)(N$(q+ "PROGRAM: THE FENCE GAME="PROGRAMMER: PAUL WENKERQ"(C) MECC 1984p("LAST UPDATE: 84/07/13PRW{-16384/320007230,64KD$(4):CN$(14):CO$(15):CL$(12):CC$(3):CH$(8)dL(3),N$(3),W(1),P(4,4,3) nGT,NO:L1NOPLİ5100=5200:D$;"BSAVEPRINTER COMMANDS.BIN,A"PP",L128"C2:"The normal setting for page length is":"66 lines per page.":6:"What page length is your printer set to produce? ";ZB10:ZT120:ZC0:37000:PP1,ZN:PL120:PP106L R T":CO,170,40:"B V O V E E":CO,170,48:"E E U E C R":CO,170,56:"R L P N T Y""-----------------------------------"CO,0,56:"NAME"8000@CO,70,100:" "JX1100TQQ15^9000 r(N$,2)"00"Xds will be dropped.":4025sCO,20,100:"As each new record is entered,":CO,20:"the oldest record is dropped."30000:CL$:Q60CO,170,8:" C M"Z:CO,170,16:"N O A":CO,170,24:"U L G G R S":CO,170,32:"M E R I TR0ĺCL$:CO,0,89:"No records have been saved.":4025CL$:CO,20,70:"100 records can be saved."::CO,20:TR" record";:TR1ĺ" has";:4015"s have";" been entered.":TR100įCO,20,109:"When you reach 100 the oldest":CO,20,118:"recor(AA$,(AA$)1):55% :NN$AA$" "N$c ZX18:M(X),B1(X),B2(X),B3(X),B4(X),CO(X),C1(X),C2(X):X GT,NO:X1NO:OB(X),NP(X):X MU(907):P9(908):SN$"number":MUSN$"note" CL$(12):PX100:PY40 P9Ĺ230,64:::DUN,"REPEAT.PCK":(5)15:RE(5)15H -CC$(3):CN$(14):CD$(4):AFT,0:CN$:SC(11),A$(11)k .RFL,"REPEAT.IMA":DFT,7,33796 /X910935:NN$NN$((X)): 2X1(NN$):(NN$,X,1)","XXX:X300 3X 6N$(NN$,XX1):AA$(NN$,(NN$)XX1) 7(AA$,1)" "AA$& "REPEAT AFTER ME 6"PROGRAMMER:P FUGLESTAD K"(C)1984, MECC k("LAST UPDATE 84/07/13PRW w)32000*16384 ,RE$(1)"Good!":RE$(2)"Great!":RE$(3)"Fantastic!":RE$(4)"Terrific!":RE$(5)"Very Good!":RE(1)40:RE(2)40:RE(3)15:RE(4!!!"""""""""           on going!"CC$CO$:HCTCT90:AFT,4:CN$:B1(2)410,430,450,470RCV15L118:CO,231L,23L:BF$(CV)::CV15CV16:AFT,2:CN$:CO,204,23:"####":AFT,4:CN$:420AFT,3:CN$:CO,244,41:BF$(36):490CV19KL118:CO,248L,170:AFT,4:CN$:CO,10L,72L:BF$(CV)::CV25CV26:AFT,3:CN$:CO,6,75:"89":AFT,4:CN$:380~AFT,2:CN$:B30:L0102:B3B31:CO,43L,39:BF$(B39);:GCP,XZ,YZ:CA$:B33B30 :CO,XZ,YZ:BF$(10):XQ43:YQ86:5100:5200:CO,0,164:CO$"Keep 2:"89":AFT,4:CN$:340AXAFT,2:CN$:CO,206,161:BF$(7):390K^CV21hL135:170:AFT,4:CN$:CO,41L,165L:BF$(CV)::CV21CV22:AFT,2:CN$:CO,42,161:"####":AFT,4:CN$:360lAFT,3:CN$:CO,6,112:BF$(39):390rCV25`|L133:1))412040%!.A$(X)" "A$(X):12020,!/XK!/BOX,PX20,PY,PX90,PY120o!/Z6:X15:ZZ1:B$(Z)A$(X):X!D/HSP,4:BOX,0,11,279,191:CO$:WIND:CO:CEL:"Problem "NP1" of 20"CC$CN$:6:0,10279,10!N/L15:CO,PX,PY12(L1):B$(L):L#"S/LXPXA$(2)(B)% +A(3)A$(3)A$(3)(C)@ +A(4)A$(4)A$(4)(D)G +X_ +A$(1)(A$(1),A(1))w +A$(2)(A$(2),A(2)) +A(3)0A$(3)(A$(3),A(3)) +A(4)0A$(4)(A$(4),A(4)) ,X14:A(X)(A$(X)):ANANA(X):X , .X1NN1 !.(A$(X):11080>+TL0:ZZZKH+A((1)(ZTL))1TL:B((1)(ZTL))1TL:NN2p\+A(3)C((1)(ZTL))1TL:NN3p+A(4)D((1)(ZTL))1TL:NN4z+QABCDC(X1)+TP9(TL10)+Q(TL10)11080+QTP11080+A$(1)A$(1)(A) +A$(2):A(2)4:C(2)1:11000T(TA2:A(1)2:A(2)2((1)2)1:A((1)2):C(3A)1:11000)X13:A(X)3:X:A(4)(3((1)2)):C(3((1)2))1:TA3:A(4)0TA4)11000*X0:C0:D0 +XX1:A(X)11020 +Z8X:ZZZ*+X144+C(X)Z9:TLC(X(A(1)2:A(2)2:A(3)2:A(4)(2((1)2)):TA3:A(4)0TA4O(C(4)1:11000|(C(4)1((1)2)1:X14:A(X)2:X:TA4(A((1)2)1:C(A)((1)2)2:11000(TA2:A(1)3:A(2)3:C(3)1:11000(TA2:A(1)4:A(2)4:C(2)1:11000(TA2:A(1)3A(X)0:C(X)0::A$"":B$"":C$"":D$"":E$"":F$"":XC0|2(OB10310,10330,10350,10370,10400,10420,10440,10460,10480,10500F(TA2:A(1)2:A(2)2:C(4)1:11000Z(TA2:A(1)2:A(2)2:C(3)1:C(4)1:11000n(TA2:A(2)2((1)2)1:A(1)1:C(4)1:11000=6(BW)B6(BW)1:400 30000:j(#BC:L03:X1L,Y1LX2L,Y1LX2L,Y2LX1L,Y2LX1L,Y1L:L:3:z'AFT,1:CN$$'R((1)NO)1.'OB(R)0100208'NP(R)010020B'NP(R)NP(R)1L'OBOB(R)8~'T30:KQ0:SC0:NN0:AN0:X14:A$(X)"":02bL13:BAL(B3(L)(109(BG32))):BA0L38lEBF4485^B3(2)77BA2:4485xB3(1)109BA1:4485B3(3)109BA3B3(BA)45İ4100BOX,0,158,279,191,0:BW0BW3WINDCO,0,164:B1$(BW)" WINS!"CC$:BW3:B130802A48A5713020R3(AN$)5įCO,IX,IY:A$:AN$A$AN$:IXIX12:13020]313020w3CO,IX,IY:" ":131003AN$""13020"3CO,IX,IY:" ":IXIX12#3(AN$)1AN$"":13020$3AN$(AN$,(AN$)1):13020,3(AN$)ANįCO,0,PY95:"RICO,PX,PY12(L1):B$(L):LHS/LXPX37:CO,LX(((AN))11),PY48:"+"X/YPY60:X2PX58:X1X2(((AN))11)5:3:X1,YX2,Y2AN$"":IXPX48:IYPY632A(0):A(1):CO,IX,IY:"":CO,IX,IY:A(5):AA128:A$(A)2A13130702A127A21(A$(X)):ANANA(X):X,*.X1NN1@.(A$(X))412040[.A$(X)" "A$(X):12020b/X/Z6:X15:ZZ1:B$(Z)A$(X):XD/HSP,4:BOX,0,11,279,191:AFT,0:CN$:WIND:CO:CEL:"Problem "NP1" of 25"CC$CN$:6:0,10279,10:AFT,1N/L15:11080+QTP11080++A$(1)A$(1)(A)@+A$(2)A$(2)(B)[+A(3)A$(3)A$(3)(C)v+A(4)A$(4)A$(4)(D)}+X+A$(1)(A$(1),A(1))+A$(2)(A$(2),A(2))+A(3)0A$(3)(A$(3),A(3))+A(4)0A$(4)(A$(4),A(4)),X14:A(X))11020 +Z8X:ZZZ!*+X14>4+C(X)Z9:TLC(X):11080L>+TL0:ZZZH+A((1)(ZTL))1TL:B((1)(ZTL))1TL:NN2\+A(3)C((1)(ZTL))1TL:NN3p+A(4)D((1)(ZTL))1TL:NN4z+QABCDC(X1)+TP9(TL10)+Q(TL10)2:A(1)2:A(2)2((1)2)1:A((1)2):C(3A)1:11000(X13:A(X)3:X:A(4)(3((1)2)):C(3((1)2))1:TA3:A(4)0TA4)X13:A(X)3:X:A(4)(3((1)2)):A1((1)2)1:C(A)1:TA3:A(4)0TA4)11000*X0:C0:D0 +XX1:A(X(2((1)2)):TA3:A(4)0TA43 (C(4)1:11000` (C(4)1((1)2)1:X14:A(X)2:X:TA4 (A((1)2)1:C(A)((1)2)2:11000 (TA2:A(1)3:A(2)3:C(3)1:11000 (TA2:A(1)4:A(2)4:C(2)1:11000 (TA2:A(1)3:A(2)4:C(2)1:110008(TAC$"":D$"":E$"":F$"":XC0` 2(OB10300,10320,10340,10360,10390,10410,10430,10450,10470,10500 <(TA2:A(1)2:A(2)2:C(4)1:11000 P(TA2:A(1)2:A(2)2:C(3)1:C(4)1:11000 d(TA2:A(2)2((1)2)1:A(1)1:C(4)1:11000! x(A(1)2:A(2)2:A(3)2:A(4)):AFT,0:CN$ 20000N 230,64:::DUN,"REPEAT.PCK":(5):AFT,0:CN$:^ 'AFT,1:CN$q $'R((1)NO)1 .'OB(R)010020 8'NP(R)010020 B'NP(R)NP(R)1 L'OBOB(R) ~'T30:KQ0:SC0:NN0:AN0:X14:A$(X)"":A(X)0:C(X)0::A$"":B$"":CDBAAAMAMA;nKw]ABDED DBAAAMAMAw]Kn;ABDEDADBAAAMAMAn;K]wABDEDBAAAMAMA]wK;nABDEDBAAAMAMA;nKw]ABAAFAFAABAAAMAMAw]Kn;AMAEC DBAAAMAMAn;K]wABDEDBAAAMAMA]wK;nABDEDBAAAMAMA;nKw]ABDFABDBAAAMAMAw]Kn;ABDAAIDBAAAMAMAn;K]wABDAAGADBAAAMAMA]wK;nABDBAAMAAAMAMA;nKw]AMAMAMAMAAAMAMAw]Kn;ABAAFAFAABAM@AM@AAAMAMAn;K]wABDAIADBA_AAMAMA]wK;nABDA DBAAAMAMA;nKw]ABDEDBAAAMAMAw]Kn;ABDggaD`A]w5 G@`0 H@`0 { 0`@H 0`@G7}W]wK;nAMAMALL|A|LL;n;nKw]AMAMAMAMAAAMAMAw]Kn;AMAMAMAMAAAMAMAn;K]wAMAMAMAMAAAMAMA]wK;nAMAMAM;l8b ;vlX@kl8i3g O;n;n;K]wAD`aggaD`AD`a Jn;~~~n; <2CN;.;n;n;.;n;.{n;>kn;.;KNK.;n;K]wAMAMA]w]B~Ayx`agay~]w5 ) 7}W]w]w]vXp@v^vqcG?~~yyegw]w]wK;nA%x`x||x`xx`xx`x;n;n;B?AOc0cO?@;nk>G@{`@G;n{.;n;n"" " " " "