X'0 [ȹ'$ LŠŠˠŠΠҠˠ ΠӠݺ1:I13:20:H7:C$:C$(S)İ20:580i:20:H7:" ":I:D$(S):330:20:H7:" ":20:H7:C$DE(S10):A$"":OA:E0OA1:A$(E)NV:O:S:340:E0Ģ22:"Carry the "(E)F$:9:O1(B2)::A$:340:V::O:" "0X17:958:AA&V13:B0:WN211:V13B:A38(B2):H1:T((S$(2),W,1)):U1:V:H:(T(10B))" X "S$(1)" =":A$"":CN(1)11:18:1:"Multiply the "B$(U)" column.":STD(C)E:20:S$(T)" X "(D(C)):A$""S$S$" + "A$'05:S$" = ";:H7(36):O:" "L17:958:AA2:UU1:340:C:A$""ĢV:A:A$:E0:A$"":340BB1:9:E$:320:17:958::N21540:V1:L(A$(3))1:38L:310:V2:1:"Add the partial":V3:1:"products.":A38:C(S$(3))11:V2:A:(S$(3),C,1):340:AA2:C11:18:1:"Multiply the "B$(U)" column.":STD(C)E:20:S$(T)" X "(D(C)):A$""S$S$" + "A$5::B$S$" = "(S)B$::E(S10):A$"":OA:E0OA1:A$(E) V:O:S:340:E0Ģ22:"Carry the "(E)F$:9:O1(B2)::A$:340:V:mbers:":B0:V10:I12:VB:39(A$(I)):A$(I):BB1:IsL(A$(1)):H39L:12:H:310:U1:Z480,550,640:670V13:B0:WN211:V13B:A38(B2):H1:T((S$(2),W,1)):U1:V:H:(T(10B))" X "S$(1)" =":DE1000:T1DE1iA$"":CN(1)number? (2-5) ":LI1:210:V9:H92:150:N1X:X:F3:N1FFN19SM1:17:Y1:S$"How many digits in the smallest number? (1-"(F)") ":LI1:210:V9:H92:150:N2X:X:K1TL:T$"Please wait...":22:350:370:22:958:200:10:1:"Multiply these nu:VV1:W:SM1:22:1K"Your choice? (1-3) ";:150:ZX:X:F10:Z1F5:10:S$"How many problems? (2-"(F)") ":H1:TC35:LI1:210:V9:H91:" ";G$:TL(G$):TL2TLFĢV:1:958:440?SM2:F5:14:Y1:S$"How many digits in the largest (1)):D(Q)((S$(1),Q,1)):Q:J$"MULTIPLICATION":E$" ":200:TC35:Y1:12:1:"What's your first name? ";H$:14:1:"And your last name? ";K$:SM1:F3:16:1:"Do you want to:":V18:W13:V:8:(W)") "C$(W):MD1I$" product"Q18:S(Q)0:A$(Q)"":S$(Q)"":Q:Q12:RN(Q)11:DI((1)9)1:S(Q)S(Q)DI(10(R1)):R:Q:S(3)S(1)S(2):Q13:S$(Q)(S(Q)):A$(Q)(S$(Q),1):S(Q)9410R2(S$(Q)):A$(Q)A$(Q)B$(S$(Q),R,1):RQ:Q1(S$NUE : TO EXIT "::350::120:b JT$"ENTER "Q$D$Q$" PLEASE."::23:350::340:340:z TD1DE::DE1500: ^L(T$):H20(L2):H:T$;:H9(36):V9(37)1:PG1PG0: h: rMD0:K2(K2)MD1|N(1)N1:N(2)N2:I$" quotient"TC11:X$(S$,LT,1):X$B$X$"-"290H E2ĺ(S$,LT(X$B$)):270v I1LT:J((S$,I,1)):(J32(J95));: S$(S$,(S$)LT):LI1ĺ 230 "::(7);"WORD TOO LONG";: , 6I1L1:"-";::% @PG1:23:T$" TO CONTI40:"][";::40:I120:"][";::"]"::3:T$"UPTIME PRESENTS:":350:5:T$J$:350:34,8:: L(S$):LTCH20(L2):L0ı Y0HY H:(S$)TCāI1(S$):J((S$,I,1)):(J32(J95E2));::H9(36):V9(37)1::C0300::) LTY0:210:' n20:958:20:Y0:210:? xX$:X$(27)190:_ 120:X$(13)ĺ(7);:130e 120:X(X$):XSMXFı (7);:150 120:X$"N"X$"n"X$"Y"X$"y"ı (7);:170 19:690^ ::"[";:I120:"][";::I14:7)223:420 Z3NN1D I1(6(1))1:I140,50,60,70,80,90Y (S$"Great!":100r 2S$"Fantastic!":100 <S$"Super!":100 FS$"You're really going now!":100 PS$"Yes! Yes! Yes!":100 ZS$"That's great!" dZ3Ģ17:958:R1:18:+ (C) 1988 UPTIME AND VISION SOFTWAREQ42739,94:42740,166:0:::1002| (1101)6ĺ(13)(4)"BRUN LC.CONV" :J14:J$(J)::A(11):I13:C$(I)::I15:B$(I)::F$".":DE1000:SS100:NN255:L$", ":P0:M0:G0:N0:B$(32):E2(63       󠭭򮍍ɠᬠ򮍍Ӡ򠤳Ӡ宠Ӡ堭󮠠Ӡ󮠠Ӡ堭堢墠嬠󠭭嬠򮠠򮠠嬠򬠳Ġ嬠󮠠ɠ嬠㬠󮠠宠䠸󮠠᫫Ӡ宠Ӡ宠            X$"Y"X$"y"720:768:200::RU1:10:"ten","hundred","thousand","ten thousand","See examples done.","Do examples with help.","Do problems yourself.","ones","tens","hundreds","thousands","ten thousands"L$", ":P0:M0:G0:N0:B$(32):E2(63958:480#Z3RE1RE0/K:690DZ3KK1:710KK1:200::P((NK)100.5)::S$"You got "(N)" right out of "(K)" numbers, "H$". That's "(P)"%.":TC37:H3:LI0:210:12:1:"Do you want to play again? ";:170:MM:330:V2:A:"_":V2:A:Z$^vMM0:V2:A:(S$(3),C,1):340:AA2:18:958:C:20:23:T$" NO COMMAS PLEASE! "::350::14:1:"Your answer: ";C$:(C$)(A$(3))Ģ17:958:20:660 RE1:17:1:"Let me show you this one.":320:14:1:2:UU1:340:C:A$""ĢV:A:A$:E0:A$"":340bBB1:9:E$:320:17:958::N21540:V1:L(A$(3))1:38L:310:V2:1:"Add the partial":V3:1:"products.":A38:C(S$(3))11:D$(S$(3),C,1):MM13:V2:A:"_":V2:A:Z$:Z$D$630!l栢뢬󮍍͠󮍍򮠠ᠳ嬠報堳栵󮩠󮠠Ϡᠳ宠ɠ堳ɧ򮍍嬠󮠠Ч䠶ðР򮠠ɠР򮠠忠Р𿠠ɧɠ󮍍ЧР󮠠ɠЧРɠ󠭭宠蠢Р謠䬠ɠ欠Р㬠ɠ䬠Р堶栴宠宠蠢󢠭Į®򡍍Р宠РĮ®򮠠堢堢墬宠Į®쬠嬠󮠠ɧ報䠢g+ (C) 1988 UPTIME AND MIKE MACDONALDfd(13)(4)"BLOAD LIB"(13)(4)"BRUN USA.BOOT.OBJ".IB"(13)(4)"BRUN USA.BOOT.OBJ".砭􍱠䮍Ԡ㩠堦Р䮍󠭠Ϡ堭Ϡɠɩؠة砭ӍϠؠ󠭠Į®ϠРɠ宠ᬠ宠衍亍堭Ӡ󍵲堲ō򠱶ﮠɠ䮠Ӡ謠Ӡ͠䠴󮠠͠ؠؠ䠱样󮠠ؠ宠򠱠Ӡ͠䬠砱͠ᠱ򠤲͠宠͠͠͠䬠͠٠à󮠠󮠠͢報蠱͠󮠠嬠ɠ򮍍栴ɠ󮠠ɠɠ嬠򮠠ӠӠ宠䠤򠤲᩠ﺍ卲宍ﬠ䡍庠Πخ砵󺍍Ӡ堳Ԡ䮠Ӡ堵󮍍砳󺍍󺍍󺍍Ġ뮠ݭݠݩ󠱳򮠠̠Ӡ뮍ՠԠĠ̠ŠĮҠ報ԍ堲Ӡ堳︰ź  Ԡ󿠢ΤĤŢΤ̤¢čԠҠӠĠ̠ŠŠˠΠŠŠϠŠĠĠŠ͠ݮԠؤԠΤҺŠŠĤĢΤĤΠˢ  ݢԠؤݭݠݩ纍ŠЍĤҤź宍󮮮󮠠򮍍宠ɫР嬠٠Š宩嬠ݭݠ纍נݍŠŠȠˠ˩ԠϠ報嬠ݭݬ堢ң󮍍Ӡ뺍묠ݩɮ庍캍묠危宍ɠɠ򍍨뮠嬠䬠     퍆ȊȟȟȜȏȉȘ廼ȡȬȩʱ开ț놌țȁȜȘȜȍȇȌȁȜȌȀȅȌȑȟȄȁȍȘȇȜȘ堨ͩ宠Ȅ󮍍ԍԠϠŠŠΠՍԠϠԠÍŠӠϠԬΠήɫ̭ʠ̭ˠԍŠ򺍍Ġՠź΍Π΍΍Ԡ嬠箍Ǡ˫é׮䍍          뮍亍̠ԍ宍̭נ̭Ԡ쮍̭Ġź̭נ宍宍宍̭ 宍̭ՠ䮠묠䡍ź䮍뮠󮠠忠ɠ󮠠宍󮠠報ؠ᫫󮍍hhhhhhhhhhhhnnen    󮠠򮍍嬠ɠ򮍍ӠԠŠŮȼȘȀȊȁȀȜȇȋȜȌȡȅȚȏȆȎȍȘȉȜנ٠ã߬Ȭ٬ɳ颬ȑȋ򮍍宠宍嬠ԠԮ笠嬠宍РɠǠŠȩԍά󮠠堨穮ɝəɞɇɊɀɈə䤈ɞɈɆɅșɈɝɋɆɝɚ䡦ɤɹɾɰɥɦɽɽſ笠䬠Ϣ笠箠ӠӢź鋍ȜȟʉȼȅțȉȜȌȌȜȇȘȥî䠢嬠殍嬠Š𤋮àà󮢩󺠢嬠宠󠨢󢩠󠨢宠蠧򮢩󮢍墠宠嬠ᠨ婬䠨婠栨詮報謠򮍍客堢嬢󮠠묠򮠠㮠󮍍宍殠栢󮍍󮠠堢堲塢蠢嬢͠󠨤ᬠ堢墠٠Ӡō硠塠   Π嬠ɬ㮍亍ÍŠͩݩӠӠ묠嬠㮍󺍍ҠҠ㮍Р֠Ǡ΍堳򮍍ȠԮ栭嬠ɠ󮍍ɠ ߬ߠߍ堣ߍﺍЮϮɠ۠ݠߍ󠠠۠ݠߍ砠۠ݠߍߍߍߍ砍󠠠۠ݠߍ젠۠ݠߍ堍䠠۠ݠߍ󠠠ݠߍ۠ݠߍ󠠠۠ݠߍ㠠۠ݠߍ򠠠۠ݠߍ۠ݠߍ۠ݠߍ䠠۠ɠ報퍱Ң䮍砠󠠠۠ݠ      宬墠͠宠íǠ堤󮮮Ӡ堳讠󬠲ﮢɬᬠԠӠ䮠嬠󬠢󮠠󮍍묠ź뢠젨宠堢墠㮍筭欠󮍍堢墠󡢍󮠠亠6"(27)(13)&37:"GET",R$AD$,3?R$(27)CC1:160OD1(C)(R$)a6:10:" "r$8:10:ARW$.8:14:"DIGITS IN MULTIPLIER:";837:"GET",R$AD$,3BR$(27)Ģ8:10:" ":980LD2(C)(R$)VA$(14)" ALLOW CARRYING " problems F34,0:::" MULTIPLICATION PROBLEM PARAMETERS ":VO$(C)"MUL"h6:5:"ZZZZ"}8:2:"X YYYY"4:"_____"6:10:ARW$3:5:"[RETURN] ALONE ACCEPTS DEFAULT"6:14:"DIGITS IN MULTIPLICAND:";AD$"23145EMS "HVS14:VM16:2350*RESC1750>\V131CA(C)1RfV132CA(C)0fpV133CA(C)2zL2220:20:1:"HOW MANY PROBLEMS WOULD YOU LIKE OF THISTYPE?"22:"FLI",3,PN$,L:PN$""ĺ(7);:900PN(C)(PN$):160  MultiplicationD:";35:"GET",R$AD$,3=R$(27)Ģ8:10:" ":660M D2(C)(R$)~D2(C)D1(C)ĺ(7);:9:14:"TOO LARGE":740 9:14:868*A$(14)" ALLOW BORROWING "4A$(15)" NOT ALLOW BORROWING ">A$(16)" PRODUCE A RANDOM MIXTURE OF PROBL67L)L(A1$(X))(A2$(X)))(((A1$(X))(A2$(X))))@6&/RR0ĺA:12500h60/A;" REMAINDER "(RR(A2$(X)).01)6D/LI57NP66LI:G1NP::::::LI360:mFLIFIXED LENGTH INPUT.TB , ,݅L " ީ; = g RQP5LԅMSWERS *5.X13:::WN$" ANSWERS"::35.LI6O5.X1Y:X" - ";:LILI1}5.OP$(X)"ADD"ĺ(A1$(X))(A2$(X)):125005/OP$(X)"SUB"ĺ(A1$(X))(A2$(X)):125005/OP$(X)"MUL"ĺ(A1$(X))(A2$(X)):125005/A((A1$(X))(A2$(X))),6/RR()D2(X)1136574v,(A2$(Y))(A1$(Y))A2$(Y)"":11365w4w,A1$(Y)A1$(Y1)A2$(Y)A2$(Y1)A1$(Y)"":A2$(Y)"":113424x,CA(X)0A1(A1$(Y)):A2(A2$(Y)):A1A2(A1A2)A1$(Y)"":A2$(Y)"":113424y,YY1::119904.:YY1:5. PRINT OUT AN(X)3N,G0:OP$(Y)O$(X)-3Q,D$((10(1)))Q3S,(A1$(Y))D1(X)1D$"0"11345}3V,A1$(Y)D$A1$(Y):(A1$(Y))D1(X)113453e,D$((10(1)))3g,(A2$(Y))D2(X)1D$"0"113653h,SF1R(1):R.5CA(X)0 4t,A2$(Y)D$A2$(Y):G(A2$(Y)):(A2$(Y)):R.5CA(X)02,H1q2,CA(X)0W(A1$(Y)):A1((A1$(Y),H,1)):A2(D$):A1A29A1$(Y)"":A2$(Y)"":112422,CA(X)0HWHH1:112702,SF1CA(X)0CA(X)22,A2$(Y)D$A2$(Y):G(A2$(Y)):(A2$(Y))D2(X)112652,YY1::119903$,Z1PN1651+YY1::11990.1+O$(X)"MUL"11300=1+Z1PN(X)R1+G0:OP$(Y)"MUL"g1+D$((10(1)))1+(A1$(Y))D1(X)1D$"0"112451+A1$(Y)D$A1$(Y):(A1$(Y))D1(X)112451,D$((10(1)))1,(A2$(Y))D2(X)1D$"0"112652,SF1R(1D$"0"11165,0+SF1R(1):R.5CA(X)00+A1((A1$(Y),(A1$(Y))(G1),1)):A2(D$):CA(X)0A1A20A1$(Y)"":A2$(Y)"":111420+SF1CA(X)0CA(X)20+A2$(Y)D$A2$(Y):G(A2$(Y)):(A2$(Y))D2(X)111651+(A1$(Y))(A2$(Y))A2$(Y)"":11(A2$(Y)):(A2$(Y))D2(X)110653/M+YY1::11990K/\+O$(X)"SUB"11200Z/+Z1PN(X)o/+G0:OP$(Y)"SUB"/+D$((10(1)))/+(A1$(Y))D1(X)1D$"0"11145/+A1$(Y)D$A1$(Y):(A1$(Y))D1(X)11145/+D$((10(1))) 0+(A2$(Y))D2(X)1D$((10(1)))4.;+(A2$(Y))D2(X)1D$"0"11065S.<+SF1R(1):R.5CA(X)0w.=+D1(X)D2(X)G(A1$(Y))11072.>+A1((A1$(Y),(A1$(Y))G,1)):A2(D$):CA(X)0A1A29A1$(Y)"":A2$(Y)"":11042.@+SF1CA(X)0CA(X)2 /H+A2$(Y)D$A2$(Y):GRIABLE 'Y' IS RUNNING COUNT OF PROBLEMS 8-+CC1:Y1C- +X1CZ-+SF0:CA(X)2SF1r-+O$(X)"ADD"11100-+Z1PN(X)-"+OP$(Y)"ADD":G0-%+D$((10(1)))-'+(A1$(Y))D1(X)1D$"0"11045-*+A1$(Y)D$A1$(Y):(A1$(Y))D1(X)11045.9+DRIVE. [RETURN] ALONE ACCEPTS DEFAULT."?,.'6:1:"SLOT: "T,3'7:1:"DRIVE: "p,8'6:7:"GET"SLOT$NS$,3,='SLOT$(27)ESC1:,B'7:8:"GET"DRIVE$ND$,3,G'DRIVE$(27)10040,L',* GENERATE PROBLEMS *-* VADD"SIGN$(H)"+":3+TOP$(H)"SUB"SIGN$(H)"-":T+^OP$(H)"MUL"SIGN$(H)"X":+'::1:"TYPE RUN AND PRESS RETURN TO RESTART."+'+' SET SLOT AND DISK+"'NS$"654321"(27):ND$"1234"(27)+#'34,1:ESC0+,$':3:"ENTER SLOT AND DISK 285230-*x16368,0::V:A$(V):K1415290Q*K136K139VV1:VVS1VVMu*K149K138VV1:VVM1VVS*K155ESC1:*K129AC1:*K133EXIT1:*5220**@ GET OPERATION *E(OP$(H),3)"DIV"ı+JOP$(H)"A---------)( MENU ROUTINE8)2 -------------------?)< Z)FESC0:VVS:EXIT0:AC0|)KV2:1:"WOULD YOU LIKE TO:")PXVSVM:X:A$(X)::L$:M$)UVK0VVK)Z16368,0)d:V:A$(V))nK(16384):K128RSRS1:RS201RS0*oK1 LOAD MM MENU )(20::" CONFIRM: "/(("PRESS [RETURN] TO EXIT TO UPTIME MAIN MENU, ANY OTHER KEY TO CONTINUE."(R$:R$""5115(R$(13)10( :"ONE MOMENT, PLEASE..."(  Rehook to UPTIME shell (768 ) ----------:::::LILI7:(OP$(X),3)"DIV"(OP$(X1),3)"DIV"(OP$(X2),3)"DIV"LILI1'LI59X2YNP66LI:G1NP:::PPPP1::::WN$" / PAGE "PP::::LI7''NP66LI:G1NP:::PP1:: Formfeed paper'12000'(4)"PR#0":35(8502&L1(A1$(X1)):L2(A2$(X1)):L1L2LL1B&L2L1LL2b&36,(X31):R1L2:"_";:&OP$(X2)"DIVA"OP$(X2)"DIVB"4880&X2Y4880&L1(A1$(X2)):L2(A2$(X2)):L1L2LL1&L2L1LL2&36,(X51):R1L2:"_";:T':A2$(X2):48006%L1L2Ĺ36,(X5(L2L1)):A2$(X2)H% 3RD LINE n%OP$(X)"DIVA"OP$(X)"DIVB"4830%L1(A1$(X)):L2(A2$(X)):L1L2LL1%L2L1LL2%36,(X11):R1L2:"_";:%X1Y4880&OP$(X1)"DIVA"OP$(X1)"DIVB"42$(X1)):L1L2Ĺ36,(X3(L1L2)):A2$(X1);:4780Y$L1L2Ĺ36,(X3(L2L1)):A2$(X1);$OP$(X2)"DIVA"Ĺ36,X5:A2$(X2)" ) "A1$(X2):4800$OP$(X2)"DIVB"ĺ:4800%36,X53:SIGN$(X2);:L1(A1$(X2)):L2(A2$(X2)):L1L2Ĺ36,(X5(L1L2))36,X13:SIGN$(X);:L1(A1$(X)):L2(A2$(X)):L1L2Ĺ36,(X1(L1L2)):A2$(X);:4750|#L1L2Ĺ36,(X1(L2L1)):A2$(X);#OP$(X1)"DIVA"Ĺ36,X3:A2$(X1)" ) "A1$(X1);:4780#OP$(X1)"DIVB"47802$36,X33:SIGN$(X1);:L1(A1$(X1)):L2(AP"f36,X4:X2".) ";:36,X5:OP$(X2)"DIVA"Ĺ36,(X52(A2$(X2))):TL$;:4720"kOP$(X2)"DIVB"ĺA1$(X2)" / "A2$(X2)" =";:4720"nA1$(X2);"p"q NEXT LINE "zOP$(X)"DIVA"Ĺ36,X1:A2$(X)" ) "A1$(X);:4750"OP$(X)"DIVB"4750W#)" / "A2$(X)" =";:4680$!>A1$(X);7!HX1Yĺ:4730G!JHX1:8000!M36,X2:X1".) ";:36,X3:OP$(X1)"DIVA"Ĺ36,X32(A2$(X1)):TL$;:4700!ROP$(X1)"DIVB"ĺA1$(X1)" / "A2$(X1)" =";:4700!WA1$(X1);!\X2Yĺ:4730!aHX2:8000(4)"PR#1" I1(CP$):LI7^ :::"NAME________________________________";:36,60:WN$h :: !X17:X231:X338:X458:X565 *X1Y3 /HX:8000 4X".) ";:36,X1:OP$(X)"DIVA"Ĺ36,X12(A2$(X)):TL$;:4680!9OP$(X)"DIVB"ĺA1$(X",3,CP$,L:(CP$)1(CP$)100ĺ"OUT OF RANGE...PRESS RETURN.":R$:457010:"MAKE CERTAIN YOUR PRINTER IS ON-LINE AND READY."::"PRESS [RETURN] TO PRINT..."R$:R$(13)R$(27)4595R$(27)4500:7::" WORKING ": PP1::u34,1::7:"WHAT WOULD YOU LIKE TO CALL THIS WORKSHEET?":L35:10:"FLI",20,WN$,L:WN$""ĺ(7);:4560:"I AM CREATING YOUR WORKSHEET. THIS MIGHT TAKE AWHILE..."11000H:L4560:7:"HOW MANY COPIES WOULD YOU LIKE?";:"FLI'V13CA(C)0",V14CA(C)2eL4080:19:1:"HOW MANY PROBLEMS WOULD YOU LIKE OF THISTYPE?"21:"FLI",3,PN$,L:PN$""ĺ(7);:4270PN(C)(PN$):100 Print out worksheets 34,0:::" PRINT OUT WORKSHEET GENERATED "7);:4085D2(C)(R$)7D2(C)D1(C)ĺ(7);:4080U12:1:" ";:25:" "uA$(12)" ALLOW REMAINDERS "A$(13)" NO REMAINDERS "A$(14)" MIXED "10:1:958:VS12:VM14:5150ESC1Ģ10:958:PASS1:4025"V12CA(C)112:13::A2$:JL4000:15:21:"FLI",3,R$,L:R$""ĺ(7);:4075ZD1(C)(R$)|16:1:"DIGITS IN DIVISOR:";12:13:" "O$(C)"DIVA"Ģ12:1::A2$::408512:25::ARW$: R$"2":L4070:16:21:"FLI",3,R$,L:R$""ĺ(7)"XX / YY "%PASS1PASS0:40609VS5:VM6:5150OESC1CC1:100kV5O$(C)"DIVA":4060|O$(C)"DIVB"A2$"-->"R$"3"15:1:"DIGITS IN DIVIDEND:";12:1:" ";:25:" "O$(C)"DIVA"Ģ12:13::ARW$::40753270 PN(C)(PN$):1008 Division problems s34,0:::" DIVISION PROBLEM PARAMETERS ":A$(5)" USE FORMAT 'A' BELOW "A$(6)" USE FORMAT 'B' BELOW "10:4:"A:";16)"B:"11:7:"______" 12:4:"YY ) XX"14 A$(16)" PRODUCE A RANDOM MIXTURE OF PROBLEMS "J VS14:VM16:5150Z ESC13100n V131CA(C)1 V132CA(C)0 V133CA(C)2 L3220:20:1:"HOW MANY PROBLEMS WOULD YOU LIKE OF THISTYPE?" 22:"FLI",3,PN$,L:PN$""ĺ(7);:AD$,3 R$(27)CC1:100. D1(C)(R$)@ 6:10:" "Q 8:10:ARW$v 8:14:"DIGITS IN MULTIPLIER:";& 37:"GET",R$AD$,30 R$(27)Ģ8:10:" ":3040: D2(C)(R$) A$(14)" ALLOW CARRYING " A$(15)" NOT ALLOW CARRYING "IPLICATION PROBLEM PARAMETERS ":5 O$(C)"MUL"G 6:5:"ZZZZ"\ 8:2:"X YYYY"l 4:"_____"} 6:10:ARW$ 3:5:"[RETURN] ALONE ACCEPTS DEFAULT" 6:14:"DIGITS IN MULTIPLICAND:"; AD$"231456"(27)(13) 37:"GET",R$C12100V131CA(C)10V132CA(C)0DV133CA(C)2L2220:20:1:"HOW MANY PROBLEMS WOULD YOU LIKE OF THISTYPE?"22:"FLI",3,PN$,L:PN$""ĺ(7);:2270PN(C)(PN$):100 Multiplication problems % 34,0:::" MULT(27)Ģ8:10:" ":2040)RD2(C)(R$)[\D2(C)D1(C)ĺ(7);:9:14:"TOO LARGE":2095lf9:14:868A$(14)" ALLOW BORROWING "A$(15)" NOT ALLOW BORROWING "A$(16)" PRODUCE A RANDOM MIXTURE OF PROBLEMS "VS14:VM16:5150ES ALONE ACCEPTS DEFAULT"96:14:"DIGITS IN MINUEND:";V AD$"231456"(27)(13)n35:"GET",R$AD$,3R$(27)CC1:100 D1(C)(R$)*6:10:" "/8:10:ARW$48:14:"DIGITS IN SUBTRAHEND:";>35:"GET",R$AD$,3HR$:"FLI",3,PN$,L:PN$""ĺ(7);:1270:PN(C)(PN$):100X Subtraction problems 34,0:::" SUBTRACTION PROBLEM PARAMETERS ":O$(C)"SUB"6:5:"XXXX"8:2:"- YYYY"4:"_____"6:10:ARW$3:5:"[RETURN]A$(15)" NOT ALLOW CARRYING "SA$(16)" PRODUCE A RANDOM MIXTURE OF PROBLEMS "iVS14:VM16:5150yESC11100V131CA(C)1V132CA(C)0V133CA(C)2L1220:20:1:"HOW MANY PROBLEMS WOULD YOU LIKE OF THISTYPE?"$22"(27)(13)%.34:"GET",R$AD$,3>3R$(27)CC1:100N8D1(C)(R$)`B6:10:" "qG8:10:ARW$L8:14:"DIGITS IN ADDEND #2:";V34:"GET",R$AD$,3`R$(27)Ģ8:10:" ":1040jD2(C)(R$)A$(14)" ALLOW CARRYING "on problems H34,0:::" ADDITION PROBLEM PARAMETERS ":XO$(C)"ADD"j6:5:"XXXX"8:2:"+ YYYY"4:"_____"6:10:ARW$3:5:"[RETURN] ALONE ACCEPTS DEFAULT"6:14:"DIGITS IN ADDEND #1:"; $AD$"231456A$(10)" DIVISION "CA$(11)" PRINT OUT WORKSHEET GENERATED "kA$(12)" QUIT TO UPTIME MAIN MENU "A$(13)" QUIT TO APPLESOFT "VS7:VM13:VK0:ESC0:V7:5200ESC1CC1:100V61000,2000,3000,4000,4500,5090,9990  AdditiMenu screen D d:::" THE WHOLE NUMBER WORKSHEET GENERATOR ": i:24:" [ESC] TO BACKUP IN PROGRAM ";::34,1:35,23 k1:CC1 n5:"WOULD YOU LIKE:" xA$(7)" ADDITION " A$(8)" SUBTRACTION " A$(9)" MULTIPLICATION "4),A1$(100),A2$(100),D1(100),D2(100),DT(100),OP$(100):TL$"________":M$"USE ARROWS TO SELECT, THEN [RETURN].":L$"---------------------------------------":ARW$"<--" Z Setup Main Menu screen _(21): Kill 80 columns if active c Setup Main La L ` 0` ee`   f`  j %`hh #HH # #hhlHH / hh , qL* lL aL PL1 GL1 ߚLphh 7 ȱ Q+,'E -+.Я JϦΥ +L+ ' ,Ћ VW`υΦ VW`XY \V]W\" ` PL* " LܠVXWȑX` L6 LE,,-`]L L LW ]\L: ߦ\]` ȱ^``PQ`^_^` lP$Li)$ PP W` PP8$NP L LY L  ZhhHH脁 ,թVW" `" L Z ZL Έ`" Lv$Lhh Z l & D # " 3` 7` \]` \` L( Lhhϥ^8 _ ŝiMLԥHHHϦΠ hh` ^H^H``ahPhQa `ʚL iڢLԼʚ`a  饪 r 2 E^ 16384΄ϠΪȱΨ` L ΄ L5΄ϠPȥQ` L+΄ϥLY΄ &$΄ϥLw΄ & &e몘e쨊e΅PeυQP`  ` %L ` ` ` ` ` `з          宍̠λ󢠭婠ﺍĠǠӍϠӮ̠Πֱ̠Πֱ̠λ󢠭堵𠤱ᵶ󮠠嬠卍쬠󠹠̠Ġ٠ō٫Ӫ̠̠΍栢嬠󮍍嬠卍   .) A2$(X) = second set of numbers in problem OP$(X) = the actual operation (add, subtract, etc.) for problem #X ! CA(X) = flag for carry/borrow allowed for problem X PN (C) = the number of problems for a given type (set) #:SIGN$(100),A$(2UPTIME guidelines 5 42739,94:42740,166:0:1002i  Ampersand connector for Toolbox routines (175)256(176)46  Program initialization s VARIABLES A1$(X) = first set of numbers in problem (subtrahend, multiplicand, etcWagner Publishing - Copyright (C) 1985 These routines are used with permission.  If DOS = 1 then ProDOS is active. - rehook ProDOS and skip DOS 3.3 reconnect pokes (978)190DOS1:(4)"PR#0":(4)"IN#0":30  Reconnect DOS 3.3 as per q4 THE MATHAMAGIC WORKSHEET GENERATOR COPYRIGHT (C) 1987 BY ROSS W. LAMBERT AND TEACHER'S SOFTWARE CO. ALL RIGHTS RESERVED P This program contains embedded machine code: GET and FIXED LENGTH INPUT (FLI) are from the TOOLBOX SERIES by Roger                           !!!" " " 殍ˠ嬠Ӡ󮍠嬠ˠ뮠ө宍䬠嬠宠宠쮠亠䬠笠婻嬠殍󮍠嬠ˮ嬠ȭ嫫ˍﬠɠ宠      ` 0  D , 6,E" 湱 :,목΄"ȱ:, L eL? ΄Lw΄φ  L  L5    L5   ΤL+΅qτr SՍȄL \`hhHHvHuHQHPHHH`huhvhhL* L* 48 ˦ LJ rqȱq```` ?L ?L ?L ?L ?L ?L^_L4  \`  ` ȱ8塰` ȱġʊe`  H S hLL hL aL$IQQIQPQ`*۩eL`HH` L L iL`hPhQ PQ`i L ` L͟͞ ȱ`ȱ`ȱІ !l Q\%,`\]hhHH #L\ȥ\ȥ\`LѥLl L Lvu$ # \ WۺyzɃ8L`؅ L PQF ePeQP&Q`$ II &&`Q+Ɂ')0)#&*&Q宍Ӡ宍ݠӠ宠󮍍ϠŠРΠҠǺ䮍ɠ󮠠堢Ӣ䮠Ӡ򮠠Ӎ䍍Ӡ젵󮍍Ӡ     ﬠ󠤲䮩䬠ˠ宍ˠ젭庠嬠箠󮍍ˠ䬠堳Ġ䮠堳Ġ宍묠嬠笠ˠ砢͢䮩笠쮍宠󮠨     ﮠ묠堵󮍍亍Πٍ殠򮍍󺍍譭堸堶嬠ɠɠﮍ𮍍ɠ󮍍殍﫫󮍍宍𮍍殍宍Ġ占Š占Š덠̠占ԠР嬠өР򍠠Π򍠠Ġ󍠠ŠŠ䮍庍Šө􍠠ŠŠҠ󍠠Šɮ箠ݠ婮宠䠠䮠󮍍宍Ӡ嬠РzFb"# X'0 [ȹ'$ LӠӠ  ˮàӠ ̠!ԠӠŠ"ų î֠  ŮʠҠ ̠Ԡ%Ӡ  ҠΠ ӠԠ٠ ŠŠ̠ ӮؠؠӠ 'Ԯʠ  Ӯʠ" Ҡ٠ à6 ̮Π    ˠנӮؠΠٮؠΠ٠ ˠŠŠĠ*" Ӡ ̠Ӡ̠ԮؠîؠӠĠӠ亍ӍӍҮ΍ӍԮٍӮÍ荍宠宠忍议ɠ塢宍宠㮍󮮮溍ᮠ宍塠栳箮᢮쬠箮嬠宮ź䮍Ӡ󮮮䬠򮮮򮮮嬠謠à󍍍뮠󮍍Ƞōﬠɠ讠󮍍议͠ŠР؍[wD wD wDvDvdD9vPDuCuCDuCuCtfCu C|tCtJCstQCUtCtAsAs]ALsAWsKArOAs@r2A_r@*rm@Yr3@r@q>U#5UT5MQ46Rv6iR7R8fQI:Q:QQo;QVR>R=SQ>+S=DS(? T?S@S@PT@UUo@U@V?W?$W>W=Wf0e0:ey1ud1cI1c0pk?aoDoDoDoE(pEoQExpF8pfGyp#HfpH9qdKqtKqJ rJ>sKUtJ]uqG'v^GbvuFv.FvcF,wCFjwE?wEwEt:qtL:^p;lJ:lQTN*qT+?U+1Ur,Ui,V,AV-aV-1W-W-Y,\Y,Y,ZA-[n,[+[+\*D]*[([{'Y&O&O%LS%MG&LKLL.M;MMiMNJNMNHONNBvNNENIM2M-vH'3I37Jz4*JT5IT6O6O5O4hP-)P+-P , P*O*OO*O)OB)aV-AV-V,Ui,1Ur,?U+qT+>TN*SU*YS*R)_R*Qn)P)Pm)P)OK)OB)O)OO*O* P*P ,)P+-hP-O4~P_4MQ4UT5U#5aV-AI&(9E&H0&0H/7.]?.?}.$@.S@w.c@%.%@ .?-@,Ao,AI&LS% M%X7$.8x9r>c??8@ZECDE]L.pLI}HHXG>ECEwC'CA CYBpA?B5BJA@?p?>^>&>p> >f>>v>X7OB)qO(Oa(N(N%'M'QM&M 'M&L&L'L'mL(lJ*J+7J3,I+I ,dI-G.G/G'0G0jH1H1cH2X\XZX1X1XX4WU!X"[|"<[!v\!c]__C_A`q`ctava$#bDba`a0aanaYaWa&a:a&`>5aYa aJa#aG'0'G0r>02>01>2=F3=4=5<6=7<8 =8G&9%Ht8G7,H7H6IT6*JT57Jz4I3vH'3cH2H1jH1G0G'0f{ f f }f fp7fdqddepd;cS b| $b ac \a aC `E Ca ` _m G``_n__%_S_q_HG_i^$ ^);\w[aZTlZZ,XWG5XBX@NWW;WWyVQW:UVUSM TSS}SrSwR RE#a_`__BY1,24_ 7839::W;1d4da2?[ | !j"Q#$@0%U''i'p* ;(R<$Q#j"!|  [?2ad  v F o  | [!_ " /# #K$%8&6&O(8(UA),*>,-$"-`-&.7.S /000q~/1;1101!%RERQRQTiQO8QP!PO9P O9!U!WX41XXZX1\XXYRURRRE`IBBsAlxAA!A$+K3%dK$J#IL#uL#K #Ky"PK "K!KU!-K /K J* JJJ1I JeIoI|I^I,I/I5IXjIuRI.IT[II`IR<b             * (C) 1988 UPTIME AND MIKE MACDONALDP42739,94:42740,166:0:::1002d(13)(4)"BLOAD LIB"(13)(4)"BRUN USA.BOOT.OBJ"cOAD LIB"(13)(4)"BRUN USA.BOOT.OBJ"c 5pi.z*>ZH~\znHv,  4 0 n  T P ^ 01 Jo J{ K* L L lM M "N M* IN1 N N O]LEDb N NL vNb N N gN VN NP `NX N, NP `N M M` fM L L L ^LL |M MO6IT6H6,H7G7%Ht8G&9G9XGo:lF;0F;eDD{>D?lD?BEU@2EAyE=B$FB HB6HBGA$kBnCnBJnAAn?6n =un<D{E UEe E6 {E E F E9 YF> GHl%H^gHPHIIIIJJiJXJJJMMN M sM L 4M LW M; lL 4L cL JK TK gKS @LW Lz hLt L L K K K2 XK J Kt J DK vJ EJ1 J VJ Jb-c./c.|c.>d/Bd0|e,0e0>f05f80"g/dg/fa.2g.gY.g-h-iO-}i.-i,hi-)if,ib,hi5,i+i+i+ix+h+i8+j*i*hk+oh)+#i+ic*&j*j*Rk)Ak)k*k) k)j)dl(a^'Y&k$.jU+j/,j-k$.k;.k-k5.k;.unk>k?k@4pN5566Y758Y8%8~979:;f?;R;4;;.l<_==5>V?M?xAAlBsBB'Ca$CCCEyCCz C@C@O@?<@@O ;(p*$.8X7:4"3 ;(Y&[{'[(D]*{])^=)^)_y)_)_#*`I* a*`+a2-a-Hb-<t< < 2< ; ;, ; ;W g; : : ;@ 9E ^: j: : 3: 9 : 9 U9 9 p9 7:z 9Z /::E:9::%:99X8!75-5o 5 4 )4 *3 1`0-0. N.\. j- ,,|+$(((+('%j4%$$a$R,.Q%4$ => =8<8=7<6=5O9!-K KU!K!PK "Ky"K #uL#IL#LW$RL$L$zL$L$L%L.%LS%O%O&Y&a^'W^&]&]&]%\n%R\%[$Z#Y#Y#X"X"U!O9!@C@A@&A@XU@~@c? ?= >X=8e==e<jv5ka4Jj3i3i2r :q9sqH:xqw9p.9^p;,qR;rq:q:r :f!fH e<NeJeSdcd dyc;cdbZb"bbHbb#bva$ta`cA`q__C_c]v\!<[![|"B]U#j`#o`c#`#a#"a"c,#f!=5[;7:796874-&8-=-@l<_;.;R;4?;;f:9~978Y8%8756Y65N54p4$.Q%.&H0&(9E&AI&A$x9 :nR=A$>>o?AFFWH`HH^gHl%HH> G9 YF E F E6 {Ee E UE{EDZEC8@?c?r>x9i2a&1v_0_d3b^ 7_98_}7iF9ok8go7oo7o8pU8 p7nw6boE7m5-m56l5l6m07\o7ok8Fl5l"6l5Fl5[n,ZA-Y,\Y,Y,W-1W-aV-U#5bX5UXj5X5Y&5YC5Y4Z5Z45\~5\D6b^ 7_d3^*3^j2^f0^/]/!]/\.]%.\-\7.g\5..\-Q\-\,[n,A$A!xA?V?M>=5=l0k0k1Qkz1pj2)j2$ 3P R< ;(.&.Q%,a$R$p*i''U'@0%$ 2 :x9$.8p*0mV7m6l6l&7j7j8i8iF9_}7_98ja9`:`[;b;c;efHf<>>f>f>eY>e>f?ugDAJhA$kBk@k?k>Pl>lQ22>0r>0]?.q=Dq=p6=un<6n =n?JnAAnBnCn/DaoDpk?q>q=)j2Jj3ka4>jv5_j;60j6j7l&7l6l"6Fl5mp5*m3l_4mk3j(k(j(jS(cjn(j@(Rj(i'i(xi(i'Gk (okF';k>'zk('yk'k!(l'+l*'k'kk5&j(&jf&j/&~j&j&Sj'&Xi>& j%j%bj%j~%0j$li=%i$j$jP%j%Ak5%Ik$jM$jv$i#{i5$i#?i#h#$i]#`h"2h! h!gN!f!c,#"a"a#`#o`c#j`#B]U#[|" k)k)Io JeIJ1JJJ* /K -K O9!9P POP!-=?v>>f> >p>&>^>>p??@JA5B?BpAYBA C'CwCCE>EXGH}HI.pL#TJ.I-@-=[|"X"X"Y#Y#Z#[$R\%\n%]%]&]&W^&a^'dl(j)k|(?k)`k(I+7J3,J+lJ*mL(L'L'L&M&M 'QM&M&lM% M%LS%L.%L%L$zL$L$RL$LW$IL#P!OZO+wNHNMGM$MHSHHHIHZI&IqIIoJIII!J-IIIIIWI`IIITRI.jIu5IX/II^I,|IIcD>eD<0F;lF;XGo:G9G&9IL#J#dK$+K3%A$AI&Ao,@,?-%@ .c@%.S@w.$@.?}.]?.r>0'G0G'0G/G.dI-I ,W;vXINa>N>(N>CN?M@Mo@IKA\IAHAJBJBK_CL}DMDNDMDLeCLBKMXCMB}M5CDNCN.BOUBXPBIQBSmCSBTB'UAUjAjToAET@SJARcA_RACQ@P?mP@P@AP@O?O@N*>G&9 =8 =>?<>e + Doe +멚C Ԡd +멟C ꢯd + :Dޠd + ADd + :Dd + ADȠd + G HD z je + XC ` OD Z wʠB   s 3D ` OD Z ٠B   %D Z B   کC ` OD Z B   D * D $C  C   D  cC e + De 碸e +mC Se +Se  D  e  D  rC ͠d +wC ꢨd +|C d + %D  1C /d 1 /d e 1 ,DƠB Ǡe 1C f +멐C Ie + 3De + D {VTC hCLꩁCLeLCLԠdLꩯdLꩤCLꩮCLꢆdL+뢋dL+멐dL BL] udL dLudLL |CLCLDL@C  EC  JC  OC  D M X B YC  D  ^C AIT FOR MENU ...BLOAD USA,A$6CE6BLOAD DX,A$6C76BRUN USA.MAPS.OBJ&<&&~~~~ ?P H( ` hHi0Np`@@BLBB L1BPdOdSd4B4BB  B B LD1,0,8,0,10,0,15,0,5,0,0,32,227,3,32,181,183,96,173,9,64,9,192,170,141,38,64,141,32,64,173,9,64,42,42,42,42,168,173,22,192,141,37,64,32,22,192,96,PR#: USA MAPS :COPYRIGHT 1988MINT SOFTWARE,INCW +a~'3h`"P+aH` :.!]+  m V + TIQn@'u  h 8 F  4 9     } u  ! 3  E D# T " L  t U aGtt&t19OO ))p)%B)6))J)k)))(h )$U4x$)*6K*x*l*,) xpc c  b 0  b1)1) <  * f    ei#+4+#,,!,++D+~+ #+4~qMi#~*E+5++]+~+L+n+**v*+*EJ)Vs)=J)J)V)2*K*))$k)g)O=.5VNVv#DW_@p[u!i  0 [9CR 39C u s\2 C uqu?3qu??C?}x5-w-F-m -,L,5-bjbfe\,D,vM,+,,+$+o+gT+*%D+ *}*?\*)J)8(8)`))((ir((i(i({('''%/&&5%r$$$$""1S"A\"!s!N!!1!:![ 2 t{ Q !s  t ( HrGQ JK;)\J9A$@OTDU7zwj>PqP9 j W  pd"]#6n$%RW%%9%h&kh&''ir(()***v,-nW.;..c--cF-#,Tf,,<U M7F/s8zaY8aP kXG d & xt\ F   L v g N   O F   & G  O bO b(za0Zk tO\a-a2-`+ a*`I*_#*_)_y)^)^=){])D]*,s2"3:4X7v>?-=4-&8,s2 T y q-6a5~&v>SNEs1jUr~DM%.DMoff4[H(BHA\IAIKAMo@M@CN?(N>N>Na>N*>&N =NO>P>;O<=O;N;N-:N8O6D]*\*[+[+[n,\,Q\-.\-g\5.\7.\-]%.\.!]/]/^/^f0^j2^*3_d3v_0a&1a/b0b0d/|c./c.c.b-Hb-0x`@aC`` ~ACqgt@G@@p@p`w@ fs0@ao`||||||||||||||||||||||||||||||||||||||||||||||||||||||||xL|z08`0|x@c CAA0F 8B;l`C lF9Na@@ 0ppmVx p` ~@0`0 p|?B@0~ By?@@A ACqc4@p``0@~?0v@ <~  0`0 O`BAf # D Dud f # DL_ rE\f f #좮e + rEe  yEe +L_ E ` E  E . hD   E  ZD . HE B   E . DԠd  E K EC  E  EC  E  Dd  E K EC  E  EC  E  @ h ,E D DLJ[B  ,E]B  3EL.J uLzI XL_ hD :E_B  AE I E  ZD  HE lB   E rB   LzI D :EB  AE I D  ZD  E  ZD  HE B   E B   LzI OE VELJ OE ]E dEd LJ dE kE Dd I D Dd ꩹d }D D DL'I D DL_C  ZD  D  ZD  E  ZD  L_ f W hD EL4J D ELyJ E  5B   LJB (e gLI uLzI *I GKB   E  E QB   wTB   sVB   G %E DLH D D HL7H ZD\f L'H IHL7H H ZD DLG QL D D D DL_Ie z D Dpd LIH D D D Dpd LH D D D oD  ZD  L_ ZD D DԠd }D D DLH aD DԠd ޠd }D D DLH D D Dd }D D DLeL1XeL+fLLCLKdLXeLCL꩟eL eL+멟eLeL+CLKdL"fL\fLKdL'fLFdL1FdL.#DLLXI Xe  ZD  aD ` hD Z L_ oD  ZD  ZDje LG IHL_ GL_ ZDoe LG BK L hD vD }D D vD 1dLafLKdL.eL碕eL+멕eLudLꢟeL+L1eLꩆdL;fLkL 'fL+멪kLPKdL$'fLꩆdL#eL+ eL+멺CLĠCLɠCLꩽeL eLΠCLꩆdL #eLKdLӠCL;fLgݠCLCLCLCL;fL(SeL꩸eLeLCL(eLsLpdL;fL1;fLyfL+sL1eLCLudLudL+멒CLꢆdL+dL\fL穗CLǠeLjeL\fL+멮eL꩚eLoeL+뢗dL+뢜dL+L eL+fLeLꢋdL+뢐dL+멆dLafLhKdL p` 7*h777777@^XLCLQCLVCLfL\fLKdL+[CLKdL`CLpdL+pdLޠdLԠdL+멹dLꢯdL+eCLpdLjCLoCLtCLKdLyCL~CLILES0 *D.NEW FILENAME=DRIVE (1/2) 112ERROR () - PRESS RETURN(P@ 0~ ?0/? @~pX @BLBB L1BPdOdkd4B4BB  B B LGBRUN USA.MAPS.OBJ,D1FILE: (Y/N) YYSAVE PICTUREBSAVE,A$2000,L$1FFBLOAD PICTUREBLOAD,A8192IN# IN#0NEW FILEPLEASE WAIT ... 0 *0 * TOTAL NO F       FF  UG  LO `| A1 l||c @1`0`?`0`cAd` 0@|x|``pF!0 >_`g]6O|p0p|sDUbfM?g|k+i`r|UUH,utwU*goY/c~/hJ'+ib *qxq9Rg~}xwO**9+:?==?55??`*U vaggOWVQT%yeTTU sssyyy|{gxUUrk]*wA`|U*<|>?s~+/wU>s?**@ mU???;?? *U     C   FUD  ZD  LXI FL7W F ` hD Z C   F /F Fae +KD F RL_ KF FL_ *I G E  کC   w&C   s(C   G %E  ,E D DLW-C  ,E/C  3E }D1C  3E cGL,W G  KF   L_PD z @G X D ` 3C  e .; xG E F ELVV E! F 6F D  C yLVV E! E EC  F hDe E Fd L_D  G z  (D  ZD  -D  2D  7D  ZD  NLN X D ` D Z B   zT E F !F E De f # F hDe LgML_ !F yE D hD ]E (F kE !F E /F E! F 6F =F! F [LM hDud ]E %E VELCMLvM M hD DFLML|M E! F ,E E! E E =F! F F =F!D E hD EC Ed  5 EL_ E ` B  f ud d \f JL_ E ` HE B   E  E . ZD   E  ZD . ZD EL_ @W 󩵠C "f + ZD E M hD ELMB af 1 E kE ZD E hD E 5 hD E! E E * *~|^p^@ *}}}{{ }}{{}}}*UwwwccaUs3DUUPSTUasssyyy U~' U *Bay}* . *2r2 *yyyggfB *0qdN???*U{}|>>UU O Uyy U@6>>U*+CAUU;;|C```d`U&vn~ oj~^U*(+***+(**(++*+ *UUUU!UeaU*rxx||>~|`*cc*Kf *qCs sCyaI`|*UPSD@ax@U00UqXq UG _gars99U*>C@**GLG * *Fp_]wC 'jJ$/+ j**{{?Ybg~}{wcO*;=0=.;.? *U|wvcfWWUTUUuySTUUsss!y9xUwcH{Gp@}|*U*C;|x|rrz..*j~~**\TL<>>*nb!U*Uwlo^3Dtux;w wW{*Ul^\\]xUULIIx383x@UWc~~ ~~*U*n]]_'**yy9CA>>>A@|/+Uu?|@*mmD???78/*UZ]?0F8ppxETUU__fM?Nfc+o``U] v0wAw U*???*U{|~>?UUULN U|y| U@@>>>U*(+CAa`ppxx**KK*aa * + *ssp~~~*UUUYyUd` UMOMU*/ /(**x1* 00 *???``???70__?``?*US_>>UUUWO?@UUss{U@yA UC<< U@Gb`nhn`>2U*x| BB``**gcc* 82 *ggsfg *gGq `|~03*U>__OOWWTUUCU U<`<|y|y Uccqx ggsf`s@U*? @**222**J *9c?asss-*Uy|||~>?LOW ASCII CODE CHARACTERS SPACE (32) TO ~ (126)Q`(KEY$)31(KEY$)127ī1350j(KEY$)11ĢCOUNTCOUNT2:4:L$(COUNT);:Z(L$(COUNT))1:1030t 27 IS ASCII FOR ESC~(KEY$)27İ2780:770 CHECK FOR DEL OR L. ARROW-((KEY$)127UNTNLCOUNT1(W$(COUNT)"N"NUMNCB$W$(COUNT)"Y"NUMWC.(KEY$)10ĢCOUNTCOUNT2:4:L$(COUNT);:Z(L$(COUNT))1:10308(KEY$)11COUNTCOUNT1:COUNT0COUNTNLB 13 IS ASCII FOR RETURNL(KEY$)13KEY$(10):1040/V AL*"ab nderline ide";*410::6>I1NL<HORI;".L";L$(I);U\`fII3wp18:"B = ";B$(I);z24:"T = ";T$(I);30:"U = ";U$(I);36:"W = ";W$(I);:19:1PN$;19:20"Number of lines= ";N:PN$"Printer: Apple"GKEY$"3"KEY$"4"İ3170:PN$"Printer: Epson"rKEY$"5"İ3260:PN$"Printer: Okidata"EB$"0"Č865:700 ***** SET UP EDIT SCREEN ***** 10: 22:1"Control: oldface elete

rint" 10:23v"2) Apple Dot Matrix"/"3) Epson LX-80"E"4) Epson FX-80"W"5) Okidata""6) Custom Printer (Not Installed)":"Enter choice (1-6): ";16368,0: CLEAR KEYBOARD2730(KEY$)27İ2780:590KEY$"1"KEY$"2"İ3080C36:WC18)KEY$"6"NL7:NC42:WC21D&(KEY$EZ_Z_PXR[_XhfXjH+)$$HP^]H!;H%$H+)$$H.':H;'=&,H:'=I*|||*UPWTUUWPTUPWTU`* O**9+;{W ww*Uq^^\\]+*/UI Ls33s@@@UUk]*~~ ~~U*a]]x*p9I<>>?s~+/wU>s?**@ mU???;?? *USC TO QUIT PRINTING#$d P(16384)4$n P128ī2690f$x (P128)(27)COUNTNL:JJJ:16368,0:2700l$ }$ DOS$;"PR#0"$ 270:770$ ***** GET KEY ROUTINE ***** $ 768: CALL TO ML INPUT ROUTINE POKED IN ABOVE% ZERO PAGE LOCATION 250 OUNT)"N"ī25900# NUMNC:W$(COUNT)"Y"NUMWC[# NUMWCĺ(NUM((L$(COUNT)))));:2590z# (NUM((L$(COUNT))))2);# B$(COUNT)"Y"ĺBB$;#( U$(COUNT)"Y"ĺUB$;#2 W$(COUNT)"Y"ĺWB$;#< L$(COUNT)#F BE$;UE$;WE$;:#P $Z CHECK FOR Es Return To Print. ";#" 16368,0>" 2730:(KEY$)27ī770U" (KEY$)13ī2450`" 13:8" "Printing The Current Label!";" 16368,0" DOS$;"PR#1"" PN$"Printer: Epson"ĺ(9)"80N"" EB$;: ELITE" JJ1J" COUNT1NL# T$(CL$"":865:2280/! (KEY$)13J(LL$):2400Y!$ ((KEY$)48)((KEY$)57)Č865:2280e!. LLLL1u!8 LL4ī2380!B 865:LLLL1:2280!L KEY$;:LL$LL$KEY$!V 2280!` 12:6:J1ī770!j " Turn On Your Printer! ";!t 13:7"~ " Presof labels"; 13:123 "To Printed (1-99): ";A 16368,0K 2730` (KEY$)27ī770 ((KEY$)127(KEY$)8)LL1ĺ(8);:" ";:(8);:LL1LLLL1  ((KEY$)127(KEY$)8)LL1LL$(LL$,LL1):2280! ((KEY$)127(KEY$)8)LL1L2:4:L$(COUNT);:Z1\:f ***** PRINT LABEL ***** Dp10:[z PRINT DIALOG BOXv2:9:QQ138:"_";:2:15:QQ138:"_";:QQ16:1:9QQ:"|";:QQ16:40:9QQ:"|";:LL1:LL$""12:8 "Enter the number URN:";::" ";16368,0& 2730C(KEY$)27Ģ18:1:868u (KEY$)27Ģ1:27:" ESC: To Quit";:V:H:*(KEY$)13ī2060418:1:868>1:27:" ESC: To Quit";HL$(COUNT)"":COUNTCOUNT2:4:I142:" ";:RCOUNTCOUNTL$(COUNT)(L$(COUNT),WC):Z(L$(COUNT))1:COUNTCOUNT2:4:I142:" ";:nCOUNTCOUNT2:4:L$(COUNT);t ***** DELETE A LINE ***** H(36)1:V(37)1:865:1:27:"ESC: TO CANCEL";18:1"DELETE THIS LINE? PRESS RETX(KEY$)13ī1850)b18:1:868Gl1:27:" ESC: To Quit";^vCOUNTCOUNT3:40W$(COUNT)"N"W$(COUNT)"Y":NUMWC:1940W$(COUNT)"Y"W$(COUNT)"N":NUMNC:W$(COUNT);:1:27" ESC: To Quit";L(L$(COUNT))WC10!(L$(COUNT))(WC1)ī1910*86551:27;R"ESC: TO CANCEL";]18:1|"LINE MUST BE REDUCED! ";&"PRESS RETURN:";::" ";016368,0:2730D(KEY$)27Ģ18:1:868N(KEY$)27Ģ1:27:" ESC: To Quit";:V:H:**** UNDERLINE ***** -hH(36)1:V(37)13rJ|COUNTCOUNT3:34qU$(COUNT)"N"U$(COUNT)"Y":1690U$(COUNT)"Y"U$(COUNT)"N"U$(COUNT);V:H ***** WIDE ***** H(36)1:V(37)1W$(COUNT)"Y"ī19'V:H: RETURN TO ORIGINAL POSITION-3T ***** CENTER TEXT? ***** lH(36)1:V(37)1rCOUNTCOUNT3:28"T$(COUNT)"N"T$(COUNT)"Y":1590,T$(COUNT)"Y"T$(COUNT)"N"6T$(COUNT);@V:HJT^ *65:ZZ1:1030#n ECHO TO SCREEN.xKEY$;KL$(COUNT)L$(COUNT)KEY$U1030r ***** BOLDFACE ***** H(36)1:V(37)1COUNTCOUNT3:22B$(COUNT)"N"B$(COUNT)"Y":1490B$(COUNT)"Y"B$(COUNT)"N"B$(COUNT);İ1640:1030: CHECK FOR CONTROL-W FOR WIDE CHARACTERSV(KEY$)23İ1740:1030( CHECK FOR CONTROL-P TO PRINT LABEL2(KEY$)16ī2160<865:1030FZZ1P NC IS NUMBER OF CHARACTERS ALLOWED FOR THIS LABELZZNUM2ī1400d8CHECK FOR CONTROL-D FOR DELETE LINE>(KEY$)4İ2000:1030e CHECK FOR CONTROL-B FOR BOLDFACE(KEY$)2İ1440:1030 CHECK FOR CONTROL-T FOR CENTER LINE(KEY$)20İ1540:1030 CHECK FOR CONTROL-U FOR UNDERLINE  (KEY$)21(KEY$)8)Z1ĺ(8);:" ";:(8);:Z1ZZ1V CHECK DEL.; AND L$(COUNT) <> NULL((KEY$)127(KEY$)8)Z1L$(COUNT)(L$(COUNT),Z1):1030 CHECK FOR DEL BUT NO CHAR ENTERED((KEY$)127(KEY$)8)Z1L$(COUNT)"":865:1030# @  WIDE END+ IME<42739,0:42740,166:0:::1002g(1101)6ĺ(13)(4)"BRUN LC.CONV"P 40 C#LUMN VERSIONZ ***** INTIALIZE ***** dDOS$(13)(4)iDOS$"BSAVE PAGE3,A$300,L$D0"n(12);(21)x::255 POKE IN END * &* ***** OKIDATA BBBBBbh-Bd-*L@ZPARH-$!<-H@YZH+8!AhBd=*L@Z_AJ+JR=&,-:$!&E BEGIN* UE$(27)"D": UNDERLINE END* BB$(27)"T": BOLDFACE BEGIN* BE$(27)"I": BOLDFACE END* WB$(31): WI(E BEGIN (6 CPI) + WE$(30):LX-80 ***** /)b EB$(27)"M": ELITE (12 CPI)T)l UB$(27)"-1": UNDERLINE BEGINw)v UE$(27)"-0": UNDERLINE END) BB$(27)"G": BOLDFACE BEGIN) BE$(27)"H": BOLDFACE END) WB$(27)"W1": WIDE BEGIN (6 CPI)* WE$(27)"W0": WIDEELITE (12 CPI)4( UB$(27)(88): UNDERLINE BEGINX( UE$(27)(89): UNDERLINE END}(& BB$(27)(33): BOLDFACE BEGIN(0 BE$(27)(34): BOLDFACE END(: WB$(14): WIDE BEGIN (6 CPI)(D WE$(15): WIDE END(N )X ***** EPSON FX-80 AND +'h KEY$"N"KEY$"n"ī230: START OVER:'r 865:2890[' ***** QUIT ROUTINE ***** n' :::(21):' DOS$"BLOAD PAGE3":768' ***** PRINTER CODES ***** ' ***** IMAGEWRITER I AND II AND APPLE DOT MATRIX ***** ( EB$(27)(69)::"|";:3&" 12:3:"Press to continue.";c&, 13:3:"Press to create a new label.";&6 14:3:"Press to quit Label It!";&@ 16368,0&J 2730: GET KEY ROUTINE&T KEY$"Q"KEY$"q"ī3000'^ (KEY$)13Ė27:1:" ESC: To Quit";:IS USED BY ML ROUTINE(% KEY$((250)).% O% ***** CHECK QUIT? ***** u% 1:27:868: REMOVE ESC DIALOG% 10:% PRINT DIALOG BOX% 2:9:QQ138:"_";:% 2:15:QQ138:"_";:% QQ16:1:9QQ:"|";:& QQ16:40:9QQ&@ (C) 1988 UPTIME AND CRAIG ROTHK@42739,0:42740,166:0:::1002m@(4)"BSAVE PAGE3,A$300,L$D0"x@Z(1)@ C(X)(X((X1)13)13)(X):O(X)X24(X2)@60@3613,(X1)31:3614,(Y1)31:@(0,C52(C27C)(X2(X2))          䤥夭奤čӍҍ͡ČԌ،L/LLLXLLLvLL  *****ee `i)J mM ȱM iiޭ`((((PPPP 00>3>3333300>333>3633>03333 00003333 ?[[[[333333333>33>003063333>333 mmmm~3 3333>0? ? 8( ?3??33?33??33??333????????;3?333??33?? ??3;;3??cwkcccc337?;33?333??3??##+.?3?;3?0??? 33333?33333 ccckkwc33 33333 ?? ??8p` ?66$6???? ??0? '<:9 *.  88888*>* ??  >>`p833333<630000?38???0>0?8<63?00??0?33??0 ?33??3>0> p88p>>>>8?3 x 67LɠQH)<=H8< <<<&=<&=e<<e==(e$>)i?<>>i>?i?hhL  "% ` ¡¡¡¡E0L::"Keep trying!"DL:"Hiw#b#hfz9|!9B'9B'+14*10000NL1950lL:"A new high":"score!"L"Enter initials":"";L1570LX101550LY10X11LH%(Y)H%(Y1):H$(Y)H$(Y1)LLH%(X)S:H$(X)B$L1950M"B$":BB%(X,Y):B((B1)13)1K(DDT%(XX,YY,0):1180QK2((B%(XX,YY)1)13)BZ1mK<AA1:T%(XX,YY,0)1320KFA2SSAA(2Z)KP7:8:SKZ:KdED13SS3KnED26SS2Kx7:8:SKX1:E1KSH%(X)1480KXX1:X111420LϞHu~ul*M@0D1AQPXh!l&Xh!l,,Y\RYY_X:EĭB%(XX,YY)NN1ItI~N0ĺ"":980I JDI@p`5JrHJʳBHYpi54r(B1p"5>r$UX(\)\X#AYY(BJ44(BJAAG@J$UX((\))\X#AYY?XXYEX7qEbX2620,630,640,650El21X7,24Y1621X7,24Y24:21X5/17Z2512[5/24Y24:660Ev21X,24Y821X7,24Y8:21X,24Y721X7,24Y584424D03A0N1DC%(A)1ĺ"U";-DC%(A)2ĺ"R";@DC%(A)3ĺ"D";SDC%(A)4ĺ"L";]D",";dDAoD(8);xD")"DA$:A$(27)10000DA$"U"A1DA$"R"A2DA$"D"A3DA$"L"A4DE1:B0N1:C%(B)(A)E0D&E0E1C:30:40CS1+CN0:A03:C%(A)9:6C"A14EC,DDA:1170PC6E360pC@C(B%(XX,YY))C(C)S360CJC(C)1S1360CTT%(XX,YY,(S1))360C^C%(N)A:NN1ChACrN0660C|N1AC%(0):580C8:"Choose:";(127):"(";D򠱰󮍍ᠢ嬢󮍍栱𮍍、ȜȜȽȻȼțȇŀȉȌȉ䠫ҠˠӠĠǠӍĠ򮍍䬠     !!! ! ! ! ! ! 1,(1):(16384)127ı.Z< ZZ1:Z1026108ZF 2570RZP :Z14:240):::Z'::104,8:103,1:2048,0:(13)(4)"BLOAD PAGE3":768Z13)(X):O(X)X24(X2)@60@3613,(X1)31:3614,(Y1)31:@(0,C52(C27C)(X2(X2)) multiplied by 3 or 2,"|Y "respectively, to make the scores cmpetitive with the scores from a full 52 card game."Y :"Enjoy!"Y 20Y 2560:2640:A$:Y 13:"Hit a key ...";Y (127);(8);Y Z1360:Y " ";(8);Y( Z1Z25 cards = 25 points"/X "6 cards = 36 points"QX "n cards = n squared points"X "This number of points is doubled if the straighh E>Uz$aJ_H  HHPODHacomputer will prompt you as to which connection you wish to make (left, right, up, or down)."; WV "Aces count as low cards and cannot be connected wia straight with the card you place, aline will be drawn conn HZVt!L}V2T XTT TTTAT TTTBXTTTTTZTT=TTTBTTH   HH  Jh,>*aJ]DH H  H H&'10000SR:"New set of cards? (Y/N)"RY18:X18:B%(X,Y)0:T%(X,Y,0)0:T%(X,Y,1)0::RA$:A$(27)10000RA$"n"A$"N"150R700R32,25:33,14:R180R2640 S"Welcome to To"Toothpick High ScoresQ)QX110LQ13:X10)X". "H$(X)" "H%(X)RQ`QE02190Q"OPENTOOTHPICK.HSC":"WRITETOOTHPICK.HSC"Q X110:H$(X):H%(X)Q:"CLOSE"Q :"Do you wish to play again? (Y/N)"R*A$:A$"Y"A$"y"21(۩%s ߐHJ[HJ[![M/# /ѭ-/Ѧ4//2//cҊ//4W//tү ,9, J7:,@ 9@؆  ( &@ج ,,, 7, ,F'( 4d0 ˥opooȥoȥTPɛLH hг {$0 {$䥃h)ݥXRR {$ {$0 R \M W \LA7ݩ  = {ڥ$0 \L٠ޙ \M W l݅%ڥ${٤M \ۈM \ۈۅLȱȱߥۅMM܅Lڅ% [٬{$ޙ \ \ۈڅ% [٬{$ ,Ɉ>ɕBɍRɉNɟSM)LL \Šd0 'MLݽ \К衍մ䠺宍󮍍РŠӺ쮍󠫫報򠸍ԠŠӺ쿠!!!!䮍򮬠ԠȼȆȁȉȌȁȆ宍󮢍嬠󮠠쮠嬠ծӮ䬠󮍍䬢󭭱孭=F`\QD[X]WQCQFQZ[@]R]QP99}@CUGZ@^AG@UXQUPxԮӠᬠȜlᮠᮍ䬠ϠŠӠŮ󮠠󠤲讠ﺍŠЮϮɠ󠤲讠ﺍŠЮϮɠϠŠӠŮ󠭠󺍍蠠󠭠󠭠砨󮠠Š堨詮庍£ԍﮍЮϮˠ蠶򠭠Ԡͩ󡠠宠àǬӠ٬ŬˠŠ婮󠤱䮠󮍍Ԡ䮠ŠԠӮӮŮﺍǠ̠ЍﬠΠӠ󩮍庠ҠĠƠ٬ŬŠԬ㮠ֱˠﺍӠãōîϮĮ캠䠤Š΍Ǡ" """""""""_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ`;IGHTS RESERVED P This program contains embedded machine code: GET and FIXED LENGTH INPUT (FLI) are from the TOOLBOX SERIES by Roger  $0 LȘ$0eݰܥ8܅{ $${  =ۤۄ$ ݅`(RANDOMRND FIX.TB , #`^_:ʽe^^e__l^" ަư8^_氠^LQ^P^i^p$P  F `cTEXTTEXT OUTPUT.TBȄ { 夡qrڅۥ!  ,! Lʆ , L ʆ ;L $0${e0D$0"{&$8{$8$"