SLAG 9
FILE INFORMATION
FILENAME(S): SLAG 9
FILE TYPE(S): PRG
FILE SIZE: 2.3K
FIRST SEEN: 2025-11-30 19:36:55
APPEARS ON: 1 disk(s)
FILE HASH
6fc37ef0772d6425d1a5303a6a9a24cc52446aee776d6e070d6cb3d3bf8a76dc
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AFTEN | SLAG 9 | PRG | Curtcool, Bo | 8 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 E8 03 8F 20 53 41 56 45 20 22 53 4C |....... SAVE "SL|
00000010: 41 47 20 39 22 2C 38 00 1D 08 1A 04 3A 00 29 08 |AG 9",8.....:.).|
00000020: 4C 04 4D 4F 24 B2 22 4D 22 00 4B 08 7E 04 44 41 |L.MO$."M".K.~.DA|
00000030: B2 35 36 35 37 37 3A 46 4C 41 47 B2 35 36 35 38 |.56577:FLAG.5658|
00000040: 39 3A 44 49 52 B2 35 36 35 37 39 00 5D 08 B0 04 |9:DIR.56579.]...|
00000050: 53 45 4E B2 32 35 35 3A 4D 4F 44 B2 30 00 7D 08 |SEN.255:MOD.0.}.|
00000060: E2 04 8F 20 47 4F 54 4F 20 37 31 30 30 3A 52 45 |... GOTO 7100:RE|
00000070: 4D 20 53 45 4E 44 2F 4D 4F 44 54 41 47 00 83 08 |M SEND/MODTAG...|
00000080: 14 05 3A 00 8E 08 46 05 99 20 22 93 22 3B 00 A7 |..:...F.. ".";..|
00000090: 08 78 05 99 22 1D 1D 1D 1D 1D 1D 41 42 43 44 45 |.x.."......ABCDE|
000000A0: 46 47 48 49 4A 22 3B 00 BE 08 AA 05 99 22 1D 1D |FGHIJ";......"..|
000000B0: 1D 1D 1D 41 42 43 44 45 46 47 48 49 4A 22 00 CC |...ABCDEFGHIJ"..|
000000C0: 08 DC 05 81 20 58 B2 30 20 A4 20 39 00 DB 08 0E |.... X.0 . 9....|
000000D0: 06 99 22 1D 1D 1D 1D 22 3B 58 3B 00 F1 08 40 06 |.."....";X;...@.|
000000E0: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B |."............";|
000000F0: 58 00 F7 08 72 06 82 00 FD 08 A4 06 3A 00 0E 09 |X...r.......:...|
00000100: D6 06 86 20 53 55 25 28 31 2C 39 2C 39 29 00 18 |... SU%(1,9,9)..|
00000110: 09 08 07 42 49 25 B2 30 00 23 09 3A 07 89 20 32 |...BI%.0.#.:.. 2|
00000120: 32 30 30 00 29 09 6C 07 3A 00 3B 09 9E 07 8F 20 |200.).l.:.;.... |
00000130: 54 41 53 54 20 2A 2A 2A 2A 2A 2A 00 41 09 D0 07 |TAST ******.A...|
00000140: 3A 00 5B 09 02 08 A1 20 54 24 20 3A 20 8B 20 54 |:.[.... T$ : . T|
00000150: 24 B2 22 22 20 89 20 32 30 35 30 00 61 09 34 08 |$."" . 2050.a.4.|
00000160: 8E 00 67 09 66 08 3A 00 79 09 98 08 8F 20 53 54 |..g.f.:.y.... ST|
00000170: 59 52 20 2A 2A 2A 2A 2A 2A 00 7F 09 CA 08 3A 00 |YR ******.....:.|
00000180: 9B 09 FC 08 8B 20 42 49 25 B2 30 20 A7 20 4C 53 |..... BI%.0 . LS|
00000190: 25 B2 30 20 3A 20 43 53 25 B2 35 00 B8 09 2E 09 |%.0 : CS%.5.....|
000001A0: 8B 20 42 49 25 B2 31 20 A7 20 4C 53 25 B2 30 20 |. BI%.1 . LS%.0 |
000001B0: 3A 20 43 53 25 B2 32 30 00 D0 09 60 09 8D 20 37 |: CS%.20...`.. 7|
000001C0: 31 30 30 3A 8F 20 47 4F 53 55 42 20 31 39 35 30 |100:. GOSUB 1950|
000001D0: 00 FA 09 92 09 8B 20 54 24 B2 22 11 22 20 AF 20 |...... T$."." . |
000001E0: 4C 49 25 B3 39 20 A7 20 4C 49 25 B2 4C 49 25 AA |LI%.9 . LI%.LI%.|
000001F0: 31 20 3A 20 89 20 32 36 35 30 00 24 0A C4 09 8B |1 : . 2650.$....|
00000200: 20 54 24 B2 22 91 22 20 AF 20 4C 49 25 B1 30 20 | T$."." . LI%.0 |
00000210: A7 20 4C 49 25 B2 4C 49 25 AB 31 20 3A 20 89 20 |. LI%.LI%.1 : . |
00000220: 32 36 35 30 00 4E 0A F6 09 8B 20 54 24 B2 22 1D |2650.N.... T$.".|
00000230: 22 20 AF 20 43 4F 25 B3 39 20 A7 20 43 4F 25 B2 |" . CO%.9 . CO%.|
00000240: 43 4F 25 AA 31 20 3A 20 89 20 32 36 35 30 00 78 |CO%.1 : . 2650.x|
00000250: 0A 28 0A 8B 20 54 24 B2 22 9D 22 20 AF 20 43 4F |.(.. T$."." . CO|
00000260: 25 B1 30 20 A7 20 43 4F 25 B2 43 4F 25 AB 31 20 |%.0 . CO%.CO%.1 |
00000270: 3A 20 89 20 32 36 35 30 00 96 0A 5A 0A 4C 41 25 |: . 2650...Z.LA%|
00000280: B2 4C 53 25 AA 4C 49 25 20 3A 20 43 41 25 B2 43 |.LS%.LI% : CA%.C|
00000290: 53 25 AA 43 4F 25 00 B6 0A 8C 0A 8B 20 54 24 B2 |S%.CO%...... T$.|
000002A0: 22 46 22 20 A7 20 8D 20 33 37 30 30 20 3A 20 8F |"F" . . 3700 : .|
000002B0: 20 4D 41 45 52 4B 00 C1 0A BE 0A 8D 20 32 39 35 | MAERK...... 295|
000002C0: 30 00 EC 0A F0 0A 8B 20 54 24 B2 22 53 22 20 A7 |0...... T$."S" .|
000002D0: 20 42 49 25 B2 42 49 25 AA 31 20 3A 20 8B 20 42 | BI%.BI%.1 : . B|
000002E0: 49 25 B1 31 20 A7 20 42 49 25 B2 30 00 F7 0A 22 |I%.1 . BI%.0..."|
000002F0: 0B 89 20 32 33 30 30 00 FD 0A 54 0B 3A 00 11 0B |.. 2300...T.:...|
00000300: 86 0B 8F 20 43 55 52 53 4F 52 20 2A 2A 2A 2A 2A |... CURSOR *****|
00000310: 2A 00 17 0B B8 0B 3A 00 21 0B EA 0B 99 22 13 22 |*.....:.!...."."|
00000320: 3B 00 3C 0B 1C 0C 81 20 58 B2 30 20 A4 20 4C 41 |;.<.... X.0 . LA|
00000330: 25 20 3A 20 99 22 11 22 3B 20 3A 82 00 57 0B 4E |% : ."."; :..W.N|
00000340: 0C 81 20 58 B2 30 20 A4 20 43 41 25 20 3A 20 99 |.. X.0 . CA% : .|
00000350: 22 1D 22 3B 20 3A 82 00 83 0B 80 0C 8B 20 53 55 |"."; :....... SU|
00000360: 25 28 42 49 25 2C 4C 49 25 2C 43 4F 25 29 B2 31 |%(BI%,LI%,CO%).1|
00000370: 20 A7 20 99 20 22 12 58 92 22 20 3A 20 89 20 33 | . . ".X." : . 3|
00000380: 33 30 30 00 A6 0B B2 0C 8B 20 53 55 25 28 42 49 |300...... SU%(BI|
00000390: 25 2C 4C 49 25 2C 43 4F 25 29 B2 30 20 A7 20 99 |%,LI%,CO%).0 . .|
000003A0: 20 22 12 20 92 22 00 B0 0B E4 0C 99 22 13 22 3B | ". ."......".";|
000003B0: 00 CB 0B 16 0D 81 20 58 B2 30 20 A4 20 47 4C 25 |...... X.0 . GL%|
000003C0: 20 3A 20 99 22 11 22 3B 20 3A 82 00 E6 0B 48 0D | : ."."; :....H.|
000003D0: 81 20 58 B2 30 20 A4 20 47 41 25 20 3A 20 99 22 |. X.0 . GA% : ."|
000003E0: 1D 22 3B 20 3A 82 00 10 0C 7A 0D 8B 20 53 55 25 |."; :....z.. SU%|
000003F0: 28 47 42 25 2C 47 49 25 2C 47 43 25 29 B2 31 20 |(GB%,GI%,GC%).1 |
00000400: A7 20 99 20 22 58 22 20 3A 20 89 20 33 35 35 30 |. . "X" : . 3550|
00000410: 00 31 0C AC 0D 8B 20 53 55 25 28 47 42 25 2C 47 |.1.... SU%(GB%,G|
00000420: 49 25 2C 47 43 25 29 B2 30 20 A7 20 99 20 22 20 |I%,GC%).0 . . " |
00000430: 22 00 5D 0C DE 0D 47 4C 25 B2 4C 41 25 3A 47 41 |".]...GL%.LA%:GA|
00000440: 25 B2 43 41 25 3A 47 42 25 B2 42 49 25 3A 47 49 |%.CA%:GB%.BI%:GI|
00000450: 25 B2 4C 49 25 3A 47 43 25 B2 43 4F 25 00 63 0C |%.LI%:GC%.CO%.c.|
00000460: 10 0E 8E 00 69 0C 42 0E 3A 00 7B 0C 74 0E 8F 20 |....i.B.:.{.t.. |
00000470: 4D 41 45 52 4B 20 2A 2A 2A 2A 2A 00 81 0C A6 0E |MAERK *****.....|
00000480: 3A 00 A9 0C D8 0E 53 55 25 28 42 49 25 2C 4C 49 |:.....SU%(BI%,LI|
00000490: 25 2C 43 4F 25 29 B2 53 55 25 28 42 49 25 2C 4C |%,CO%).SU%(BI%,L|
000004A0: 49 25 2C 43 4F 25 29 AA 31 00 D7 0C 0A 0F 8B 20 |I%,CO%).1...... |
000004B0: 53 55 25 28 42 49 25 2C 4C 49 25 2C 43 4F 25 29 |SU%(BI%,LI%,CO%)|
000004C0: B1 31 20 A7 20 53 55 25 28 42 49 25 2C 4C 49 25 |.1 . SU%(BI%,LI%|
000004D0: 2C 43 4F 25 29 B2 30 00 DD 0C 3C 0F 8E 00 E3 0C |,CO%).0...<.....|
000004E0: 6E 0F 3A 00 01 0D A0 0F 8F 20 4B 4F 4D 55 4E 49 |n.:...... KOMUNI|
000004F0: 4B 41 54 49 4F 4E 53 44 45 4C 20 2A 2A 2A 2A 2A |KATIONSDEL *****|
00000500: 2A 00 07 0D D2 0F 3A 00 1C 0D 04 10 8F 20 2A 2A |*.....:...... **|
00000510: 2A 46 4C 41 47 20 4D 4F 20 2A 2A 2A 00 22 0D 36 |*FLAG MO ***.".6|
00000520: 10 3A 00 31 0D 68 10 46 41 B2 C2 28 46 4C 41 47 |.:.1.h.FA..(FLAG|
00000530: 29 00 4B 0D 9A 10 8B 20 46 41 B2 31 36 A7 20 4D |).K.... FA.16. M|
00000540: 4F B2 AB 31 3A 89 20 34 33 35 30 00 54 0D CC 10 |O..1:. 4350.T...|
00000550: 4D 4F B2 30 00 5A 0D FE 10 8E 00 60 0D 30 11 3A |MO.0.Z.....`.0.:|
00000560: 00 75 0D 62 11 8F 20 2A 2A 2A 50 4F 52 54 20 55 |.u.b.. ***PORT U|
00000570: 44 20 2A 2A 2A 00 7B 0D 94 11 3A 00 89 0D C6 11 |D ***.{...:.....|
00000580: 97 20 44 49 52 2C 32 35 35 00 8F 0D F8 11 8E 00 |. DIR,255.......|
00000590: 95 0D 2A 12 3A 00 AB 0D 5C 12 8F 20 2A 2A 2A 50 |..*.:...\.. ***P|
000005A0: 4F 52 54 20 49 4E 44 20 2A 2A 2A 00 B1 0D 8E 12 |ORT IND ***.....|
000005B0: 3A 00 BD 0D C0 12 97 20 44 49 52 2C 30 00 C3 0D |:...... DIR,0...|
000005C0: F2 12 8E 00 C9 0D 24 13 3A 00 DD 0D 56 13 8F 20 |......$.:...V.. |
000005D0: 2A 2A 2A 4D 4F 44 54 41 47 20 2A 2A 2A 00 E3 0D |***MODTAG ***...|
000005E0: 88 13 3A 00 08 0E BA 13 54 45 24 B2 C7 28 C2 28 |..:.....TE$..(.(|
000005F0: 44 41 29 29 20 3A 20 8B 20 54 45 24 B3 B1 22 5F |DA)) : . TE$.."_|
00000600: 22 20 89 20 35 30 35 30 00 13 0E EC 13 49 4E 24 |" . 5050.....IN$|
00000610: B2 22 22 00 2C 0E 1E 14 8D 20 34 31 30 30 3A 8B |."".,.... 4100:.|
00000620: 20 A8 20 4D 4F 20 89 20 35 31 35 30 00 3D 0E 50 | . MO . 5150.=.P|
00000630: 14 54 45 24 B2 C7 28 C2 28 44 41 29 29 00 55 0E |.TE$..(.(DA)).U.|
00000640: 82 14 8B 20 54 45 24 B2 C7 28 32 35 34 29 A7 20 |... TE$..(254). |
00000650: 89 35 34 30 30 00 65 0E B4 14 49 4E 24 B2 49 4E |.5400.e...IN$.IN|
00000660: 24 AA 54 45 24 00 70 0E E6 14 89 20 35 31 35 30 |$.TE$.p.... 5150|
00000670: 00 97 0E 18 15 8B 20 C8 28 49 4E 24 2C 31 29 B2 |...... .(IN$,1).|
00000680: 22 5F 22 A7 49 4E 24 B2 C9 28 49 4E 24 2C C3 28 |"_".IN$..(IN$,.(|
00000690: 49 4E 24 29 AB 31 29 00 9D 0E 4A 15 8E 00 A3 0E |IN$).1)...J.....|
000006A0: 7C 15 3A 00 B5 0E AE 15 8F 20 2A 2A 2A 53 45 4E ||.:...... ***SEN|
000006B0: 44 20 2A 2A 2A 00 BB 0E E0 15 3A 00 DE 0E 12 16 |D ***.....:.....|
000006C0: 55 44 24 B2 22 5F 22 AA 55 44 24 AA C7 28 32 35 |UD$."_".UD$..(25|
000006D0: 34 29 3A 8D 20 34 34 35 30 3A 41 4E B2 31 00 FE |4):. 4450:AN.1..|
000006E0: 0E 44 16 97 20 44 41 2C C6 28 CA 28 55 44 24 2C |.D.. DA,.(.(UD$,|
000006F0: 41 4E 2C 31 29 29 3A 41 4E B2 41 4E AA 31 00 17 |AN,1)):AN.AN.1..|
00000700: 0F 76 16 8D 20 34 31 30 30 3A 8B 20 A8 20 4D 4F |.v.. 4100:. . MO|
00000710: 20 89 20 35 37 35 30 00 31 0F A8 16 8B 20 41 4E | . 5750.1.... AN|
00000720: B1 C3 28 55 44 24 29 A7 20 55 44 24 B2 22 22 3A |..(UD$). UD$."":|
00000730: 8E 00 3B 0F DA 16 89 35 37 30 30 00 41 0F 0C 17 |..;....5700.A...|
00000740: 3A 00 5C 0F 3E 17 8F 20 2A 2A 2A 20 48 4F 56 45 |:.\.>.. *** HOVE|
00000750: 44 50 52 4F 47 52 41 4D 20 2A 2A 2A 00 62 0F 70 |DPROGRAM ***.b.p|
00000760: 17 3A 00 82 0F A2 17 8F 20 47 4F 53 55 42 20 31 |.:...... GOSUB 1|
00000770: 34 30 30 3A 52 45 4D 20 53 45 4E 44 45 52 4B 41 |400:REM SENDERKA|
00000780: 4C 44 00 8C 0F D4 17 99 22 93 22 3B 00 9E 0F 06 |LD......".";....|
00000790: 18 8D 20 34 31 30 30 3A 8F 20 46 4C 41 47 00 CD |.. 4100:. FLAG..|
000007A0: 0F 38 18 8B 20 4D 4F 20 A7 20 8D 20 34 39 35 30 |.8.. MO . . 4950|
000007B0: 3A 99 22 11 11 11 11 11 11 11 11 11 11 11 11 22 |:."............"|
000007C0: 3B 49 4E 24 3B 22 13 22 3B 55 41 24 3B 00 EC 0F |;IN$;".";UA$;...|
000007D0: 6A 18 8B 20 54 45 24 B2 C7 28 32 35 34 29 A7 20 |j.. TE$..(254). |
000007E0: 8D 20 35 35 35 30 3A 8D 34 37 30 30 00 F5 0F 9C |. 5550:.4700....|
000007F0: 18 A1 20 54 24 00 14 10 CE 18 8B 20 54 24 B2 C7 |.. T$...... T$..|
00000800: 28 31 33 33 29 A7 20 55 44 24 B2 55 41 24 3A 54 |(133). UD$.UA$:T|
00000810: 24 B2 22 22 00 32 10 00 19 8B 20 54 24 B3 B1 22 |$."".2.... T$.."|
00000820: 22 A7 20 55 41 24 B2 55 41 24 AA 54 24 3A 99 54 |". UA$.UA$.T$:.T|
00000830: 24 3B 00 3C 10 32 19 89 36 31 35 30 00 42 10 64 |$;.<.2..6150.B.d|
00000840: 19 3A 00 56 10 96 19 8F 20 41 55 54 4F 20 53 45 |.:.V.... AUTO SE|
00000850: 4E 44 2F 4D 4F 44 00 5C 10 C8 19 3A 00 66 10 FA |ND/MOD.\...:.f..|
00000860: 19 89 36 38 30 30 00 86 10 2C 1A 55 44 24 B2 22 |..6800...,.UD$."|
00000870: 48 30 4A 52 45 20 53 45 4E 44 45 52 22 3A 8F 20 |H0JRE SENDER":. |
00000880: 53 45 4E 44 45 52 00 9D 10 5E 1A 8D 35 35 35 30 |SENDER...^..5550|
00000890: 3A 8F 20 47 4F 53 55 42 20 53 45 4E 44 00 BC 10 |:. GOSUB SEND...|
000008A0: 90 1A 8D 34 37 30 30 3A 8D 34 39 35 30 3A 8F 20 |...4700:.4950:. |
000008B0: 47 4F 53 55 42 20 4D 4F 44 54 41 47 00 C5 10 C2 |GOSUB MODTAG....|
000008C0: 1A 99 49 4E 24 00 CF 10 F4 1A 89 36 37 30 30 00 |..IN$......6700.|
000008D0: E6 10 26 1B 55 44 24 B2 22 48 30 4A 52 45 20 53 |..&.UD$."H0JRE S|
000008E0: 45 4E 44 45 52 22 00 EC 10 58 1B 8E 00 F2 10 8A |ENDER"...X......|
000008F0: 1B 3A 00 09 11 BC 1B 8F 20 2A 2A 2A 53 45 4E 44 |.:...... ***SEND|
00000900: 2F 4D 4F 44 20 32 2A 2A 2A 00 0F 11 EE 1B 3A 00 |/MOD 2***.....:.|
00000910: 31 11 B6 1C 8B 20 4D 4F 24 B2 22 53 22 A7 8D 35 |1.... MO$."S"..5|
00000920: 35 35 30 3A 4D 4F 24 B2 22 4D 22 3A 89 37 34 35 |550:MO$."M":.745|
00000930: 30 00 54 11 E8 1C 8B 20 4D 4F 24 B2 22 4D 22 A7 |0.T.... MO$."M".|
00000940: 20 8D 34 37 30 30 3A 8D 34 39 35 30 3A 4D 4F 24 | .4700:.4950:MO$|
00000950: B2 22 53 22 00 5A 11 4C 1D 8E 00 00 00 |."S".Z.L..... |
....... SAVE "SLAG 9",8.....:.).L.MO$."M
".K.~.DA.56577:FLAG.56589:DIR.56579.]...
SEN.255:MOD.0.}.... GOTO 7100:REM SEND/M
ODTAG.....:...F.. ".";...X.."......ABCDE
FGHIJ";......".....ABCDEFGHIJ".L.... X.0
. 9......"....";X;...@.."............";
X...R.......:...V.. SU%(1,9,9).....BI%.0
.#.:.. 2200.).L.:.;.... TAST ******.A.P.
:.[.... T$ : . T$."" . 2050.A.4...G.F.:.
Y.... STYR ******..J.:...... BI%.0 . LS
%.0 : CS%.5...... BI%.1 . LS%.0 : CS%.20
.P.`.. 7100:. GOSUB 1950...... T$."." .
LI%.9 . LI%.LI%.1 : . 2650.$.D.. T$."."
. LI%.0 . LI%.LI%.1 : . 2650.N.... T$.".
" . CO%.9 . CO%.CO%.1 : . 2650.X.(.. T$.
"." . CO%.0 . CO%.CO%.1 : . 2650...Z.LA%
.LS%.LI% : CA%.CS%.CO%...... T$."F" . .
3700 : . MAERK.A.... 2950...... T$."S" .
BI%.BI%.1 : . BI%.1 . BI%.0...".. 2300.
..T.:...... CURSOR ******.....:.!...."."
;.<.... X.0 . LA% : ."."; :..W.N.. X.0 .
CA% : ."."; :....... SU%(BI%,LI%,CO%).1
. . ".X." : . 3300...... SU%(BI%,LI%,CO
%).0 . . ". ."......".";.K.... X.0 . GL%
: ."."; :....H.. X.0 . GA% : ."."; :...
.Z.. SU%(GB%,GI%,GC%).1 . . "X" : . 3550
.1.... SU%(GB%,GI%,GC%).0 . . " ".]...GL
%.LA%:GA%.CA%:GB%.BI%:GI%.LI%:GC%.CO%.C.
....I.B.:.{.T.. MAERK *****.....:...X.SU
%(BI%,LI%,CO%).SU%(BI%,LI%,CO%).1.W....
SU%(BI%,LI%,CO%).1 . SU%(BI%,LI%,CO%).0.
..<.....N.:... .. KOMUNIKATIONSDEL *****
*...R.:...... ***FLAG MO ***.".6.:.1.H.F
A.B(FLAG).K.... FA.16. MO..1:. 4350.T.L.
MO.0.Z.....`.0.:.U.B.. ***PORT UD ***.{.
..:...F.. DIR,255.........*.:...\.. ***P
ORT IND ***.....:...... DIR,0.C.....I.$.
:...V.. ***MODTAG ***.....:.....TE$.G(B(
DA)) : . TE$.."_" . 5050.....IN$."".,...
. 4100:. . MO . 5150.=.P.TE$.G(B(DA)).U.
... TE$.G(254). .5400.E...IN$.IN$.TE$.P.
... 5150...... H(IN$,1)."_".IN$.I(IN$,C(
IN$).1)...J.....|.:...... ***SEND ***...
..:.....UD$."_".UD$.G(254):. 4450:AN.1..
.D.. DA,F(J(UD$,AN,1)):AN.AN.1...V.. 410
0:. . MO . 5750.1.... AN.C(UD$). UD$."":
..;.Z..5700.A...:.\.>.. *** HOVEDPROGRAM
***.B.P.:...... GOSUB 1400:REM SENDERKA
LD...T..".";...... 4100:. FLAG.M.8.. MO
. . 4950:."............";IN$;".";UA$;...
J.. TE$.G(254). . 5550:.4700...... T$...
N.. T$.G(133). UD$.UA$:T$."".2.... T$.."
". UA$.UA$.T$:.T$;.<.2..6150.B.D.:.V....
AUTO SEND/MOD.\.H.:.F....6800...,.UD$."
H0JRE SENDER":. SENDER...^..5550:. GOSUB
SEND......4700:.4950:. GOSUB MODTAG.E.B
..IN$.O....6700...&.UD$."H0JRE SENDER"..
.X.......:...... ***SEND/MOD 2***.....:.
1.... MO$."S"..5550:MO$."M":.7450.T....
MO$."M". .4700:.4950:MO$."S".Z.L.....
> CLICK IMAGE PREVIEW FOR FULL MODAL