home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PD 64 Classic 2
/
PD_64_Classic_2_2000_-_Side_B.d64
/
wolkenratzer
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
116 lines
1 print"[147]":poke53281,0:poke53280,0
2 print"[159]"
10 rem gewehrschuss
20 si=54272:fl=si:fh=si+1:tl=si+2:th=si+3:w=si+4:a=si+5:h=si+6:l=si+24
30 forx=15to0step-1
40 pokel,x:pokea,15:pokeh,0:pokefh,40:pokefl,200:pokew,129
50 next
60 pokew,0:pokea,0
61 forx=1to300:nextx
62 print"na? hast du den schuss gehoert?"
63 forx=1to999:nextx:print:print"macht nix! dieses spiel ist sowieso"
64 print"fuer leute, die den schuss nicht gehoert";
65 print"haben."
66 print"druecke space!"
67 gosub10000:print"[150]es begann im 30.stock!":gosub10000
68 print"[147]"
69 print"
70 [153]"
71 print"
72 [153]"
73 print"
74 [153]"
75 print"
76 [153]"
77 print"
78 [153]"
79 print""
80 print" [194]
81 [153]" peek
82 print" [194]
83 [153]" or>^
84 print" [176][177][195][177][174]
85 [153]" peeklogloglogpeek
86 print" [176][177][195][195][195][177][174]
87 [153]" peekloglog loglogpeek
88 print" [194][188][188] [188][188][194]
89 [153]" peekloglog loglogpeek
90 print" [194][188][188] [188][188][194]
91 [153]" peekloglog loglogpeek
92 print" [194][188][188] [188][188][194]
93 [153]" peekloglog loglogpeek
94 print" [194][188][188] [188][188][194]
95 [153]" peekloglog loglogpeek
96 print" [194][188][188] [188][188][194]
97 [153]" peekloglog loglogpeek
98 print" [194][188][188] [188][188][194]
99 [153]" peekloglog loglogpeek
100 print" [194][188][188] [188][188][194]
101 [153]" peekloglog loglogpeek
102 print" [194][188][188] [188][188][194]
103 [153]" peekloglog loglogpeek
104 print" [194][188][188] [188][188][194]
105 [153]" peekloglog loglogpeek
106 print" [194][188][188] [188][188][194]
107 [153]" peekloglog loglogpeek
108 print" [194][188][188] [188][188][194]
109 [153]" peekloglog loglogpeek
110 print" [176][177][195][195][195][195][195][177][174]
111 [153]" peeklogloglog logloglogpeek
112 print" [194][188][188][188] [188][188][188][194]
113 [153]" peeklogloglog logloglogpeek
114 print" [194][188][188][188] [188][188][188][194]
115 [153]" peeklogloglog logloglogpeek
116 print" [194][188][188][188] [188][188][188][194]
117 [153]" peeklogloglog logloglogpeek
118 print" [194][188][188][188] [188][188][188][194]
119 [153]" peeklogloglog logloglogpeek
120 print" [194][188][188][188] [188][188][188][194]
121 [153]" peeklogloglog logloglogpeek
122 print" [194][188][188][188] [188][188][188][194]
123 [153]" peeklogloglog logloglogpeek
124 print" [194][188][188][188] [188][188][188][194]
125 [153]" peeklogloglog logloglogpeek
126 print" [194][188][188][188] [188][188][188][194]
127 [153]" peeklogloglog logloglogpeek
128 print" [194][188][188][188] [188][188][188][194]
129 [153]" peeklogloglog logloglogpeek
130 print" [194][188][188][188] [188][188][188][194]
131 [153]" peeklogloglog logloglogpeek
132 print" [194] [176][178][174] [194]
133 [153]" peek peekpeekpeek peek
134 print"[195][195][195][195][195][195][195][195][177][195][195][177][177][177][195][195][177][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
135 forx=1to500:nextx
136 print"[150][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]aaaah!"
137 forx=1to700:nextx
138 poke1043,38:gosub20000
139 poke1043,32:poke1083,38:gosub20000
140 poke1083,32:poke1123,38:gosub20000
141 poke1123,32:poke1163,38:gosub20000
142 poke1123,32:poke1163,38:gosub20000
143 poke1163,32:poke1203,38:gosub20000
144 poke1203,32:poke1243,38:gosub20000
145 poke1243,32:poke1283,38:gosub20000
146 poke1283,32:poke1323,38:gosub20000
147 poke1323,32:poke1363,38:gosub20000
148 poke1363,32:poke1403,38:gosub20000
149 poke1403,32:poke1443,38:gosub20000
150 poke1443,32:poke1483,38:gosub20000
151 poke1483,32:poke1523,38:gosub20000
152 poke1523,32:poke1563,38:gosub20000
153 poke1563,32:poke1603,38:gosub20000
154 poke1603,32:poke1643,38:gosub20000
155 poke1643,32:poke1683,38:gosub20000
156 poke1683,32:poke1723,38:gosub20000
157 poke1723,32:poke1763,38:gosub20000
158 poke1763,32:poke1803,38:gosub20000
159 poke1803,32:poke1843,38:gosub20000
160 poke1843,32:poke1883,38:gosub20000
161 poke1883,32:poke1923,38:gosub20000
162 poke1923,32:poke1963,38:gosub20000
163 printtab(17)"ma&tsch";
10000 geta$:ifa$=""then10000
10001 return
20000 forx=1to50:nextx
20001 return