home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Brotikasten
/
BROTCD01.iso
/
games
/
disk9.d64
/
ab43
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-07-31
|
3KB
|
77 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
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)"NEIN,WIR MUESSEN SOFORT HINUNTER."
103 PRINT"MEIN ONKEL IST VIELLEICHT IN GROSSER "
104 PRINT"GEFAHR."CHR$(34)
105 PRINT"VON AHMED GEFOLGT KLETTERST DU DIE"
106 PRINT"DUENE HINUNTER UND LAEUFST AUF DIE "
107 PRINT"PYRAMIDE ZU.PLOETZLICH TAUCHT EIN TRUPP"
108 PRINT"WUESTENKRIEGER AUF KAMELEN VOR EUCH AUF"
109 PRINT"DUNKLE KOPFTUECHER VERHUELLEN DIE GE- "
110 PRINT"SICHTER UND LASSEN NUR DIE AUGEN FREI."
111 PRINT"SIE TRAGEN MODERNE MASCHINENPISTOLEN- "
112 PRINT"UND DIE SIND ALLE AUF EUCH GERICHTET. "
113 PRINT"EINER DER KRIEGER FORDERT EUCH AUF,DIE"
114 PRINT"HAENDE ZU HEBEN.DANN MUESST IHR AUF DIE"
115 PRINT"PYRAMIDE ZUMARSCHIEREN.":GOSUB20
116 IFZ=0THENGOSUB60:GOTO101
117 GOSUB60:S=2:GOSUB13
118 PRINT"ES OEFFNET SICH EINE TUER UND IHR WER-"
119 PRINT"DET HINEINGESCHOBEN.IHR MERKT,DASS DER"
120 PRINT"BODEN,AUF DEM IHR STEHT,EIN FOERDERBAND"
121 PRINT"IST,DASS EUCH RASCH AUF EINE FLAMMEN- "
122 PRINT"WAND AM ANDEREN ENDE DER KAMMER ZU-"
123 PRINT"TRAEGT.IHR VERSUCHT VERZWEIFELT,ZUR "
124 PRINT"TUER ZURUECKZULAUFEN,ABER DAS BAND IST"
125 PRINT"ZU SCHNELL.IHR WERDET BEIDE IN DIE "
126 PRINT"THERMOKAMMER MITGERISSEN - EINE KAMMER,"
127 PRINT"DIE DIE ENERGIE DER SONNE KONZENTRIERT,"
128 PRINT"DASS JEDES OBJEKT SOFORT VERBRENNT,DAS"
129 PRINT"DAMIT IN BERUEHRUNG KOMMT.":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