1 REM ABFRAGE FUER MODELLBAHN-PLATINE 64'ER 5/93
2 REM NIKOLAUS HEUSLER, ZWENGAUERWEG 18, 8000 MUENCHEN 71
4 POKE56334,.:SYS65418:POKE56334,1:E=820:A=E+32
5 :
6 REM FALLS DER USERPORT NICHT AUF AUSGANG GESCHALTET WERDEN DARF, BITTE DIE
7 REM ZAHL 141 AM ENDE VON ZEILE 1014 GEGEN EINE 173 AUSTAUSCHEN UND ZEILE 1029
8 REM AENDERN!
9 :
10 PRINT"[147]BITTE WARTEN...
1000 [131]76,68,192,76,71,192,76,187,193,32,32,40,67,41,32,78,73,75,79,76,65,85
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
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
1003 [131]169,,44,169,255,72,120,169,162,160,192,141,20,3,140,21,3,169,209,141
1004 [131]14,221,169,,141,5,221,169,1,141,4,221,169,4,13,2,221,141,2,221,169,47
1005 [131]133,,169,55,133,1,169,,141,12,221,88,104,240,1,96,32,102,229,162,3,189
1006 [131]192,2,32,142,192,202,16,247,48,240,160,7,74,72,169,48,105,,32,210,255
1007 [131]104,136,16,243,169,32,76,210,255,32,234,255,165,204,208,41,198,205,208
1008 [131]37,169,20,133,205,164,211,70,207,174,135,2,177,209,176,17,230,207,133
1009 [131]206,32,36,234,177,243,141,135,2,174,134,2,165,206,73,128,32,28,234,169
1010 [131],141,3,221,165,1,41,223,133,1,169,,141,12,221,173,,221,41,251,141,,221
1011 [131]32,155,193,173,1,221,141,192,2,169,,141,12,221,173,,221,9,4,141,,221
1012 [131]32,155,193,173,1,221,141,193,2,169,255,141,12,221,173,,221,41,251,141,
1013 [131]221,32,155,193,173,1,221,141,194,2,169,255,141,12,221,173,,221,9,4,141
1014 [131],221,32,155,193,173,1,221,141,195,2,165,1,9,32,133,1,169,255,141,3,221
1015 [131]169,,141,12,221,173,,221,41,251,141,,221,173,196,2,141,1,221,32,155
1016 [131]193,169,,141,12,221,173,,221,9,4,141,,221,173,197,2,141,1,221,32,155
1017 [131]193,169,255,141,12,221,173,,221,41,251,141,,221,173,198,2,141,1,221,32
1018 [131]155,193,169,255,141,12,221,173,,221,9,4,141,,221,173,199,2,141,1,221
1019 [131]32,155,193,76,123,234,165,1,41,247,133,1,9,8,133,1,32,173,193,41,247
1020 [131]133,1,96,96,,202,208,253,96,1,2,4,8,16,32,64,128,173,192,2,162,7,10
1021 [131]72,169,,105,,157,52,3,104,202,16,243,173,193,2,162,7,10,72,169,,105,
1022 [131]157,60,3,104,202,16,243,173,194,2,162,7,10,72,169,,105,,157,68,3,104
1023 [131]202,16,243,173,195,2,162,7,10,72,169,,105,,157,76,3,104,202,16,243,169
1024 [131],162,7,188,84,3,240,3,29,179,193,202,16,245,141,196,2,169,,162,7,188
1025 [131]92,3,240,3,29,179,193,202,16,245,141,197,2,169,,162,7,188,100,3,240,3
1026 [131]29,179,193,202,16,245,141,198,2,169,,162,7,188,108,3,240,3,29,179,193
1027 [131]202,16,245,141,199,2,96
1028 S[178]0:[129]I[178]49152[164]49739:[135]Q:S[178]S[170]Q:[151]I,Q:[130]
1029 [139]S[177][179]64307[167][153]"DATA FEHLER !!!":[144]
1030 [151]53280,0:[151]53281,0:[158]49155
1032 [153]"LOADPRINTMODELLBAHN-STEUERUNG
1034 PRINT"EINGAENGE:
1036 [153]"   ::::::::::::::::::::::::::::::::
1040 PRINT"AUSGAENGE (MIT ENTSPR. TASTE SCHALTEN):
1042 [153]"   ABCDEFGHIJKLMNOPQRSTUVWXYZ012345
1044 PRINT"   ::::::::::::::::::::::::::::::::
1050 [153]"  _ WAIT = ENDE
1052 PRINT"  / [146] = ALLE AUSGAENGE LOESCHEN
1054 [153]"  ^ WAIT = UEBERTRAG EINGAENGE -> AUSGAENGE
1056 PRINT"  * [146] = AUSGAENGE INVERTIEREN
1060 [161]A$:[139]A$[178]"_"[167][158]64738
1062 [139]A$[178]"/"[167]1200
1064 [139]A$[178]"^"[167]1300
1065 [139]A$[178]"*"[167]1400
1066 [139]A$[179]"A"[176]A$[177]"Z"[167]1080
1070 C[178][198](A$)[171]65
1072 [139][194](A[170]C)[178]0[167][151]A[170]C,1:[137]1100
1074 [151]A[170]C,0:[137]1100
1080 [139]A$[179]"0"[176]A$[177]"5"[167]1100
1082 C[178][198](A$)[171]22:[137]1072
1100 [158]49158:[153]"   ";:[129]I[178].[164]31
1102 [153]"SYS";:[139][194](E[170]I)[178]0[167][153]"POKE";
1104 [153]"(null)";:[130]:[153]:[153]"   ";
1106 [129]I[178].[164]31
1108 [153]"SYS";:[139][194](A[170]I)[178]0[167][153]"POKE";
1110 [153]"(null)";:[130]:[137]1060
1200 [129]I[178].[164]31:[151]A[170]I,.:[130]:[137]1100
1300 [129]I[178].[164]31:[151]A[170]I,[194](E[170]I):[130]:[137]1100
1400 [129]I[178].[164]31:[139][194](A[170]I)[178]0[167][151]A[170]I,1:[137]1404
1402 [151]A[170]I,0
1404 [130]:[137]1100