10 REM #### PROGRAMM ZUR ERZEUGUNG #####
20 REM ## VON HI-P(ITOH8510) AUF DISK ##
30 REM AUTOR: F.ZIESCHE' AM: 13. 2.85 ##
40 RESTORE:PS=0:REM DATA'S UEBERPRUEFEN
50 PRINT"[147] DATA-ZEILEN WERDEN UEBERPRUFT !"
60 READ BY : IF BY < 0 THEN 80
70 PS = PS + BY : GOTO 60
80 IF PS+BY <> 0 THEN PRINT"FEHLER IN DATA-ZEILEN !":LIST160-
90 INPUT" DISKETTE EINGELEGT   JA[157][157][157][157]";IN$:IFIN$<>"JA"THEN 90
100 RESTORE : OPEN3,8,3,"HI-P(ITOH8510),P,W"
110 PRINT#3,CHR$(0);CHR$(13);:REM STARTADRESSE
120 READ BY : IF BY < 0 THEN 140
130 PRINT#3,CHR$(BY); : GOTO120
140 CLOSE3 : PRINT" PROGRAMM WURDE ERZEUGT !"
150 END
160 REM DATA-ZEILEN FUER HI-P(ITOH8510)
170 DATA165,1,72,169,55,133,1,173,87,13,32,186,13,141,170,14,173,107,13,32
180 DATA186,13,141,223,14,169,0,141,164,14,141,217,14,141,174,13,32,248,13
190 DATA32,212,13,169,27,32,111,14,169,70,32,111,14,169,0,160,0,32,47,14
200 DATA169,0,141,148,14,169,0,141,201,14,169,27,32,111,14,169,83,32,111
210 DATA14,169,0,160,0,32,47,14,169,0,240,16,32,135,14,32,241,14,238,148
220 DATA14,173,148,14,201,40,144,240,169,0,240,16,32,188,14,32,241,14,238
230 DATA201,14,173,201,14,201,0,144,240,24,173,164,14,105,64,141,164,14,173
240 DATA170,14,105,1,141,170,14,24,173,217,14,105,64,141,217,14,173,223,14
250 DATA105,1,141,223,14,169,13,32,111,14,169,10,32,111,14,238,174,13,169
260 DATA0,201,25,176,3,76,42,13,104,133,1,96,162,7,221,149,31,240,4,202,208
270 DATA248,232,138,10,10,10,10,10,96,0,0,0,0,0,0,0,0,24,173,123,13,105,40
280 DATA56,237,60,13,133,251,169,0,133,252,160,3,6,251,38,252,136,208,249
290 DATA165,251,164,252,141,80,13,140,82,13,96,169,255,141,3,221,173,2,221
300 DATA9,4,141,2,221,173,0,221,9,4,141,0,221,162,0,189,27,14,32,111,14,232
310 DATA224,20,144,245,96,127,27,93,27,78,27,84,49,54,27,102,27,76,48,48
320 DATA48,27,48,27,62,133,99,132,98,56,162,144,32,73,188,32,221,189,162
330 DATA1,189,0,1,240,6,232,224,6,144,246,202,202,142,81,14,56,169,4,233
340 DATA0,240,9,168,169,48,32,111,14,136,208,248,172,81,14,240,12,162,1,189
350 DATA0,1,32,111,14,232,136,208,246,96,141,1,221,173,0,221,41,251,141,0
360 DATA221,9,4,141,0,221,173,13,221,41,16,240,249,96,120,165,1,72,41,248
370 DATA133,1,169,0,133,252,169,0,133,251,160,3,6,251,38,252,136,208,249
380 DATA24,165,251,105,0,133,251,165,252,105,0,133,252,177,251,153,204,13
390 DATA200,192,8,144,246,104,133,1,88,96,120,165,1,72,41,248,133,1,169,0
400 DATA133,252,169,0,133,251,160,3,6,251,38,252,136,208,249,24,165,251,105
410 DATA0,133,251,165,252,105,0,133,252,177,251,153,204,13,200,192,8,144
420 DATA246,104,133,1,88,96,160,128,140,4,15,169,0,141,8,15,140,10,15,162
430 DATA7,189,204,13,41,0,240,7,169,0,9,0,141,8,15,78,10,15,202,16,236,173
440 DATA8,15,32,111,14,78,4,15,144,215,96
450 DATA -57076 :REM  PRUEFSUMME