File PRAUEN.BA (BASIC source file)

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

10 DIM A(100,4)
20 PRINT "ANZAHL DER AUSSCHUESSE";\INPUT Z3\IF Z3>100  THEN 50
30 FOR I=1TO Z3\PRINT I;"  ";\INPUT A(I,1),A(I,2),A(I,3),A(I,4)
40 NEXT I\GOTO 60
50 PRINT "ZU HOHE ANZAHL ! A B B R U C H !"\STOP
60 PRINT\PRINT "SIND ALLE DATEN KORREKT EINGEGEBEN";\INPUT A$
70 IF A$="JA" THEN 100\IF A$<>"NEIN" THEN 60
80 PRINT "WELCHE NUMMER IST FALSCH";\INPUT F
90 PRINT F;"  ";\INPUT A(F,1),A(F,2),A(F,3),A(F,4)\GOTO 60
100 FILEV#1:"DTA1:PRAUS.BA"\PRINT#1:Z3
120 FOR I=1 TO Z3\FOR I1=1 TO 3\PRINT#1:A(I,I1);\NEXT I1
130 PRINT#1:A(I,4)\NEXT I\CLOSE#1
140 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