' +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- (  wϠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`# d ֠z# u`**hQ**E+i+$$! $%%# bEEEhh`D76  "(!#@`"E% E*&+'% E!&*'i' E0EE#0̥#%% E*!0 E0`+i+`%J)+%j )* * (je$*` >EWR TPHEE2 ?hHh`0 i Hɝ67  9,T,Q Xhh`ɍ[Ɉ  D L-EɊ%%# bE "L-Eɇ L-EɌ**+*++8 $%QQHH Eh%HJJJ'hH*&'*&'*&')&&EH 0>7333000>;3>3?>60303733  0800633<3??337333333333>0p7>0  <3333333 33??33 333 ? ?<<0<3 3??> 33?3333333333333???3;3333?333 00003333?3???333337?;333333333333?>333303? 33333333333 333???333 3333 ?0 ? 0 ? 3278,183: L37030 @BORDERBJ(12):HC((1)2):2HC((1)2)4THC,0HC,182:2HC,02HC,182:278HC,0278HC,183:276HC,0276HC,183Y0,1278,1:0,182278,182^0,0278,0:0,183278,183: ,182278,182^0,0278,0:0,183278,183::(IN$,1)"Y"(IN$,1)"N"36020.251,0@Z$(IN$,1):SNUMERIC INPUTZB=MIN, ZT=MAX, ZC=C/R LEGAL (BOOLEAN)ZH(36)1:ZV(37)1IN$"":FI$"21"(ZV35)(ZH35)(((ZT))35)"#2 1":Z$IN$"":ZN(Z$)ZNZBZNZT30020+Xu1:868:1::ZV:ZH:16368,0:4yEND_@y40000:2:12:"^ONE MOMENT PLEASE..."Jy(4)"BRUNHPRINT":230,64:62450:(4)"RUNTEACHER OPTIONS"YES-NO251,1ZH(36)1:ZV(37)1:IN$"":FI$"21"(ZV35)(ZH35)"&$4AZ1"#:A32AA64:*#251,1:(A);:251,0:=#K:Q$:CTCTLC#S0uSPACEBAR r5uZH(36)1:ZV(37)1:ZF0:u22:1:868:7:"^PRESS ^S^P^A^C^E ^B^A^R TO CONTINUE";Du16368,0:16384,128:ZP(16384):ZP155ZFZF1:ZF231000NuZP1609110&F#JK6L:(S$,J,1)")"9100HP#X$(S$,K5,JK5):X((X$))[Z#X0X127X0wd#L$"":K1L$(S$,K1)n#R$"":LJR$(S$,LJ)x#S$L$(X)R$#LKLJ:9110#J#K#13:868:L(S$):K1L#A((S$,K,1)):PPCTK,A16368,0:251,0:.^(A8L0)ĺC$Q$;:8020<hA88080PrA34L198020c|A32AA64:(A);::S$S$C$:8020C$" "C$;:L1S$"":8020S$(S$,L1):8020(#SCAN FOR CHR$2#L(S$):L79120<#K1L6:(S$,K,5)"CHR$("L2:1:958::L256S$""İ9000:CTCT1:PPCT,13iL2:CTCT1:PPCT,0:PPCT1,255:PPCT2,25522:2:"^ARE THE ABOVE COMMANDS CORRECT? ";:36000L1(Z$"Y"):L1@INPUTJS$"":16368,0:251,1TL(S$):C$:A(C$):A13)Z$"N"ĹPP2,0:PP3,255:PP4,255::L111:CT140000:2:"^PLEASE TYPE IN THE SPECIAL COMMANDS":2:"FOR YOUR PRINTER. ^TYPE AN EXTRA":2:"'RETURN' WHEN YOU HAVE FINISHED."L215:72L2:6:958:"^PRINT "Q$;:8000S$""Ģ72ARDhb40000:7:2:"^THE PRINTER INTERFACE CARD MAY BE IN":2:"ANY SLOT 1-7. ^MOST COMMONLY 1 OR 2."l12:2:"^WHICH SLOT IS YOUR CARD IN? ";:ZB1:ZT7:37000:PP,128ZNv17:2:"^DOES YOUR PRINTER REQUIRE ANY SPECIAL":2:"COMMANDS? ";:36000:2:"^2. ^LOW SPEED (^USUALLY 10 CPS)"z12:2:"^WHICH PRINTING SPEED DO YOU WANT"::2:"TO USE? ";:ZB1:ZT2:37000PP2,128(ZN1)18:2:"^WHICH SLOT IS THE COMMUNICATIONS"::2:"CARD IN? ";:ZB1:ZT7:37000PP,ZN:XNOT COMM C0000:14:2:"^WHAT PRINTER ARE YOU MAKING THESE":2:"SETTINGS FOR? ";:251,1::251,0:P$IN$"":LP(P$):LP0ıiLP20P$(P$,20):LP20nL1LP:PP106L,((P$,L,1))::pSET COMM CARD'z40000:6:2:"1. ^HIGH SPEED (^USUALLY 30 CPS)":΍ǍÍčȍōҍȍ΍ʍˍӍʍˍύˍō΍Ǎč͍č͍͍ٍ͍Í΍͍ˍЍԍčӍҍˍōʍӍčƍՍ͍֍Í΍Սōč`I΍UUU UULU`dUeUeUX eUfUgUcU"fUcUԢ TLSȑhhL2S` TL % ̠ҮŠŮҠɤȮΤĮ̠Ů̠ĮɥԠĮ UUUUUUUUUUUUUUUU UU P ThU '0 ULT T' `% "$`TTijTTkl8`iiLTȱȱȱLSdF?0hԢ T cUۢUL]UfUgUfUȑ TBC SI TUL]UFȩȩ멍 ` eUi eUX eUfUgULR zTLRB>H)h ɠFȄBLRLSB𱦧C B FFLR=$<% " C0`216,0:90002^"ERROR "Y" AT "(218)(219)2568h 0,279,190:15:27"?uWA0300252Du"Perfect!"CIuWA130035TNu"Terrific!"eSuWA230045tXu"Thanks!"]uWA330060bu"Made it!"luGH0500:GH:y ESC"y9000@ ONERR ROUTINEJY(222)TY90Ĺ216,0:9000 YY255OSYBXDYXOSXBYDX,YOSY(BX1)DY2B':2000pL'1:1:"SUBTRACTION FUZZIES"CC$:"Counting down by "N;CC$vV'RBOX GENERATOR R1RX03&RX,3X279X,3X279X,177XX,177XX,3X0RX:R0u FUZZIE SAYS THANKS:uWIND,0,XODX,YOSYBBDY-$'BY1BB:BX((BB1)BY)9)'JS0N.'XO,YOSY(BY1)JSQSXOSXBX,YOSY(BY1)JSQSXOSXBXDX,YOSY(BY1)JSQSDY3'&8'XOSXBY,YOXOSXBY,YOSYBX:XOSXBYDX,YOSYBXDYXOSX(BBBX)DX,YOSYBXDY:XOSXBYDX,YF#850,1(K#845,RA:848,RAWA:847,WA@M#851,10:N5Ĺ851,8TP#D$"RUNSUMMARY"e' DRAW STEPS'BOX:3:BB102(N5):QS3(N4)(N3)2(N1)5:XO5:YO172:SX246(N5):SYQSN:DX5:DY5'XO,YOXOSXBB,YOXOSXBBDX,YODY"'XO,YOXO,YO#845,RA:848,RAWA:847,WA3M#851,10:N5Ĺ851,89N#MP#D$"RUNSUMMARY"^' DRAW STEPS'BOX:3:BB102(N5):QS3(N4)(N3)2(N1)5:XO5:YO172:SX246(N5):SYQSN:DX5:DY5'XO,YOXOSXBB,YOXOSXBBDX,YODY"'XO,YOXO,YOSYBB,ZY:FZ$(1):2200- CO,ZX,ZY:FZ$(2):2200H CO,ZX,ZY:FZ$(1)CO$:z(#BOX,0,0,279,191:WIND,6,6,273,176:21000:CO2#9:9:"One moment please..."<#D$"OPENNAME":D$"DELETENAME":D$"OPENNAME":D$"WRITENAME":F$:L$:N:D$"CLOSE"F#850,1K 2100" CO,ZX,ZY:FZ$(2):2200> CO,ZX,ZY:FZ$(1):2200p DP16:CO,ZXFX(DP),ZYFY(DP):FZ$(3):2200 CO,ZXFX(DP),ZYFY(DP):FZ$(0):DP1ēXODX(FP1)SX,YO((BB1)FP)SYDYXODXFPSX,YO((BB1)FP)SYDY :FPFP1:2100 CO,ZX INPUT ANSWER|j WIND,0,0,279,191:CO,XO3PSX,YO2:INP,(2,"-09E"(27),1),A$:A(A$):WIND,100,25,279,60:A$"E"9000t  PRINT CORRECT ANSWER 2300 WIND,0,0,279,191:CO,XO3PSX,YO2:CA:WIND,100,25,279,60: JUMP FUZZIEY(2)10:FY(3)15:FY(4)15:FY(5)7SY2:FY(6)SY6I4 START FUZZIE}>ZXXODX(FP1)SX3:ZYYO((BB1)FP)SYDY22HCN$:CO,ZX,ZY:FZ$(1): DELAYZZ130:: ERASE INPUT BOX BOX,XO3PSX,YO2,XO19PSX,YO10 `wer is "V".":WIND,0,0,279,191:WAWA1::SPACE:CAV:2500:3000:1260eSPACE:WIND,100,25,279,60BOX:CO:PP1:V01095300009000 CALCULATE JUMP COORDSFX(1)0:FX(2)0:FX(3)SX3:FX(4)SXSX3:FX(5)SX:FX(6)SX0FY(1)0:Fht.":1160~"Fabulous!"7WIND,0,0,279,191:3000IRARA1:1250UTRTR1dTR11240qBOX:COAV1220"No, "A" is too big."VVN:1100"No, "A" is too small."VVN:1100FBOX:CO:"Still not right. The ans"Enter the next number down from "V" and press RETURN.":VVN QWIND,0,183,279,191:CO:"Type 'E' to stop."CC$:WIND,100,25,279,60:CO V2400 [AV1170 `BOX:CO eRR(3(1)1) jRR1135,1140,1150 o"Correct.":1160 t"That's rigto SUBTRACTION FUZZIES!"s $7:"What digit do you want to count"::"down by (1-5)?";:INP,(1,"-15",1),N$:N(N$) .WIND,0,0,279,191 3853,1 810000:FFNBB:CO$:FP1:2100:CO$:P0:CAFF:VFF:2500:P1 BWIND,100,25,279,60:CO GTR0= LL$,N:D$"CLOSE":1070* RA0:WA0:853,0{ 2:"What is your FIRST name?":3:"[ ]";:2:INP,(11,"-AZ",1),F$ 5:"What is your LAST name?":6:"[ ]";:2:INP,(15,"-AZ",1),L$ BOX 3:"Hello, "F$"!": "Welcome DFT,3,324008 HOOK:WIND,6,6,273,176:BOX:21000:CO NOCNV:PARSE:AFT,2,1:FZ$(1)" !":FZ$(2)"#$":FZ$(3)"%&":FZ$(0)(34)(34) DG$(14):I014:DG$(I)(32I2)(33I2): "D$(4) ,(853)1(849)1ĺD$"OPENNAME":D$"READNAME":F$,FTER NAME INPUT$ INITIALIZATION0 40000C 230,64:16384w CA$(1):CC$(3):CL$(12):CN$(14):CO$(15) (4)"BLOADASCII BOLD.FNT,A29696" (4)"BLOADFUZZIES.FNT,A30472" (4)"BLOADTITLE.PFT,A32400" DFT,1,29696:DFT,2,30472::dPROGRAM: SUBTRACTION3i FUZZIESNnPROGRAMMER: TIM BUEGEfxCOPYRIGHT (C) 1986 REVISION: TJB 09/15/86FONTS: ASCII BOLD.FNT FUZZIES.FNT TITLE.PFT POKE853,1:FLAG TO CHECK ESCAPE A       0BOX:21000:9000/Y(218)(219)256T"ERROR "(222)" OCCURRING AT "YZTELEVISION OR":5:"MONITOR OFF.",`r292806y ESC="y3Yr ON ERR PROCESSING dt216,0|w(222)255įBOX:3|(222)9040070BOX:3Y(218)(219)256"ERROR "(222)" OCCURRING AT "Yč͍ō΍ƍ00 CO,ZX,ZY:FZ$(1):2200: CO,ZX,ZY:FZ$(2):2200U CO,ZX,ZY:FZ$(1)CO$:(#BOX,0,0,279,191:WIND,6,6,273,176:21000:CO2#9:9:"One moment please..."<#D$"OPENNAME":D$"DELETENAME":D$"OPENNAME":D$"WRITENAME":F$:L$:N:D$"CLOSE" MP FUZZIE 2100/ CO,ZX,ZY:FZ$(2):2200K CO,ZX,ZY:FZ$(1):2200} DP16:CO,ZXFX(DP),ZYFY(DP):FZ$(3):2200 CO,ZXFX(DP),ZYFY(DP):FZ$(0):DP1ēXODX(FP1)SX,YO((BB1)FP)SYDYXODXFPSX,YO((BB1)FP)SYDY :FPFP1:2110  ` INPUT ANSWERj WIND,0,0,279,191:CO,XO3PSX,YO2:INP,(2,"-09E"(27),1),A$:A(A$):WIND,100,25,279,60:A$"E"9000t  PRINT CORRECT ANSWER 2300 WIND,0,0,279,191:CO,XO3PSX,YO2:CA:WIND,100,25,279,60:  JU=FY(1)0:FY(2)10:FY(3)15:FY(4)15:FY(5)7SY2:FY(6)SYCV4 START FUZZIE>ZXXODX(FP1)SX3:ZYYO((BB1)FP)SYDY22HCN$:CO,ZX,ZY:FZ$(1): DELAYZZ130:: ERASE INPUT BOX BOX,XO3PSX,YO2,XO19PSX,YO The answer is "V".":WIND,0,0,279,191:WAWA1::SPACE:CAV:2500:WIND,0,0,279,191:3000rWIND,100,25,279,60BOX:CO:PP1:V01095300009000 CALCULATE JUMP COORDSFX(1)0:FX(2)0:FX(3)SX3:FX(4)SXSX3:FX(5)SX:FX(6)SXght.":1160~"Fabulous!"8WIND,0,0,279,191:3000QRARA1:SPACE:1250]TRTR1lTR11240yBOX:COAV1220"No, "A" is too big."VVN:1100"No, "A" is too small."VVN:1100ZBOX:CO:"Still not right. "Enter the next number down from "V" and press RETURN.":VVN QWIND,0,183,279,191:CO:"Type 'E' to stop."CC$:WIND,100,25,279,60:CO V2400 [AV1170 `BOX:CO eRR(3(1)1) jRR1135,1140,1150 o"Correct.":1160 t"That's rič͍΍ǍÍčȍōҍȍ΍ʍˍӍʍˍύˍō΍ƍč͍č͍͍ٍ͍Í΍͍ˍЍԍčӍҍˍōʍӍčƍՍ͍֍Í΍Սōč NL$(I)NL$:NF$(I)NF$:LV$(I)LV$2fNNNN1:1800A DELETE LYLNNNNNN1:1800IL1NN:NF$(I1)NF$(I):NL$(I1)NL$(I):LV$(I1)LV$(I)::NNNN1:1800R BORDERR1:X03RX,3X279X,3X279X,177XX,177XX,3X&R:y BYDX,YOSYBXDYXOSXBYDX,YOSY(BX1)DY9B':2000wL'1:1:"SUBTRACTION FUZZIES"CC$:"Counting down by "N;CC$}V'RBOX GENERATOR R1RX03&RX,3X279X,3X279X,177XX,177XX,3X0RX:R0u FUZZIE SAYS THANKS:ut"$@C@AC<$dB" `````p<$@@@AC<$bB"```p<$@C@AC< $dB" ``````0ō΍ō ȍ΍΍ʍ̍̍ˍō  y ESC "yBOX:992 r ON ERR PROCESSING = t216,0V w(222)255įBOX:99l |(222)9040070y BOX:99 Y(218)(219)256 "ERROR "(222)" OCCURRING AT "Y C to SUBTRACTION FUZZIES!"t $7:"What digit do you want to count"::"down by (1-5)?";:INP,(1,"-15",1),N$:N(N$) .WIND,0,0,279,191 3853,1 810000:FFNBB:CO$:FP1:2100:CO$:P0:CAFF:VFF:2500:P1 BWIND,100,25,279,60:CO GTR0> L ΍ǍÍčȍōҍȍ΍ʍˍӍʍˍύˍō΍ōč͍č͍͍ٍ͍Í΍͍ˍЍԍčӍҍˍōʍӍčƍՍ͍֍Í΍Սōč  SCREEN FOR COMPLETION OF ALL LEVELS5!uSPACE:BOX!uAFT,3,1:4:"This is to certify that"CC$:::CNV:CN$"- ^"NF$" ^"NL$" -";CC$;CO$!uNOCNV::"is a";CC$::CN$"SENSATIONAL"CC$:"SUBTRACTER";CC$"u::CNV:"** ^CONGRATULATIONS!! **"CC$;CO$:,L$,N:D$"CLOSE":1070+ RA0:WA0:853,0| 2:"What is your FIRST name?":3:"[ ]";:2:INP,(11,"-AZ",1),F$ 5:"What is your LAST name?":6:"[ ]";:2:INP,(15,"-AZ",1),L$ BOX 3:"Hello, "F$"!": "Welcome:DFT,3,324009 HOOK:WIND,6,6,273,176:BOX:21000:CO NOCNV:PARSE:AFT,2,1:FZ$(1)" !":FZ$(2)"#$":FZ$(3)"%&":FZ$(0)(34)(34) DG$(14):I014:DG$(I)(32I2)(33I2): "D$(4) ,(853)1(849)1ĺD$"OPENNAME":D$"READNAME":F$AFTER NAME INPUT% INITIALIZATION1 40000D 230,64:16384x CA$(1):CC$(3):CL$(12):CN$(14):CO$(15) (4)"BLOADASCII BOLD.FNT,A29696" (4)"BLOADFUZZIES.FNT,A30472" (4)"BLOADTITLE.PFT,A32400" DFT,1,29696:DFT,2,30472AdPROGRAM: SUBTRACTION3i FUZZIESNnPROGRAMMER: TIM BUEGEfxCOPYRIGHT (C) 1986 REVISION: CHL 12/27/89FONTS: ASCII BOLD.FNT FUZZIES.FNT TITLE.PFT POKE853,1:FLAG TO CHECK ESCAPE            1220:30040!NuCO,Y28,X1220.XuYX"-"Y8luY:XEvu(15):Zu DRAW INPUT BOXiu(14):HC}vVTX(X):HTY(Y) vVSVT1220:HSHT28:HT0HS3vHT0ēHS3,VS3HS22,VS3HS22,VS7HS3,VS7HS3,VS3:30240 vHS3,VS3HS25,VS"j D$"RUNMENU-END"+ DISPLAY LEVELSn 3:X17:80X15,8080X15,95::95,80185,80:95,95185,95 I16:CH$(64I):CH$LV$āX80I1595I15:X,80X,95:: CO,85I15,84:CH$::  LINK TO UPDATE  BOX:9:9:"One mome "Congratulations on a perfect score!"::LV$"F"ĺ"You can now advance a level!"$ LV$"F"ĺ"You have completed all of the"::"levels in this program!":30100. SPACE:3000` Z1NP:FL(Z)1İ6000b Ze BOX:9:9:"One moment please...183,279,191,0:SPACE:BOX,53,6,274,176,0/PBOX:2:"Well, "NF$","::"this session is over."::"You answered "C" problems correctly"::BOX,0,181,279,190,0 "out of "NP" problems."::850,2 CNPįSPACE:2400 C0NP0įSPACE:2400TC$(13)IZ%IZ%3:2205/X(A$)10(B$)dMS$"Correct!":CF1:(XA)MS$"Incorrect":CF016::CEL:13:MS$:CF0HELP0ĺ"Try again.";CC$:4000:FL(P)1:2150CF1CC1:FL(P)0:226018:7:"The correct answer is "A(BOX,0,B$(13)B$A$:A$"0":2210>B$"0"B$"9"IZ%IZ%3:2180t13:15:DB$DG$((B$)):CN$;DA$;DB$;CO$:IZ%IZ%516368,0:10000:C$((16384)128):C$(27)230016368,0:C$(8)C$(21)C$(127)įBOX,116,112,132,145:IZ%IZ%6:2170128):A$(27)2300Au16368,0:A$"0"A$"9"IZ%IZ%3:2160sz13:17:DA$DG$((A$)):CN$;DA$;CO$:IZ%IZ%416368,0:10000:B$((16384)128):16368,0:B$(27)2300B$(8)B$(21)B$(127)įBOX,133,112,151,145:IZ%IZ%6:2160ō΍č  $'IZ%IZ%1:IZ%3610010Y .'IZ%.:IS%IS%1:IS%60IM%IM%1:IS%.:37,15:36,4:0 8'37,15:36,2(IM%9):IM%;:36,5(IS%9):IS% B'10000 RBOX GENERATOR R1 RX03 &RX,3X279X,3X279X,177XX,177XX,3X 0RX :R%!u):J((1)(LV42)):X(I)X(J):X(J)T::@ ERASE SUBROUTINEUˆ21:" ";:CEW:b̈21:2:x ERASE INPUT BOX&BOX,6X39,28Y24,35X39,43Y24:r ON ERR PROCESSING t216,0w(222)255įBOX:21000:9000|(222)904007΍ǍÍčȍōҍȍ΍ʍˍӍʍˍύˍō΍čč͍č͍͍ٍ͍Í΍͍ˍЍԍčӍҍˍōʍӍčƍՍ͍֍Í΍Սōč ͠ҠǍŠƠˠҠˠΠ٠ˠˠԠҠˠǠԠٍР .3 .HS1,VS1HS21,VS5:.HS1,VS5HS21,VS1@/NR BORDER\R1:X03RX,3X279X,3X279X,177XX,177XX,3X&R:0u USER ROUTINES:u DRAW CHART?uAFT,3:NOJUST:(14)DuX0LV41:Y0LV41 IuY0įCO,3,X0:A$:A$(27)14003+A$(13)IL%0A(IN$): +A$(8)IL%0IL%IL%1:IN$(IN$,1):37,25:36,IL%9:CU$" ":IL%0IN$""*+IL%2110204+A$"0"A$"9"110209+IL%IL%1>+IN$IN$A$:37,25:36,IL%8:A$CU$:11020. MARK INCORRECTō΍Í "F8(4)"OPEN PROBLEM2":(4)"DELETE PROBLEM2":(4)"OPEN PROBLEM2"aB(4);"WRITE PROBLEM2"pLZ:P1NPVFL(P)16260`N2(P)" - "N1(P):tP~(4)"CLOSE PROBLEM2"(4)"RUN PRINTER"'' DIGITAL TIMER '(16384)1273)ĺ:%ZZ1:Z28ĺ:SPACE:BOX.P:18:"Would you like to print out":"these problems ?";:INP,(3,"YESNO",1),IN$(IN$,1)"N"2405(IN$,1)"Y"61706130 PRINTER SET-UP$852,4.BOX:9:9:"One moment please...oblems that you missed ?";:INP,(3,"YESNO",1),IN$H(IN$,1)"N"2405_(IN$,1)"Y"6050i6010yBOX:2:Z1P1NP(Z1)3((Z1)3)Ė2:6090Z3(Z3)Ė25:609013FL(P)16120Z") "N1(P)" - "N2(P);:Z3(Z<  @ ?$hi<$6h7h6>=<`ɍɌ ͳ ` I`H)hHɍ rh`PACPOFFEE!` G$H)h0,0R67 m 0N 󹥇9I7߭ r` L<=>6H7H67,0 < L'$H8$$ ? mͳ   ފ `B ֈ?F<?F<>ݦ >ݪ?Ȑ۩`?)8鍸ζ`H88HHԈՈ ߅$0HԈՈ LbLv?<>?>,>$f<<`L+ɇqr+Lɯd 8ɀ   Lޥ8e湥 HH L`qrL     8pp8 ppppx|?>>>>?|xpppppx|? 8??>>>xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 8??>>?|xpppppppsw|xpppppx|?>><>??8 ?><888888???>>??8 @p?>>>>xxxx     :"^ONE MOMENT PLEASE...":VSP,1,1:D$"RUNTEACHER OPTIONS"M@ CLEAR SCREEN\JBOX:CO:xr ON ERR PROCESSING t216,0uD$"BRUN HPRINT"w(222)255įBOX:99|(222)9040070BOX:99Y(218)(219)256"ERROR "(222)13:868:L(S$):K1LD#A((S$,K,1)):PPCTK,A:A32AA64:_#251,1:(A);:251,0:r#K:Q$:CTCTLx#R BORDERR1:X03RX,3X279X,3X279X,177XX,177XX,3X&R:0uSPACE BAR:uSPACE:y END:@y40000:102#L(S$):L791209<#K1L6:(S$,K,5)"CHR$("9110[F#JK6L:(S$,J,1)")"9100}P#X$(S$,K5,JK5):X((X$))Z#X0X127X0d#L$"":K1L$(S$,K1)n#R$"":LJR$(S$,LJ)x#S$L$(X)R$#LKLJ:9110#J#K#΍ǍÍčȍōҍȍ΍ʍˍӍʍˍύˍō΍Íč͍č͍͍ٍ͍Í΍͍ˍЍԍčӍҍˍōʍӍčƍՍ͍֍Í΍ՍōčESC "y1000!@ ONERR ROUTINE.JY(222)9L216,0IOY2551005TY9įBOX:4:"There is no more space in this file.":SPACE:1000YY9040030[1005^Z(218)(219)256h"ERROR "Y" OCCURRED AT "Z "N1(P):21:"-10 so -"N2(P)::23:N1(P)10" ?"\170,89191,89:240,89261,89f4500BOX,0,183,279,190:SPACE:BOX,6,150,273,176:BOX,116,112,151,145:p DISPLAY WRONG PROBLEMS1z11:"Would you like to see a list of":"the pr:21:N1(P)" - "N2(P)" = ?"8|21:"Start with ";N1(P)b21:"and count":21:"back "N2(P)"."x21:N2(P)14260ZZ1N2(P)N1(P)ZZ;:ZZN2(P)ĺ",";ZZ4500 LEVEL E AND F8:22:N1(P)10Ė23N1(P)" "ease..."U(D$"OPEN"F$:D$"DELETE"F$:D$"OPEN"F$:D$"WRITE"F$:"EMPTY":D$"CLOSE"F$2BOX:9:7:"The file is now cleared."<SPACE:1000x RETURN TO TEACHER OPTIONS MENUBOX:9:9:"One moment please...":D$"RUNTEACHER OPTIONS" GOTO0003f<ff<cc>cc>>cc>0000000t` ```````fffffff~l6iɆpq{0`0``0`00000`Z<`~~6    ":"SETTINGS FOR? ";:NOCNV:INP,(20,AN,1),P$:LP(P$):CNVcnL1LP:PP106L,((P$,L,1))::vpSET COMM CARDz40000:6:"1. ^HIGH SPEED (^USUALLY 30 CPS)"::"^2. ^LOW SPEED (^USUALLY 10 CPS)")12:"^WHICH PRINTING SPEED DO YOU WANT"::"FOR PAGE LENGTH IS":"66 LINES PER PAGE.":9:"^WHAT PAGE LENGTH IS YOUR PRINTER SET":"TO PRODUCE? ";INP,(3,N,2),ZN$:ZN(ZN$):ZN120ZN120 PP1,ZN:PID FIELDZL120:PP106L,0:<d40000:14:"^WHAT PRINTER ARE YOU MAKING THESENTER":" INTERFACE YOU WILL BE USING":" AND PRESS ^R^E^T^U^R^N. ";:INP,(1,"-12",1),ZN$:ZN(ZN$)tZN6000,7000PP1,66:APLİ51005200:D$;"BSAVEPRINTER COMMANDS.BIN,A"PP",L128" ADJ PAPER40000f4:"^THE NORMAL SETTING OMMUNICATIONS BOARD":5:"(^AN OBSOLETE CARD THAT IS NOT":5:"COMPATIBLE WITH THE ^APPLE 2E)":" 2. ^ANY OTHER TYPE OF PRINTER":" INTERFACE CARD (E.G.,^PARALLEL":" OR ^SERIAL, ^CENTRONICS TYPE, ":" ETC."b::" ^ENTER THE TYPE OF PRI"PRINTER TEST":NI13:J3295:(J);:::J96127:(J);:::::FEEDXPOFFHOOK:WIND,6,6,273,176:21000:BOX:CO:CNV:VSP,0,1:AFT,2,140000:9:" ^PRINTER TEST COMPLETE.":30000 SET NEW OPT40000`6:" 1. ^APPLE CTATE (^SLOT ^SEARCH)."- I0127:PPI,0:\ D$"BSAVE PRINTER COMMANDS.BIN,A"PP",L128"i 30000:TEST THE PRINTER40000:11:" ^PLEASE PREPARE YOUR PRINTER...":3000040000:11:" ^TESTING THE PRINTER...":D$"IN#0":D$"PR#0":PACT:P32PP64:/ L2(P13):PP21L2:(P);:9 L2:C L1:U PRINTER TYPE :" ^TYPE OF PRINTER:"::"^";:6:L120:((PP106L));::: RETURN TO DEFAULTS  40000:11:"^NOW RETURNING THE PRINTER SETTINGS TO THEIR ORIGINAL S:APLĺ" ^PAGE LENGTH: ";(PP1):; (PP2)0İ2400R$ (PP107)0İ2500_. 30000:{` PRINT SPECIAL COMMANDSj " ^COMMANDS:"::CT2t L115:(PPCT)0L15:2470~ 6:"^PRINT "(34)CA$;:L211:P(PPCT):CTCT1 P0P13SD30T 10:"^THE SPEED IS SET TO '"SD$"' (^USUALLY "SD" CHARACTERS PER SECOND)." :APLĺ:" ^PAGE LENGTH: ";(PP1) :(PP107)0İ2500 30000: USER SET  40000:"^CURRENT PRINTER SETTINGS ARE:"& :" ^SLOT: ";(PP)128:OTS 1 AND 2 FOR A RECOGNIZABLE CARD EACH TIME THE DISKETTE IS USED."Q H30000:` COMM CARDk 40000 "^THIS DISKETTE IS CURRENTLY SET UP TO EXPECT AN APPLE COMMUNICATIONS BOARD IN SLOT #"(PP)".": SD$"^LOW":SD10:(PP2)127SD$"^HIGH"::ZN(ZN$)1 8BOX:ZN2000,5000,3000,4000,31040; B1000W CHECK CURRENT SETTINGSv JP1((PP)0)((PP)127) JP2100,2200,2300: 4DEFAULTS 940000D >8:" ^THIS DISKETTE IS CURRENTLY SET TO THE DEFAULT SETTING, WHICH IS TO SEARCH SLō΍ .&RX,3X279X,3X279X,177XX,177XX,3X50RX;:REy ESCM"y99ir ON ERR PROCESSING tt216,0w(222)255įBOX:99|(222)9040070BOX:99Y(218)(219)256"ERROR "(222)" OCCURRING AT "Y 0,4200,4100,4300,4300# LEVEL Aw21:8:"Start with ";N1(P):21:"Remove ";N2(P):21:"What's left ?":4500 LEVEL B AND D N1(P)N2(P)40308:21:N1(P)" - "N2(P)" = ?"@21:N2(P)" + ? = "N1(P)J4500h LEVEL Cr7 PRACTICE":"IN COUNTING DOWN WITH NUMBERS"< "FROM 1-5."B s 3:"^LEARNING ^THE ^SUBTRACTION ^FACTS"(3) $:"^THIS IS A SIX LEVEL ACTIVITY":"DESIGNED TO PROVIDE STRATEGIES":"FOR LEARNING VARIOUS FACTS. ^THE"I."LEVELS ARE CAREFULLY SEQUˍččč΍ǍÍčȍōҍȍ΍ʍˍӍʍˍύˍӍčō΍Ǎč͍č͍͍ٍ͍Í΍͍ˍЍԍčӍҍōˍōʍӍčƍՍ͍֍Í΍Սōč 3HS25,VS7HS3,VS7HS3,VS34 v(15):AFT,2:>y ESCHy9000cy RANDOMIZE ROW ORDERr"yX(9),Y(9),yI0LV41:X(I)I:Y(I)I:6yI0LV41:TY(I):J((1)(LV42)):Y(I)Y(J):Y(J)T:: { RANDOMIZE PROBLEMS){I0LV41:TX(IAL TIMER'(16384)127ı9$'IZ%IZ%1:IZ%3610010v.'IZ%.:IS%IS%1:IS%60IM%IM%1:IS%.:37,12:36,10:08'37,12:36,8(IM%9):IM%;:36,11(IS%9):IS%B'10000* GET INPUT+16368,0:IN$"":IL%0:+37,25:36,9:CU$ +1000(IS%):90090#T$T$(IS%).1#TT19020h2#BOX,6,6,273,176:NOCNV:9:9:"One moment please..."<#D$"OPENNAME":D$"DELETENAME":D$"OPENNAME":D$"WRITENAME":F$:L$:RA:T$:D$"CLOSE"A#TT1ĺD$"RUN PRINTER"F#D$"RUNINITIALS"' DIGITS(I);CA$;:36:(T$(I),2);":";(T$(I),2);CA$::AFT,2:CO$21:"^HERE ARE THE SCORES YOU MUST BEAT";CC$:"^G^O^O^D^L^U^C^K!!!";CC$SPACE:(#845,RA:847,WA:848,RAWA:851,100-#IM%10T$"0"(IM%):9007.#T$(IM%) /#IS%10T$T$"0"z#??>`?   ԠԠ   ͠ ΠӲԠ ǮԠϠԠ̠͠ƠŮƪ  ŮԠ Š ҠԠҠӮΠ ̮ʠ ҠǠ"Ҡ   Š"ŮŠ!®Š ΠӠΠǠ٠ҠӠ Ԡ Ӡ ŮԠӠ ȮԠ ՠ  խĠɠĮԠҠ ӮӠӮԠ ̠ƠŮƭϠƠҠ ӍҍY255Ĺ216,0:90009^"ERROR "Y" AT "(218)(219)256?h TION TRAINING"4 OPT3ĺ(4);"RUN SUB. CHALLENGE"[ OPT4ĺ(4);"RUN TEACHER OPTIONS"v X END-BOOT DISK OR NOT b846,1 lBOX:9:9:"^ONE MOMENT PLEASE...":(4);"RUN MENU-END" 3:"^SUBTRACTION FUZZIES"(3)+ :"^THIS PROGRAM PROVIDES(IN$):850,OPT ,OPT5330. 6OPT66007 @470H JDS14:BOXd TDS1000,1050,1100,1150o |SPACEw DS 100 BOX 849,0 9:9:"^ONE MOMENT PLEASE..." OPT1ĺ(4);"RUN SUBTRACTION FUZZIES" OPT2ĺ(4);"RUN SUBTRAC. ^SUBTRACTION ^TABLE ^CHALLENGE"' C "4. ^TEACHER ^OPTIONS"I a "5. ^DESCRIPTIONS"g v "6. ^END" 19:"^TYPE THE NUMBER OF THE PROGRAM":"YOU WANT AND PRESS ^R^E^T^U^R^N. "; "X((78)): RND PATCH 'INP,(1,"-16",1),IN$:OPT3,176:BOX) }3:X1040:29,X251,X:X/ [ NOCNV:2:"Conquering Basic Facts"(3)i 3:(14) "Subtraction Main Menu"(3) :(15) CNV:6:"1. ^SUBTRACTION ^FUZZIES" "2. ^LEARNING ^THE ^SUBTRACTION ^FACTS" ! "3) 40050 MENU7 (C) 1987 BY CHARLES LUNDQ UPDATE 1/06/90 C.L.m POKE 850,OPT-OPTION # POKE 849,0-FLAG POKE 846,1-FLAG TO END16384846,0dZM24:HOOKsCNV:AFT,2,1:(15) xVSP,0,1:21000:WIND,6,6,27  WIND,0,0,279,190:15:27)?uWA0300259Du"Perfect!"JIuWA130035[Nu"Terrific!"lSuWA230045{Xu"Thanks!"]uWA330060bu"Made it!"luGH0500:GH:y ESC"y9000@ ONERR ROUTINEJY(222)TY90Ĺ216,0:9000YED USING":12:6:"^APPLE ^COMPUTER PRODUCTS.":14:11:"^COPYRIGHT 1981":16:8:"^APPLE ^COMPUTER, ^INC."{ SPACE:BOX 9:9:"^ONE MOMENT PLEASE...":D$"RUN MENU" R BORDER R1:X03 RX,3X279X,3X279X,177XX,177XX,3X &R::"^WHITE ^BEAR ^PUBLISHING ^COMPANY"(3):"^ALL ^RIGHTS ^RESERVED"(3)W rSPACE:BOXy |NOCNV:3:"CREDITS"(3):CNV 6:106,21170,21170,33106,33106,21 8:5:"^PARTS OF ^C^O^N^Q^U^E^R^I^N^G ^B^A^S^I^C"k 10:5:"^F^A^C^T^S WERE DEVELOPic Facts":CO,98,31:(3)"Volume 2") ;4 =AFT,1p @7:"SUBTRACTION"(3):CNV:9:"^BY ^CHARLES ^LUND"(3) E12:9:"^COPYRIGHT" J3:148,104157,104:X105113:147,X158,X:X:148,114157,114 O12:19::"C" Q:12:21:"1987"G T::IG.FNT,A30960" c40050V dCNV:DFT,1,29696:DFT,2,30472:DFT,3,30960:AFT,1:CN$l WIND,6,6,273,176 "21000:3:X1545:29,X251,X:X ,6:22,10258,10258,5022,5022,10 .AFT,3,1 1NOCNV: 3CN$# 6CO,32,16:(3)"Conquering Bas 40050 HELLO> (C)1987 CONQUERING BASIC FACTST BY CHARLES LUNDv(CL$(12):CN$(14):CO$(15)P230,64Z16384_D$(4):D$;"BRUN HPRINT":D$;"BLOAD ASCII BOLD.FNT,A29696"`D$;"BLOAD LITTLE.FNT,A30472" aD$;"BLOAD B           000`0x |||| ||x|8l````|| x0p000x8pp00000xxx|| |x ````l8|x0x0x| x0`00`0000000000`0000`l0`x000x|0xxx||00000 xxxxlxx x000000xx0܌x0xx0000 0``0 0xp`000000lllXXXXX0|x<00` ``t0`0``00 00x0x00000 @0 0`xx0p0000xx 8` 8 x8x x<`x 0```xxxx| 00000`0``0`0 ݅ۅ߅,`߅_ h%<$=Ѕ  dUeUfUgUF ȄB@ iSi>  CBCC` S UH)HJJh)JJLR)hLSD D0 ELS:5:2:"^TO TURN THE COMPUTER OFF:"v Qr8:2:"1. ^REMOVE THE DISK FROM THE DRIVE":5:"AND PUT IT IN A SAFE PLACE." Vr11:2:"2. ^TURN THE COMPUTER OFF. ^THE":5:"SWITCH IS LOCATED BEHIND THE":5:"COMPUTER ON THE LEFT."![r15:2:"3. ^TURN YOUR ,1),IN$:CNV:4 r(IN$,1)"Y"(IN$,1)"N"29207M r(IN$,1)"Y"29260V .rBOXz 8r10:9:"^INSERT THE NEW DISK." 9rSPACE:::UNHOOK =rA(999)(1000)256:B(A)(A1)256:CS(B1)16:CS1CS7CS6 Br:(13)(4)"PR#"CS Gr$ LrBOXER OPTIONS" 29200$ R BORDER2 R1:X03a RX,3X279X,3X279X,177XX,177XX,3Xi &R:r rBOX r16:2:"^ENTER ^Y^E^S OR ^N^O AND PRESS ^R^E^T^U^R^N." r10:8:"^WOULD YOU LIKE TO USE":9:"ANOTHER DISK? ";:NOCNV:INP,(3,"YESNO"; ZBOX:9:9:"^ONE MOMENT PLEASE...":O3ĺD$"RUN MENU"I d OPTIONS[ eOP3Ĺ849,1k fO2Ĺ849,0 iOP1ĺ(4);"RUN SUBTRACTION FUZZIES" nOP2ĺ(4);"RUN SUBTRACTION TRAINING" sOP3ĺ(4);"RUN SUB. CHALLENGE" xOP4ĺ(4);"RUN TEACH" USING THE SAME OPTIONS."` -:"2. ^RUN THIS PROGRAM AGAIN":4:"USING DIFFERENT OPTIONS." 2:"3. ^RETURN TO MAIN MENU." <:"4. ^END." F:"^ENTER YOUR OPTION NUMBER AND":"PRESS ^R^E^T^U^R^N ";:INP,(1,"-14",1),IN$:O(IN$) PO429200 MENU-END& PEEK(850)=OPT #< POKE849,LV-FLAGH40050S16384w OP(850):D$(4):CNV:VSP,1,121000:WIND,6,6,273,176:BOX(846)1292003:"^WHAT WOULD YOU LIKE TO DO NEXT?" (:"1. ^RUN THIS PROGRAM AGAIN":1:     QLQ`Ԣ TȱL.QUL]UcUF TH?@DE >LR UL]Ui0 ȢUL]U81Hȱ81Hȥ 8$Ʌ<ȥ 8$(=ȱ8"(>ȱ8#>LaQ?ȱ81@ȱ Dȱ Eȱ81ׅh<&  Ɲo) +po9pp Ъ 8pLo ` ֩PyQ AL +pppAp`#p"p p"p#p` ~L pH)hJJJAp`LANCS AZ09!/:@[`{~ @BOHOOUNHOOCECRDFAFPARSNOJUSJUSCNNOCNGCDVSHSSPACCEP QpRpZp[p߹Zp[pIo pIo , g =p ,Ho $pMp) Np OpPp)?p ߅ l Mo ) L{o HHH>p hhh ɛ Moo0LooɈ95ɍ=p7,?p >p h5880`L =p>p?pHoAp ( $pL!o | {$0! >p ,Ln ^ {$0LnNHo Lo|Jo nr- p nKo n p-KoKoKo pLnnJoLoJo^`NHo Qphh,lp` ֩PyQ ALŠҠ僁iimiʈ i i &'iq& iLi N8`f `.f`xmym ` ң Σ  h`+ hR("  LPj,Hk  l  hl`L, HHHHHHHHH k ީl wjlNO,ɍɠ ɛ8nl,lPݩ lhhhhhhhmHihʍ i i i LiL 2k 3kM4k2k g<>=M4k?'<>2k2k3k` H g Rh PQ`L     խ)?` ` @)`,` Rj ެiii g&' i jQ&-iQ&&ii i`*U U*ժ Fj')JMFj)i Q&,iP 0=Kj`Gj`J&)` `L3f̙ujvj ߅$0Hujvj LbLvjj j` hiii h8)h` g R  QP (`L h`L)  @ iiiiiiiii g iii i i g iii i iBi g&' i jQ&-iQ&&ȭi i j& jQ&-iQ&&ii i`i-hhh hJ` &eeieh ghIiVhi 썛h gmh﬜hMhVhPjjjjjjj0jj) h0ȱjhjhhУ`8pPH)8 qȥq-`,f`imimʈ i iiʎ iLi Aggg` gg }ggg` g Ag }gggg`{g|g|g8pug.{g(ugg|gm{gg`8p g)gJJ gg gg .g .g ngg)ggmgg`hH80 " Jfm8h)` dem88eLf` deme` d8` f@ yf yf f`Lb dffL(f ``fʽ`) ` `fH`mS` dS`)We`Ve hWe gVe}`mf8ff`f` dLb,0*`%f 8fHfJhj`mfff` b d` b dI``L defff`) 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 f`em (f%%h $20 LPc $ aHaH`dWeceWeeeee'fIfbffffff(bb d cf hf gNOH c h f ghH ,aɈ( cb h) e f g c ebbh`xo 8ɀ`?```L`bbbbp$% `@ GaLa6 ,fLbLcfPa bHaa,aaɠ,wa ` a欇aah`ɀ)?  @IH c$ d e$%0 d΍ǍÍčȍōҍȍ΍ʍˍӍʍˍύˍō΍Ǎč͍č͍͍ٍ͍Í΍͍ˍЍԍčӍҍÍˍōʍӍčƍՍ͍֍Í΍Սōč{~<f~<<~w>8p8p 00 `0 0`0yφUUUUUU~{{~?30000000{{~88~~|xx~~~~{{~~~~<f~<<~~<8p~~````````~~p8~~~~<~Áp8{{~>>>>~~~~~~~~{͠ҠōҽԠϠϠϠϠԠϠϠϠϠԠϠϠϠϠΠ~<8x~~~8p~~~~~80000~~~~~888888 08pp8`p88p`~>?<~t`8888888888ffffffffffff`g8pɉxx{s8p8p``````p888~<<~ۙ 08888p<~ NOCNV "u"y ESC""y23007"@ ONERR PROCESSING]"J216,0:(222)90(222)2552300u"TY(218)(219)256"^"ERROR "(222)" OCCURRING AT "Y"h CP Pxp @ @  @  @hPPP P PP  @@  P@ pxxxxxxpx0H@@@@pxp ` p0`` pبppxxxp@@@@H0hP @ppppx @ @@ @  @p px Pppxxp ppبȨppph𠐈ppp pP AUSCWININjXmemfj4kWkkkkkkkdkkllBmmmm` PPPPPPPP xp(  @@@h @ @@  p p @  @pȈp ` pp0@0p0Pp8@p @@8,1:0,180278,1802 ^0,0278,0:0,181278,181:9 ( \ 2HC((1)2):2HC((1)2)4 <22HC,7222HC,127:24HC,7224HC,127:260HC,72260HC,128:258HC,72258HC,128 A22,73260,73:22,127260,127 F22,72260,72:22,128260,128: N7:16368,0:"^PRESS ^R^E^T^U^R^N TO CONTINUE.";O SZC(16384):ZC14121270Z S21255s S16368,0:7::30); @ BORDER JCL$:HC((1)2):2HC((1)2)4 THC,0HC,180:2HC,02HC,180:278HC,0278HC,181:276HC,0276HC,181 Y0,127EMS INCORRECT"+ n18:"^SO LONG FOR NOW."k xSPACE:BOX:9:9:"^ONE MOMENT PLEASE...":D$"RUNMENU-END"y R BORDER R1:X03 RX,3X279X,3X279X,177XX,177XX,3X &R: UBORDER U1:X03 V22X,80X260X,80X260X,117X2"^WELL,";:A$""ĺ" ^"A$","; -NANQĺ" YOU DIDN'T FINISH"::"THE LESSON BUT HERE IS YOUR SCORE"::"FOR THE PORTION YOU DID DO.":60 2" HERE IS YOUR SCORE"::"FOR THE LESSON." <22000 Z10:5:N1" PROBLEMS CORRECT" d12:5:NW" PROBL SUMMARY - BY H.N. 8/19/86: UPDATED12/ 7/86 CHL@L40050xN1(845):NW(847):NQ(851):NA(848)D$(4)D$"OPEN NAME":D$"READ NAME":A$:D$"CLOSE NAME"!40050#21000:WIND,6,6,273,176:BOX%CO:2&CNV (ppxp````pp pppppx```x@ 000 P`0pxxxx```xpppppxp````pp ppppp8``8 000`t`````PPP0xx0 X`hh0`0```0`000`pp 0`@ @pp0p00xppxxp0``ppppxp@@@@0``0`0`p`pppxxxx```xppp  136818HT,VT136818HT,VT3:30400tv7018HT,VT38918HT,VT38918HT,VT137018HT,VT137018HT,VT3zv ERASE SUBROUTINEˆ21:" ";:CEW:̈21:2: ERASE INPUT BOX&BOX,6X39,28Y24,35X39,43Y24:D)256*"ERROR "(222)" OCCURRING AT "Y0ӍҍÍ "ERROR "(222)" OCCURRING AT "Y(ZZ150:ZZNZ:3T |(222)9040070# BOX:99; Y(218)(219)256` "ERROR "(222)" OCCURRING AT "Yf C070{ BOX:99 Y(218)(219)256 "ERROR "(222)" OCCURRING AT "Y CPLE ^COMPUTER, ^INC."% SPACE:BOXV 9:9:"^ONE MOMENT PLEASE...":D$"RUN MENU"d R BORDERr R1:X03 RX,3X279X,3X279X,177XX,177XX,3X &R: y ESC "yBOX:99 r ON ERR PROCESSING t216,0 w(222)255įBOX:99X# |NOCNV:3:"CREDITS"(3):CNVN 6:106,21170,21170,33106,33106,21 8:5:"^PARTS OF ^C^O^N^Q^U^E^R^I^N^G ^B^A^S^I^C" 10:5:"^F^A^C^T^S WERE DEVELOPED USING":12:6:"^APPLE ^COMPUTER PRODUCTS.":14:11:"^COPYRIGHT 1981":16:8:"^APic Facts":CO,98,31:(3)"Volume 2") ;4 =AFT,1p @7:"SUBTRACTION"(3):CNV:9:"^BY ^CHARLES ^LUND"(3) E12:10:"^COPYRIGHT ";::"^C";::" 1987" T:::"^WHITE ^BEAR ^PUBLISHING ^COMPANY"(3):"^ALL ^RIGHTS ^RESERVED"(3) rSPACE:BOIG.FNT,A30960" c40050V dCNV:DFT,1,29696:DFT,2,30472:DFT,3,30960:AFT,1:CN$l WIND,6,6,273,176 "21000:3:X1545:29,X251,X:X ,6:22,10258,10258,5022,5022,10 .AFT,3,1 1NOCNV: 3CN$# 6CO,32,16:(3)"Conquering Bas΍ǍÍčȍōҍȍ΍ʍˍӍʍˍύˍō΍Ǎč͍č͍͍ٍ͍Í΍͍ˍЍԍčӍҍčˍōʍӍčƍՍ͍֍Í΍ՍōčÍ̍͍ōōčS18,VS5HS18,VS17 v5y RANDOMIZE ROW ORDERD"yX(9),Y(9)_,yI09:X(I)I:Y(I)I:6yI09:TY(I):J((1)10):Y(I)Y(J):Y(J)T:: { RANDOMIZE PROBLEMS{I09:TX(I):J((1)10):X(I)X(J):X(J)T:: ERASE SUBROUTINE ˆ21:UTINES:u DRAW CHARTDDu2:2:"+ 0 1 2 3 4 5 6 7 8 9"ONuX09YXu2:X`buXglu3vu16,1416,162:7,23254,23uu DRAW INPUT BOXuHCvVT3Y(Y):HT6X(X)3 vVSVT14:HSHT8vHS18,VS17HS7,VS17HS7,VS5H. 2#BOX:21000:9:9:"^ONE MOMENT PLEASE..." <#D$"OPENNAME":D$"DELETENAME":D$"OPENNAME":D$"WRITENAME":F$:L$:RA:D$"CLOSE" F#D$"RUNINITIALS" ' R BORDER R1:X03 RX,3X279X,3X279X,177XX,177XX,3X &R:0u USER RO t216,0' w(222)255įBOX:1005= |(222)9040070L BOX:1005d Y(218)(219)256 "ERROR "(222)" OCCURRING AT "Y d Ӎҍč΍ǍÍčȍōҍȍ΍ʍˍӍʍˍύˍō΍Ǎč͍č͍͍ٍ͍Í΍͍ˍЍԍčӍҍōˍōʍӍčƍՍ͍֍Í΍Սōč nt please..."` D$"OPENNAME.FILE":D$"DELETENAME.FILE":D$"OPENNAME.FILE":D$"WRITENAME.FILE"} NF$:NL$:LV$:D$"CLOSE D$"RUNUPDATE" DISPLAY HELPHELP121:5:"HINT:":160,50273,50273,107160,107160,50(LV$)644030,410Y(218)(219)256;"ERROR "(222)" OCCURRING AT "YA F$<BOX:9:6:"The file has been cleared.":SPACE:1000IR BORDERWR1:X03RX,3X279X,3X279X,177XX,177XX,3X&R:y ESC"y1005r ON ERR PROCESSING t216,0w(222)2551005|(222)904007010054:"^THE NORMAL SETTING FOR PAGE LENGTH IS":2:"66 LINES PER PAGE.":9:2:"^WHAT PAGE LENGTH IS YOUR PRINTER SET":2:"TO PRODUCE? ";ZB10:ZT120:ZC0:37000:PP1,ZN:PID FIELDZL120:PP106L,0:_IN$"":FI$"11 7$1 1"rd4::3:"^ENTER THE TYPE OF PRINTER":3:"INTERFACE YOU WILL BE USING":3:"AND PRESS ^R^E^T^U^R^N. ";:ZB1:ZT2:37000ZN6000,7000PP1,66:(12):APLİ51005200:D$;"BSAVEPRINTER COMMANDS.BIN,A"PP",L128"ADJ PAPER40000:20000}6:3:"1. ^APPLE COMMUNICATIONS BOARD":6:"(^AN OBSOLETE CARD THAT IS NOT":6:"COMPATIBLE WITH THE ^APPLE //E)":3:"2. ^ANY OTHER TYPE OF PRINTER":3:" INTERFACE CARD (E.G., ^PARALLEL":3:" OR ^SERIAL, ^CENTRONICS TYPE, ETC.)"w..":30000c40000:12:3:"^TESTING THE PRINTER...":D$"IN#0":D$"PR#0":PACT:"PRINTER TEST":I13:J3295:(J);:::J96127:(J);:::::FEEDPOFF17410:40000:10:3:"^PRINTER TEST COMPLETE.":30000NEW OPT4i 40000:11:2:"^NOW RETURNING THE PRINTER SETTINGS TO"::2:"THEIR ORIGINAL STATE (^SLOT ^SEARCH)." I0127:PPI,0: D$"BSAVE PRINTER COMMANDS.BIN,A"PP",L128" 30000:TEST PRINTER 40000:12:3:"^PLEASE PREPARE YOUR PRINTER.07~ 7:"^PRINT "(34)CA$;:L211:P(PPCT):CTCT1T P0P13P32PP64:u L2(P13):PP21L2:(P);: L2: L1: PRINTER TYPE :3:" ^TYPE OF PRINTER:"::"^";:7:L120:((PP106L));::: RETURN TO DEFAULTS :"^THE CURRENT PRINTER SETTINGS ARE:"p :3:" ^SLOT: ";(PP)128::APLĖ3:" ^PAGE LENGTH: ";(PP1): (PP2)0İ2400$ (PP107)0İ2500. 30000:` SPECIAL COMMANDSj 3:" ^COMMANDS:"::CT2t L115:(PPCT)0L15:2475 SD$"^LOW":SD10:(PP2)127SD$"^HIGH":SD30 10:3:"^THE SPEED IS SET TO '";SD$;"'":3:"(^USUALLY ";SD;" CHARACTERS PER SECOND)." :APLĺ:3:" ^PAGE LENGTH: ";(PP1) :(PP107)0İ2500 30000: USER SET& 40000:3EARCH"::3:"SLOTS 1 AND 2 FOR A RECOGNIZABLE CARD"` C:3:"EACH TIME THE DISKETTE IS USED."m H30000:| COMM CARD 40000 6:3:"^THIS DISKETTE IS CURRENTLY SET UP TO":3:"EXPECT AN APPLE COMMUNICATIONS BOARD":3:"IN SLOT #";(PP);".":ZT5:370004 8(12):ZN2000,5000,3000,4000,31040A BL00:L0U CHECK SETTINGSt JP1((PP)0)((PP)127) JP2100,2200,2300: 4DEFAULTS 9400004 >8:3:"^THIS DISKETTE IS CURRENTLY SET TO THE"::3:"DEFAULT SETTING, WHICH IS TO STTINGS":_ 3:"3. ^RETURN PRINTER SETTINGS TO THEIR":6:"ORIGINAL STATE (^SLOT ^SEARCH)": 3:"4. ^TEST PRINTER SETTINGS": $3:"5. ^RETURN TO TEACHER OPTIONS MENU" .::2:"^ENTER YOUR OPTION NUMBER":2:"AND PRESS ^R^E^T^U^R^N. ";:ZB1: d INIT8 nAPL0: SET =1 TO ADJUST PAPER LENGTHF xD$(4):h PP(948)(949)256:Q$(34)r MENU L011:40000:13:"^PRINTER ^OPTIONS"::2:"^YOU MAY:": 3:"1. ^CHECK CURRENT PRINTER SETTINGS": 3:"2. ^CHANGE PRINTER SEPROGRAM: PRINTER SUPPORT;PROGRAMMER: P.BOUCHARDSCOPYRIGHT (C) 1985sLAST UPDATED: TJB 11/27/86 34034:265287230,32:62450:<(4)"BRUN PRINT":(4)"BRUN INPUT"F(4)"BRUN PRUTIL.OBJ":(4)"BLOAD PRINTER COMMANDS.BIN"         w(222)255įBOX:1185.|(222)9040070=BOX:1185UY(218)(219)256z"ERROR "(222)" OCCURRING AT "YdSYBBXODX,YOSYBBDY4$'BY1BB:BX((BB1)BY)@)'JS0N.'XO,YOSY(BY1)JSQSXOSXBX,YOSY(BY1)JSQSXOSXBXDX,YOSY(BY1)JSQSDY3'-8'XOSXBY,YOXOSXBY,YOSYBX:XOSXBYDX,YOSYBXDYXOSX(BBBX)DX,YOSYBXDY:XOSX33333?<<<?? >< 7 ;8?>  000 ? ? ?  ? 0 3;?73  30??003??003<33?0 333333>0 0  0??  ?LD3 0? ? 3 ? 3 333a    ? m? ? >> ? ? ? l66l 6l6  aamam ??? 3?0 333?33?3 0 ???? ???TH DIFFERENT":"PRINTERS." .R BORDER<R1:X03kRX,3X279X,3X279X,177XX,177XX,3Xs&R:}y ESC"y1r ON ERR PROCESSING t216,0w(222)255įBOX:1|(222)9040070BOX:1Y(218)(219)256":N2$DG$(N2)CN3$DG$(N3),HSY$DG$(10)CMN10ĺ" ";:2130QNCN$;N1$;oRCN$;N2$:15:SY$;N3$;CO$\BOX,113,107,154,108,3fWIND,0,183,279,191::"Enter your answer and press RETURN":WIND,6,6,273,176p16368,0:10000:A$((16384)LEMSAFT,2,1:C0+IM%0:IS%0:IZ%0PBOX:15:2:"TIMER":2:"00:00"\P1NPBOX,116,112,151,145:3:115,111152,111152,146115,146115,111N1(N1(P)10):N2N1(P)N110:N3N2(P):AN1(P)N2(P)HELP045:15 >N1$DG$(N1):I19:N2(P)1:N1(P)1I:PP1::NPP:`@P1:I49:JI9:N1(P)J:N2(P)I:PP1:::NPP:P1:J1017:N1(P)J:N2(P)8:PP1::J1018:N1(P)J:N2(P)9:PP1::NPP:P1:J47:I10J9:N2(P)J:N1(P)JI:PP1:I:J:NPP: DO NP PROB):N1(P)T1:N2(P)T2:hP1:I09:N2(P)0:N1(P)I:PP1::I19:N2(P)1:N1(P)I:PP1::NPP:xP1:I19:N2(P)I:N1(P)2I:PP1::I09:N2(P)I:N1(P)I:PP1::NPP:)P1:I19:N2(P)3:N1(P)3I:PP1::I19:N2(P)2:N1(P)2I:PP1:LV$"A":D$"CLOSE"F$:<jXL$,LV$:XF$NF$XL$NL$1120OtD$"CLOSE"F$:iRND DRAW W/O RPLCMNTN1(50),N2(50),FL(39)(LV$)641300,1400,1500,1600,1700,1800NPNP1:I1NP:T1N1(I):T2N2(I)P((1)NP1):N1(I)N1(P):N2(I)N2(P$"." )2500 .SPACE:BOX:N 89:9:"One moment please...":1200:2000j L READ IN LIST OF NAMES N IF NAME NOT IN LIST, P START AT LEVEL A. QBOX:9:9:"One moment please..." VD$"OPEN"F$:D$"READ"F$`XF$:XF$"EMPTY"XF$"END":INP,(15,"-AZ",1),NL$:U D$"OPEN NAME":D$"WRITE NAME":NF$:NL$:D$"CLOSE NAME"_ 1100r !LV$"G"1060 "BOX:8:"You have finished all the levels.":SPACE #849,0:243 $BOX:::"Welcome, "NF$". Today you will be working on level "LV1000J AFT,3,1:8:1:CN$;"LEARNING THE"CC$:"SUBTRACTION FACTS"CC$;CO$\ SPACE:BOX:o (849)11055 3:"[ ]":2:"What is your FIRST name?":2:INP,(11,"-AZ",1),NF$: 6:"[ ]":5:"What is your LAST name?":2(849)1ĺD$"OPEN NAME":D$"READ NAME":NF$:NL$:D$"CLOSE NAME"n DFT,1,29696:DFT,2,30472:DFT,3,32400 HOOK:WIND,6,6,273,176:BOX NOCNV:PARSE I014:DG$(I)(32I2)(33I2): "D$(4):F$"FACTS.LVLS"  MAIN PROGRAM 2 NAME.FILE * INITIALIZATION= 230,64:16384J DG$(14)V 40000 CA$(1):CC$(3):CL$(12):CN$(14):CO$(15) (4)"BLOADASCII BOLD.FNT,A29696" (4)"BLOADMATH.FNT,A30472" (4)"BLOADTITLE.PFT,A32400" D$(4)C dPROGRAM: SUBTRACTION 8i TRAINING\n PROGRAMMERS:TIM BUEGE/C. LUNDtxCOPYRIGHT (C) 1986 REVISION: CHL 11/28/86 FILES: MATH.FNT ASCII BOLD.FNT TITLE.PFT FACTS.LVLS               `UUU UULU`dUeUeUX eUfUgUcU"fUcUԢ TLSȑhhL2S` TL̠ҮŠŮҠɤȮΤĮ̠Ů̠ĮɥԠĮ UUUUUUUUUUUUUUUU UU P ThU '0 ULT T' `% "$`TTijTTkl8`iiLTȱȱȱLSdF?0hԢ T cUۢUL]UfUgUfUȑ TBC SI TUL]UFȩȩ멍 ` eUi eUX eUfUgULR zTLRB>H)h ɠFȄBLRLSB𱦧C B FFLR=$<% " C0`݅ۅ߅,`߅_ h%<$=Ѕ  dUeUfUgUF ȄB@ iSi>  CBCC` S UH)HJJh)JJLR)hLSD D0 ELSӍ2X,117X22X,80X V:% y ESC- "y33I r ON ERR PROCESSING T t216,0m w(222)255įBOX:33 |(222)9040070 BOX:33 Y(218)(219)256 "ERROR "(222)" OCCURRING AT "Y N(T$(I),2);":";(T$(I),2);CA$::CO$6~SPACE:1000W CLEAR HOF NAMES AND SCORES~BOX:9:9:"One moment please..."F$"HALL OF FAME.CBF-":D$"OPEN"F$:D$"DELETE"F$:D$"OPEN"F$:D$"WRITE"F$Z120:"...":"...":"0":"0000"::D$"CLOSE"ent please..."a `(4)"OPEN"F$:(4)"READ"F$:Z120:NF$(Z),NL$(Z),S(Z),T$(Z)::(4)"CLOSE"F$ jBOX:1:"Subtraction Table Challenge";CC$: o3:8:"NAME SCORE: TIME:":CN$:%tI120:5:NF$(I);CA$;:18:NL$(I);CA$;:31:S(I);CA$;:36:V(V$) PARSEX $V4įBOX:9:9:"One moment please...":(4)"RUNTEACHER OPTIONS" )V3Ĺ852,2:BOX:9:9:"One moment please...":(4);"RUN PRINTER" .V21200 L DISPLAY HOF NAMES AND SCORES VF$"HALL OF FAME.CBF-":BOX:9:9:"One momor Subtraction":" Table Challenge": "3. Print the file of names and":" scores for Subtraction":" Table Challenge": "4. Return to the Teacher":" Options Menu": "Enter your choice":"and press RETURN. ";:INP,(1,"-14"),V$:20),S(20),T$(20)#  MAIN PROGRAM4 BOX:40050@ NOJUSTk 1:3:"Hall of Fame Information Menu" 3:"1. See the file of names and":" scores for Subtraction":" Table Challenge":( "2. Clear the file of names and":" scores f16384:230,64B CA$(1):CC$(3):CL$(12):CN$(14):CO$(15)n HOOK:(4)"BLOADASCII BOLD.FNT,A29696" (4)"BLOADLITTLE.FNT,A30472" DFT,1,29696:DFT,2,30472:AFT,2,1 WIND,6,6,273,176:NOCNV:PARSE:21000 D$(4) NF$(20),NL$(C c40050'dPROGRAM: HOF CLEARERBnPROGRAMMER: TIM BUEGEZxCOPYRIGHT (C) 1986w REVISED: 11/25/88 CHL}FILES: HALL OF FAME.CBF-FONTS: ASCII BOLD.FNT LITTLE.FNT  INITIALIZATION      Íč R1:X03= RX,3X279X,3X279X,177XX,177XX,3XE &R:ddC! Your score deserves a spot"CC$:"in the Subtraction Training HOF!"CC$CO$ D$"OPEN"F$:D$"DELETE"F$:D$"OPEN"F$:D$"WRITE"F$:I120:NF$(I):NL$(I):S(I)::D$"CLOSE"F$ SPACE:BOX:9:9:"One moment please..." D$"RUNMENU-END" R BORDER I2011:SCS(I)SLIY `:I19SL1:S(I1)S(I):NL$(I1)NL$(I):NF$(I1)NF$(I): jS(SL)SC:NL$(SL)N2$:NF$(SL)N1$:BOX t:"HIGH SCORES:"CC$;CN$:CO,5,17 ~I120:5:NF$(I);CA$;:18:NL$(I);CA$;:35:S(I): 23J "CONGRATULATIONS΍ǍÍčȍōҍȍ΍ʍˍӍʍˍύˍӍō΍Ǎč͍č͍͍ٍ͍Í΍͍ˍЍԍčӍҍōˍōʍӍčƍՍ͍֍Í΍Սōč Ӎ,Y(9) ,yI09:X(I)I:Y(I)I:T6yI09:TY(I):J((1)10):Y(I)Y(J):Y(J)T::m { RANDOMIZE PROBLEMS{I09:TX(I):J((1)10):X(I)X(J):X(J)T:: ERASE SUBROUTINEˆ21:" ";:CEW:̈21:2: ERASE INPUT BOX&BOX,6X39FGHIJKLMNOWXYZ[\]\a"Xu!buX(lu3Gvu16,1416,162:7,23254,23Mubu DRAW INPUT BOXjuHCvVT3Y(Y):HT6X(X)3 vVSVT14:HSHT8vHS18,VS17HS7,VS17HS7,VS5HS18,VS5HS18,VS17 vy RANDOMIZE ROW ORDER"yX(9)L$:RA:D$"CLOSE"'F#D$"RUNINITIALS"-';R BORDERIR1:X03xRX,3X279X,3X279X,177XX,177XX,3X&R:0u USER ROUTINES:u DRAW SNAKE?uAFT,3:(14)Du4:1:" !6#$%&'()*+,-./01234567PQRSTUV^_"Nu5:1:"89:;<=>?ABCDEʍʍӍITY USING ALL THE"]`"SUBTRACTION FACTS. ^PLAYERS ARE":"CHALLENGED TO BEAT THEIR TIME OR"vj"BE IN THE TOP 20."|y~3:"^TEACHER ^OPTIONS"(3):"^THIS PROGRAM LETS A TEACHER":"MANAGE OPTIONS 2 AND 3 AND SET""THE SYSTEM FOR USE WIENCED":"AND THE COMPUTER MONITORS THE":"PROGRESS OF EACH STUDENT. 100%"8"MASTERY OF EACH LEVEL IS REQUIRED":"IN ORDER TO MOVE ON TO THE NEXT":"LEVEL."GL3:"^SUBTRACTION ^TABLE ^CHALLENGE"(3)V:"^THIS IS A TIMED BASIC FACTS":"ACTIVmoment please...") .A1ĺD$"RUNMANSYS"F 8A2ĺD$"RUNHOF CLEARER"g =A3ĺD$"RUNPRINTER SUPPORT"} BA4ĺD$"RUNMENU" R BORDER R1:X03 RX,3X279X,3X279X,177XX,177XX,3X &R: y ESC "y1005 r ON ERR PROCESSING Facts Management System":U " 2. Subtraction Challenge":" Hall of Fame":s " 3. Printer Support": " 4. Return to Main Menu":  "Enter your option"CC$:"and press RETURN:"CC$;:INP,(1,"-14"),A$ $A(A$):BOX:9:9:"One CO$(15)5 D$(4):D$"BLOADASCII BOLD.FNT,A29696"U HOOK:DFT,1,29696:AFT,0,1 WIND,5,6,274,175:NOCNV:21000:PARSE  MAIN PROGRAM 40050 BOX:::"Teacher Options"CC$:"MENU"CC$:  " 1. Learning The Subtraction":"  c40050*dPROGRAM:TEACHER OPTIONSEnPROGRAMMER: TIM BUEGE]xCOPYRIGHT (C) 1986y REVISED: 11/07/86 CHLFONTS: ASCII BOLD.FNT INITIALIZATION16384:230,64 CA$(1):CC$(3):CL$(12):CN$(14):    ENT ALPHABETICALLY&NN0I0:21407L11:L2NN1[SR$(NL$BL$,15)(NF$BL$,11)nL((L1L2)2)R$(NL$(L)BL$,15)(NF$(L)BL$,11)R$SR$2080L11L22100 R$SR$L1L:2020L2L:2020  MODIFY/DELETE L%O6$nXF$:XF$"EMPTY"XF$"END"ĺD$"CLOSE"F$:12:"The student's name is not on the file.":SPACE:BOX:1910XL$,LV$:XF$NF$XL$NL$ĺD$"CLOSE"F$:10:"The student's current level is ";LV$:19701955 INSERT/MODIFY/DELETE STUDSPACE:1910#lBOX:4:"DONE!"CC$Av6:"Would you like to ";TwO4ĺ"enter";hxO5ĺ"modify";|yO6ĺ"delete";{" another student?";:INP,(3,"YESNO",1),IN$(IN$,1)"Y"1600(IN$,1)"N"10001910D$"OPEN"F$:D$"READ"F 51900H:FL1įBOX:4:"Student is not on the file.":SPACE:1910DFL2įBOX:4:"There is no more space in this file.":SPACE:1000NFL3įBOX:4:"The file is empty.":SPACE:1000 XFL4įBOX:4:"That student is already in the file.":E"F$:II1:17203NF$(I)X$:NL$(I),LV$(I):1700LI0O4FL3:1850[NNI:2000n REWRITE FILED$"OPEN"F$:D$"DELETE"F$D$"OPEN"F$:D$"WRITE"F$!NN0ĺ"EMPTY":1840&I1NN:NF$(I):NL$(I):LV$(I):0"END":D$"CLOSE"F$-F)?";:INP,(1,"-AF",1),LV$Ur17:"Is this entry correct?";:INP,(3,"YESNO",1),IN$l|(IN$,1)"Y"1680(IN$,1)"N"16001650BOX:9:9:"One moment please...":I0D$"OPEN"F$:D$"READ"F$II1:X$:X$"EMPTY"X$"END"ĺD$"CLOSC$:1620eT5:"[ ]":4:"Enter the student's first name.":2:INP,(15,"-AZ ",1),NF$^8:"[ ]":7:"Enter the student's last name.":2:INP,(15,"-AZ ",1),NL$cO5İ1950hO6Ģ14:"Enter the new starting level.(A(XZAF\MZ 0=:$;C JGP21212*Gfm(egemf|(xdmi{m&&&*2L,*Z\G)Y[@G]L[+ |I)@GZLZ\$LMDM\M$EGLANQ([\]LMF\(ZMKGZLBJGP29GG<̲*AF[MZ\(I([\]LMF\(ZMKGZL*KK,29>:8XG=̲*EGLANQ(I([\]LMF\(ZMKGZL*KK,29>:8YG>̲*LMDETE A STUDENT RECORD"C"I12(I12)įSPACE:2::CEWD:II1:I12(I12)įSPACE`WIND,6,6,273,176:1000v CLEAR NAME LISTBOX:8:"Are you sure you want to do this? ";:INP,(3,"YESNO",1),IN$(IN$,1)"Y"13101000BOX:9:9:"One moment pl":D$"CLOSE":SPACE:1000A tX$"END"ĺD$"CLOSE"F$:NSI1:1160d ~NF$(I)X$:NL$(I),LV$(I):1130 BOX:2:"Learning the Subtraction Facts"CC$:WIND,6,28,273,176:BOX: "Name";CA$;:36,28:"Level"::I1NS:NF$(I)" "NL$(I);CA$;:36,30:LV$(I)6:"and press RETURR&>'&URL04-0>1-+>0-50S8&S4S85A8S--,,0-/,,0-),,0-*,,0-*,,0-*,,0-(,,iPSry|X8>SLYR>Z8&X8>>EAD"F$:I0 jII1:X$:X$"EMPTY"įBOX:9:5:"The file is currently empty.rint the list of names and":" their current level":^ " 4. Insert a student reccBNlgyhNLYBLL! L L L rd." " 6. Delete a student record.": " 7. Return to Teacher Options":" Menu."3 18:6:"Enter your option":"FACTS.LVLS"  MAIN PROGRAM+ 40000m BOX:2:1:"Subtraction Facts"CC$:"Management System"CC$:4 " 1. See the list of names and":" their current level" " 2. Clear the list of names and":" their current level"9 " 3. P CA$(1):CC$(3):CL$(12):CN$(14):CO$(15)X (4)"BLOADASCII BOLD.FNT,A29696"z (4)"BLOADLITTLE.FNT,A30472" DFT,1,29696:DFT,2,30472:AFT,2,1 WIND,6,6,273,176:NOCNV:PARSE:21000 D$(4) NF$(100),NL$(100),LV$(100) F$ c40000"dPROGRAM: MANSYS=nPROGRAMMER: TIM BUEGEUxCOPYRIGHT (C) 1986pREVISED: 08/24/87 TJBvFILES: FACTS.LVLSFONTS: ASCII BOLD.FNT LITTLE.FNT  INITIALIZATION16384:230,642        NF$(I);CA$;:18:NL$(I);CA$;:32:S(I);:39:(T$(I),2);":";(T$(I),2):P 23 "CONGRATULATIONS! Your score deserves a spot"CC$:"in the Subtraction Challenge Hall of Fame!";CC$;CO$' D$"OPEN"F$:D$"DELETE"F$:D$"OPEN"F$:D$"WRITE"F$:I120:NF$190 L ADD SCORE TO LIST9 VI2011:SCS(I)SLI `:I19SL1:S(I1)S(I):NL$(I1)NL$(I):NF$(I1)NF$(I):T$(I1)T$(I): jS(SL)SC:NL$(SL)N2$:NF$(SL)N1$:T$(SL)T$:BOX t:8:"NAME: SCORE: TIME:";CN$:CO,5,17H ~I120:5:(20),T$$^0) VSP,2,2+  MAIN PROGRAMR BOX:9:9:"One moment please..." D$"OPENNAME":D$"READNAME":N1$,N2$,SC,T$:D$"CLOSE" F$"HALL OF FAME.CBF-":D$"OPEN"F$:D$"READ"F$:I120:NF$(I),NL$(I),S(I),T$(I)::D$"CLOSE"F$ SCS(20)1ON 16384:230,64I CA$(1):CC$(3):CL$(12):CN$(14):CO$(15) D$(4):D$"BLOADASCII BOLD.FNT,A29696":D$"BLOADLITTLE.FNT,A30472" HOOK:DFT,1,29696:DFT,2,30472:AFT,2,1 WIND,5,6,274,175:NOCNV:21000:PARSE NF$(20),NL$(20),S c40050$dPROGRAM: INITIALS?nPROGRAMMER: TIM BUEGEWxCOPYRIGHT (C) 1986u REVISED: 12/25/86 CHL{FILES: NAME HALL OF FAME.CBF-FONTS: ASCII BOLD.FNT LITTLE.FNT INITIALIZATI     !΍ǍÍčȍōҍȍ΍ʍˍӍʍˍύˍӍÍō΍Ǎč͍č͍͍ٍ͍Í΍͍ˍЍԍčӍҍōˍōʍӍčƍՍ͍֍Í΍Սōč 2200'O4FL4:1850C*NL$(L)NL$:NF$(L)NF$:LV$(L)LV$:1800Y4 INSERT AFTER L m9O4FL1:1850;NN100FL2:1850<SR$R$LL1=LNNIL:2140>INNL11HNL$(I1)NL$(I):NF$(I1)NF$(I):LV$(I1)LV$(I)R \II1: INSERT AFTER L ! ;NN10014003 <SR$R$LL1G =LNNIL:2140X >INNL11 HNL$(I1)NL$(I):NF$(I1)NF$(I):LV$(I1)LV$(I) R \II1:NL$(I)NL$:NF$(I)NF$:LV$(I)((LV$)1) fNNNN1:1300 RBOX GENERATOR R1 RX03L11:L2NN10 SR$(NL$BL$,15)(NF$BL$,11)C L((L1L2)2)l R$(NL$(L)BL$,15)(NF$(L)BL$,11)} R$SR$2080 L11L22100 R$SR$L1L:2020 L2L:2020  ADVANCE L *NL$(L)NL$:NF$(L)NF$:LV$(L)((LV$)1):1300 4   REWRITE FILE0 D$"OPEN"F$:D$"DELETE"F$M (D$"OPEN"F$:D$"WRITE"F$s 2I1NN:NF$(I):NL$(I):LV$(I): <"END":D$"CLOSE"F$ x EXIT D$"RUNMENU-END"  INSERT/ADVANCE  STUDENT ALPHABETICALLY NN0I0:2140 ent please...":I0. D$"OPEN"F$:D$"READ"F$j II1:X$:X$"EMPTY"X$"END"ĺD$"CLOSE"F$:II1:1100 NF$(I)X$:NL$(I),LV$(I):1030 L READ IN NAME AND LEVEL VNNI `D$"OPENNAME.FILE":D$"READNAME.FILE":NF$,NL$,LV$:D$"CLOSE" 2000:CC$(3):CL$(12):CN$(14):CO$(15)M (4)"BLOADASCII BOLD.FNT,A29696"Y D$(4)s DFT,1,29696:AFT,0,1 WIND,6,6,273,176:BOX NOCNV:PARSE NF$(100),NL$(100),LV$(100) "F$"FACTS.LVLS"  MAIN PROGRAM BOX:9:9:"One mom c40050"dPROGRAM: UPDATE=nPROGRAMMER: TIM BUEGEUxCOPYRIGHT (C) 1986qREVISION: TJB 10/07/87wFILES: FACTS.LVLS NAME.FILEFONTS: ASCII BOLD.FNT INITIALIZATION230,64:16384' CA$(1)    NOCNV:WIND,6,6,273,176BBOX:10:CN$"READY..."CC$CO$:SPACEiBOX:10:CN$"SET..."CC$CO$:SPACEBOX:10:CN$"GO!"CC$CO$:SPACECNV:WIND,0,0,279,191p HOFuNF$(20),NL$(20),S(20),T$(20)&zHF$"HALL OF FAME.CBF-":BOX,6,6, please..."M'TT1:D$"OPEN PROBLEM":D$"DELETE PROBLEM":D$"OPEN PROBLEM"d(D$"WRITE PROBLEM",Z:X0LV41:Y0LV416Z(X,Y)11620@XY" - "Y:TY:XYD$"CLOSEPROBLEM"^9000 X:"0/"X READY,SET,GO DISPLAYX:VSP,1,1718:2:"^WOULD YOU LIKE TO PRINT OUT "v2:"THESE PROBLEMS? ";:NOCNV:INP,(3,"YESNO",1),IN$:CNV(IN$,1)"N"9000(IN$,1)"Y"15601510 PRINTER SET-UPNOCNV:852,1 "BOX,6,6,273,176,0:9:9:"One momentBOX,6,6,273,100&Z1:2:VSP,0,1BX0LV41:Y0LV41c(Z1)3((Z1)3)Ė2:1490}Z3(Z3)Ė25:149013Z(X,Y)11500Z") "XY" - "Y;:Z3(Z3)ĺ:ZZ1:Z28Z55Z82ĺ:SPACE:BOX,6,6,273,176,0:2 Y:ONG PROBLEMSTT19(12):VSP,1,1:HSP,2,1:21000HWA090003:3:"^WOULD YOU LIKE TO SEE A":3:"LIST OF THE PROBLEMS THAT":3:"YOU MISSED ?";:NOCNV:INP,(3,"YESNO",1),IN$:CNV(IN$,1)"N"9000(IN$,1)"Y"1470143011000HC0:30200`ABRARA1:Z(X(X),Y(Y))1:24:13:RA:BOX,115,152,210,162:1300| WAWA1:Z(X(X),Y(Y))114:24:WA:CN$:CO,180,152:"= "B:12000:ZZ1500:ZZ:BOX,115,152,210,162:CO$BOX,66,151,94,162:X:Y x PRINT WR,15095,15095,16365,16365,150E14:2:"^PRESS ^E^S^C TO STOP."y13:24:"0 ^CORRECT":14:24:"0 ^INCORRECT"RA0:WA0:30000Y0LV41:31500X0LV41BX(X)HC3:30200CN$:CO,115,152:X(X)Y(Y)" - "Y(Y):CO$ O YOU WANT? ";:INP,(1,"-12",1),LV$9_LV(LV$):849,LVC`5000ZjBOX,66,151,94,162l~BOX:VSP,6,11:4:NOCNV:"SUBTRACTION TABLE CHALLENGE":CNV31005IZ%0:IS%0:IM%0:13:2:"^TIME->00:00"12:2:"^A^N^S^W^E^R:" 3:65 BE"::3:"PLACED IN THE ^SUBTRACTION"::3:"^HALL OF ^FAME."P VSPACE:6000n [WIND,6,6,273,176:BOX:8 \:"1. ^SUBTRACTION FACTS TO 5"::"2. ^SUBTRACTION FACTS TO 9" ]:"^ENTER YOUR OPTION AND PRESS ^R^E^T^U^R^N"#^6:"^WHICH ACTIVITY DH^E^L^L^O! ^"F$" ^"L$::"^W^E^L^C^O^M^E ^T^O:";CC$::"^SUBTRACTION ^TABLE ^CHALLENGE";CC$ Q::3:"^YOU MUST TRY TO ANSWER AS MANY"::3:"PROBLEMS AS POSSIBLE IN THE"::3:"SHORTEST AMOUNT OF TIME. ^IF YOUR"? R:3:"SCORE IS HIGH ENOUGH, IT WILL^S^T NAME?") 5:3:"^[ ^]": 5:4:NOCNVS INP,(11,"-AZ",1),F$\ CNV 8:3:"^WHAT IS YOUR ^L^A^S^T NAME?" $10:3:"^[ ^]" )10:4:NOCNV .INP,(11,"-AZ",1),L$ 8CNV BBOX,6,6,273,176[ L3:3:"^5):CC$(3):CU$(96)! D$(4). VSP,0,1: Z(9,9)[ X09:Y09:Z(X,Y)0:Y:Xw "21000:BOX,6,6,273,176 ,(849)0ĺD$"OPENNAME":D$"READNAME":F$:L$:D$"CLOSE":LV(849):1120  START OF PROGRAM 3:3 "^WHAT IS YOUR ^F^I^RPOKE 849,LV-FLAG TO BYPASS NAME AND LEVEL4 16384F 230,64:HOOKy (4)"BLOADASCII BOLD.FNT,A29696":DFT,1,29696 (4)"BLOADTITLE.PFT,A30472":DFT,2,30472 (4);"BLOAD LITTLE.FNT,A31300":DFT,3,31300 AFT,2,1:CNV CN$(14):CO$(1[ c40050"d SUB. CHALLENGEAn (C) 1987 BY CHARLES LUND\x REVISED 12/7/86 CHL POKE 845,RA-# OF RIGHT ANSWERS POKE 847,WA-# OF WRONG ANSWERS POKE 848,RA+WA-# OF QUESTIONS ASWERED POKE 851,9-# OF TOTAL QUESTIONS) ! ! ! ! ! !!!!!!!!!"    (I):NL$(I):S(I):T$(I)::D$"CLOSE"F$7 SPACE:BOXY 9:9:"One moment please..."n D$"RUNMENU-END"} R BORDER R1:X03 RX,3X279X,3X279X,177XX,177XX,3X &R: y ESC "y1185 r ON ERR PROCESSING t216,0ӍÍ"TO CONTINUE";-RZC(16384):ZC14121220rR16368,0:7:" ";:21::ZV1:ZH1:|y ESC"y9000r ON ERR PROCESSING t216,0w(222)255įBOX:9000|(222)9040070BOX:9000Y(218)(219PRUTIL.OBJ":(4)"BLOAD PRINTER COMMANDS.BIN"O::12:5:"TURN ON YOUR PRINTER AND ADJUST":9:"THE PAPER AT THIS TIME.":21200OR SPACE-BAR ROUTINERZH(36):ZV(37):ZZ1200:ZZR24:7:16368,0 R"PRESS ";(23)"RETURN";(26)" NPOFF:::10:2:"PRESS RETURN TO CONTINUE, ESC TO END"HN16368,0gNZC(16384):ZC12820150NZC155ZC14120140NZC141ė:10:11::"WORKING & PRINTING"::20000:35,1:33,80:PACT:N9000: EXITNUNHOOK::-N(4)"BRUN ,9014,9016#2#(4);"RUN INITIALS"?4#(4);"RUN HOF CLEARER"V6#(4);"RUN MANSYS"o8#(4);"RUN MENU-END" N DISPLAY ESC PROMPT*N23:11:"PRESS ESC TO STOP":N CHECK FOR ESC KEYN(16384)128ıN(16384)12827Ĺ16368,0::2D$"READ PROBLEM2"<Z(FX1Z19PZ$:P$(X)Z$@ZXXdD$"CLOSE PROBLEM2"^npx PRINT FACTS:5:"SUBTRACTION STUDY PROBLEM(S)":X1Z1X") "P$(X),X::(#POFF-#D$"BRUN HPRINT".#HOOK 0#OPT9010,9012ent please...":D$"RUN MANSYS";  PRINT NAMES AND LEVELS] "LEARNING SUBTRACTION FACTS" 8:"NAME LEVEL" :Y1X1 NF$(Y);:15:NL$(Y);:33:LV$(Y): Y   LEARNING FACTS P$(39) (D$"OPEN PROBLEM2"0),LV$(100) [X0' `F$"FACTS.LVLS"C jD$"OPEN"F$:D$"READ"F$M oXX1| tNF$(X):NF$(X)"EMPTY"ĺD$"CLOSE"F$:1180 ~NF$(X)"END"1170 NL$(X),LV$(X):1135 D$"CLOSE"F$: BOX:9:9:"The file is empty.":SPACE:BOX:9:9:"One momX   HOF PRINT< 5:"SUBTRACTION HALL OF FAME"B n 5:" NAME SCORE TIME"t  X120 2:NF$(X);:15:NL$(X);:30:S(X);:34:(T$(X),2);":";(T$(X),2): X $ L NAME AND LEVEL VNF$(100),NL$(105:"SUBTRACTION STUDY PROBLEM(S)":0 *X1Z1I 4Y(X1)3((X1)3)Z >X") "A$(X),c RX:i \s  HOFy  NF$(20),NL$(20),S(20),T$(20) F$"HALL OF FAME.CBF-" D$"OPEN"F$:D$"READ"F$ X120 NF$(X),NL$(X),S(X),T$(X) TING"::20000 735,1:33,80) <PACTE FOPT800,1000,1200,1400O P9000e  TABLE CHALLENGEr A$(100) D$"OPEN PROBLEM" D$"READ PROBLEM" Z X1Z1 Z$:A$(X)Z$ X D$"CLOSEPROBLEM"   TABLE PRINT# %:1 #PRINTER:UPDATED 12/23/86 TJB8HOOK:OPT(852)D40050M255vFF$(10):Z9(3)24:Z9(4)18:Z9(5)14Q(22002)256(22003)D$(4)OPT700,900,1100,1300 SET UP FOR PRINTER(20200 2::10:11::"WORKING & PRIN" " " " " """""" 272,175:9:9:"^ONE MOMENT PLEASE..."vD$"OPEN"HF$:D$"READ"HF$:Z120:NF$(Z),NL$(Z),S(Z),T$(Z)::D$"CLOSE"HF$BOX,6,6,272,175:2:"^SUBTRACTION";CC$:"^TABLE ^CHALLENGE";CC$AFT,3:CN$::I120:5:NF$(I);CA$;:18:NL$(I);CA$;:31: