home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Brotikasten
/
BROTCD01.iso
/
games
/
disk9.d64
/
ab38
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-07-31
|
3KB
|
79 lines
1 POKE45,PEEK(174):POKE46,PEEK(175):CLR
2 POKE808,230
5 GOTO100
10 PRINT"[147]":POKE53280,0:POKE53281,0
11 PRINT"[154] DAS GEHEIMNIS DER PYRAMIDEN "
12 PRINT"[154] [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] ":RETURN
13 PRINT"[158]ABENTEUER * SEITE ";S"":RETURN
20 PRINT""
21 PRINT"[129]WEITER SPACE[129] ZURUECK F 1[129] LADEN F 7"
22 POKE198,0:WAIT198,1:GETE$
23 IFE$=CHR$(32)THENZ=1:RETURN
24 IFE$=CHR$(133)THENZ=0:RETURN
25 IFE$=CHR$(136)THEN880
26 GOTO22
50 FORI=4TO24:POKE781,I:SYS59903:NEXT:RETURN
60 FORI=5TO22:POKE781,I:SYS59903:NEXT:RETURN
70 PRINT"[147][155]"
71 PRINT" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
72 PRINT" [194] [194]"
73 PRINT" [194] [154]DAS GEHEIMNIS DER[155] [194]"
74 PRINT" [194] [154]PYRAMIDE.[155] [194]"
75 PRINT" [194][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][194]"
76 PRINT" [194] [194]"
77 PRINT" [194] [158]BITTE WARTEN ![155] [194]"
78 PRINT" [194] [194]"
79 PRINT" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]":RETURN
90 PRINT"":PRINT"[129] DRUECK SPACE[129] "
91 POKE198,0:WAIT198,1:GETE$
92 IFE$=CHR$(32)THENRETURN
93 GOTO91
100 GOSUB10
101 GOSUB60:S=1:GOSUB13
102 PRINT""CHR$(34)"VIELLEICHT IST ES BESSER,WENN ICH"
103 PRINT"IN IHRER VILLA WARTE,"CHR$(34)
104 PRINT"SAGST DU.AHMED NICKT."
105 PRINT"NACH DEM ABENDESSEN WAELZT DU DICH"
106 PRINT"STUNDEN IM BETT HIN UND HER UND FINDEST"
107 PRINT"KEINEN SCHLAF.DU MACHST DIR SORGEN UM"
108 PRINT"ONKEL BRUCE.ALS DU ERWACHST,IST ES "
109 PRINT"BEREITS SPAETER MORGEN.AHMED IST SCHON"
110 PRINT"AUFGEBROCHEN UND DU WANDERST DURCH DIE"
111 PRINT"VILLA.ES LIEGT EINE UNHEILVOLLE STILLE"
112 PRINT"UEBER DIESEN ORT.DU BESCHLIESST,INS "
113 PRINT"HOTEL ZU GEHEN UND ANDREA ZU SUCHEN. ":GOSUB20
114 IFZ=0THENGOSUB60:GOTO101
115 GOSUB60:S=2:GOSUB13
116 PRINT"ALS DU DEN VORDEREINGANG ERREICHST,"
117 PRINT"HAELT DICH EIN WACHPOSTEN AUF.DU GEHST"
118 PRINT"DEN LANGEN GANG ZURUECK.BIS DU IN EINEM"
119 PRINT"DER RAEUME EIN TELEFON FINDEST.ABER DIE"
120 PRINT"LEITUNG IST TOT.MAN HAELT DICH GEFANGEN"
121 PRINT"EIN WAECHTER ERSCHEINT IN DER TUER."
122 PRINT"[129]"CHR$(34)"AHMED WIRD NICHT ZURUECKKOMMEN."
123 PRINT"ALLE VON UNS,DIE NOCH IN DER VILLA SIND"
124 PRINT"GEHOEREN ZU DEN ASSASSINEN.WIR HABEN "
125 PRINT"AHMEDS ORGANISATION UNTERWANDERT."CHR$(34)
126 PRINT"2 ANDERE MITGLIEDER BETRETEN MIT"
127 PRINT"GEZOGENEN PISTOLEN DEN RAUM.SIE FUEHREN"
128 PRINT"DICH IN DEN KELLER UND KETTEN DICH AN"
129 PRINT"EINEN EISENRING.DU WIRST SEHR LANGE"
130 PRINT"GAST DER ASSASSINEN SEIN.":GOSUB90
880 FORI=1TO8:PRINT"[147]"
881 PRINTTAB(12)" "
882 PRINTTAB(12)" "
883 PRINTTAB(12)"[158] "
884 PRINTTAB(12)"[154] "
885 PRINTTAB(12)" "
886 NEXT
887 PRINT""
888 PRINT" LEIDER HAST DU DIESES ABENTEUER"
889 PRINT" NICHT LOESEN KOENNEN."
890 PRINT" VERSUCH ES NOCHMALS !!"
891 PRINT""
892 PRINT"[129]ABENTEUER BEENDEN F 1[129] NEUER START F 7"
900 POKE198,0:WAIT198,1:GETE$
901 IFE$=CHR$(133)THENSYS64738
902 IFE$=CHR$(136)THENGOSUB70:LOAD"AB1",8,1
903 GOTO900