Compucolor.org – Virtual Media

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