SLAG 8
FILE INFORMATION
FILENAME(S): SLAG 8
FILE TYPE(S): PRG
FILE SIZE: 2.4K
FIRST SEEN: 2025-11-30 19:36:55
APPEARS ON: 1 disk(s)
FILE HASH
549ba5e9b09b2829557ec170e8524b0bbca8005227df2468388c49c411561d4e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AFTEN | SLAG 8 | PRG | Curtcool, Bo | 27 | 16 | 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 38 22 2C 38 00 1D 08 1A 04 3A 00 29 08 |AG 8",8.....:.).| 00000020: 4C 04 4D 4F 24 B2 22 53 22 00 4B 08 7E 04 44 41 |L.MO$."S".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 32 32 31 30 3A 52 45 |... GOTO 2210: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 C3 09 60 09 8D 20 31 |: CS%.20...`.. 1| 000001C0: 39 35 30 00 ED 09 92 09 8B 20 54 24 B2 22 11 22 |950...... T$."."| 000001D0: 20 AF 20 4C 49 25 B3 39 20 A7 20 4C 49 25 B2 4C | . LI%.9 . LI%.L| 000001E0: 49 25 AA 31 20 3A 20 89 20 32 36 35 30 00 17 0A |I%.1 : . 2650...| 000001F0: C4 09 8B 20 54 24 B2 22 91 22 20 AF 20 4C 49 25 |... T$."." . LI%| 00000200: B1 30 20 A7 20 4C 49 25 B2 4C 49 25 AB 31 20 3A |.0 . LI%.LI%.1 :| 00000210: 20 89 20 32 36 35 30 00 41 0A F6 09 8B 20 54 24 | . 2650.A.... T$| 00000220: B2 22 1D 22 20 AF 20 43 4F 25 B3 39 20 A7 20 43 |."." . CO%.9 . C| 00000230: 4F 25 B2 43 4F 25 AA 31 20 3A 20 89 20 32 36 35 |O%.CO%.1 : . 265| 00000240: 30 00 6B 0A 28 0A 8B 20 54 24 B2 22 9D 22 20 AF |0.k.(.. T$."." .| 00000250: 20 43 4F 25 B1 30 20 A7 20 43 4F 25 B2 43 4F 25 | CO%.0 . CO%.CO%| 00000260: AB 31 20 3A 20 89 20 32 36 35 30 00 89 0A 5A 0A |.1 : . 2650...Z.| 00000270: 4C 41 25 B2 4C 53 25 AA 4C 49 25 20 3A 20 43 41 |LA%.LS%.LI% : CA| 00000280: 25 B2 43 53 25 AA 43 4F 25 00 A9 0A 8C 0A 8B 20 |%.CS%.CO%...... | 00000290: 54 24 B2 22 46 22 20 A7 20 8D 20 33 37 30 30 20 |T$."F" . . 3700 | 000002A0: 3A 20 8F 20 4D 41 45 52 4B 00 B4 0A BE 0A 8D 20 |: . MAERK...... | 000002B0: 32 39 35 30 00 DF 0A F0 0A 8B 20 54 24 B2 22 53 |2950...... T$."S| 000002C0: 22 20 A7 20 42 49 25 B2 42 49 25 AA 31 20 3A 20 |" . BI%.BI%.1 : | 000002D0: 8B 20 42 49 25 B1 31 20 A7 20 42 49 25 B2 30 00 |. BI%.1 . BI%.0.| 000002E0: EA 0A 22 0B 89 20 32 33 30 30 00 F0 0A 54 0B 3A |..".. 2300...T.:| 000002F0: 00 04 0B 86 0B 8F 20 43 55 52 53 4F 52 20 2A 2A |...... CURSOR **| 00000300: 2A 2A 2A 2A 00 0A 0B B8 0B 3A 00 14 0B EA 0B 99 |****.....:......| 00000310: 22 13 22 3B 00 2F 0B 1C 0C 81 20 58 B2 30 20 A4 |".";./.... X.0 .| 00000320: 20 4C 41 25 20 3A 20 99 22 11 22 3B 20 3A 82 00 | LA% : ."."; :..| 00000330: 4A 0B 4E 0C 81 20 58 B2 30 20 A4 20 43 41 25 20 |J.N.. X.0 . CA% | 00000340: 3A 20 99 22 1D 22 3B 20 3A 82 00 76 0B 80 0C 8B |: ."."; :..v....| 00000350: 20 53 55 25 28 42 49 25 2C 4C 49 25 2C 43 4F 25 | SU%(BI%,LI%,CO%| 00000360: 29 B2 31 20 A7 20 99 20 22 12 58 92 22 20 3A 20 |).1 . . ".X." : | 00000370: 89 20 33 33 30 30 00 99 0B B2 0C 8B 20 53 55 25 |. 3300...... SU%| 00000380: 28 42 49 25 2C 4C 49 25 2C 43 4F 25 29 B2 30 20 |(BI%,LI%,CO%).0 | 00000390: A7 20 99 20 22 12 20 92 22 00 A3 0B E4 0C 99 22 |. . ". ."......"| 000003A0: 13 22 3B 00 BE 0B 16 0D 81 20 58 B2 30 20 A4 20 |.";...... X.0 . | 000003B0: 47 4C 25 20 3A 20 99 22 11 22 3B 20 3A 82 00 D9 |GL% : ."."; :...| 000003C0: 0B 48 0D 81 20 58 B2 30 20 A4 20 47 41 25 20 3A |.H.. X.0 . GA% :| 000003D0: 20 99 22 1D 22 3B 20 3A 82 00 03 0C 7A 0D 8B 20 | ."."; :....z.. | 000003E0: 53 55 25 28 47 42 25 2C 47 49 25 2C 47 43 25 29 |SU%(GB%,GI%,GC%)| 000003F0: B2 31 20 A7 20 99 20 22 58 22 20 3A 20 89 20 33 |.1 . . "X" : . 3| 00000400: 35 35 30 00 24 0C AC 0D 8B 20 53 55 25 28 47 42 |550.$.... SU%(GB| 00000410: 25 2C 47 49 25 2C 47 43 25 29 B2 30 20 A7 20 99 |%,GI%,GC%).0 . .| 00000420: 20 22 20 22 00 50 0C DE 0D 47 4C 25 B2 4C 41 25 | " ".P...GL%.LA%| 00000430: 3A 47 41 25 B2 43 41 25 3A 47 42 25 B2 42 49 25 |:GA%.CA%:GB%.BI%| 00000440: 3A 47 49 25 B2 4C 49 25 3A 47 43 25 B2 43 4F 25 |:GI%.LI%:GC%.CO%| 00000450: 00 56 0C 10 0E 8E 00 5C 0C 42 0E 3A 00 6E 0C 74 |.V.....\.B.:.n.t| 00000460: 0E 8F 20 4D 41 45 52 4B 20 2A 2A 2A 2A 2A 00 74 |.. MAERK *****.t| 00000470: 0C A6 0E 3A 00 9C 0C D8 0E 53 55 25 28 42 49 25 |...:.....SU%(BI%| 00000480: 2C 4C 49 25 2C 43 4F 25 29 B2 53 55 25 28 42 49 |,LI%,CO%).SU%(BI| 00000490: 25 2C 4C 49 25 2C 43 4F 25 29 AA 31 00 CA 0C 0A |%,LI%,CO%).1....| 000004A0: 0F 8B 20 53 55 25 28 42 49 25 2C 4C 49 25 2C 43 |.. SU%(BI%,LI%,C| 000004B0: 4F 25 29 B1 31 20 A7 20 53 55 25 28 42 49 25 2C |O%).1 . SU%(BI%,| 000004C0: 4C 49 25 2C 43 4F 25 29 B2 30 00 D0 0C 3C 0F 8E |LI%,CO%).0...<..| 000004D0: 00 D6 0C 6E 0F 3A 00 F4 0C A0 0F 8F 20 4B 4F 4D |...n.:...... KOM| 000004E0: 55 4E 49 4B 41 54 49 4F 4E 53 44 45 4C 20 2A 2A |UNIKATIONSDEL **| 000004F0: 2A 2A 2A 2A 00 FA 0C D2 0F 3A 00 0F 0D 04 10 8F |****.....:......| 00000500: 20 2A 2A 2A 46 4C 41 47 20 4D 4F 20 2A 2A 2A 00 | ***FLAG MO ***.| 00000510: 15 0D 36 10 3A 00 24 0D 68 10 46 41 B2 C2 28 46 |..6.:.$.h.FA..(F| 00000520: 4C 41 47 29 00 3E 0D 9A 10 8B 20 46 41 B2 31 36 |LAG).>.... FA.16| 00000530: A7 20 4D 4F B2 AB 31 3A 89 20 34 33 35 30 00 47 |. MO..1:. 4350.G| 00000540: 0D CC 10 4D 4F B2 30 00 4D 0D FE 10 8E 00 53 0D |...MO.0.M.....S.| 00000550: 30 11 3A 00 68 0D 62 11 8F 20 2A 2A 2A 50 4F 52 |0.:.h.b.. ***POR| 00000560: 54 20 55 44 20 2A 2A 2A 00 6E 0D 94 11 3A 00 7C |T UD ***.n...:.|| 00000570: 0D C6 11 97 20 44 49 52 2C 32 35 35 00 82 0D F8 |.... DIR,255....| 00000580: 11 8E 00 88 0D 2A 12 3A 00 9E 0D 5C 12 8F 20 2A |.....*.:...\.. *| 00000590: 2A 2A 50 4F 52 54 20 49 4E 44 20 2A 2A 2A 00 A4 |**PORT IND ***..| 000005A0: 0D 8E 12 3A 00 B0 0D C0 12 97 20 44 49 52 2C 30 |...:...... DIR,0| 000005B0: 00 B6 0D F2 12 8E 00 BC 0D 24 13 3A 00 D0 0D 56 |.........$.:...V| 000005C0: 13 8F 20 2A 2A 2A 4D 4F 44 54 41 47 20 2A 2A 2A |.. ***MODTAG ***| 000005D0: 00 D6 0D 88 13 3A 00 FB 0D BA 13 54 45 24 B2 C7 |.....:.....TE$..| 000005E0: 28 C2 28 44 41 29 29 20 3A 20 8B 20 54 45 24 B3 |(.(DA)) : . TE$.| 000005F0: B1 22 5F 22 20 89 20 35 30 35 30 00 06 0E EC 13 |."_" . 5050.....| 00000600: 49 4E 24 B2 22 22 00 1F 0E 1E 14 8D 20 34 31 30 |IN$.""...... 410| 00000610: 30 3A 8B 20 A8 20 4D 4F 20 89 20 35 31 35 30 00 |0:. . MO . 5150.| 00000620: 30 0E 50 14 54 45 24 B2 C7 28 C2 28 44 41 29 29 |0.P.TE$..(.(DA))| 00000630: 00 48 0E 82 14 8B 20 54 45 24 B2 C7 28 32 35 34 |.H.... TE$..(254| 00000640: 29 A7 20 89 35 34 30 30 00 58 0E B4 14 49 4E 24 |). .5400.X...IN$| 00000650: B2 49 4E 24 AA 54 45 24 00 63 0E E6 14 89 20 35 |.IN$.TE$.c.... 5| 00000660: 31 35 30 00 8A 0E 18 15 8B 20 C8 28 49 4E 24 2C |150...... .(IN$,| 00000670: 31 29 B2 22 5F 22 A7 49 4E 24 B2 C9 28 49 4E 24 |1)."_".IN$..(IN$| 00000680: 2C C3 28 49 4E 24 29 AB 31 29 00 90 0E 4A 15 8E |,.(IN$).1)...J..| 00000690: 00 96 0E 7C 15 3A 00 A8 0E AE 15 8F 20 2A 2A 2A |...|.:...... ***| 000006A0: 53 45 4E 44 20 2A 2A 2A 00 AE 0E E0 15 3A 00 D1 |SEND ***.....:..| 000006B0: 0E 12 16 55 44 24 B2 22 5F 22 AA 55 44 24 AA C7 |...UD$."_".UD$..| 000006C0: 28 32 35 34 29 3A 8D 20 34 34 35 30 3A 41 4E B2 |(254):. 4450:AN.| 000006D0: 31 00 F1 0E 44 16 97 20 44 41 2C C6 28 CA 28 55 |1...D.. DA,.(.(U| 000006E0: 44 24 2C 41 4E 2C 31 29 29 3A 41 4E B2 41 4E AA |D$,AN,1)):AN.AN.| 000006F0: 31 00 0A 0F 76 16 8D 20 34 31 30 30 3A 8B 20 A8 |1...v.. 4100:. .| 00000700: 20 4D 4F 20 89 20 35 37 35 30 00 24 0F A8 16 8B | MO . 5750.$....| 00000710: 20 41 4E B1 C3 28 55 44 24 29 A7 20 55 44 24 B2 | AN..(UD$). UD$.| 00000720: 22 22 3A 8E 00 2E 0F DA 16 89 35 37 30 30 00 34 |"":.......5700.4| 00000730: 0F 0C 17 3A 00 4F 0F 3E 17 8F 20 2A 2A 2A 20 48 |...:.O.>.. *** H| 00000740: 4F 56 45 44 50 52 4F 47 52 41 4D 20 2A 2A 2A 00 |OVEDPROGRAM ***.| 00000750: 55 0F 70 17 3A 00 75 0F A2 17 8F 20 47 4F 53 55 |U.p.:.u.... GOSU| 00000760: 42 20 31 34 30 30 3A 52 45 4D 20 53 45 4E 44 45 |B 1400:REM SENDE| 00000770: 52 4B 41 4C 44 00 7F 0F D4 17 99 22 93 22 3B 00 |RKALD......".";.| 00000780: 91 0F 06 18 8D 20 34 31 30 30 3A 8F 20 46 4C 41 |..... 4100:. FLA| 00000790: 47 00 C0 0F 38 18 8B 20 4D 4F 20 A7 20 8D 20 34 |G...8.. MO . . 4| 000007A0: 39 35 30 3A 99 22 11 11 11 11 11 11 11 11 11 11 |950:."..........| 000007B0: 11 11 22 3B 49 4E 24 3B 22 13 22 3B 55 41 24 3B |..";IN$;".";UA$;| 000007C0: 00 DF 0F 6A 18 8B 20 54 45 24 B2 C7 28 32 35 34 |...j.. TE$..(254| 000007D0: 29 A7 20 8D 20 35 35 35 30 3A 8D 34 37 30 30 00 |). . 5550:.4700.| 000007E0: E8 0F 9C 18 A1 20 54 24 00 07 10 CE 18 8B 20 54 |..... T$...... T| 000007F0: 24 B2 C7 28 31 33 33 29 A7 20 55 44 24 B2 55 41 |$..(133). UD$.UA| 00000800: 24 3A 54 24 B2 22 22 00 25 10 00 19 8B 20 54 24 |$:T$."".%.... T$| 00000810: B3 B1 22 22 A7 20 55 41 24 B2 55 41 24 AA 54 24 |.."". UA$.UA$.T$| 00000820: 3A 99 54 24 3B 00 2F 10 32 19 89 36 31 35 30 00 |:.T$;./.2..6150.| 00000830: 35 10 64 19 3A 00 49 10 96 19 8F 20 41 55 54 4F |5.d.:.I.... AUTO| 00000840: 20 53 45 4E 44 2F 4D 4F 44 00 4F 10 C8 19 3A 00 | SEND/MOD.O...:.| 00000850: 59 10 FA 19 89 36 38 30 30 00 79 10 2C 1A 55 44 |Y....6800.y.,.UD| 00000860: 24 B2 22 48 30 4A 52 45 20 53 45 4E 44 45 52 22 |$."H0JRE SENDER"| 00000870: 3A 8F 20 53 45 4E 44 45 52 00 90 10 5E 1A 8D 35 |:. SENDER...^..5| 00000880: 35 35 30 3A 8F 20 47 4F 53 55 42 20 53 45 4E 44 |550:. GOSUB SEND| 00000890: 00 AF 10 90 1A 8D 34 37 30 30 3A 8D 34 39 35 30 |......4700:.4950| 000008A0: 3A 8F 20 47 4F 53 55 42 20 4D 4F 44 54 41 47 00 |:. GOSUB MODTAG.| 000008B0: B8 10 C2 1A 99 49 4E 24 00 C2 10 F4 1A 89 36 37 |.....IN$......67| 000008C0: 30 30 00 D9 10 26 1B 55 44 24 B2 22 48 30 4A 52 |00...&.UD$."H0JR| 000008D0: 45 20 53 45 4E 44 45 52 22 00 DF 10 58 1B 8E 00 |E SENDER"...X...| 000008E0: E5 10 8A 1B 3A 00 FC 10 BC 1B 8F 20 2A 2A 2A 53 |....:...... ***S| 000008F0: 45 4E 44 2F 4D 4F 44 20 32 2A 2A 2A 00 02 11 EE |END/MOD 2***....| 00000900: 1B 3A 00 0B 11 20 1C A1 20 54 24 00 34 11 52 1C |.:... .. T$.4.R.| 00000910: 8B 54 24 B2 C7 28 31 33 29 A7 55 44 24 B2 54 50 |.T$..(13).UD$.TP| 00000920: 24 3A 54 50 24 B2 22 22 3A 8F 20 47 4F 54 4F 31 |$:TP$."":. GOTO1| 00000930: 35 30 33 30 00 51 11 84 1C 8B 20 54 24 B3 B1 22 |5030.Q.... T$.."| 00000940: 22 A7 99 54 24 3B 3A 54 50 24 B2 54 50 24 AA 54 |"..T$;:TP$.TP$.T| 00000950: 24 00 73 11 B6 1C 8B 20 4D 4F 24 B2 22 53 22 A7 |$.s.... MO$."S".| 00000960: 8D 35 35 35 30 3A 4D 4F 24 B2 22 4D 22 3A 89 37 |.5550:MO$."M":.7| 00000970: 34 35 30 00 A5 11 E8 1C 8B 20 4D 4F 24 B2 22 4D |450...... MO$."M| 00000980: 22 A7 20 8D 34 37 30 30 3A 8D 34 39 35 30 3A 4D |". .4700:.4950:M| 00000990: 4F 24 B2 22 53 22 3A 8B C3 28 49 4E 24 29 B1 30 |O$."S":..(IN$).0| 000009A0: A7 99 49 4E 24 00 B7 11 1A 1D 8F 20 20 50 52 49 |..IN$...... PRI| 000009B0: 4E 54 20 49 4E 24 3B 00 C1 11 4C 1D 89 37 30 35 |NT IN$;...L..705| 000009C0: 30 00 00 00 |0... |
....... SAVE "SLAG 8",8.....:.).L.MO$."S ".K.~.DA.56577:FLAG.56589:DIR.56579.]... SEN.255:MOD.0.}.... GOTO 2210: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 .C.`.. 1950...... T$."." . LI%.9 . LI%.L I%.1 : . 2650...D.. T$."." . LI%.0 . LI% .LI%.1 : . 2650.A.... T$."." . CO%.9 . C O%.CO%.1 : . 2650.K.(.. T$."." . CO%.0 . CO%.CO%.1 : . 2650...Z.LA%.LS%.LI% : CA %.CS%.CO%...... T$."F" . . 3700 : . MAER K...... 2950...... T$."S" . BI%.BI%.1 : . BI%.1 . BI%.0...".. 2300...T.:...... C URSOR ******.....:......".";./.... X.0 . LA% : ."."; :..J.N.. X.0 . CA% : ."."; :..V.... SU%(BI%,LI%,CO%).1 . . ".X." : . 3300...... SU%(BI%,LI%,CO%).0 . . ". . "......".";...... X.0 . GL% : ."."; :..Y .H.. X.0 . GA% : ."."; :....Z.. SU%(GB%, GI%,GC%).1 . . "X" : . 3550.$.... SU%(GB %,GI%,GC%).0 . . " ".P...GL%.LA%:GA%.CA% :GB%.BI%:GI%.LI%:GC%.CO%.V.....\.B.:.N.T .. MAERK *****.T...:...X.SU%(BI%,LI%,CO% ).SU%(BI%,LI%,CO%).1.J.... SU%(BI%,LI%,C O%).1 . SU%(BI%,LI%,CO%).0.P.<...V.N.:.. . .. KOMUNIKATIONSDEL ******...R.:...... ***FLAG MO ***...6.:.$.H.FA.B(FLAG).>.. .. FA.16. MO..1:. 4350.G.L.MO.0.M.....S. 0.:.H.B.. ***PORT UD ***.N...:.|.F.. DIR ,255.........*.:...\.. ***PORT IND ***.. ...:...... DIR,0.........$.:.P.V.. ***MO DTAG ***.V...:.....TE$.G(B(DA)) : . TE$. ."_" . 5050.....IN$.""...... 4100:. . MO . 5150.0.P.TE$.G(B(DA)).H.... TE$.G(254 ). .5400.X...IN$.IN$.TE$.C.... 5150..... . H(IN$,1)."_".IN$.I(IN$,C(IN$).1)...J.. ...|.:...... ***SEND ***.....:.Q...UD$." _".UD$.G(254):. 4450:AN.1...D.. DA,F(J(U D$,AN,1)):AN.AN.1...V.. 4100:. . MO . 57 50.$.... AN.C(UD$). UD$."":....Z..5700.4 ...:.O.>.. *** HOVEDPROGRAM ***.U.P.:.U. ... GOSUB 1400:REM SENDERKALD..T..".";. ..... 4100:. FLAG...8.. MO . . 4950:.".. ..........";IN$;".";UA$;...J.. TE$.G(254 ). . 5550:.4700...... T$...N.. T$.G(133) . UD$.UA$:T$."".%.... T$.."". UA$.UA$.T$ :.T$;./.2..6150.5.D.:.I.... AUTO SEND/MO D.O.H.:.Y....6800.Y.,.UD$."H0JRE SENDER" :. SENDER...^..5550:. GOSUB SEND......47 00:.4950:. GOSUB MODTAG...B..IN$.B....67 00.Y.&.UD$."H0JRE SENDER"...X.......:... ... ***SEND/MOD 2***.....:... .. T$.4.R. .T$.G(13).UD$.TP$:TP$."":. GOTO15030.Q.. .. T$..""..T$;:TP$.TP$.T$.S.... MO$."S". .5550:MO$."M":.7450...... MO$."M". .4700 :.4950:MO$."S":.C(IN$).0..IN$...... PRI NT IN$;.A.L..7050...
> CLICK IMAGE PREVIEW FOR FULL MODAL