64er_1984-04.pdf

VC 20 Grundversion
ahrer
irzhelm
678
6S0
698
788
71.8
728
738
748
PR I N T "£153"
PR I NT " M5lgMi»llll.Si-'-IRGEN : " W
P R I NT " MMHWIHSFIUNDEN : " R
I F rD= 1THENRETURH
P O K E S , E
M < E ::• = 1
GET Fl*
F0RV=1T0N:NEXTV
IFfi*="L"THENG0SUB798
IFfl*="R"THENGOSUBS18
IFPEEK
GOTOS38
758 S=S+M
>+m •:: e ::• > = i e 0 r h e n g o t o 7 5 e
768 P 0 K E 8 , E : P 0 K E S ••- M < E > , 16 8
778 P 0 K E36378 , 18 s P 0 K E36876 , 288 : P 0 K E36876 , 8
788 G8T8698
798 E=E-i-1 : IFE=5THENE = 1
388 RETURN
8:1.8 E=E-1 :IFE=0THENE=4
828 RETURN
838 IFPEE K < S+M < E > > < > 13 7 T H E N8 7 8
848 P0KE3687'8 , 14 : F0RI = 1 T02 : P0KE36876 , 235 : F C IT = 1T09 :l-lEXT ;; P0KE36876 , 231 :;F8RT = :l. T09
: NEXTT,I
858 R=R+1:POKE3681
368 GOT0938
878 IFS+M=791@C
888 G0SUB918
898 P8KE36373 , 13 :: FORT--158T8228
w
Ä
S
m i POKL-' :
-.iv. -76 , 8 ÜÜ> LH:" ;! i. - 8 s Z~Z 1 : IF Z~:U rH F NGi JT n H40
"932THENGOT012c
988 P0KE36877,T:FORG=1T05:NEXTG,T :P0KE36877,8 :P0KE36:
918 P 0 K E S , 32+123 s P 0 K E S+M E > , 7 3 5 R E T U R N
928 = N :l. : IF H=8 T H E N G 0 T0948
938 D=8 s F :' 0 K E19 8 , 8 ; G 0 T0358
948 PR I NT " s P0KE36878 , 14 : F0RT= 1 28T8255 ;: P0KE36376 , T : NEXT sPOKESe
958 P 0K E36869,248
968 IF F :' E E K < 828 > < R T H E N F :' 0 K E828 , R
978 P 0 K E36879 , 8
938
990
1000
:l o :l. O
1 020
1 030
1848
1050
1060
1070
1038
PR I NT " 'MM" CHR$ < 8 > ; : P0KE3679 , 8
FORI = 1 TO21
P 0 K E646 , R N D < 1 > * 6 •+• 2 :: P R INT" '' ;
NEXT
PR I NT " lOMlslUE I l-l SCORE : " R
PR I NT " a a j H I GH SU: ORE - " • PEEK < 828 >
PR I NT " mm" i :HR* •:: 8 ::• .? :: P0KE3679 , 3
F0RI=1T021
P0KE646 , RN0 < 1 > *6 -i-2 PR I l-lT " " ;
NEXT
PRINT" aaüMUMar^ocH e i n s p i e l ? "
1 1
3IIIMIIlll(J/N)
1898 PRINT"
1 180 GETfl*: IFFi•$•'=••" J " THEND=6 : R=8 : PR I NT "
1 1 1 O IFfl$=" N"THENEND
: 80=8 : G0T0288
1 120
1 :l. so
1140
1150
1 160
1 188
1288
1210
1 220
1230
G0T0110O
IFR/50 I NT' : : r / 5 > t h e n r e t u r f -
1
P8KE36378,13
FORI=1T04
-8iGOTO328
Listings des Basicprogramms »Auto«
F=195:GOSUB1138 s F=287 : GOSUB1188sF=25 ::. 1 ; i:30:BUB 1 1 3k} F'^225 5 GGT'U 1 200
P8KE36376,Fs GOSUB1228 : RETURN
NEXT I
P0KE36876 , 8 P8KE36873 , 8 :: RETURN
FORV=1TO20sNEXTV:RETURN
Z=6:FORT=1T04580:NEXT sPOKES,96+128:S=S+2:POKES,EsPOKES-1,221 sGOTO690
Rennfahrer
Zählvariablen für Sound- und Grafikbefehle
Variable für Tastaturabfrage
Spielstärken
Variablen für Erzeugung der verschiedenen
Zeichensatzes
Variablen für Erzeugung des neuen
Variablen für A**—
Vari^
Variablendefinition zu »Auto«
lange zu fahren. Dazu hat
man am Anfang fünf Wagen
zur Verfügung.
Man verliert einen Wagen,
wenn man an die Abgrenzung
der Strecke
kommt oder über fünf Runden
nicht zur Tankstelle gefahren
ist.
Im Eifer des Gefechts
das Tanken
nicht vergessen
Als kleine Hilfe wird man
jede fünfte Runde akustisch
in Kenntnis gesetzt, daß man
tanken muß. Zur Tankstelle
kommt man, wenn man in
die erste Einbiegung auf
der linken Seite fährt (siehe
Bild).
Zwei Tasten sind
genug
Gesteuert wird der Wagen
über 'R' wie rechts und
'L' wie links.
In der Mitte des Bildschirms
sieht man, wieviele
Wagen man noch hat und
wieviele Runden man gefahren
ist.
Am Ende des Spiels wird
der eigene Score und der
Highscore angezeigt, welcher
im Kassettenpuffer abgelegt
wird. Es erfolgt die
Frage nach einem weiteren
Spiel, die mit »J« Ja) oder »N«
(Nein) zu beantworten ist.
Viel Spaß beim Spielen
wünscht
(Andreas Leren)
Ausgabe 4/April 1984 aatä? 87