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".砭􍱠䮍Ԡ㩠堦Р䮍󠭠Ϡ堭Ϡɠɩؠة砭ӍϠؠ󠭠Į®ϠРɠ宠ᬠ宠衍亍堭Ӡ󍵲堲ō򠱶ﮠɠ䮠Ӡ謠Ӡ͠䠴󮠠͠ؠؠ䠱样󮠠ؠ宠򠱠Ӡ͠䬠砱͠ᠱ򠤲͠宠͠͠͠䬠͠٠à󮠠󮠠͢報蠱͠󮠠嬠ɠ򮍍栴ɠ󮠠ɠɠ嬠򮠠ӠӠ宠䠤򠤲᩠ﺍ卲宍ﬠ䡍庠Πخ砵󺍍Ӡ堳Ԡ䮠Ӡ堵󮍍砳󺍍󺍍󺍍Ġ뮠ݭݠݩ󠱳򮠠̠Ӡ뮍ՠԠĠ̠ŠĮҠ報ԍ堲Ӡ堳︰ź  Ԡ󿠢ΤĤŢΤ̤¢čԠҠӠĠ̠ŠŠˠΠŠŠϠŠĠĠŠ͠ݮԠؤԠΤҺŠŠĤĢΤĤΠˢ  ݢԠؤݭݠݩ纍ŠЍĤҤź宍󮮮󮠠򮍍宠ɫР嬠٠Š宩嬠ݭݠ纍נݍŠŠȠˠ˩ԠϠ報嬠ݭݬ堢ң󮍍Ӡ뺍묠ݩɮ庍캍묠危宍ɠɠ򍍨뮠嬠䬠     󮍍РɠӬſ堨ͩ宠嬠󮍍쮠ɠ󮍍РɠϿ䮠ԍԠϠŠŠΠՍԠϠԠÍŠӠϠԬΠήɫ̭ʠ̭ˠԍŠ򺍍Ġՠź΍Π΍΍Ԡ嬠箍Ǡ˫é׮䍍          뮍亍̠ԍ宍̭נ̭Ԡ쮍̭Ġź̭נ宍宍宍̭ 宍̭ՠ䮠묠䡍ź䮍뮠󮠠忠ɠ󮠠宍󮠠報ؠ᫫󮍍     󮠠򮍍嬠ɠ򮍍ӠԠŠŮ宠ﮠנ٠ӠĠՠſ宠򮍍宠宍嬠ԠԮ笠嬠宍РɠǠŠԍά󮠠堨穮Š䬠̠ΠŠŠԮﮠ٠䮍נ٠ӠĠՠŠƠӠſ笠䬠Ϣ笠箠ӠӢź䠢î䠢嬠殍嬠Š𤋮àà䮠蠢ήӡﬠ󮢩󺠢嬠宠󠨢󢩠󠨢宠蠧򮢩󮢍墠宠嬠ᠨ婬䠨婠栨詮報謠򮍍客堢嬢󮠠묠򮠠㮠󮍍宍殠栢󮍍󮠠堢堲塢蠢嬢͠󠨤ᬠ堢墠٠Ӡō硠塠   Π嬠ɬ㮍亍ÍŠͩݩӠӠ묠嬠㮍󺍍ҠҠ㮍Р֠Ǡ΍堳򮍍ȠԮ栭嬠ɠ󮍍ɠ ߬ߠߍ堣ߍﺍЮϮɠ۠ݠߍ󠠠۠ݠߍ砠۠ݠߍߍߍߍ砍󠠠۠ݠߍ젠۠ݠߍ堍䠠۠ݠߍ󠠠ݠߍ۠ݠߍ󠠠۠ݠߍ㠠۠ݠߍ򠠠۠ݠߍ۠ݠߍ۠ݠߍ䠠۠ɠ報퍱Ң䮍砠󠠠۠ݠ      宬墠͠宠íǠ堤󮮮Ӡ堳讠󬠲ﮢɬᬠԠӠ䮠嬠󬠢󮠠󮍍묠ź뢠젨宠堢墠㮍筭欠󮍍堢墠󡢍󮠠亠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 {VTCLhCLꩁ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-G  G G G L&M G G G G f G G G LHM G G G G  GLnS H H 멻E \G H HLqM H \G H * UG $ +G 'H  .H +G 'H  5H 5Hd G +G G G 5Hd  IEMC* *IN#IN#0WAIT FOR MENU ...USE CHOOSE FIRST -MBRUN USA.PICTURE.OBJ,D1ERROR ()X@(@S`UD? 071012131517181920212228293233363743444647010210121416212223262734394146MAP LOCATE WITH ARROW KEYS OR MOUSEPLACE ZALL SIZE(UP/DOWN) SPEED=AKHIUSA-48USA-50NSEWPMCE <-UP LIST->DOWN YLAMAMDMEMIMNMOMSMTNCNDNENHNJNMNVNYOHOKORPARISCSDTNTXUTVAVTWAWIWVWY01020809162325384004313545030511243042480304051114242627303134353941424548060708091315171819202528293233363738404344470102060708091012131516171819202122232528293233363738404344464706B LBB L1BPdOdkd4B4BB  B B LJ-SERASE TO BLACK? (Y/N) YDMUSA:CHOOSE (SELECT STATES) MAP (SIZE,LOCATE,PLACE MAP) ZALL LOAD ERASE SAVE QUITQECMDLSZPRESS ANY KEY TO CONTINUEALARAZCACOCTDEFLGAIAIDILINKSK           d + DXd +]d  5 D  D VDC ]D dD 5 yD D DC z e + yD D DC z d +D e *d +D d *d LH HD  yD  D VD DL_ Dud + Dzd +d  5 D Dd + Dd +멡d  5 D Ddd + Did +nd  5 D DSC  ǠC  D VD̠C ]D dD 5 kD rD yDѠC  D  D֠C VD۠C ]D dD 5 kD rD yD  D  DC VDC ]D dD 5 kD rD yD  D  D ,D  C   ,D C   کC ܠl ' ,D .C   HD  D ] IJ 2G Hd f # H Hud f # HL_ PJ\f f #좮e + PJe \f 碚e +L_ +G ` WJ  ^J . +G   WJ  UG . eJ UE   ^J . HԠd  lJ '] ^JΠF  sJ  ^JӠF  zJ  Hd  lJ '] ^JؠF  sJ  ^J4J 5 Hud s   iI '\ GG J iIL\ I I ;JL:\L_ \ I ` H J Z QE  G +G ;JLm\SE  G s F  I I Ie IL_ I I ?I IL\ ?I I IL\ I I ?I IL\ bI I J IL\ ?I IL_ BJ HL\ BJ \G IJd LIL[  &JL[F IL/[  &JL[F ILM[=  &JL[F ILk[ؠ  &JL[F IL[  &JL[F IL[6  &JL[F IL[Ѡ  &JL[ pI IL[l  &JL[ I J +G \Gs   -J H I IL/Z I I I +G I I ` H J Z ME  LAX I ILHZ UG I Z I I JLZ I I I UG I I ` H J Z OE  LAXF ILZ I J +G iI J wI ~I 5 '\ GG J iIL\F ILZ I J +G iI I wI ~I 5 '\ GG J iIL\F Y ^ _IE  tHLOKE  {HLIY +G 2G pI 9G @G 5 FI I I UG I GGLU LAX pI IL/X +Gd iI +G,f I ?I ILY +G I \LAX +G ILY ?I I I I pI iILAX +Gd iI +G I I +G,f LY ?I ILY I ILY +G I Z I d Z 1E   +G iI pI wI ~I 5 I I I :\ GG I I +G I +G iI I ` I Z w?E   s K xG G  G I ` I Z BE   G  {H G $G  {H HLOY~F  {H GF  {H HLYEE  {HLYGE  {HL2ZE  {HL٠D   bI ` oF 2G FI Z wD   FI Z wD   sD   FI Z wD   sD   FI Z wE   sE   FI Z wE   sE   FI Z wE   s E   FI Z w)E   HG +G G G H MI TI  GG +G ` eF 2G FI Z D   FI Z D   FI Z D   FI Z D   FI Z D   FI Z D   FI Z D   FI Z D   FI Z D   FI Z ȠD   FI Z ѠD   FI Z H I IL_ 'H #I H *I 'Hd L/U H #I 'H *I .H 1I 5H 8I .HȠd LXU 5H 1I .H 8IL_٠d Hd Id Hd IL_ X +G 2G ?I 9G @G 5 FI ` G Z Hd  G +G G G H MI TI  GG +G 2G ?I 9G @G 5 FI ` `F Z ?I [I >?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 U~U*Sqyc@|~`_?G~**..~D;;F*+'++''a1*Uw` * JOggssLa1:"(+UU{{ ;7?#]]cUxxxU( U*{Y4QT}pGO`??sdNE@Z{**~ wqo]]* jJjJjJU~O?#*U|x2"+?a`ppxx*CC*?e? *( +( *3sv~~|*UUYUDDF UOOL U*/(/ (* L2* *???__???3?``?__???*USUT UPQTUW$U@QQ_Q_QQ_Q_QQ_Q_QQ_Q_QQ_Q_PU* *** *** *U~~^~~~~>~~>>~UU~~^>>~* *~|^p^@ *}}}{{ }}{{}}}*UwwwccaUs3DUUPSTUasssyyy U~' U *Bay}* . *2r2 *yyyggfB *0qdN???*U{}|>>UU O Uyy U@6>>U*+CA@`*hf*"?0 *0gpggffC *G#q `|~~83*U>>__OOWPTUNLU~^~ Ullyy|s Ucqxx ggssfdqs@U*? @*r2* J *y9ssa,*Uyx||~>?UqdUCG Usr989 U xxxxxxxxxxU*KAa`ppxx|*gssbc*Uy||~~_OPUUdeU U ~>~ Uq>82H2ssy|1U* **Bpx*  *KK~ *gg\`|x *8 ssyOff*UTO>?UTSG_P@UUYX U <r9U*z|BUU;;|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*e]So@@*UaJ:j? pf3",p~UW ~VVUU~|'8J_r}~?U*owyy|||~NHf|~{*kkkkkkkkk5O5**|~|~*UWPTUPWTUUWPTU`*UUUUU*??osC**+ogggggO*0U U*5]Uq`OGp??sa`VeA_?*o wvwU]**xJjJjJjJUq_q*Up:2"y||~aqgf2zU_ *[X[UU@`G`r****`~ U*WPE-ONOgy9DUA*/|w? u@kko**G8xEUU_PS UST'U_Q_QQ_Q_QQ_Q_QQ_Q_QQ_Q_QQ@PU* *** *** *U~>~~>~~n~U~~^~^~^~^~^~^~^~^~^~.>>~~UU~U*>O_yqG``x~WWO{*.~~~~~~~~9;;**+''+#'/?A1*Uoxj "OggssLdq*".!gUw{ ;]]UUxx???*U{|~>?UUULN U|y| U@@>>>U*(+CAa`ppxx**KK*aa * + *ssp~~~*UUUYyUd` UMOMU*/ /(**x1* 00 *???``???70__?``?*UUUDaU UrG~999 UyxxxxxxxxxU*KAa`ppxx|**|&|* @ *\|~@rvN *}}}} {{}}*UwwscaaUU1s1UUUSQ Ussapyy9 U/U*Jaqy?**L/,*r2 *Yxypgf *qd@S_>>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|||~>?PU4?4U UG_c`s9U*>B*~>~*LL * *Fc gss*Uyx||~~O@PUUdddU U~>~ Ux<IIsqx'U* @*"`p|***KC *gggC@||| *x syOf*Urr/$Jq~~*~ XTL<>|x*occ*C<" *q1c c9A@|*USD@ap@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 ALL; 20:1A"No. of characters: NORMAL= ";NC;" WIDE= ";WC;a ***** ENTER LABEL ***** qZ1:COUNT1NUMNC: SET NUM OF CHARACTERS4:COUNTCOUNT2:L$(COUNT);:Z(L$(COUNT))12730: GET KEY$(KEY$)10COUNTCOUNT1:CO*"ab nderline ide";*410::6>I1NL<HORI;". ";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$)27İ2780:370p0 CALL 865 IS ML CALL FOR SOUND ROUTINE:NL0Č865:480D ***** PRINTER ***** N10:XEB$"0"b:"Enter the printer to be used.":l"1) Imagewriter I and II"3.0" "6) 1.5 X 3.5"+ NL0:NC0:WC0J :"Enter choice (1-6): ";X 16368,0o 2730: GET KEY$ KEY$"1"NL5:NC30:WC15 KEY$"2"NL5:NC36:WC18 KEY$"3"NL5:NC42:WC21 KEY$"4"NL7:NC30:WC15 KEY$"5"NL7:N To Quit";* J SET TOP AND BOTTOM SCREEN; T34,3:35,20A ^k h ***** SET UP SIZE OF LABEL ***** u r10: |:"Enter size of label to be used.": "1) 1.0 X 2.5" "2) 1.0 X 3.0" "3) 1.0 X 3.5" "4) 1.5 X 2.5" "5) 1.5 X 2,255,208,243,963 L$(7),B$(7),T$(7),U$(7),W$(7)q I17:L$(I)"":B$(I)"N":U$(I)"N":W$(I)"N":T$(I)"Y": 270:370  ***** SET UP SCREEN ***** : 16 ""Label It!" ,I039:"_";: 621:I039:"_";: @1:29:"ESC:49Q 32,237,253,32,16,252,76,12,3,41,127,133,250,169,223,32,237,253,32,16,252 169,50,32,168,252,169,160,32,237,253,32,16,252,96 141,48,192,160,0,141,48,192,200,169,5,32,168,252,192,255,208,243 160,0,141,48,192,200,169,10,32,168,252,19INPUT ROUTINE AND CUSTOM BELL6 J768890:I:J,I:m 169,223,133,249,32,237,253,32,16,252,160,1,173,0 192,16,10,141,16,192,201,131,240,3,76,63,3,192,0,240,3,76,51,3 165,249,201,160,240,7,169,160,133,249,76,51,3,169,223,133,249,200,165,2# (C) 1988 UPTIME<42739,0:42740,166:0:::1002g(1101)6ĺ(13)(4)"BRUN LC.CONV"P 40 COLUMN VERSIONZ ***** INTIALIZE ***** dDOS$(13)(4)iDOS$"BSAVE PAGE3,A$300,L$D0"n(12);(21)x::255 POKE IN               o~**kIv>I*|||*UPWTUUWPTUPWTU`* O**9+;{W ww*Uq^^\\]+*/UI Ls33s@@@UUk]*~~ ~~U*a]]x*p9I<>>?s~+/wU>s?**@ mU???;?? *Uy||~|gp(*2UU`? *[U@@@xo****~~ U*Gt`UDsONOg9<_AUP**-/{@ u?DklG*G}9sUU?elSW`G`*UB*j*? f38+ rr~UUWW ~ ^^ U~|O7J?j{~xU*{yy|||~Lbn|SC 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 COLUMN VERSIONZ ***** INTIALIZE ***** dDOS$(13)(4)iDOS$"BSAVE PAGE3,A$300,L$D0"n(12);(21)x::255 POKE IN END * &* ***** OKIDATA ***** E* EB$(28): ELITE (12 CPI)h* UB$(27)"C":UNDERLINE BEGIN* UE$(27)"D": UNDERLINE END* BB$(27)"T": BOLDFACE BEGIN* BE$(27)"I": BOLDFACE END* WB$(31): WIDE 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  "% ` ¡¡¡¡mediate (26 cards)"8Pb" 3) Advanced (52 cards)"PPlA$:A$(27)10000jPqA(A$):A1A31900yPvA1ED13PA2ED26PA3ED52P150P32,0:33,40P:X14:240):P3P7:53,14203,14203,11253,11253,14Q9:O20:216,0O2560&O2640WO"Would you like instructions? (Y/N)";(8);zO&A$:A$"Y"A$"y"İ2250:1860O+A$(27)10000O0A$"N"A$"n"1830O:A$OD5:"Which game:"ON:" 1) Beginner (13 cards)"PX" 2) Inter0N9:15:"Toothpicks5N:13:"A card game by"KN15:"Craig Roth"VN1760N"OPENTOOTHPICK.HSC":"READTOOTHPICK.HSC"NX1NH$(X),H%(X)NXX1:X111730N"CLOSE":1790N"CLOSE":216,0NX110:H$(X)"---":H%(X)0O"BM,A$:A$(8)(B$)1B$(B$,(B$)1):1:B$" ";(8);:1580rM6A$(8)(B$)1B$"":1:" ";(8);:1580M@A$" "A$"Z"ĺ(7);:1580MJ(8);A$;"";MTB$B$A$:(B$)31580M^Mh:16302,0Mr2N|80,60184,60184,9880,9880,6E0L::"Keep trying!"DL:"Hit a key:":A$:A$(27)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:X111420LXXX:YYYJDD1YYYY1-JDD2XXXX1?JDD3YYYY1QJDD4XXXX1YJE0vJXX0XX9YY0YY9E1|JJ960:"All cards":"dealt"J7:"Score:"JS0JY18:X18J T%(X,Y,0)0T%(X,Y,1)1370JA1:XXX:YYYKZ0A$"I"A$(11)YY1:Y0Y8DI.A$"M"A$(10)YY1:Y9Y1gI8A$"J"A$(8)XX1:X0X8IBA$"K"A$(21)XX1:X9X1ILA$" "980IVB%(X,Y)980I`N0IjDD14:1170:EĭB%(XX,YY)NN1ItI~N0ĺ"":980I JD%(Z)D%(Z2):D%(Z2)CH:1H3:1:13):7HRH::200);108):::XH{H30:B%(X,Y)Ĺ0,79:3584:1000H40HZ170:HCCC:CB%(X,Y):30:40HCCCH(16384)1271045HZ170::980HA$HA$(27)10000 I$GX,8X,191G)GX287244248G6,X167,X>G DGVG Y18:X18hG*CD%(XY89)pG430vG>|GHGRG\960::"Shuffling";GfX152:D%(X)X:GpX14Gz".";GY120GZ(52(1))1:CD%(Z):Z2(52(1))1HX7,24Y21X7,24Y8:21X6,24Y21X6,24Y8:660}F21X14,24Y821X21,24Y8:21X14,24Y721X21,24Y7:660FS1S1:280FDD1:DED1210F1250FF3086F7F170,0279,0279,191170,191170,0GX2415021490E:8:28)EDX2ARENT%(X,Y,(S1))X2:DDX2:1170:T%(XX,YY,(S1))O(X2)YEX7qEbX2620,630,640,650El21X7,24Y1621X7,24Y24:21X6,24Y1621X6,24Y24:660Ev21X,24Y821X7,24Y8:21X,24Y721X7,24Y7:6606F21A0N1DC%(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):"(";D00" BxB768B1640%B7009B32,25:33,14:BB860JBD2pBCD%(1):B%(4,4)C:X4:Y4:30:40xBX5BCD%(D)B10:"Card #"DB6:"Next":"Card:":3613,32:3614,5:0,C:3584B970B3613,32:3614,5:0,0:3584 CB%(X,Y) A23584:EA<(104)64Ĺ103,1:104,64:16384,0:"RUNTOOTHPICKS"wAFD%(52),B%(8,8),C%(3),T%(8,8,1),H$(10),H%(10)}APAZ"BLOADFNT DISPLAY,A$E00":"BLOADCARDS,A$1000"Ad3611,0:3612,16:3615,32Bn"BLOADCHAR GEN,A768":"BLOADLETTERS,A$1D򠱰󮍍ᠢ嬢󮍍栱𮍍󮠠󠲴䠫ҠˠӠĠǠӍĠ򮍍䬠     !!! ! ! ! ! ! 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 competitive 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 straight is all of the same suit."Y "If you choose to play a shorter game consisting of 13 or 26 cards, your scorewill beth Kings"W` 20!Wj 2560:26409Wt A$:A$(27)10000W~ "When you have placed all the cards on the grid the computer calculates your score as follows:"W "2 cards or less = 0 points"W "3 cards = 9 points"W "4 cards = 16 points"X "e a choice of which card you wish to connect to, such as placing a"VL "7 between two 8's, the computer 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 connecting them."U8 "For example, if you place a 5 next to a 6, the computer will connect them. If the 6 was already connected to another"DVB "5, the computer would NOT connect them. If you havrow keys. Hit the space bar when the card is where you want it. Cards may"T "only be placed adjacent to other cards already on the grid (not diagonal)."T 20T 2560:2640T$ A$:A$(27)10000IU. "If one of the adjacent cards forms part of othpicks!":bS"Toothpicks is a solitaire card game in which you attempt to form straights of"|S"3 or more cards.":S"Cards are dealt off the top of the deck.Each card is placed on a 8 X 8 grid"KT"using the I, J, K, M cluster or the ar90&R4A$"N"A$"n"A$(27)20901R>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$ץ)П GETGET.TB , ޢ" ީ; = l݅ ;X {ݠ 5 F;6 L5LԊ $*LԠ ; , J+ $8d0 ˥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ݽ \К衍㺍䠺宍󮍍РŠӺ쮍󠫫報򠸍ԠŠӺ쿠!!!!䮍򮬠Ԡ宍󮢍嬠쬠宍묠󮠠쮠嬠ծӮ䬠󮍍䬢󭭱孭򮠠䮍䬠ԮӠᬠᮠᮍ䬠ϠŠӠŮ󮠠󠤲讠ﺍŠЮϮɠ󠤲讠ﺍŠЮϮɠϠŠӠŮ󠭠󺍍蠠󠭠󠭠砨󮠠Š堨詮庍ԍﮍЮϮˠ蠶򠭠Ԡͩ󡠠宠àǬӠ٬ŬˠŠ婮󠤱䮠󮍍Ԡ䮠ŠԠӮӮŮﺍǠ̠ЍﬠΠӠ󩮍庠ҠĠƠ٬ŬŠԬ㮠ֱˠﺍӠōîϮĮ캠䠤Š΍Ǡ򠫫Ҡؠ䠶堨嬠宍" """""""""_^Ѹ "^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$LNLL`LL l<KE%33 GP~ ACANCEO@ M* Т IN L L, MLl B``9L"