5 DIMA(20),A$(20)
10 PRINT"[147]":POKE53281,0:POKE53280,0:
20 OPEN1,8,2,"JOB.S":INPUT#1,GE,N$:CLOSE1
30 OPEN1,8,2,"JOB.HI":FORT=1TO10:INPUT#1,A$(T),A$(T):NEXT:CLOSE1
40 FORT=1TO10
50 IFGE=>A(T) ANDM=0 THENFORN=10TOTSTEP-1:A$(N+1)=A$(N):A(N+1)=A(N):NEXT:
51 IFGE=>A(T)ANDM=0 THENA$(T)=N$:A(T)=GE:M=1
55 NEXT:PRINT"            [158]HISCORE-LIST"
60 :PRINT"      NAME"TAB(27)"BARGELD"
70 FORT=1TO10:PRINT"     "A$(T)TAB(25)A(T)"DM" :NEXT
80 OPEN1,8,15:PRINT#1,"S:JOB.HI":CLOSE1
90 OPEN1,8,2,"JOB.HI,P,W":FORT=1TO10:PRINT#1,A(T):PRINT#1,A$(T):NEXT:CLOSE1
100 GETA$:IFA$<>" "THEN100
110 LOAD"JOB FOR NEWS",8,1