home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 June / 64er_Magazin_93-06_1993_Markt__Technik_de_Side_B.d64 / steuerprogramm (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  72 lines
  1. 1 rem abfrage fuer modellbahn-platine 64'er 5/93
  2. 2 rem nikolaus heusler, zwengauerweg 18, 8000 muenchen 71
  3. 4 poke56334,.:sys65418:poke56334,1:e=820:a=e+32
  4. 5 :
  5. 6 rem falls der userport nicht auf ausgang geschaltet werden darf, bitte die
  6. 7 rem zahl 141 am ende von zeile 1014 gegen eine 173 austauschen und zeile 1029
  7. 8 rem aendern!
  8. 9 :
  9. 10 print"[147]bitte warten...
  10. 1000 [131]76,68,192,76,71,192,76,187,193,32,32,40,67,41,32,78,73,75,79,76,65,85
  11. 1001 [131]83,32,72,69,85,83,76,69,82,44,32,90,87,69,78,71,65,85,69,82,87,69,71
  12. 1002 [131]32,49,56,44,32,56,48,48,48,32,77,85,69,78,67,72,69,78,32,55,49,32,32
  13. 1003 [131]169,,44,169,255,72,120,169,162,160,192,141,20,3,140,21,3,169,209,141
  14. 1004 [131]14,221,169,,141,5,221,169,1,141,4,221,169,4,13,2,221,141,2,221,169,47
  15. 1005 [131]133,,169,55,133,1,169,,141,12,221,88,104,240,1,96,32,102,229,162,3,189
  16. 1006 [131]192,2,32,142,192,202,16,247,48,240,160,7,74,72,169,48,105,,32,210,255
  17. 1007 [131]104,136,16,243,169,32,76,210,255,32,234,255,165,204,208,41,198,205,208
  18. 1008 [131]37,169,20,133,205,164,211,70,207,174,135,2,177,209,176,17,230,207,133
  19. 1009 [131]206,32,36,234,177,243,141,135,2,174,134,2,165,206,73,128,32,28,234,169
  20. 1010 [131],141,3,221,165,1,41,223,133,1,169,,141,12,221,173,,221,41,251,141,,221
  21. 1011 [131]32,155,193,173,1,221,141,192,2,169,,141,12,221,173,,221,9,4,141,,221
  22. 1012 [131]32,155,193,173,1,221,141,193,2,169,255,141,12,221,173,,221,41,251,141,
  23. 1013 [131]221,32,155,193,173,1,221,141,194,2,169,255,141,12,221,173,,221,9,4,141
  24. 1014 [131],221,32,155,193,173,1,221,141,195,2,165,1,9,32,133,1,169,255,141,3,221
  25. 1015 [131]169,,141,12,221,173,,221,41,251,141,,221,173,196,2,141,1,221,32,155
  26. 1016 [131]193,169,,141,12,221,173,,221,9,4,141,,221,173,197,2,141,1,221,32,155
  27. 1017 [131]193,169,255,141,12,221,173,,221,41,251,141,,221,173,198,2,141,1,221,32
  28. 1018 [131]155,193,169,255,141,12,221,173,,221,9,4,141,,221,173,199,2,141,1,221
  29. 1019 [131]32,155,193,76,123,234,165,1,41,247,133,1,9,8,133,1,32,173,193,41,247
  30. 1020 [131]133,1,96,96,,202,208,253,96,1,2,4,8,16,32,64,128,173,192,2,162,7,10
  31. 1021 [131]72,169,,105,,157,52,3,104,202,16,243,173,193,2,162,7,10,72,169,,105,
  32. 1022 [131]157,60,3,104,202,16,243,173,194,2,162,7,10,72,169,,105,,157,68,3,104
  33. 1023 [131]202,16,243,173,195,2,162,7,10,72,169,,105,,157,76,3,104,202,16,243,169
  34. 1024 [131],162,7,188,84,3,240,3,29,179,193,202,16,245,141,196,2,169,,162,7,188
  35. 1025 [131]92,3,240,3,29,179,193,202,16,245,141,197,2,169,,162,7,188,100,3,240,3
  36. 1026 [131]29,179,193,202,16,245,141,198,2,169,,162,7,188,108,3,240,3,29,179,193
  37. 1027 [131]202,16,245,141,199,2,96
  38. 1028 s[178]0:[129]i[178]49152[164]49739:[135]q:s[178]s[170]q:[151]i,q:[130]
  39. 1029 [139]s[177][179]64307[167][153]"data fehler !!!":[144]
  40. 1030 [151]53280,0:[151]53281,0:[158]49155
  41. 1032 [153]"loadprintmodellbahn-steuerung
  42. 1034 print"eingaenge:
  43. 1036 [153]"   ::::::::::::::::::::::::::::::::
  44. 1040 print"ausgaenge (mit entspr. taste schalten):
  45. 1042 [153]"   abcdefghijklmnopqrstuvwxyz012345
  46. 1044 print"   ::::::::::::::::::::::::::::::::
  47. 1050 [153]"  _ wait = ende
  48. 1052 print"  / [146] = alle ausgaenge loeschen
  49. 1054 [153]"  ^ wait = uebertrag eingaenge -> ausgaenge
  50. 1056 print"  * [146] = ausgaenge invertieren
  51. 1060 [161]a$:[139]a$[178]"_"[167][158]64738
  52. 1062 [139]a$[178]"/"[167]1200
  53. 1064 [139]a$[178]"^"[167]1300
  54. 1065 [139]a$[178]"*"[167]1400
  55. 1066 [139]a$[179]"a"[176]a$[177]"z"[167]1080
  56. 1070 c[178][198](a$)[171]65
  57. 1072 [139][194](a[170]c)[178]0[167][151]a[170]c,1:[137]1100
  58. 1074 [151]a[170]c,0:[137]1100
  59. 1080 [139]a$[179]"0"[176]a$[177]"5"[167]1100
  60. 1082 c[178][198](a$)[171]22:[137]1072
  61. 1100 [158]49158:[153]"   ";:[129]i[178].[164]31
  62. 1102 [153]"sys";:[139][194](e[170]i)[178]0[167][153]"poke";
  63. 1104 [153]"(NULL)";:[130]:[153]:[153]"   ";
  64. 1106 [129]i[178].[164]31
  65. 1108 [153]"sys";:[139][194](a[170]i)[178]0[167][153]"poke";
  66. 1110 [153]"(NULL)";:[130]:[137]1060
  67. 1200 [129]i[178].[164]31:[151]a[170]i,.:[130]:[137]1100
  68. 1300 [129]i[178].[164]31:[151]a[170]i,[194](e[170]i):[130]:[137]1100
  69. 1400 [129]i[178].[164]31:[139][194](a[170]i)[178]0[167][151]a[170]i,1:[137]1404
  70. 1402 [151]a[170]i,0
  71. 1404 [130]:[137]1100
  72.