home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 February / 64er_Magazin_88-02_1988_Markt__Technik_de_Side_A.d64 / funktions-tasten (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  47 lines
  1. 10 print"[147]f-tasten belegung            thomas hahn[146]"
  2. 11 fori=52736to52847:reada
  3. 12 z=z+a:pokei,a:nexti
  4. 13 dim z(40)
  5. 14 fori=1to9:readb$(i):nexti
  6. 15 fori=0to39:readz(i):nexti
  7. 16 ad=52848:forf=0to19:reada$
  8. 17 pokead,f:w=len(a$):pokead+1,w
  9. 18 ad=ad+2:forx=1tow:z$=mid$(a$,x,1)
  10. 19 ifz$="*"thenz$=chr$(34)
  11. 20 ifz$="@"thenz$=chr$(13)
  12. 21 printz$;:pokead,asc(z$)
  13. 22 ad=ad+1:nextx:ifasc(z$)<>13thenprint
  14. 23 print"[145]"spc(15)b$(z(f*2+1))" "b$(z(f*2)):nextf
  15. 24 sys52736
  16. 25 :
  17. 26 data120,169,13,141,20,3,169,206,141,    21,3,88,96,165,197,160,0,217,108,206
  18. 27 data240,10,200,192,4,208,246,132,2,76   ,49,234,152,197,2,240,248,133,2,174
  19. 28 data141,2,240,6,24,105,4,202,208,251,   170,160,112,132,165,160,206,132,166
  20. 29 data160,0,209,165,240,25,200,72,165,    165,24,113,165,105,2,144,2,230,166
  21. 30 data133,165,104,202,16,231,238,32,208   ,76,49,234,200,177,165,170,134,198
  22. 31 data200,177,165,153,117,2,202,208,247   ,76,49,234,4,5,6,3
  23. 32 :
  24. 33 data "<f1>","<f3>","<f5>","<f7>","[157]"
  25. 34 data "<shift>","<commodore>"
  26. 35 data "<shift/commodore>","<control>"
  27. 36 data 1,5,2,5,3,5,4,5
  28. 37 data 1,6,2,6,3,6,4,6
  29. 38 data 1,7,2,7,3,7,4,7
  30. 39 data 1,8,2,8,3,8,4,8
  31. 40 data 1,9,2,9,3,9,4,9
  32. 41 :
  33. 42 rem ab hier koennen die eigenen
  34. 43 rem funktionstasten eingegeben
  35. 44 rem werden.
  36. 45 :
  37. 46 rem @ = <return>
  38. 47 rem * = anfuehrungszeichen
  39. 48 :
  40. 49 data "run@","list@","load *"
  41. 50 data "save *","load*$*,8@","new@"
  42. 51 data "print","goto","poke","peek"
  43. 52 data "data","read","restore"
  44. 53 data "next","gosub","return"
  45. 54 data "open","close","input"
  46. 55 data "?fre(x)+4^8@"
  47.