100 REM"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
110 [143]"(null) FUNKTIONSTASTENBELEGUNG (null)
120 REM"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
130 [143]"(null) BY M.KLOSS  DUESSELDORF (null)
140 REM"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
150 [143]"(null)NN,MM:LAUFVARIABLE       (null)
160 REM"[221]Q1   :READVARIABLE       [221]
170 [143]"(null)Q2   :AENDERUNGSVARIABLE (null)
180 REM"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
190 [143]"(null)Q1$  :LOESCHVARIABLE     (null)
200 REM"[221]Q2$():BEFEHLSFELD        [221]
210 [143]"(null)Q3$  :ANTWORTVARIABLE    (null)
220 REM"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
230 [143]"(null) BELEGUNG DER F.FTASTEN  (null)
240 REM"[221] MIT STRINGS BIS 9 BYTE  [221]
250 [143]"(null) LAENGE.INITIALISIERUNG  (null)
260 REM"[221] DURCH RUN/STOP RESTORE  [221]
270 [143]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
280 PRINT"[147]MOMENT BITTE":GOSUB450:PRINT"[147]"
290 FORNN=0TO7:READQ2$(NN):NEXTNN:PRINT"[147]":Q1$="                   [145]"
300 PRINTSPC(5)"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
310 PRINTSPC(5)" FUNKTIONSTASTENBELEGUNG "
320 PRINTSPC(5)"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
330 PRINTSPC(5)"JETZIGE BELEGUNG"
340 FORNN=0TO7:READQ1:PRINTSPC(5)"F"Q1"  "Q2$(NN):NEXTNN
350 PRINTSPC(5)"AENDERUNGEN ERWUENSCHT (J)";:INPUTQ3$
360 IFQ3$<>"J"THENPOKE58,255:END
370 PRINT"[147]":FORNN=0TO7:READQ1
380 PRINTSPC(3)"FUNKTIONSTASTE "Q1" "Q2$(NN):PRINT"[145]"TAB(20);
390 INPUTQ2$(NN):IFLEN(Q2$(NN))>9THENPRINT"[145]"TAB(20)Q1$:PRINTTAB(20);:GOTO390
400 NEXTNN
410 PRINTSPC(3)"EINGABEN KORREKT (J)";:INPUTQ3$:IFQ3$<>"J"THENRUN
420 Q2=49262:FORNN=0TO7:FORMM=1TOLEN(Q2$(NN))
430 POKEQ2+MM,ASC(MID$(Q2$(NN),MM,1)):NEXTMM
440 FORMM=LEN(Q2$(NN))+1TO9:POKEQ2+MM,0:NEXTMM:Q2=Q2+10:NEXTNN:POKE58,255:END
450 FORNN=49152TO49343:READQ1:POKENN,Q1:NEXTNN:SYS49152:RETURN
460 REM * DATASTATEMENTS *
470 DATA120,169,78,141,0,3,169,192,141,1,3,169,23,141,20,3,169,192,141,21
480 DATA3,88,96,36,157,16,48,169,133,141,94,192,165,215,141,93,192,173,93
490 DATA192,205,94,192,240,12,238,94,192,173,94,192,201,141,240,20,208,236
500 DATA56,173,93,192,233,133,10,170,189,96,192,168,189,95,192,32,30,171
510 DATA76,49,234,120,169,23,141,20,3,169,192,141,21,3,88,76,139,227,10,141
520 DATA111,192,121,192,131,192,141,192,151,192,161,192,171,192,181,192,82
530 DATA85,78,0,0,0,0,0,0,0,76,73,83,84,0,0,0,0,0,0,76,79,65,68,0,0,0,0,0
540 DATA0,83,65,86,69,0,0,0,0,0,0,86,69,82,73,70,89,0,0,0,0,79,80,69,78,0
550 DATA0,0,0,0,0,67,76,79,83,69,0,0,0,0,0,67,79,78,84,0,0,0,0,0,0,0,RUN,LIST
560 DATALOAD,SAVE,VERIFY,OPEN,CLOSE,CONT,1,3,5,7,2,4,6,8,1,3,5,7,2,4,6,8