	ORG $8F00	Wolfgang Schwotzer	10.1.1982
ANFANG LDA #$92
 EXG A,DP
 LDX #HEADER
 CLR <$46
 CLR <$47
 LBSR $F024
EINGAB LBSR $F00F
 TFR X,D
 TFR B,A
 BCS EINGAB
 COMA
 STA $41
SSTUFE LDX #$9300
 LBSR $F024
 LBSR $F00F
 TFR X,D
 TFR B,A
 BCS SSTUFE
 CMPA #8
 BLO SSTUFE
 COMA
 LDB #$40
 MUL
 STD <$42
 LDX #$3FFF
CLEAR CLR $4000,X
 LEAX -1,X
 BNE CLEAR
 LDA #$F
 STA <$48
 STA <$45
 CLRB
WAG LDA <$45
 LSLA
 LSLA
 TFR D,X
 LEAX $4036,X
 LBSR WAGENZ
 DEC <$45
 BNE WAG
 CLR $FCF7
 CLR $33
POINT1 LBSR BILDAN
 LDA <$47
 COMA
 LDB #64
 MUL
 STX <$34
 ADDD <$34
 EXG D,X
 LBSR TVEND
 COM 8,X 
 LDB #$31
 JSR BILDAN
LOOP1 CLR B,X
 DECB
 BNE LOOP1
 LDA #$66
 STA $F,X
 STA $31,X
 DEC <$30
 BNE GET
 INC <$3F
 BNE ON
 LDA #$56
 STA $3F
ON LDA [$923E]
 STA $30
 INC <$3F
 LBSR BILDAN
 LDA [$923E]
 LEAX A,X
 LBSR WAGENZ
GET DEC $40
 BNE LOADB
 LDB #9
 STB $40
 LDB #4
 LDA >$FCF0
LOOP2 DECB
 BEQ INP
 CMPA >$FCF0
 BEQ LOOP2
LOADB LDB <$32
 BRA FALSCH
INP LDB $32
 ANDA #%1111111
 CMPA #'.
 BEQ GROES
 CMPA #',
 BNE FALSCH
 DECB
 CMPB #$F
 BGT FALSCH
 LDB #$10
 BRA FALSCH
GROES INCB
 CMPB #$31
 BLO FALSCH
 LDB #$30
FALSCH STB $31
 BSR BILDAN
 BSR HOEHE
 BSR TVEND
 LEAX $40,X
 BSR TVEND
 LDA $32
 LDB #$8
LOOP4 CLR A,X
 LEAX $40,X
 BSR TVEND
 DECB
 BNE LOOP4
 BSR BILDAN
 BSR HOEHE
 BSR TVEND
 LDB $31
 STB <$32
 LEAX B,X
 TFR X,Y
 LDB #$8
 STA $44
LOOP3 LDA ,Y
 BNE CRASH
 LEAY $40,Y
 CMPY #$8000
 BLO NO
 LEAY $C000,Y
NO	DECB
 BNE LOOP3
 BSR WAGENZ
 DEC <$33
 BNE NOR
 CLRA
 INC <$47
 BNE NOR
 INC <$46
NOR LDA <$33
 STA $FCF7
 LBRA POINT1
BILDAN STD <$34
 LDA <$33
 LDB #64
 MUL
 EXG D,X
 LEAX $4000,X
 LDB $41
 BEQ RET
VERZ DECB
 BNE VERZ
RET LDD <$34
 RTS
TVEND CMPX #$8000
 BLO NEIN
 LEAX $C000,X
NEIN RTS
 RTS
HOEHE EXG D,X
 ADDD <$42
 EXG D,X
 RTS
CRASH BSR WAGENZ
 TFR X,Y
 LDA #8
LOOP5 LDY #$3FFF
LOOP6 COM $4000,Y
 LEAY -1,Y
 BNE LOOP6
 DECA
 BNE LOOP5
 LDB #8
 LEAX $3C80,X
 BSR TVEND
LOOP7 CLR ,X
 LEAX $40,X
 BSR TVEND
 DECB
 BNE LOOP7
 LDA $48
 LSLA
 LSLA
 CLRB
 TFR D,X
 LDB #8
LOESCH CLR $4036,X
 LEAX $40,X
 DECB
 BNE LOESCH
 DEC <$48
 BEQ ENDE
 LBRA POINT1
WAGENZ LDY #$9236
 LDB #8
BUCH1 LDA ,Y+
 STA ,X
 LEAX $40,X
 BSR TVEND
 DECB
 BNE BUCH1
 RTS
ENDE LDX #ERG9
 LBSR $F024
 LDX #$9246
 LBSR $F01E
 LBRA END1
 ORG $91AD
 ORG $9230
 FCB $FF,0,$20,0,0,0,$FF,$FF,$3C,$3C,$3C,$FF,$FF,0,$92,$55,9,0,$3C,0,0,0,0,0,0
END1 LDX #ERGA
 LBSR $F027
 CLR $FCF7
 LBRA $F02D
 ORG $9256	RENNSTRECKE:
 FCB 97,23,54,29,88,40,54,34,45,20,76,47,34,39,63,27,51,22,49,32,72,43,22,16
 FCB 48,21,69,36,88,28,73,41,50,24,87,33,82,48,80,38,74,29,99,18,80,40,34,36
 FCB 78,25,57,43,39,34,95,19,74,45,40,30,78,38,87,26,60,16,64,22,83,41,102
 FCB 31,67,35,81,17,99,44,75,32,79,23,60,46,76,40,108,28,94,20,65,43,89,24
 FCB 78,30,56,39,33,18,94,48,49,33,85,25,52,19,104,42,78,37,69,47,29,27,84,22,52
 FCB 34,94,45,52,35,98,26,80,21,104,40,76,46,97,31,46,17,88,38,66,28,59,18
 FCB 87,44,72,32,19,23,97,37,34,41,74,48,86,29,87,24,79,42,98,16
 FCB 59,18,104,39,74,47,68,26
 ORG $9300
 FCC ' Schwierigkeitsstufe (0008 - 00FF)?	',$04
ERG9 FCC ' Ergebnis: Sie haben nach ',$04
ERGA FCC ' Runden 15 Wagen geliefert.',$D,$A,$04
HEADER FCC '	G R A N D	P R I X',$D,$A,$A
 FCC ' Steuern Sie Ihren Wagen (mit < und >) zwischen den anderen',$D,$A
 FCC ' hindurch. Geschwindikkeit (0001 - 00FF)?	',$04
 END ANFANG

                                                                                                                                                                                                                                             