File KUR2E.FT (FORTRAN source file)

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

 CONTINUE
        IF (LK)210,210,205
205     WRITE (1,440)N(K3),N(K4),LK,
440     FORMAT (2X,A2,'-',A2,'=',I3)
S       JMS DRUCK
210     CONTINUE
        IF (K11-1)240,500,500
240     IF (IFORM+911)250,500,250
250     KW=4
        K11=1
        IZZAEH=0
        WRITE (1,450)
450     FORMAT (///'GK-KOMBINATIONEN'/)
        GOTO 135
SDRUCK, 0
        IF (IZZAEH-KDRUCK)810,810,820
820     WRITE (1,470)
470     FORMAT (/)
        IZZAEH=-1
810     IZZAEH=IZZAEH+1
S       JMP I DRUCK
500     CALL CHAIN ('KUR3S')
        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