File PRGSPL.BA (BASIC source file)

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

10 DIM D$(72),K(300,5),M(40,10),P$(45,3),F$(13,1),U$(3,10),M1(40,10)
15 FILEV#4:"LPT:"
30 PRINT#4:"GESAMTPLAN FUER DIE MUENDLICHE ABITURPRUEFUNG"\PRINT#4:
35 PRINT#4:\PRINT#4:\PRINT#4:
50 FILE#1:"DTA1:PRKOM.BA"\INPUT#1:Z,H,H
60 FOR I1=1 TO Z\FOR I2=1 TO 5\INPUT#1:K(I1,I2)\NEXT I2
64 INPUT#1:H,H\IF END#1 THEN 66
66 NEXT I1
70 CLOSE#1\D$="DEFLKNGMPCBRS"
80 FILE#2:"SYS:PRMAT.BA"
90 FOR I1=1 TO 40\FOR I2=1 TO 10\INPUT#2:M(I1,I2)\NEXT I2
94 INPUT#2:H,H\IF END#2 THEN 96
95 FOR I2=1 TO 10\INPUT#2:M1(I1,I2)\NEXT I2\INPUT#2:H,H\IF END#2 THEN 96
96 NEXT I1
100 CLOSE#2\FOR I=1 TO 13\F$(I)=SEG$(D$,I,I)\NEXT I
110 FILE#3:"DTA1:PRLPER.BA"\INPUT#3:Z1,H,H
120 FOR I=1 TO Z1\INPUT#3:P$(I),H\IF END#3 THEN 130\NEXT I
130 CLOSE#3\U$(1)="VORS."\U$(2)="PRUEF"\U$(3)="PROT."
140 GOSUB 1000
150 FOR I1=1 TO 40\PRINT #4:I1;TAB(4);"I SCHNR I";
153 FOR I2=1 TO 10
155 D$=S$
160 FOR I6=1 TO 3-LEN(STR$(K(M(I1,I2),1)))\D$=D$&" "\NEXT I6
170 IF M(I1,I2)=0 THEN 190
180 D$=D$&STR$(K(M(I1,I2),1))\GOTO 200
190 D$="   "
200 PRINT#4:" ";D$;" I";\NEXT I2\PRINT#4:\PRINT#4:"   I FACH  I";
210 FOR I2=1 TO 10\IF M(I1,I2)=0 THEN 230
220 D$=F$(K(M(I1,I2),2))\GOTO 240
230 D$=" "
240 PRINT#4:"  ";D$;"  I";\NEXT I2\PRINT#4:
250 FOR I2=1 TO 3\PRINT#4:"   I ";U$(I2);" I";
260 FOR I3=1 TO 10\IF M(I1,I3)=0 THEN 280
270 D$=P$(K(M(I1,I3),I2+2))\FOR I4=1 TO 3-LEN(D$)\D$=D$&" "\NEXT I4
275 GOTO 290
280 D$="   "
290 PRINT#4:" ";D$;" I";\NEXT I3\PRINT#4:\NEXT I2
291 FOR I2=1 TO 2\PRINT#4:"   I       I";\FOR I3=1 TO 10
292 D$=STR$(M1(I1,I3))\FOR I4=1 TO 4-LEN(D$)\D$="0"&D$\NEXT I4
293 A=VAL(SEG$(D$,I2*2-1,I2*2))\IF A=0 THEN 295\IF A>45THEN1040\D$=P$(A)
294 FOR I4=1 TO 3-LEN(D$)\D$=D$&" "\NEXT I4\GOTO 296
295 D$="   "
296 PRINT#4:" ";D$;" I";
297 NEXT I3\PRINT#4:\NEXT I2\GOSUB 1000
300 NEXT I1\FOR I1=1 TO 15\PRINT#4:\NEXT I1\CLOSE#4\STOP
1000 FOR I=1 TO 72\IF I=4 THEN 1020\IF I=6 THEN 1010
1001 IF I-6*INT(I/6)=0 THEN 1020
1010 PRINT#4:"-";\GOTO 1030
1020 PRINT#4:"I";
1030 NEXT I\PRINT#4:\RETURN
1040 D$="!!"&STR$(A)&"!I"\PRINT #4:D$\GOTO 297
2000 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