home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Brotikasten
/
BROTCD01.iso
/
games
/
dis354.d64
/
se9
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-07-31
|
2KB
|
47 lines
1 POKE45,PEEK(174):POKE46,PEEK(175):CLR
60 GOTO100
70 PRINT""
71 PRINT"PROGRAMMDISKETTE INS LAUFWERK SPACE":GOSUB90:RETURN
80 PRINT""TAB(13)"DRUECK SPACE":GOSUB90:RETURN
90 POKE198,0:WAIT198,1:GETE$
91 IFE$=CHR$(32)THENRETURN
92 GOTO90
100 POKE53280,0:POKE53281,0:PRINT"[147]"
101 PRINT" DU BIST DER MEINUNG,DIE STRASSE ZU"
102 PRINT" FINDEN.SIE MUSS IRGENDWO DOCH NACH"
103 PRINT" BATTERSLEA HALL FUEHREN.DER WIND WIRD"
104 PRINT" STAERKER UND VERTREIBT DEN NEBEL.ES "
105 PRINT" IST JETZT HELL GENUG,UM DEN WEG ZU "
106 PRINT" ERKENNEN.IN DER FERNE TAUCHEN 2 LICH-"
107 PRINT" TER AUF - ES SIND DIE SCHEINWERFER "
108 PRINT" EINES WAGENS,DER SICH IN RICHTUNG DER"
109 PRINT" BRUECKE BEWEGT.DU UND MR. ATWOOD HEBEN"
110 PRINT" DIE HAENDE UND GEBT DAMIT DEM FAHRER "
111 PRINT" EIN ZEICHEN,DASS ER ANHALTEN SOLL. "
112 PRINT" ES IST EIN LANDROVER UND AUS IHM STEI-"
113 PRINT" GEN 2 POLIZISTEN,DENEN IHR SCHON MAL "
114 PRINT" BEGEGNET SEID.DER POLIZIST ERZAEHLT, "
115 PRINT" DASS ER EUREN WAGEN SCHON GEFUNDEN HAT"
116 PRINT" UND AUCH DEN FAHRER,BLOPE,HALB ERTRUN-"
117 PRINT" KEN ENTDECKT HAT.ER IST IN EINE HOEHLE"
118 PRINT" GEFALLEN UND DABEI UNTER WASSER GERA- "
119 PRINT" TEN.":GOSUB80
120 PRINT"[147]"
121 PRINT"[160]BLOPE SOLL SICH GROSSE SORGEN UM EUCH"
122 PRINT"[160]GEMACHT HABEN UND HAT SCHON BEFUERCH-"
123 PRINT"[160]TET, DASS IHR ERTRUNKEN SEID."
124 PRINT"[160]"CHR$(34)"KOENNEN SIE UNS NACH BATTERSLEA"
125 PRINT"[160]HALL MITNEHMEN?"CHR$(34)"FRAGST DU DEN POLIZIST."
126 PRINT" DIE STRASSE SEI UEBERFLUTET UND DU"
127 PRINT" SOLLTEST IN DIE STADT ZURUECKKEHREN"
128 PRINT" UND ES MORGEN VERSUCHEN,MEINT DIESER."
129 PRINT"[158] WIE ENTSCHEIDEST DU DICH:"
130 PRINT"[160]KEHRST DU IN DIE STADT ZURUECK,"
131 PRINT" DANN DRUECKE ZAHL 1 [146]"
132 PRINT"[160]WENN DU NOCH ZUM SCHLOSS WILLST,"
133 PRINT" DANN DRUECKE ZAHL 2 [146]"
140 POKE198,0:WAIT198,1:GETE$
141 IFE$="1"THENGOSUB70:LOAD"SE16",8
142 IFE$="2"THENGOSUB70:LOAD"SE17",8
143 GOTO140