File DTA3.BA (BASIC source file)

Directory of image this file is from
This file as a plain text file

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



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search