100 DATA011,008,192,007,158,051,050,051
101 DATA056,000,000,000,032,047,243,169
102 DATA226,162,248,133,167,134,168,169
103 DATA000,162,003,133,169,134,170,169
104 DATA008,032,012,237,169,111,032,185
105 DATA237,169,077,032,221,237,169,045
106 DATA032,221,237,169,087,032,221,237
107 DATA160,000,165,169,032,221,237,165
108 DATA170,032,221,237,169,030,032,221
109 DATA237,177,167,032,221,237,200,192
110 DATA030,144,246,032,254,237,024,165
111 DATA167,105,030,133,167,144,003,230
112 DATA168,024,165,169,166,170,105,030
113 DATA133,169,144,002,230,170,224,005
114 DATA144,173,201,000,144,169,169,008
115 DATA032,012,237,169,111,032,185,237
116 DATA169,077,032,221,237,169,045,032
117 DATA221,237,169,069,032,221,237,169
118 DATA139,032,221,237,169,004,032,221
119 DATA237,169,011,141,017,208,032,251
120 DATA237,234,234,076,046,240,169,011
121 DATA141,000,221,044,000,221,016,251
122 DATA169,003,141,000,221,162,005,202
123 DATA234,208,252,162,004,173,000,221
124 DATA042,042,102,176,106,102,176,234
125 DATA202,208,242,165,176,073,255,096
126 DATA032,082,239,201,255,240,248,160
127 DATA000,169,011,141,000,221,044,000
128 DATA221,016,251,169,003,141,000,221
129 DATA162,007,202,208,253,173,000,221
130 DATA042,042,102,176,106,102,176,234
131 DATA234,173,000,221,042,042,102,176
132 DATA106,102,176,234,234,173,000,221
133 DATA042,042,102,176,106,102,176,234
134 DATA234,173,000,221,042,042,102,176
135 DATA106,102,176,165,176,073,255,153
136 DATA166,251,200,208,180,096,120,169
137 DATA001,133,167,160,255,032,124,239
138 DATA192,255,240,064,162,002,165,167
139 DATA240,002,162,004,173,166,251,208
140 DATA007,238,167,251,173,167,251,044
141 DATA169,000,133,168,189,166,251,145
142 DATA174,230,174,208,002,230,175,232
143 DATA228,168,208,240,162,000,134,167
144 DATA173,166,251,208,198,169,053,133
145 DATA001,169,027,141,017,208,169,064
146 DATA133,144,024,096,169,053,133,001
147 DATA169,027,141,017,208,234,169,029
148 DATA056,096,160,000,185,066,240,153
149 DATA048,001,200,192,031,208,245,032
150 DATA210,239,076,048,001,234,008,072
151 DATA169,000,168,089,000,160,200,208
152 DATA250,201,128,240,004,169,055,133
153 DATA001,166,174,164,175,104,040,088
154 DATA096,221,016,173,240,034,173,161
155 DATA002,074,176,250,173,001,221,041
156 DATA253,141,001,221,173,001,221,041
157 DATA004,240,249,169,144,024,076,059
158 DATA239,173,161,002,041,018,240,243
159 DATA024,096,173,151,002,172,156,002
160 DATA204,155,002,240,011,041,247,141
161 DATA151,002,177,247,238,156,002,096
162 DATA009,008,141,151,002,169,000,096
163 DATA072,173,161,002,240,017,173,161
164 DATA002,041,003,208,249,169,016,141
165 DATA013,221,169,000,141,161,002,104
166 DATA096,165,000,041,006,201,002,240
167 DATA003,076,158,253,234,169,005,133
168 DATA009,162,090,134,075,162,000,169
169 DATA082,133,036,032,086,245,080,254
170 DATA184,173,001,028,197,036,240,009
171 DATA198,075,208,239,169,010,076,105
172 DATA249,080,254,184,173,001,028,149
173 DATA037,232,224,007,208,243,032,151
174 DATA244,165,022,069,023,069,024,069
175 DATA025,069,026,240,007,198,009,208
176 DATA192,076,030,244,165,024,197,006
177 DATA240,003,076,011,244,133,034,169
178 DATA006,133,049,076,060,004,165,018
179 DATA166,019,133,022,134,023,165,006
180 DATA133,024,165,007,133,025,169,000
181 DATA069,022,069,023,069,024,069,025
182 DATA133,026,032,052,249,162,090,032
183 DATA086,245,160,000,080,254,184,173
184 DATA001,028,217,036,000,240,006,202
185 DATA208,237,076,081,245,200,192,008
186 DATA208,234,032,086,245,080,254,184
187 DATA173,001,028,145,048,200,208,245
188 DATA160,186,080,254,184,173,001,028
189 DATA153,000,001,200,208,244,032,224
190 DATA248,165,056,197,071,240,003,076
191 DATA246,244,032,233,245,197,058,240
192 DATA003,076,002,245,160,000,169,085
193 DATA032,082,004,185,000,006,133,119
194 DATA044,000,024,016,251,169,016,141
195 DATA000,024,044,000,024,048,251,162
196 DATA000,138,102,119,042,042,102,119
197 DATA042,042,141,000,024,138,102,119
198 DATA042,042,102,119,042,042,141,000
199 DATA024,138,102,119,042,042,102,119
200 DATA042,042,141,000,024,138,102,119
201 DATA042,042,102,119,042,042,141,000
202 DATA024,162,002,202,208,253,169,015
203 DATA141,000,024,200,208,173,234,234
204 DATA234,234,234,234,234,173,000,028
205 DATA009,008,141,000,028,173,000,006
206 DATA208,003,076,158,253,197,024,208
207 DATA249,133,006,173,001,006,133,007
208 DATA076,101,003,133,119,044,000,024
209 DATA016,251,169,016,141,000,024,044
210 DATA000,024,048,251,162,004,169,000
211 DATA102,119,042,042,102,119,042,042
212 DATA141,000,024,202,208,240,234,234
213 DATA234,234,234,234,169,015,141,000
214 DATA024,096,096,133,000,088,165,000
215 DATA048,252,120,096,120,234,234,234
216 DATA234,234,234,165,024,141,000,006
217 DATA133,006,165,025,141,001,006,133
218 DATA007,169,004,133,120,169,226,032
219 DATA130,004,201,002,144,051,160,000
220 DATA132,120,164,120,185,219,254,240
221 DATA018,088,032,118,214,120,169,226
222 DATA032,130,004,201,002,144,026,230
223 DATA120,208,231,169,192,032,130,004
224 DATA169,226,032,130,004,201,002,144
225 DATA008,169,255,032,082,004,076,034
226 DATA235,173,000,006,240,248,197,024
227 DATA240,196,173,000,006,133,006,173
228 DATA001,006,133,007,076,160,004,234
229 DATA234,234,234,160,000,185,025,244
230 DATA153,048,001,200,192,031,208,245
231 DATA076,048,001,169,000,168,089,000
232 DATA160,200,208,250,201,128,240,007
233 DATA169,055,133,001,076,001,245,076
234 DATA048,244,160,000,177,187,201,036
235 DATA240,242,169,001,133,167,169,000
236 DATA133,144,165,167,032,012,237,169
237 DATA111,032,185,237,165,144,016,011
238 DATA230,167,165,167,201,016,208,230
239 DATA076,187,238,165,167,201,008,240
240 DATA239,160,000,185,122,244,240,006
241 DATA032,210,255,200,208,245,032,225
242 DATA255,208,251,238,234,234,234,234
243 DATA076,187,238,234,013,066,073,084
244 DATA084,069,032,078,085,082,032,070
245 DATA076,079,080,080,089,032,065,078
246 DATA083,067,072,065,076,084,069,078
247 DATA013,000,000,000,000,000,000,000
248 DATA000,000,000,000,000,120,169,055
249 DATA133,001,160,000,132,003,169,160
250 DATA133,004,177,003,145,003,230,003
251 DATA208,248,230,004,208,244,169,229
252 DATA141,214,253,169,076,141,114,254
253 DATA141,249,244,169,188,141,115,254
254 DATA169,254,141,116,254,169,009,141
255 DATA250,244,169,244,141,251,244,169
256 DATA018,133,003,169,010,133,004,169
257 DATA226,133,005,169,248,133,006,177
258 DATA003,145,005,200,208,249,230,004
259 DATA230,006,165,006,201,250,208,239
260 DATA169,016,162,008,133,003,134,004
261 DATA169,187,162,238,133,005,134,006
262 DATA177,003,145,005,200,208,249,230
263 DATA004,230,006,165,006,201,240,208
264 DATA239,185,067,013,153,095,228,200
265 DATA192,080,208,245,160,000,185,012
266 DATA012,153,009,244,200,192,148,208
267 DATA245,169,053,133,001,076,248,252
268 DATA234,234,000,032,066,089,084,069
269 DATA083,032,070,082,069,069,013,000
270 DATA000,000,000,000,000,000,147,013
271 DATA032,032,032,032,042,042,042,042
272 DATA032,067,054,052,045,072,089,080
273 DATA082,065,045,076,079,065,068,045
274 DATA083,089,083,084,069,077,032,042
275 DATA042,042,042,013,013,032,040,067
276 DATA041,056,052,032,018,084,082,073
277 DATA066,065,082,146,032,032,000,129
278 DATA072,032,000,000,000,000,000,000
279 DATA000,000,000,000,000,000,000,000
1000 CLR
1010 REM
1020 REM ********************************
1030 REM ***                          ***
1040 REM ***       HYPRA-LOAD         ***
1050 REM *** MIT 0 BLOECKEN AUF DISK  ***
1060 REM ***                          ***
1070 REM ***          BY              ***
1080 REM ***    UWE SCHOENEWOLF       ***
1090 REM ***    GUENTHER REIMUTH      ***
1100 REM ***                          ***
1110 REM ********************************
1120 REM
1130 POKE53280,0:POKE53281,6
1140 NA$=CHR$(130)+CHR$(18)+CHR$(3)
1150 NB$=",8:"
1160 PRINT"[147]  HYPRA LOAD MIT 0 BLOCKS AUF DISKETTE"
1170 PRINT"          [155]VON: UWE SCHOENEWOLF"
1180 PRINT"          [155]     GUENTHER REIMUTH[158]"
1190 A$="":INPUT" HYPRA LOAD AUF DISKETTE SCHREIBEN  J[157][157][157]";A$
1200 IFA$="J"THENPRINT"":GOTO1220
1210 SYS64738
1220 OPEN1,0
1230 N$="":PRINT"[145][145]FILE NAME MAX. 1-12 >HYPRA LOAD[157][157][157][157][157][157][157][157][157][157]";:INPUT#1,N$
1240 LA=LEN(N$)
1250 CLOSE1
1260 IFLA>12ORLA<1THEN1220
1270 OPEN1,8,15
1280 OPEN2,8,2,N$
1290 INPUT#1,A
1300 CLOSE2
1310 CLOSE1
1320 IFA=0THENPRINT:PRINT"  FILE SCHON VORHANDEN [146]":GOTO1670
1330 NA$=NA$+N$+CHR$(160)+NB$
1340 LA=LEN(NA$)
1350 FORI=19-LATO1STEP-1
1360 NA$=NA$+CHR$(160)
1370 NEXT
1380 FORI=1TO12
1390 NA$=NA$+CHR$(0):NEXT
1400 REM *********************
1410 REM * TEST AUF FREIRAUM *
1420 REM * FUER HYPRA-LOAD   *
1430 REM *********************
1440 T=18:S=1:Y=1
1450 OPEN1,8,15
1460 OPEN2,8,2,"#"
1470 PRINT#1,"U1 2 0";T;S
1480 PRINT#1,"B-P";2;0
1490 GET#2,T1$:IFT1$=""THENT1$=CHR$(0)
1500 GET#2,S1$:IFS1$=""THENS1$=CHR$(0)
1510 T1=ASC(T1$):S1=ASC(S1$)
1520 IFT1<>0THENT=T1:S=S1:Y=Y+1:GOTO1470
1530 IFY>12THENPRINT:PRINT"  KEIN PLATZ MEHR AUF DISKETE [146]":GOTO1570
1540 CLOSE2
1550 CLOSE1
1560 GOTO1630
1570 CLOSE2
1580 CLOSE1
1590 GOTO1670
1600 REM *****************************
1610 REM * H-LOAD AUF DISK SCHREIBEN *
1620 REM *****************************
1630 GOSUB1730
1640 GOSUB2010
1650 PRINT
1660 PRINT" FERTIG"
1670 PRINT" WEITER MIT [ SPACE ]"
1680 GETA$:IFA$=""THEN1680
1690 GOTO1130
1700 REM ******************
1710 REM * NAME SCHREIBEN *
1720 REM ******************
1730 T=18:S=1:Y=1
1740 OPEN1,8,15
1750 OPEN2,8,2,"#"
1760 PRINT#1,"U1 2 0";T;S
1770 PRINT#1,"B-P";2;0
1780 GET#2,T1$:IFT1$=""THENT1$=CHR$(0)
1790 GET#2,S1$:IFS1$=""THENS1$=CHR$(0)
1800 T1=ASC(T1$)
1810 S1=ASC(S1$)
1820 FORQ=0TO7
1830 PRINT#1,"B-P";2;Q*32+2
1840 GET#2,X$
1850 IFX$=""THENX$=CHR$(0)
1860 IFASC(X$)=0THEN1960
1870 NEXT
1880 IFT1<>0THENT=T1:S=S1:Y=Y+1:GOTO1760
1890 IFY>12THENPRINT:PRINT" ZUVIELE FILES AUF DER DISKETTE[146]":GOTO1990
1900 IFQ<8THEN1960
1910 PRINT#1,"B-P";2;0
1920 PRINT#2,CHR$(T)+CHR$(S+3);
1930 PRINT#1,"U2 2 0";T;S
1940 S=S+3
1950 PRINT#1,"U1 2 0";T;S
1960 PRINT#1,"B-P";2;Q*32+2
1970 PRINT#2,NA$;
1980 PRINT#1,"U2 2 0";T;S
1990 CLOSE2:CLOSE1:RETURN
2000 REM *********************
2010 REM * DATAS ABSPEICHERN *
2020 REM *********************
2030 RESTORE
2040 OPEN1,8,15
2050 OPEN2,8,2,"#"
2060 FORS=3TO15STEP3
2070 PRINT#1,"B-P 2 0"
2080 A$="":A$=A$+CHR$(18)+CHR$(S+3)
2090 PRINT#2,A$
2100 PRINT#1,"B-P 2 2"
2110 A$=""
2120 EN=253
2130 IFS=3THENPRINT#2,CHR$(1);CHR$(8);:EN=251
2140 FORI=0TOEN
2150 READX
2160 A$=A$+CHR$(X)
2170 NEXT
2180 PRINT#2,A$;
2190 PRINT#1,"U2 2 0 18";S
2200 NEXT
2210 PRINT#1,"B-P 2 0"
2220 A$="":A$=A$+CHR$(0)+CHR$(170)
2230 FORI=1TO170
2240 READX
2250 A$=A$+CHR$(X)
2260 NEXT
2270 PRINT#2,A$;
2280 PRINT#1,"U2 2 0 18";S
2290 CLOSE2:CLOSE1:RETURN