AUSWAHL64.JOK

00000000: 01 08 0A 08 64 00 99 22  93 22 00 2E 08 6E 00 8F  |....d.."."...n..|
00000010: 20 2A 2A 2A 20 50 52 4F  47 52 41 4D 4D 45 4E 44  | *** PROGRAMMEND|
00000020: 45 5A 45 49 47 45 52 20  53 45 54 5A 45 4E 00 4F  |EZEIGER SETZEN.O|
00000030: 08 78 00 8B C2 28 34 35  29 B2 C2 28 34 37 29 AF  |.x...(45)..(47).|
00000040: C2 28 34 36 29 B2 C2 28  34 38 29 89 31 34 30 00  |.(46)..(48).140.|
00000050: 69 08 82 00 97 34 35 2C  C2 28 31 37 34 29 3A 97  |i....45,.(174):.|
00000060: 34 36 2C C2 28 31 37 35  29 00 85 08 8C 00 9C 3A  |46,.(175)......:|
00000070: 9E 35 33 31 32 30 3A 8F  20 54 41 53 54 41 54 55  |.53120:. TASTATU|
00000080: 52 20 45 49 4E 00 9B 08  96 00 9E 35 33 31 32 36  |R EIN......53126|
00000090: 3A 8F 20 53 54 4F 50 20  41 55 53 00 B4 08 A0 00  |:. STOP AUS.....|
000000A0: 9E 35 33 31 33 32 3A 8F  20 44 52 55 43 4B 45 52  |.53132:. DRUCKER|
000000B0: 20 45 49 4E 00 D2 08 AA  00 87 41 3A 86 48 24 28  | EIN......A:.H$(|
000000C0: 41 29 3A 81 49 B2 31 A4  41 3A 87 48 24 28 49 29  |A):.I.1.A:.H$(I)|
000000D0: 3A 82 00 EE 08 B4 00 87  41 3A 86 41 24 28 41 2C  |:.......A:.A$(A,|
000000E0: 33 29 3A 47 4E B2 C2 28  35 33 31 36 39 29 00 0D  |3):GN..(53169)..|
000000F0: 09 BE 00 81 49 B2 31 A4  41 3A 81 4A B2 30 A4 33  |....I.1.A:.J.0.3|
00000100: 3A 87 41 24 28 49 2C 4A  29 3A 82 3A 82 00 34 09  |:.A$(I,J):.:..4.|
00000110: C8 00 81 49 B2 31 A4 41  3A 99 22 20 20 20 20 22  |...I.1.A:."    "|
00000120: 41 24 28 49 2C 30 29 A3  33 32 29 41 24 28 49 2C  |A$(I,0).32)A$(I,|
00000130: 31 29 3A 82 00 45 09 D2  00 99 3A 99 22 11 22 48  |1):..E....:."."H|
00000140: 24 28 31 29 3B 00 57 09  DC 00 9F 31 2C 30 3A 84  |$(1);.W....1,0:.|
00000150: 31 2C 41 24 3A A0 31 00  72 09 E6 00 81 49 B2 31  |1,A$:.1.r....I.1|
00000160: A4 41 3A 8B 41 24 B2 41  24 28 49 2C 31 29 89 32  |.A:.A$.A$(I,1).2|
00000170: 37 30 00 78 09 F0 00 82  00 90 09 FA 00 8B 41 24  |70.x..........A$|
00000180: B2 22 D3 54 4F 50 22 A7  9E 35 33 31 32 39 3A 90  |.".TOP"..53129:.|
00000190: 00 A5 09 04 01 9E 35 33  31 32 36 3A 99 22 93 22  |......53126:."."|
000001A0: 3A 8A 31 37 30 00 B7 09  0E 01 99 22 93 12 11 22  |:.170......"..."|
000001B0: 41 24 28 49 2C 30 29 00  CD 09 18 01 8B 41 24 B2  |A$(I,0)......A$.|
000001C0: 41 24 28 41 AB 33 2C 31  29 89 33 33 30 00 E3 09  |A$(A.3,1).330...|
000001D0: 22 01 8B 41 24 B2 41 24  28 41 AB 32 2C 31 29 89  |"..A$.A$(A.2,1).|
000001E0: 34 30 30 00 F9 09 2C 01  8B 41 24 B2 41 24 28 41  |400...,..A$.A$(A|
000001F0: AB 31 2C 31 29 89 35 32  30 00 22 0A 36 01 8B 41  |.1,1).520.".6..A|
00000200: 24 B2 41 24 28 41 2C 31  29 A7 97 35 36 35 37 36  |$.A$(A,1)..56576|
00000210: 2C C2 28 35 36 35 37 36  29 B0 33 3A 9E 36 34 37  |,.(56576).3:.647|
00000220: 33 38 00 4E 0A 3B 01 54  B2 C5 28 41 24 28 49 2C  |38.N.;.T..(A$(I,|
00000230: 33 29 29 3A 97 54 AB 31  2C 30 3A 97 34 33 2C 32  |3)):.T.1,0:.43,2|
00000240: 35 35 AF 54 3A 97 34 34  2C 54 AD 32 35 36 00 62  |55.T:.44,T.256.b|
00000250: 0A 40 01 93 41 24 28 49  2C 32 29 AA 22 2A 22 2C  |.@..A$(I,2)."*",|
00000260: 47 4E 00 6F 0A 4A 01 9F  31 2C 47 4E 2C 31 35 00  |GN.o.J..1,GN,15.|
00000270: 9A 0A 54 01 98 31 2C 22  52 30 3A 2E 5A 53 2E 44  |..T..1,"R0:.ZS.D|
00000280: 49 4E 2E 24 43 30 3D 30  3A 27 5A 53 2E 44 49 4E  |IN.$C0=0:'ZS.DIN|
00000290: 2E 24 43 30 22 3A 8D 34  37 30 00 B5 0A 5E 01 8B  |.$C0":.470...^..|
000002A0: 46 31 B2 36 32 B0 46 31  B2 36 33 A7 99 22 93 22  |F1.62.F1.63.."."|
000002B0: 3A 8A 31 37 30 00 E0 0A  68 01 98 31 2C 22 52 30  |:.170...h..1,"R0|
000002C0: 3A 2E 54 54 2E 44 49 4E  2E 24 43 44 3D 30 3A 27  |:.TT.DIN.$CD=0:'|
000002D0: 54 54 2E 44 49 4E 2E 24  43 44 22 3A 8D 34 37 30  |TT.DIN.$CD":.470|
000002E0: 00 0B 0B 72 01 98 31 2C  22 52 30 3A 27 5A 53 2E  |...r..1,"R0:'ZS.|
000002F0: 43 42 4D 2E 24 43 30 3D  30 3A 2E 5A 53 2E 43 42  |CBM.$C0=0:.ZS.CB|
00000300: 4D 2E 24 43 30 22 3A 8D  34 37 30 00 36 0B 7C 01  |M.$C0":.470.6.|.|
00000310: 98 31 2C 22 52 30 3A 27  54 54 2E 43 42 4D 2E 24  |.1,"R0:'TT.CBM.$|
00000320: 43 44 3D 30 3A 2E 54 54  2E 43 42 4D 2E 24 43 44  |CD=0:.TT.CBM.$CD|
00000330: 22 3A 8D 34 37 30 00 3F  0B 86 01 89 34 36 30 00  |":.470.?....460.|
00000340: 4C 0B 90 01 9F 31 2C 47  4E 2C 31 35 00 77 0B 9A  |L....1,GN,15.w..|
00000350: 01 98 31 2C 22 52 30 3A  2E 5A 53 2E 43 42 4D 2E  |..1,"R0:.ZS.CBM.|
00000360: 24 43 30 3D 30 3A 27 5A  53 2E 43 42 4D 2E 24 43  |$C0=0:'ZS.CBM.$C|
00000370: 30 22 3A 8D 34 37 30 00  92 0B A4 01 8B 46 31 B2  |0":.470......F1.|
00000380: 36 32 B0 46 31 B2 36 33  A7 99 22 93 22 3A 8A 31  |62.F1.63..".":.1|
00000390: 37 30 00 BD 0B AE 01 98  31 2C 22 52 30 3A 2E 54  |70......1,"R0:.T|
000003A0: 54 2E 43 42 4D 2E 24 43  44 3D 30 3A 27 54 54 2E  |T.CBM.$CD=0:'TT.|
000003B0: 43 42 4D 2E 24 43 44 22  3A 8D 34 37 30 00 E8 0B  |CBM.$CD":.470...|
000003C0: B8 01 98 31 2C 22 52 30  3A 27 5A 53 2E 44 49 4E  |...1,"R0:'ZS.DIN|
000003D0: 2E 24 43 30 3D 30 3A 2E  5A 53 2E 44 49 4E 2E 24  |.$C0=0:.ZS.DIN.$|
000003E0: 43 30 22 3A 8D 34 37 30  00 13 0C C2 01 98 31 2C  |C0":.470......1,|
000003F0: 22 52 30 3A 27 54 54 2E  44 49 4E 2E 24 43 44 3D  |"R0:'TT.DIN.$CD=|
00000400: 30 3A 2E 54 54 2E 44 49  4E 2E 24 43 44 22 3A 8D  |0:.TT.DIN.$CD":.|
00000410: 34 37 30 00 3C 0C CC 01  9E 35 33 31 32 33 3A 9E  |470.<....53123:.|
00000420: 35 33 31 33 35 3A 9C 3A  47 4E B2 C2 28 35 33 31  |53135:.:GN..(531|
00000430: 36 39 29 3A 93 22 3A 2A  22 2C 47 4E 00 52 0C D6  |69):.":*",GN.R..|
00000440: 01 84 31 2C 46 31 2C 46  32 24 2C 46 33 24 2C 46  |..1,F1,F2$,F3$,F|
00000450: 34 24 00 6B 0C E0 01 8B  46 31 B3 32 30 B0 46 31  |4$.k....F1.20.F1|
00000460: B2 36 32 B0 46 31 B2 36  33 A7 8E 00 87 0C EA 01  |.62.F1.63.......|
00000470: 8B 46 31 B2 32 36 A7 99  22 93 11 12 22 48 24 28  |.F1.26.."..."H$(|
00000480: 32 29 3A 8A 31 37 30 00  A4 0C F4 01 99 22 12 22  |2):.170......"."|
00000490: 46 31 22 2C 22 46 32 24  22 2C 22 46 33 24 22 2C  |F1","F2$","F3$",|
000004A0: 22 46 34 24 00 AD 0C FE  01 8A 31 37 30 00 D0 0C  |"F4$......170...|
000004B0: 08 02 8F 22 2A 2A 2A 20  46 41 52 42 45 49 4E 53  |..."*** FARBEINS|
000004C0: 54 45 4C 4C 55 4E 47 45  4E 20 5B 4E 44 45 52 4E  |TELLUNGEN [NDERN|
000004D0: 00 F5 0C 1C 02 99 22 93  11 11 22 48 24 28 34 29  |......"..."H$(4)|
000004E0: A3 33 30 29 22 28 22 C2  28 35 33 32 38 31 29 AF  |.30)"(".(53281).|
000004F0: 31 35 22 29 22 00 18 0D  26 02 99 22 11 22 48 24  |15")"...&.."."H$|
00000500: 28 35 29 A3 33 30 29 22  28 22 C2 28 35 33 32 38  |(5).30)"(".(5328|
00000510: 30 29 AF 31 35 22 29 22  00 26 0D 30 02 99 22 11  |0).15")".&.0..".|
00000520: 22 48 24 28 36 29 00 39  0D 3A 02 A1 41 24 3A 8B  |"H$(6).9.:..A$:.|
00000530: 41 24 B2 22 22 89 35 37  30 00 4B 0D 4E 02 8B 41  |A$."".570.K.N..A|
00000540: 24 B2 48 24 28 38 29 89  36 34 30 00 5D 0D 58 02  |$.H$(8).640.].X.|
00000550: 8B 41 24 B2 48 24 28 39  29 89 36 35 30 00 71 0D  |.A$.H$(9).650.q.|
00000560: 62 02 8B 41 24 B3 B1 48  24 28 31 30 29 89 35 37  |b..A$..H$(10).57|
00000570: 30 00 7F 0D 6C 02 99 22  93 22 3A 8A 31 37 30 00  |0...l..".":.170.|
00000580: 9D 0D 80 02 97 35 33 32  38 31 2C C2 28 35 33 32  |.....53281,.(532|
00000590: 38 31 29 AA 31 AF 31 35  3A 89 35 32 30 00 BB 0D  |81).1.15:.520...|
000005A0: 8A 02 97 35 33 32 38 30  2C C2 28 35 33 32 38 30  |...53280,.(53280|
000005B0: 29 AA 31 AF 31 35 3A 89  35 32 30 00 CB 0D B8 0B  |).1.15:.520.....|
000005C0: 83 31 30 3A 8F 20 54 45  58 54 45 00 E6 0D C2 0B  |.10:. TEXTE.....|
000005D0: 83 22 C2 49 54 54 45 20  57 41 45 48 4C 45 4E 20  |.".ITTE WAEHLEN |
000005E0: D3 49 45 3A 20 22 00 08  0E CC 0B 83 22 12 D3 43  |.IE: "......"..C|
000005F0: 48 52 45 49 42 53 43 48  55 54 5A 20 45 4E 54 46  |HREIBSCHUTZ ENTF|
00000600: 45 52 4E 45 4E 20 21 22  00 10 0E D6 0B 83 22 22  |ERNEN !"......""|
00000610: 00 32 0E E0 0B 83 22 12  C8 92 49 4E 54 45 52 47  |.2...."...INTERG|
00000620: 52 55 4E 44 46 41 52 42  45 20 41 45 4E 44 45 52  |RUNDFARBE AENDER|
00000630: 4E 22 00 4F 0E EA 0B 83  22 12 D2 92 41 48 4D 45  |N".O...."...AHME|
00000640: 4E 46 41 52 42 45 20 41  45 4E 44 45 52 4E 22 00  |NFARBE AENDERN".|
00000650: 6C 0E F4 0B 83 22 12 5A  92 55 52 55 45 43 4B 20  |l....".Z.URUECK |
00000660: 5A 55 52 20 C1 55 53 57  41 48 4C 22 00 79 0E FE  |ZUR .USWAHL".y..|
00000670: 0B 83 54 2C 48 2C 52 2C  5A 00 81 0E A0 0F 83 31  |..T,H,R,Z......1|
00000680: 34 00 B1 0E AF 0F 83 22  C8 41 55 50 54 4D 41 53  |4......".AUPTMAS|
00000690: 4B 45 4E 20 41 4E 4C 45  47 45 4E 22 2C 22 48 41  |KEN ANLEGEN","HA|
000006A0: 22 2C 22 4A 4F 4B 2F 48  41 4D 2F 22 2C 32 30 34  |","JOK/HAM/",204|
000006B0: 39 00 E2 0E B0 0F 83 22  D2 45 43 48 45 4E 4D 41  |9......".ECHENMA|
000006C0: 53 4B 45 4E 20 41 4E 4C  45 47 45 4E 22 2C 22 52  |SKEN ANLEGEN","R|
000006D0: 41 22 2C 22 4A 4F 4B 2F  52 41 4E 2F 22 2C 32 30  |A","JOK/RAN/",20|
000006E0: 34 39 00 14 0F B1 0F 83  22 CC 49 53 54 45 4E 4D  |49......".ISTENM|
000006F0: 41 53 4B 45 4E 20 41 4E  4C 45 47 45 4E 22 2C 22  |ASKEN ANLEGEN","|
00000700: 4C 41 22 2C 22 4A 4F 4B  2F 4C 49 53 41 2F 22 2C  |LA","JOK/LISA/",|
00000710: 32 30 34 39 00 47 0F B2  0F 83 22 11 C8 41 55 50  |2049.G...."..AUP|
00000720: 54 4D 41 53 4B 45 4E 20  42 45 41 52 42 45 49 54  |TMASKEN BEARBEIT|
00000730: 45 4E 22 2C 22 48 42 22  2C 22 4A 4F 4B 2F 48 42  |EN","HB","JOK/HB|
00000740: 45 2F 22 2C 38 32 39 00  7A 0F B3 0F 83 22 D2 45  |E/",829.z....".E|
00000750: 43 48 45 4E 4D 41 53 4B  45 4E 20 42 45 41 52 42  |CHENMASKEN BEARB|
00000760: 45 49 54 45 4E 22 2C 22  52 42 22 2C 22 4A 4F 4B  |EITEN","RB","JOK|
00000770: 2F 52 42 45 2F 22 2C 38  32 39 00 AA 0F B4 0F 83  |/RBE/",829......|
00000780: 22 11 D3 4F 52 54 49 45  52 45 4E 20 2F 20 D3 55  |"..ORTIEREN / .U|
00000790: 43 48 45 4E 22 2C 22 53  4F 22 2C 22 4A 4F 4B 2F  |CHEN","SO","JOK/|
000007A0: 53 4F 52 54 2F 22 2C 38  32 39 00 D1 0F B5 0F 83  |SORT/",829......|
000007B0: 22 CC 49 53 54 45 4E 44  52 55 43 4B 22 2C 22 4C  |".ISTENDRUCK","L|
000007C0: 44 22 2C 22 4A 4F 4B 2F  4C 49 53 2F 22 2C 38 32  |D","JOK/LIS/",82|
000007D0: 39 00 FC 0F BA 0F 83 22  11 C8 49 4C 46 53 50 52  |9......"..ILFSPR|
000007E0: 4F 47 52 41 4D 4D 45 22  2C 22 48 49 22 2C 22 4A  |OGRAMME","HI","J|
000007F0: 4F 4B 2F 44 49 45 2F 22  2C 38 32 39 00 26 10 BB  |OK/DIE/",829.&..|
00000800: 0F 83 22 CB 4F 50 49 45  52 50 52 4F 47 52 41 4D  |..".OPIERPROGRAM|
00000810: 4D 22 2C 22 4B 4F 22 2C  22 5A 48 2E 43 4F 50 59  |M","KO","ZH.COPY|
00000820: 22 2C 32 30 34 39 00 53  10 BC 0F 83 22 C4 52 55  |",2049.S....".RU|
00000830: 43 4B 45 52 50 41 52 41  4D 45 54 45 52 22 2C 22  |CKERPARAMETER","|
00000840: 44 50 22 2C 22 5A 48 2E  44 52 55 50 41 22 2C 32  |DP","ZH.DRUPA",2|
00000850: 30 34 39 00 77 10 BE 0F  83 22 11 C3 4F 4D 4D 4F  |049.w...."..OMMO|
00000860: 44 4F 52 45 2D D4 41 53  54 41 54 55 52 22 2C 22  |DORE-.ASTATUR","|
00000870: 43 22 2C 22 22 2C 30 00  99 10 C8 0F 83 22 44 45  |C","",0......"DE|
00000880: 55 54 53 43 48 45 20 D4  41 53 54 41 54 55 52 22  |UTSCHE .ASTATUR"|
00000890: 2C 22 44 22 2C 22 22 2C  30 00 A9 10 D2 0F 83 22  |,"D","",0......"|
000008A0: 22 2C 22 22 2C 22 22 2C  30 00 BE 10 DC 0F 83 22  |","","",0......"|
000008B0: C5 4E 44 45 22 2C 22 45  22 2C 22 22 2C 30 00 00  |.NDE","E","",0..|
000008C0: 00                                                |.               |

....D.."."...N.. *** PROGRAMMENDEZEIGER 
SETZEN.O.X..B(45).B(47).B(46).B(48).140.
I....45,B(174):.46,B(175)......:.53120:.
 TASTATUR EIN......53126:. STOP AUS... .
.53132:. DRUCKER EIN.R....A:.H$(A):.I.1.
A:.H$(I):.......A:.A$(A,3):GN.B(53169)..
....I.1.A:.J.0.3:.A$(I,J):.:..4.H..I.1.A
:."    "A$(I,0).32)A$(I,1):..E.R..:."."H
$(1);.W....1,0:.1,A$: 1.R....I.1.A:.A$.A
$(I,1).270.X..........A$."STOP"..53129:.
......53126:.".":.170......"..."A$(I,0).
M....A$.A$(A.3,1).330..."..A$.A$(A.2,1).
400...,..A$.A$(A.1,1).520.".6..A$.A$(A,1
)..56576,B(56576).3:.64738.N.;.T.E(A$(I,
3)):.T.1,0:.43,255.T:.44,T.256.B.@..A$(I
,2)."*",GN.O.J..1,GN,15...T..1,"R0:.ZS.D
IN.$C0=0:'ZS.DIN.$C0":.470...^..F1.62.F1
.63..".":.170...H..1,"R0:.TT.DIN.$CD=0:'
TT.DIN.$CD":.470...R..1,"R0:'ZS.CBM.$C0=
0:.ZS.CBM.$C0":.470.6.|..1,"R0:'TT.CBM.$
CD=0:.TT.CBM.$CD":.470.?....460.L....1,G
N,15.W....1,"R0:.ZS.CBM.$C0=0:'ZS.CBM.$C
0":.470......F1.62.F1.63..".":.170......
1,"R0:.TT.CBM.$CD=0:'TT.CBM.$CD":.470...
...1,"R0:'ZS.DIN.$C0=0:.ZS.DIN.$C0":.470
...B..1,"R0:'TT.DIN.$CD=0:.TT.DIN.$CD":.
470.<.L..53123:.53135:.:GN.B(53169):.":*
",GN.R.V..1,F1,F2$,F3$,F4$.K....F1.20.F1
.62.F1.63........F1.26.."..."H$(2):.170.
....."."F1","F2$","F3$","F4$......170.P.
..."*** FARBEINSTELLUNGEN [NDERN......".
.."H$(4).30)"("B(53281).15")"...&.."."H$
(5).30)"("B(53280).15")".&.0.."."H$(6).9
.:..A$:.A$."".570.K.N..A$.H$(8).640.].X.
.A$.H$(9).650.Q.B..A$..H$(10).570..L.."
.":.170......53281,B(53281).1.15:.520...
...53280,B(53280).1.15:.520.K....10:. TE
XTE...B.."BITTE WAEHLEN SIE: "...L..".SC
HREIBSCHUTZ ENTFERNEN !"...V.."".2....".
H.INTERGRUNDFARBE AENDERN".O....".R.AHME
NFARBE AENDERN".L....".Z.URUECK ZUR AUSW
AHL".Y....T,H,R,Z... ..14......"HAUPTMAS
KEN ANLEGEN","HA","JOK/HAM/",2049......"
RECHENMASKEN ANLEGEN","RA","JOK/RAN/",20
49......"LISTENMASKEN ANLEGEN","LA","JOK
/LISA/",2049.G....".HAUPTMASKEN BEARBEIT
EN","HB","JOK/HBE/",829.Z...."RECHENMASK
EN BEARBEITEN","RB","JOK/RBE/",829......
".SORTIEREN / SUCHEN","SO","JOK/SORT/",8
29.Q...."LISTENDRUCK","LD","JOK/LIS/",82
9......".HILFSPROGRAMME","HI","JOK/DIE/"
,829.&...."KOPIERPROGRAMM","KO","ZH.COPY
",2049.S...."DRUCKERPARAMETER","DP","ZH.
DRUPA",2049.W....".COMMODORE-TASTATUR","
C","",0...H.."DEUTSCHE TASTATUR","D","",
0...R.."","","",0......"ENDE","E","",0..
.

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL