File MPR4K.BA (BASIC source file)

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

10 REM PRUEFUNGSLISTEN IM 4. FACH
20 REM AUS DATENSATZ DER ZA1-KONFERENZ
30 DIM N$(20),F(8),X$(14)
40 PRINT "NAME DES ABZURUFENDEN DATENSATZES";\ INPUT X$
50 X$ = "DTA1:"&X$&".BA"
60 FILE#1:X$
70 FOR I = 1 TO 5\ PRINT\ NEXT I
80 PRINT "KURS";\ INPUT K$
81 PRINT\PRINT\PRINT
85 IF K$ = "ENDE" THEN 200
90 INPUT#1:N$,X
95 IF N$ = "ENDE" THEN 180
100 INPUT #1: F$(1),X,F$(2),X,F$(3),X,F$(4),X
110 INPUT#1:F(1),F(2),F(3),F(4),F(5),X,X
111 INPUT#1:F(6),F(7),F(8),X,X
150 IF F$(4) <>K$ THEN 90
160 PRINT N$;TAB(22);F(8)
165 PRINT
170 GOTO 90
180 RESTORE#1
190 GOTO 70
200 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