home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Digital Talk 86
/
Digital_Talk_86_2009-05-01_Digital_Talk_de_Side_C.d64
/
del-score
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
413b
|
23 lines
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