home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 4 / Digital_Talk_04_1993-12-10_Digital_Talk_de_Side_B.d64 / 6. hsm-giana (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-01-01  |  1.8 KB  |  78 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: [156]giana sisters"
  4. 40 print"              [154] highscore:"
  5. 50 print"               [183][183][183][183][183][183][183][183][183][183]"
  6. 60 print"[158]#  punkte name     level[153]"
  7. 70 :
  8. 80 :  l$="atg,p,r" : s$="atg,p,w"
  9. 90 :
  10. 100 : open 1,8,2,l$
  11. 110 : get #1,no$,no$
  12. 120 :
  13. 130 : for a = 0 to 4
  14. 140 :    for b = 0 to 23
  15. 150 :      get#1, byte$
  16. 160 :      if byte$="" then                        poke 49152+a*24+b,0:goto180
  17. 170 :      poke 49152+a*24+b,asc(byte$)
  18. 180 :    next b
  19. 190 : next a
  20. 200 close 1
  21. 210 :
  22. 220 : for a = 0 to 4
  23. 230 :    for b = 0 to 23
  24. 240 :      s = peek (49152+a*24+b)
  25. 250 :      ifs=  0then s=32
  26. 260 :      ifs=253then s=46
  27. 270 :      ifs< 32then s=s+64
  28. 280 :      hs$(a)=hs$(a)+chr$(s)
  29. 290 :    next b
  30. 300 :    print hs$(a)
  31. 310 : next a
  32. 320 :
  33. 330 : print"[154]   welche nummer willst du aendern ?"
  34. 340 : print"[159]  tippe ein : 1-5 oder _ zum beenden"
  35. 350 :
  36. 360 : get a$: ifa$=""then 360
  37. 370 :  ifa$="_"then end
  38. 380 : a=val(a$)
  39. 390 :  if a<1 or a>5 then goto 360
  40. 400 :
  41. 410 : a=(a-1)
  42. 420 :
  43. 430 : print"[158]max. 24 zeichen !"
  44. 440 : print"  #[175][175]punkte[175]name[175][175][175][175][175]level[153]"
  45. 450 : print"  ";hs$(a)
  46. 460 : input"[145]";e$
  47. 470 :  if len(e$) > 24 then goto 460
  48. 480 :  if len(e$) < 24 then gosub 680
  49. 490 : print"    aenderung wird gespeichert !"
  50. 500 :
  51. 510 : for l = 1 to 24
  52. 520 :    s = asc(mid$(e$,l,1))
  53. 530 :    if s > 64 then s =  s  - 64
  54. 540 :    if s = 46 then s =      253
  55. 550 :    if s = 32 then s =        0
  56. 560 :    poke 49152+a*24+l-1,s
  57. 570 : nextl
  58. 580 :
  59. 590 : open15,8,15,"s:atg":close15
  60. 600 : open 1,8,2,s$
  61. 605 : print#1,chr$(247);chr$(54);
  62. 610 :  for l = 0 to 119
  63. 620 :      s = peek(49152+l)
  64. 630 :      print#1,chr$(s);
  65. 640 :  nextl
  66. 650 : close 1
  67. 660 :
  68. 670 :                             run
  69. 680 : forw=len(e$)to24:e$=e$+chr$(32):        nextw:return
  70. 685 :
  71. 690 : ford prefect's highscoremaker
  72. 700 : spiel : giana sisters (w) 1993 by
  73. 710 :
  74. 720 : danny busch
  75. 730 : birkenallee 18
  76. 740 : 65549 limburg (germany)
  77. 750 : tel.: 06431/25866
  78.