10 IFLO=0THENLO=1:LOAD"BASROU1.OBJ",8,1
20 IFLO=1THENLO=2:LOAD"E1.8.OBJ",8,1
30 :
40 REM *******************************
50 REM *                             *
60 REM *   INTERNAL ROM GENERATOR    *
70 REM *                             *
80 REM *       BY  JUERGEN BOHL      *
90 REM *       AND BERNHARD KROENUNG *
100 REM *                             *
110 REM *******************************
120 :
130 POKE53280,0:POKE53281,0:PRINT"[155]";CHR$(14);CHR$(8)
140 F=65280:L=33280
150 PRINT"[147][198]REI [194]YTES :";RIGHT$("       "+STR$(F-L),6);TAB(18);
160 PRINT" [221] [208]ROGRAMMANZAHL:";AN
170 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
180 IFAN=0THEN270
190 IFAN=15THEN240
200 PRINT"WEITERE PROGRAMME EINLADEN <J/N>"
210 POKE198,0:WAIT198,1:GETA$
220 IFA$="J"THENPRINT"[145]                                        ":GOTO270
230 IFA$<>"N"THEN210
240 INPUT"NAME DES FILES";NA$:POKE32808,AN
250 SYS828,NA$
260 END
270 INPUT"[208]ROGRAMMNAME";P$
280 IFLEN(P$)>16THEN150
290 PRINT"        <<< [196]ISKETTE EINLEGEN >>>"
300 POKE198,0:WAIT198,1:POKE198,0
310 PRINT"[145]                                        [145][145][145]"
320 SYS915,P$,L
330 IFPEEK(2)=0THEN360
340 PRINT"[154][211]ORRY, [208]ROGRAMM ZU LANG !!![155]":POKE198,0:WAIT198,1:POKE198,0
350 GOTO150
360 L1=PEEK(253)+PEEK(254)*256+1
370 OPEN1,8,15:INPUT#1,A,B$,C,D:CLOSE1
380 PRINT"[154]";A;B$;C;D;"[155]";
390 IFA<>0THENPOKE198,0:WAIT198,1:POKE198,0:GOTO150
400 INPUT"ZIELADRESSE";Z$
410 IFLEN(Z$)>5THEN400
420 Z=VAL(Z$):IFLEFT$(Z$,1)="$"THENGOSUB560:Z=A1
430 POKE33218+AN*2,Z-INT(Z/256)*256:POKE33219+AN*2,Z/256
440 POKE33248+AN*2,L1-L+Z+1-INT((L1-L+Z+1)/256)*256
450 POKE33249+AN*2,(L1-L+Z)/256
460 POKE33173+AN*2,L-INT(L/256)*256:POKE33174+AN*2,L/256
470 POKE33203+AN,(L1-L)/256+(Z/256)+4
480 INPUT"STARTADRESSE";A$
490 SM=0:IFA$="RUN"THENSM=255
500 IFLEN(A$)>5THENPRINT"[145][145][145][145]":GOTO480
510 J=VAL(A$):IFLEFT$(A$,1)="$"THENGOSUB560:J=A1
520 POKE33128+AN,SM
530 IFSM=0THENPOKE33143+AN*2,J-INT(J/256)*256:POKE33144+AN*2,J/256
540 L=L1:AN=AN+1
550 GOTO150
560 A1=0:FORI=3TO0STEP-1
570 A=VAL(MID$(Z$,5-I,1))
580 IFASC(MID$(Z$,5-I,1))>64THENA=ASC(MID$(Z$,5-I,1))-55
590 A1=A1+A*16^I
600 NEXT:RETURN