home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 October / 64er_Magazin_84-10_1984_Markt__Technik_de.d64 / funkt.tast (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  48 lines
  1. 100 rem"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  2. 110 [143]"(NULL) funktionstastenbelegung (NULL)
  3. 120 rem"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
  4. 130 [143]"(NULL) by m.kloss  duesseldorf (NULL)
  5. 140 rem"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
  6. 150 [143]"(NULL)nn,mm:laufvariable       (NULL)
  7. 160 rem"[221]q1   :readvariable       [221]
  8. 170 [143]"(NULL)q2   :aenderungsvariable (NULL)
  9. 180 rem"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
  10. 190 [143]"(NULL)q1$  :loeschvariable     (NULL)
  11. 200 rem"[221]q2$():befehlsfeld        [221]
  12. 210 [143]"(NULL)q3$  :antwortvariable    (NULL)
  13. 220 rem"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
  14. 230 [143]"(NULL) belegung der f.ftasten  (NULL)
  15. 240 rem"[221] mit strings bis 9 byte  [221]
  16. 250 [143]"(NULL) laenge.initialisierung  (NULL)
  17. 260 rem"[221] durch run/stop restore  [221]
  18. 270 [143]"/tantantantantantantantantantantantantantantantantantantantantantantantantanexp
  19. 280 print"[147]moment bitte":gosub450:print"[147]"
  20. 290 fornn=0to7:readq2$(nn):nextnn:print"[147]":q1$="                   [145]"
  21. 300 printspc(5)"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  22. 310 printspc(5)" funktionstastenbelegung "
  23. 320 printspc(5)"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  24. 330 printspc(5)"jetzige belegung"
  25. 340 fornn=0to7:readq1:printspc(5)"f"q1"  "q2$(nn):nextnn
  26. 350 printspc(5)"aenderungen erwuenscht (j)";:inputq3$
  27. 360 ifq3$<>"j"thenpoke58,255:end
  28. 370 print"[147]":fornn=0to7:readq1
  29. 380 printspc(3)"funktionstaste "q1" "q2$(nn):print"[145]"tab(20);
  30. 390 inputq2$(nn):iflen(q2$(nn))>9thenprint"[145]"tab(20)q1$:printtab(20);:goto390
  31. 400 nextnn
  32. 410 printspc(3)"eingaben korrekt (j)";:inputq3$:ifq3$<>"j"thenrun
  33. 420 q2=49262:fornn=0to7:formm=1tolen(q2$(nn))
  34. 430 pokeq2+mm,asc(mid$(q2$(nn),mm,1)):nextmm
  35. 440 formm=len(q2$(nn))+1to9:pokeq2+mm,0:nextmm:q2=q2+10:nextnn:poke58,255:end
  36. 450 fornn=49152to49343:readq1:pokenn,q1:nextnn:sys49152:return
  37. 460 rem * datastatements *
  38. 470 data120,169,78,141,0,3,169,192,141,1,3,169,23,141,20,3,169,192,141,21
  39. 480 data3,88,96,36,157,16,48,169,133,141,94,192,165,215,141,93,192,173,93
  40. 490 data192,205,94,192,240,12,238,94,192,173,94,192,201,141,240,20,208,236
  41. 500 data56,173,93,192,233,133,10,170,189,96,192,168,189,95,192,32,30,171
  42. 510 data76,49,234,120,169,23,141,20,3,169,192,141,21,3,88,76,139,227,10,141
  43. 520 data111,192,121,192,131,192,141,192,151,192,161,192,171,192,181,192,82
  44. 530 data85,78,0,0,0,0,0,0,0,76,73,83,84,0,0,0,0,0,0,76,79,65,68,0,0,0,0,0
  45. 540 data0,83,65,86,69,0,0,0,0,0,0,86,69,82,73,70,89,0,0,0,0,79,80,69,78,0
  46. 550 data0,0,0,0,0,67,76,79,83,69,0,0,0,0,0,67,79,78,84,0,0,0,0,0,0,0,run,list
  47. 560 dataload,save,verify,open,close,cont,1,3,5,7,2,4,6,8,1,3,5,7,2,4,6,8
  48.