100  REM PROGRAMMAUFRUF MIT BIBIS.BA
104  LET Y=0
105  LET A=0\LET X=0\LET G=0
110  PRINT"WIEVIELE AUSDRUCKE"\INPUT Y
120  PRINT\PRINT"WELCHES AUSGABEGERAET:"
130  PRINT"LINE PRINTER (1)"
140  PRINT"HIGH SPEED PUNCH (2)"
150  PRINT"DEC WRITER (3)"
160  INPUT G
170  IF G<4 THEN 200
180  PRINT"FALSCHE EINGABE"
190  GOTO 120
200  IF G=1 GOTO 10000
202  IF G=2 GOTO 10100
204  IF G=3 GOTO 10200
210  GOSUB 10300
300  PRINT#1:TAB(2);A;
310 PRINT#1:TAB(8);"RAINHART WITTEK,MARLIS"
320  PRINT#1:TAB(8);"HINDENBURGPLATZ 1"
330  PRINT#1:TAB(8);"INGERSHEIM 1"
340  PRINT#1:\PRINT#1:\PRINT#1:
400  GOSUB 10300
410  PRINT#1:TAB(2);A;
420  PRINT#1:TAB(8);"SIEGFRIED PETER,KARIN"
430  PRINT#1:TAB(8);"FRAKFURTERSTRASSE 3"
440  PRINT#1:TAB(8);"BIETIGHEIM-BISS"
450  PRINT#1:\PRINT#1:\PRINT#1:
8000 LET A=0
8010 LET X=X+1
8020 IF X=Y THEN 10500
8030 GOTO 210
10000FILEV#1:"LPT:"
10010 GOTO 210
10100FILEV#1:"PTP:"
10110 GOTO 210
10200FILEV#1:"DCWR:"
10210 GOTO 210
10300LET A=A+1
10310RETURN
10500CLOSE#1
10510END