Listing of file='RACE' on disk='vmedia/games_vol_3.wvd.zip'
# Sector 220, program filename = 'RACE' 0010 REM THIS IS A LOUSY VERSION OF THE RACE GAME, 10/4/74 0015 PRINT HEX(03) 0035 DIM A$1,C$1 0036 DIM Z1$16,Z2$64 : INIT(0A)Z1$ : INIT(09)Z2$ : STR(Z1$,1,1)=HEX(01) : STR(Z2$,1,1)=HEX(00) 0040 DIM P(2,2),V(2,2),R$(2),S(2),T$(16)64 0045 GOTO 2000 0050 KEYIN A$,140,60 : RETURN 0060 AND (A$,0F) : A=VAL(A$) : I1=1 : IF A<8 THEN 70 : I1=2 : A=A-10 0070 IF R$(I1)="*" THEN 140 : ON A-1 GOTO 90,100,110,120 0080 V(I1,1),V(I1,2)=0 : GOTO 50 : REM PANIC STOP 0090 V(I1,1)=V(I1,1)-.5 : GOTO 50 : REM LEFT 0100 V(I1,1)=V(I1,1)+.5 : GOTO 50 : REM RIGHT 0110 V(I1,2)=V(I1,2)+.125 : GOTO 50 : REM DOWN 0120 V(I1,2)=V(I1,2)-.125 : GOTO 50 : REM UP 0140 RETURN 0150 IF P(I,1)>0 THEN 151 : P(I,1)=0 : R$(I)="*" 0151 IF P(I,1)<62 THEN 152 : P(I,1)=62 : R$(I)="*" 0152 IF P(I,2)>0 THEN 153 : P(I,2)=0 : R$(I)="*" 0153 IF P(I,2)<14 THEN 160 : P(I,2)=14 : R$(I)="*" 0160 PRINT HEX(01) : PRINT STR(Z1$,1,P(I,2)+1);STR(Z2$,1,P(I,1)+1);R$(I);HEX(08); 0170 RETURN 0360 FOR I=1 TO 2 : GOSUB 50 : IF R$(I)="*" THEN 720 0390 FOR J=1 TO 2 0400 P0=INT(P(I,J)) : P(I,J)=P(I,J)+V(I,J) 0420 V0=V0+ABS(P0-INT(P(I,J))) 0430 NEXT J 0440 IF V0=0 THEN 720 : V0=0 : GOSUB 50 : GOSUB 150 : IF R$(I)="*"THEN 610 : GOSUB 50 0530 C$=STR(T$(INT(P(I,2))+1),INT(P(I,1))+1) 0560 IF C$<"A" THEN 580 : IF C$<="Z" THEN 680 0580 IF C$<>" " THEN 610 : NEXT I : GOTO 360 0610 V(I,1),V(I,2)=0 : R$(I)="*" : GOSUB 150 : S(I)=S(I)-1 : REM CRASH 0650 IF R$(3-I)="*" THEN 710 : GOTO 720 0680 PRINT : PRINT TAB(63);HEX(0C) : PRINT I;"WINS!" : S(I)=S(I)+10 0710 I=3 : NEXT I : GOTO 1030 0720 NEXT I 0730 IF INT(P(1,1))<>INT(P(2,1)) THEN 360 0740 IF INT(P(1,2))<>INT(P(2,2)) THEN 360 0750 PRINT : PRINT TAB(63);HEX(0C) 0760 PRINT "COLLISION BETWEEN CARS!" 1030 FOR I=1 TO 500 : NEXT I 1050 PRINT HEX(03);"SCORE: ";S(1);"TO ";S(2) 1060 FOR I=1 TO 100 : NEXT I 1080 GOTO 2200 1090 DATA 3 1100 DATA "!============================================================!" 1110 DATA "!1 ===============!" 1120 DATA "!2 ===============!" 1130 DATA "!===================================== ==============!" 1140 DATA "!=================================== ===============!" 1150 DATA "!========================== =====================!" 1160 DATA "!=================== ==========================!" 1170 DATA "!=========== ================================!" 1180 DATA "!==== ======================================!" 1190 DATA "!==== ==========================================!" 1200 DATA "!==== ============================ E" 1210 DATA "!===== ==================== N" 1220 DATA "!========= ======== D" 1230 DATA "!================= ===============!" 1240 DATA "!======================== =================!" 1250 DATA "!============================================================!" 1260 DATA 1,1,1,2 1270 DATA "!=====================================================END====!" 1280 DATA "!================ ======= 1 2 ============== ====!" 1290 DATA "!=========== ==== ============= ====!" 1300 DATA "!===== ====== === ============ ====!" 1310 DATA "!== =========== === ========== ===!" 1320 DATA "!== ========== ==== ======== ==!" 1330 DATA "!= ======= ====== ======== ==!" 1340 DATA "!== ====== === ====== ===!" 1350 DATA "==== ======= ======= ===!" 1360 DATA "===== ========== ======== ===!" 1370 DATA "!====== =========================== ===!" 1380 DATA "!======== =================== =====!" 1390 DATA "!============= ========= =======!" 1400 DATA "!================ ===============!" 1410 DATA "!==================== ==================!" 1420 DATA "!============================================================!" 1430 DATA 36,1,38,1 1440 DATA "!============================================================!" 1450 DATA "!1 ================= E" 1460 DATA "!2 === = N" 1470 DATA "!============ ======= D" 1480 DATA "!=============== = =====================!" 1490 DATA "!================= ======================!" 1500 DATA "!================= ======================!" 1510 DATA "!=============== = ====================!" 1520 DATA "!============ ========= =================!" 1530 DATA "!======= ================= ============!" 1540 DATA "!=== ======================= =========!" 1550 DATA "!=== =========================== =========!" 1560 DATA "!===== ======================= ===========!" 1570 DATA "!======== ==============!" 1580 DATA "!============== ====================!" 1590 DATA "!============================================================!" 1600 DATA 1,1,1,2 2000 REM ******** SETUP ************ 2020 PRINT "DO YOU NEED INSTRUCTIONS? "; : KEYIN A$ 2030 PRINT HEX(03) : IF A$="N" THEN 2200 : IF A$="n" THEN 2200 2040 PRINT HEX(03);"THIS IS REALTIME VECTOR RACING." 2050 PRINT "Player 1: left=SF2, right=SF3, down=SF4, up=SF5" 2060 PRINT "Player 2: left=SF12, right=SF13, down=SF14, up=SF15" 2195 DEFFN'0 2200 RESTORE : READ T1 : KEYIN A$,2210,2210 2210 INPUT "TRACK",T : IF T>T1 THEN 2210 : IF T<1 THEN 2210 : PRINT HEX(03) 2220 RESTORE T*20-18 2260 FOR I=1 TO 15 : READ T$(I) : PRINT T$(I) : NEXT I 2270 READ T$(16) : PRINT T$(16);HEX(01) : PRINT HEX(01); 2290 R$(1)="1" : R$(2)="2" : P8,P9,C9=0 2300 FOR I=1 TO 2 : FOR J=1 TO 2 : READ P(I,J) : V(I,J)=0 : NEXT J : NEXT I 2310 GOTO 360 2500 DEFFN'4 : SCRATCH T/D11,"RACE" : SAVE T/D11,()"RACE" : STOP "RACE SAVED" 9999 DEFFN'31 : LOAD T"Games"