DRUCKER.GEN

FILE INFORMATION

FILENAME(S): DRUCKER.GEN

FILE TYPE(S): PRG

FILE SIZE: 2.4K

FIRST SEEN: 2025-11-30 01:13:08

APPEARS ON: 1 disk(s)

FILE HASH

c840fbf7f5924f08fbbe265502515e8bcdbe7a4c90210ccfaf60126b312a3c22

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
15939 SEITE A	DRUCKER.GEN	PRG	C64er	17	14	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 1D 08 0A 00 86 5A  28 38 2C 34 29 2C 41 4E  |.......Z(8,4),AN|
00000010: 28 34 29 3A 53 41 B2 30  3A 47 41 B2 34 00 2B 08  |(4):SA.0:GA.4.+.|
00000020: 64 00 97 35 33 32 37 32  2C 32 33 00 36 08 6E 00  |d..53272,23.6.n.|
00000030: 8D 31 30 30 30 30 00 50  08 78 00 99 22 20 C4 52  |.10000.P.x.." .R|
00000040: 55 43 4B 45 52 2D C1 4E  50 41 53 53 55 4E 47 22  |UCKER-.NPASSUNG"|
00000050: 00 56 08 82 00 99 00 5C  08 8C 00 99 00 7F 08 96  |.V.....\........|
00000060: 00 99 22 20 20 41 29 20  D3 54 45 55 45 52 5A 45  |.."  A) .TEUERZE|
00000070: 49 43 48 45 4E 20 45 49  4E 47 45 42 45 4E 22 00  |ICHEN EINGEBEN".|
00000080: 85 08 A0 00 99 00 A8 08  AA 00 99 22 20 20 42 29  |..........."  B)|
00000090: 20 D3 54 45 55 45 52 5A  45 49 43 48 45 4E 20 41  | .TEUERZEICHEN A|
000000A0: 55 53 47 45 42 45 4E 22  00 AE 08 B4 00 99 00 CF  |USGEBEN"........|
000000B0: 08 BE 00 99 22 20 20 43  29 20 D3 45 4B 55 4E 44  |...."  C) .EKUND|
000000C0: 41 45 52 41 44 52 45 53  53 45 3A 22 3B 53 41 00  |AERADRESSE:";SA.|
000000D0: D5 08 C8 00 99 00 F6 08  D2 00 99 22 20 20 44 29  |..........."  D)|
000000E0: 20 C7 45 52 41 45 54 45  41 44 52 45 53 53 45 3A  | .ERAETEADRESSE:|
000000F0: 20 20 22 3B 47 41 00 FC  08 DC 00 99 00 1C 09 E6  |  ";GA..........|
00000100: 00 99 22 20 20 45 29 20  D0 41 52 41 4D 45 54 45  |.."  E) .ARAMETE|
00000110: 52 20 53 50 45 49 43 48  45 52 4E 22 00 22 09 F0  |R SPEICHERN"."..|
00000120: 00 99 00 33 09 FA 00 99  22 20 20 58 29 20 C5 58  |...3...."  X) .X|
00000130: 49 54 22 00 45 09 2C 01  97 31 39 38 2C 30 3A 92  |IT".E.,..198,0:.|
00000140: 31 39 38 2C 31 00 4D 09  36 01 A1 41 24 00 5E 09  |198,1.M.6..A$.^.|
00000150: 40 01 8B 41 24 B2 22 41  22 89 31 30 30 30 00 6F  |@..A$."A".1000.o|
00000160: 09 4A 01 8B 41 24 B2 22  42 22 89 32 30 30 30 00  |.J..A$."B".2000.|
00000170: 80 09 54 01 8B 41 24 B2  22 43 22 89 34 30 30 30  |..T..A$."C".4000|
00000180: 00 91 09 5E 01 8B 41 24  B2 22 44 22 89 35 30 30  |...^..A$."D".500|
00000190: 30 00 A2 09 68 01 8B 41  24 B2 22 45 22 89 33 30  |0...h..A$."E".30|
000001A0: 30 30 00 B0 09 72 01 8B  41 24 B2 22 58 22 A7 80  |00...r..A$."X"..|
000001B0: 00 B9 09 7C 01 89 33 30  30 00 C4 09 E8 03 8D 31  |...|..300......1|
000001C0: 30 30 30 30 00 E3 09 F2  03 99 22 20 D3 54 45 55  |0000......" .TEU|
000001D0: 45 52 5A 45 49 43 48 45  4E 20 45 49 4E 47 45 42  |ERZEICHEN EINGEB|
000001E0: 45 4E 22 00 E9 09 FC 03  99 00 EF 09 06 04 99 00  |EN".............|
000001F0: F5 09 10 04 99 00 1C 0A  1A 04 99 22 20 20 C5 49  |..........."  .I|
00000200: 4E 53 43 48 41 4C 54 45  4E 20 44 45 53 20 C7 52  |NSCHALTEN DES .R|
00000210: 41 46 49 4B 2D CD 4F 44  55 53 3A 22 00 2B 0A 24  |AFIK-.ODUS:".+.$|
00000220: 04 58 B2 30 3A 8D 32 30  30 30 30 00 52 0A 2E 04  |.X.0:.20000.R...|
00000230: 99 22 20 20 DA 45 49 4C  45 4E 56 4F 52 53 43 48  |."  .EILENVORSCH|
00000240: 55 42 20 4E 2F 32 31 36  54 45 4C 20 DA 4F 4C 4C  |UB N/216TEL .OLL|
00000250: 3A 22 00 61 0A 38 04 58  B2 31 3A 8D 32 30 30 30  |:".a.8.X.1:.2000|
00000260: 30 00 88 0A 42 04 99 22  20 20 C4 52 55 43 4B 45  |0...B.."  .RUCKE|
00000270: 52 52 45 53 45 54 3A 20  20 20 20 20 20 20 20 20  |RRESET:         |
00000280: 20 20 20 20 20 20 20 22  00 97 0A 4C 04 58 B2 32  |       "...L.X.2|
00000290: 3A 8D 32 30 30 30 30 00  BE 0A 56 04 99 22 20 20  |:.20000...V.."  |
000002A0: D0 41 50 49 45 52 56 4F  52 53 43 48 55 42 20 28  |.APIERVORSCHUB (|
000002B0: 46 4F 52 4D 20 46 45 45  44 29 3A 20 20 22 00 CD  |FORM FEED):  "..|
000002C0: 0A 60 04 58 B2 33 3A 8D  32 30 30 30 30 00 F4 0A  |.`.X.3:.20000...|
000002D0: 6A 04 99 22 20 20 DA 45  49 4C 45 4E 56 4F 52 53  |j.."  .EILENVORS|
000002E0: 43 48 55 42 20 28 43 52  2F 4C 46 29 3A 20 20 20  |CHUB (CR/LF):   |
000002F0: 20 20 20 22 00 03 0B 74  04 58 B2 34 3A 8D 32 30  |   "...t.X.4:.20|
00000300: 30 30 30 00 0C 0B CF 07  89 31 30 30 00 17 0B D0  |000......100....|
00000310: 07 8D 31 30 30 30 30 00  36 0B DA 07 99 22 20 D3  |..10000.6...." .|
00000320: 54 45 55 45 52 5A 45 49  43 48 45 4E 20 41 55 53  |TEUERZEICHEN AUS|
00000330: 47 45 42 45 4E 22 00 3C  0B E4 07 99 00 42 0B EE  |GEBEN".<.....B..|
00000340: 07 99 00 48 0B F8 07 99  00 61 0B 02 08 99 3A 99  |...H.....a....:.|
00000350: 22 20 20 C7 52 41 46 49  4B 20 45 49 4E 3A 20 22  |"  .RAFIK EIN: "|
00000360: 3B 00 70 0B 0C 08 58 B2  30 3A 8D 34 30 30 30 30  |;.p...X.0:.40000|
00000370: 00 89 0B 16 08 99 3A 99  22 20 20 DA 2D 56 4F 52  |......:."  .-VOR|
00000380: 53 43 48 55 42 3A 20 22  3B 00 98 0B 20 08 58 B2  |SCHUB: ";... .X.|
00000390: 31 3A 8D 34 30 30 30 30  00 B1 0B 2A 08 99 3A 99  |1:.40000...*..:.|
000003A0: 22 20 20 D2 45 53 45 54  20 20 20 20 20 3A 20 22  |"  .ESET     : "|
000003B0: 3B 00 C0 0B 34 08 58 B2  32 3A 8D 34 30 30 30 30  |;...4.X.2:.40000|
000003C0: 00 D9 0B 3E 08 99 3A 99  22 20 20 46 4F 52 4D 20  |...>..:."  FORM |
000003D0: 46 45 45 44 20 3A 20 22  3B 00 E8 0B 48 08 58 B2  |FEED : ";...H.X.|
000003E0: 33 3A 8D 34 30 30 30 30  00 01 0C 52 08 99 3A 99  |3:.40000...R..:.|
000003F0: 22 20 20 4C 49 4E 45 20  46 45 45 44 20 3A 20 22  |"  LINE FEED : "|
00000400: 3B 00 10 0C 5C 08 58 B2  34 3A 8D 34 30 30 30 30  |;...\.X.4:.40000|
00000410: 00 29 0C 66 08 97 31 39  38 2C 30 3A 92 31 39 38  |.).f..198,0:.198|
00000420: 2C 31 3A 97 31 39 38 2C  30 00 32 0C 70 08 89 31  |,1:.198,0.2.p..1|
00000430: 30 30 00 47 0C B8 0B 9F  31 35 2C 38 2C 31 35 2C  |00.G....15,8,15,|
00000440: 22 53 3A 47 50 C9 22 00  58 0C C2 0B 9F 31 2C 38  |"S:GP.".X....1,8|
00000450: 2C 31 2C 22 47 50 C9 22  00 6C 0C CC 0B 98 31 2C  |,1,"GP.".l....1,|
00000460: C7 28 31 35 29 C7 28 31  31 32 29 3B 00 77 0C D6  |.(15).(112);.w..|
00000470: 0B 81 58 B2 30 A4 34 00  8D 0C E0 0B 49 B2 31 3A  |..X.0.4.....I.1:|
00000480: 8B 41 4E 28 58 29 B2 30  89 33 30 38 30 00 9C 0C  |.AN(X).0.3080...|
00000490: EA 0B 81 49 B2 31 A4 41  4E 28 58 29 00 AE 0C F4  |...I.1.AN(X)....|
000004A0: 0B 98 31 2C C7 28 5A 28  49 2C 58 29 29 3B 00 B4  |..1,.(Z(I,X));..|
000004B0: 0C FE 0B 82 00 C2 0C 08  0C 8B 49 B1 38 89 33 31  |..........I.8.31|
000004C0: 31 30 00 D1 0C 12 0C 98  31 2C C7 28 32 35 35 29  |10......1,.(255)|
000004D0: 3B 00 E1 0C 1C 0C 49 B2  49 AA 31 3A 89 33 30 38  |;.....I.I.1:.308|
000004E0: 30 00 E7 0C 26 0C 82 00  FE 0C 30 0C 98 31 2C C7  |0...&.....0..1,.|
000004F0: 28 47 41 29 3B C7 28 53  41 29 3B 3A A0 31 00 12  |(GA);.(SA);:.1..|
00000500: 0D 3A 0C 84 31 35 2C 41  24 2C 42 24 2C 54 24 2C  |.:..15,A$,B$,T$,|
00000510: 53 24 00 34 0D 44 0C 99  22 13 11 11 11 11 11 11  |S$.4.D..".......|
00000520: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00000530: 11 11 22 3B 00 4C 0D 4E  0C 99 41 24 22 2C 22 42  |..";.L.N..A$","B|
00000540: 24 22 2C 22 54 24 22 2C  22 53 24 3B 00 65 0D 58  |$","T$","S$;.e.X|
00000550: 0C 97 31 39 38 2C 30 3A  92 31 39 38 2C 31 3A 97  |..198,0:.198,1:.|
00000560: 31 39 38 2C 30 00 72 0D  62 0C A0 31 35 3A 89 31  |198,0.r.b..15:.1|
00000570: 30 30 00 7D 0D A0 0F 8D  31 30 30 30 30 00 9F 0D  |00.}....10000...|
00000580: AA 0F 99 22 20 D3 45 4B  55 4E 44 41 45 52 41 44  |..." .EKUNDAERAD|
00000590: 52 45 53 53 45 20 45 49  4E 47 45 42 45 4E 22 00  |RESSE EINGEBEN".|
000005A0: A5 0D B4 0F 99 00 AB 0D  BE 0F 99 00 B1 0D C8 0F  |................|
000005B0: 99 00 CE 0D D2 0F 99 22  20 20 D3 45 4B 55 4E 44  |......."  .EKUND|
000005C0: 41 45 52 41 44 52 45 53  53 45 3A 20 22 3B 00 E0  |AERADRESSE: ";..|
000005D0: 0D DC 0F 9F 31 2C 30 3A  84 31 2C 41 24 3A A0 31  |....1,0:.1,A$:.1|
000005E0: 00 ED 0D E6 0F 53 41 B2  C5 28 41 24 29 00 03 0E  |.....SA..(A$)...|
000005F0: F0 0F 8B 53 41 B3 30 B0  53 41 B1 32 35 35 89 34  |...SA.0.SA.255.4|
00000600: 30 30 30 00 0C 0E FA 0F  89 31 30 30 00 17 0E 88  |000......100....|
00000610: 13 8D 31 30 30 30 30 00  37 0E 92 13 99 22 20 C7  |..10000.7...." .|
00000620: 45 52 41 45 54 45 41 44  52 45 53 53 45 20 45 49  |ERAETEADRESSE EI|
00000630: 4E 47 45 42 45 4E 22 00  3D 0E 9C 13 99 00 43 0E  |NGEBEN".=.....C.|
00000640: A6 13 99 00 49 0E B0 13  99 00 64 0E BA 13 99 22  |....I.....d...."|
00000650: 20 20 C7 45 52 41 45 54  45 41 44 52 45 53 53 45  |  .ERAETEADRESSE|
00000660: 3A 20 22 3B 00 76 0E C4  13 9F 31 2C 30 3A 84 31  |: ";.v....1,0:.1|
00000670: 2C 41 24 3A A0 31 00 83  0E CE 13 47 41 B2 C5 28  |,A$:.1.....GA..(|
00000680: 41 24 29 00 97 0E D8 13  8B 47 41 B3 34 B0 47 41  |A$)......GA.4.GA|
00000690: B1 37 89 35 30 30 30 00  A0 0E E2 13 89 31 30 30  |.7.5000......100|
000006A0: 00 AD 0E 10 27 99 C7 28  31 34 37 29 3B 00 DD 0E  |....'..(147);...|
000006B0: 1A 27 99 22 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |.'."............|
000006C0: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
000006D0: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 22 00 E3 0E  |............"...|
000006E0: 24 27 99 00 E9 0E 2E 27  99 00 19 0F 38 27 99 22  |$'.....'....8'."|
000006F0: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
00000700: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
00000710: C0 C0 C0 C0 C0 C0 C0 C0  22 00 26 0F 42 27 99 C7  |........".&.B'..|
00000720: 28 31 39 29 3A 8E 00 2C  0F 20 4E 99 00 4F 0F 2A  |(19):..,. N..O.*|
00000730: 4E 99 22 20 20 D7 49 45  56 49 45 4C 45 20 D3 54  |N."  .IEVIELE .T|
00000740: 45 55 45 52 5A 45 49 43  48 45 4E 3A 20 22 3B 00  |EUERZEICHEN: ";.|
00000750: 61 0F 34 4E 9F 31 2C 30  3A 84 31 2C 41 24 3A A0  |a.4N.1,0:.1,A$:.|
00000760: 31 00 8D 0F 3E 4E 8B 28  41 24 B3 22 30 22 B0 41  |1...>N.(A$."0".A|
00000770: 24 B1 22 38 22 29 B0 C3  28 41 24 29 B1 31 A7 99  |$."8")..(A$).1..|
00000780: 3A 99 22 91 22 3B 3A 89  32 30 30 31 30 00 AB 0F  |:.".";:.20010...|
00000790: 48 4E 41 4E B2 C5 28 41  24 29 3A 8B 41 4E B2 30  |HNAN..(A$):.AN.0|
000007A0: A7 99 3A 99 3A 89 32 30  31 32 30 00 B3 0F 52 4E  |..:.:.20120...RN|
000007B0: 99 3A 99 00 BF 0F 5C 4E  81 49 B2 31 A4 41 4E 00  |.:....\N.I.1.AN.|
000007C0: E0 0F 66 4E 99 22 20 22  3B 49 3B 22 9D 2E 20 D3  |..fN." ";I;".. .|
000007D0: 54 45 55 45 52 5A 45 49  43 48 45 4E 3A 20 22 3B  |TEUERZEICHEN: ";|
000007E0: 00 F2 0F 70 4E 9F 31 2C  30 3A 84 31 2C 41 24 3A  |...pN.1,0:.1,A$:|
000007F0: A0 31 00 03 10 7A 4E 5A  28 49 2C 58 29 B2 C5 28  |.1...zNZ(I,X)..(|
00000800: 41 24 29 00 09 10 84 4E  99 00 0F 10 8E 4E 82 00  |A$)....N.....N..|
00000810: 15 10 98 4E 99 00 3A 10  A2 4E 99 22 20 20 D3 49  |...N..:..N."  .I|
00000820: 4E 44 20 44 49 45 20 C5  49 4E 47 41 42 45 4E 20  |ND DIE .INGABEN |
00000830: 52 49 43 48 54 49 47 20  3F 22 00 4C 10 AC 4E 97  |RICHTIG ?".L..N.|
00000840: 31 39 38 2C 30 3A 92 31  39 38 2C 31 00 54 10 B6  |198,0:.198,1.T..|
00000850: 4E A1 41 24 00 67 10 C0  4E 8B 41 24 B3 B1 22 4E  |N.A$.g..N.A$.."N|
00000860: 22 89 32 30 32 30 30 00  72 10 CA 4E 8D 33 30 30  |".20200.r..N.300|
00000870: 30 30 00 89 10 D4 4E 99  22 13 11 11 11 11 11 11  |00....N.".......|
00000880: 11 22 3A 89 32 30 30 30  30 00 94 10 E8 4E 8D 33  |.":.20000....N.3|
00000890: 30 30 30 30 00 A3 10 F2  4E 99 22 13 11 11 11 11  |0000....N.".....|
000008A0: 11 11 22 00 B2 10 FC 4E  41 4E 28 58 29 B2 41 4E  |.."....NAN(X).AN|
000008B0: 3A 8E 00 C3 10 30 75 99  22 13 11 11 11 11 11 11  |:....0u.".......|
000008C0: 11 11 22 00 CF 10 3A 75  81 49 B2 31 A4 31 32 00  |.."...:u.I.1.12.|
000008D0: FE 10 44 75 99 22 20 20  20 20 20 20 20 20 20 20  |..Du."          |
000008E0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000008F0: 20 20 20 20 20 20 20 20  20 20 20 20 20 22 00 06  |             "..|
00000900: 11 4E 75 82 3A 8E 00 17  11 40 9C 8B 41 4E 28 58  |.Nu.:....@..AN(X|
00000910: 29 B2 30 A7 99 3A 8E 00  1F 11 4A 9C 49 B2 31 00  |).0..:....J.I.1.|
00000920: 35 11 54 9C 41 24 B2 CA  28 C4 28 5A 28 49 2C 58  |5.T.A$..(.(Z(I,X|
00000930: 29 29 2C 32 29 00 50 11  5E 9C 41 24 B2 C8 28 22  |)),2).P.^.A$..("|
00000940: 20 20 20 22 2C 33 AB C3  28 41 24 29 29 AA 41 24  |   ",3..(A$)).A$|
00000950: 00 59 11 68 9C 99 41 24  3B 00 7A 11 72 9C 49 B2  |.Y.h..A$;.z.r.I.|
00000960: 49 AA 31 3A 8B 49 B3 B2  41 4E 28 58 29 A7 99 22  |I.1:.I..AN(X).."|
00000970: 2C 22 3B 3A 89 34 30 30  32 30 00 82 11 7C 9C 99  |,";:.40020...|..|
00000980: 3A 8E 00 00 00                                    |:....           |

.......Z(8,4),AN(4):SA.0:GA.4.+.D..53272
,23.6.N..10000.P.X.." DRUCKER-ANPASSUNG"
.V.....\........."  A) STEUERZEICHEN EI
NGEBEN"... ........"  B) STEUERZEICHEN A
USGEBEN".......O...."  C) SEKUNDAERADRES
SE:";SA.U.H.....R.."  D) GERAETEADRESSE:
  ";GA............"  E) PARAMETER SPEICH
ERN".".....3...."  X) EXIT".E.,..198,0:.
198,1.M.6..A$.^.@..A$."A".1000.O.J..A$."
B".2000...T..A$."C".4000...^..A$."D".500
0...H..A$."E".3000...R..A$."X".....|..30
0.D....10000......" STEUERZEICHEN EINGEB
EN"........................"  EINSCHALTE
N DES GRAFIK-MODUS:".+.$.X.0:.20000.R...
."  ZEILENVORSCHUB N/216TEL ZOLL:".A.8.X
.1:.20000...B.."  DRUCKERRESET:         
       "...L.X.2:.20000...V.."  PAPIERVO
RSCHUB (FORM FEED):  ".M.`.X.3:.20000...
J.."  ZEILENVORSCHUB (CR/LF):      "...T
.X.4:.20000...O..100...P..10000.6.Z.." S
TEUERZEICHEN AUSGEBEN".<.....B.....H....
.A....:."  GRAFIK EIN: ";.P...X.0:.40000
......:."  Z-VORSCHUB: ";... .X.1:.40000
...*..:."  RESET     : ";...4.X.2:.40000
.Y.>..:."  FORM FEED : ";...H.X.3:.40000
...R..:."  LINE FEED : ";...\.X.4:.40000
.).F..198,0:.198,1:.198,0.2.P..100.G....
15,8,15,"S:GPI".X.B..1,8,1,"GPI".L.L..1,
G(15)G(112);.W.V..X.0.4.....I.1:.AN(X).0
.3080......I.1.AN(X)......1,G(Z(I,X));..
.....B....I.8.3110.Q....1,G(255);.....I.
I.1:.3080...&.....0..1,G(GA);G(SA);: 1..
.:..15,A$,B$,T$,S$.4.D.."...............
..........";.L.N..A$","B$","T$","S$;.E.X
..198,0:.198,1:.198,0.R.B. 15:.100.}. ..
10000......" SEKUNDAERADRESSE EINGEBEN".
..............H...N.R.."  SEKUNDAERADRES
SE: ";......1,0:.1,A$: 1.....SA.E(A$)...
...SA.0.SA.255.4000......100......10000.
7...." GERAETEADRESSE EINGEBEN".=.....C.
....I.....D...."  GERAETEADRESSE: ";.V.D
..1,0:.1,A$: 1...N.GA.E(A$)...X..GA.4.GA
.7.5000. ....100....'.G(147);....'."....
...................................."...
$'.....'....8'."........................
................".&.B'.G(19):..,. N..O.*
N."  WIEVIELE STEUERZEICHEN: ";.A.4N.1,0
:.1,A$: 1...>N.(A$."0".A$."8").C(A$).1..
:.".";:.20010...HNAN.E(A$):.AN.0..:.:.20
120...RN.:....\N.I.1.AN...FN." ";I;".. S
TEUERZEICHEN: ";...PN.1,0:.1,A$: 1...ZNZ
(I,X).E(A$)....N.....N.....N..:..N."  SI
ND DIE EINGABEN RICHTIG ?".L..N.198,0:.1
98,1.T..N.A$.G..N.A$.."N".20200.R.JN.300
00...TN."........":.20000....N.30000....
N."......."....NAN(X).AN:..C.0U.".......
..".O.:U.I.1.12...DU."                  
                     "...NU.:....@..AN(X
).0..:....J.I.1.5.T.A$.J(D(Z(I,X)),2).P.
^.A$.H("   ",3.C(A$)).A$.Y.H..A$;.Z.R.I.
I.1:.I..AN(X)..",";:.40020...|..:....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL