10 DIM LE$(10),NA$(10),PP$(10)
15 INPUT"HIGH-SCORE LOESCHEN J=JA N=NEIN";B$:IFB$="N" THEN SYS64738
20 FORI=0TO6:NA$(I)=".":LE$(I)="0":PP$(I)="0":NEXT
225 :
230 OPEN1,8,2,"@:HSCORE,S,W"
240 FORI=0 TO 7
250 PRINT#1,NA$(I)
260 PRINT#1,LE$(I)
270 PRINT#1,PP$(I)
275 NEXTI
280 CLOSE1
290 PRINT"TASTE":POKE198,0:WAIT198,1
300 OPEN1,8,2,"HSCORE,S,R"
310 FORI=1 TO 7
320 INPUT#1,NA$(I)
330 INPUT#1,LE$(I)
340 INPUT#1,PP$(I)
345 NEXTI
350 CLOSE1
400 FORI=1TO7
420 PRINTI;NA$(I)" ";LE$(I);" ";PP$(I)
430 NEXTI