I/;J$(F$,32)/@@448,J$;/EEL$(J$,31):M$(J$,1):J$L$M$/bJP1 DL:P:TRBR 490/uO(32)370/T IF MC-10 DELETE LINE345/Y339,255:(339)254370/^NPNP1:NP150360/c3200 h@0,BB$;:W$"THINK":C64:L6:545:1,2:1,2:1,20m3200KrTRTR1:@431,(186)(181);:@463,(138)(133);0hw AN((J$,15,4))3850r|4250@0,BB$;0C1611232:W$"CORRECT":L3:545:C1,1:C0L0:@0,BB$;:E104050IE12:L0:C48:6351?L4:IE22:C48:635:LL4:I1522:(I,2,6)::(18,0,6):(18,4,6):IF2:C48:6351lW$" IS":C16:545:W$(AN):C32:5451685:@0,BB$;:215:CRCR1: TP14451@0,BB$;:W$"WRONG":C64:L6:545:20,1:2,1:20,1:2,12&WRWR1:@0,BB$;:W$"TRY":C32:L10:545:I1300::@0,BB$;:W$"AGAIN"2bC96:L6:545:I1300::@0,BB$;:215: NP100 NP02l3202}TRYS 4902‡@0,BB$;: JJ448479:@JJ,(159);:JJ2ǀI28101:(31,I,2):(32,I,2):230,1:I:I17:(30I2,10I,2)30̜(33I2,10I,2):230,1:I:(30I2,11I,2):(33I2,11I,2)3{рI112:(13I,2I2,2):(50I,2I2,2):230,1:I:I120:(230),1:3֞0:W$"YOU HIT":C32:L2:545:W$"PAYDIRT":C64:L98:5453W$"WITH A":C48:L196:545:W$"PERFECT":C16:L290:5454W$"SCORE":C112:L390:5454&偦6854x0:W$"OUT OF":C16:L6:545:W$(TR)" TRIES":C48:L96:545:W$"YOU HAD"4C32:L196:545:W$(WR):C64:L307((W$)3):5454W$"MISSES": WR1 W$" MISS"4C112:L388:5455(13)5205 5105@@483,"press"R$"enter"R$"for"R$"another"R$"try";5P I11000:5c(13)5405m5305s5!P(W$):Z1P:I((W$,Z,1))465&I315855+I3259550I4160555I426155:I146255?6355D6306II1:6606N6306SI2:6606&X63064]I3:6606>b6306LgI4:6606Vl6306`qLL26hv:6{@0L,(A(I,1)C)(A(I,2)C)(A(I,3)C);6@32L,(A(I,4)C)(A(I,5)C)(A(I,6)C);6@64L,(A(I,7)C)(A(I,8)C)(A(I,9)C);7LL4:76557L@0L,(B(I,1)C)(B(I,2)C)(B(I,3)C)(B(I,4)C);7@32L,(B(I,5)C)(B(I,6)C)(B(I,7)C)(B(I,8)C);7@64L,(B(I,9)C)(B(I,10)C)(B(I,11)C)(B(I,12)C);:LL5:8@Q,(154);:@Q30,(145)(128)(154)(145);8;@Q63,(153)(155)(152);:@Q96,(152);:8UI11500:TU(9999)8p MC-10 DELETE LINE6958(339)2547058""88Ɔ135,140,139,143,128,143,132,140,1368ˆ129,143,128,128,143,128,132,140,1369І142,140,139,131,140,129,140,140,1409<Ն140,140,139,140,140,143,140,140,1369eچ143,133,138,140,141,142,128,132,1369߆143,140,140,140,140,143,140,140,1409143,140,140,143,140,143,140,140,1409142,140,143,128,135,136,132,136,128: 143,140,143,143,140,143,140,140,140:2143,140,143,140,140,143,140,140,140:[135,140,139,143,140,143,140,128,140:143,140,139,143,140,139,140,140,136:143,140,140,143,128,128,140,140,140:143,140,139,143,128,143,140,140,136: 143,140,140,143,140,140,140,140,140;(143,140,140,143,140,140,140,128,128;Q143,140,140,143,132,143,140,140,140;z143,128,143,143,140,143,140,128,140; 132,143,136,128,143,128,132,140,136;%140,141,142,128,133,138,140,140,136;*143,129,142,143,141,130,140,128,140</143,128,128,143,128,128,140,140,140<54,,,,,,,,,,,,,,,,,<_9 143,140,143,143,128,143,140,140,140<>143,140,143,143,140,140,140,128,128<C143,140,143,143,129,143,140,140,142<H143,140,143,143,141,130,140,128,140=M143,140,140,140,140,143,140,140,140=,R140,143,140,128,143,128,128,140,128=UW143,128,143,143,128,143,140,140,140=~\139,128,135,141,131,142,128,140,128=a,,,,,,,,,,,,,,,,,=f139,128,135,132,143,136,128,140,128=k140,140,143,131,140,128,140,140,140>p143,130,129,143,143,132,136,143,140,128,128,140>Qu143,139,128,143,143,132,139,143,140,128,132,140>z143,128,128,143,143,134,137,143,132,136,132,136>141,130,129,142,129,134,137,130,140,128,128,140=k140,140,143,131,140,128,140,140,140>p143,130,129,143,14A(N)0 (XS,YS) : (XS2,YS2)(XS2,YS2),,BFA@ N:XS9:IAv(209,136)(234,144),,BF: "BM213,143;XNO$(Y1);"A (209,123)(234,134),,BF: "BM213,134;XNO$(X1);"A* 65494,0A4B>(1,1)(256,14),,BF:(1,15)(154,120),,BF:(1,120)(256,192),,BFBHI12000:IB>R::::" SAVE GRAPHICS"B[\" ============="Bxf" DRAWINGS NAME"Bp" UP TO":" 8 CHARACTERS"Bz:" --------/DRW";B@294," ";:NA$B NA$"" 2150CM NA$"/DRW",3584,9727,3584:C8::::" LOAD GRAPHICS"CU" ============="Cr" DRAWINGS NAME"C" UP TO":" 8 CHARACTERS"Cʇ:" --------/DRW";Cԇ@294," ";:NA$Cޅ NA$""2230DM NA$"/DRW":1,1:1240D*(X41,Y41)(X420,Y425),M,GDM(X41,Y41)(X420,Y425),M,DS Cr" DRAWINGS NAME"C" UP TO":" 8 CHARACTERS"Cʇ:" --------/DRW";Cԇ@294," ";:NA$Cޅ NA$""2230DM NA$"/DRW":1,&"***************************&C* MULTI MATH DRILLER 2 *&d* BY FRED B.SCERBO *&* COPYRIGHT (C) 1986 *&* 60 HARDING AVENUE *&* NORTH ADAMS, MA 01247 *&***************************& 0&500' ZZ196:BB$BB$(128):ZZ'*BR30:YS20'G IF MC-10 THEN MC=15360'P#MC0'f( A(45,9),B(4,12)'-I211:Y19: A(I,Y):Y,I'2I1944:Y19'7 A(I,Y)'<0> FOR LOWERCASE),ZR$(128):@417,"by"R$"fred"R$"scerbo"R$R$"copyright";)`_1467MC,49:1468MC,57:1469MC,56:1470MC,54)d685:I417480:@I,(128);:I)i@353,"select"R$"speed"R$"from"R$"fast"R$"to"R$"slow";:115)n120)sW$"1 TO 9":C112:L422:545:* xX$:X$""120* }X(X$):X49120*.X57120*BK(X$):DLK8*0:W$"SELECT":C32:L4:545:W$"DESIRED":C48:L98:545*W$"LEVELS":C16:L196:545:W$"FROM":C64:L296:545:115*X$:X$""150*X(X$):X49150*X57150+ K(X$)+h0:W$"DO YOU":C80:L5:545:W$"WANT THE":C112:L96:545:W$"LEVELS":L196:C64:545+W$"ASSORTED":C32:L288:545:W$"Y ":C16:L386:545:W$"OR ":C0:545:W$"N ":C16:545,@L1,(190);(188)(191);:@L33,(128)(188)(188);:(54,28,4),+X$:X$"Y"200,;X$"N"205,EÁ185,TAJ1:205,a͞0:215,kҁ220,W$"WHAT IS":C16:L3:545:,܀ ZZ416447:@ZZ,(188);: ZZ: ZZ480510:@ZZ,(179);: ZZ,1535MC,179,E29:F34:G10242-IE F:(I,G,5):I-2(E1,G1,6):(F1,G1,6)-EEE1:FF1:G-iI1226:(31,I,3):(32,I,3):I-@108,"divided"R$"by";: TP1 YS:NP0: TRBR 490-F(9): FLN 260- AJ0 EK- AJ1 E(K). LL13219632:@LL,R$R$R$R$R$R$R$;:LL.!EEF:FEF:E2E./E10300.a"EE$(E):E1((EE$,2,1)):E2((EE$,1)).~'IE12:L132:C112:635.,LNF:IE22:L136:C112:635:IF2:L151:635.1ANEF:F$(AN)/6I16:G(9):H(9):H$(GH):F$F$" "H$:(250,185),/XX254:YY166/9NT$"L255O4V3T255;4;4;"/IЀX4250 5/UXXXX5/j(X,4)(XX,YY),/t NT$/z/Y8166 5/ YYYY5/(4,YY)(250,Y),/ NT$/*/4I11000:I/>(4,4)(250,165),,BF0H(6,167)(250,181),,BF0RNT$"L200O2;1;2;3;4;"0-\VN$"V1T15"0gf "BM95,177;XLP$;XLR$;XLE$;XLS$;XLE$;XLN$;XLT$;XLS$;"0opX40yz VN$0Y552 4: XX60(X,Y)(X2.75,Y2.75),,B0I120 "V+T+"NT$0I0(X1,Y2.75)(X2.75,Y2.75),1(X2.75,Y1)(X2.75,Y2.75),1 ʋY1CԻ(82,52)(822.75,522.75),,B1^ހI12: "V+T+"NT$:I1z(6,167)(250,181),,BF1"BM95,95;S16;XLC$;XLO$;XLC$;XLO$;":"BM96,94;XLC$;XLO$;XLC$;XLO$;S12;"1"BM102,119;XLS$;"1"BM119,119;XLC$;"2 "BM135,119;XLA$;"2""BM152,119;XLL$;"29$"BM171,119;XLE$;"2P."BM190,119;XLR$;"2b8"BM+0,0;S4;"2{B(4,163)(250,163),2L "BM50,177;XLC$;XLO$;XLP$;XLY$;XLR$;XLI$;XLG$;XLH$;XLT$;"3V "BM135,177;XNO$(1);XNO$(0);XMI$;XNO$(2);XNO$(1);XMI$;XNO$(8);XNO$(4);"3` "T4O4"38j "V2L8CFAO+CP8O-AL4.O+CP4P8O-"3ItI11000:I3O~3::::" NEW OR OLD SCREEN"::" PICK N OR O"3X$3 X$"O"22103 X$"N"1220311703:***SMALL DRAWING BOARD***4Ļ(155,15)(239,119),,BF4 :***INIT PROGRAM***4e 4,1:1,1:RS0:X11:Y11:X215:Y233:X3160:Y3126:X4157:Y4174t M(21,26)4 "BM27,12;XLC$;XLO$;XLC$;XLO$;XBK$;XLS$;XLC$;XLA$;XLL$;XLE$;XLR$;"4:***LARGE GRID***4X12 132 64 (X,28)(X,180),5 X5Y30 180 65-((12,Y)(135,Y),552 Y5R<:***NUMER LARGE GRID***5lF "BM 11,27;XNO$(1);"5P "BM 36,27;XNO$(5);"5Z "BM 59,26;XNO$(1);": "BM 65,27;XNO$(0);"5d "BM 89,26;XNO$(1);": "BM 96,27;XNO$(5);"6n "BM 119,26;XNO$(2);": "BM 125,27;XNO$(0);"6/x "BM 4,103;XLY$;"6G "BM 64,188;XLX$;"6b "BM 136,36;XNO$(1);"6} "BM 136,60;XNO$(5);"6 "BM 136,90;XNO$(10);"6 "BM 136,120;XNO$(15);"6 "BM 136,150;XNO$(20);6 "BM 136,180;XNO$(25);"7 "BM 203,135;XLX$;":(212,135)(231,135),7O "BM 203,145;XLY$;":(212,145)(231,145),7e:***MOVE GRID***7Y122 154 8: (156,Y)(188,Y),:Y7 X156 188 8:(X,122)(X,154),:X:(X3,Y3):1730:1760: "BM 175,166;XBK$;XLS$;XLE$;XLT$;"8 :***COMMANDS***8X$87J(0):K(1):P(65280)8k J0 X1X11: X2X26: X11 X11: X2158" J63 X1X11: X2X26: X120 X120: X21298, J0 J63 173086 K0 Y1Y11: Y2Y26: Y11 Y11: Y2339)@ K63 Y1Y11: Y2Y26: Y125 Y125: Y21779CJ K0 K63 17609T (X22,Y22)0 (X2,Y2):(X21,Y2):(X21,Y2):(X2,Y21):(X2,Y21):(X2,Y2):(X21,Y2):(X21,Y2):(X2,Y21):(X2,Y21): 1640:;^(X2,Y2):(X21,Y2):(X21,Y2):(X2,Y21):(X2,Y21):(X2,Y2):(X21,Y2):(X21,Y2):(X2,Y21):(X2,Y21):~h P126 RS0 P254 RS0 (X1X4,Y1Y4):(X2,Y2):1540:r P126 RS1 P254 RS1 (X1X4,Y1Y4): (X22,Y22)(X22,Y22),,BF:1540 :|X$""1540;9X$"E" (174,156)(230,166),,BF:"BM175,166;XBK$;XLE$;XLN$;XLD$;":2110 ;X$"R" 1,1:RS1:(174,156)(230,166),,BF: "BM 175,166;XLR$;XLE$;XLS$;XLE$;XLT$;":1540;X$"S" 1,1:RS0:(174,156)(230,166),,BF: "BM 175,166;XBK$;XLS$;XLE$;XLT$;":1540K: X$(9) 1,1: 2290: X4X420: X3X38: X4217 X4217: X3184: 10,5>D X$(8) 1,1: 2290: X4X420: X3X38: X4157 X4157: X3160:10,5>N X$(94) 1,1: 2290:Y4Y425: Y3Y38: Y417 Y417: Y3126:10,1>X(X3,Y3)?cb X$"S" 1,1: 2290: RS0: (174,156)(230,166),,BF:1940: "BM175,166;XBK$;XLS$;XLE$;XLT$;":?l X$"R"1,1: 2290: RS1:(174,156)(230,166),,BF:1940: "BM175,166;XLR$;XLE$;XLS$;XLE$;XLT$;":?v2290?1810?:***SCAN SCREEN***@(209,123)(234,134),,BF@( 65495,0@7XS9:YS27@SI125:SYIY4:YSYS6@q(209,136)(234,144),,BF@ "BM213,143;XNO$(I);"@ЀN120:SXNX4@XSXS6@(209,123)(234,134),,BF@ "BM213,133;XNO$(N);"@A(N)(SX,SY)A1 ,&" "GRAMMAR REVIEW-ADJECTIVES"&Z"STEVE BLYN,COMPUTER ISLAND,STATEN ISLAND,NY,1986"&cN10&t( A$(N),A(N)&2 T1 N: A$(T),A(T): T& TO CONTINUE";: X1504 1535: X,(X)64:43345: X0g I1 J1 8400 I1 J1 8500 (13) 6800 359,12600Ƈ@320,(32,159);A$(H);Y$;"wins";Y$;"with";Y$;D(H);Y$;"points";(63,159);10"T60O1CDEFGABO2CDEFGABO3CDEFGABO4CDEFGABO5CDEFGAB1;ځ 7901@487,"PLAY AGAIN (Y/N)?";: X1510 1528: X,(X)64:"O5T60B": Z:1C$: C$"" 7501 C$"N" :50:1 C$"Y" 1 7501@0,A$(1);D(1)2 F2 @16,A$(2);D(2)2* F3 @32,A$(3);D(3)2:4 F4 @48,A$(4);D(4)2@>2HX15:359,60:0,1:"O4T60F":Y1100:Y:359,126:0,0:"O3T60F":Y1100:Y:X:2R 359,60:0,1::50:1 C$"Y" 1 7501@0,A$(1);D(1)2 F2 @16,A$(2);D(2& ******************&3 * RADIO *&L * BY MIKE BERENZ *&e ******************&u(#2,(18)&2#2,(128);(224);(184);&< A1 38 &F#2,(168);&P A&Z#2,(184);(224)&d B: B999 #2,"": 130'n#2,(128B);'x 100'D#2,(128);(255);(128);(252);'R C1 5'l#2,(170);(213);'t C' D: D999 200'#2,(128D);' 170'Ȁ E1 5'҇#2,(170);(213);'܋ E(#2,(170);(252);(128);(255)(" F: F999 #2,(30):(6#2,(F128);(A 240( 0,127,0,48,48,0,79,77,73,79,73,77,75,13,9,15,73,77,75,77,73,79,73,77,75,77,73,79,9,13,11,79,64,64,70,79,79,70,0,48,48,0,127,999( 42,124,1,1,125,5,53,53,53,53,5,125,1,1,124,999)" 0,127,64,67,69,74,85,90,85,90,85,90,85,74,69,67,64,64,65,65,65,65,65,89,89,89,88,88,67,69,74,85,90,85,90,85,90,85,74,69,67,64,127,9997,75,77,73,79,9,13,11,79,64,64,70,79,79,70,0,48,48,0,127,999( 42,124,1,1,125,5,53,53,53,53,5,125,1,1,124,999)U2E2R2BU2BR3,BD3FR2FGL3BE4L3BU2BR6,BD2R2LU2D5FEBU5BR4,BD2D3FR2EU3BU2BR3,BD2DFDFEUEUBU2BR3,BD2D3FEUDFEU3BU2BR3J/0 BD2F4H2G2E4BU2BR3,BD2DFDFG2E3UEUBU2BR3,BD2R4G4R4BU6BR3J2Ȇ0,3,12,15,48,51,60,63,192,195,204,207,240,243,252,2553D2FR3D2U6L3BU2BR6,BD2D4 & : THE GAME OF WHAMMY&2: BY BILL BERNICO&K: 708 MICHIGAN AVE.&f(: SHEBOYGAN, WI 53081&|2: (414) 459-7350&<:&FD0:E0:F0:G0:H0:I0:J0:K0:L0:Z43345'PC$(170):D$(165):E$(172):F$(163):Y$(159):R$(191):L$(175)'$Z:@136,"THE GAME OF whammy'?d@201,"BY BILL BERNICO'n@0,(32,223);:@480,(31,223);:1535,223:X3244832:@X,(223);:'x X31 47932:@X,(223);::@33,(30,207);:@449,(30,207);(X6541732:@X,(207);::X94 478 32:@X,(207);:(R@66,(28,239);:@418,(28,239);:X9838632:@X,(239);:(X12541332:@X,(239);:X:89,3:109,3:125,3:109,3:X1120::125,3:89,3:X1200::175,2(@358,"HIT ANY KEY TO BEGIN";:44539)7:"NUMBER OF PLAYERS (1-4)";: X1024 1046: X,(X)64:"O5T60B": Z: X: F)M F1 F4 170)b@32,(32,150);)pȀ G1 F)҇:"O5T60B": Z:"O4B": Z:"O5B": Z:"O4B)܇"PLAYER #";G;: A$(G): G)H(F)*@384,"POINTS NEEDED TO WIN";: X1408 1427:X,(X)64:"O5T60B": Z:: L**: 790*G F2 @64,(32,191);*d F3 @32,(64,191);*@96,R$;R$;A$(H)"'S TURN ";(28,191);*"@118,"goal"L;*,@128,(32,191);*6I(6):J(6):KIJ*@@160,(96,175);+5J@194,"your roll";:@205,I;:@211,J;:@219,K;:1222,32:1233,43:1239,61+OT@172,C$;F$;F$;F$;D$;+m^@204,C$;L$;:@207,L$;D$;+h@236,C$;E$;E$;E$;D$;+r@178,C$;F$;F$;F$;D$;+|@210,C$;L$;:@213,L$;D$;+@242,C$;E$;E$;E$;D$;+@185,(7,175);,@249,(7,175);,@256,(32,255);,/@288,(32,159);,E@352,(32,159);,f‡@416,(32,159);(32,255);,̅ (1230)113 1230,23,օ (1236)113 1236,23, I1 J1 @288,(160,159);: 1,14: 34,4: 44,2: X1 340: X: 1,9:600-A I1 J1 @288,(160,159);: X1 50:"O1T60": Z: X:610-WEEK:D(H)D(H)K-k D(H)L 710-@320,E;"points";Y$;"this";Y$;"turn";(16,159);:1344,159: (1346)96 1346,159- 790. @384,D(H);"total";Y$"points";(20,159);:1408,159: (1410)96 1410,159.l&@487,"ROLL AGAIN (Y/N)?";: X1510 1528: X,(X)64:"O3T60F": Z:.0B$: B$"" 560.: B$"Y" 250.D B$"N" 620.N560/?X@320,(8,159);"double";Y$;"whammy";(30,159);:@384,(4,159);"you";Y$Y),GP,:88178,0:179,382B9200:X240X2408CLY176Y1768V(X,Y)(X15,Y15),A,G:(X,Y)(X15,Y15),,B:(X,Y)(X15,Y15),,B:(X,Y)(X15,Y15),A,:FB&HFE 6210:8200:X1X:Y1Y9`,0::(12,12)(146,146),,B:(11,11)(147,147),,B:(16,160)(72,176),,B:(88,160)(144,176),,B:(190,30)(209,49),,B:(190,94)(209,113),,B:(0,0)(255,191),,B:(1,1)(254,190),,B:$j"BM57,3":S$"MAGNIFY":10000:"BM31,165":S$"Done":10000:"BM96,165":S$"Cancel":10000:"BM181,56":S$"Before":10000:"BM191,120":S$"Now":10000:t(192,32)(207,47),A,:(192,96)(207,111),A,:Y3247:YY(Y32)816:X192207:XX(X192)816:(X,Y)0(XX,YY)(XX6,YY6),,BF :(XX,YY)(XX6,YY6),,BF:~X,Y;t9000:X142X16Y16Y1766280:Y144X((X16)8):Y((Y16)8):XXX816:YYY816:(XX,YY)(XX6,YY6),A,:(X192,Y96)(X192,Y96),A,:6280<%Y160Y176(X93X88)6280:X87(192,32)(207,47),A,G:(192,96)(207,111),A,:6260:(192,96)(207,111),A,G:8500:8000:(X1,Y1)(X115,Y115),A,:X80:Y16:770"t(XX2,P1051)(XX76,P1060),A,>F"~(XX2,S1051)(XX76,S1060),A,:PS:8810>X#(9400:9020>#29400:(XX,YY)(XX4,YY4),A,:FB&HFE >#<(X,Y)(X4,Y4),A,G:(X,Y)0(X,Y)(X4,Y4),AR, :(X,Y)(X4,Y4),AR,>#FXXX:YYY:9010?#9400:Y47:9220?4#9400:(XX,YY)(XX4,YY4),A,:Y47?$(X,Y)(X4,Y4),A,G:(X,Y)0(X,Y)(X4,Y4),AR, : (X,Y)(X4,Y4),AR,?$FB&HFE (X,Y)(X4,Y4),A,:8500:740:XXX:YYY:9210@$(&H155)(&H156)(&H157)(&H158)&H3F8 9500@7$X(0)4XO:Y(1)3YO:FB(&HFF00)&H80:@c%((341)247(341)246)YO0YOYO1@%&((342)247(342)246)YO2YOYO1@%0((343)247(343)246)XO0XOXO1@%:((344)247(344)246)XO3XOXO1A%DFB(&HFF00)&H80:FB&HFE P254:P255A2%NA&H155 &H158:A,P::Ab&H"BM"(X)","(Y):S$"Yes No":10000A&RA(0):A32178,0:179,3:178,3:179,0A&\(X1,Y8)(X20,Y8),:(X40,Y8)(X55,Y8),:((&HFF00)&H80)&HFE 178,FC:179,BC::9810B''A1(S$):CH$(((S$,A,1))32)EX$::B{*"BM"(X)","(Y)"LD8RU8RD8RU8RD8RU8RD8U8L5":(X1,Y)(X5,Y8),A,G:IN$B+IN$:IN$""CO10COCO1:11010:IN$""(X1,Y)(X5,Y8),A,:CO0:11010CK+ IN$(8)(DE$)011010:(X1,Y)(X5,Y8),A,:XX7:DE$(DE$,(DE$)1):"BL7":(X1,Y)(X5,Y8),A,:11010C+IN$(13)(X1,Y)(X5,Y8),A,:IN$DE$:DE$"":C+ (IN$)31(DE$)LE IN$(95)X242 11010C+*KE$"ALL"(KE$,IN$)01,1:11010D@+4(X1,Y)(X5,Y8),A,:CH$((IN$)32):DE$DE$IN$:XX7:(X1,Y)(X5,Y8),A,:11010E'. BR7,BR2D4BD2D0BU6BR5,BRDBR2UBR4,BD2R4HD4EL4FU4BUBR6,BR4BDL4D2R4D2L4R2DU6BR5,DRUBR3DG4DBR3URDBU6BR3,BRRFG3DFRE2BD2H4UBUBR7,BRDRUBR5,BR3G2D2F2BU6BR4,BRF2D2G2BU6BR6,BD3R4BD2H4BD4E4BUBR3,BD3R4BG2U4BUBR5,BD6BR2GBU7BR6,BD3R4BU3BR3F. BD6BR2R0BU6BR5,BD6UE4UBR3,BDD4FR2EU4HL2BD3BRR0BE3BR2,BR2D6RL2BU5EBR5,BDER2FDG4R4BU6BR3,BDER2FDGL2R2FDGL2HBE5BR2,D3R4LD3U6BR4,R4L4D3R4D3L4BE6BR,BDD4FR2EUHL2BU3R2FBEBR2,DUR4D2G3DBE6,BDDFR2FDGL2HUER2EUHL2BR6,BRR2FD4GL2HBU4DFR3BE3F. BD3BR2D0BD3U0BU6BR5,BD3BR2D0BD3GBU7BR6,BR3G3F3BU6BR4,BD2R4BD2L4BE4BR3,BRF3G3BE6,BD2UER2FD2L2DBD2U0BU6BR5,R4D4L2U2R2BD4L4U6BR7Gv. BDD5U2R4D2U5HL2BR6,D6R3EUHL2R2EUHL2BR6,BDD4FR2EBU4HL2BR6,D6R2E2U2H2LBR6,D3R3L3D3R4BU6L4BR7,D6U3R3L3U3R4BR3,BDD4FR2EU2L2R2BU2HL2BR6,D6U3R4D3U6BR3,R4L2D6L2R4BU6BR3,BD4DFR2EU5BR3,D6U3RF3H3E3BR3,D6R4BU6BR3,D6U5RFDUERD5U6BR3HJ/ D6U5RFD2F2U6BR3,BDD4FR2EU4HL2BR6,D6U3R3EUHL2BR6,BDD4FREHF2HEU3HL2BR6,D6U4F4H3R2EUHL2BR6,BDDFR2FDGL2HBE4HL2BR6,R2D6U6R2BR3,D6R4U6BR3,D3FDFEUEU3BR3,D5FEUDFEU5BR3,DF4DBL4UE4UBR3,DFDFD2U2EUEUBR3,R4DG4DR4BU6BR3H/ BRR2L2D6R2BU6BR4,BD8LR6BU8BR2,BRR2D6L2BE6,BD2E2D6U6F2BU2BR3,BL7,BR7I{/ BD2R3FD3L3HER3BU4BR3,D6R3EU2HL2BU2BR6,BD3D2FR2EBU2HL2BU2BR6,BD3D2FR3U4L3R3U2BR3,BD3DR4UHL2GD2FR3BU6BR3,BD3R3L2D3U5ERFBEBR2,BD3D2FR3DGL3BR4BUU5L3R3BU2BR3,D6U4R3FD3BU6BR3,BDBR2D0BD2D3BU6BR5,BD7FR2EU4BU2U0BUBR3,D6U3F3H2E2BU2BR4Jl/& BR2D6RBU6BR4,BD2D4U4R2D4U4RFD3BU6BR3,BD2D4U4R3FD3BU6BR3,BD3D2FR2EU2HL2BU2BR6,BD2D6U2R3EU2HL2BU2BR6,BD3D2FR3D2U6L3BU2BR6,BD2D4$&#:COCODRAW V1.1 BY DARIN HERR&+3&:@108,"COCODRAW":@142,"V1.1":@207,"BY":@235,"DARIN HERR":@270,"1986":@449,"INITIALIZING-ONE MOMENT PLEASE":5&8:2' A(102),AR(1),ME(307),FI(151),SI(92),MI(191),GP(102),CH$(90):A090:CH$(A)::BC3:ES7:PN1:PM1:LE40'9D(15):A015:D(A):'I 4,5:0,1:'[M"MENUS.SYS"'X(0,124)(4,128),AR,G:(0,0)(255,47),ME:(0,48)(79,123),FI:(80,48)(159,93),SI:(160,48)(239,143),MI'8000'Ɓ8500:1,CS(ЅSP$""(56,84)(197,117),,BF:(57,85)(196,116),,B:"BM64,88":S$"Do you want to use":10000:"BM64,97":S$"the Speed-Up POKE?":10000:X101:Y106:9800:A32SP$"Y":1110:SP$"N":8000(ځ 9000("O3T16C":Y47730)Y32S(X64)1:S 1000,2000,2500,3000)X111SX:3500)sX(X16)16:Y(Y16)16:S(X161)7Y16:S7S14780:(X1,Y1)(X15,Y15),A,) S 4000,4200,4400,4600,4800,5000,5200,5400,5600,4400,5800,6000,6200,6400*W聦8200:(0,48)(79,123),FI:XX0:N6:8800:65494,0:S71900:S38000::"DRIVE #";P:P3700:P:A120:((&HFF00)&H80)&HFE :700*178,0:179,3:(36,84)(217,117),,BF:(37,85)(216,116),,B:S61690:S3S$"Disk":S$"Tape"*S1S4S$S$" Load":S$S$" Save"+1"BM40,88":10000:"BM40,97":S$"Filename:":10000:S3LE14:LE8+ZX110:Y97:KE$"ALL":11000:FI$IN$+"BM40,106":S$"O.K.?":10000:X82:Y106:9800:A311110+$S31090+.S1MFI$:MFI$,3584,9727,44539+81110,B S4 4,1:1,CS:MFI$:4,5:1,CS:1110,"LMFI$,3584,9727,44539,?V8000:SP$"Y"65495,0,I`730,S$"Screen Dump":"BM87,88":10000:S$"Is printer ready?":"BM67,97":10000:X99:Y106:9800:A311110-J#2,(27)"@"(27)"A"(8):S$(27)"K"(128)(1):A15361567:X12:#2,S$;:B19101:P((A32B)):X1C(P 240)16:CP 15-#2,(D(C));(D(C));:B:#2,(0):X,A:700-l8000::"TYPE 'CONT [ENTER]' TO RESTART PROGRAM.":::700.Ё8200:(64,48)(143,93),SI:XX64:N3:8800:S18000:730.xڒ178,0:179,3:(69,62)(74,89),,BF:"BM69,"(S1042)CH$(30):(64,48)(143,93),SI:SS2:ESS4(S):700. ā8200:(128,48)(207,143),MI:XX128:N8:8800:S5S 2510,2520,2540,2550:2560. ΁8000:(0,48)(255,191),,BF:730/ ؁8000:4,1:1,CS/5 ⁦9400:FB&HFE 2530:4,5:700/X CS(CS1):1,CS:8000:730/i 8000:730/ 178,0:179,3:(133,92)(138,139),,BF:"BM133,"(S1042)CH$(30):PMS4:(128,48)(207,143),MI:8000:700/ 8000:7300n 8200::Y319112:X325616:A(Y3)1216(X3)16:178,A:(X,Y)(X7,Y6),,BF:""700:X,Y:BC0178,3:178,00 X((0)4)162:Y((1)4)122:(X,Y)(X9,Y8),,B:(X,Y)(X9,Y8),,B:FB(&HFF00)&H80:I$:FB&HFE I$""35101, A(Y2)1216(X2)16:I$""700:S184FCA :BCA16 ʁ7001k9000:Y488500:740:8200:(X,Y)(X,Y),19400:(X,Y),:FB&HFE 4010:40001h 8200:BC0178,3:178,01r9200:X255ES X255ES1|Y191ES Y191ES2Z(X,Y)(XES,YES),A,G:(X,Y)(XES,YES),,BF:(X,Y)(XES,YES),,BF:FB&HFE (X,Y)(XES,YES),A,2e4210209000:XXX:YYY:Y488500:740:82002:9400:(XX,YY)(X,Y),,B:(XX,YY),,B:FB&HFE 8000:4410:S7(XX,YY)(X,Y),,BF2D44003.9000:XXX:YYY:Y488500:740:82003m9400:(XX,YY),(XY128):FB&HFE 8000:4610:460039000:Y488500:740:(X,Y)0C1:C03ʁ8200:(X,Y),,C:48003KE$"ALL":LE3649000:Y48(81,1)(95,15),A,:740:X0X148200:11000:50104rPPN1730:(97,1)(111,15),A,:(97,17)(111,31),A,:8200:PN1:8000:73049000:Y488500:740:8200:XXX:YYY4"8000:9400:(XX,YY)(X,Y),:FB&HFE 5410:54005 9000:Y488500:740:XXX:YYY:82005Jꁦ9400:(XX,YY)(X,Y),:FB&HFE A0:5620:8000:56105AA1:9400:FB&HFE A105620:A108200:5610:56305"C":9400:FB&HFE 5630:560059000:Y48(49,17)(63,31),A,:740:8200:XXX:YYY6X(0):Y(1):XXX255X255XX6+YYY191Y191YY6ƻ(XX,YY)(XXX,YYY),,B:(XX,YY),,B:FB(&HFF00)&H80:8000:FB&HFE 5810:(XX,YY)(XXX,YYY),GP,G:A14:(XX,YY)(XXX,YYY),GP,::(49,17)(63,31),A,:GXX:GYY:7306p82007 z9200:XGX255X255GX7g(X,Y)(XGX,YGY),A,G:PM 6040,6050,6060,6070,6080:FB&HFE (X,Y)(XGX,YGY),A,7r60107(X,Y)(XGX,YGY),GP,:7(X,Y)(XGX,YGY),GP,:7(X,Y)(XGX,YGY),GP,:7(X,Y)(XGX,YGY),GP,:8(X,Y)(XGX,YG&: MENUGEN, BY DARIN HERR&A: FOR USE WITH COCODRAW V1.1&J 8&q8:CH$(90):A090:CH$(A)::10&|8:5& 4,5:0,1::1,0&(: ** THE POINTER **&2"BM0,124R3G3U3F4"&Z: ** THE MAIN MENU **'zd(0,0)(255,46),,B:X011216:(X,0)(X,32),::(115,11)(147,29),,B:(187,12)(251,28),,B:(184,0)(184,32),:(0,16)(112,16),:(0,32)(255,32),(4n"BM11,2G8D3LUR2UDRE8HL2DR2DL2;BM20,13E8U3RDL2DULG8FR2UL2UR2;BM35,3R10D10L10U10;BM54,4R3F3D3G3L3H3U3E3;BM71,4G5F4E5RD4FU6LULDLH2D2U5;BM83,5U2R9D2HL3D8FL3EU8L4;BM104,3G5R3D5R4U5R3H5")x"BM3,19F10;BM24,24;M27,19;BM24,24;F5H5;M22,30;BM24,24;M19,28;BM24,24;M19,21;BM53,21L2D6R2U2BU4BR4L2D3R2L2D3R2BR3U6LR2;BM67,24R2U3L2D6BR4BU6D6R2U6BR2R2LD6;BM85,18R3F3D3GDF3DH4GL3H3U3E2R4F2D3G2L3H2U3E1;BM102,19D5L3F5E5L3U5L3")3(35,19)(45,29),,BF)"BM3,36":S$"File":10000:"BM67,36":S$"Size":10000:"BM131,36":S$"Misc":10000:"BM195,36":S$"Undo":10000): ** THE COLOR BOXES ***"BM115,2":S$"Color":10000:"BM187,2":EX$"BL1":S$"Background":10000*3": ** THE FILE MENU ***l,(0,48)(78,122),,B:(2,123)(79,123),:(79,50),+6EX$"BL1":"BM5,52":S$"Disk Load":10000:"BM5,62":S$"Disk Save":10000:"BM5,72":S$"Disk Dir":10000:"BM5,82":S$"Tape Load":10000:"BM5,92":S$"Tape Save":10000+s@"BM5,102":S$"Screen Dump":10000:"BM5,112":EX$"BL1":S$"Quit/BASIC":10000+: ** THE SIZE MENU **+(80,48)(158,92),,B:(82,93)(159,93),:(159,50),,Q"BM85,52":S$"Eraser Size":10000:"BM85,62":S$" 1 x 1":10000:"BM85,72":S$" 4 x 4":10000:"BM85,82":S$"> 8 x 8":10000,l: ** THE MISC MENU **,(160,48)(238,142),,B:(162,143)(239,143),:(239,50),-"BM165,52":S$"Clear Screen":10000:"BM165,62":S$"Show Picture":10000:"BM165,72":S$"Color Set":10000:"BM165,82":S$"PUT Mode":10000:"BM165,92":S$"> Set":10000:"BM165,102":S$" Reset":10000-"BM165,112":S$" And":10000:"BM165,122":S$" Or":10000:"BM165,132":S$" Not":10000:EX$"".=X44539:"PRESS [ENTER] WHEN READY TO SAVE";A$:M"MENUS.SYS",9728,14333,44539.Cb.e': ** HI-RES PRINT ROUTINE **.'A1(S$):CH$(((S$,A,1))32)EX$::..: ** CHARACTER DATA **/. BR7,BR2D4BD2D0BU6BR5,BRDBR2UBR4,BD2R4HD4EL4FU4BUBR6,BR4BDL4D2R4D2L4R2DU6BR5,DRUBR3DG4DBR3URDBU6BR3,BRRFG3DFRE2BD2H4UBUBR7,BRDRUBR5,BR3G2D2F2BU6BR4,BRF2D2G2BU6BR6,BD3R4BD2H4BD4E4BUBR3,BD3R4BG2U4BUBR5,BD6BR2GBU7BR6,BD3R4BU3BR30. BD6BR2R0BU6BR5,BD6UE4UBR3,BDD4FR2EU4HL2BD3BRR0BE3BR2,BR2D6RL2BU5EBR5,BDER2FDG4R4BU6BR3,BDER2FDGL2R2FDGL2HBE5BR2,D3R4LD3U6BR4,R4L4D3R4D3L4BE6BR,BDD4FR2EUHL2BU3R2FBEBR2,DUR4D2G3DBE6,BDDFR2FDGL2HUER2EUHL2BR6,BRR2FD4GL2HBU4DFR3BE31. BD3BR2D0BD3U0BU6BR5,BD3BR2D0BD3GBU7BR6,BR3G3F3BU6BR4,BD2R4BD2L4BE4BR3,BRF3G3BE6,BD2UER2FD2L2DBD2U0BU6BR5,R4D4L2U2R2BD4L4U6BR71. BDD5U2R4D2U5HL2BR6,D6R3EUHL2R2EUHL2BR6,BDD4FR2EBU4HL2BR6,D6R2E2U2H2LBR6,D3R3L3D3R4BU6L4BR7,D6U3R3L3U3R4BR3,BDD4FR2EU2L2R2BU2HL2BR6,D6U3R4D3U6BR3,R4L2D6L2R4BU6BR3,BD4DFR2EU5BR3,D6U3RF3H3E3BR3,D6R4BU6BR3,D6U5RFDUERD5U6BR32/ D6U5RFD2F2U6BR3,BDD4FR2EU4HL2BR6,D6U3R3EUHL2BR6,BDD4FREHF2HEU3HL2BR6,D6U4F4H3R2EUHL2BR6,BDDFR2FDGL2HBE4HL2BR6,R2D6U6R2BR3,D6R4U6BR3,D3FDFEUEU3BR3,D5FEUDFEU5BR3,DF4DBL4UE4UBR3,DFDFD2U2EUEUBR3,R4DG4DR4BU6BR33/ BRR2L2D6R2BU6BR4,BD8LR6BU8BR2,BRR2D6L2BE6,BD2E2D6U6F2BU2BR3,BL7,BR73/ BD2R3FD3L3HER3BU4BR3,D6R3EU2HL2BU2BR6,BD3D2FR2EBU2HL2BU2BR6,BD3D2FR3U4L3R3U2BR3,BD3DR4UHL2GD2FR3BU6BR3,BD3R3L2D3U5ERFBEBR2,BD3D2FR3DGL3BR4BUU5L3R3BU2BR3,D6U4R3FD3BU6BR3,BDBR2D0BD2D3BU6BR5,BD7FR2EU4BU2U0BUBR3,D6U3F3H2E2BU2BR44/& BR2D6RBU6BR4,BD2D4U4R2D4U4RFD3BU6BR3,BD2D4U4R3FD3BU6BR3,BD3D2FR2EU2HL2BU2BR6,BD2D6U2R3EU2HL2BU2BR6,BD3D2FR3D2U6L3BU2BR6,BD2D4U2E2R2BU2BR3,BD3FR2FGL3BE4L3BU2BR6,BD2R2LU2D5FEBU5BR4,BD2D3FR2EU3BU2BR3,BD2DFDFEUEUBU2BR3,BD2D3FEUDFEU3BU2BR35/0 BD2F4H2G2E4BU2BR3,BD2DFDFG2E3UEUBU2BR3,BD2R4G4R4BU6BR3U4R3FD3BU6BR3,BD3D2FR2EU2HL2BU2BR6,BD2D6U2R3EU2HL2BU2BR6,BD3D2FR3D2U6L3BU2BR6,BD2D4U2E2R2BU2BR3,BD3FR2FGL3BE4L3BU2BR6,BD2R2LU2D5FEBU5BR4,BD2D3FR2EU3BU2BR3,BD2DFDFEUEUBU2BR3,BD2D3FEUDFEU3BU2BR35/0 BD2F4H2G2E4BU2BR3,BD2DFDFG257),S(127,120),S( (167,125),S: (187,120),SL(197,158),S^(209,158),Sp(197,120),S(77,70),4S(17,85)(42,81),S P1 2S 0,PS 1,0S W1 200: WS PS!JJJJ1S" JJ7 4120 T6 784T h 4,1TjTl 1,1T T2@237, "BOOM"T= 1,30TG 4,1TQ 1,0Te I2 200 2Tv (128,96),IT~ IT::"SETTING OFF DYNAMITE IS A BIT MUCH. YOU ARE GOING TO JAIL AND YOUR SCORE IS ZERO":FF0:S0T 3005T 3,1UU  1,0U$(0,170)(255,170),U>(5,170)(75,35),, BUN(65,100),4UgĻ(20,50)(30,65),,BUλ(105,144)(245,41),,BU (45,65),3,4U(110,140)(240,45),,BU(175,115),27U (175,50),2,4U(165,107),5U (185,107),5V"BM172,116;E3;F3;L4"V/(174,126),8,,0.5,0,0.5VK((174,125),8,,0.5,0,0.5Vd2(175,91)(180,75),V}<(176,91)(181,75),VF(174,91)(179,75),VP(220,45),25,,2,.25,.5VZ(220,95)(210,140),Vd(220,95)(240,90),Vn(130,45),25,,2,0,.25Wx (128,90)(140,138),W2(128,90)(112,87),WA X1 10Wc(165,107),4,4:(185,107),4,4W~(164,107): (185,107)W(163,107):(185,107)W(164,108):(185,108)W(164,106):(185,106)WȀ W1 300: WWҋ XXܞ: @96 ,"DO YOU WANT TO RING THE DOORBELL?"X9މ A$: A$"Y" 5344: 1000XN 170,9: 145,10XYၥ 770X::"YOU GOT A POPSICLE BUT IT MELTEDAND MESSED UP ALL THE OTHER GOODTHINGS"X:"YOU LOSE 30 POINTS":SS30::"YOUR SCORE IS ";S: W1 1500: W: H$Y A$: A$"Y" 10 : 1000YSS35:::"YOU GOT A POPCORN BALL WORTH 35 POINTS SO YOUR SCORE IS NOW ";S: W1 1500: W:: H$Yꁥ 5352ZSS45:::"YOU GOT A BAG OF CANDY CORN WORTH 45 POINTS SO YOUR SCORE IS ";S: W1 1400: W:: H$Z 큥 53525:::"YOU GOT A POPCORN BALL WORTH 35 POINTS SO YOUR SCORE IS NOW ";S: W1 1500: W:: H$Yꁥ 5352ZSS45:::"YOU GOT A BAG OF CANDY CORN WORTH 45 POINTS SO YOUR SCORE IS ";S: 45 GOSUB4000:GOTO100 4000 GOSUB400:PCLS0'RAINBOW 4010 DRAW"BM32,106U20R10D10L10F10BR12U20R10D10NL10D10BR12R5NR5U20L5R10BR12ND20F20U20BR12ND20R10D8G2L8R8F2D8L10" 4020 CIRCLE(162,96),11 4030 LINE(182,86)-(192,106),PSET:LINE-(202,86),PSET:LINE-(212,106),PSET:LINE-(222,86),PSET 4040 GOSUB300:FORA=1TO11:X1=16:Y1=85:X2=240:Y2=107:READX3,Y3,X4,Y4:GOSUB240:NEXTA:GOSUB50:RETURN 4050 DATA0,10,255,18,0,30,255,90,0,100,128,120,128,100,255,120,0,130,85,160,85,130,160,160,160,130,255,160,0,170,64,180,64,170,128,180,128,170,192,180,192,170,255,180 UB300:FORA=1TO11:X1=16:Y1=85:X2=240:Y2=107:READX3,Y3,X4,Y4:GOSUB240:NEXTA:GOSUB50:RETURN 4050 DATA0,10,255,18,0,30,255,90,0,100,128,120,128,100,255,120,0,130,85,160,85,130,160,160,160,130,255,160,0,170,64,180,64,170,128,180,128, 8(175,115),A 9Y185A. : X 1 250 3AA ;G(12): 2,4AV <(X,Y)(X,YG),A^ > XAm ?X167:Y89A{ @SP0:EP0A A R1 20 .05A DEPEP.02: EP.5 EP0A G(XR,YR),R,4,1,SP,EPA I RA J W1 600: WBM K:"AN ECCENTRIC OLD MAN LIVES HERE AND HAS A FIRE IN HIS FIREPLACE. THE SMOKE LOOKS LIKE A GHOST."B} L:"DO YOU DARE TO TRICK OR TREAT HERE?"B N A$: A$"Y" 3153 : 3157B QX(2): X 3155,3156C5 S::"THE OLD MAN IS REALLY AN ESCAPEDCONVICT AND HE TOOK AWAY ALL YOUR GOODIES.YOUR SCORE IS ZERO":S0:: 3158C T:"HE IS REALLY A NICE FRIENDLY FELLOW SO YOU GET 25 POINTS FOR BEING BRAVE AND 10 EXTRA POINTS FOR SHARING YOUR CANDY WITH HIM":SS35::"YOUR SCORE IS NOW ";S:: 3158Db U::"YOU LOST YOUR NERVE SO YOU LOSE 25 POINTS FOR BEING A SCAIRDY CAT ": SS25: "YOUR SCORE IS NOW ";S: 3158D V W1 700: W::H$: A$: A$"Y" 10 : 1000D lD(3)D nD q D 17,3200,3200D XX2 10D 3,1:D 1,0D SS190E (20,150),12,,4,.4,.1E& (10,174)(30,174),E9 (20,150),2,4Es "BM155,180;E30;U70;E3;U30;H20;H5;L15;H5;L15;H5;L20"E "BM255,180;H30;U70;H3;U30;E20;U5;E10"E (24,130),2E (18,130),2E (18,135)(22,135),E X1 255 3E Y(10)F  4,3F (X,180)(X,180Y),F$  XF? * (9,175)(32,100),G,GFN 4 T1 11F\ >X(140)Fj HY(150)F R(X,Y)(X23,Y75),G,F W SS,3:SSSS2F \ TF _ W1 1200: WF `G a:"YOU ARE IN THE WOODS AND GHOSTS ARE POPPING UP EVERYWHERE BUT YOU MUST CROSS.":G+ b W1 2000: WG7 cX(4)GV f X 3431,3433,3432,3441G g"YOU FAINTED AND CANNOT CONTINUE.ALL SCORE IS LOST AND YOU MUST GO HOME.":S0: 3445H. h"THE GHOSTS WERE ABOUT TO GET YOUBUT A FLYING SAUCER SUDDENLY LANDED AND SCARED THEM AWAY": W1 2673: W: 3500H i"YOU SCREAMED A LOT BUT HAVE STAGGERED OUT OF THE WOODS.NEXT TIME BE MORE BRAVE BUT YOU GET 25 POINTS FOR THE EFFORT": SS25:"YOUR SCORE IS ";S H k V1 3H l 211,15H m Z1 180: ZI n VI o 3445I p V1 3 I q"YOU ARE VERY BRAVE AND MADE IT TO THE OTHER SIDE WITH 50 EXTRA POINTS":SS50:"YOUR SCORE IS";S: 3445I r Z1 200: ZI s VI u W1 2400: WI xXXXX1I z 10I 1,3I I 1,1J (120,150),40,,3.5,0.5,.75J* (120,150),40,,3.5,.75,0JR "BM80,150;R26;U30;R26;D30;R26;L56"Jc (110,134),2Jr (97,90),5J (112,90),5J(127,90),5J(142,90),5J(125,140),7,8J$(149,58)(181,31),J.(93,58)(64,31),K 8"BM158,38;E15;F15;G15;H15;E8;F15"K2B"BM86,36;H15;G15;F15;E15;H8;G15"KjL "BM120,15;U12;NR12;NL12;ND12;NE12;NF12;NG12;NH12"KV(120,140),95,,0.45 ,.83,.68K`(125,110),6,8Kj T1 10Kt (97,90),8,8:(112,90),8,8K~(127,90),8,8:(142,90),8,8L(97,90):(112,90)L(127,90)L, (142,90):(110,134)L8 100,4LL W1 100: WLT TLlZ$"D2G1BE1BU2BR12"LO$"U8R6D8L6BR12"Lž:"THIS IS A FLYING SAUCER WHICH HAS LANDED ON YOUR STREET. DO YOU WANT TO TRICK OR TREAT HERE?"M É A$: A$"Y" 3782 : 10Mā 3780M:X(3): X 3783,3785,3787MLJ"YOU FOUND THEM FRIENDLY AND THEYGAVE YOU A MARS BAR PLUS 30 POINTS": SS30: "YOUR SCORE IS ";S:MȀ W1 1500: W: H$: A$: A$"Y" 10 : 1000Nmɇ"THIS IS A TRICK ON YOU TO CAPTURE A HUMAN SPECIMEN FOR THEMARTIAN ZOO SO THE GAME IS OVER FOR YOU": W1 1500:W:FF1: 3006Oˇ"THEY TRIED TO CAPTURE YOU BUT YOU WERE TOO SMART FOR THEM AND ESCAPED. YOU GET 40 POINTS FOR YOUR CLEVERNESS.":SS10:"YOUR SCORE IS ";SO6̀ W1 1500: W::H$: A$: A$"Y" 10 : 1000OZ: @133,"BEWARE OF THE DOG!!!"Oo W1 1100: WOy 0,1OJJ0OO 1,0O(10,50)(60,58),O(75,30),O(85,55),O(120,75),O(165,75),O(210,80),P (240,69),P(225,55),P/(250,73),PA(225,100),PS(220,160),Pe(210,160),Pw(200,120),P(10,50)(10,57),P»(55,80),PĻ(20,95),P(77,70),4PȻ(20,100),Pʻ(60,95),P̻(90,110),Qλ(85,160),Qл(105,160),Q$һ(110,117),Q?Ի(106,158)(120,157),QQֻ(127,120),Qcػ(167,125),Quڻ(187,120),Qܻ(197,158),Q޻(209,158),Q 0,2:Q (10,80)(60,58),Q们(75,30),Q滬(85,55),Q軬(120,75),Q껬(165,75),R컬(210,80),R!(230,69),R2(255,55),RC(250,73),RU(225,100),Rg(220,160),Ry(210,160),R (10,81)(15,89),R (65,96),R(90,110),R(85,160),R (105,160),R(110,117),S(106,158)(120,1.8/{ (207,119),3,4/-(32,80)(48,125),/>(73,53),3,4/P(17,123),3,4/a(66,60),4,4/s(180,60),4,4/(220,50),15,2/(220,50),2,2/ (113,170)(125,172),,B/(118,157),9,2.3,2/(118,157),2,2/(117,151),20(121,151),20 (117,155)(120,155),09˻(133,105)(152,102),0Tл(152,102)(152,135),0oջ(152,135)(133,140),0 (134,107),4,40(148,109),4,40(148,120),4,40(147,117),2,20(108,105)(132,140),,B0(120,115),50(120,124),7,.71(117,127)(125,138),,BF1,(90,126),51:(90,126)1M (90,126),2,41` W1 ZZ: W1TR$"BECAUSE OF THE INSULT RECEIVED AT THIS HOUSE YOU HAVE THE OPTION TO TRICK. DO YOU WANT TO TRICK?"2H$"DO YOU WANT TO TRICK OR TREAT AGAIN? "2T(12)2P T 775,777,779,781,783,795,797,802,783,5350,5353,53562:"YOU GOT A NICE LOLLIPOP WORTH 10POINTS SO YOUR SCORE IS ";S10:SS102: H$: R$: R$"Y" 3500 : 10003 ::"YOU GOT A DOLLAR AND CAN ADD 100 POINTS TO YOUR SCORE WHICH IS NOW ";S100:SS1003 :::H$: R$: R$"Y" 3180: 10004/ :"YOU GOT A CHOCOLATE BAR WORTH 20POINTS AND NOW HAVE A SCORE OF ";S20:SS204Y ::H$: A$: A$"Y" 10 : 1OOO4 :"YOU GOT A COOKIE AND CAN ADD 15 POINTS TO YOUR SCORE. YOUR SCOREIS NOW WORTH ";S15:SS155::H$: A$: A$"Y" 5000 : 10005: 39905* W1 700: W56Q(5)5U Q 790,790,790,787,7885SS10::"YOU'RE LUCKY THAT THE DOG IS FRIENDLY AND ONLY WANTS ONE OF YOUR COOKIES. THAT COSTS YOU 10 POINTS AND YOUR SCORE IS NOW ";S: 7896SS150::"IT'S A VERY FRIENDLY STRAY DOG AND WANTS TO GO HOME WITH YOU. HE'S WORTH 150 POINTS, SO YOUR SCORE IS NOW ";S6 W1 1000: W:: H$: R$: R$"Y" 10 : 10007(::" THE DOG BIT YOU. ": W1 1000: W::" OUCH!!": 7997O::H$: R$: R$"Y" 10 : 10007:"YOU GOT AN APPLE HERE ADD 20 POINTS TO YOUR SCORE. YOUR SCOREIS NOW ";S20:SS207::H$: A$: A$"Y" 5000 : 10008:SS20::"YOU GOT AN APPLE AND CAN ADD - UGH!,YOU JUST FOUND A WORM IN THE APPLE SO SUBTRACT 20 POINTS.YOUR SCORE IS NOW ";S8 W1 800: W::TR$: A$: A$"Y" 2900 : 108 H$: A$: A$"Y" 10 : 10009" 0,1:: 1,19# X1 49$ 191% W1 200: W99& 29N' W1 150: W9V( X9a* 1,209,:"THAT WAS LIGHTNING AND YOU'D BETTER GO HOME TILL THIS STORM PASSES OVER. YOU ALSO LOSE 15 POINTS.":SS15::"YOUR NEW SCORE IS ";S:/ W1 1500: W:&0 @ 360,"TRICK OR TREAT?":F1 A$: A$"Y" 198 : 1000:g:::" GOODNIGHT"::" YOUR FINAL SCORE IS:";S:: T: U: V @ 70, "TRICKS YOU CAN DO": X:; Z DUMP GARBAGE,SOAP WINDOWS,CHASE CAT,MAKE FACES,DYNAMITE HOUSE; \ M1 5; ^ T$;; ` M;: " "; : T$:;C b M;g d::"CHOOSE A TRICK BY NUMBER";p f T ; g W1 1500: W; h T 3000,3003,2934,2932,4200; r 2900> ::"YOU GOT CAUGHT DUMPING GARBAGE CANS AND HAVE BEEN ARRESTED. IT'S ALL OVER FOR YOU TONIGHT AND YOUR SCORE IS ZERO.":FF0>V BB1 1500: BB>h 3,1:: 1,0> (125,95),20,2.3,2> (125,95),2,2> (118,83),2,4> (131,83),2,4> (125,92),6,4,.75,.5,.99> ˻ (110,130)(140,132),,BF? λ (40,30)(210,133),,B?# р X40 210 17?9 ֻ(X,30)(X,133),?A ׋ X?[ Z$"BU8;R8;G8;R8;BR4"?u O$"U8;R8;D8;L8;BR12"? ܅ FF1 3037 : 3038? "BM110,150"Z$O$O$? ހ W1 3500: W? S0? U(2)? U 10,1000?  1,3:: 1,1@ !(50,50),15@ " (143,80),3,4@9 #(100,185)(180,125),,B @Q &(140,85), :ROOF@c ((100,125),@ +(110,160)(125,130),,BF @ -(155,160)(170,130),,BF@ 0 (130,130)(149,185),,B @ 2(134,157),2@ 5(160,105)(160,90), @ 7 (175,90),A(167) SCALER","(174) DRILLER2","(182) EXTCHNGR"/8 ENDFACE"," (68) MENUGEN"," (70) COCODRAW"," (81) STRINGS1". " (81) STRINGS2","(102) WHAMMY","(108) PUMPKIN","(112) SPECTRUM","(113) RADIO"/. "(113) RAID","(126) NOTLIKE","(153) ADJECTIV","4!&3: @ 167,"H A L L O W E E N": W1 1000:W&:" A CHILDREN'S ADVENTURE BY J. AND A. DUERIG": W 1 1200: W& G(23,75)&ZZ1600:XX0:S0'+:"IT'S HALLOWEEN NIGHT AND TIME FOR YOU TO ROAM THE NEIGHBORHOODLOOKING FOR ADVENTURES, AS WELLAS TRICKS AND TREATS."'"SO PUT ON YOUR GHOST SUIT AND GET READY FOR SIGHTS AND SOUNDS LIKE YOU'VE NEVER SEEN OR HEARD."(/ "ALL QUESTIONS ARE ANSWERED BY (Y) FOR YES AND (N) FOR NO. TO START OVER, PRESS 'BREAK' AND TYPE 'RUN'"::" WHEN READY TO START, ENTER 'Y'"(L Y$: Y$"Y" 10 : 5(e ZZ1000 17 : 12(s QQ(12)( QQ 17,17,17,17,3200,3990,3100,3100,5000,5000,17,3500( 3,1(( 1,0(# (0,140) (255,140),)((70,55)(175,140),,B)-"BM64,58;E58;F58")62 (108,105)(132,140),,B)R< (84,108)(97,130),,B)k>(84,119)(97,119),)A (147,108)(161,130),,B)D(147,119)(161,119),)F(84,70)(97,90),,B)I(84,80)(97,80),)K(147,70)(161,90),,B*N(147,80)(161,80),*#P"BM83,37;U22;R14;D12"*=U(108,134)(80,190),*XZ(132,134)(160,190),*i_(113,119),2*n(27,125)(36,140),,B*s(15,125)(48,125),*x(15,125)(32,80),*z(201,140)(214,133),,B*{(207,119),17,.8*| (207,119),3,4+}(32,80)(48,125),+&(119,132),3,4+7(73,53),3,4+I(17,123),3,4+Z(66,60),4,4+l(180,60),4,4+(220,50),15,2+(220,50),2,2+ (113,170)(125,172),,B+(118,157),9,2.3,2+(118,157),2,2+(117,151),2+(121,151),2, (117,155)(120,155),,0 ZZ200 ZZZZ200,C W1 ZZ: W,I,v @96,"DO YOU WANT TO RING THE DOORBELL", A$: A$"Y" 190 : 1000, @168,"TRICK OR TREAT!",Ơ170,9: 145,10,Ȁ D1 800: D, 3,1,, 1,0- (0,140) (255,140),-,(70,55)(175,140),,B-C"BM64,58;E58;F58"-a! (108,105)(132,140),,B-}& (84,108)(97,130),,B-+(84,119)(97,119),-0 (147,108)(161,130),,B-5(147,119)(161,119),-:(84,70)(97,90),,B-?(84,80)(97,80),.D(147,70)(161,90),,B.3I(147,80)(161,80),.NN"BM83,37;U22;R14;D12".hS(108,134)(80,190),.X(132,134)(160,190),.b(27,125)(36,140),,B.g(15,125)(48,125),.l(15,125)(32,80),.q(201,140)(214,133),,B/v(207,119),17,????????? OHH???? OHH?? OHH????C J2C???<C J2C???? C J2C???<?C J2C?? TO CONTINUE";+JX$:X$""330++TX$" "370+E^I114:X$B$(I)500+RhI:330+Xr+|: " (XX)= PAGE NUMBER OF LISTING"++P1524:B$(P)A$(P),B$(10P)A$(P10):P+ " PRESS TO RETURN TO FIRST PAGE OF MENU", " PRESS ^ (UP ARROW) FOR ";,7XX$: XX$""430,NXX$(94) ::,_…XX$" "240,|̀I15 NP:XX$B$(I)500,֋I:430,XX$430,ꁥ240,Q$A$(I):(Q$,1)"*"540- :@138,"SORRY, BUT"::8)Q$::" IS A MACHINE LANGUAGE PROGRAM."-l:" THE MENU PROGRAM HAS NOW BEEN CLEARED SO YOU MAY THE PROGRAM BY ITS FILENAME."-r-Q(Q$):QQ6:SL$(Q$,Q)-& SL$,R- "OCTOBER". " (20) BOMBAWAY"," (28) HALOWEEN"," (38) TUNNEL"," (40) WHEEL"," (45) ZOOM1"," (45) ZOOM2".t " (48) ZOOM3"," (48) ZOOM4"," (52) DRAWFACE"," (68) MENUGEN"," (70) COCODRAW"," (81) STRINGS1". " (81) STRINGS2","(102) WHAMMY","(108) PUMPKIN","(112) SPECTRUM","(113) RADIO"/. "(113) RAID","(126) NOTLIKE","(153) ADJECTIV","߀߀셀߀ꀀڀ߀ڀ߀ڀ߀ꀀ ڀ߀ꀀڀ߀ꀀڀ߀ꀀ󀓟 ÀππĀ΀̀π̀ʀʀπʀππππʀʀπππڀ߀ꀀڀ߀ꀀ󀓟 ÀππĀ΀̀π̀ʀʀπʀππππʀʀππ??  "#%&-./018:;<= RAINBOW ON ! DISK  MENU BAS>BOMBAWAYBAS$,HALOWEENBAS$TUNNEL BAS'WHEEL BAS(ZOOM1 BAS)MZOOM2 BAS*ZOOM3 BAS+7ZOOM4 BASDRAWFACEBAS,MENUGEN BASCOCODRAWBASSTRINGS1BAS2STRINGS2BAS3WHAMMY BASPUMPKIN BAS4SPECTRUMBAS5RADIO BAS RAID BAS6NOTLIKE BAS7lADJECTIVBAS /SCALER BAS WDRILLER2BASEXTCHNGRBAS9D?????????? 0 0 0?)&d: BOMBS AWAY&n:&/x: ALLEN DRENNAN&G: 1986 COLOR CLOUD&e: 19506-D INDUSTRIAL DR.&~: SONORA, CA. 95370&: (209) 533-3477&:& H(139): 1320& 1,1: I1 254 2:(I,(H(I2)1))(I,159),: &Ȑ&҂' ܂ ** CREATE BASES''[::::::::" NUCLEAR BASES ACTIVE ...":N12: I1 1000: I:'u 4,1: 1,1:: 1,1:'X120D(30):X280D(40):L(1)10D(X110):L(2)X2 D(120X2)'N158D(58): I0 X1:H(I)N::N1: 1190(N158D(58): IX2 139:H(I)N::N2: 1190(4" KK1 1000: KK(,X3X1D(X2X120)10:H(X3)50D(100):NH(X3)2:D1NH(1)2:D2NH(139)2(6(@ ** SCOREBOARD(J(T::"THE SCORE: ";P$(1);:" =";S(1): " ";P$(2);:" =";S(2))^ S(1)S(2)0 390)h)'r ** CREATE ILLUSION)-|)QA180:R180(X3X11):NH(1)D1) IX11 X31:AAR:H(I)(A.0174533)D1N:)A0:R180(X2X31):NH(139)D2) IX31 X21:AAR:H(I)(A.0174533)D2N:): 190)*‚ ** DISPLAY WIND FACTOR*̂*|WD(100)50:::::: " WIND FACTOR";: W0 W(W2);"TO THE WEST." : W;"TO THE EAST."* I1 1500: I:: 1230:NN1*N3N:S5N4** ** PLAYER PROFILE*+: "LAST SHOTS :";: I0 3: A(S4I);::+9" ";: I0 3: V(S4I);: I:+K& "FIRING :";+m0 N1 "LEFT" : "RIGHT"+: "WIND FACTOR";+D W0 W(W2);"TO THE WEST." : W;"TO THE EAST."+NANG$"":V$"": P$(N);,X " CALL YOUR SHOT ";YU$: YU$"" 690,4b I1 (YU$): (YU$,I,1)"," 640,PlANG$ANG$((YU$,I,1)),Xv I, II1 (YU$):V$V$((YU$,I,1)): I,ANG(ANG$):V(V$): 740,, ** PERFORM TOGGLE,, 1,1,A$: A$"" 730-ƅ A$(13) 530- Ё 700-ځ 700-$: 1,1-6 V350 790-:"YOUR BASE BLEW APART FROM TO MUCH PRESSURE AND FORCE.": I1 1500: I- I1 1000: I- 1120- 1220- -* ** FIRE MISSLE-4-> N2 ANG180ANG. HV1(ANG.0174533)V:V2(ANG.0174533)V.=RMNL(N):XL(N)2:YH(MN).X\ N1 XX1 : XX6.hfXX7(N2).zp(X,Y,3):OX0.zXOX:YOY.XXV110:V1V1(WV1)30: X0 X254 490.YYV210:V2V26. Y1 960. OX (OX,0,3):OX0/ "T255;O1;1;1"/3(XO,YO)(X,Y),:XOX:YOY: 970/<OXX/Sʅ H(X2)Y2 900/bYH(X2)2/o޽(X,Y,3)/ (X2L(3N))3 1080/ (X2L(N))3 1070/: " YOU DESTROYED YOURSELF ";P$(N): I1 1500: I: 1720/ 1120/0 ** SOUND EFFECTS0$0m."T200;O1;V31;8;8;8;V25;6;6;6;V20;4;4;4;V15;2;2;2;V10;1;1;1":(X,Y),2,3: 49008"O1;T255;V10;4;4;4;V15;6;6;6;V20;8;8;8;V25;10;10;10;V31;12;12;12;V25;10;V20;8;V15;6;V10;4": 17200BWINN0L KK1 1000: KK1VN3N1,`S(3N)S(3N)1: S(3N)S(N)GN 15801\j I1 10:A(I)0:V(I)0::N13N1:: 2601ht 15801n~1t1 ** DRAW BASES11XL(N)2:YH(L(N))1: I2 3:(XI,Y1)(XI,Y2),:2'(X4,Y4)(X4,Y2),:(X3,Y4)(X3,Y2),:(X,Y4)(X,Y2),:(X1,Y4)(X1,Y2),2[(X4,Y4)(X4,Y2),:(X5,Y4)(X5,Y2),:2NN5N: J1 4:KNN5J:A(K)A(K1):V(K)V(K1)::V(NN)V:A(NN)ANG:2λ(142W,150)(143W,150),2SS(W)2 I1 5:Y150I:X140WSSI3 (X,Y)(X1,Y),3+Y150I:(X,Y)(X1,Y),:3137 3M ** MAIN DISPLAY3S3(::::" ";:A$"*** BOMBS AWAY ***"32 I1 (A$): (A$,I,1);3<&HFF21,&H3C:&HFF21,&H34: QW1 30: QW:4F:: " BY ALLEN DRENNAN 1986 COLOR CLOUD"4-P I1 2000: I4YZ:A$"GAME RULES ARE SIMPLE:": 1540:4_d4nA$"BLOW UP YOUR OPPONENT BY FIRING AT THE RIGHT ANGLE AND VELOCITY,": 15404x5A$"WHILE COMPENSATING FOR WIND AND TERRAIN. EACH GUNNER MUST ENTER"54A$A$"THE GUN ANGLE AND SHELL POWER.": 15405<:5nA$"THE ANGLE MUST BE BETWEEN (0-90)": 15405t5 " PLAYERS NAMES :"5 P1 25ȇ "PLAYER ";P;: ", ";P$(P): (P$(P))10 : "10 CHARACTERS ONLY!": 14605ҋ6ܹ D(X)(X)6, "HOW MANY BATTLES TO PLAY ";GN6^ GN1 "PLEASE, DONT JOKE AROUND!": 15106i 2406 I1 (A$): (A$,I,1);6 &HFF21,&H3C: &HFF21,&H34: QW1 30: QW:6 I1 700: I6"6,666@ ** GAME REPORTS6J7:T "THE SCORE: ";P$(1);:" =";S(1): P$(2);:" =";S(2)7Q^ S(1)S(2) WI17hh S(1)S(2) WI27r S(1)S(2) 16807| "WINNER"7 170077 "A TIE !!!"7 "BETTER LUCK NEXT TIME !!!"77 1,1: RT1 158(X,Y),RT,3,1,.50,08̋ RT8(ր I1 1500: I:(2);:" =";S(2)7Q^ S(1)S(2) WI17hh S(1)S(2) WI27r S(1)S(2) 16807| "WINNER"7 170077 "A TIE !!!"7 "BETTER LUCK NEXT TIME !!!"77 1,1: RT1 158(X,Y),RT,&# :***************************&E:* "RAINBOW TUNNEL" *&g:* DEMO TO SHOW USE *&(:* OF PALETTE REGISTERS *&2:* TO SIMULATE MOTION *&<:*BY RICK ADAMS & DALE LEAR*&F:***************************&P:' Z:***************'"d: SET HIGH SPEED'8n:***************'E CC(32)'WBREAK 640'^:'t:***************': SET UP COLORS':***************' 2'Ȇ 49,50,51,52,53,22,23,24,55,56,57,58,59,60,61,62'Ҁ I0 15'܍ CC(I)( CC(I16)CC(I)( I( 560(%:(;:***************(P: PAINT CIRCLES(f":***************(u, I0 19(6R8I8(@CI 15(J(160,96),R,1(T (156R,96),C,1(^ (164R,96),C,1(h I(r:(|:****************): PAINT THE LINES): BETWEEN CIRCLES)5:****************)D I0 19)_(160,96),8I8,I 15)g I)n:):***************): LOOP):***************)ꁦ 560) 490):):***************): SUBROUTINE TO*0 I 0 15: I,CC(IK): I*$: CHANGE PALETTE*:&:****************Y0 I0 15: I,CC(IK): I*i:K(K1) 15*oD*vN:*X:****************b: RESET PALETTE*l: ON BREAK*v:**************** * : SUBROUTINE TO*0 I 0 15&# :***************************&E:* "WAGON WHEEL" *&g:* DEMO TO SHOW USE *&(:* OF PALETTE REGISTERS *&2:* IN ANIMATATION *&<:*BY RICK ADAMS & DALE LEAR*&F:***************************&P:' Z:**************'d: SET UP'.n:**************'=x &HFFD9,0'E 2'N(1)'Y 0,24'`:'}:**********************': DRAW OUTSIDE OF WHEEL':**********************' (160,96),90,0' (0,0),0,0':':**********************(: DRAW SPOKES(K148(::**********************(J I0 K1(`X90(I3.14K)(v"Y90(I3.12K)(, 214(I14(I14)),1(6 (160X,96Y)(160X,96Y),(@ I(J I1 30(T (160,96),I,0(^ I(h:) r:**********************)"|: SET ALL PALETTE)9: COLORS TO WHITE)K: EXCEPT ONE)h:**********************)w I1 15) I,255) I):):************************): ROTATE WHEEL BY SETTING): ONE PALETTE REGISTER*: AT A TIME TBLACK*$:*************************,K2*7KKK1*J KK16 KK2*] K,255: KK,0*f&KKK*q0 520*x::*D:**************************N: RESTORE PALETTE ON BREAK*X:*************************b *lT*: AT A TIME TJ&':ZOOM/STRETCH,1985 BY RON ROPSON&?8:4,5:200,&H7F00&M PC&H7F01&yAPC16 PC186:B$:A,("&H"B$):A'9 80,40,20,10,8,4,2,1,0,0,31,8C,F3,5F,B6,0,19,83,18,0,1F,3,83,18,0,1F,1,A6,32,C6,20,3D,30,8B,A6,3E,A7,3A,C6,20,3D,33,CB,A6,30,E6,3C,E7,38,ED,28,8D,28,A6,3E,A1,3A,27,F,8D,20,A6,3E,A1,3F,27' 67,6C,3E,33,C8,20,20,EB,A6,32,A1,33,27,5A,6C,32,30,88,20,EC,36,E3,3A,ED,3A,20,D6,5F,A6,28,A7,30,A6,29,A7,3C,ED,38,8D,22,A6,3C,A1,38,27,C,8D,1A,A6,3C,A1(| 3D,27,32,6C,3C,20,EE,A6,30,A1,31,27,28,6C,30,EC,34,E3,38,ED,38,20,DC,A6,30,1F,89,44,44,44,C4,7,E6,A5,E4,86,27,F,A6,3C,1F,89,44,44,44,C4,7,E6,A5,EA,C6,E7,C6,39(-100(2A$:A$""50:)Kd:@13,"MENUE","<1> ZOOM/STRETCH","<2> CLEAR DEST. SCREEN","<3> VIEW ORIGIN SCREEN","<4> VIEW DESTINATION SCREEN","<5> TRANSFER DEST TO ORIG":A:A 200,300,400,500,600)Zn50:100)Ȟ:"ORIGINAL RECTANGLE: X1,Y1,X2,Y2";X1,Y1,X2,Y2)҅X1255Y1191X2255Y2191200)܉"DESTINATION RECTANGLE: X1,Y1,X2,Y2";X3,Y3,X4,Y4*X3255Y3191X4255Y4191220*_RH(X4X3)(X2X1):H2(RH(RH))256:RV(Y4Y3)(Y2Y1):V2(RV(RV))256*PC,X1:PC1,X2:PC2,Y1:PC3,Y2:PC4,RH:PC5,H2:PC6,RV:PC7,V2:PC12,X3:PC13,X4:PC14,Y3:PC15,Y4*4,5:1,1:(PC26):*,4,5:1,1:0:+ 4,1:1,1:+4,5:1,1:+IX4,1:1,1:A14: (A4) (A):A:400:V2(RV(RV))256*PC,X1:PC1,X2:PC2,Y1:PC3,Y2:PC4,RH:PC5,H2:PC6,RV:PC7,V2:PC12,X3:PC13,X4:PC14,Y3:PC15,Y4*4,5:1,1:(PC26):*,4,5:1,1:0:+ 45 GOSUB2000:GOTO100 2000 GOSUB400:PCLS0 2005 'DRAW FLOWER 2010 CIRCLE(100,70),36,,.75:PAINT(100,70),1,1 2020 FORT=.15TO6.29STEP.6283:X=50*SIN(T)+100:Y=37.5*COS(T)+70:CIRCLE(X,Y),16,,.75:NEXTT 2030 CIRCLE(110,128),66,,.75,.75,.2 2040 CIRCLE(215,128),40,,.75,.5,.7 2050 CIRCLE(160,101),40,,.75,0,.2 2060 CIRCLE(132,150),30,,.75,.88,.08 2070 CIRCLE(177,145),30,,.75,.38,.58 2090 'COPY FLOWERS TO SCREEN 2100 GOSUB300:FORA=1TO12:X1=0:Y1=0:X2=255:Y2=191:READX3,Y3,X4,Y4:GOSUB240:NEXTA:GOSUB50:RETURN 2110 DATA0,0,48,36,32,12,132,87,118,0,198,60,208,16,255,52,12,64,72,112,144,48,255,140,112,56,160,92,64,80,144,152,16,132,64,168,132,116,212,176,208,144,255,180,84,156,132,191 ORA=1TO12:X1=0:Y1=0:X2=255:Y2=191:READX3,Y3,X4,Y4:GOSUB240:NEXTA:GOSUB50:RETURN 2110 DATA0,0,48 45 GOSUB3000:GOTO100 3000 GOSUB400:PCLS0'5STAR 3010 C=1:X=128:Y=5:FORT=0TO6.3STEP.6283:A=X:B=Y:X=128-SIN(T)*121*C:Y=96-COS(T)*91*C 3020 IFC=1THENC=.39ELSEC=1 3030 LINE(A,B)-(X,Y),PSET:NEXTT 3040 GOSUB300:FORA=0TO100STEP25:X1=0:Y1=0:X2=255:Y2=191:X3=A:Y3=A*.75:X4=255-X3:Y4=191-Y3:GOSUB240:NEXTA:GOSUB50:RETURN 1:X=128:Y=5:FORT=0TO6.3STEP.6283:A=X:B=Y:X=128-SIN(T)*121*C:Y=96-COS(T)*91*C 3020 IFC=1THENC=.39ELSEC=1 3030 LINE(A,B)-(X,Y),PSET:NEXTT 3040 GOSUB300:FORA=0TO100STEP25:X1=0:Y1=0:X2=255:Y2=191:X3=A:Y3=A1& : DRAW A FACE&,: BY ANN B. MAYEUX&@: KEY WEST, FL&(Z$" ":U$" <^> TO CHANGE ":Y$" TO CLEAR SCREEN"&2:*SHAPE&<3,1::1,1:MG$"BM5,0R245D190L245U190R200D40R45":MG$'~F"BM20,20U10R5F2D6G2L5BR13U10R6F2DG2L6R5F3D2BR6U6E4F4DNL8D5BR7NU10E4NUF4NU10BR20U6E4F4DNL8D5BR20U10NR7D5NR5D5BR13U6E4F4DNL8D5BR15BU2G2L4H2U6E2R4NF2BR9NR7D5NR5D5R7":90'P(209,3)(248,38),,BF:($Z"BM210,9R3U3L3U3R3;BR4D6U3R4U3D6;BR4U4E2F2DNL4D3;BR4U6R4D3L4D3;BR8U6R3BD3L3D3R3":(226,20),10,,.8,.41,.1:"BM218,24F3D4F3R5E3U4E2U"(SdA$:A$""100 : (10,10)(200,30),,BF(inA$"C"F1:230(xA$"O"F2:270(A$"L"F3:240(A$"R"F4:250(A$"S"F5:260(A$"B"F6:220(A$"/"200(100) F 230,270,240,250,260,220)Ȟ:0,0:@74,"SHAPE"::Z$" BABY":Z$" CADAVEROUS":Z$" LONG":Z$" OVAL":Z$" ROUND":Z$" SQUARE")҅""210 :1,1:100*7(121,73),49,,.8,.42,.1:(96,106),21,,1,.32,.61:(146,106),21,,1,.89,.2:(121,123),19,,1,.13,.37:"BM90,124M110,135BR22M153,123":290*s(120,76),47,,1,.4,.12:"BM87,102D20F20R28E20U20":290*(120,85),43,,1.5,.95,.6:(120,67),41,,1,.5,0:290*(120,82),51,,1,.3,.2:(122,119),20,,1,.1,.41:290+<(120,60),47,,.65,.48,.02:(120,120),35,,.6,0,.5:"BM167,62M154,120BL68M74,62":290+(120,80),48,,1.1,.45,.05:(120,119),30,,.9,.1,.4:"BM167,94M143,136BL45M74,94"+:*EARS,"80:"C8BM215,17U6R4BD3L4D3R4;BR4U6R3D3NL3D3;BR4U6R4D3L4RF3;BR4R3U3L3U3R3BM232,27E2RF2D3G2LH2BL11G2LH2U3E2RF2",t,R$"R2E2R3F2D14G4L3H4":L$"G4L3H4U14E2R3F2R2":B$"R2E3R4F5D14G4L7H6U2":I$"D2G6L7H4U14E5R5F3R2",6S$"R5E10D25G8L4H8":P$"G8L4H8U25F10R5":RB$"RE3R4F3D8G3L4H3":LB$"LH3L4G3D8F3R4E3",@Q1E0630: E 440,530,580,490-JQ0:A$-TA$"E"E1:440-0^A$"S"E2:530-FhA$"B"E3:580-\rA$"L"E4:490-l|A$"N"630-}A$(12)-A$"/"420-330.:0,0:@74,"EARS"::Z$" BIG":Z$" NORMAL":Z$" LITTLE":Z$" NONE":Z$" POINTY SPOCK":@448,Y$.+""430 :1,1:330.PF1F6"BM164,83XR$;BL83XL$;".q…F2"BM166,84XR$;BL87XL$;".̅F3F5"BM161,85XR$;BL77XL$;".օF4"BM169,82XR$;BL93XL$;".Q2290:630.F1F2F6"BM78,87XLB$;BM163,87XRB$;"/!F3F5"BM81,90XLB$;BM159,90XRB$;"/GF4"BM75,90XLB$;BM165,90XRB$;"/YQ2290:630/~F1F5"BM162,86XS$;BL73XP$;"/F2F6"BM165,84XS$;BL79XP$;"/&F3"BM162,83XS$;BL73XP$;"/0F4"BM169,80XS$;BL87XP$;"/:Q2290:6300DF1F6"BM164,83XB$;BL80XI$;"0=NF2"BM166,85XB$;BL86XI$;"0bXF3F5"BM161,87XB$;BL75XI$;"0bF4"BM169,82XB$;BL90XI$;"0lQ22900vF4640:"BM149,127D20F20BL97E20U20":6500"BM150,121D15F20BL100E20U15"1G80:"BM216,16U6D3R4U3D6BR4U6R4D3NL4D3BR4NU6BR4U6R4D3L4RF3;BM218,30U6E3R12F3D6L2U2H2L10G2D2L2"1S:*HAIR1]A$1nA$"A"10201~A$"B"9401A$"C"10801ƅA$"D"11301ЅA$"H"10601څA$"I"9801A$"L"10401A$"M"10101A$"N"B1:11502 A$"O"11102 A$"P"9202,A$"R"11202< A$"S"9902L*A$"W"9702\4A$"/"8602m>A$(12)2HA$(94)8902R6703D\:0,0:@74,"HAIR"::" AFRO LONG BOYS MIDDLE PART CURLY NONE DUTCH BOY OLD FRINGE STRAIGHT

PUG":Z$" STRAIGHT":Z$" WIDE":@416,U$"MOUTH":Y$IF""2190 :1,1:2070I"BM112,110U2E2R2FNU4BE2R5BF2NU4ER2F2D2BL5LBL7L":2260I"BM120,95D12BF3R2BL8L2":2260I"BM124,107F3BL4LBL4LBL3E3":2260I(120,104),8,7:(120,105),7,7:2260J""BM118,95D10G2D4E1R1F1R2E1R1F1U4H2U10"J.:*ETC.Jiԁ80:"BM218,20U6R4BD3L4D3R4BR6U6L2R4BR4NR4D6R4BR4RUL"JsA$JA$"B"2500JA$"C"2480JA$"E"2580J A$"H"2490J A$"S"2520J A$"R"2530J $A$"G"2540J .A$"M"2550K 8A$"N"2560K BA$"F"2590K. LA$"T"2600K? VA$"V"2610KP `A$(12)Ka jA$"@"2620Kr tA$"/"2450K ~A$(94)(110,112)(130,95),,BF:2060K 2270L :0,0:@10,"ACCESSORIES"::" BEARD MUSTACHE CHEEKS NECKLINE EARRINGS HAIR BOW FROWN SHIRT GLASSES TIE HAT VAMPIRE CAPE"L @384,U$"NOSE":"<@> STOP DRAWING AND ENTER NAME "Y$L ""2470 : 1,1:2270MB "BM96,105U3E3R3F3D3G3L3H3BR41U3E3R3F3D3G3L3H3":(99,105),8,8:(145,105),8,8:2270M B1:(120,55),70,7,.26,.8,.7:(120,45),40,7,1,.45,.05:(120,50),7,7:2270M BD$"BM86,76D33F22R24E22U33R9D45G30L25H30U45R9":B12510:(124,54),8,8: *BEARD*N "C7XBD$;C8":(120,140),8,7:BD$:2270NM "BM90,138F30D10U10E30D15G20H10G10H20U15":2270N B1:"C6BM116,40H8L10G2D18F2R10E8R6F8R10E2U18H2L10G8L6C8":(116,43),6,6:2270N (102,91),14,7,.7:(138,91),14,7,.7:"C7BM79,80F10BR27R10BR27E10C8":2270O& "BM98,118E6R32F6H6L4G1L18H1":2270:**MUSTACHE**O` F4(120,120),40,,.7,.1,.4:(120,130),40,,.7,.1,.4Ok 2270O (75,105),5,6:(169,105),5,6:2270O "BM118,82D5BR5U5":2270O ("BM108,156C6RF7E2R4F2E7RD16LH7G2L4H2G7LU16C8":(120,163),6,6:2270P~ 2"C7BM47,167E25H15R30M97,152G15L35BR149H25E15L30M144,152F15R35C8":(82,157),7,7:(148,152),7,7:H991457:(H,152),4:H:2270P <(200,1)(249,50),,BF:(6,185)(245,170),,BFP F"C5BM0,185BR85C6":L85Q PL10L10:15,1:"BM10,185":L2401,1:2820Q ZA$:A$""2650Q) dA$"@"2620QB nA$"^""C8":2270Q xA$"A""M+0,0U10E4F4D3NL8D7BR9":A$"B""M+0,0U14R5F2D2G2L5R6F2D4G2L5BR16"Q A$"C""BM+3,0H3U8E3R2F3BD8G3L2BR13":A$"D""M+0,0U14R5F3D8G3L5BR17"R2 A$"E""M+0,0U14R8BD7BL2L6D7R8BR8":A$"Y""BM+4,0U7H4U3BR8D3G4D7BR12"R A$"V""BM+0,-14D10F4E4U10BD14BR8":A$"I""M+0,0R2U14L2R4BD14L2BR9":LL4R A$"M""M+0,0U14F5E5D14BR8":LL2:A$"O""BM+3,0H3U8E3R2F3D8G3L2BR13"S1 A$"L""NU14R8BR8":A$"N""U14M+8,14NU14BR6":A$"R""M+0,0U14R6F2D3G2NL6F2D5BR8"S A$"Z""M+0,0BU14R8D3G8D3R8BR8":A$"T""BM+4,0U14L4R8BD14BR8":A$"H""M+0,0U14D7R8U7D14BR8"S A$"F""M+0,0U14R8BD7BL2L6D7BR16":A$"G""BM+2,0H2U10E2R4F2BD6NL3D4G2L4BR14"T^ ȅA$"J""BM+3,0NH3R2E3U11BD14BR8":A$"K""M+0,0U14BR8G8E4F4D6BR8":A$"P""M+0,0U14R4F3D3G3L4D5BR16"T ҅A$"Q""BM+3,0H3U8E3R3F3D8G3L3R2BU4F4BR8":A$"S""BM+0,-3F3R2E3U2H3L2H2U2E2R3F3BD11BR8"U3 ܅A$"U""BM+0,-14D11F3R3E3U11BD14BR8":A$"W"LL2:"BM+0,-14D14E5F5NU14BR8":A$"X""M+8,-14BL8M+8,14BR8"U~ A$(8)"BM+0,0BL17":LL32:A$(32)"BM+0,0BR17":A$(12)U A$".""BM-2,0RULDBR8":A$"/"2860U LL16:2640U A$U A$"@"2620U A$(12)U "2820V ,:0,0:@42,"ENTER NAME"::" IF THE NAME IS 4 OR 5 LETTERS LONG, JUST TYPE IT IN. IF IT ISLONGER, HIT LEFT ARROW ONCE FOR EACH TWO LETTERS MORE THAN 5."V 6:" WILL ENTER A SPACE.":" <^> WILL TAKE YOU BACK TO ACCESSORIES.":Y$W @""2880:1,1:2650:" IF THE NAME IS 4 OR 5 LETTERS LONG, JUST TYPE IT IN. IF IT ISLONGER, HIT LEFT ARROW ONCE FOR EACH TWO LETTERS MORE THAN 5."V 6:" WILL ENTER A SPACE.":" <^> WILL TAKE YOU BACK TO ACCESSORIES.":Y$W @""288&:& &VA$"INVERNESS, FL,32650JOSEPH KOLAR1709 DICKINSON STREET"&kL(A$):@14,L;&(@32,(A$,20,12)&2@64,(A$,21)&<@96,(A$,5233)&F44539&P@0,""&d100~&:& 500&" &;D$"BETTY ANN WHITE"&S@8,(D$,5);:500&k( (D$,6,5);:500&2(D$,5):600&<:***&FA$"BETTY":B$" ANN ":C$"WHITE"&P@832,A$;:500&Z B$;:500&d C$:600&n:***&x8)A$;:500'13)B$;:500'#17)C$:600'-:***'A@896,A$:500'V@1396,B$:500'k@1896,C$:600'u:***'ȇ@8128,(A$,1,5);:500'҇@13128,(B$,1,5);:500'܇@18128,(C$,1,5):600':***'@8160,(A$,5):500(@13160,(B$,5):500(-@18160,(C$,5):600(7:***(S@8192,(A$,5);:500(p"@13192,(B$,5);:500(,@18192,(C$,5):600(6:***)*@:" USING THE THREE VARIABLES, A$;B$;C$; YOU CAN CENTER THE NAME, WITH PREGNANT PAUSES BETWEEN VARIABLES, USING A VARIETY OF TECHNIQUES.)OJ:" SOME ARE A WASTE OF TIME!")ZT 340)l Z1200::)}XZ1500::(C$,5):600(6:***)*@:" USING THE THREE VARIABLES, A$;B$;C$; YOU CAN CENTER THE NAME, WITH PREGNANT PAUSES BETWEEN &): TALKING PUMPKIN BY HM LaBONVILLE&L: ADAPTATION OF DAVE HOOPER'S&l: DRAWING FROM THE RAINBOW&: OCTOBER 1982 (PAGE 104)&: AND MIKE KELLER'S ARTICLE &: FROM 80-MICRO (OCT82 PAGE104)&8&9&8:4::7& 3,1' : DRAW PUMPKIN'H : LINES 10-80 ARE IDENTICAL TO HOOPER'S LINES 10-85'[(128,96),90,7'm(128,96),7,7'(128,96),45,1,2'(128,96),30,1,3'#(128,96),58,1,1.6'((128,96),80,1,1.1'-(128,96),10,1,9'2: EYES-NOSE(7"C8;BM68,68E16F16L32"(<(84,64),0,8(3A"C8;BM156,68E16F16L32"(EF(172,64),8,8(aK"C8;BM112,92E16F16L32"(sP(128,88),8,8(U: COPY BODY, EYES AND MOUTH TO PAGES 5 TO 8(Z15:26:37:48(_: CLOSED MOUTH(d(128,96),52,8,1,0,.5)i(128,59),77,8,1,.160,.35)n(128,142),8,8)4s"C7;BM92,122D8R8U5")Fx(96,126),7,7)`}"C3;BM124,6U4R8D4L8")q(128,4),3,3)"C7;BM165,120D10L8U7")(161,128),7,7)"C7;BM120,148U8R16D9L16U1")(128,144),7,7)3,5): OPEN MOUTH*): LINES 165-215 ARE IDENTICAL TO HOOPER'S LINES 90-135*C(128,96),52,8,1,0,.5*a(128,21),91,8,1,.160,.35*t(126,124),8,8*"C7;BM88,100D8R8U5"*(92,104),7,7*"C3;BM124,6U4R8D4L8"*(128,4),3,3*"C7;BM164,100D10L8U7"*(160,104),7,7+"C7;BM120,148U8R16D9L16U1"++(128,144),7,7+2ܡ+X: DISPLAY CLOSED-MOUTHED PUMPKIN+f4,1:1,1+tX150:+: OPEN MOUTH IF JOYSTICK BUTTON PRESSED+ (339)255245+4,5:1,1+X1100:+2308U7"*(160,104),7,7+"& :SPECTRUM&&:BY BILL BERNICO&>:708 MICHIGAN AVE.&X(:SHEBOYGAN, WI 53081&m2:(414) 459-7350&<:IDEA BY DAVID POLONSKY&F:&PR$(191):Y$(159):B$(175):BL$(128)&Z0:@71,"RED";:@76,"YELLOW";:@84,"BLUE";'d@102,(5,191);(8,159);(6,175);'n@165,"CHOOSE ANY two OF THESE";:@197,"COLORS TO SEE WHAT COLOR";:@229,"THEY MAKE WHEN COMBINED.";'x@323,"CHOICE 1 (R,Y,B):";: C$(1):191,1'@387,"CHOICE 2 (R,Y,B):";: C$(2):150,1' C$(1)C$(2) 90(% C$(1)"R" C$(2)"B" C$(3)(239):210(U C$(1)"R" C$(2)"Y" C$(3)(255):210( C$(1)"Y" C$(2)"R" C$(3)(255):210( C$(1)"Y" C$(2)"B" C$(3)(143):210( C$(1)"B" C$(2)"R" C$(3)(239):210)ȅ C$(1)"B" C$(2)"Y" C$(3)(143):210)҇@344,BL$BL$BL$C$(3)C$(3)C$(3)C$(3)C$(3);:@377,"="BL$C$(3)C$(3)C$(3)C$(3)C$(3);:@408,BL$BL$BL$C$(3)C$(3)C$(3)C$(3)C$(3);)܁ 230: 90)@484,"HIT ANY KEY TO CONTINUE";:44539: C$(1)"B" C$(2)"Y&: :@196,"---SPACE-CITY (RAID!)---":J12553:J,1:&f4::1,1:J1300:((255),(191)):&J17:(12,185),J,,15:(28,187),J,,10:(45,195),J,,8:(62,225),J,,12:(238,187),J,,13::255,50'm(J125:(180,20),J,,.200::1,50:150,8:50,1:(180,20)(30,120),:(180,20)(30,120),:1,50:150,8:50,1:(180,20)(245,150),:(180,20)(245,150),:1,50'2200,20:(10,100)(170,20),:(10,100)(170,20),' TO "(i""2. RENAME TO "(,"3. RENAME TO "(6"4. RENAME TO "(@"5. RENAME TO "(J"6. RENAME TO ") T"7. RENAME "),^@185,"pick a";:@217,"number")9h1213,32)QrO$: O$"" 370)t| O$"1" OE$"BIN":NE$"MAX") O$"2" OE$"MAX":NE$"BIN") O$"3" OE$"BIN":NE$"PIC") O$"4" OE$"PIC":NE$"BIN"* O$"5" OE$"BIN":NE$"PIX"*# O$"6" OE$"PIX":NE$"BIN"* O$"7" @352,"";:"OLD EXTENTION";OE$:@352," ":@352,"";:"NEW EXTENTION";NE$*O(O$)*̅ O1 O7 370*և@352,"RENAME (1)ALL OR (2) INDIVIDUAL?";*R$: R$"" 480+ R$"1" A1:520+( R$"2" A2:520+2480+T@448," (ENTER)= 0"+a1471,95+@416,"";:"ENTER DRIVE NUMBER (0,1,2,3)";K+& K0 K3 530+0 K+:(B)+D800+N:RENAME INDIVIDUAL FILES+X@392,"enter the number";,b@425,"of the picture";,0l1425,32:1421,32,Xv1448,32:1451,32:1455,32:1463,32,s@456,"to be renamed";,1482,32:1485,32:1493,62,1494,32:1495,32,@488,"type (q) to quit";,1516,32:1517,60:1519,62:1520,32:1523,32-@470,"";: "";F$-(T14961503: T,62:-<ƅ F$"Q" 1140-IF(F$)-_څ F1 FC 660-h(B)-@192," ";PIC$(F);" IS NOW BEING RENAMED"-P$PIC$(F)"/"NE$- PIC$(F)"/"OE$ P$- 800-600- :GET FILE NAMES.* X 3 11.4 K,17,X,A$,B$.6> ((A$,1)(&HFF)) 850.RHC$(X)A$(B$,127): X.`RXX1:C1.z\ Y 3 X: Z0 7.f (C$(Y),Z329,3) OE$ 920.pPIC$(C)(C$(Y),Z321,8).zL$(PIC$(C),1). (L$(0) L$(&HFF)) 920/CC1/ Z: Y/! A1 1030/+CC1/< C0 1470/NMID(C2)1/]ʞ(B):TAB1/mԀ D 1 C/އ@TAB,"##";D;:".--> ";PIC$(D);/TABTAB32: DMID TAB16/ D//:RENAME ALL FILES/D1 C1/ C1 147008$@224,"<"OE$"> FILES NOW BEING RENAMED TO<"NE$"> FILES."0O.P$PIC$(D)"/"NE$0j8 PIC$(D)"/"OE$ P$0qBD0wL0}V0`@384,"ALL <"OE$"> FILES HAVE NOW BEEN RENAMED TO <"NE$"> FILES."0j11600t:11~@384,"ALL SELECTED <"OE$"> FILES HAVE NOW BEEN CHANGED TO <"NE$"> FILES."1~@448,"DO YOU WISH TO DO ANOTHER DISK? (yes/NO) ";1T1300:1@448,"DO YOU WISH TO DO ANOTHER DISK? (YES/no) ";1T1300:2A$: A$"" 11602 A$"Y" 22020ą A$"N" 1230 : 12002BΒ113,0:409992U:INSTRUCTIONS2^(B)2" INSTRUCTIONS ";3" MANY NEW GRAPHIC PROGRAMS HAVE COME ON THE MARKET RECENTLY THATUSE EXTENTIONS OTHER THAN THE STANDARD . THERE MAY BE ";3y"TIMES WHEN YOU WOULD LIKE TO USEA FILE FROM ONE BUT IT HAS TO BERENAMED BECAUSE OF THE EXTENTION";3 "DIFFERENCE. MANY TIMES YOU MAY WISH TO WORK ON A FULL DISK OF FILES BUT YOU WOULD HAVE TO GO ";4+"AND RENAME EVERYONE. WELL THIS PROGRAM WILL HELP YOU OUT. ";4Y@448," PRESS SPACEBAR TO CONTINUE ";4d(445394m2(B)4<" PICTURE FILE EXTENTION CHANGER WILL CHANGE THOSE EXTENTIONS FORYOU. THE PROGRAM IS MENU DRIVEN AND VERY EASY TO USE. YOU HAVE A";5:F"CHOICE OF RENAMING ALL OF THE FILES OR SOME OF THE FILES. "5P" IF YOU CHOOSE TO RENAME ALL THEFILES IT WILL CHANGE EVERY FILE ON THE DISK SO CHECK TO MAKE SURE ALL THE FILES ON THE DISK ARE PICTURES."5Z:6d@448," PRESS SPACEBAR TO CONTINUE "6n445396x(B)6" IF YOU CHOOSE INDIVIDUAL YOU CAN PICK WHICH ONES YOU WANT TO CHANGE. BASIC FILES ARE IGNORED IN BOTH CASES."6" THAT IS ABOUT ALL YOU NEED TO KNOW. I HOPE THIS PROGRAM IS AS HANDY TO YOU HAS IT HAS BEEN FORME."7 ::::75@448," PRESS SPACEBAR TO CONTINUE "7@445397K 2207V(B):7ȇ:"THERE ARE NO <"OE$"> FILES ON DISK"7ҀT14000::2207:TITLE PAGE DATA7 X&H7E00 &H7E957 H$: X,("&H"H$):8 9E,33,30,6,10,8E,5E,0,86,8,A7,8C,3A,86,6,A7,8C,348S A6,80,80,30,48,48,48,59,6A,8C,29,27,E,6A,8C,25,268 F4,E7,A0,C6,8,E7,8C,1C,20,EB,86,6,A7,8C,14,A6,80,26,A8 A6,4,81,22,26,C,30,5,A6,80,80,30,48,48,20,D9,0,09" 8E,5E,0,10,8E,E,0,A6,80,A7,8C,42,6F,8C,40,A6,80,A1,8C,3A9B, 26,F,E6,80,A6,80,A7,A4,8D,10,8D,1D,5A,26,F7,20,4,A7,A496 8D,5,8D,12,27,E2,39,10,8C,25,E0,24,4,31,A8,20,39,31,A99@ E8,21,39,6D,8C,F,26,B,10,8C,25,FF,26,3,6C,8C,4,1A,4,399J Z:&H7E009T9^1:h"j^X40>ZB3nX40>XR3nX80>XIoocmo?cZ3OoloOcljPgojSOljP[oo?Wbm^C:[r"Z1>cTi_;an?cZ1ooZ103Z8_oZ203Z6Ol0of1PIVMVI65oHF1TIVMWIV3o00:|"3Z3Ol00>X:onX4o^XOooc``>X50>X:ocl0?V5QHV1PI6EQ?000?nX7onX40:"?ooo_cmoOclooooo?glo>XConX80>XIo`o7ifLW00NAT9bNWQl7YRIThLL0;"0>X=o`00jP[o7`l10020h?3`l>3Ph<2`^;RHh?cloOgno_oon?SoookPP>X;_"90>X:o`m78cX=o`00h>X4l>X8n60H10?Z100LOWUgK;"fl_=cTmoOcm3NGSL003l`D11PL71`010@000>X;ooklnO_inOgmoOWkn?SZ<""2?oZ103ooglo?`2OjPBaXConX80>XKoo3di0`o30cZ2>`_9b0`jPgc@Z60Kooi0000jP_o08<"oZ19VKSH6AcP00jPSojP@0jPGo?aoZ19lO7cmojQ?ojPP0jQko?SPc=^K\k<"nc\k0I7P`0H?^X=o`0000P8420Q@T;Z1H@40024Q8@4onX40=blO9RHn?Sm=&"oO]i<023klR69UShn7RHh?P0003Z2ol07[>c\ijc\k011nX=o`000210P80000410`<71`l?3alO7ogZ1@0O7="fm_ccoZ1?lO?oooo`;Z303Z2om0729PK7KZ16Hl003Z2?oZ103oo`o?cl3?>*"jPCHfLn001loOnX@onX80?oo0o0<1^;cno_cIPkll003oooZ13oZ1ooPbA]>k"l61SZ1UTHOP00jPgo000?3aloOgoZ3_mo7`l?7nX@oclo0NX90>X"X9onX40>X5o`2b<_>&"h20jPOo1n?a>AVIjPKI67h00>X=o`41jRci6@Ta@D7Z107Z8?oZ103Z1Ol7?.0"IfMWHNUaH@<7jQ?ojPP0jPOon>?c\IRL3`

>X4on7YbAQn61S?o:"Z1]WHf5m>@63Z3oollNO[jn?Sno_khnoPh>Y7onX40?ool>O[jn;Rn_[jh^?D"cPh>XConX80>X6ooh0hg0`4X;2o_k2TS;RPPHOooo`m_K`l7QbIVkVi^X4m?N"QJF1Ql0@>X?ocl4hC4`QhJFY\H00>Y7onX40?ooOgmo07@l"c5bM7SaGP00?lOWalO?cmoOglo?anO7aoooooZ203Z1ol6iVIVjPIWHW0o7@v"X30jPOo1n4H34cVi_Kfi^a<6>011nXCo`=c\c<`=3P`0@?ZAooZ103Z1Ol0A6"nH^CXlN;l@00oon2X7o`KTHF=QHNX4IF7Aw"aHD<02>X7on396g`H6>X6FAQn003Z8_olnO?gjPKcl?SZ=_oZ103ohEZD003oo`oZ2\n?3aloOooZ203Z1ol0W;k6P83Z1Yn7i`L7jPOo1A"n?a>AVIjPKI67h00>XRoclo0XQon68?eUI6AoHf=PHO`00B:"jPOojP@0ogmnO7gmo?cojP@oOooon?[bm>CXb=6AXj>7QnX5onX80>X7oo1B{"7630`H7mPH69n7`?3Z4ooZ17oZ9?lOcnX4Kln?3aoZ1OolnO[jn?Sno_B"khnoShjQ3o80bLS8`"o^Xho`c1hoFiTH61WIdM73cZ4?n3jPJccAd=1B8`>7^X4onX80>XIoo37V31QHlO7jPG?afC"MSOYjN7QjPGmnN;\h>3Z1?oZ1D"03Z1Ol0?69P?8I6?000ool?chn?jPNO7aoZ1?oZ203oon3_hn?Z3O_Skn3PDB"ool7hW0a4832jPOn`Y8bL><00>Xfo`3SIF1Pj75R003Z3oo`19n\[8b?jPBD"<_`00?goZ1OoZ103ooon79f3iHf5QIFUa003oQj>AVLSc\b=RAXH>7ooD "oojPP0ool0oPL3`E"?<00>Xfob49TN5S\1X<063Z3ool0NL[2`>36`>C8lh00>X7onX40>X5o`2cEF "ah>3Rl^921cZ4ooZ203oof0\;20P<2CX7oclLRL_;b3\hN>X7onX40>E4"X5o`0H6ATI>efH003Z4ooZ203ooo3Tc=cX;k0`o003Z1ol0O8h61PhfaF >"XH63Qkg``08jPgo003Z17X2o`82NWYjN03l00;Z17X2o`82jPAj0_l20^X4FJH"NP;o0P;Z17X2o^X70>X;o`m0o\;0`?W1`Lo?S`lOjPOojP@0ooooo_`1nhVFR"1PHVAh@04jQ?ojPP0jPOon>?>X7ooQbAUm6A^X5MQF\"J67`00jPgo003Z17X2o`82NWYj>P830000@61P0<00001PL70``000Ng]iNG f"0;o001jNWQ0jPT0jPcoOWamO7cZ2?kZ1ooZ103ooo0DU83VSXJ6UZK7003ZGNp"4ooZ203Z1ol?`gX=o`0Gz"0061PH03P003Z1700l00`20H10000>?cbkmoOGfmbNo_hna\;a`001fL;0PG"d>3`l00`<00>Xc\k0a003Z1ooZ103Z1Om07c4a=XConX80>XNo`OP?1RHf9P`h082l?H"PL3<`Hh047jPWo0008210@8D52Q8CZ1PP000P820WnjP@0^7Sh<37`l?[jlI"_9P00;JT0a<\?3`l330l000jP_oh0kZ11Sh6API6Q`0@>X7onX40>X5o`37IV"cS7003Z4ooZ203Z7_oPSc5PH<3o`<37HW0o3X3PjPgo000P@420jP@I"0jP@23`826QXj>P;kjPD0>P;O`X;Z17X2?`82NW[Z303Z2omo0GRHV1PHfAI"PI6Qa0`>X7onX40>X5oan?C`n?cln?3aoZ4ooZ203Z7_ll2L?7Hf?S0`>38J"l>31a1`jPgo00022QX2O`82jPAj0_l20^X4NP;o0P8J6SYj0_l20^X4NP;oJZ"0P;Z17X20nX80>X`\;0`h087Z1ooZ103ool2N8d<31^cXh>7J"YhN7Z4ooZ203Z7_l1>7b<003Z1Sl?c`l?jPgo0NX4N@7m0@7Z17T1o@41jPJ"Ai0Od10NX4N@7m0@7Z17T1o@41NGUiL@7a0@5QPH410@7Z2ooQ2;mHF1POfK "=SI67l00>X7onX40?ooOnX6?goZ6?oZ203ZO_l?cdl?3clo1bM7Q`lOjPOoK@ "jP@0jR;ojPP0jY;`jP@0jR;`jP@0Y1ooZ103ool2N8d<31^cXh>7J"YhN7Z4ooZ203Z7_l1>7b<003Z1Sl?c`l?jPgo0NX4N@7m0@7Z17T1o@41jPJ"Ai0Od10NX4N@7m0@7Z17T1o@41NGUiL@7a0@5QPH410@7Z2ooQ2;mHF1POfK "=SI67l00>X7onX40?ooOnX6?goZ6?

PONY TAIL"3f" INFANT RED FRINGE SHORT GIRLS WIDOW'S PEAK":@416,U$"EARS":Y$3p""880:1,1:6703z"C5M+0,0":Q2: E 440,530,580,49033304 ""910 :1,1:6704VP$"E9R12F9D20F3E5D10G6L7H7U13H4L8":O$"H9L12G9D20G3H5D10F6R7E7U13E4R8"4F3F5"BM160,74XP$;BL85BU10XO$;":"BM165,70XP$;BL95BU10XO$;"4(96,6),68,,1,.15,.25:"BM163,83L6U6H5L3H10U8BD20BL45L6G3D6L6"5F2F4"BM169,83L9BL80L9"5 11505="BM163,83L5U13H12L11G15H15L11G12D13L5":9505HR$"R8F4D4G3R8E4U5H3":"BM75,86F3R7E2U4GL3H3U3E7R3XHR$;XHR$;XHR$;R9F5D10G2L3H2D4F3R5E6":9505(90,94),10,,2,.2,.65:(150,94),10,,2,.85,.4:"BM70,108E9BR80F9"6(80,108),13,,.9,0,.55:(160,108),13,,.9,.95,.5:9406W(92,34),33,,1,.1,.35:(145,32),33,,1,.15,.4:11506B1:H981466:(H,41),8:(H,36),8:H:H1081326:(H,50),8:H7"(88,43),8:(152,43),8:(85,48),8:(156,48),8:V53705:(80,V),8:(162,V),8:V:1150:CIRCLE(81,58),8:CIRCLE(161,58),8:GOTO7607V(40,139),22,,1.2,0,.3:(200,139),22,,1.2,.2,.57(120,105),66,,1.4,.45,.07:"BM206,162G5L30BL99L30H5":9407$(122,112),70,,.5,.65,.85:F1"BM166,84L6"7.9508#8B1:H911528:V37548:(H,V),11:V:H:H1001408:(H,30),11,,1,.5,0:H8WB(88,62),11:(151,62),11:(96,62),8:(143,62),88LV501058:(79,V),11:(160,V),10:V:V69998:(72,V),12:(169,V),12:V:11508VB1:"BM164,85L9H4U4E4R9BL85R9F4D4G4L9":115098`B1:H73905:V70753:(H,V),7:(240H,V),7:V:H:(80,65),7:(160,65),7:11509gjF4"BM74,73F5R79E9":"BM77,73F5R73E9" 9st:*EYES9~80:"BM215,16U6R3BD3L3D3R3BR8U3NH3E3BR4D6R3BU3L3U3R3BR7L3D3R3D3L3;BM216,29E3R3F3BR6E3R3F3BL4C6UBL13DC8"9A$9A$"B"1400: A$"C"1390:A$"E"1370:/A$"I"1380:@A$"L"1360:QąA$"M"1340:b΅A$"O"1410:s؅A$"S"1420:A$"T"1350:A$(12):A$"/"1300:A$(94)1330: 1160;:0,0:@42,"EYES"::Z$" BIG":Z$" CLOSED":Z$" OPEN":Z$" LITTLE":Z$" EYES WITH LASHES":Z$" MAD":Z$" SLEEPY OPEN":Z$" SURPRISED":Z$" TIRED";@416,U$"HAIR":Y$;(""1320 :1,1:1160;2:MG$:Q1:190;<"BM97,89R7C6D6U6C8F6BR20E6C6D6U6C8R7":1450<6FV$"FR9EBG3NL6BE3":"C6BM99,95XV$;BR21XV$;C8":1410(104,91),5,6:(136,91),5,6:(104,91),2,7:(136,91),2,7>B(104,92),9,,1,.5,0:(136,92),9,,1,.5,0>R:*EYEBROWS>80:"C8BM213,19U8R2F2G2NLF2G2L2BR8U8R3FD2GL3RF3DBR4U8R4D8L4BR8BU8D6F2E2NU3F2E2U6BM218,29E2R3FBR6ER3F2">Q0:"C8":A$>A$(12)>ȅA$"B"Y1:1700?҅A$"S"Y2:1660?)܅A$"I"Y8:1670?@A$"M"Y3:1690?WA$"N"Y9:1730?nA$"Q"Y4:1710?A$"A"Y5:1680?A$"T"Y6:1640?A$"C"Y7:1650?"A$(94)1630?,A$"/"1600?61460@@:0,0:@42,"EYEBROWS"::Z$" ARCHED":Z$" BUSHY":Z$" CLOWN":Z$" INFANT":Z$" MAD":Z$" NONE":Z$" QUIZZICAL":Z$" SURPRISED":Z$" TILTED"@J@416,U$"EYES":Y$@T""1620:1,1:1460@^(88,84)(150,99),,BF:1150Ah"BM90,90E8R5BR33R5F8":1730A=r"C7BM94,89E9ND5F9BR17E9ND5F9C8":1730Ax|(102,90),12,,1.1,.6,.9:(138,90),12,,1.1,.6,.9:1730A"BM98,85R11BR20R11":1730A"BM94,90E7R8F3BR17E3R8F7":1730A"BM100,81R7F9BR9E9R7":1730B"BM94,87E4R17FL18GR17BR12R17HL18ER17F4":1730B?"BM94,82E4R11F3BD5BR17E3R13F4":1730BL:*MOUTHB…Q21450:80:"BM209,17U6F2E2D6BR4U6R4D6L4BR8NU6R4U6BR4R4L2D6BR6U6D3R4U3D6;BM223,28F3NR6FR4E4"BA$BօA$"B"2000BA$"C"1960BA$"H"1970CA$"I"1980CA$"L"2030C"A$"M"1950C3A$"O"2010CDA$"S"1990CU&A$"T"2020Cf0A$"V"1940Cw:A$(12)CDA$"/"1890CNA$(94)1920CX1740D&b:0,0:@42,"MOUTH"::Z$" BIG":Z$" CLOWN":Z$" HAPPY":Z$" INFANT":Z$" LIPSTICK":Z$" STRAIGHT"DlZ$" OPEN":Z$" SAD/MAD":Z$" TEETH":Z$" VAMPIRE":@416,U$"EYEBROWS":Y$Dv""1910:1,1:1740DQ2:"C5": Y 1700,1660,1690,1710,1680,1640,1930,1670,1450EY7"BM94,89E9ND5F9BR17E9ND5F9":1450:1450EH"C7BM107,120R26L5D7H2U5L12D5G2U7C8":2060Em"C7BM110,118R20BG3L12C8":2060E(120,114),24,7,.7,.01,.49:(120,113),9,7,.7,.05,.45:"C7BM96,115U3E4R9F5BR14E4R9F4D3C8":(120,129),8,7E(120,115),16,7,.5,.05,.45:2060F7"C7BM112,121RE3UERF2E2RFDF3NRG3L8H3BR6R3C8":2060F\(120,120),13,7,.3,.5,.99:2060F"C7BM107,120E5R16F5G4L18H4R26C8":2060F(120,119),8,7:2060F"C7BM105,118F9R12E9L30R10C8D4R5U4D4R5U4":2060G(121,119),11,7,.5,.08,.47:(121,119),13,7,.7,.08,.47GA"C7BM108,119R10F2E2R10L2H3L4G3H3L4G3L2C8"GM:*NOSEG 80:"BM213,15U6F6U6BR4R4D6L4U6BR12L4D3R4D3L4BR8U6R3BD3L3D3R3BM227,27D4G2R6H2U4"GA$G A$(12)G*A$"S"2210G4A$"W"2200G>A$"C"2230HHA$"I" (117,109):(123,109):2260H,RA$"N"2240H=\A$"P"2220HNfA$"/"2180HpA$(94)(120,125),5,5:(105,110)(135,127),,BF:1730Hz2070I(:0,0:@74,"NOSE"::Z$" CLOWN":Z$" INFANT":Z$" NARROW":Z$"