KOM.BAS9
FILE INFORMATION
FILENAME(S): KOM.BAS9
FILE TYPE(S): PRG
FILE SIZE: 1K
FIRST SEEN: 2025-11-30 19:36:55
APPEARS ON: 1 disk(s)
FILE HASH
237494ee9c99ebdff79ec6e2caf677918222d5a3e0a16a960e13a43c3000161b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AFTEN | KOM.BAS9 | PRG | Curtcool, Bo | 27 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 18 08 01 00 8F 20 53 41 56 45 22 4B 4F 4D |....... SAVE"KOM| 00000010: 2E 42 41 53 39 22 2C 38 00 3A 08 0A 00 44 41 B2 |.BAS9",8.:...DA.| 00000020: 35 36 35 37 37 3A 46 4C 41 47 B2 35 36 35 38 39 |56577:FLAG.56589| 00000030: 3A 44 49 52 B2 35 36 35 37 39 00 4C 08 14 00 53 |:DIR.56579.L...S| 00000040: 45 4E B2 32 35 35 3A 4D 4F 44 B2 30 00 64 08 1E |EN.255:MOD.0.d..| 00000050: 00 89 20 31 31 30 30 30 3A 8F 20 41 55 54 4F 20 |.. 11000:. AUTO | 00000060: 53 45 4E 44 00 6A 08 E7 03 3A 00 7F 08 E8 03 8F |SEND.j...:......| 00000070: 20 2A 2A 2A 46 4C 41 47 20 4D 4F 20 2A 2A 2A 00 | ***FLAG MO ***.| 00000080: 8E 08 F2 03 46 41 B2 C2 28 46 4C 41 47 29 00 A8 |....FA..(FLAG)..| 00000090: 08 FC 03 8B 20 46 41 B2 31 36 A7 20 4D 4F B2 AB |.... FA.16. MO..| 000000A0: 31 3A 89 20 31 30 34 30 00 B1 08 06 04 4D 4F B2 |1:. 1040.....MO.| 000000B0: 30 00 B7 08 10 04 8E 00 BD 08 4B 04 3A 00 D2 08 |0.........K.:...| 000000C0: 4C 04 8F 20 2A 2A 2A 50 4F 52 54 20 55 44 20 2A |L.. ***PORT UD *| 000000D0: 2A 2A 00 DC 08 51 04 99 22 55 44 22 00 EA 08 56 |**...Q.."UD"...V| 000000E0: 04 97 20 44 49 52 2C 32 35 35 00 F0 08 60 04 8E |.. DIR,255...`..| 000000F0: 00 F6 08 AF 04 3A 00 0C 09 B0 04 8F 20 2A 2A 2A |.....:...... ***| 00000100: 50 4F 52 54 20 49 4E 44 20 2A 2A 2A 00 17 09 B5 |PORT IND ***....| 00000110: 04 99 22 49 4E 44 22 00 23 09 BA 04 97 20 44 49 |.."IND".#.... DI| 00000120: 52 2C 30 00 29 09 C4 04 8E 00 2F 09 13 05 3A 00 |R,0.)...../...:.| 00000130: 43 09 14 05 8F 20 2A 2A 2A 4D 4F 44 54 41 47 20 |C.... ***MODTAG | 00000140: 2A 2A 2A 00 68 09 15 05 54 45 24 B2 C7 28 C2 28 |***.h...TE$..(.(| 00000150: 44 41 29 29 20 3A 20 8B 20 54 45 24 B3 B1 22 5F |DA)) : . TE$.."_| 00000160: 22 20 89 20 31 33 30 31 00 73 09 1E 05 49 4E 24 |" . 1301.s...IN$| 00000170: B2 22 22 00 8C 09 23 05 8D 20 31 30 30 30 3A 8B |.""...#.. 1000:.| 00000180: 20 A8 20 4D 4F 20 89 20 31 33 31 35 00 9D 09 28 | . MO . 1315...(| 00000190: 05 54 45 24 B2 C7 28 C2 28 44 41 29 29 00 B4 09 |.TE$..(.(DA))...| 000001A0: 32 05 8B 20 54 45 24 B2 C7 28 32 35 34 29 A7 20 |2.. TE$..(254). | 000001B0: 31 33 36 31 00 C4 09 3C 05 49 4E 24 B2 49 4E 24 |1361...<.IN$.IN$| 000001C0: AA 54 45 24 00 CF 09 50 05 89 20 31 33 31 35 00 |.TE$...P.. 1315.| 000001D0: F8 09 51 05 8B 20 C8 28 49 4E 24 2C 31 29 B2 22 |..Q.. .(IN$,1)."| 000001E0: 5F 22 20 A7 20 49 4E 24 B2 C9 28 49 4E 24 2C C3 |_" . IN$..(IN$,.| 000001F0: 28 49 4E 24 29 AB 31 29 00 FE 09 52 05 8E 00 04 |(IN$).1)...R....| 00000200: 0A 77 05 3A 00 16 0A 78 05 8F 20 2A 2A 2A 53 45 |.w.:...x.. ***SE| 00000210: 4E 44 20 2A 2A 2A 00 39 0A 82 05 55 44 24 B2 22 |ND ***.9...UD$."| 00000220: 5F 22 AA 55 44 24 AA C7 28 32 35 34 29 3A 8D 20 |_".UD$..(254):. | 00000230: 31 31 30 30 3A 41 4E B2 31 00 59 0A 8C 05 97 20 |1100:AN.1.Y.... | 00000240: 44 41 2C C6 28 CA 28 55 44 24 2C 41 4E 2C 31 29 |DA,.(.(UD$,AN,1)| 00000250: 29 3A 41 4E B2 41 4E AA 31 00 72 0A 96 05 8D 20 |):AN.AN.1.r.... | 00000260: 31 30 30 30 3A 8B 20 A8 20 4D 4F 20 89 20 31 34 |1000:. . MO . 14| 00000270: 33 30 00 8C 0A A0 05 8B 20 41 4E B1 C3 28 55 44 |30...... AN..(UD| 00000280: 24 29 A7 20 55 44 24 B2 22 22 3A 8E 00 96 0A AA |$). UD$."":.....| 00000290: 05 89 31 34 32 30 00 B1 0A 10 27 8F 20 2A 2A 2A |..1420....'. ***| 000002A0: 20 48 4F 56 45 44 50 52 4F 47 52 41 4D 20 2A 2A | HOVEDPROGRAM **| 000002B0: 2A 00 D1 0A 1A 27 8F 20 47 4F 53 55 42 20 31 34 |*....'. GOSUB 14| 000002C0: 30 30 3A 52 45 4D 20 53 45 4E 44 45 52 4B 41 4C |00:REM SENDERKAL| 000002D0: 44 00 DB 0A 24 27 99 22 93 22 3B 00 ED 0A 2E 27 |D...$'.".";....'| 000002E0: 8D 20 31 30 30 30 3A 8F 20 46 4C 41 47 00 1C 0B |. 1000:. FLAG...| 000002F0: 38 27 8B 20 4D 4F 20 A7 20 8D 20 31 33 30 30 3A |8'. MO . . 1300:| 00000300: 99 22 11 11 11 11 11 11 11 11 11 11 11 11 22 3B |."............";| 00000310: 49 4E 24 3B 22 13 22 3B 55 41 24 3B 00 3B 0B 42 |IN$;".";UA$;.;.B| 00000320: 27 8B 20 54 45 24 B2 C7 28 32 35 34 29 A7 20 8D |'. TE$..(254). .| 00000330: 20 31 34 30 30 3A 8D 31 32 30 30 00 44 0B 4C 27 | 1400:.1200.D.L'| 00000340: A1 20 54 24 00 63 0B 56 27 8B 20 54 24 B2 C7 28 |. T$.c.V'. T$..(| 00000350: 31 33 33 29 A7 20 55 44 24 B2 55 41 24 3A 54 24 |133). UD$.UA$:T$| 00000360: B2 22 22 00 81 0B 60 27 8B 20 54 24 B3 B1 22 22 |.""...`'. T$..""| 00000370: A7 20 55 41 24 B2 55 41 24 AA 54 24 3A 99 54 24 |. UA$.UA$.T$:.T$| 00000380: 3B 00 8C 0B 6A 27 89 31 30 30 33 30 00 A0 0B F8 |;...j'.10030....| 00000390: 2A 8F 20 41 55 54 4F 20 53 45 4E 44 2F 4D 4F 44 |*. AUTO SEND/MOD| 000003A0: 00 C2 0B 02 2B 55 44 24 B2 22 56 45 4E 53 54 52 |....+UD$."VENSTR| 000003B0: 45 20 53 45 4E 44 45 52 22 3A 8F 20 53 45 4E 44 |E SENDER":. SEND| 000003C0: 45 52 00 D9 0B 0C 2B 8D 31 34 30 30 3A 8F 20 47 |ER....+.1400:. G| 000003D0: 4F 53 55 42 20 53 45 4E 44 00 F8 0B 16 2B 8D 31 |OSUB SEND....+.1| 000003E0: 32 30 30 3A 8D 31 33 30 30 3A 8F 20 47 4F 53 55 |200:.1300:. GOSU| 000003F0: 42 20 4D 4F 44 54 41 47 00 01 0C 20 2B 99 49 4E |B MODTAG... +.IN| 00000400: 24 00 0C 0C 2A 2B 89 31 31 30 31 30 00 23 0C E0 |$...*+.11010.#..| 00000410: 2E 55 44 24 B2 22 48 30 4A 52 45 20 53 45 4E 44 |.UD$."H0JRE SEND| 00000420: 45 52 22 00 29 0C EA 2E 8E 00 00 00 |ER".)....... |
....... SAVE"KOM.BAS9",8.:...DA.56577:FL AG.56589:DIR.56579.L...SEN.255:MOD.0.D.. .. 11000:. AUTO SEND.J...:..... ***FLAG MO ***.....FA.B(FLAG)...... FA.16. MO.. 1:. 1040.....MO.0.........K.:.R.L.. ***P ORT UD ***...Q.."UD"...V.. DIR,255...`.. .....:...... ***PORT IND ***......"IND". #.... DIR,0.).D.../...:.C.... ***MODTAG ***.H...TE$.G(B(DA)) : . TE$.."_" . 1301 .S...IN$.""...#.. 1000:. . MO . 1315...( .TE$.G(B(DA))...2.. TE$.G(254). 1361.D.< .IN$.IN$.TE$.O.P.. 1315...Q.. H(IN$,1)." _" . IN$.I(IN$,C(IN$).1)...R.....W.:...X .. ***SEND ***.9...UD$."_".UD$.G(254):. 1100:AN.1.Y.... DA,F(J(UD$,AN,1)):AN.AN. 1.R.... 1000:. . MO . 1430... .. AN.C(UD $). UD$."":.......1420....'. *** HOVEDPR OGRAM ***.Q..'. GOSUB 1400:REM SENDERKAL D...$'.".";....'. 1000:. FLAG...8'. MO . . 1300:."............";IN$;".";UA$;.;.B '. TE$.G(254). . 1400:.1200.D.L'. T$.C.V '. T$.G(133). UD$.UA$:T$.""...`'. T$.."" . UA$.UA$.T$:.T$;...J'.10030. ..*. AUTO SEND/MOD.B..+UD$."VENSTRE SENDER":. SEND ER.Y..+.1400:. GOSUB SEND....+.1200:.130 0:. GOSUB MODTAG... +.IN$...*+.11010.#.. .UD$."H0JRE SENDER".).......
> CLICK IMAGE PREVIEW FOR FULL MODAL