home *** CD-ROM | disk | FTP | other *** search
/ Publication 5 / Publication_05_19xx_High-Tech_de_Side_A.d64 / funktionstasten! (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  621b  |  28 lines
  1. 10 rem ********************************
  2. 11 rem *                              *
  3. 12 rem *      12 funktionstasten      *
  4. 13 rem *     --------------------     *
  5. 14 rem *                              *
  6. 15 rem * arranged by zeitgeist of h-t *
  7. 16 rem *                              *
  8. 17 rem ********************************
  9. 18 rem
  10. 100 geta$:ifa$=""then100
  11. 101 a=peek(197):b=peek(653)
  12. 102 ifa=4andb=0thenprint"f1"
  13. 103 ifa=5andb=0thenprint"f3"
  14. 104 ifa=6andb=0thenprint"f5"
  15. 105 ifa=3andb=0thenprint"f7"
  16. 106 rem
  17. 107 ifa=4andb=1thenprint"f2"
  18. 108 ifa=5andb=1thenprint"f4"
  19. 109 ifa=6andb=1thenprint"f6"
  20. 110 ifa=3andb=1thenprint"f8"
  21. 111 rem
  22. 112 ifa=4andb=2thenprint"f9"
  23. 113 ifa=5andb=2thenprint"f10"
  24. 114 ifa=6andb=2thenprint"f11"
  25. 115 ifa=3andb=2thenprint"f12"
  26. 116 rem
  27. 117 goto100
  28.