100 OPEN1,8,1,"PRG2/A"
110 SYS7*4096:     ; ASSEMBLER AUFRUFEN
120 BDOS =$A000    ; STARTADRESSE BDOS
130 PRG  =1        ; FUER INCLUDE-DATEI
140 .ICL 8,"BDS*   ; STRUKTUREN
150 .ICL 8,"BDJ*   ; JUMP-TABELLE
160 ZEI  =$18
170 .OPT O1        ; CODE IN FILE 1
180 *=$7000        ; STARTADRESSE PRG
190 ;
200 STA ZEI        ; ADRESSE SPEICHERN
210 STY ZEI+1
220 ;
230 LDA #13        ; CR
240 JSR $FFD2      ; AUSGEBEN
250 ;
260 LDY #0         ; INDEX
270 LOOP
280 LDA (ZEI),Y    ; PARAMETER
290 BEQ ENDPRG     ; NULL=ENDE
300 JSR $FFD2      ; AUSGEBEN
310 INY
320 BNE LOOP
330 ENDPRG
340 LDA #13        ; CR
350 JSR $FFD2
360 LDA #0         ; MELDUNG AN PROMPT
370 RTS