File ZA2TTY.BA (BASIC source file)

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

10 DIM N$(20),F(4,5)
30 PRINT\PRINT\PRINT
35  PRINT"NAME";\INPUT N$
40 IF N$="ENDE"THEN800
45  PRINT "FAECHER"
50 FOR I=1 TO 4
60  INPUT F$(I)
70 NEXTI
80 PRINT"PKTE";\INPUT F(1,1),F(1,2),F(1,3),F(2,1),F(2,2)
90 INPUT F(2,3),F(3,1),F(3,2),F(3,3),F(4,1)
100 INPUTF(4,2),F(4,3)
110 PRINT\PRINT\PRINT\S1=0\P=0
120 IF F$(4)<>"SP" THEN 130\F(4,3)=F(4,3)/4
130 FOR I=1 TO 2\F(I,1)=F(I,1)/3\NEXT I
140FOR I= 1 TO 4\F(I,5)=0\IF F(I,3)>15 THEN795
150 F(I,1)=(F(I,1)+F(I,2))/4
160 IF ABS(F(I,1)-F(I,3))<4 THEN 190
170 IF I = 4 THEN 190
180 P=P+1\F(I,5)=1
190F(I,4)=4*F(I,3)+F(I,2)\S1=S1+F(I,4)\F(I,0)=F(I,4)
200 NEXT I
210 PRINT N$ \ PRINT
220 PRINT,"L-FACH","L-FACH","3.FACH","4.FACH"
230 PRINT ,F$(1),F$(2),F$(3),F$(4)
240 PRINT "SCHNITT 12/13 ";F(1,1),F(2,1),F(3,1),"--"
250 PRINT"PKTE 13.2",F(1,2),F(2,2),F(3,2),F(4,2)
260 PRINT "PKTE PRFG","SCHR ";F(1,3),"SCHR ";F(2,3),"SCHR ";F(3,3),
270PRINT "MDL ";F(4,3)
280 PRINT "BISH.ERG",F(1,4),F(2,4),F(3,4),F(4,4)
290 PRINT ,,,,"SUM: ";S1
300 IF P > 0 THEN 370
310 S = S1
320 GOSUB 700
330 IF B$ = "N" THEN 470
340 GOSUB 660
350 IF B$ = "N" THEN 470
360 PRINT "BESTANDEN"\ GOTO 30
370 S=F(4,0)
380 FOR I=1 TO3 \ IF F(I,5)=0 THEN 400
390 F(I,0)=INT(8*F(I,3)/3)+F(I,1)
400 S=S+F(I,0)\NEXT I
410 GOSUB 700
420 IF B$="N"THEN 470
430 GOSUB 660
440IF B$="N" THEN470
450 GOSUB 620
460 GOTO 30
470 S= F(4,0)
480 FOR I=1 TO 3 
490 F(I,0)=INT(8*F(I,3)/3)+F(I,2)+20\S=S+F(I,0)
500 NEXT I
510GOSUB 700
520 IF B$="J" THEN 540\Z=1
530PRINT "NICHT BESTANDEN WEGEN 25-PUNKTE-BEDINGUNG"
540 GOSUB 660
550 IF B$ = "N" THEN 580
560 IF Z = 1 THEN 30\IF P = 0 THEN 570\GOSUB 620
570PRINT"PRUEFUNG IN ALLEN FAECHERN?????"\GOTO30
580PRINT"NICHT BESTANDEN WEGEN 100-PKTE-BEDINGUNG"
590 IF S<90 THEN 610
600 PRINT "90 PUNKTE ERREICHBAR" \ GOTO 30
610 PRINT"90 PUNKTE  N I C H T  ERREICHBAR " \ GOTO 30
620 PRINT "MDL PRFG WEGEN ABWEICHUNG IN ";
630 FOR I=1 TO 3 \ IF F(I,5)=0 THEN 640\ PRINT F$(I);"  ";
640 NEXT I
650 PRINT  \ RETURN
660 IF S < 100 THEN 680
670 B$="J"\GOTO 690
680 B$="N"
690 RETURN
700 A=0\L=0
710 FOR I=1 TO 4
720 IF F(I,0)>24 THEN 750
730 A = A+1\IF I>2 THEN 750
740 L=L+1
750 NEXT I
760 IF A>2 THEN 780
770 IF L=2 THEN 780\B$="J"\GOTO 790
780 B$ =  "N"
790 RETURN
795 PRINT N$\PRINT"PRFG-PKTE IN ";F$(I);" FEHLEN"\GOTO 30
800 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