1 LOMEM: 14080 5 GOSUB 10000: GOSUB 11000: GOSUB 16000: GOTO 135 10 REM <<< LEMONADE STAND >>> 15 REM - 12 -20 REM FROM AN ORIGINAL PROGRAM 30 REM BY BOB JAMISON, OF THE 40 REM MINNESOTA EDUCATIONAL 50 REM COMPUTING CONSORTIUM 60 REM * * * 70 REM MODIFIED FOR THE APPLE 80 REM FEBRUARY, 1979 90 REM BY CHARLIE KELLNER 135 DIM A(30),L(30),H(30),B(30),S(30),P(30),G(30) 150 P9 = 10 160 S3 = .15 170 S2 = 30 175 A2 = 2.00 194 C9 = .5 195 C2 = 1 300 REM START OF GAME 310 GOSUB 12000: FOR I = 1 TO N:B(I) = 0:A(I) = A2: NEXT 320 IF A$ = "Y" THEN GOSUB 13000: GOTO 400 330 GOSUB 14000 400 REM WEATHER REPORT 410 SC = RND (1) 420 IF SC < .6 THEN SC = 2: GOTO 460 430 IF SC < .8 THEN SC = 10: GOTO 460 440 SC = 7 460 IF D < 3 THEN SC = 2 470 GOSUB 15000 490 TEXT : HOME 500 REM START OF NEW DAY 510 D = D + 1 520 PRINT "ON DAY ";D;", THE COST OF LEMONADE IS "; 540 C = 2: IF D > 2 THEN C = 4 550 IF D > 6 THEN C = 5 560 PRINT "$.0";C: PRINT 570 C1 = C * .01 580 R1 = 1 600 REM CURRENT EVENTS 610 IF D < > 3 THEN 650 620 PRINT "(YOUR MOTHER QUIT GIVING YOU FREE SUGAR)" 650 IF D < > 7 THEN 700 660 PRINT "(THE PRICE OF LEMONADE MIX JUST WENT UP)" 700 REM AFTER 2 DAYS THINGS CAN HAPPEN - 13 -710 800 805 810 815 820 850 855 860 870 875 876 880 890 895 900 901 902 903 904 905 906 910 920 930 932 940 950 951 952 960 961 962 963 964 965 970 975 980 985 990 IF D > 2 THEN 2000 REM INPUT VALUES PRINT : POKE 34, PEEK (37) FOR I = 1 TO N A(I) = A(I) + .000000001 G(I) = 1:H(I) = 0 STI = A(I): GOSUB 4000: PRINT "LEMONADE STAND ";I; TAB( 26);"ASSETS ";STI$ PRINT IF B(I) = 0 THEN 890 PRINT "YOU ARE BANKRUPT, NO DECISIONS" PRINT "FOR YOU TO MAKE." IF N = 1 AND A(1) < C THEN 31111 GOTO 1050 PRINT "HOW MANY GLASSES OF LEMONADE DO YOU" PRINT "WISH TO MAKE "; INPUT L(I) IF L(I) < 0 OR L(I) > 1000 THEN 903 GOTO 906 PRINT "COME ON, LET'S BE REASONABLE NOW!!!" PRINT "TRY AGAIN" GOTO 890 IF L(I) < > INT (L(I)) THEN 903 IF L(I) * C1 < = A(I) THEN 950 PRINT "THINK AGAIN!!! YOU HAVE ONLY ";STI$ PRINT "IN CASH AND TO MAKE ";L(I);" GLASSES OF" PRINT "LEMONADE YOU NEED $";L(I) * C1;" IN CASH." GOTO 890 PRINT PRINT "HOW MANY ADVERTISING SIGNS (";S3 * 100;" CENTS" PRINT "EACH) DO YOU WANT TO MAKE "; INPUT S(I) IF S(I) < 0 OR S(I) > 50 THEN 963 GOTO 965 PRINT "COME ON, BE REASONABLE!!! TRY AGAIN." GOTO 950 IF S(I) < > INT (S(I)) THEN 963 IF S(I) * S3 < = A(I) - L(I) * C1 THEN 1010 PRINT STI = A(I) - L(I) * C1: GOSUB 4000 PRINT "THINK AGAIN, YOU HAVE ONLY ";STI$ PRINT "IN CASH LEFT AFTER MAKING YOUR LEMONADE." - 14 -1000 1010 1012 1015 1020 1021 1022 1023 1024 1025 1050 1060 1100 1101 1110 1120 1130 1135 1140 1142 1144 1146 1148 1180 1182 1183 1185 1186 1187 1190 1200 1210 1220 1230 1232 1234 1240 1250 1260 1270 1280 GOTO 950 PRINT : PRINT "WHAT PRICE (IN CENTS) DO YOU WISH TO" PRINT "CHARGE FOR LEMONADE "; INPUT P(I) IF P(I) < 0 OR P(I) > 100 THEN 1022 GOTO 1024 PRINT "COME ON, BE REASONABLE!!! TRY AGAIN." GOTO 1010 IF P(I) < > INT (P(I)) THEN 1022 IF C5 = 1 THEN 1050 VTAB 23: INPUT "WOULD YOU LIKE TO CHANGE ANYTHING?";A$ IF LEFT$ (A$,1) = "Y" THEN HOME :C5 = 1: GOTO 810 HOME NEXT I C5 = 0: TEXT : HOME PRINT : IF SC = 10 AND RND (1) < .25 THEN 2300 PRINT "$$ LEMONSVILLE DAILY FINANCIAL REPORT $$" PRINT POKE 768,152: POKE 769,80: CALL 770 POKE 768,128: POKE 769,160: CALL 770 POKE 768,152: POKE 769,40: CALL 770 POKE 768,144: POKE 769,80: CALL 770 POKE 768,128: POKE 769,200: CALL 770 REM CALCULATE PROFITS IF R2 = 2 THEN 2290 IF R3 = 3 THEN 2350 FOR I = 1 TO N IF A(I) < 0 THEN A(I) = 0 IF R2 = 2 THEN 1260 IF P(I) > = P9 THEN 1220 N1 = (P9 - P(I)) / P9 * .8 * S2 + S2 GOTO 1230 N1 = ((P9 ^ 2) * S2 / P(I) ^ 2) W = - S(I) * C9 V = 1 - ( EXP (W) * C2) N2 = R1 * (N1 + (N1 * V)) N2 = INT (N2 * G(I)) IF N2 < = L(I) THEN 1270 N2 = L(I) M = N2 * P(I) * .01 E = S(I) * S3 + L(I) * C1 - 15 -1290 1300 1310 1320 1321 1326 1327 1330 1350 1360 1365 1370 1380 1382 1385 1390 1395 1396 1400 2000 2010 2030 2040 2050 2100 2110 2112 2115 2120 2130 2140 2200 2210 2220 2230 2231 2232 2233 2250 2260 2290 P1 = M - E A(I) = A(I) + P1 IF H(I) = 1 THEN 2300 PRINT IF B(I) < > 1 THEN 1330 PRINT "STAND ";I;: PRINT " BANKRUPT": GOSUB 18000 GOTO 1390 GOSUB 5000 IF A(I) > C / 100 THEN 1390 PRINT "STAND ";I HOME : PRINT " ...YOU DON'T HAVE ENOUGH MONEY LEFT" PRINT " TO STAY IN BUSINESS YOU'RE BANKRUPT!" B(I) = 1 GOSUB 18000: HOME IF N = 1 AND B(1) = 1 THEN 31111 NEXT I R1 = 1 R2 = 0 GOTO 400 REM RANDOM EVENTS IF SC = 10 THEN 2110 IF SC = 7 THEN 2410 IF RND (1) < .25 THEN 2210 GOTO 805 IF X1 = 1 THEN 805 { unreachable } J = 30 + INT ( RND (1) * 5) * 10 PRINT "THERE IS A ";J;"% CHANCE OF LIGHT RAIN," PRINT "AND THE WEATHER IS COOLER TODAY." R1 = 1 - J / 100 X1 = 1 GOTO 805 IF X2 = 1 THEN 805 { unreachable } PRINT "THE STREET DEPARTMENT IS WORKING TODAY." PRINT "THERE WILL BE NO TRAFFIC ON YOUR STREET." IF RND ( - 1) < .5 THEN 2233 { bug? rnd(-1) is a constant! } R2 = 2 GOTO 2250 R1 = .1 X2 = 1 GOTO 805 PRINT "THE STREET CREWS BOUGHT ALL YOUR" - 16 -2295 PRINT "LEMONADE AT LUNCHTIME!!" 2297 GOTO 1185 2300 REM THUNDERSTORM! 2310 X3 = 1:R3 = 0 2320 SC = 5: GOSUB 15000: TEXT : HOME 2330 PRINT "WEATHER REPORT: A SEVERE THUNDERSTORM" 2340 PRINT "HIT LEMONSVILLE EARLIER TODAY, JUST AS" 2350 PRINT "THE LEMONADE STANDS WERE BEING SET UP." 2360 PRINT "UNFORTUNATELY, EVERYTHING WAS RUINED!!" 2370 FOR J = 1 TO N:G(J) = 0: NEXT 2380 GOTO 1185 2400 IF X4 = 1 THEN 805 2410 X4 = 1 2430 PRINT "A HEAT WAVE IS PREDICTED FOR TODAY!" 2440 R1 = 2 2450 GOTO 805 3000 END 4000 REM STI => DOLLARS.CENTS 4010 STI = INT (STI * 100 + .5) / 100 4020 STI$ = "$" + STR$ (STI) 4030 IF STI = INT (STI) THEN STI$ = STI$ + ".0" 4040 IF STI = INT (STI * 10 + .5) / 10 THEN STI$ = STI$ + "0" 4050 RETURN 5000 VTAB 6: POKE 34,5 5002 PRINT " DAY ";D; TAB( 30);"STAND ";I: PRINT : PRINT 5010 PRINT " ";N2; TAB( 7);"GLASSES SOLD": PRINT 5012 STI = P(I) / 100: GOSUB 4000: PRINT STI$; TAB( 7);"PER GLASS"; 5014 STI = M: GOSUB 4000: PRINT TAB( 27);"INCOME ";STI$ 5016 PRINT : PRINT : PRINT " ";L(I); TAB( 7);"GLASSES MADE": PRINT 5020 STI = E: GOSUB 4000: PRINT " ";S(I); TAB( 7);"SIGNS MADE"; TAB( 25);"EXPENSES ";STI $: PRINT : PRINT 5030 STI = P1: GOSUB 4000: PRINT TAB( 16);"PROFIT ";STI$: PRINT 5040 STI = A(I): GOSUB 4000: PRINT TAB( 16);"ASSETS ";STI$ 5060 GOSUB 18000 5070 REM 5090 HOME : RETURN 10000 REM INITIALIZE 10010 IN# 0: PR# 0 10100 POKE 770,173: POKE 771,48: POKE 772,192: POKE 773,136: POKE 774,208: POKE 775,5: POKE 776,206: POKE 777,1: POKE 778,3: POKE 779,240: POKE 780,9: POKE 781,202 - 17 -10110 POKE 782,208: POKE 783,245: POKE 784,174: POKE 785,0: POKE 786,3: POKE 787,76: POKE 788,2: POKE 789,3: POKE 790,96: POKE 791,0: POKE 792,0 10190 RETURN 11000 REM INTRODUCTION 11100 TEXT : HOME : GR : COLOR= 12: FOR I = 0 TO 39: HLIN 0,39 AT I: NEXT : VTAB 2 11110 PRINT ";LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL;LLLLL"; 11120 PRINT ";LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL;LLLLL"; 11130 PRINT ";LLLL;;;;L;;;;;L;;;;L;;;;L;;;;L;;;;L;;;;"; 11140 PRINT ";LLLL;LL;L;L;L;L;LL;L;LL;LLLL;L;LL;L;LL;"; 11150 PRINT ";LLLL;;;;L;L;L;L;LL;L;LL;L;;;;L;LL;L;;;;"; 11160 PRINT ";LLLL;LLLL;L;L;L;LL;L;LL;L;LL;L;LL;L;LLL"; 11170 PRINT ";;;;L;;;;L;LLL;L;;;;L;LL;L;;;;L;;;;L;;;;"; 11200 VTAB 11 11210 PRINT "LLLLLLLL;;;;;LL;LLLLLLLLLLLLLLL;LLLLLLLL"; 11220 PRINT "LLLLLLLL;LLLLLL;LLLLLLLLLLLLLLL;LLLLLLLL"; 11230 PRINT "LLLLLLLL;LLLLL;;;L;;;;L;;;;L;;;;LLLLLLLL"; 11240 PRINT "LLLLLLLL;;;;;LL;LLLLL;L;LL;L;LL;LLLLLLLL"; 11250 PRINT "LLLLLLLLLLLL;LL;LL;;;;L;LL;L;LL;LLLLLLLL"; 11260 PRINT "LLLLLLLLLLLL;LL;LL;LL;L;LL;L;LL;LLLLLLLL"; 11270 PRINT "LLLLLLLL;;;;;LL;LL;;;;L;LL;L;;;;LLLLLLLL"; 11280 VTAB 23: PRINT " COPYRIGHT 1979 APPLE COMPUTER INC." 11300 GOSUB 11700: FOR I = 1 TO 2000: NEXT 11310 POKE 33,1: POKE 34,9: POKE 35,19 11320 FOR I = 39 TO 7 STEP - 1: COLOR= 15: VLIN 18,37 AT I: COLOR= 12: IF I < 39 THEN VLIN 18,36 AT I + 1 11330 COLOR= 15: IF I < 30 THEN VLIN 18,36 AT I + 10 11340 COLOR= 12: IF I < 29 THEN VLIN 18,37 AT I + 11: POKE 32,I + 11: VTAB 11: HTAB I + 12: PRINT : READ A$: PRINT A$; 11350 FOR J = 14 TO I + I: NEXT : NEXT : FOR I = 1 TO 1000: NEXT 11360 COLOR= 13: VLIN 14,36 AT 12: FOR I = 36 TO 20 STEP - 1: HLIN 8,16 AT I 11370 FOR J = 1 TO 50: NEXT : POKE 768,I * 3 - 12: POKE 769,12: CALL 770: NEXT : COLOR= 12: VLIN 14,19 AT 12 11400 POKE 32,0: POKE 33,40: POKE 34,20: POKE 35,23: VTAB 22 11410 FOR I = 1 TO 4000: NEXT :I = FRE (0) 11490 RETURN 11500 REM DATA 11510 DATA 96,180,128,60,114,60,128,120,144,60,152,60,128,255,128,60,114,60,85,120,96,60,102 ,60,114,120,102,60,96,255,0,0 11520 DATA ,,,,,,L;LL;,L;LL;,;;LL;;,L;LL;,L;;;;,,,;L;;;;,;L;LL;,;L;LL;,;L;LL;,;;;LL;,,,,,* 11530 DATA 96,16,85,4,128,4,96,4,76,4,128,4,96,16,0,0 - 18 -11540 DATA 114,120,144,60,114,255,1,120,128,120,144,60,128,120,114,60,144,120,171,255,228,2 55,0,0 11550 DATA 152,180,152,120,152,60,144,120,152,60,171,120,192,60,152,255,0,0 11560 DATA 0,160,128,255,152,40,171,80,192,40,228,255,1,40,0,160,192,255,192,40,171,80,152,4 0,128,255,0,0 11700 REM MUSIC 11710 READ I,J: IF J = 0 THEN RETURN 11720 POKE 768,I: POKE 769,J: CALL 770 11730 GOTO 11710 12000 REM TITLE PAGE 12100 TEXT : HOME : PRINT CHR$ (7); 12110 PRINT "HI! WELCOME TO LEMONSVILLE, CALIFORNIA!": PRINT 12120 PRINT "IN THIS SMALL TOWN, YOU ARE IN CHARGE OF" 12130 PRINT "RUNNING YOUR OWN LEMONADE STAND. YOU CAN" 12140 PRINT "COMPETE WITH AS MANY OTHER PEOPLE AS YOU" 12150 PRINT "WISH, BUT HOW MUCH PROFIT YOU MAKE IS UP" 12160 PRINT "TO YOU (THE OTHER STANDS' SALES WILL NOT" 12170 PRINT "AFFECT YOUR BUSINESS IN ANY WAY). IF YOU" 12180 PRINT "MAKE THE MOST MONEY, YOU'RE THE WINNER!!": PRINT 12190 PRINT "ARE YOU STARTING A NEW GAME? (YES OR NO)" 12200 VTAB 21: CALL - 958: INPUT "TYPE YOUR ANSWER AND HIT RETURN ==> ";A$ 12210 A$ = LEFT$ (A$,1): IF A$ < > "Y" AND A$ < > "N" THEN PRINT CHR$ (7);: GOTO 12200 12220 VTAB 23: CALL - 958: INPUT "HOW MANY PEOPLE WILL BE PLAYING ==> ";N$ 12230 N = VAL (N$): IF N < 1 OR N > 30 THEN PRINT CHR$ (7);: GOTO 12220 12240 RETURN 13000 REM NEW BUSINESS 13100 HOME 13110 PRINT "TO MANAGE YOUR LEMONADE STAND, YOU WILL " 13120 PRINT "NEED TO MAKE THESE DECISIONS EVERY DAY: ": PRINT 13130 PRINT "1. HOW MANY GLASSES OF LEMONADE TO MAKE (ONLY ONE BATCH IS MADE EACH MORNING)" 13140 PRINT "2. HOW MANY ADVERTISING SIGNS TO MAKE (THE SIGNS COST FIFTEEN CENTS EACH) " 13150 PRINT "3. WHAT PRICE TO CHARGE FOR EACH GLASS ": PRINT 13160 PRINT "YOU WILL BEGIN WITH $2.00 CASH (ASSETS)." 13170 PRINT "BECAUSE YOUR MOTHER GAVE YOU SOME SUGAR," 13180 PRINT "YOUR COST TO MAKE LEMONADE IS TWO CENTS " 13190 PRINT "A GLASS (THIS MAY CHANGE IN THE FUTURE).": PRINT - 19 -13200 GOSUB 18000 13202 HOME 13210 PRINT "YOUR EXPENSES ARE THE SUM OF THE COST OF" 13220 PRINT "THE LEMONADE AND THE COST OF THE SIGNS. ": PRINT 13230 PRINT "YOUR PROFITS ARE THE DIFFERENCE BETWEEN " 13240 PRINT "THE INCOME FROM SALES AND YOUR EXPENSES.": PRINT 13250 PRINT "THE NUMBER OF GLASSES YOU SELL EACH DAY " 13260 PRINT "DEPENDS ON THE PRICE YOU CHARGE, AND ON " 13270 PRINT "THE NUMBER OF ADVERTISING SIGNS YOU USE.": PRINT 13280 PRINT "KEEP TRACK OF YOUR ASSETS, BECAUSE YOU " 13290 PRINT "CAN'T SPEND MORE MONEY THAN YOU HAVE! ": PRINT 13300 GOSUB 18000 13302 HOME : RETURN 14000 REM CONTINUE OLD GAME 14100 CALL - 936: PRINT CHR$ (7);:I = 0 14110 PRINT "HI AGAIN! WELCOME BACK TO LEMONSVILLE! ": PRINT 14120 PRINT "LET'S CONTINUE YOUR LAST GAME FROM WHERE" 14130 PRINT "YOU LEFT IT LAST TIME. DO YOU REMEMBER " 14140 PRINT "WHAT DAY NUMBER IT WAS? "; 14150 INPUT "";A$:A = VAL (A$): PRINT : IF A < > 0 THEN 14200 14160 A$ = LEFT$ (A$,1): IF A$ = "Y" THEN PRINT "GOOD! WHAT DAY WAS IT? ";:I = I + 1: GOTO 14150 14170 IF A$ = "N" OR I > 0 THEN 14300 14180 PRINT CHR$ (7);"YES OR NO? ";:I = I + 1: GOTO 14150 14200 IF A < 1 OR A > 99 OR A < > INT (A) THEN 14300 14210 D = A 14300 PRINT "OKAY - WE'LL START WITH DAY NO. ";D + 1: PRINT 14400 FOR I = 1 TO N: PRINT : PRINT 14410 PRINT "PLAYER NO. ";I;", HOW MUCH MONEY (ASSETS)": PRINT 14420 PRINT "DID YOU HAVE? "; 14430 INPUT "";A$:A = VAL (A$): PRINT 14440 IF A < 2 THEN PRINT "O.K. - WE'LL START YOU OUT WITH $2.00":A = 2: GOTO 14490 14450 IF A > 40 THEN PRINT "JUST TO BE FAIR, LET'S MAKE THAT $10.00":A = 10 14490 A(I) = INT (A * 100 + .5) / 100: NEXT 14500 PRINT : PRINT CHR$ (7): INPUT "...READY TO BEGIN? ";A$ 14510 IF LEFT$ (A$,1) = "N" THEN 13000 14520 RETURN 15000 REM WEATHER DISPLAY 15100 GR : HOME 15110 COLOR= SC: FOR I = 0 TO 25: HLIN 0,39 AT I: NEXT I - 20 -15120 COLOR= 12: FOR I = 26 TO 39: HLIN 0,39 AT I: NEXT I 15130 COLOR= 8: FOR I = 24 TO 32: HLIN 15,25 AT I: NEXT I 15150 COLOR= 13: FOR I = 17 TO 23 STEP 2: VLIN 22,23 AT I: NEXT I 15151 IF SC = 2 OR SC = 7 THEN 15160 15152 IF SC = 10 THEN COLOR= 15 15157 IF SC = 5 THEN COLOR= 0 15158 HLIN 6,10 AT 2: HLIN 4,14 AT 3: HLIN 7,12 AT 4: HLIN 22,30 AT 4: HLIN 20,36 AT 5: HLIN 23,33 AT 6::: GOSUB 17000: GOTO 15170 15160 IF SC = 7 THEN COLOR= 9 15162 HLIN 3,5 AT 1: HLIN 2,6 AT 2: FOR I = 3 TO 6: HLIN 1,7 AT I: NEXT : HLIN 2,6 AT 7: HLIN 3,5 AT 8 15170 VTAB 22: HTAB 8: PRINT " LEMONSVILLE WEATHER REPORT ": PRINT 15175 VTAB 22: HTAB 8: PRINT " LEMONSVILLE WEATHER REPORT ": PRINT 15180 IF SC = 2 THEN HTAB 18: PRINT " SUNNY "; 15182 IF SC = 7 THEN HTAB 15: PRINT " HOT AND DRY "; 15184 IF SC = 10 THEN HTAB 17: PRINT " CLOUDY "; 15186 IF SC = 5 THEN HTAB 14: PRINT " THUNDERSTORMS! ";: GOSUB 17000 15200 RESTORE 15210 READ A$: IF A$ < > "*" THEN 15210 15220 IF SC < > 2 THEN 15300 15230 READ I,J: IF J = 0 THEN 15500 15240 FOR K = 1 TO J: POKE 768,I: POKE 769,10: CALL 770 15250 FOR L = K TO J: NEXT : NEXT : GOTO 15230 15300 READ I,J: IF J < > 0 THEN 15300 15310 IF SC = 7 THEN 15400 15320 READ I,J: IF J < > 0 THEN 15320 15330 IF SC = 10 THEN 15400 15340 READ I,J: IF J < > 0 THEN 15340 15400 READ I,J: IF J = 0 THEN 15500 15410 IF I = 1 THEN FOR I = 1 TO J: NEXT : GOTO 15400 15420 POKE 768,I: POKE 769,J: CALL 770 15430 GOTO 15400 15440 IF SC = 5 THEN GOSUB 17000 15500 IF SC = 5 THEN GOSUB 17000 15510 I = FRE (0): FOR I = 1 TO 2000: NEXT : RETURN 16000 POKE 13824,76: POKE 13825,108: POKE 13826,54: POKE 13827,165: POKE 13828,48: POKE 13829,41: POKE 13830,15: POKE 13831,141: POKE 13832,160: POKE 13833,54: 16010 POKE 13834,165: POKE 13835,48: POKE 13836,41: POKE 13837,240: POKE 13838,141: POKE 13839,161: POKE 13840,54: POKE 13841,165: POKE 13842,36: POKE 13843,141: - 21 -16020 POKE 13844,162: POKE 13845,54: POKE 13846,165: POKE 13847,37: POKE 13848,141: POKE 13849,163: POKE 13850,54: POKE 13851,169: POKE 13852,0: POKE 13853,133: 16030 POKE 13854,36: POKE 13855,133: POKE 13856,37: POKE 13857,72: POKE 13858,32: POKE 13859,193: POKE 13860,251: POKE 13861,133: POKE 13862,40: POKE 13863,164: 16040 POKE 13864,36: POKE 13865,177: POKE 13866,40: POKE 13867,41: POKE 13868,15: POKE 13869,205: POKE 13870,164: POKE 13871,54: POKE 13872,208: POKE 13873,10: 16050 POKE 13874,177: POKE 13875,40: POKE 13876,41: POKE 13877,240: POKE 13878,24: POKE 13879,109: POKE 13880,160: POKE 13881,54: POKE 13882,145: POKE 13883,40: 16060 POKE 13884,177: POKE 13885,40: POKE 13886,41: POKE 13887,240: POKE 13888,205: POKE 13889,165: POKE 13890,54: POKE 13891,208: POKE 13892,10: POKE 13893,177: 16070 POKE 13894,40: POKE 13895,41: POKE 13896,15: POKE 13897,24: POKE 13898,109: POKE 13899,161: POKE 13900,54: POKE 13901,145: POKE 13902,40: POKE 13903,200: 16080 POKE 13904,192: POKE 13905,40: POKE 13906,144: POKE 13907,213: POKE 13908,160: POKE 13909,0: POKE 13910,104: POKE 13911,105: POKE 13912,0: POKE 13913,197: 16090 POKE 13914,34: POKE 13915,144: POKE 13916,196: POKE 13917,32: POKE 13918,193: POKE 13919,251: POKE 13920,133: POKE 13921,40: POKE 13922,173: POKE 13923,162: 16100 POKE 13924,48: POKE 13925,133: POKE 13926,36: POKE 13927,173: POKE 13928,163: POKE 13929,54: POKE 13930,133: POKE 13931,37: POKE 13932,165: POKE 13933,48: 16110 POKE 13934,41: POKE 13935,15: POKE 13936,141: POKE 13937,164: POKE 13938,54: POKE 13939,165: POKE 13940,48: POKE 13941,41: POKE 13942,240: POKE 13943,141: 16120 POKE 13944,165: POKE 13945,54: POKE 13946,96: POKE 13947,0: 16130 RETURN 17000 IF SC < > 5 THEN RETURN 17001 COLOR= 10: VLIN 7,9 AT 29: HLIN 30,31 AT 9: VLIN 9,14 AT 32: HLIN 33,34 AT 14: VLIN 14,25 AT 35 17005 VLIN 5,8 AT 8: PLOT 9,8: VLIN 8,13 AT 10: PLOT 11,13: VLIN 13,17 AT 12 17010 FOR RPT = 1 TO 5 17020 CALL 13824 17030 COLOR= 7: CALL 13827 17040 CALL 13824 17050 COLOR= 9: CALL 13827 17060 NEXT RPT - 22 -17070 CALL 13824 17080 COLOR= 5: CALL 13827 17090 RETURN 18000 VTAB 24: PRINT " PRESS SPACE TO CONTINUE, ESC TO END..."; 18010 GET IN$: IF IN$ < > " " AND ASC (IN$) < > 27 THEN 18010 18020 IF ASC (IN$) = 27 THEN 31111 18030 RETURN 31111 FOR I = 1 TO 2000: NEXT : HOME : VTAB 10: PRINT "WOULD YOU LIKE TO PLAY AGAIN "; 31112 GET IN$: IF IN$ = "Y" THEN 150 31113 IF PEEK (994) + PEEK (1001) = 192 THEN CALL 976 31114 TEXT : HOME : TEXT : END