File BASIC.WS

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

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



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