home *** CD-ROM | disk | FTP | other *** search
/ Power Disk 64 1996 1 / Power_Disk_64_96-01_1996_Lagune_de_Side_B.d64 / qfh-hi (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  559b  |  31 lines
  1. 1 open1,8,2,"a,s,r"
  2. 2 input#1,a
  3. 3 close1
  4. 4 open2,8,2,"hi,s,r"
  5. 5 input#2,n$
  6. 6 input#2,h
  7. 7 close2
  8. 10 print"[147][196]eine [208]unktzahl :"a
  9. 11 pokev+31,0:pokev+21,0
  10. 12 ifa>hthenpoke19,1:print"[206]euer [210]ekord !":input"[206]ame :";n$:h=a:poke19,0:print
  11. 13 print"[210]ekordhalter :"
  12. 14 printn$
  13. 15 print"[208]unktzahl :"
  14. 16 printh
  15. 17 geta$:ifa$=""then17
  16. 18 open2,8,2,"@:hi,s,w"
  17. 19 print:print#2,n$
  18. 20 print#2,h
  19. 21 close2
  20. 30 print"[206]ochmal spielen ([202]/[206]) ?"
  21. 31 geta$:ifa$=""then31
  22. 32 ifa$="j"then40
  23. 33 ifa$="n"thensys64738
  24. 34 goto31
  25. 40 poke828,0
  26. 41 printchr$(147)chr$(17)
  27. 42 print"l[207]"chr$(34);"quest for hrrhrr";chr$(34);",8
  28. 43 [153][199](17)[199](17)[199](17)[199](17)"run"
  29. 44 [151]631,13:[151]632,13:[151]198,2
  30. 45 [153][199](19);:[128]
  31.