home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 37 / 64er_Magazin_Sonderheft_37_19xx_Markt__Technik_de_Disk_2_of_2_Side_B.d64 / listenloescher (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  403b  |  13 lines
  1. 10 print"[147]"tab(7)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  2. 20 printtab(7)"[221]    neue scoreliste    [221]"
  3. 30 printtab(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  4. 40 printtab(10)"von jan peter mohr"
  5. 50 sys57812"wuerfeln.sc",8,1:poke780,0:sys65493
  6. 60 printtab(5)"neuer name der alten liste":input"     ";n$
  7. 70 n$=left$(n$,16)
  8. 80 open1,8,15,"r:"+n$+"=wuerfeln.sc":close1
  9. 90 fori=828to837:pokei,0:next:rem scores
  10. 100 fori=838to937:pokei,46:next:rem namen
  11. 110 sys938
  12. 120 printtab(7)"---leere liste erzeugt---"
  13.