Listing of file='INCHWR.BAS;01' on disk='vmedia/ncc_3-sector.ccvf'
10 PLOT 12,27,24 20 A= 0 30 B= 0 40 C= 0 50 X= 0 60 Y= 0 62 GOSUB 5000 65 PLOT 3,127,50,4,0:PRINT " " 66 PLOT 3,127,10,4,1:INPUT "HOW MANY INCHWORMS DO YOU WISH TO RACE? ";T 67 IF T< 2OR T> 7GOTO 65 68 PLOT 6,48,3,0,4,11 69 GOSUB 2000 70 FOR I= 1TO 360 75 FOR Q= 1TO PEEK (33209) 80 R= INT ((T+ 2)* RND (Q)+ 1) 82 IF R> TGOTO 80 85 NEXT Q 90 ON RGOTO 100,150,200,250,300,350,400 100 A= A+ 1 110 Y= 10 120 X= A 130 GOSUB 1000 140 GOTO 500 150 B= B+ 1 160 Y= 13 170 X= B 180 GOSUB 1000 190 GOTO 500 200 C= C+ 1 210 Y= 16 220 X= C 230 GOSUB 1000 240 GOTO 500 250 D= D+ 1 260 Y= 19 270 X= D 280 GOSUB 1000 290 GOTO 500 300 E= E+ 1 310 Y= 22 320 X= E 330 GOSUB 1000 340 GOTO 500 343 NEXT M 350 F= F+ 1 360 Y= 25 370 X= F 380 GOSUB 1000 390 GOTO 500 400 G= G+ 1 410 Y= 28 420 X= G 430 GOSUB 1000 440 GOTO 500 500 REM 510 L(0)= 0:L(1)= A:L(2)= B:L(3)= C:L(4)= D:L(5)= E:L(6)= F:L(7)= G 512 L(8)= 0 515 FOR S= 1TO T 520 FOR M= 1TO T 530 IF L(M)< = L(S)GOTO 543 532 IF L(M)< = L(8)GOTO 543 534 L(8)= L(M) 536 J= M 543 NEXT M 545 NEXT S 600 PLOT 3,127,24,7,J* 8:PRINT " " 700 IF L(8)= 59GOTO 905 900 NEXT I 905 PLOT 3,127,24,7,J* 8:PRINT " " 910 PLOT 3,127,40,7,65:PRINT "THE WINNER" 915 PLOT 3,127,54,7,J* 8:PRINT " " 920 PLOT 3,127,14,4,1:INPUT "DO YOU WISH TO RACE AGAIN? Y/N ";A$ 930 IF A$= "Y"GOTO 10 940 IF A$< > "Y"THEN LOAD "MENU":RUN 999 END 1000 REM 1005 PLOT 3,X,Y 1010 GOSUB 3000 1020 FOR N= 1TO 100:NEXT N 1030 PLOT 3,X+ 1,Y 1040 GOSUB 3200 1050 RETURN 2000 FOR Y= 10TO 10+ 3* (T- 1)STEP 3 2005 R= ((Y- 7)/ 3) 2010 X= 0 2020 PLOT 3,X,Y 2030 GOSUB 3200 2040 NEXT Y 2050 RETURN 3000 PLOT 6,R,2,254,0,72,68,68,132,255,3,64,0 3010 RETURN 3200 PLOT 6,R,2,254,0,120,17,135,255,3,64,0 3210 RETURN 5000 PLOT 6,1,2,1,0,242,1,127,255 5010 PLOT 2,126,0,242,126,127,255 5015 PLOT 6,0 5020 FOR Y= 8TO 26STEP 3 5030 PLOT 3,1,Y 5040 PRINT " " 5041 PLOT 3,1,Y+ 1 5042 PRINT "e e e e e e e e e e e e e e e e e e e e e e e e e e e e e e e " 5050 NEXT Y 5060 FOR Y= 0TO 5 5070 PLOT 6,48,3,0,Y,11 5080 NEXT Y 5082 FOR Y= 30TO 31 5084 PLOT 6,48,3,0,Y,11 5086 NEXT Y 5090 PLOT 3,128,18,3,48:PRINT "I N C H W O R M R A C E" 5100 PLOT 3,127,5,7,6:PRINT "LEADING THE RACE" 5110 RETURN