RACE.BAS
Written somewhere in the late 80s

10 'The Mad Computer Character Race!
20 'By: Jason Dessel
30 ONBRKGOTO400
40 POKE&HF812,&H21:POKE&HF91C,&H21 'Disable cursor on "PRINT" and "LOCATE"
50 POKE65496,0:INPUT"Length of race (1-80)";Q:IFQ<1 OR Q>80 THEN SOUND50,10:SOUN
D30,10:PRINT"DUH! Can't you read!? 1 - 80!":GOTO50
60 PALETTE1,7:PALETTE2,56:PALETTE3,1:PALETTE4,32:PALETTE5,34:PALETTE6,8
'Background Palettes (RGB)
70 PALETTE9,40:PALETTE10,38:PALETTE11,34:PALETTE12,54:PALETTE13,50:PALETTE14,18:
PALETTE15,29 'Foreground Palettes (RGB)
80 WIDTH80:PALETTE0,0:PALETTE8,63:CLS1
90 PALETTE1,7:ATTR0,1,B:PRINTTAB(19)"The MAD computer character race!!!!":ATTR0,
0
100 ATTR1,2:PRINTTAB(26)"By: Jason Dessel!!":ATTR0,0:X=RND(-TIMER)
110 PRINT:PRINT"COMPETITORS:":ATTR1,0:PRINT" 1) The slick STARS (*)":ATTR2,0:PRI
NT" 2) The pulsating PLUS SIGNS (+)":ATTR3,0:PRINT" 3) The devious DASHES (-)":A
TTR4,0:PRINT" 4) The soaring SLASHES (/)":ATTR5,0:PRINT" 5) The ever-endangering
EQUALS (=)"
120 ATTR6,0:PRINT" 6) The conquering QUESTION MARKS (?)":ATTR7,0:PRINT" 7) The a
wesome ATS (@)":ATTR0,0:PRINT" 8) The conquering COLONS (:)":ATTR1,0:PRINT" 9) T
he devious DOLLAR SIGNS ($)":ATTR2,0:PRINT"10) The proud PERCENTS (%)":ATTR0,0
130 PRINT:PRINT"Who do you think will win?? "
140 A$=INKEY$:IF A$=""THEN140
150 CLS:ATTR0,6:PRINT"***The MAD Computer Character Race!";:ATTR0,3:PRINT"Your C
hoice...";A$;" -- "CHR$(34)"F"CHR$(34)" indicates finish line!";
160 LOCATE0,1:ATTR0,5:PRINT"By... ";:ATTR0,5,U:PRINT"Jason Dessel!!";:ATTR0,5:PR
INTSTRING$(59,CHR$(32)):LOCATE0,2:ATTR0,4:PRINTSTRING$(Q-1,"-");:PRINT"F";:ATTR0
,0
170 POKE65497,0 'The REAL High-Speed POKE!
180 ATTR0,0:RN=RND(10)-1
190 IF RN=1 THEN PS=PS+1:ATTR1,0:LOCATEPS,5:PRINT"*";
200 IF RN=2 THEN P2=P2+1:ATTR2,0:LOCATEP2,7:PRINT"+";
210 IF RN=3 THEN P3=P3+1:ATTR3,0:LOCATEP3,9:PRINT"-";
220 IF RN=4 THEN P4=P4+1:ATTR4,0:LOCATEP4,11:PRINT"/";
230 IF RN=5 THEN P5=P5+1:ATTR5,0:LOCATEP5,13:PRINT"=";
240 IF RN=6 THEN P6=P6+1:ATTR6,0:LOCATEP6,15:PRINT"?";
250 IF RN=7 THEN P7=P7+1:ATTR7,0:LOCATEP7,17:PRINT"@";
260 IF RN=8 THEN P8=P8+1:ATTR0,0:LOCATEP8,19:PRINT":";
270 IF RN=9 THEN P9=P9+1:ATTR1,0:LOCATEP9,21:PRINT"$";
280 IF RN=0 THEN P0=P0+1:ATTR2,0:LOCATEP0,23:PRINT";";
290 IF PS=Q THEN ATTR0,1:SOUND50,10:PRINT"STARS win!!":GOTO400
300 IF P2=Q THEN ATTR0,1:SOUND50,10:PRINT"PLUS win!!":GOTO400
310 IF P3=Q THEN ATTR0,1:SOUND50,10:PRINT"DASHES win!!":GOTO400
320 IF P4=Q THEN ATTR0,1:SOUND50,10:PRINT"SLASHES win!!":GOTO400
330 IF P5=Q THEN ATTR0,1:SOUND50,10:PRINT"EQUALS win!!":GOTO400
340 IF P6=Q THEN ATTR0,1:SOUND50,10:PRINT"QUESTION MARKS win!!":GOTO400
350 IF P7=Q THEN ATTR0,1:SOUND50,10:PRINT"AT SIGNS win!!":GOTO400
360 IF P8=Q THEN ATTR0,1:SOUND50,10:PRINT"COLONS win!!":GOTO400
370 IF P9=Q THEN ATTR0,1:SOUND50,10:PRINT"DOLLAR SIGNS win!!":GOTO400
380 IF P0=Q THEN ATTR0,1:SOUND50,10:PRINT"PERCENT SIGNS win!!":GOTO400
390 GOTO180
400 PRINT:ATTR0,3:PRINT"Press a key:":EXEC44539:CLS:INPUT"Would you like to play
again";PA$:IFPA$="Y"THENRUNELSEATTR6,0,B:PRINT"Well, it's been fun!":ATTR0,0:PO
KE65496,0