Mit "Rasen" meine ich "Schnell fahren", nicht das grüne Zeugs
Wollte mich eigentlich am Wettbewerb beteiligen, aber dann habe ich die Einschränkung auf 8-Bitter gesehen.
Also sind es 13 Zeilen mit max. 80 Zeichen Länge geworden. Ziel war die Spielbarkeit, und die Portabilität auf mindestens jeden PC (keine CPU-Speed Abhängigkeit).
Gespielt wird es (nach Start mit "RUN" im Interpreter) mit den Tasten "n" und "m" (ja, und nur mit den Kleinbuchstaben!). Abbruch mit "q" möglich.
Hier der Source-Code, frei kopierbar und abänderbar wie ihr wollt, solange ihr die ursprüngliche Quelle (mich) angibt:
10 DEFINT A-Z:RANDOMIZE TIMER:D!=TIMER:S=RND*40!+20:C=S+4:O=C:CLS
20 LOCATE 11,1:FOR I=1 TO 12:PRINT SPC(S);"|";SPC(10);"|":NEXT I:Z=0:V!=.3
30 R=RND*7:IF R<3 THEN M=-1 ELSE IF R=3 THEN M=0 ELSE M=1
40 LOCATE 2,1:PRINT "KM:";Z;" Vmax:";310-CINT(V!*1000!):S=S+M
50 LOCATE 23,1:IF S>58 THEN S=58 ELSE IF S<1 THEN S=1
60 PRINT SPC(S%);"|";SPC(10);"|";" ":PRINT:Z=Z+10:T=SCREEN(10,C):LOCATE 10,C
70 PRINT "*";:LOCATE 9,O:PRINT " ";:IF T<>32 THEN LOCATE 3,1:PRINT "CRASH!"
80 IF T<>32 THEN SOUND 37,5:LOCATE 23,1:END ELSE O=C:IF TIMER<D!+1 THEN 110
90 IF V!>.1 THEN V!=V!-.01 ELSE IF V!>.05 THEN V!=V!-.005 ELSE V!=V!-.001
100 D!=TIMER:SOUND Z/10+100,2:IF V!<0 THEN V!=0
110 K$=INKEY$:T!=TIMER+V!:WHILE TIMER<T!:WEND
120 IF K$="" THEN 30 ELSE IF K$="n" THEN C=C-1 ELSE IF K$="m" THEN C=C+1
130 IF K$="q" THEN LOCATE 23,1:END ELSE 30:REM (C) P.DASSOW
Hier auch mal ein Screenshot mit einem real erspielten Highscore (Uff!), DOSBOX als Emulator, BASICA 3.30 als Basic-Variante (GWBASIC geht natürlich auch):
P.S.: Jetzt auch als kompilierte EXE (im ZIP) anbei.