_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

PROGRAMCODER 3.1

FILE INFORMATION

FILENAME(S): PROGRAMCODER 3.1

FILE TYPE(S): PRG

FILE SIZE: 1.7K

FIRST SEEN: 2025-11-30 19:47:31

APPEARS ON: 2 disk(s)

FILE HASH

e58858f26bb8817f8a106f7bcfae072e6ea91792d597bff5b68b7479623d1eac

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
A PROGRAMCODER 3.1 PRG Curtcool, Frank 14 5 DOWNLOAD FILE
HOLLYWOOD II PROGRAMCODER 3.1 PRG DuncanTwain 19 0 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 0F 08 95 07 9E 32  30 36 35 20 46 43 47 00  |.......2065 FCG.|
00000010: 00 00 A2 FF 9A BD 1F 08  9D F7 00 CA D0 F7 4C 00  |..............L.|
00000020: 01 A9 00 20 71 A8 4C AE  A7 78 E6 01 A0 00 A9 D1  |... q.L..x......|
00000030: 85 AE A9 0E 85 AF A9 12  85 AD 84 AC A9 FF C7 AC  |................|
00000040: D0 02 C6 AD C7 AE D0 02  C6 AF B1 AE 91 AC A5 AF  |................|
00000050: C9 08 D0 E8 A5 AE C9 A0  D0 E2 A2 01 86 AE A9 08  |................|
00000060: 85 AF B1 AC C9 19 D0 15  20 66 01 B1 AC AA 20 66  |........ f.... f|
00000070: 01 B1 AC 91 AE 20 71 01  CA D0 F8 F0 05 91 AE 20  |..... q........ |
00000080: 71 01 20 66 01 D0 DB A9  37 85 01 58 4C F8 00 E6  |q. f....7..XL...|
00000090: AC D0 06 E6 AD A5 AD C9  12 60 E6 AE D0 02 E6 AF  |.........`......|
000000A0: 60 28 08 01 00 A0 38 2C  31 2C 39 3A 9E 33 33 36  |`(....8,1,9:.336|
000000B0: 36 3A 9C 3A 99 22 13 19  09 11 22 3A 97 31 39 2C  |6:.:."....":.19,|
000000C0: 33 00 49 08 02 00 85 22  98 19 04 20 D5 CE C3 CF  |3.I...."... ....|
000000D0: C4 C5 C4 20 CE C1 CD C5  3A 20 22 3B 46 31 24 3A  |... ....: ";F1$:|
000000E0: 99 00 5A 08 03 00 8B C3  28 46 31 24 29 B1 31 36  |..Z.....(F1$).16|
000000F0: A7 8A 00 6B 08 04 00 8B  C3 28 46 31 24 29 B2 31  |...k.....(F1$).1|
00000100: A7 32 36 00 9D 08 05 00  81 58 B2 31 A4 C3 28 46  |.26......X.1..(F|
00000110: 31 24 29 3A 8B CA 28 46  31 24 2C 58 2C 31 29 B2  |1$):..(F1$,X,1).|
00000120: 22 2A 22 B0 CA 28 46 31  24 2C 58 2C 31 29 B2 22  |"*"..(F1$,X,1)."|
00000130: 3F 22 A7 32 39 00 AB 08  06 00 82 3A 46 33 24 B2  |?".29......:F3$.|
00000140: 46 31 24 00 C1 08 07 00  46 32 24 B2 22 2D 22 AA  |F1$.....F2$."-".|
00000150: 46 33 24 3A 97 31 39 2C  33 00 02 09 08 00 85 22  |F3$:.19,3......"|
00000160: 11 9B 20 20 D6 C1 CC D5  C5 20 D4 CF A0 C3 CF C4  |..  ..... ......|
00000170: C5 20 28 30 2D 32 35 35  29 3A 20 22 3B 42 24 3A  |. (0-255): ";B$:|
00000180: 42 B2 C6 28 42 24 29 3A  97 31 39 2C 30 3A 8B 42  |B..(B$):.19,0:.B|
00000190: B1 32 35 35 B0 42 B3 31  A7 31 00 16 09 09 00 9F  |.255.B.1.1......|
000001A0: 31 2C 38 2C 31 35 2C 22  55 49 22 3A A0 31 00 40  |1,8,15,"UI":.1.@|
000001B0: 09 0A 00 99 3A 99 22 11  11 97 19 0B 20 C9 4E 53  |....:."..... .NS|
000001C0: 45 52 54 20 D3 CF D5 D2  C3 C5 20 44 49 53 43 22  |ERT ...... DISC"|
000001D0: 00 52 09 0B 00 97 31 39  38 2C 30 3A 92 31 39 38  |.R....198,0:.198|
000001E0: 2C 31 00 66 09 0C 00 97  31 34 32 2C 39 33 3A 97  |,1.f....142,93:.|
000001F0: 31 34 33 2C 31 36 00 92  09 0D 00 9F 32 2C 38 2C  |143,16......2,8,|
00000200: 32 2C 46 31 24 AA 22 2C  50 2C 52 22 3A A1 23 32  |2,F1$.",P,R":.#2|
00000210: 2C 41 24 3A A1 23 32 2C  41 24 3A 58 B2 38 3A 8D  |,A$:.#2,A$:X.8:.|
00000220: 33 30 00 9F 09 0E 00 9E  33 32 31 36 3A A0 32 00  |30......3216:.2.|
00000230: B1 09 0F 00 97 33 33 34  38 2C 42 3A 9E 33 33 32  |.....3348,B:.332|
00000240: 38 00 D8 09 10 00 99 22  11 98 19 0B 20 C9 4E 53  |8......".... .NS|
00000250: 45 52 54 20 D4 C1 D2 C7  C5 D4 20 44 49 53 43 22  |ERT ...... DISC"|
00000260: 00 EA 09 11 00 97 31 39  38 2C 30 3A 92 31 39 38  |......198,0:.198|
00000270: 2C 31 00 F6 09 12 00 97  34 31 35 34 2C 42 00 26  |,1......4154,B.&|
00000280: 0A 13 00 41 31 B2 C2 28  31 34 32 29 3A 41 32 B2  |...A1..(142):A2.|
00000290: C2 28 31 34 33 29 3A 41  33 B2 41 31 AA 32 35 36  |.(143):A3.A1.256|
000002A0: AC 41 32 3A 41 33 B2 41  33 AB 32 31 38 32 00 4B  |.A2:A3.A3.2182.K|
000002B0: 0A 14 00 41 31 B2 41 33  AB 32 35 36 AC B5 28 41  |...A1.A3.256..(A|
000002C0: 33 AD 32 35 36 29 3A 41  32 B2 B5 28 41 33 AD 32  |3.256):A2..(A3.2|
000002D0: 35 36 29 00 61 0A 15 00  97 34 31 37 32 2C 41 31  |56).a....4172,A1|
000002E0: 3A 97 34 31 37 34 2C 41  32 00 7F 0A 16 00 9F 32  |:.4174,A2......2|
000002F0: 2C 38 2C 32 2C 46 32 24  AA 22 2C 50 2C 57 22 3A  |,8,2,F2$.",P,W":|
00000300: 58 B2 39 3A 8D 33 30 00  8C 0A 17 00 98 32 2C 22  |X.9:.30......2,"|
00000310: 01 08 22 3B 00 99 0A 18  00 9E 33 32 36 34 3A A0  |..";......3264:.|
00000320: 32 00 9F 0A 19 01 19 00  8A 00 BE 0A 1A 00 8B 46  |2..............F|
00000330: 31 24 B2 22 2A 22 B0 46  31 24 B2 22 3F 22 B0 46  |1$."*".F1$."?".F|
00000340: 31 24 B2 22 23 22 A7 8A  00 CE 0A 1B 00 8B 46 31  |1$."#"........F1|
00000350: 24 B2 22 24 22 A7 33 32  00 D5 0A 1C 00 89 37 00  |$."$".32......7.|
00000360: EB 0A 1D 00 46 33 24 B2  C8 28 46 31 24 2C 58 AB  |....F3$..(F1$,X.|
00000370: 31 29 3A 89 37 00 11 0B  1E 00 9F 58 2C 38 2C 31  |1):.7......X,8,1|
00000380: 35 3A 84 58 2C 41 24 2C  42 24 2C 43 24 2C 44 24  |5:.X,A$,B$,C$,D$|
00000390: 3A 8B 42 24 B2 22 4F 4B  22 A7 8E 00 4E 0B 1F 00  |:.B$."OK"...N...|
000003A0: 97 32 31 31 2C 38 3A 97  32 31 34 2C 32 30 3A 9E  |.211,8:.214,20:.|
000003B0: 35 38 36 34 30 3A 99 41  24 22 2C 22 42 24 22 2C  |58640:.A$","B$",|
000003C0: 22 43 24 22 2C 22 44 24  3A 97 31 39 38 2C 30 3A  |"C$","D$:.198,0:|
000003D0: 92 31 39 38 2C 31 3A 8A  00 5A 0B 20 00 9E 33 38  |.198,1:..Z. ..38|
000003E0: 38 31 3A 8A 19 03 00 19  00 2A 19 34 2A A2 02 20  |81:......*.4*.. |
000003F0: C6 FF 20 CF FF A0 00 78  84 01 91 8E A0 37 84 01  |.. ....x.....7..|
00000400: 58 E6 8E D0 04 E6 8F D0  00 24 90 50 E5 70 3C 19  |X........$.P.p<.|
00000410: 0E EA A2 02 20 C9 FF A0  00 A9 10 84 AE 85 AF A0  |.... ...........|
00000420: 00 78 84 01 B1 AE A0 07  84 01 58 20 D2 FF E6 AE  |.x........X ....|
00000430: D0 02 E6 AF A5 AE C5 8E  D0 E5 A5 AF C5 8F D0 DF  |................|
00000440: 4C CC FF 19 0F 2A 78 A9  34 85 01 A9 5D A0 10 85  |L....*x.4...]...|
00000450: FB 84 FC A0 00 A2 EF B1  FB 49 00 91 FB C8 D0 F7  |.........I......|
00000460: E6 FC CA D0 F2 A9 37 85  01 60 2A 2A A2 42 A9 2A  |......7..`**.B.*|
00000470: 9D BA 0F CA D0 FA A9 24  85 2D A9 0C 85 2E A9 00  |.......$.-......|
00000480: 8D 20 D0 8D 21 D0 85 37  A9 10 85 38 A9 57 A0 0D  |. ..!..7...8.W..|
00000490: 20 1E AB A9 54 A0 0E 20  1E AB 4C C2 0E 93 08 0E  | ...T.. ..L.....|
000004A0: 97 0D 0D 19 08 20 19 18  B7 0D 19 07 20 05 19 05  |..... ...... ...|
000004B0: 20 D0 D2 CF C7 D2 C1 CD  C3 CF C4 C5 D2 20 33 2E  | ............ 3.|
000004C0: 31 0D 9B 19 08 20 19 18  AF 19 03 0D 20 97 20 D0  |1.... ...... . .|
000004D0: 52 4F 44 55 43 45 44 20  49 4E 20 31 39 34 31 20  |RODUCED IN 1941 |
000004E0: 42 45 46 4F 52 45 20 C6  CC C1 D3 C8 20 42 59 20  |BEFORE ..... BY |
000004F0: 98 C5 C4 C5 19 03 0D 19  0B 20 12 C6 31 92 20 20  |......... ..1.  |
00000500: C3 CF C4 C5 20 C1 20 D0  D2 CF C7 D2 C1 CD 0D 0D  |.... . .........|
00000510: 19 0B 20 12 C6 33 92 20  20 C5 D8 C9 D4 20 D4 C8  |.. ..3.  .... ..|
00000520: C5 20 C3 CF C4 C5 D2 0D  0D 19 0B 20 12 C6 37 92  |. ......... ..7.|
00000530: 20 20 CC CF C1 C4 20 C4  C9 D2 C5 C3 D4 CF D2 D9  |  .... .........|
00000540: 19 07 0D 00 97 0D 19 06  20 19 1C A3 20 0D 98 19  |........ ... ...|
00000550: 07 20 C6 CC C1 D3 C8 20  C3 D2 C1 C3 CB C9 CE C7  |. ..... ........|
00000560: 20 C7 D2 CF D5 D0 20 31  39 34 31 21 0D 97 19 06  | ..... 1941!....|
00000570: 20 19 1C A4 00 60 A9 96  8D 06 D4 8D 01 D4 A9 21  | ....`.........!|
00000580: 8D 05 D4 8D 04 D4 A9 05  8D 00 D4 A9 0E 8D 18 D4  |................|
00000590: A2 55 A0 1F 88 8E 5F D4  D0 FA CA 8E 01 D4 8E 37  |.U...._........7|
000005A0: D4 D0 F1 A9 00 8D 18 D4  AD E7 0D C9 C5 D0 F9 AD  |................|
000005B0: DB 0D C9 C6 D0 F9 20 E4  FF C9 88 F0 20 C9 86 F0  |...... ..... ...|
000005C0: 12 C9 85 F0 03 4C 02 0F  A2 FF A9 20 9D 90 05 CA  |.....L..... ....|
000005D0: D0 FA 60 4C C2 FE 60 19  06 EA A9 93 20 D2 FF A9  |..`L..`..... ...|
000005E0: 24 85 FB A9 FB 85 BB A9  00 85 BC A9 01 85 B7 A9  |$...............|
000005F0: 08 85 BA A9 60 85 B9 20  D5 F3 A5 BA 20 B4 FF A5  |....`.. .... ...|
00000600: B9 20 96 FF A9 00 85 90  A0 03 84 FB 20 A5 FF 85  |. .......... ...|
00000610: FC A4 90 D0 32 20 A5 FF  A4 90 D0 2B A4 FB 88 D0  |....2 .....+....|
00000620: E9 A6 FC 20 A2 0F A9 20  20 D2 FF 20 A5 FF A6 90  |... ...  .. ....|
00000630: D0 15 AA F0 06 20 D2 FF  4C 7A 0F A9 0D 20 D2 FF  |..... ..Lz... ..|
00000640: 8D 77 02 A0 02 D0 C3 20  42 F6 4C B1 0F AD 77 02  |.w..... B.L...w.|
00000650: 4C 8F 0F A0 05 48 A9 20  20 D2 FF 88 D0 F8 68 4C  |L....H.  .....hL|
00000660: CD BD 20 E4 FF C9 20 D0  F9 4C 30 0D 19 44 2A 24  |.. ... ..L0..D*$|
00000670: 25 09 95 07 9E 32 30 36  35 20 46 43 47 19 03 00  |%....2065 FCG...|
00000680: A0 00 B9 1E 08 99 C4 06  88 D0 F7 4C C5 06 78 A9  |...........L..x.|
00000690: 34 85 01 A9 5E A0 08 85  FB 84 FC A9 01 A0 08 85  |4...^...........|
000006A0: FD 84 FE A0 00 A2 F6 B1  FB 49 00 91 FD C8 D0 F7  |.........I......|
000006B0: E6 FC E6 FE CA D0 F0 A9  37 85 01 A9 00 A0 00 85  |........7.......|
000006C0: 2D 84 2E 85 AE 84 AF 20  59 A6 4C AE A7 FF F0 00  |-...... Y.L.....|
000006D0: CF 1F                                             |..              |
.......2065 FCG............JP.L.... Q.L.
.X.. ..Q..............G.P.F.G.P.F.......
I.P...I P...........I.P. F.... F..... Q.
JP..... Q. F.P..7..XL....P.....I.`..P...
`(... 8,1,9:.3366:.:."....":.19,3.I...."
... UNCODED NAME: ";F1$:..Z....C(F1$).16
...K....C(F1$).1.26......X.1.C(F1$):.J(F
1$,X,1)."*".J(F1$,X,1)."?".29......:F3$.
F1$.A...F2$."-".F3$:.19,3......"..  VALU
E TO CODE (0-255): ";B$:B.F(B$):.19,0:.B
.255.B.1.1......1,8,15,"UI": 1.@....:.".
.... INSERT SOURCE DISC".R....198,0:.198
,1.F....142,93:.143,16......2,8,2,F1$.",
P,R":.#2,A$:.#2,A$:X.8:.30......3216: 2.
.....3348,B:.3328.X....".... INSERT TARG
ET DISC"......198,0:.198,1......4154,B.&
...A1.B(142):A2.B(143):A3.A1.256.A2:A3.A
3.2182.K...A1.A3.256..(A3.256):A2..(A3.2
56).A....4172,A1:.4174,A2.....2,8,2,F2$
.",P,W":X.9:.30......2,"..";......3264: 
2..............F1$."*".F1$."?".F1$."#"..
.N....F1$."$".32.U....7.....F3$.H(F1$,X.
1):.7......X,8,15:.X,A$,B$,C$,D$:.B$."OK
"...N....211,8:.214,20:.58640:.A$","B$",
"C$","D$:.198,0:.198,1:..Z. ..3881:.....
.*.4*.. F. O. .X.... 7..X..P...P.$.P.P<.
.... I. ....... .X.... ...X R...P.....E.
P...E.P.LL...*X.4...] ..... .....I...HP.
..JP..7..`**.B.*...JP..$.-....... P.!P.7
...8.W . ...T . ..LB......... ...... ...
 PROGRAMCODER 3.1.... ...... . PRODUCED 
IN 1941 BEFORE FLASH BY .EDE..... .F1.  
CODE A PROGRAM.... .F3.  EXIT THE CODER.
... .F7.  LOAD DIRECTORY........ ... ...
. FLASH CRACKING GROUP 1941!.... ....`..
..T..T.!..T..T....T....T.U ..._TP.J..T.7
TP.....T...IEP....IFP. ..I.. I...I...L..
... ...JP.`LB.`..... R..$...............
....`.. U... .... ...... ... ......P2 ..
..P+...P... ...  R. ....P.... R.LZ... R.
.W. .PC B.L...W.L.. .H.  R..P.HLM. ..I P
.L0..D*$%....2065 FCG... .....D..P.LE.X.
4...^ ....... ..... .....I...HP.....JP..
7.... ..-...... Y.L.....O.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL