SOU.TEXT 3 19'11

FILE INFORMATION

FILENAME(S): SOU.TEXT 3 19'11

FILE TYPE(S): PRG

FILE SIZE: 1.6K

FIRST SEEN: 2025-11-30 19:36:55

APPEARS ON: 1 disk(s)

FILE HASH

ab5fc285c4c58e7accb34f5992b22063f876a1a9a8ae4d20908bbc202dd8b021

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
AFTEN	SOU.TEXT 3 19'11	PRG	Curtcool, Bo	21	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 AA 0A 00 3B 53 2F  53 4F 55 2E 54 45 58 54  |.....;S/SOU.TEXT|
00000010: 20 32 20 31 39 27 31 31  2F 20 38 00 14 00 3B 00  | 2 19'11/ 8...;.|
00000020: 1E 00 3B 49 4E 50 55 54  20 54 49 4C 20 42 41 53  |..;INPUT TIL BAS|
00000030: 49 43 00 28 00 3B 00 32  00 B8 24 36 30 30 30 00  |IC.(.;.2..$6000.|
00000040: 3C 00 3B 00 46 00 3B 53  54 59 52 45 50 52 4F 47  |<.;.F.;STYREPROG|
00000050: 52 41 4D 00 50 00 3B 00  5A 00 53 54 41 52 54 20  |RAM.P.;.Z.START |
00000060: BF 00 64 00 53 54 59 52  20 96 43 4C 52 00 6E 00  |..d.STYR .CLR.n.|
00000070: 96 54 53 4B 52 49 56 00  78 00 96 49 4E 54 4F 4E  |.TSKRIV.x..INTON|
00000080: 00 82 00 96 48 45 4E 54  00 8C 00 96 49 4E 54 4F  |....HENT....INTO|
00000090: 46 46 00 96 00 96 48 45  4E 54 54 45 47 4E 00 A0  |FF....HENTTEGN..|
000000A0: 00 9F 00 AA 00 3B 00 B4  00 3B 00 BE 00 3B 52 55  |.....;...;...;RU|
000000B0: 54 49 4E 45 20 4B 41 4C  44 00 C8 00 3B 00 D2 00  |TINE KALD...;...|
000000C0: 43 4C 52 20 C0 24 45 35  34 34 3B 45 4A 20 48 55  |CLR .$E544;EJ HU|
000000D0: 53 4B 45 00 DC 00 43 48  52 4F 55 54 20 C0 24 46  |SKE...CHROUT .$F|
000000E0: 46 44 32 3B 53 49 44 45  20 32 37 32 00 E6 00 50  |FD2;SIDE 272...P|
000000F0: 4C 4F 54 20 C0 24 46 46  46 30 00 F0 00 48 45 4E  |LOT .$FFF0...HEN|
00000100: 54 20 C0 24 46 46 43 46  00 FA 00 56 41 52 54 45  |T .$FFCF...VARTE|
00000110: 4B 53 20 B9 38 33 2C 33  32 00 04 01 56 41 52 50  |KS .83,32...VARP|
00000120: 55 4E 20 C0 33 2A 34 30  2B 31 30 32 34 00 0E 01  |UN .3*40+1024...|
00000130: 3B 00 18 01 3B 49 4E 54  45 52 52 55 50 54 20 56  |;...;INTERRUPT V|
00000140: 41 52 49 41 42 4C 45 52  00 22 01 3B 00 2C 01 49  |ARIABLER.".;.,.I|
00000150: 4E 54 56 45 43 20 C0 24  30 33 31 34 3B 49 4E 54  |NTVEC .$0314;INT|
00000160: 45 52 52 55 50 54 20 56  41 52 00 36 01 47 45 4D  |ERRUPT VAR.6.GEM|
00000170: 20 BA 30 2C 30 20 3B 47  41 4D 4D 45 4C 20 49 4E  | .0,0 ;GAMMEL IN|
00000180: 54 45 52 52 00 40 01 3B  00 4A 01 54 45 4B 53 20  |TERR.@.;.J.TEKS |
00000190: C1 2F 48 45 52 20 4B 41  4E 20 44 55 20 53 4B 52  |./HER KAN DU SKR|
000001A0: 49 56 45 20 38 30 20 54  45 47 4E 2F 00 54 01 BA  |IVE 80 TEGN/.T..|
000001B0: 0A 06 30 2C 30 2C 30 00  5E 01 3B 00 68 01 54 53  |..0,0,0.^.;.h.TS|
000001C0: 4B 52 49 56 20 92 23 38  20 3B 43 4F 4C 00 72 01  |KRIV .#8 ;COL.r.|
000001D0: 8D 23 30 20 3B 4C 49 4E  00 7C 01 99 00 86 01 96  |.#0 ;LIN.|......|
000001E0: 50 4C 4F 54 00 90 01 8D  23 30 00 9A 01 48 4F 50  |PLOT....#0...HOP|
000001F0: 20 85 54 45 4B 53 E2 00  A4 01 B7 4C 49 4E 49 45  | .TEKS.....LINIE|
00000200: 00 AE 01 96 43 48 52 4F  55 54 00 B8 01 AD 00 C2  |....CHROUT......|
00000210: 01 99 00 CC 01 B4 48 4F  50 00 D6 01 4C 49 4E 49  |......HOP...LINI|
00000220: 45 20 92 23 30 20 3B 43  4F 4C 00 E0 01 8D 23 33  |E .#0 ;COL....#3|
00000230: 20 3B 4C 49 4E 00 EA 01  99 00 F4 01 96 50 4C 4F  | ;LIN........PLO|
00000240: 54 00 FE 01 96 53 4C 55  54 00 08 02 53 4C 55 54  |T....SLUT...SLUT|
00000250: 20 9F 00 12 02 3B 00 1C  02 3B 48 45 4E 54 20 20  | ....;...;HENT  |
00000260: 20 20 20 20 53 54 41 20  24 36 30 30 30 00 26 02  |    STA $6000.&.|
00000270: 3B 00 30 02 3B 48 45 4E  54 54 45 47 4E 00 3A 02  |;.0.;HENTTEGN.:.|
00000280: 48 45 4E 54 54 45 47 4E  20 85 23 56 41 52 50 55  |HENTTEGN .#VARPU|
00000290: 4E 00 44 02 84 24 46 42  00 4E 02 85 5E 56 41 52  |N.D..$FB.N..^VAR|
000002A0: 50 55 4E 00 58 02 84 24  46 43 00 62 02 85 23 56  |PUN.X..$FC.b..#V|
000002B0: 41 52 54 45 4B 53 00 6C  02 84 24 46 44 00 76 02  |ARTEKS.l..$FD.v.|
000002C0: 85 5E 56 41 52 54 45 4B  53 00 80 02 84 24 46 45  |.^VARTEKS....$FE|
000002D0: 00 82 02 92 23 38 30 00  83 02 49 47 45 4E 20 A2  |....#80...IGEN .|
000002E0: 00 84 02 85 28 24 46 42  E1 00 86 02 86 23 33 31  |....($FB.....#31|
000002F0: 00 88 02 B5 4E 45 53 54  45 00 8A 02 80 23 36 34  |....NESTE....#64|
00000300: 00 8C 02 4E 45 53 54 45  20 84 28 24 46 44 E1 00  |...NESTE .($FD..|
00000310: 8E 02 93 23 30 00 90 02  B6 49 47 45 4E 00 92 02  |...#0....IGEN...|
00000320: 9F 00 94 02 3B 49 4E 54  45 52 52 55 50 54 20 52  |....;INTERRUPT R|
00000330: 55 54 49 4E 45 00 9E 02  3B 00 A8 02 49 4E 54 20  |UTINE...;...INT |
00000340: 96 48 45 4E 54 50 4C 4F  54 00 B2 02 96 4F 50 4C  |.HENTPLOT....OPL|
00000350: 49 4E 00 BC 02 8F 24 46  46 00 C6 02 85 24 46 46  |IN....$FF....$FF|
00000360: 00 D0 02 86 23 31 32 38  20 3B 44 45 43 00 DA 02  |....#128 ;DEC...|
00000370: B1 42 4C 49 4E 4B 00 E4  02 85 23 32 00 EE 02 84  |.BLINK....#2....|
00000380: 31 30 32 34 20 3B 47 45  4D 20 49 20 53 4B 45 52  |1024 ;GEM I SKER|
00000390: 4D 00 F8 02 95 28 47 45  4D 29 00 02 03 3B 00 0C  |M....(GEM)...;..|
000003A0: 03 42 4C 49 4E 4B 20 85  23 31 32 39 00 16 03 84  |.BLINK .#129....|
000003B0: 31 30 32 34 00 20 03 95  28 47 45 4D 29 00 2A 03  |1024. ..(GEM).*.|
000003C0: 3B 00 34 03 3B 49 4E 54  20 4F 4E 00 3E 03 3B 00  |;.4.;INT ON.>.;.|
000003D0: 48 03 49 4E 54 4F 4E 20  85 49 4E 54 56 45 43 0A  |H.INTON .INTVEC.|
000003E0: 02 3B 4C 4F 20 41 46 20  56 45 43 00 52 03 84 47  |.;LO AF VEC.R..G|
000003F0: 45 4D 00 5C 03 85 49 4E  54 56 45 43 2B 31 3B 48  |EM.\..INTVEC+1;H|
00000400: 49 20 41 46 20 56 45 43  00 66 03 84 47 45 4D 2B  |I AF VEC.f..GEM+|
00000410: 31 00 70 03 A1 0A 04 3B  49 4E 54 45 52 52 55 50  |1.p....;INTERRUP|
00000420: 54 20 46 52 41 00 7A 03  85 23 49 4E 54 00 84 03  |T FRA.z..#INT...|
00000430: 84 49 4E 54 56 45 43 00  8E 03 85 5E 49 4E 54 00  |.INTVEC....^INT.|
00000440: 98 03 84 49 4E 54 56 45  43 2B 31 00 A2 03 9E 0A  |...INTVEC+1.....|
00000450: 04 3B 49 4E 54 45 52 52  55 50 54 20 54 49 4C 00  |.;INTERRUPT TIL.|
00000460: AC 03 9F 00 B6 03 3B 00  C0 03 3B 49 4E 54 4F 46  |......;...;INTOF|
00000470: 46 00 CA 03 3B 00 D4 03  49 4E 54 4F 46 46 20 A1  |F...;...INTOFF .|
00000480: 0A 02 3B 49 4E 54 52 52  55 50 54 20 46 52 41 00  |..;INTRRUPT FRA.|
00000490: DE 03 85 47 45 4D 00 E8  03 84 49 4E 54 56 45 43  |...GEM....INTVEC|
000004A0: 00 F2 03 85 47 45 4D 2B  31 00 FC 03 84 49 4E 54  |....GEM+1....INT|
000004B0: 56 45 43 2B 31 00 06 04  9E 0A 04 3B 49 4E 54 45  |VEC+1......;INTE|
000004C0: 52 52 55 50 54 20 54 49  4C 00 10 04 9F 00 1A 04  |RRUPT TIL.......|
000004D0: 3B 00 24 04 3B 00 2E 04  48 45 4E 54 50 4C 4F 54  |;.$.;...HENTPLOT|
000004E0: 20 9B 00 38 04 96 50 4C  4F 54 00 42 04 8C 31 30  | ..8..PLOT.B..10|
000004F0: 32 36 00 4C 04 91 31 30  32 38 00 56 04 99 00 60  |26.L..1028.V...`|
00000500: 04 9F 00 6A 04 3B 00 74  04 3B 00 7E 04 4F 50 4C  |...j.;.t.;.~.OPL|
00000510: 49 4E 20 9B 00 88 04 96  50 4C 4F 54 00 92 04 94  |IN .....PLOT....|
00000520: 23 35 0A 03 3B 58 3D 4C  49 4E 49 45 20 35 00 9C  |#5..;X=LINIE 5..|
00000530: 04 B5 46 4C 59 54 20 3B  3D 3E 58 00 A6 04 99 00  |..FLYT ;=>X.....|
00000540: B0 04 B4 46 4C 59 54 31  3B 3C 58 00 BA 04 9F 00  |...FLYT1;<X.....|
00000550: C4 04 3B 00 CE 04 3B 00  D8 04 46 4C 59 54 20 93  |..;...;...FLYT .|
00000560: 23 30 0A 03 3B 59 3D 43  4F 4C 20 4F 00 E2 04 B6  |#0..;Y=COL O....|
00000570: 4F 50 0A 03 3B 3D 2F 20  59 00 EC 04 85 23 31 35  |OP..;=/ Y....#15|
00000580: 37 20 3B 43 52 53 20 56  45 4E 53 54 52 45 00 F6  |7 ;CRS VENSTRE..|
00000590: 04 96 43 48 52 4F 55 54  00 00 05 9F 00 0A 05 3B  |..CHROUT.......;|
000005A0: 00 14 05 4F 50 20 85 23  31 34 35 20 3B 43 53 52  |...OP .#145 ;CSR|
000005B0: 20 5E 00 1E 05 96 43 48  52 4F 55 54 00 28 05 9F  | ^....CHROUT.(..|
000005C0: 00 32 05 3B 00 3C 05 3B  00 46 05 46 4C 59 54 31  |.2.;.<.;.F.FLYT1|
000005D0: 20 94 23 33 0A 03 3B 58  3D 4C 49 4E 49 45 20 33  | .#3..;X=LINIE 3|
000005E0: 00 50 05 B5 53 4C 55 54  31 3B 3E 3D 58 00 5A 05  |.P..SLUT1;>=X.Z.|
000005F0: 93 23 33 39 0A 02 3B 59  3D 43 4F 4C 20 33 39 00  |.#39..;Y=COL 39.|
00000600: 64 05 B6 4E 45 44 0A 02  3B 3D 2F 20 59 00 6E 05  |d..NED..;=/ Y.n.|
00000610: 85 23 32 39 0A 02 3B 43  52 53 20 48 30 4A 52 45  |.#29..;CRS H0JRE|
00000620: 00 78 05 96 43 48 52 4F  55 54 00 82 05 9F 00 8C  |.x..CHROUT......|
00000630: 05 4E 45 44 20 85 23 31  37 0A 02 3B 43 52 53 20  |.NED .#17..;CRS |
00000640: 4E 45 44 00 96 05 96 43  48 52 4F 55 54 00 A0 05  |NED....CHROUT...|
00000650: 53 4C 55 54 31 20 9F 00  FF FF                    |SLUT1 ....      |

.....;S/SOU.TEXT 2 19'11/ 8...;...;INPUT
 TIL BASIC.(.;.2..$6000.<.;.F.;STYREPROG
RAM.P.;.Z.START ..D.STYR .CLR.N..TSKRIV.
X..INTON....HENT....INTOFF....HENTTEGN. 
.....;...;...;RUTINE KALD.H.;.R.CLR .$E5
44;EJ HUSKE...CHROUT .$FFD2;SIDE 272...P
LOT .$FFF0...HENT .$FFCF...VARTEKS .83,3
2...VARPUN .3*40+1024...;...;INTERRUPT V
ARIABLER.".;.,.INTVEC .$0314;INTERRUPT V
AR.6.GEM .0,0 ;GAMMEL INTERR.@.;.J.TEKS 
A/HER KAN DU SKRIVE 80 TEGN/.T....0,0,0.
^.;.H.TSKRIV .#8 ;COL.R..#0 ;LIN.|......
PLOT....#0...HOP .TEKS.....LINIE....CHRO
UT.....B...L..HOP.V.LINIE .#0 ;COL....#3
 ;LIN........PLOT....SLUT...SLUT ....;..
.;HENT      STA $6000.&.;.0.;HENTTEGN.:.
HENTTEGN .#VARPUN.D..$FB.N..^VARPUN.X..$
FC.B..#VARTEKS.L..$FD.V..^VARTEKS....$FE
....#80...IGEN .....($FB.....#31....NEST
E....#64...NESTE .($FD.....#0....IGEN...
....;INTERRUPT RUTINE...;...INT .HENTPLO
T....OPLIN....$FF.F..$FF.P..#128 ;DEC.Z.
.BLINK....#2....1024 ;GEM I SKERM....(GE
M)...;...BLINK .#129....1024. ..(GEM).*.
;.4.;INT ON.>.;.H.INTON .INTVEC..;LO AF 
VEC.R..GEM.\..INTVEC+1;HI AF VEC.F..GEM+
1.P....;INTERRUPT FRA.Z..#INT....INTVEC.
...^INT....INTVEC+1......;INTERRUPT TIL.
......;...;INTOFF.J.;.T.INTOFF ...;INTRR
UPT FRA....GEM....INTVEC....GEM+1....INT
VEC+1......;INTERRUPT TIL.......;.$.;...
HENTPLOT ..8..PLOT.B..1026.L..1028.V...`
...J.;.T.;.~.OPLIN .....PLOT....#5..;X=L
INIE 5....FLYT ;=>X........FLYT1;<X.....
D.;.N.;.X.FLYT .#0..;Y=COL O....OP..;=/ 
Y....#157 ;CRS VENSTRE....CHROUT.......;
...OP .#145 ;CSR ^....CHROUT.(...2.;.<.;
.F.FLYT1 .#3..;X=LINIE 3.P..SLUT1;>=X.Z.
.#39..;Y=COL 39.D..NED..;=/ Y.N..#29..;C
RS H0JRE.X..CHROUT.......NED .#17..;CRS 
NED....CHROUT. .SLUT1 ....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL