90  REM "BIGEB.BA"  TAPE NR.  85
95  REM GEBURTSTAGE BIBI'S SCHALKNARREN EV.
97  REM
98 PRINT"WIEVIELE AUSDRUCKE";\INPUT C
100 LET B=0
105 LET A=0
120 GOSUB 510
150 PRINT #1:"      1.  JAN  36  SIEGFRIED PETER"
155 CLOSE #1
160 GOSUB 510
175 PRINT #1:"     12.  JAN  45  SIEFGFRIED HANDKE"
180 CLOSE #1
190 GOSUB 510
210 PRINT #1:"     13.  JAN  53  KERSTIN WIDMAYER"
211 CLOSE#1
220 GOTO 800
499 REM SUBROUTINE
510 LET A=A+1
520 FILEV #1:"DCWR:"
530 PRINT #1:A;
540 RETURN
800 LET B=B+1
805 IF B=C THEN 999
810 GOTO 105
999 END