DRUCK
FILE INFORMATION
FILENAME(S): DRUCK
FILE TYPE(S): PRG
FILE SIZE: 2.3K
FIRST SEEN: 2025-11-30 18:06:05
APPEARS ON: 1 disk(s)
FILE HASH
ee0cf10b88b0f132e65acb0b399f107ea4ed2d03748d5d1c69d3b7e1be52ccd6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TIGERDISK NUMMER | DRUCK | PRG | Xii | 22 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 12 08 00 00 9C 3A 86 54 24 28 31 30 30 2C |.......:.T$(100,| 00000010: 38 29 00 2F 08 01 00 99 C7 28 31 34 29 3A 97 35 |8)./.....(14):.5| 00000020: 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 00 |3280,0:.53281,0.| 00000030: 5C 08 02 00 99 22 93 11 11 9F C6 49 4C 45 2D CE |\....".....ILE-.| 00000040: 41 4D 45 20 3F 22 3A 85 48 24 3A 48 24 B2 22 30 |AME ?":.H$:H$."0| 00000050: 3A 22 AA 48 24 AA 22 2C 53 2C 52 22 00 81 08 20 |:".H$.",S,R"... | 00000060: 03 99 22 93 05 CC 41 44 45 20 C4 41 54 45 4E 20 |.."...ADE .ATEN | 00000070: 2D 20 C2 49 54 54 45 20 57 41 52 54 45 4E 20 21 |- .ITTE WARTEN !| 00000080: 22 00 8F 08 34 03 9F 32 2C 38 2C 32 2C 48 24 00 |"...4..2,8,2,H$.| 00000090: 9B 08 3E 03 4A B2 30 3A 49 B2 31 00 BC 08 43 03 |..>.J.0:I.1...C.| 000000A0: A1 23 32 2C 56 24 3A 8B 56 24 B2 C7 28 32 35 35 |.#2,V$:.V$..(255| 000000B0: 29 A7 4A B2 4A AA 31 3A 89 38 33 38 00 D3 08 45 |).J.J.1:.838...E| 000000C0: 03 54 24 28 49 2C 4A 29 B2 54 24 28 49 2C 4A 29 |.T$(I,J).T$(I,J)| 000000D0: AA 56 24 00 E6 08 46 03 8B 4A B2 38 A7 49 B2 49 |.V$...F..J.8.I.I| 000000E0: AA 31 3A 4A B2 30 00 F0 08 48 03 52 53 B2 53 54 |.1:J.0...H.RS.ST| 000000F0: 00 0A 09 52 03 8B 52 53 B2 36 34 A7 A0 32 3A 47 |...R..RS.64..2:G| 00000100: B2 49 AB 31 3A 89 31 30 30 30 00 13 09 66 03 89 |.I.1:.1000...f..| 00000110: 38 33 35 00 43 09 E8 03 99 22 93 C3 CF CE D4 C1 |835.C...."......| 00000120: C3 D4 20 C4 C5 C1 CC C5 D2 2D C4 C1 D4 C5 CE 20 |.. ......-..... | 00000130: DA C5 C9 C7 C5 CE 20 D5 CE C4 20 C4 D2 D5 C3 CB |...... ... .....| 00000140: C5 CE 22 00 62 09 E9 03 99 22 11 C6 31 20 2D 20 |..".b...."..1 - | 00000150: C2 49 4C 44 53 43 48 49 52 4D 41 55 53 47 41 42 |.ILDSCHIRMAUSGAB| 00000160: 45 22 00 7A 09 EA 03 99 22 11 C6 33 20 2D 20 C4 |E".z...."..3 - .| 00000170: 52 55 43 4B 20 28 23 34 29 22 00 91 09 EB 03 99 |RUCK (#4)"......| 00000180: 22 11 C6 35 20 2D 20 CE 45 55 42 45 47 49 4E 4E |"..5 - .EUBEGINN| 00000190: 22 00 B0 09 EC 03 99 22 11 C6 37 20 2D 20 C1 42 |"......"..7 - .B| 000001A0: 53 45 4E 44 45 52 20 45 49 4E 47 45 42 45 4E 22 |SENDER EINGEBEN"| 000001B0: 00 C4 09 ED 03 99 22 11 C6 38 20 2D 20 C6 49 4E |......"..8 - .IN| 000001C0: 49 54 4F 22 00 F0 09 EE 03 99 22 11 11 C6 4F 52 |ITO"......"...OR| 000001D0: 20 45 41 53 49 45 52 20 50 41 50 45 52 48 41 4E | EASIER PAPERHAN| 000001E0: 44 4C 49 4E 47 3A 20 D0 55 54 20 D9 4F 55 52 22 |DLING: .UT .OUR"| 000001F0: 00 28 0A EF 03 99 22 41 44 52 45 53 53 54 49 43 |.(...."ADRESSTIC| 00000200: 4B 45 52 4C 41 4E 45 20 49 4E 20 54 48 45 20 53 |KERLANE IN THE S| 00000210: 49 4E 47 4C 45 50 41 50 45 52 2D 22 3A 99 22 53 |INGLEPAPER-":."S| 00000220: 48 45 54 53 4C 4F 54 22 00 4C 0A F0 03 99 22 D4 |HETSLOT".L....".| 00000230: 48 49 53 20 50 52 4F 47 52 41 4D 4D 20 4D 41 4B |HIS PROGRAMM MAK| 00000240: 45 53 20 D3 D0 C1 C3 C5 D3 20 21 22 00 54 0A F1 |ES ...... !".T..| 00000250: 03 A1 41 24 00 65 0A F2 03 8B 41 24 B2 22 85 22 |..A$.e....A$."."| 00000260: A7 31 31 30 30 00 76 0A F3 03 8B 41 24 B2 22 86 |.1100.v....A$.".| 00000270: 22 A7 31 32 30 30 00 84 0A F4 03 8B 41 24 B2 22 |".1200......A$."| 00000280: 87 22 A7 8A 00 92 0A F5 03 8B 41 24 B2 22 8C 22 |."........A$."."| 00000290: A7 80 00 A3 0A F6 03 8B 41 24 B2 22 88 22 A7 31 |........A$.".".1| 000002A0: 35 30 30 00 AD 0A F7 03 89 31 30 30 39 00 B5 0A |500......1009...| 000002B0: 4C 04 49 B2 31 00 C2 0A 4D 04 8B 49 B1 47 A7 49 |L.I.1...M..I.G.I| 000002C0: B2 47 00 CF 0A 4E 04 8B 49 B2 30 A7 49 B2 31 00 |.G...N..I.0.I.1.| 000002D0: E5 0A 4F 04 99 22 93 C4 41 54 45 4E 20 5A 45 49 |..O.."..ATEN ZEI| 000002E0: 47 45 4E 3A 22 00 FD 0A 51 04 99 22 11 C5 49 4E |GEN:"...Q.."..IN| 000002F0: 47 41 42 45 20 CE 52 2E 20 3A 20 22 49 00 1B 0B |GABE .R. : "I...| 00000300: 56 04 99 22 11 C7 52 55 50 50 45 2E 2E 2E 2E 2E |V.."..RUPPE.....| 00000310: 2E 3A 20 22 54 24 28 49 2C 30 29 00 38 0B 57 04 |.: "T$(I,0).8.W.| 00000320: 99 22 D0 53 45 55 44 4F 2E 2E 2E 2E 2E 2E 3A 20 |.".SEUDO......: | 00000330: 22 54 24 28 49 2C 31 29 00 55 0B 58 04 99 22 D7 |"T$(I,1).U.X..".| 00000340: 49 52 4B 4C 2E 20 CE 41 4D 45 2E 3A 20 22 54 24 |IRKL. .AME.: "T$| 00000350: 28 49 2C 32 29 00 72 0B 59 04 99 22 C1 44 52 45 |(I,2).r.Y..".DRE| 00000360: 53 53 45 2E 2E 2E 2E 2E 3A 20 22 54 24 28 49 2C |SSE.....: "T$(I,| 00000370: 33 29 00 8F 0B 5A 04 99 22 D7 4F 48 4E 4F 52 54 |3)...Z..".OHNORT| 00000380: 2E 2E 2E 2E 2E 3A 20 22 54 24 28 49 2C 34 29 00 |.....: "T$(I,4).| 00000390: AC 0B 5B 04 99 22 CC 41 4E 44 2E 2E 2E 2E 2E 2E |..[..".AND......| 000003A0: 2E 2E 3A 20 22 54 24 28 49 2C 35 29 00 C9 0B 5C |..: "T$(I,5)...\| 000003B0: 04 99 22 D4 45 4C 2E 2D CE 55 4D 4D 45 52 20 3A |..".EL.-.UMMER :| 000003C0: 20 22 54 24 28 49 2C 36 29 00 E6 0B 5D 04 99 22 | "T$(I,6)...].."| 000003D0: CC 45 54 5A 54 45 52 20 CB 4F 4E 54 3A 20 22 54 |.ETZTER .ONT: "T| 000003E0: 24 28 49 2C 37 29 00 FC 0B 60 04 99 22 11 11 C6 |$(I,7)...`.."...| 000003F0: 31 20 2D 20 DA 55 52 55 45 43 4B 22 00 16 0C 61 |1 - .URUECK"...a| 00000400: 04 99 22 C6 33 20 2D 20 C5 52 53 54 45 20 C1 44 |..".3 - .RSTE .D| 00000410: 52 45 53 53 45 22 00 31 0C 62 04 99 22 C6 35 20 |RESSE".1.b..".5 | 00000420: 2D 20 CC 45 54 5A 54 45 20 C1 44 52 45 53 53 45 |- .ETZTE .DRESSE| 00000430: 22 00 44 0C 63 04 99 22 C6 37 20 2D 20 D7 45 49 |".D.c..".7 - .EI| 00000440: 54 45 52 22 00 5A 0C 64 04 99 22 11 D2 C5 D4 20 |TER".Z.d..".... | 00000450: 2D 20 CD C5 CE D5 C5 20 21 22 00 7E 0C 65 04 99 |- ..... !".~.e..| 00000460: 22 11 C4 20 2D 20 C1 44 52 45 53 53 45 54 49 4B |".. - .DRESSETIK| 00000470: 45 54 54 45 4E 20 44 52 55 43 4B 45 4E 22 00 9A |ETTEN DRUCKEN"..| 00000480: 0C 6A 04 A1 41 24 3A 8B 41 24 B2 22 85 22 A7 49 |.j..A$:.A$.".".I| 00000490: B2 49 AB 31 3A 89 31 31 30 31 00 B0 0C 6B 04 8B |.I.1:.1101...k..| 000004A0: 41 24 B2 22 86 22 A7 49 B2 31 3A 89 31 31 30 31 |A$.".".I.1:.1101| 000004B0: 00 C6 0C 6C 04 8B 41 24 B2 22 87 22 A7 49 B2 47 |...l..A$.".".I.G| 000004C0: 3A 89 31 31 30 31 00 DE 0C 6D 04 8B 41 24 B2 22 |:.1101...m..A$."| 000004D0: 88 22 A7 49 B2 49 AA 31 3A 89 31 31 30 31 00 EF |.".I.I.1:.1101..| 000004E0: 0C 6E 04 8B 41 24 B2 22 44 22 A7 31 31 35 30 00 |.n..A$."D".1150.| 000004F0: 02 0D 6F 04 8B 41 24 B2 C7 28 31 33 29 A7 31 30 |..o..A$..(13).10| 00000500: 30 30 00 0C 0D 74 04 89 31 31 33 30 00 1B 0D 7E |00...t..1130...~| 00000510: 04 44 B2 49 3A 9F 34 2C 34 2C 37 00 25 0D 80 04 |.D.I:.4,4,7.%...| 00000520: 8D 31 34 30 30 00 32 0D 88 04 A0 34 3A 89 31 31 |.1400.2....4:.11| 00000530: 30 31 00 3A 0D B0 04 49 B2 30 00 51 0D B1 04 99 |01.:...I.0.Q....| 00000540: 22 93 C4 41 54 45 4E 20 44 52 55 43 4B 45 4E 3A |"..ATEN DRUCKEN:| 00000550: 22 00 72 0D B2 04 99 22 11 11 C6 31 20 2D 20 C1 |".r...."...1 - .| 00000560: 55 46 20 D0 41 50 49 45 52 20 44 52 55 43 4B 45 |UF .APIER DRUCKE| 00000570: 4E 22 00 98 0D B3 04 99 22 11 C6 33 20 2D 20 C1 |N"......"..3 - .| 00000580: 44 52 45 53 53 2D C5 54 49 4B 45 54 54 45 4E 20 |DRESS-.TIKETTEN | 00000590: 44 52 55 43 4B 45 4E 22 00 AE 0D B4 04 99 22 11 |DRUCKEN"......".| 000005A0: D2 C5 D4 20 2D 20 CD C5 CE D5 C5 20 21 22 00 C3 |... - ..... !"..| 000005B0: 0D B5 04 A1 41 24 3A 8B 41 24 B2 22 85 22 A7 31 |....A$:.A$.".".1| 000005C0: 32 30 39 00 D4 0D B6 04 8B 41 24 B2 22 86 22 A7 |209......A$.".".| 000005D0: 31 32 33 30 00 E7 0D B7 04 8B 41 24 B2 C7 28 31 |1230......A$..(1| 000005E0: 33 29 A7 31 30 30 30 00 F1 0D B8 04 89 31 32 30 |3).1000......120| 000005F0: 35 00 03 0E B9 04 9F 34 2C 34 2C 37 3A 81 44 B2 |5......4,4,7:.D.| 00000600: 31 A4 47 00 24 0E BA 04 98 34 2C 22 20 20 C7 52 |1.G.$....4," .R| 00000610: 4F 55 50 2E 2E 2E 2E 2E 2E 2E 3A 20 22 54 24 28 |OUP.......: "T$(| 00000620: 44 2C 30 29 00 45 0E BB 04 98 34 2C 22 20 20 CD |D,0).E....4," .| 00000630: 45 4D 42 45 52 2E 2E 2E 2E 2E 2E 3A 20 22 54 24 |EMBER......: "T$| 00000640: 28 44 2C 31 29 00 66 0E BC 04 98 34 2C 22 20 20 |(D,1).f....4," | 00000650: D2 45 41 4C 20 4E 41 4D 45 2E 2E 2E 3A 20 22 54 |.EAL NAME...: "T| 00000660: 24 28 44 2C 32 29 00 87 0E BD 04 98 34 2C 22 20 |$(D,2)......4," | 00000670: 20 C1 44 52 45 53 53 2E 2E 2E 2E 2E 2E 3A 20 22 | .DRESS......: "| 00000680: 54 24 28 44 2C 33 29 00 A8 0E BE 04 98 34 2C 22 |T$(D,3)......4,"| 00000690: 20 20 C3 4F 44 45 20 26 20 C3 49 54 59 2E 3A 20 | .ODE & .ITY.: | 000006A0: 22 54 24 28 44 2C 34 29 00 C9 0E BF 04 98 34 2C |"T$(D,4)......4,| 000006B0: 22 20 20 C3 4F 55 4E 54 52 59 2E 2E 2E 2E 2E 3A |" .OUNTRY.....:| 000006C0: 20 22 54 24 28 44 2C 35 29 00 EA 0E C0 04 98 34 | "T$(D,5)......4| 000006D0: 2C 22 20 20 D0 48 4F 4E 45 20 4E 55 4D 42 45 52 |," .HONE NUMBER| 000006E0: 3A 20 22 54 24 28 44 2C 36 29 00 0B 0F C1 04 98 |: "T$(D,6)......| 000006F0: 34 2C 22 20 20 CC 41 54 45 53 54 20 53 45 4E 44 |4," .ATEST SEND| 00000700: 2E 3A 20 22 54 24 28 44 2C 37 29 00 12 0F C2 04 |.: "T$(D,7).....| 00000710: 98 34 00 21 0F C4 04 82 3A A0 34 3A 89 31 30 30 |.4.!....:.4:.100| 00000720: 30 00 33 0F CE 04 9F 34 2C 34 2C 37 3A 81 44 B2 |0.3....4,4,7:.D.| 00000730: 31 A4 47 00 3D 0F D0 04 8D 31 34 30 30 00 4C 0F |1.G.=....1400.L.| 00000740: D8 04 82 3A A0 34 3A 89 31 30 30 30 00 6B 0F 78 |...:.4:.1000.k.x| 00000750: 05 8B 4E 24 B2 22 22 A7 4E 24 B2 22 D6 4F 4E 3A |..N$."".N$.".ON:| 00000760: 20 D5 4E 42 45 4B 41 4E 4E 54 22 00 7D 0F 79 05 | .NBEKANNT".}.y.| 00000770: 98 34 2C 22 20 20 20 20 20 20 22 4E 24 00 B0 0F |.4," "N$...| 00000780: 7C 05 98 34 2C 22 20 20 20 20 20 20 2D 2D 2D 2D ||..4," ----| 00000790: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000007A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3A 98 34 |------------":.4| 000007B0: 00 C7 0F 7D 05 98 34 2C 22 20 20 20 20 20 20 22 |...}..4," "| 000007C0: 54 24 28 44 2C 32 29 00 DE 0F 7E 05 98 34 2C 22 |T$(D,2)...~..4,"| 000007D0: 20 20 20 20 20 20 22 54 24 28 44 2C 33 29 00 F5 | "T$(D,3)..| 000007E0: 0F 7F 05 98 34 2C 22 20 20 20 20 20 20 22 54 24 |....4," "T$| 000007F0: 28 44 2C 34 29 00 0F 10 80 05 98 34 3A 98 34 2C |(D,4)......4:.4,| 00000800: 22 20 20 20 20 20 20 22 54 24 28 44 2C 35 29 00 |" "T$(D,5).| 00000810: 18 10 81 05 98 34 3A 8E 00 41 10 DC 05 99 22 93 |.....4:..A....".| 00000820: C1 42 53 45 4E 44 45 52 2D C1 4E 47 41 42 45 20 |.BSENDER-.NGABE | 00000830: 46 55 45 52 20 45 52 53 54 45 20 DA 45 49 4C 45 |FUER ERSTE .EILE| 00000840: 22 00 68 10 DD 05 99 22 11 44 45 53 20 C1 44 52 |".h....".DES .DR| 00000850: 45 53 53 2D C5 54 49 4B 45 54 54 53 20 45 49 4E |ESS-.TIKETTS EIN| 00000860: 47 45 42 45 4E 20 21 22 00 8D 10 DE 05 99 22 11 |GEBEN !"......".| 00000870: 5A 2E C2 2E 3A 20 C7 45 52 44 20 C8 4F 4C 5A 2F |Z...: .ERD .OLZ/| 00000880: 31 32 33 34 35 20 C2 45 52 4C 49 4E 22 00 A2 10 |12345 .ERLIN"...| 00000890: DF 05 85 20 4E 24 3A 4E 24 B2 C8 28 4E 24 2C 33 |... N$:N$..(N$,3| 000008A0: 31 29 00 CA 10 E6 05 99 22 11 11 22 4E 24 3A 99 |1)......".."N$:.| 000008B0: 22 11 D3 4F 20 49 4E 20 CF 52 44 4E 55 4E 47 20 |"..O IN .RDNUNG | 000008C0: 3F 20 28 4A 2F 4E 2F 43 29 22 00 DF 10 E7 05 A1 |? (J/N/C)"......| 000008D0: 41 24 3A 8B 41 24 B2 22 4A 22 A7 31 30 30 30 00 |A$:.A$."J".1000.| 000008E0: F0 10 E8 05 8B 41 24 B2 22 4E 22 A7 31 35 30 30 |.....A$."N".1500| 000008F0: 00 08 11 E9 05 8B 41 24 B2 22 43 22 A7 4E 24 B2 |......A$."C".N$.| 00000900: 22 22 3A 89 31 30 30 30 00 12 11 EA 05 89 31 35 |"":.1000......15| 00000910: 31 31 00 00 00 |11... |
.......:.T$(100,8)./....G(14):.53280,0:.
53281,0.\...."....FILE-NAME ?":.H$:H$."0
:".H$.",S,R"... .."..LADE DATEN - BITTE
WARTEN !"...4..2,8,2,H$...>.J.0:I.1...C.
.#2,V$:.V$.G(255).J.J.1:.838.S.E.T$(I,J)
.T$(I,J).V$...F..J.8.I.I.1:J.0...H.RS.ST
...R..RS.64. 2:G.I.1:.1000...F..835.C...
.".CONTACT DEALER-DATEN ZEIGEN UND DRUCK
EN".B....".F1 - BILDSCHIRMAUSGABE".Z....
".F3 - DRUCK (#4)"......".F5 - NEUBEGINN
"......".F7 - ABSENDER EINGEBEN".D....".
F8 - FINITO"......"..FOR EASIER PAPERHAN
DLING: PUT YOUR".(...."ADRESSTICKERLANE
IN THE SINGLEPAPER-":."SHETSLOT".L...."T
HIS PROGRAMM MAKES SPACES !".T....A$.E..
..A$.".".1100.V....A$.".".1200......A$."
."........A$."."........A$.".".1500.....
.1009...L.I.1.B.M..I.G.I.G.O.N..I.0.I.1.
..O..".DATEN ZEIGEN:"...Q..".EINGABE NR.
: "I...V..".GRUPPE......: "T$(I,0).8.W.
."PSEUDO......: "T$(I,1).U.X.."WIRKL. NA
ME.: "T$(I,2).R.Y.."ADRESSE.....: "T$(I,
3)...Z.."WOHNORT.....: "T$(I,4)...[.."LA
ND........: "T$(I,5).I.\.."TEL.-NUMMER :
"T$(I,6)...].."LETZTER KONT: "T$(I,7)..
.`.."..F1 - ZURUECK"...A.."F3 - ERSTE AD
RESSE".1.B.."F5 - LETZTE ADRESSE".D.C.."
F7 - WEITER".Z.D..".RET - MENUE !".~.E..
".D - ADRESSETIKETTEN DRUCKEN"...J..A$:.
A$.".".I.I.1:.1101...K..A$.".".I.1:.1101
.F.L..A$.".".I.G:.1101...M..A$.".".I.I.1
:.1101...N..A$."D".1150...O..A$.G(13).10
00...T..1130...~.D.I:.4,4,7.%....1400.2.
.. 4:.1101.:...I.0.Q....".DATEN DRUCKEN:
".R...."..F1 - AUF PAPIER DRUCKEN"......
".F3 - ADRESS-ETIKETTEN DRUCKEN"......".
RET - MENUE !".C....A$:.A$.".".1209.T...
.A$.".".1230......A$.G(13).1000......120
5......4,4,7:.D.1.G.$....4," GROUP.....
..: "T$(D,0).E....4," MEMBER......: "T$
(D,1).F....4," REAL NAME...: "T$(D,2)..
....4," ADRESS......: "T$(D,3)......4,"
CODE & CITY.: "T$(D,4).I....4," COUNT
RY.....: "T$(D,5)......4," PHONE NUMBER
: "T$(D,6)...A..4," LATEST SEND.: "T$(D
,7)...B..4.!.D..: 4:.1000.3.N..4,4,7:.D.
1.G.=.P..1400.L.X..: 4:.1000.K.X..N$."".
N$."VON: UNBEKANNT".}.Y..4," "N$...
|..4," ----------------------------
----":.4.G.}..4," "T$(D,2)...~..4,"
"T$(D,3).....4," "T$(D,4)...
...4:.4," "T$(D,5)......4:..A....".
ABSENDER-ANGABE FUER ERSTE ZEILE".H...."
.DES ADRESS-ETIKETTS EINGEBEN !"......".
Z.B.: GERD HOLZ/12345 BERLIN"...... N$:N
$.H(N$,31).J....".."N$:.".SO IN ORDNUNG
? (J/N/C)"......A$:.A$."J".1000......A$.
"N".1500......A$."C".N$."":.1000......15
11...
> CLICK IMAGE PREVIEW FOR FULL MODAL