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

100 DIM H$(72),N$(120,20),S(120),K$(3),Z$(1),L$(2)
110 Z$="5"\L$="00"
120 FILE#1:"DTA1:MPERS5.BA"
130 FOR I=1 TO 120
140 INPUT#1:H$
150 IF END#1 THEN 220
160 N=VAL(SEG$(H$,2,4))
170 INPUT#1:X
180 INPUT#1:H$
190 N$(N)=SEG$(H$,1,20)
200 INPUT#1:X
210 NEXT I
220 CLOSE#1
230 FILE#2:"DTA1:MKURBZ.BA"
240 INPUT#2:K$
250 IF END#2 THEN 480
260 FILE#3:"DTA1:"&K$&".BA"
270 INPUT#3:Z1,Z2,X,X
280 FOR I=1 TO Z1-1
290 INPUT#3:S(I),X,X
300 NEXT I
310 INPUT#3:S(Z1)
320 CLOSE#3
330 PRINT\PRINT\PRINT
340 PRINT"KURS:   ";K$\PRINT
350 FOR I=1 TO Z1
360 T$=STR$(ABS(S(I)))
370 H$=Z$&SEG$(L$,1,3-LEN(T$))
380 H$=H$&T$
390 IF S(I)>=0 THEN 420
400 H$=H$&" * "
410 GOTO 430
420 H$=H$&"   "
430 H$=H$&N$(ABS(S(I)))
440 PRINT H$
450 NEXT I
460 FOR I=1 TO 70-Z1\PRINT\NEXT I
470 GOTO 240
480 CLOSE#2
490 PRINT"ENDE DER KURSLISTEN"
500 END