KOM.BAS8
FILE INFORMATION
FILENAME(S): KOM.BAS8
FILE TYPE(S): PRG
FILE SIZE: 977b
FIRST SEEN: 2025-11-30 19:36:55
APPEARS ON: 1 disk(s)
FILE HASH
ca184d4ae90e98584a9c09af401c06267f2c5a5b1b9789b018231f46ba7a35f7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AFTEN | KOM.BAS8 | PRG | Curtcool, Bo | 27 | 0 | 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 38 22 2C 38 00 3A 08 0A 00 44 41 B2 |.BAS8",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 4E 09 1E 05 49 4E 24 B2 22 22 00 67 |***.N...IN$."".g| 00000150: 09 23 05 8D 20 31 30 30 30 3A 8B 20 A8 20 4D 4F |.#.. 1000:. . MO| 00000160: 20 89 20 31 33 31 35 00 78 09 28 05 54 45 24 B2 | . 1315.x.(.TE$.| 00000170: C7 28 C2 28 44 41 29 29 00 8C 09 32 05 8B 20 54 |.(.(DA))...2.. T| 00000180: 45 24 B2 C7 28 32 35 34 29 A7 20 8E 00 9C 09 3C |E$..(254). ....<| 00000190: 05 49 4E 24 B2 49 4E 24 AA 54 45 24 00 A7 09 50 |.IN$.IN$.TE$...P| 000001A0: 05 89 20 31 33 31 35 00 AD 09 77 05 3A 00 BF 09 |.. 1315...w.:...| 000001B0: 78 05 8F 20 2A 2A 2A 53 45 4E 44 20 2A 2A 2A 00 |x.. ***SEND ***.| 000001C0: DE 09 82 05 55 44 24 B2 55 44 24 AA C7 28 32 35 |....UD$.UD$..(25| 000001D0: 34 29 3A 8D 20 31 31 30 30 3A 41 4E B2 31 00 FE |4):. 1100:AN.1..| 000001E0: 09 8C 05 97 20 44 41 2C C6 28 CA 28 55 44 24 2C |.... DA,.(.(UD$,| 000001F0: 41 4E 2C 31 29 29 3A 41 4E B2 41 4E AA 31 00 17 |AN,1)):AN.AN.1..| 00000200: 0A 96 05 8D 20 31 30 30 30 3A 8B 20 A8 20 4D 4F |.... 1000:. . MO| 00000210: 20 89 20 31 34 33 30 00 31 0A A0 05 8B 20 41 4E | . 1430.1.... AN| 00000220: B1 C3 28 55 44 24 29 A7 20 55 44 24 B2 22 22 3A |..(UD$). UD$."":| 00000230: 8E 00 3B 0A AA 05 89 31 34 32 30 00 56 0A 10 27 |..;....1420.V..'| 00000240: 8F 20 2A 2A 2A 20 48 4F 56 45 44 50 52 4F 47 52 |. *** HOVEDPROGR| 00000250: 41 4D 20 2A 2A 2A 00 76 0A 1A 27 8F 20 47 4F 53 |AM ***.v..'. GOS| 00000260: 55 42 20 31 34 30 30 3A 52 45 4D 20 53 45 4E 44 |UB 1400:REM SEND| 00000270: 45 52 4B 41 4C 44 00 80 0A 24 27 99 22 93 22 3B |ERKALD...$'.".";| 00000280: 00 92 0A 2E 27 8D 20 31 30 30 30 3A 8F 20 46 4C |....'. 1000:. FL| 00000290: 41 47 00 C1 0A 38 27 8B 20 4D 4F 20 A7 20 8D 20 |AG...8'. MO . . | 000002A0: 31 33 30 30 3A 99 22 11 11 11 11 11 11 11 11 11 |1300:.".........| 000002B0: 11 11 11 22 3B 49 4E 24 3B 22 13 22 3B 55 41 24 |...";IN$;".";UA$| 000002C0: 3B 00 E0 0A 42 27 8B 20 54 45 24 B2 C7 28 32 35 |;...B'. TE$..(25| 000002D0: 34 29 A7 20 8D 20 31 34 30 30 3A 8D 31 32 30 30 |4). . 1400:.1200| 000002E0: 00 E9 0A 4C 27 A1 20 54 24 00 08 0B 56 27 8B 20 |...L'. T$...V'. | 000002F0: 54 24 B2 C7 28 31 33 33 29 A7 20 55 44 24 B2 55 |T$..(133). UD$.U| 00000300: 41 24 3A 54 24 B2 22 22 00 26 0B 60 27 8B 20 54 |A$:T$."".&.`'. T| 00000310: 24 B3 B1 22 22 A7 20 55 41 24 B2 55 41 24 AA 54 |$.."". UA$.UA$.T| 00000320: 24 3A 99 54 24 3B 00 31 0B 6A 27 89 31 30 30 33 |$:.T$;.1.j'.1003| 00000330: 30 00 45 0B F8 2A 8F 20 41 55 54 4F 20 53 45 4E |0.E..*. AUTO SEN| 00000340: 44 2F 4D 4F 44 00 67 0B 02 2B 55 44 24 B2 22 56 |D/MOD.g..+UD$."V| 00000350: 45 4E 53 54 52 45 20 53 45 4E 44 45 52 22 3A 8F |ENSTRE SENDER":.| 00000360: 20 53 45 4E 44 45 52 00 7E 0B 0C 2B 8D 31 34 30 | SENDER.~..+.140| 00000370: 30 3A 8F 20 47 4F 53 55 42 20 53 45 4E 44 00 9D |0:. GOSUB SEND..| 00000380: 0B 16 2B 8D 31 32 30 30 3A 8D 31 33 30 30 3A 8F |..+.1200:.1300:.| 00000390: 20 47 4F 53 55 42 20 4D 4F 44 54 41 47 00 A6 0B | GOSUB MODTAG...| 000003A0: 20 2B 99 49 4E 24 00 B1 0B 2A 2B 89 31 31 30 31 | +.IN$...*+.1101| 000003B0: 30 00 C8 0B E0 2E 55 44 24 B2 22 48 30 4A 52 45 |0.....UD$."H0JRE| 000003C0: 20 53 45 4E 44 45 52 22 00 CE 0B EA 2E 8E 00 00 | SENDER"........| 000003D0: 00 |. |
....... SAVE"KOM.BAS8",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 ***.N...IN$."".G.#.. 1000:. . MO . 1315. X.(.TE$.G(B(DA))...2.. TE$.G(254). ....< .IN$.IN$.TE$...P.. 1315...W.:...X.. ***S END ***.....UD$.UD$.G(254):. 1100:AN.1.. .... DA,F(J(UD$,AN,1)):AN.AN.1...... 100 0:. . MO . 1430.1. .. AN.C(UD$). UD$."": ..;....1420.V..'. *** HOVEDPROGRAM ***.V ..'. GOSUB 1400:REM SENDERKALD...$'."."; ....'. 1000:. FLAG.A.8'. MO . . 1300:.". ...........";IN$;".";UA$;...B'. TE$.G(25 4). . 1400:.1200...L'. T$...V'. T$.G(133 ). UD$.UA$:T$."".&.`'. T$.."". UA$.UA$.T $:.T$;.1.J'.10030.E..*. AUTO SEND/MOD.G. .+UD$."VENSTRE SENDER":. SENDER.~..+.140 0:. GOSUB SEND....+.1200:.1300:. GOSUB M ODTAG... +.IN$...*+.11010.H...UD$."H0JRE SENDER".N.......
> CLICK IMAGE PREVIEW FOR FULL MODAL