home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 4 / Digital_Talk_04_1993-12-10_Digital_Talk_de_Side_B.d64 / 4. hsm-cyrus (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-01-01  |  1.4 KB  |  57 lines
  1. 10 poke53280,11:poke53281,0:poke646,13:print"[147]      ford prefect's highscoremaker"
  2. 20 print"  written 1993   public domain software"
  3. 30 print"[159] spiel : [158]cyrus"
  4. 40 print"[154]            highscore :"
  5. 50 print"            [163][163][163][163][163][163][163][163][163][163][163]"
  6. 60 l$="hiscore of cyrus,p,r"
  7. 70 : open 1,8,2,l$
  8. 80 : get #1,no$,no$
  9. 90 :   for x = 49152 to 49152+60
  10. 100 :    get#1,by$
  11. 110 :    if by$ =""then pokex,0:goto130
  12. 120 :    poke x,asc(by$)
  13. 130 :  next x
  14. 140 :close 1
  15. 150 :
  16. 160 : for l = 0 to 2
  17. 170 :      for r = 0 to 19
  18. 180 :      s=(peek(49152+l*20+r))
  19. 190 :      ifs<32 thens=s+64
  20. 200 :      ifs=64 then s=32
  21. 210 :      ifs=205 then s=32
  22. 220 :      s$= chr$(s)
  23. 230 :      f$(l)=f$(l)+s$
  24. 240 :      next r
  25. 250 : print f$(l)
  26. 260 : next l
  27. 270 :
  28. 280 print" welchen eintrag moechtest du aendern ?"
  29. 290 print"[159]   1 - 1st     2 - 2nd     3 - 3rd"
  30. 300 print"       - run/stop zum beenden -"
  31. 310 geta:ifa=0then310
  32. 320 q=a-1:p=q*20:print"[156]max. 20 zeichen gesamtlaenge !![159]"
  33. 325 print"  [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  34. 330 print"  ";f$(q)
  35. 340 input"[145]";n$(q)
  36. 350 iflen(n$(q))>20thenprint"[145]";:goto330::::
  37. 360 forl=0to19:poke49152+p+l,peek(1024+23*40+2+l):nextl
  38. 370 print"[153] aenderungen werden gespeichert !"
  39. 380 open15,8,15,"s:hiscore of cyrus":close15
  40. 390 : l$="hiscore of cyrus,p,w"
  41. 400 : open 1,8,2,l$
  42. 410 : print#1,chr$(40);chr$(137);
  43. 420 :    for l = 0 to 59
  44. 430 :    print#1, chr$(peek(49152+l));
  45. 440 :    next l
  46. 450 : close 1
  47. 460 :                    run
  48. 470 :
  49. 480 :
  50. 490 : ford prefects highscoremaker
  51. 500 : game : cyrus
  52. 510 :
  53. 520 : danny busch
  54. 530 : birkenallee 18
  55. 540 : 65549 limburg (germany)
  56. 550 : tel.: 06431/25866
  57.