AUSWAHL64TD3AP0P
FILE INFORMATION
FILENAME(S): AUSWAHL64TD3AP0P
FILE TYPE(S): PRG
FILE SIZE: 1.8K
FIRST SEEN: 2025-12-01 02:25:59
APPEARS ON: 1 disk(s)
FILE HASH
a5cf4233e6db07392498ee835523917c7aca0bacf2b49d201c2ace9ef7fd537c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TONSOFT | AUSWAHL64TD3AP0P | PRG | Shine | 27 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1A 08 00 00 8F 20 22 41 55 53 57 41 48 4C |....... "AUSWAHL|
00000010: 36 34 2E 2E 2E 3F 3F 3F 50 22 00 23 08 0A 00 99 |64...???P".#....|
00000020: 22 93 22 00 4A 08 0F 00 8B C2 28 35 32 32 33 37 |".".J.....(52237|
00000030: 29 B2 30 A7 9F 39 2C C2 28 35 32 32 33 36 29 3A |).0..9,.(52236):|
00000040: 98 39 2C 22 11 22 3B 3A A0 39 00 6E 08 14 00 8F |.9,".";:.9.n....|
00000050: 20 2A 2A 2A 20 50 52 4F 47 52 41 4D 4D 45 4E 44 | *** PROGRAMMEND|
00000060: 45 5A 45 49 47 45 52 20 53 45 54 5A 45 4E 00 8E |EZEIGER SETZEN..|
00000070: 08 1E 00 8B C2 28 34 35 29 B2 C2 28 34 37 29 AF |.....(45)..(47).|
00000080: C2 28 34 36 29 B2 C2 28 34 38 29 89 35 30 00 AA |.(46)..(48).50..|
00000090: 08 28 00 97 34 35 2C C2 28 31 37 34 29 3A 97 34 |.(..45,.(174):.4|
000000A0: 36 2C C2 28 31 37 35 29 3A 9C 00 C6 08 32 00 87 |6,.(175):....2..|
000000B0: 41 3A 86 41 24 28 41 2C 32 29 3A 47 4E B2 C2 28 |A:.A$(A,2):GN..(|
000000C0: 35 32 32 34 33 29 00 E5 08 3C 00 81 49 B2 31 A4 |52243)...<..I.1.|
000000D0: 41 3A 81 4A B2 30 A4 32 3A 87 41 24 28 49 2C 4A |A:.J.0.2:.A$(I,J|
000000E0: 29 3A 82 3A 82 00 09 09 46 00 81 49 B2 31 A4 41 |):.:....F..I.1.A|
000000F0: 3A 99 22 11 22 41 24 28 49 2C 30 29 A3 33 37 29 |:."."A$(I,0).37)|
00000100: 41 24 28 49 2C 31 29 3A 82 00 3B 09 50 00 99 22 |A$(I,1):..;.P.."|
00000110: 11 11 C2 49 54 54 45 20 57 41 45 48 4C 45 4E 20 |...ITTE WAEHLEN |
00000120: D3 49 45 3A 20 22 3B 3A 97 35 33 32 37 32 2C 33 |.IE: ";:.53272,3|
00000130: 32 3A 97 35 33 32 36 35 2C 32 37 00 4D 09 5A 00 |2:.53265,27.M.Z.|
00000140: 9F 31 2C 30 3A 84 31 2C 41 24 3A A0 31 00 68 09 |.1,0:.1,A$:.1.h.|
00000150: 64 00 81 49 B2 31 A4 41 3A 8B 41 24 B2 41 24 28 |d..I.1.A:.A$.A$(|
00000160: 49 2C 31 29 89 31 32 30 00 6E 09 6E 00 82 00 7F |I,1).120.n.n....|
00000170: 09 6F 00 8B 41 24 B2 22 D3 54 4F 50 22 A7 90 00 |.o..A$.".TOP"...|
00000180: 87 09 70 00 89 39 30 00 99 09 78 00 99 22 93 12 |..p..90...x.."..|
00000190: 11 22 41 24 28 49 2C 30 29 00 A9 09 82 00 8B 41 |."A$(I,0)......A|
000001A0: 24 B2 22 43 22 89 31 38 30 00 B9 09 8C 00 8B 41 |$."C".180......A|
000001B0: 24 B2 22 44 22 89 32 34 30 00 CA 09 96 00 8B 41 |$."D".240......A|
000001C0: 24 B2 22 44 50 22 89 33 35 30 00 DA 09 9B 00 8B |$."DP".350......|
000001D0: 41 24 B2 22 46 22 89 35 30 30 00 ED 09 A0 00 8B |A$."F".500......|
000001E0: 41 24 B2 22 45 22 A7 9E 36 34 37 33 38 00 16 0A |A$."E"..64738...|
000001F0: AA 00 97 35 33 32 36 35 2C 35 39 3A 97 35 33 32 |...53265,59:.532|
00000200: 37 32 2C 31 32 30 3A 93 41 24 28 49 2C 32 29 AA |72,120:.A$(I,2).|
00000210: 22 2A 22 2C 47 4E 00 23 0A B4 00 9F 31 2C 47 4E |"*",GN.#....1,GN|
00000220: 2C 31 35 00 39 0A BE 00 98 31 2C 22 53 30 3A 27 |,15.9....1,"S0:'|
00000230: 5A 53 2A 22 3A 8D 33 30 30 00 4F 0A C8 00 98 31 |ZS*":.300.O....1|
00000240: 2C 22 53 30 3A 27 54 53 2A 22 3A 8D 33 30 30 00 |,"S0:'TS*":.300.|
00000250: 7A 0A D2 00 98 31 2C 22 43 30 3A 27 5A 53 2E 43 |z....1,"C0:'ZS.C|
00000260: 42 4D 2E 24 43 30 3D 30 3A 2E 5A 53 2E 43 42 4D |BM.$C0=0:.ZS.CBM|
00000270: 2E 24 43 30 22 3A 8D 33 30 30 00 A5 0A DC 00 98 |.$C0":.300......|
00000280: 31 2C 22 43 30 3A 27 54 53 2E 43 42 4D 2E 24 43 |1,"C0:'TS.CBM.$C|
00000290: 43 3D 30 3A 2E 54 53 2E 43 42 4D 2E 24 43 43 22 |C=0:.TS.CBM.$CC"|
000002A0: 3A 8D 33 30 30 00 AE 0A E6 00 89 32 39 30 00 BB |:.300......290..|
000002B0: 0A F0 00 9F 31 2C 47 4E 2C 31 35 00 D1 0A FA 00 |....1,GN,15.....|
000002C0: 98 31 2C 22 53 30 3A 27 5A 53 2A 22 3A 8D 33 30 |.1,"S0:'ZS*":.30|
000002D0: 30 00 E7 0A 04 01 98 31 2C 22 53 30 3A 27 54 53 |0......1,"S0:'TS|
000002E0: 2A 22 3A 8D 33 30 30 00 12 0B 0E 01 98 31 2C 22 |*":.300......1,"|
000002F0: 43 30 3A 27 5A 53 2E 44 49 4E 2E 24 43 30 3D 30 |C0:'ZS.DIN.$C0=0|
00000300: 3A 2E 5A 53 2E 44 49 4E 2E 24 43 30 22 3A 8D 33 |:.ZS.DIN.$C0":.3|
00000310: 30 30 00 3D 0B 18 01 98 31 2C 22 43 30 3A 27 54 |00.=....1,"C0:'T|
00000320: 53 2E 44 49 4E 2E 24 43 43 3D 30 3A 2E 54 53 2E |S.DIN.$CC=0:.TS.|
00000330: 44 49 4E 2E 24 43 43 22 3A 8D 33 30 30 00 59 0B |DIN.$CC":.300.Y.|
00000340: 22 01 9E 35 32 32 32 37 3A 93 22 53 4D 2D 54 45 |"..52227:."SM-TE|
00000350: 58 54 20 36 34 22 2C 47 4E 00 6F 0B 2C 01 84 31 |XT 64",GN.o.,..1|
00000360: 2C 46 31 2C 46 32 24 2C 46 33 24 2C 46 34 24 00 |,F1,F2$,F3$,F4$.|
00000370: 7C 0B 36 01 8B 46 31 B3 32 30 A7 8E 00 A9 0B 40 ||.6..F1.20.....@|
00000380: 01 8B 46 31 B2 32 36 A7 99 22 12 53 43 48 52 45 |..F1.26..".SCHRE|
00000390: 49 42 53 43 48 55 54 5A 20 45 4E 54 46 45 52 4E |IBSCHUTZ ENTFERN|
000003A0: 45 4E 20 21 22 3A 8A 35 30 00 C6 0B 4A 01 99 22 |EN !":.50...J.."|
000003B0: 12 22 46 31 22 2C 22 46 32 24 22 2C 22 46 33 24 |."F1","F2$","F3$|
000003C0: 22 2C 22 46 34 24 00 CE 0B 54 01 8A 35 30 00 D7 |","F4$...T..50..|
000003D0: 0B 5E 01 9F 31 2C 30 00 05 0C 68 01 41 B2 C2 28 |.^..1,0...h.A..(|
000003E0: 35 32 32 33 36 29 3A 99 22 11 C4 52 55 43 4B 45 |52236):."..RUCKE|
000003F0: 52 41 44 52 45 53 53 45 3A 22 41 3A 99 22 91 22 |RADRESSE:"A:."."|
00000400: A3 31 36 29 3B 00 19 0C 72 01 84 31 2C 41 24 3A |.16);...r..1,A$:|
00000410: 99 3A 41 B2 C5 28 41 24 29 00 2B 0C 7C 01 8B 41 |.:A..(A$).+.|..A|
00000420: B3 34 B0 41 B1 33 31 89 33 36 30 00 4B 0C 86 01 |.4.A.31.360.K...|
00000430: 41 24 B2 22 43 22 3A 8B C2 28 35 32 32 33 37 29 |A$."C":..(52237)|
00000440: AF 31 32 38 A7 41 24 B2 22 41 22 00 81 0C 90 01 |.128.A$."A".....|
00000450: 99 22 11 12 C3 92 4F 4D 4D 4F 44 4F 52 45 20 2F |."....OMMODORE /|
00000460: 20 12 C1 92 D3 C3 C9 C9 2D C4 52 55 43 4B 45 52 | .......-.RUCKER|
00000470: 3A 20 22 41 24 22 9D 22 3B 3A 84 31 2C 41 24 3A |: "A$".";:.1,A$:|
00000480: 99 00 96 0C 9A 01 8B 41 24 B2 22 43 22 A7 42 B2 |.......A$."C".B.|
00000490: 30 3A 89 34 34 30 00 AD 0C A4 01 8B 41 24 B2 22 |0:.440......A$."|
000004A0: 41 22 A7 42 B2 31 32 38 3A 89 34 34 30 00 B6 0C |A".B.128:.440...|
000004B0: AE 01 89 33 39 30 00 C6 0C B8 01 A0 31 3A 9F 31 |...390......1:.1|
000004C0: 2C 47 4E 2C 31 35 00 DC 0C C2 01 98 31 2C 22 53 |,GN,15......1,"S|
000004D0: 30 3A 27 44 50 2A 22 3A 8D 33 30 30 00 02 0D CC |0:'DP*":.300....|
000004E0: 01 A0 31 3A 9F 31 2C 47 4E 2C 32 2C 22 30 3A 27 |..1:.1,GN,2,"0:'|
000004F0: 44 50 22 AA C4 28 41 29 AA 41 24 AA 22 2C 50 2C |DP"..(A).A$.",P,|
00000500: 57 22 00 21 0D D6 01 98 31 2C C7 28 31 32 29 C7 |W".!....1,.(12).|
00000510: 28 32 30 34 29 C7 28 41 29 C7 28 42 29 3B 3A A0 |(204).(A).(B);:.|
00000520: 31 00 2A 0D E0 01 89 32 39 30 00 4D 0D F4 01 8F |1.*....290.M....|
00000530: 22 2A 2A 2A 20 46 41 52 42 45 49 4E 53 54 45 4C |"*** FARBEINSTEL|
00000540: 4C 55 4E 47 45 4E 20 5B 4E 44 45 52 4E 00 7B 0D |LUNGEN [NDERN.{.|
00000550: FE 01 99 22 93 11 11 12 D4 92 45 58 54 46 41 52 |..."......EXTFAR|
00000560: 42 45 20 41 45 4E 44 45 52 4E 22 A3 33 30 29 22 |BE AENDERN".30)"|
00000570: 28 22 C2 28 36 34 36 29 22 29 22 00 B3 0D 08 02 |(".(646)")".....|
00000580: 99 22 11 12 C8 92 49 4E 54 45 52 47 52 55 4E 44 |."....INTERGRUND|
00000590: 46 41 52 42 45 20 41 45 4E 44 45 52 4E 22 A3 33 |FARBE AENDERN".3|
000005A0: 30 29 22 28 22 C2 28 35 33 32 38 31 29 AF 31 35 |0)"(".(53281).15|
000005B0: 22 29 22 00 E6 0D 0D 02 99 22 11 12 D2 92 41 48 |")"......"....AH|
000005C0: 4D 45 4E 46 41 52 42 45 20 41 45 4E 44 45 52 4E |MENFARBE AENDERN|
000005D0: 22 A3 33 30 29 22 28 22 C2 28 35 33 32 38 30 29 |".30)"(".(53280)|
000005E0: AF 31 35 22 29 22 00 04 0E 12 02 99 22 11 12 5A |.15")"......"..Z|
000005F0: 92 55 52 55 45 43 4B 20 5A 55 52 20 C1 55 53 57 |.URUECK ZUR .USW|
00000600: 41 48 4C 22 00 17 0E 1C 02 A1 41 24 3A 8B 41 24 |AHL"......A$:.A$|
00000610: B2 22 22 89 35 34 30 00 27 0E 26 02 8B 41 24 B2 |."".540.'.&..A$.|
00000620: 22 54 22 89 35 39 30 00 37 0E 30 02 8B 41 24 B2 |"T".590.7.0..A$.|
00000630: 22 48 22 89 36 30 30 00 47 0E 35 02 8B 41 24 B2 |"H".600.G.5..A$.|
00000640: 22 52 22 89 36 31 30 00 58 0E 3A 02 8B 41 24 B3 |"R".610.X.:..A$.|
00000650: B1 22 5A 22 89 35 34 30 00 5E 0E 44 02 8A 00 78 |."Z".540.^.D...x|
00000660: 0E 4E 02 97 36 34 36 2C C2 28 36 34 36 29 AA 31 |.N..646,.(646).1|
00000670: AF 31 35 3A 89 35 30 30 00 96 0E 58 02 97 35 33 |.15:.500...X..53|
00000680: 32 38 31 2C C2 28 35 33 32 38 31 29 AA 31 AF 31 |281,.(53281).1.1|
00000690: 35 3A 89 35 30 30 00 B4 0E 62 02 97 35 33 32 38 |5:.500...b..5328|
000006A0: 30 2C C2 28 35 33 32 38 30 29 AA 31 AF 31 35 3A |0,.(53280).1.15:|
000006B0: 89 35 30 30 00 BB 0E E8 03 83 35 00 E2 0E F2 03 |.500......5.....|
000006C0: 83 22 D4 45 58 54 56 45 52 41 52 42 45 49 54 55 |.".EXTVERARBEITU|
000006D0: 4E 47 22 2C 22 54 22 2C 22 54 36 34 2E 45 44 49 |NG","T","T64.EDI|
000006E0: 54 22 00 03 0F FC 03 83 22 C3 4F 4D 4D 4F 44 4F |T"......".OMMODO|
000006F0: 52 45 2D D4 41 53 54 41 54 55 52 22 2C 22 43 22 |RE-.ASTATUR","C"|
00000700: 2C 22 22 00 23 0F 06 04 83 22 44 45 55 54 53 43 |,"".#...."DEUTSC|
00000710: 48 45 20 D4 41 53 54 41 54 55 52 22 2C 22 44 22 |HE .ASTATUR","D"|
00000720: 2C 22 22 00 43 0F 10 04 83 22 C4 52 55 43 4B 45 |,"".C....".RUCKE|
00000730: 52 50 41 52 41 4D 45 54 45 52 22 2C 22 44 50 22 |RPARAMETER","DP"|
00000740: 2C 22 22 00 56 0F 1A 04 83 22 C5 4E 44 45 22 2C |,"".V....".NDE",|
00000750: 22 45 22 2C 22 22 00 00 00 43 00 03 18 FF FF 00 |"E",""...C......|
....... "AUSWAHL64...???P".#....".".J...
.B(52237).0..9,B(52236):.9,".";: 9.N....
*** PROGRAMMENDEZEIGER SETZEN......B(45
).B(47).B(46).B(48).50...(..45,B(174):.4
6,B(175):..F.2..A:.A$(A,2):GN.B(52243)..
.<..I.1.A:.J.0.2:.A$(I,J):.:....F..I.1.A
:."."A$(I,0).37)A$(I,1):..;.P.."..BITTE
WAEHLEN SIE: ";:.53272,32:.53265,27.M.Z.
.1,0:.1,A$: 1.H.D..I.1.A:.A$.A$(I,1).120
.N.N....O..A$."STOP".....P..90...X.."..
."A$(I,0)......A$."C".180......A$."D".24
0.J....A$."DP".350.Z....A$."F".500... ..
A$."E"..64738......53265,59:.53272,120:.
A$(I,2)."*",GN.#....1,GN,15.9....1,"S0:'
ZS*":.300.O.H..1,"S0:'TS*":.300.Z.R..1,"
C0:'ZS.CBM.$C0=0:.ZS.CBM.$C0":.300......
1,"C0:'TS.CBM.$CC=0:.TS.CBM.$CC":.300...
...290......1,GN,15.Q....1,"S0:'ZS*":.30
0......1,"S0:'TS*":.300......1,"C0:'ZS.D
IN.$C0=0:.ZS.DIN.$C0":.300.=....1,"C0:'T
S.DIN.$CC=0:.TS.DIN.$CC":.300.Y."..52227
:."SM-TEXT 64",GN.O.,..1,F1,F2$,F3$,F4$.
|.6..F1.20.....@..F1.26..".SCHREIBSCHUTZ
ENTFERNEN !":.50.F.J.."."F1","F2$","F3$
","F4$.N.T..50.W.^..1,0...H.A.B(52236):.
".DRUCKERADRESSE:"A:.".".16);...R..1,A$:
.:A.E(A$).+.|..A.4.A.31.360.K...A$."C":.
B(52237).128.A$."A"......"..C.OMMODORE /
.A.SCII-DRUCKER: "A$".";:.1,A$:.......A
$."C".B.0:.440......A$."A".B.128:.440...
...390.F... 1:.1,GN,15...B..1,"S0:'DP*":
.300...L. 1:.1,GN,2,"0:'DP".D(A).A$.",P,
W".!.V..1,G(12)G(204)G(A)G(B);: 1.*....2
90.M...."*** FARBEINSTELLUNGEN [NDERN.{.
..."....T.EXTFARBE AENDERN".30)"("B(646)
")"......"..H.INTERGRUNDFARBE AENDERN".3
0)"("B(53281).15")"......"..R.AHMENFARBE
AENDERN".30)"("B(53280).15")"......"..Z
.URUECK ZUR AUSWAHL"......A$:.A$."".540.
'.&..A$."T".590.7.0..A$."H".600.G.5..A$.
"R".610.X.:..A$.."Z".540.^.D...X.N..646,
B(646).1.15:.500...X..53281,B(53281).1.1
5:.500...B..53280,B(53280).1.15:.500....
..5......"TEXTVERARBEITUNG","T","T64.EDI
T"......"COMMODORE-TASTATUR","C","".#...
."DEUTSCHE TASTATUR","D","".C...."DRUCKE
RPARAMETER","DP","".V...."ENDE","E",""..
.C......
> CLICK IMAGE PREVIEW FOR FULL MODAL