home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
84xx
/
8412.d64
/
stringy
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
9KB
|
130 lines
0 REM STRINGY BY KARL SZAMEITAT, MUEHLENSTR 8B, 2355 WANKENDORF
100 DATA238,000,192,208,003,076,113,165,238,017,193,208,003,238,018,193
101 DATA141,071,192,096,165,001,041,254,133,001,096,165,001,009,001,133
102 DATA001,096,169,000,162,160,133,020,134,021,133,002,162,192,160,000
103 DATA177,020,145,020,200,208,249,230,021,228,021,208,241,169,096,141,7522
104 DATA020,167,141,038,181,160,005,169,234,153,209,166,136,016,250,160
105 DATA002,153,237,164,136,016,250,169,000,162,193,141,072,171,142,073
106 DATA171,169,243,141,000,003,142,001,003,169,122,141,008,003,142,009
107 DATA003,169,170,141,010,003,142,011,003,096,032,115,000,008,201,033,6890
108 DATA240,004,040,076,231,167,032,115,000,201,133,208,004,104,076,015
109 DATA196,234,234,234,234,234,234,234,234,234,234,234,234,234,234,234
110 DATA234,234,234,234,234,234,234,076,008,175,169,000,133,013,032,115
111 DATA000,008,201,033,240,004,040,076,141,174,104,032,115,000,160,006,9045
112 DATA217,077,200,240,005,136,016,248,048,199,185,084,200,168,032,115
113 DATA000,217,032,200,208,187,200,201,040,208,243,185,032,200,072,185
114 DATA033,200,072,076,115,000,169,000,162,192,141,017,193,142,018,193
115 DATA076,016,193,138,048,010,169,000,133,002,032,027,193,076,058,164,7638
116 DATA076,116,164,032,020,193,134,035,104,133,020,104,133,021,169,006
117 DATA032,251,163,230,002,160,011,185,165,000,072,136,016,249,165,021
118 DATA072,165,020,072,166,035,134,174,169,165,162,000,133,175,134,176
119 DATA032,158,173,032,143,173,160,002,177,100,145,175,136,016,249,165,7306
120 DATA100,164,101,032,219,182,198,174,240,011,032,253,174,230,175,230
121 DATA175,230,175,208,219,162,001,032,121,000,201,041,240,006,032,253
122 DATA174,032,158,183,134,174,162,001,201,041,240,006,032,253,174,032
123 DATA158,183,134,175,076,247,174,032,230,193,165,073,072,165,074,072,8831
124 DATA032,138,173,032,247,183,032,247,174,032,019,166,032,020,193,032
125 DATA189,166,032,027,193,104,133,074,104,133,073,169,001,162,192,133
126 DATA111,134,112,173,017,193,076,192,180,166,168,165,166,197,175,240
127 DATA023,160,000,177,166,209,169,208,006,202,240,011,200,208,244,230,8555
128 DATA166,208,230,230,167,208,226,024,096,165,174,240,025,165,175,240
129 DATA021,198,174,198,175,024,165,174,101,175,176,010,101,168,176,006
130 DATA197,165,240,005,144,003,076,072,178,024,165,166,101,165,056,229
131 DATA175,056,229,168,133,175,230,175,024,165,166,101,174,133,166,144,9181
132 DATA002,230,167,096,162,002,032,003,194,165,168,240,034,165,165,240
133 DATA030,197,168,144,026,165,166,072,032,201,194,032,169,194,104,176
134 DATA014,229,166,073,255,170,232,032,051,195,138,168,076,162,179,162
135 DATA000,240,244,104,133,020,104,133,021,160,244,104,153,177,255,200,8729
136 DATA208,249,165,021,072,165,020,072,198,002,208,003,032,027,193,096
137 DATA162,003,032,003,194,024,165,166,133,034,101,165,133,037,165,167
138 DATA133,035,032,230,193,032,201,194,032,169,194,144,004,165,037,133
139 DATA166,165,166,197,034,240,015,160,000,177,034,032,000,193,230,034,7186
140 DATA208,239,230,035,208,235,165,034,197,037,240,037,024,160,000,165
141 DATA034,101,168,133,034,144,002,230,035,196,171,240,008,177,172,032
142 DATA000,193,200,208,244,165,034,197,037,240,006,032,191,194,076,107
143 DATA195,032,051,195,076,155,194,162,002,032,003,194,165,168,240,008,8087
144 DATA165,165,240,004,197,174,176,003,076,072,178,024,101,168,176,248
145 DATA032,125,180,138,208,001,136,202,142,017,193,140,018,193,160,000
146 DATA140,000,192,196,174,240,014,177,166,032,000,193,200,198,165,208
147 DATA242,165,168,240,020,152,170,160,000,177,169,032,000,193,200,198,8633
148 DATA168,208,246,138,168,165,165,208,222,032,051,195,076,202,180,160
149 DATA011,185,165,000,153,091,200,136,016,247,032,166,179,032,115,000
150 DATA032,250,174,032,158,173,032,247,174,032,163,182,201,089,144,003
151 DATA076,113,165,170,208,003,076,055,198,165,122,164,123,133,165,132,8466
152 DATA166,160,000,132,167,132,168,132,169,232,202,240,008,177,034,153
153 DATA000,002,200,208,245,138,153,000,002,202,160,001,134,122,132,123
154 DATA032,115,000,144,003,076,019,200,032,107,169,032,121,165,132,011
155 DATA032,019,166,176,003,076,216,196,032,072,198,176,036,166,020,164,7200
156 DATA021,196,064,208,020,228,063,208,016,165,043,229,065,008,201,001
157 DATA208,015,040,165,044,229,066,208,008,196,058,208,009,228,057,208
158 DATA005,162,026,076,055,164,165,095,072,165,096,072,056,160,000,177
159 DATA095,133,167,229,095,133,169,200,177,095,133,168,032,131,198,162,7546
160 DATA000,056,181,045,229,169,149,045,232,176,002,214,045,232,224,006
161 DATA208,239,104,133,096,104,133,095,173,000,002,208,005,133,011,076
162 DATA031,197,024,165,049,133,090,101,011,133,088,164,050,132,091,144
163 DATA001,200,132,089,032,184,163,162,000,024,181,045,101,011,149,045,6847
164 DATA232,144,002,246,045,232,224,004,208,239,165,020,164,021,141,254
165 DATA001,140,255,001,164,011,136,185,252,001,145,095,136,016,248,032
166 DATA051,165,165,165,164,166,032,182,198,133,122,132,123,165,065,164
167 DATA066,032,182,198,133,065,132,066,032,206,198,165,045,166,046,133,8216
168 DATA034,134,035,160,000,177,034,016,007,200,177,034,048,007,016,031
169 DATA200,177,034,048,077,024,165,034,105,007,133,034,144,002,230,035
170 DATA165,035,197,048,144,221,165,034,197,047,144,215,076,187,197,200
171 DATA200,177,034,170,136,177,034,032,028,199,176,028,032,050,199,145,6648
172 DATA034,200,138,145,034,200,200,177,034,170,136,177,034,032,050,199
173 DATA145,034,138,200,145,034,208,189,169,000,168,145,034,200,145,034
174 DATA208,179,200,200,200,177,034,170,136,177,034,032,028,199,176,232
175 DATA032,050,199,145,034,200,138,145,034,208,154,165,047,166,048,133,8228
176 DATA034,134,035,228,050,208,013,197,049,208,009,076,055,198,165,036
177 DATA166,037,208,235,024,160,002,113,034,133,036,200,138,113,034,133
178 DATA037,160,000,177,034,048,231,200,177,034,016,226,160,004,177,034
179 DATA010,105,005,101,034,133,034,144,002,230,035,160,000,177,034,240,6620
180 DATA022,200,200,177,034,170,136,177,034,032,028,199,176,034,032,050
181 DATA199,145,034,200,138,145,034,024,165,034,105,003,133,034,144,002
182 DATA230,035,165,035,197,037,144,211,165,034,197,036,144,205,176,158
183 DATA169,000,168,145,034,240,224,160,244,185,103,199,153,177,255,200,8065
184 DATA208,247,032,121,000,076,231,167,186,189,003,001,201,141,240,006
185 DATA201,129,240,027,024,096,189,004,001,197,020,208,007,189,005,001
186 DATA197,021,240,241,024,138,105,007,170,201,248,144,220,176,229,189
187 DATA017,001,197,020,208,007,189,018,001,197,021,240,216,024,138,105,7736
188 DATA018,208,229,160,000,177,095,133,034,200,177,095,133,035,165,049
189 DATA133,036,165,050,133,037,136,177,034,145,095,165,036,197,034,208
190 DATA007,165,037,197,035,208,001,096,230,034,208,002,230,035,230,095
191 DATA208,229,230,096,208,225,196,096,144,013,240,012,229,169,176,001,7971
192 DATA136,024,101,011,144,001,200,096,197,095,144,251,176,236,186,189
193 DATA003,001,201,141,240,005,201,129,240,028,096,189,006,001,188,007
194 DATA001,032,182,198,157,006,001,152,157,007,001,024,138,105,007,170
195 DATA201,248,144,219,176,228,188,019,001,189,020,001,032,182,198,157,7404
196 DATA020,001,152,157,019,001,189,004,001,188,005,001,032,182,198,157
197 DATA004,001,152,157,005,001,024,138,105,018,208,211,228,168,144,006
198 DATA208,014,197,167,176,010,228,096,144,007,208,005,197,095,176,001
199 DATA024,096,228,052,240,004,176,023,144,004,197,051,176,017,228,096,6562
200 DATA144,013,240,012,229,169,176,001,202,024,101,011,144,001,232,096
201 DATA197,095,144,251,176,238,162,002,032,003,194,165,168,240,004,165
202 DATA165,208,003,076,072,178,024,166,174,240,248,202,134,174,138,101
203 DATA168,197,165,240,002,176,236,165,165,032,125,180,134,033,132,034,8518
204 DATA164,165,136,177,166,145,098,152,208,248,024,165,174,101,033,133
205 DATA033,144,002,230,034,164,168,136,177,169,145,033,152,208,248,032
206 DATA051,195,076,202,180,076,227,168,162,001,032,003,194,165,165,208
207 DATA003,076,072,178,032,230,193,166,174,240,246,160,000,177,166,032,8614
208 DATA000,193,200,196,165,208,246,202,208,241,032,051,195,076,155,194
209 DATA032,138,173,032,247,183,032,019,166,160,000,144,039,177,095,133
210 DATA020,200,177,095,133,021,177,020,240,021,200,200,177,020,170,136
211 DATA177,020,133,099,134,098,162,144,056,032,073,188,076,247,174,169,8321
212 DATA000,170,240,238,200,177,095,240,246,166,095,165,096,134,020,133
213 DATA021,208,215,169,255,133,058,032,121,165,032,115,000,076,055,198
214 DATA040,194,118,076,065,067,069,040,195,003,069,080,076,065,067,069
215 DATA040,195,079,078,083,069,082,084,040,195,182,164,086,069,082,040,7129
216 DATA199,085,085,080,040,199,167,069,088,076,040,199,207,161,080,082
219 DATA073,083,068,078,000,003,010,019,027,034,039,2291
300 :
310 REM POKE/PRUEFROUTINE
320 :
330 RESTORE:AD=49408:ZE=100
340 PR=0
350 READPO:IFPO>255THEN370
360 PR=PR+PO:POKEAD,PO:AD=AD+1:GOTO350
370 IFPO<>PRTHENPRINT"FEHLER IN ZEILEN"ZE"BIS"ZE+3:END
380 IFPO=2291THENPRINT"DATAS OK - SAVE PROGRAMM UND STARTE MIT SYS49442":END
390 ZE=ZE+4:GOTO340