Listing of file='DOGCAT.BAS;01' on disk='vmedia/ncc_9-sector.ccvf'
0 GOTO 65000 1 CLEAR 200 10 GO= 0 50 PLOT 6,14,12,14,3,24,10:PLOT 31,6,39 60 PLOT 27,24:PRINT " DOG CHASES CAT ":PLOT 3,64,0 90 GOSUB 7300:GOSUB 2020:GOTO 5000 2020 PLOT 6,39,12,6,12,15,8,27,24 2050 FOR I= 1TO 44:PLOT 32:NEXT I 2060 PLOT 3,0,31 2070 FOR I= 1TO 44:PLOT 32:NEXT I 2080 PLOT 27,10,8 2100 FOR I= 1TO 32:PLOT 32:NEXT I:REM DRAW LEFT SIDE 2110 PLOT 3,43,0 2120 FOR I= 1TO 32:PLOT 32:NEXT I:REM DRAW RIGHT SIDE 2121 PLOT 6,7,27,10,14:FOR I= 45TO 44STEP - 1:FOR J= 31TO 0STEP - 2:PLOT 3,I,J,32:NEXT J:NEXT I 2122 FOR I= 62TO 63:FOR J= 0TO 31STEP 2:PLOT 3,I,J,32:NEXT J:NEXT I 2123 PLOT 27,24:FOR I= 61TO 46STEP - 1:FOR J= 31TO 30STEP - 1:PLOT 3,I,J,32:NEXT J:NEXT I 2124 FOR I= 46TO 61:FOR J= 0TO 1:PLOT 3,I,J,32:NEXT J:NEXT I 2126 PLOT 6,24,15,27,24 2128 PLOT 3,46,2:FOR I= 1TO 16:PLOT 32:NEXT I 2130 PLOT 3,46,4:FOR I= 1TO 16:PLOT 32:NEXT I 2131 PLOT 6,40 2132 PLOT 3,46,6:FOR I= 1TO 16:PLOT 32:NEXT I 2134 PLOT 3,46,18:FOR I= 1TO 16:PLOT 32:NEXT I 2135 PLOT 6,48 2136 PLOT 3,46,20:FOR I= 1TO 16:PLOT 32:NEXT I 2138 PLOT 3,46,29:FOR I= 1TO 16:PLOT 32:NEXT I 2140 PLOT 27,10,6,24 2142 PLOT 3,46,3:PLOT 32:PLOT 3,61,3:PLOT 32 2143 PLOT 6,40 2144 PLOT 3,46,7:FOR I= 1TO 11:PLOT 32:NEXT I 2146 PLOT 3,61,7:FOR I= 1TO 11:PLOT 32:NEXT I 2147 PLOT 6,48 2148 PLOT 3,46,21:FOR I= 1TO 8:PLOT 32:NEXT I 2150 PLOT 3,61,21:FOR I= 1TO 8:PLOT 32:NEXT I 2151 PLOT 27,24 2152 PLOT 3,47,3:PLOT 6,33:PRINT "TREE WATER " 2154 PLOT 3,47,7:PLOT 6,15:PRINT " VARIABLES " 2156 PLOT 3,47,8:PLOT 6,15:PRINT " " 2158 PLOT 3,47,9:PLOT 6,56:PRINT "CAT DOG" 2160 PLOT 3,47,10:PLOT 6,33:PRINT " " 2162 PLOT 3,47,11:PLOT 6,33:PRINT " SYMBOL " 2164 PLOT 3,47,12:PLOT 6,33:PRINT " " 2166 PLOT 3,47,13:PLOT 6,24:PRINT " SPEED " 2168 PLOT 3,47,14:PLOT 6,15:PRINT " " 2170 PLOT 3,47,15:PLOT 6,24:PRINT " STARTX " 2172 PLOT 3,47,16:PLOT 6,15:PRINT " " 2174 PLOT 3,47,17:PLOT 6,24:PRINT " STARTY " 2176 PLOT 6,116 2178 FOR I= 38TO 28STEP - 1:FOR J= 26TO 18STEP - 1 2180 PLOT 3,I,J:PLOT 94:NEXT J:NEXT I 2182 PLOT 3,10,6:FOR I= 1TO 23:PLOT 94:NEXT I 2185 PLOT 3,10,8:FOR I= 1TO 23:PLOT 94:NEXT I 2192 PLOT 3,10,5:FOR I= 1TO 23:PLOT 94:NEXT I 2194 PLOT 3,10,7:FOR I= 1TO 23:PLOT 94:NEXT I 2196 PLOT 6,59:FOR I= 31TO 35:FOR J= 20TO 24 2198 PLOT 3,I,J:PLOT 96:NEXT J:NEXT I 2200 PLOT 27,24,15,6,2,3,64,0 2220 PLOT 3,10,20:GOSUB 2300:PLOT 3,7,22:GOSUB 2300 2230 PLOT 3,12,23:GOSUB 2300:PLOT 3,8,24:GOSUB 2300 2235 PLOT 3,11,26:GOSUB 2300:PLOT 3,33,22:GOSUB 2300 2290 GOTO 2400 2300 PRINT " s":RETURN 2400 PLOT 3,64,0:HX= 33:HY= 1:TX= 32:TY= 16 2420 TS= 2:HS= 1:HC= 7:TC= 33 2480 PS$= "124":CS$= "100":M= 0:Z= 0 2482 PLOT 6,2,3,46,5:FOR I= 1TO 16:PLOT 32:NEXT I 2484 PLOT 3,46,19:FOR I= 1TO 16:PLOT 32:NEXT I 2490 RD= 1 2492 Q= PEEK (33209):FOR I= 0TO Q:QQ= RND (1):NEXT I 2500 DEF FN R(X)= - X+ INT ((2* X+ 1)* RND (1)) 2502 X= 47:Y= 21:H= 8:W= 14:C= 1:GOSUB 64000 2504 GOSUB 7700:PLOT 15 2506 IF GO= 1THEN 3000 2507 GOSUB 3700 2508 GOSUB 10000:PRINT " VARIABLES " 2510 GOSUB 3700 2512 GOSUB 10000:PRINT " YOU SET (Y) " 2514 GOSUB 10000:PRINT " I SET (N) " 2516 GOSUB 10000:PRINT "DEMO MODE (D) " 2518 GOSUB 3700 2519 PLOT 31 2520 GOSUB 10000:INPUT V$ 2522 GOSUB 3700 2524 PLOT 15 2530 IF LEFT$ (V$,1)= "Y"THEN 2540 2532 IF LEFT$ (V$,1)= "D"THEN GO= 1:GOTO 3000 2533 PLOT 6,2:FOR I= 1TO 8:GOSUB 3700:NEXT I 2534 GOTO 2880 2540 GOSUB 7700 2542 GOSUB 3700:GOSUB 3700 2550 GOSUB 10000:PRINT "CAT SPEED ";TS 2552 GOSUB 3700 2554 GOSUB 10000:PRINT "SELECT 1 TO 9 " 2556 GOSUB 3700 2558 GOSUB 10000:INPUT S 2560 IF S< 1OR S> 9THEN GOSUB 10000:PRINT "I'LL USE ";TS;" ":GOTO 2580 2570 TS= S 2580 GOSUB 7300:GOSUB 7700 2582 GOSUB 3700:GOSUB 3700:GOSUB 3700 2584 GOSUB 10000:PRINT "DOG SPEED ";HS 2585 GOSUB 3700 2587 GOSUB 10000:PRINT "SELECT 1 TO ";TS- 1 2588 GOSUB 3700 2590 GOSUB 10000:INPUT F 2594 IF F< 1OR F> 9THEN GOSUB 10000:PRINT "I'LL USE ";HS;" ":GOTO 2600 2596 IF F= > TSTHEN F= 0:GOTO 2594 2598 HS= F 2600 GOSUB 7300:GOSUB 7700 2602 GOSUB 3700:GOSUB 3700:GOSUB 3700 2610 GOSUB 10000:PRINT "CAT STARTS " 2611 GOSUB 3700 2612 GOSUB 10000:PRINT " ";TX;" ";TY;" " 2614 GOSUB 3700 2616 GOSUB 10000:PRINT "ENTER XX YY " 2618 GOSUB 3700 2620 GOSUB 10000:INPUT CX,CY 2630 IF CX< 1OR CX> 42THEN 3800 2640 IF CY< 1OR CY> 30THEN 3800 2650 TX= CX:TY= CY 2660 GOSUB 7300:GOSUB 7700 2690 GOSUB 3700:GOSUB 3700:GOSUB 3700 2692 GOSUB 10000:PRINT "DOG STARTS " 2693 GOSUB 3700 2694 GOSUB 10000:PRINT " ";HX;" ";HY;" " 2695 GOSUB 3700 2696 GOSUB 10000:PRINT "ENTER XX YY " 2698 GOSUB 3700 2700 GOSUB 10000:INPUT PX,PY 2710 IF PX< 1OR PX> 42THEN 3820 2720 IF PY< 1OR PY> 30THEN 3820 2730 HX= PX:HY= PY 2740 GOSUB 7300:GOSUB 4000 2880 PLOT 15,8 2910 PLOT 6,56,3,47,13:PRINT TS 2920 PLOT 3,59,13:PRINT HS 2930 PLOT 3,47,15:PRINT TX 2940 PLOT 3,58,15:PRINT HX 2950 PLOT 3,47,17:PRINT TY 2960 PLOT 3,58,17:PRINT HY 2970 PLOT 6,TC,3,48,11,VAL (CS$) 2980 PLOT 6,HC,3,59,11,VAL (PS$) 2982 PLOT 6,2,3,52,3:PLOT 115 2984 PLOT 6,116,3,60,3:PLOT 94 2990 PLOT 27,24,6,15,8,3,64,0 2999 RETURN 3000 PLOT 6,60,31,3,45,0:PRINT "DEMONSTRATION MODE" 3002 PLOT 6,2:FOR I= 1TO 8:GOSUB 3700:NEXT I 3005 PLOT 15,8,6,14 3006 Q= PEEK (33209):FOR I= 0TO Q:QQ= RND (1):NEXT I 3008 TS= INT (7* RND (RD)+ 2) 3010 HS= INT (6* RND (RD)+ 2) 3015 IF HS+ 1> = TSTHEN HS= TS- 1 3020 CC= INT (5* RND (RD)) 3030 PC= INT (5* RND (RD)+ 5) 3040 CS= INT (5* RND (RD)) 3050 PS= INT (5* RND (RD)+ 5) 3100 M(0)= 33:M(1)= 14:M(2)= 49:M(3)= 28:M(4)= 38 3120 M(5)= 7:M(6)= 33:M(7)= 15:M(8)= 10:M(9)= 8 3140 M$(0)= "100":M$(1)= "67":M$(2)= "38 3150 M$(3)= "112":M$(4)= "46" 3160 M$(5)= "124":M$(6)= "68":M$(7)= "62":M$(8)= "96":M$(9)= "42" 3200 TC= M(CC):HC= M(PC):CS$= M$(CS):PS$= M$(PS) 3500 CP= INT (11* RND (RD)) 3510 PP= INT (11* RND (RD)) 3515 IF CP= PPTHEN 3500 3530 Q(0)= 1:Q(1)= 42:Q(2)= 1:Q(3)= 42:Q(4)= 10:Q(5)= 20:Q(6)= 30 3540 Q(7)= 40:Q(8)= 42:Q(9)= 20:Q(10)= 33 3550 R(0)= 1:R(1)= 1:R(2)= 30:R(3)= 30:R(4)= 10:R(5)= 10:R(6)= 10 3560 R(7)= 10:R(8)= 10:R(9)= 20:R(10)= 20 3600 TX= Q(CP):TY= R(CP):HX= Q(PP):HY= R(PP) 3610 GOTO 2880 3700 GOSUB 10000:PRINT " ":RETURN 3800 GOSUB 10000:PRINT "USING ";TX;TY:GOTO 2660 3820 GOSUB 10000:PRINT "USING ";HX;HY:GOTO 2740 4000 PLOT 6,39 4030 GOSUB 3700:GOSUB 3700:GOSUB 3700 4032 GOSUB 10000:PRINT "DOG COLOR " 4036 GOSUB 10000:PRINT " CHOOSE: " 4038 GOSUB 3700 4040 GOSUB 10000:PRINT " 0 1 2 3 4" 4050 PLOT 6,39 4055 GOSUB 3700 4060 GOSUB 10000:PRINT " | | | | | " 4065 PLOT 6,39 4070 GOSUB 3700 4080 GOSUB 10000:INPUT PC 4220 IF PC< 1OR PC> 4THEN 4224 4222 GOTO 4230 4224 REM 4225 PLOT 6,39 4226 GOSUB 10000:PRINT " USING | " 4230 IF PC= 1THEN HC= 33 4235 IF PC= 2THEN HC= 15 4240 IF PC= 3THEN HC= 25 4245 IF PC= 4THEN HC= 8 4247 PLOT 6,39 4250 GOSUB 7300 4260 GOSUB 3700 4265 PLOT 6,39 4270 GOSUB 10000:PRINT "CAT COLOR " 4275 GOSUB 10000:PRINT " CHOOSE: " 4280 GOSUB 3700 4290 GOSUB 10000:PRINT " 0 1 2 3 4" 4300 PLOT 6,39 4310 GOSUB 3700 4320 GOSUB 10000:PRINT " d d d d d " 4330 PLOT 6,39 4340 GOSUB 3700 4350 GOSUB 10000:INPUT CC 4450 IF CC< 1OR CC> 4THEN 4454 4452 GOTO 4460 4454 GOSUB 10000:PRINT " USING d " 4460 IF CC= 1THEN TC= 14 4470 IF CC= 2THEN TC= 49 4480 IF CC= 3THEN TC= 28 4490 IF CC= 4THEN TC= 38 4500 GOSUB 7300 4510 PLOT 6,39 4520 GOSUB 3700 4530 GOSUB 10000:PRINT "DOG SYMBOL " 4535 GOSUB 10000:PRINT " CHOOSE: " 4540 GOSUB 3700 4550 GOSUB 10000:PRINT " 0 1 2 3 4" 4560 GOSUB 3700 4570 GOSUB 10000:PRINT " | D > ` * " 4575 PLOT 6,39 4580 GOSUB 3700 4590 GOSUB 10000:INPUT PS 4680 IF PS< 1OR PS> 4THEN 4700 4690 GOTO 4710 4700 GOSUB 10000:PRINT " USING | " 4710 IF PS= 1THEN PS$= "68" 4720 IF PS= 2THEN PS$= "62" 4730 IF PS= 3THEN PS$= "96" 4740 IF PS= 4THEN PS$= "42" 4750 GOSUB 7300 4760 PLOT 6,39 4770 GOSUB 3700 4780 GOSUB 10000:PRINT "CAT SYMBOL " 4785 GOSUB 10000:PRINT " CHOOSE: " 4790 GOSUB 3700 4792 GOSUB 10000:PRINT " 0 1 2 3 4" 4794 GOSUB 3700 4800 GOSUB 10000:PRINT " d C & p . " 4805 PLOT 6,39 4810 GOSUB 3700 4820 GOSUB 10000:INPUT CS 4900 IF CS< 1OR CS> 4THEN 4906 4903 GOTO 4910 4906 GOSUB 10000:PRINT " USING d " 4910 IF CS= 1THEN CS$= "67" 4913 IF CS= 2THEN CS$= "38" 4916 IF CS= 3THEN CS$= "112" 4920 IF CS= 4THEN CS$= "46" 4923 GOSUB 7300 4930 PLOT 6,2:FOR I= 1TO 8:GOSUB 3700:NEXT I 4940 PLOT 6,15,3,0,29:PLOT 32 4999 PLOT 3,64,0:RETURN 5000 PLOT 3,127,TX,TY,32 5040 IF TY< 20THEN 5200 5045 IF TX= 33AND TY= 22THEN 6100 5050 IF TX> 12THEN 5200 5070 IF TX= 7AND TY= 22THEN 6100 5080 IF TX= 12AND TY= 23THEN 6100 5090 IF TX= 10AND TY= 20THEN 6100 5100 IF TX= 8AND TY= 24THEN 6100 5130 IF TX= 11AND TY= 26THEN 6100 5140 IF TY> 8AND TX> 28THEN 5270 5150 IF TX< 28AND TY> 8THEN 5270 5200 IF TX< 33AND TX> 9AND TY< 9AND TY> 4THEN 6200 5210 IF TX< 39AND TX> 27AND TY< 27AND TY> 17THEN 11000 5270 PLOT 32 5280 REM 5315 CX= TX:CY= TY:TX= TX+ FN R(TS) 5320 GOSUB 7000 5325 IF ABS (HX- TX)< 2* TSTHEN TX= CX+ TS* SGN (TX- HX):GOSUB 7000 5340 TY= TY+ FN R(TS) 5350 GOSUB 7050 5355 IF ABS (HY- TY)< 2* TSTHEN TY= CY+ TS* SGN (TY- HY):GOSUB 7050 5360 IF M< 100THEN 5395 5380 IF M= 100THEN 8000 5385 IF M= 200THEN 8400 5388 IF M= 300THEN 8500 5389 IF M= 400THEN 8600 5390 IF M= 500THEN 11400 5395 IF TY> 8AND TX< 28THEN 5430 5400 IF TX< 33AND TX> 9AND TY< 9AND TY> 4THEN 6700 5410 IF TX< 39AND TX> 27AND TY< 27AND TY> 17THEN 11100 5430 REM 5510 PLOT 3,127,TX,TY,TC 5520 PLOT VAL (CS$) 5550 PLOT 3,127,HX,HY,32 5552 IF HY> 8AND HX< 28THEN 5575 5554 IF HX< 39AND HX> 27AND HY< 27AND HY> 17THEN 11300 5555 IF HX< 33AND HX> 9AND HY< 9AND HY> 4THEN 6900 5575 PLOT 32 5650 HY= HY+ HS* SGN (TY- HY) 5670 HX= HX+ HS* SGN (TX- HX) 5702 IF HX< 1THEN HX= 1 5704 IF HX> 42THEN HX= 42 5706 IF HY< 1THEN HY= 1 5708 IF HY> 30THEN HY= 30 5710 IF HY< 20THEN 5800 5711 IF HX= 33AND HY= 22THEN 7400 5712 IF HX> 12THEN 5800 5730 IF HX= 10AND HY= 20THEN 7400 5740 IF HX= 7AND HY= 22THEN 7400 5750 IF HX= 12AND HY= 23THEN 7400 5760 IF HX= 8AND HY= 24THEN 7400 5790 IF HX= 11AND HY= 26THEN 7400 5800 PLOT 3,127,HX,HY,HC 5810 PLOT VAL (PS$) 5830 REM 5920 IF HX= TXAND HY= TYTHEN 6300 5925 IF GO= 1THEN M= M+ 1 5999 M= M+ 1:GOTO 5000 6100 REM 6104 IF ABS (TX- HX)< 2* TSAND ABS (TY- HY)< 2* TSTHEN 6120 6106 PLOT 3,127,TX,TY,2:PLOT 115 6108 TX= TX- 1:TY= TY- 1:GOTO 5000 6120 GOSUB 6500 6150 FOR I= 1TO 8:GOSUB 10000:PRINT " CAT TREED! " 6155 NEXT I 6160 GOTO 19999 6200 GOSUB 6500 6250 FOR I= 1TO 8:GOSUB 10000:PRINT " CAT SWIMS! ":NEXT I 6260 GOTO 19999 6300 GOSUB 6500 6340 FOR I= 1TO 8:GOSUB 10000:PRINT " GOTCHA ":NEXT I 6360 GOTO 19999 6500 TX= TX- 1:GOSUB 6600 6530 TX= TX+ 2:GOSUB 6600 6540 TX= TX- 1 6550 TY= TY- 1:GOSUB 6600 6560 TY= TY+ 2:GOSUB 6600 6565 PLOT 27,27,6,57,31 6570 RETURN 6600 REM 6620 PLOT 3,127,TX,TY,101:PLOT 43:RETURN 6700 IF ABS (HX- TX)< 4AND ABS (HY- TY)< 4THEN 5430 6710 IF TY< 9AND TY> 6THEN TY= TY+ 2:GOTO 5430 6720 IF TY< 7THEN TY= TY- 2:GOTO 5430 6730 IF TY> 24THEN TY= TY+ 2:GOTO 5430 6740 IF TY< 20THEN TY= TY- 2:GOTO 5430 6750 IF TX< 31THEN TX= TX- 3:GOTO 5430 6760 TX= TX+ 3:GOTO 5430 6900 PLOT 3,127,HX,HY,116 6920 PLOT 94:PLOT 15 6940 PLOT 3,64,0:GOTO 5650 7000 IF TX< 1THEN TX= TX+ TS 7020 IF TX> 42THEN TX= TX- TS 7030 RETURN 7050 IF TY< 1THEN TY= TY+ TS 7060 IF TY> 30THEN TY= TY- TS 7070 RETURN 7100 REM 7120 PLOT 27,10,31 7140 PLOT 3,0,1 7150 FOR I= 1TO 30:PLOT LB:NEXT I 7170 PLOT 3,43,1 7180 FOR I= 1TO 30:PLOT RB:NEXT I 7185 PLOT 27,24 7190 PLOT 3,1,0:FOR I= 1TO 42:PLOT TB:NEXT I 7195 PLOT 3,1,31:FOR I= 1TO 42:PLOT BB:NEXT I 7196 PLOT 6,14:IF GO= 1THEN FOR I= 1TO 4:GOSUB 10000:PRINT "PASSING ";M/ 2:NEXT I:GOTO 7200 7197 FOR I= 1TO 4:GOSUB 10000:PRINT "PASSING ";M:NEXT I 7200 PLOT 15,3,64,0 7210 RETURN 7300 FOR I= 1TO 500:NEXT I:RETURN 7400 HX= HX- 1:GOTO 5800 7500 PLOT 6,38,8,11,15:RETURN 7600 PLOT 8,11,3,19,0:RETURN 7700 PLOT 8,6,14,31:RETURN 8000 PLOT 6,15:LB= 61:RB= 61:TB= 61:BB= 61 8010 GOSUB 7100:GOTO 5390 8400 PLOT 6,25,3,47,13:PRINT TS- 1 8410 TS= TS- 1:PLOT 6,27:LB= 32:RB= 32:TB= 32:BB= 32:GOTO 8010 8500 PLOT 6,25,3,59,13:PRINT HS+ 1 8510 HS= HS+ 1:PLOT 6,24:LB= 61:RB= 61:TB= 61:BB= 61:GOTO 8010 8600 PLOT 6,25,3,47,13:PRINT TS- 1 8610 PLOT 6,25,3,59,13:PRINT HS+ 1 8620 TS= TS- 1:HS= HS+ 1:PLOT 6,1:LB= 124:RB= 126:TB= 119:BB= 116:GOTO 8010 10000 A= CALL (0) 10010 PLOT 3,X,Y+ H- 1:PRINT SPC( W)"" 10020 PLOT 3,X,Y+ H- 1 10025 PLOT 15 10030 RETURN 11000 IF TX< 36AND TX> 30AND TY< 25AND TY> 19THEN 11020 11010 GOTO 6200 11020 PLOT 3,127,TX,TY,59:PLOT 96:GOTO 5280 11100 IF TX< 36AND TX> 30AND TY< 25AND TY> 19THEN 11200 11110 GOTO 6700 11200 GOTO 5430 11300 IF HX< 36AND HX> 30AND HY< 25AND HY> 19THEN 11320 11310 GOTO 6900 11320 PLOT 3,127,HX,HY,59:PLOT 96:GOTO 5650 11400 PLOT 6,6 11410 PLOT 31 11420 FOR I= 1TO 40:GOSUB 10000:PRINT "ENOUGH ALREADY" 11430 NEXT I 11440 GOTO 19999 19999 PLOT 6,57,15 20005 IF GO= 1THEN FOR I= 1TO 4:GOSUB 10000:PRINT M/ 2;" MOVES ":NEXT I:GOTO 20025 20010 FOR I= 1TO 4:GOSUB 10000:PRINT M;" MOVES ":NEXT I 20025 GOSUB 7300 20030 PLOT 6,2,12,27,11,14 20035 IF GO= 1THEN PLOT 6,8,12:GOTO 90 20040 PLOT 3,20,16 20050 INPUT "WATCH ANOTHER CHASE (YES OR NO) ?";A$ 20060 IF LEFT$ (A$,1)= "Y"THEN 90 20065 PLOT 6,1,3,0,28:PRINT "O.K. THANKS FOR WATCHING. HAVE A NICE DAY !" 20080 GOSUB 7300:PLOT 12,6,2,15 20100 GOTO 20200:REM ******************************************: 20150 LOAD "MENU":RUN 1 20200 END 64000 GOSUB 65410 64010 Z= 28672+ 128* Y+ X+ X:AD= TM+ 2:GOSUB 65400 64015 Z= 128- W- W:AD= TM+ 25:GOSUB 65400 64020 POKE TM+ 5,H- 1:POKE TM+ 7,W* (C+ 1):POKE TM+ 19,35* (1- C) 64030 RETURN 65000 GOSUB 65410:RESTORE 65030 65030 DATA 33,-1,-1,6,-1,14,-1,17,128,0,25,126 65040 DATA 17,128,255,25,119,35,-1,13,194,-1,-1 65050 DATA 17,-1,-1,25,5,194,-1,-1,201 65055 IF TM> 65503THEN TM= TM- 32:GOTO 65080 65060 FOR I= 1TO 32:READ A 65065 IF A> = 0AND A< > PEEK (TM+ 1)THEN I= 32:TM= TM- 32 65070 NEXT 65080 RESTORE 65030 65090 FOR I= 1TO 32:READ A:POKE TM+ I,A- (A< 0):NEXT 65100 Z= TM+ 1:AD= 33283:GOSUB 65400 65110 Z= TM:AD= ER:GOSUB 65400 65120 Z= TM+ 6:AD= TM+ 30:GOSUB 65400 65130 Z= TM+ 8:AD= TM+ 22:GOSUB 65400 65190 CLEAR 25:GOTO 1 65400 ZZ= INT (Z/ 256):POKE AD,Z- 256* ZZ:POKE AD+ 1,ZZ:RETURN 65410 ER= 32940:TM= 256* PEEK (ER+ 1)+ PEEK (ER):RETURN 65500 END