90 PRINT"[147][151]"
100 SYS 49152
105 PRINT
110 AA=40960:XD=128:YD=64
120 SP=32:ZE=207:FA=0
130 SR=57344:REM SPRITEADRESSE
140 V=53248:REM VIC
145 CO=V+31:REM COLLISION
150 SZ=53240:REM SPRITE-ZEIGER
160 G1=AA+2470:G2=AA+2477
165 G3=AA+6250:G4=AA+6271
170 FZ=3:REM FASSZAEHLER
180 A$(0)="AUF":A$(1)=" ZU[151]"
190 DEF FNA(X)=SIN(X*.7)*COS(X*2.2)
195 :
200 _RS   :REM RESET ALLER REGISTER
201 _CP   :REM ZEICHENSATZ KOPIEREN
205 _MT AA,XD,YD :REM
206 :
300 REM FARBEN+RASTERZEILEN
305 _HF 0,0,11
310 _RF 0,0,0
315 _RZ 81,89,248
320 :
321 _JS 2 :REM JOYSTICKSTEUERUNG
322 _TG 2000,2000
330 :
332 IFEGTHEN950
333 :
335 _US0
340 INPUT"BESCHLEUNIGUNG (1-255):16[157][157][157][157]";G
343 INPUT"REIBUNG (1-255):8[157][157][157]";R
347 INPUT"ENERGIE:5000[157][157][157][157][157][157]";EG
350 PRINT"NEUER STOLLEN (J/N)?"
355 GETA$:IFA$="N"THEN950
360 IFA$<>"J"THEN355
365 INPUT"BREITE (3-20):7[157][157][157]";B
480 :
485 PRINTTAB(10)"*** STOLLENAUFBAU ***
490 _FU AA,AA[170]8191,160
500 H[178]XD[173]12
510 [129]I[178]30[164]XD[171]1[171]B
515 P[178][181]([165]A(I[173]H)[172]16[170]32)[172]XD[170]AA[170]I
520 _FUP,P[170]B,32
525 _FUP[171]XD,P[170]B[171]XD,SP
526 _FUP[170]XD,P[170]B[170]XD,SP
530 [130]I
590 :
600 [129]I[178]13[164]47
610 P[178]AA[170]30[170]I[172]XD
615 [139]I[179]20[167]:_FU P,P[170]25,SP
620 _FU P,P[170]6,SP
630 [130]I
690 :
700 [129]I[178]19[164]48
710 P[178]AA[170]115[170]I[172]XD
715 [139]I[177]40[167]:_FU P[171]10,P[170]13,SP
720 _FU P,P[170]13,SP
730 [130]I
790 :
950 _ZF0
955 _US1
956 EE[178]EG
957 _TBG,G:_TRR,R
960 :
990 [143] SPRITES
1000 [151] SZ,128
1010 [151] SZ[170]1,129
1020 [151] V[170]39,15
1030 [151] V[170]40,0
1040 [151] V,172:[151] V[170]1,150
1050 [151] V[170]2,171:[151] V[170]3,161
1090 :
1100 [151]V[170]21,3
1102 _FU SR,SR[170]128,0
1105 :
1107 [143] SPRITE EINLESEN
1108 [140]
1110 [129]I[178]25[164]I[170]18
1120 [135]A:[151]SR[170]I,A:[130]
1125 :
1127 [143] ZEICHEN 81 IN SPRITE KOPIEREN
1130 [129]I[178]0[164]7
1140 [151]SR[170]65[170]I[172]3,[183](V[170]ZE[172]8[170]I)
1150 [130]
1190 :
1195 [143] FAESSER SETZEN
1200 [129]I[178]G1[170]3[164]I[170]11[169]4
1210 [151]I,ZE:[130]
1250 [129]I[178]G3[164]G4
1260 [151]I,SP:[130]
1270 :
1300 _PO 822,247
1500 [151]V[170]21,1
1900 [153]"FAESSER:"FZ" ENERGIE:"EE"CMD GREIFER: "A$(FA)
1902 [139][183](4)[167]1902
1905 _JS2
1910 _TM0
1915 [141]6000
1920 [151]CO,0
1930 [139]FZ[178]0[167]6500
1990 :
1995 [143] **** HAUPTROUTINE ****
1996 :
2000 EE[178]EE[171]1:[153]""[163]20)EE"CMD "
2010 [139][194](CO)[167]3000
2020 [139][183](4)[167]4000
2500 [139]EE[177]0[167]2000
2590 :
2595 :
2600 [153]"LOADBATTERIE LEER => ABSTURZ
2610 GOTO3010
2990 :
3000 _JS0:GOSUB6000
3002 IFPEEK(CO)=2THEN3100
3005 PRINT"[147]SIE HABEN IHREN TRANSPORTER ZERSTOERT.
3010 [145]FA[170]1[137]7050,7020
3100 [153]"LOADSIE HABEN DAS FASS ZERSTOERT.
3110 GOTO7020
3900 :
4000 EE=EE-10
4010 ONFAGOTO4200
4112 :
4115 P=USR(3):REM FASS AUFNEHMEN
4120 IFUSR(P)<>ZETHEN1910
4122 _JS0:REM TRAEGHEIT LOESCHEN
4124 REM Y-POSITION BERICHTIGEN
4125 _POUSR(1),USR(2)AND8184
4127 _TM1:REM BILDSCHIRM ABTASTEN
4130 FA=1:POKEV+21,3:REM SPRITE AN
4140 POKEP,SP:REM CHARACTER LOESCHEN
4145 IFP>G3ANDP<G4THENFZ=FZ+1
4150 GOTO1900
4190 :
4200 P=USR(3):REM FASS ABSETZEN
4210 IFUSR(P+XD)<>160THEN4300
4215 _JS0
4220 _PO(USR(1)AND8184)+4,USR(2)AND8184
4230 _TM1:FA=0:POKEP,ZE
4240 POKEV+21,1
4245 IFP>G3ANDP<G4THENFZ=FZ-1
4250 GOTO1900
4290 :
4300 PRINT"[147]SIE HABEN DAS FASS FALLENLASSEN"
4350 GOTO7020
4900 :
4980 :
4990 REM SPRITEDATEN
5000 DATA 255,0,3,255,192,60,231,60,239,255,247,3,0,192,1,0,128,0,129
6000 FORI=1TO20:NEXT:RETURN
6500 PRINT"[147]SIE HABEN IHRE MISSION ERFUELLT.
6510 [153]"RESTENERGIE:"EE
6520 [153]"DAFUER BEKOMMEN SIE EIN PAAR ORDEN !
6590 GOTO7090
7020 PRINT"DER STOLLEN IST NUN VOLLSTAENDIG
7030 [153]"STRAHLENVERSEUCHT.
7040 PRINT"EIN FORTFUEHREN DER ARBEIT WIRD IN
7045 [153]"CA. 1500 JAHREN WIEDER MOEGLICH SEIN.
7050 PRINT"S I E   S I N D   T O T   ! ! !
7090 [153][163]15)"E  N  D  E
7100 _US0
7101 POKEV+21,0
7105 GETA$:IFA$=""THEN7105
7110 GOTO110