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 >
Commodore BASIC  |  2023-02-26  |  413b  |  23 lines
  1. 10 dim le$(10),na$(10),pp$(10)
  2. 15 input"high-score loeschen j=ja n=nein";b$:ifb$="n" then sys64738
  3. 20 fori=0to6:na$(i)=".":le$(i)="0":pp$(i)="0":next
  4. 225 :
  5. 230 open1,8,2,"@:hscore,s,w"
  6. 240 fori=0 to 7
  7. 250 print#1,na$(i)
  8. 260 print#1,le$(i)
  9. 270 print#1,pp$(i)
  10. 275 nexti
  11. 280 close1
  12. 290 print"taste":poke198,0:wait198,1
  13. 300 open1,8,2,"hscore,s,r"
  14. 310 fori=1 to 7
  15. 320 input#1,na$(i)
  16. 330 input#1,le$(i)
  17. 340 input#1,pp$(i)
  18. 345 nexti
  19. 350 close1
  20. 400 fori=1to7
  21. 420 printi;na$(i)" ";le$(i);" ";pp$(i)
  22. 430 nexti
  23.