SOU.TEXT 2 19'11

FILE INFORMATION

FILENAME(S): SOU.TEXT 2 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

40e374887434a3b4a88bc377a47596e78adb6f164b153a43e8c68bb3f6a204f6

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
AFTEN	SOU.TEXT 2 19'11	PRG	Curtcool, Bo	21	0	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  84 02 49 47 45 4E 20 85  |....#80...IGEN .|
000002E0: 28 24 46 42 E1 00 86 02  86 23 33 31 00 88 02 B5  |($FB.....#31....|
000002F0: 4E 45 53 54 45 00 8A 02  80 23 36 34 00 8C 02 4E  |NESTE....#64...N|
00000300: 45 53 54 45 20 84 28 24  46 44 E1 00 8E 02 A2 00  |ESTE .($FD......|
00000310: 90 02 B6 49 47 45 4E 00  92 02 9F 00 94 02 3B 49  |...IGEN.......;I|
00000320: 4E 54 45 52 52 55 50 54  20 52 55 54 49 4E 45 00  |NTERRUPT RUTINE.|
00000330: 9E 02 3B 00 A8 02 49 4E  54 20 96 48 45 4E 54 50  |..;...INT .HENTP|
00000340: 4C 4F 54 00 B2 02 96 4F  50 4C 49 4E 00 BC 02 8F  |LOT....OPLIN....|
00000350: 24 46 46 00 C6 02 85 24  46 46 00 D0 02 86 23 31  |$FF....$FF....#1|
00000360: 32 38 20 3B 44 45 43 00  DA 02 B1 42 4C 49 4E 4B  |28 ;DEC....BLINK|
00000370: 00 E4 02 85 23 32 00 EE  02 84 31 30 32 34 20 3B  |....#2....1024 ;|
00000380: 47 45 4D 20 49 20 53 4B  45 52 4D 00 F8 02 95 28  |GEM I SKERM....(|
00000390: 47 45 4D 29 00 02 03 3B  00 0C 03 42 4C 49 4E 4B  |GEM)...;...BLINK|
000003A0: 20 85 23 31 32 39 00 16  03 84 31 30 32 34 00 20  | .#129....1024. |
000003B0: 03 95 28 47 45 4D 29 00  2A 03 3B 00 34 03 3B 49  |..(GEM).*.;.4.;I|
000003C0: 4E 54 20 4F 4E 00 3E 03  3B 00 48 03 49 4E 54 4F  |NT ON.>.;.H.INTO|
000003D0: 4E 20 85 49 4E 54 56 45  43 0A 02 3B 4C 4F 20 41  |N .INTVEC..;LO A|
000003E0: 46 20 56 45 43 00 52 03  84 47 45 4D 00 5C 03 85  |F VEC.R..GEM.\..|
000003F0: 49 4E 54 56 45 43 2B 31  3B 48 49 20 41 46 20 56  |INTVEC+1;HI AF V|
00000400: 45 43 00 66 03 84 47 45  4D 2B 31 00 70 03 A1 0A  |EC.f..GEM+1.p...|
00000410: 04 3B 49 4E 54 45 52 52  55 50 54 20 46 52 41 00  |.;INTERRUPT FRA.|
00000420: 7A 03 85 23 49 4E 54 00  84 03 84 49 4E 54 56 45  |z..#INT....INTVE|
00000430: 43 00 8E 03 85 5E 49 4E  54 00 98 03 84 49 4E 54  |C....^INT....INT|
00000440: 56 45 43 2B 31 00 A2 03  9E 0A 04 3B 49 4E 54 45  |VEC+1......;INTE|
00000450: 52 52 55 50 54 20 54 49  4C 00 AC 03 9F 00 B6 03  |RRUPT TIL.......|
00000460: 3B 00 C0 03 3B 49 4E 54  4F 46 46 00 CA 03 3B 00  |;...;INTOFF...;.|
00000470: D4 03 49 4E 54 4F 46 46  20 A1 0A 02 3B 49 4E 54  |..INTOFF ...;INT|
00000480: 52 52 55 50 54 20 46 52  41 00 DE 03 85 47 45 4D  |RRUPT FRA....GEM|
00000490: 00 E8 03 84 49 4E 54 56  45 43 00 F2 03 85 47 45  |....INTVEC....GE|
000004A0: 4D 2B 31 00 FC 03 84 49  4E 54 56 45 43 2B 31 00  |M+1....INTVEC+1.|
000004B0: 06 04 9E 0A 04 3B 49 4E  54 45 52 52 55 50 54 20  |.....;INTERRUPT |
000004C0: 54 49 4C 00 10 04 9F 00  1A 04 3B 00 24 04 3B 00  |TIL.......;.$.;.|
000004D0: 2E 04 48 45 4E 54 50 4C  4F 54 20 9B 00 38 04 96  |..HENTPLOT ..8..|
000004E0: 50 4C 4F 54 00 42 04 8C  31 30 32 36 00 4C 04 91  |PLOT.B..1026.L..|
000004F0: 31 30 32 38 00 56 04 99  00 60 04 9F 00 6A 04 3B  |1028.V...`...j.;|
00000500: 00 74 04 3B 00 7E 04 4F  50 4C 49 4E 20 9B 00 88  |.t.;.~.OPLIN ...|
00000510: 04 96 50 4C 4F 54 00 92  04 94 23 35 0A 03 3B 58  |..PLOT....#5..;X|
00000520: 3D 4C 49 4E 49 45 20 35  00 9C 04 B5 46 4C 59 54  |=LINIE 5....FLYT|
00000530: 20 3B 3D 3E 58 00 A6 04  99 00 B0 04 B4 46 4C 59  | ;=>X........FLY|
00000540: 54 31 3B 3C 58 00 BA 04  9F 00 C4 04 3B 00 CE 04  |T1;<X.......;...|
00000550: 3B 00 D8 04 46 4C 59 54  20 93 23 30 0A 03 3B 59  |;...FLYT .#0..;Y|
00000560: 3D 43 4F 4C 20 4F 00 E2  04 B6 4F 50 0A 03 3B 3D  |=COL O....OP..;=|
00000570: 2F 20 59 00 EC 04 85 23  31 35 37 20 3B 43 52 53  |/ Y....#157 ;CRS|
00000580: 20 56 45 4E 53 54 52 45  00 F6 04 96 43 48 52 4F  | VENSTRE....CHRO|
00000590: 55 54 00 00 05 9F 00 0A  05 3B 00 14 05 4F 50 20  |UT.......;...OP |
000005A0: 85 23 31 34 35 20 3B 43  53 52 20 5E 00 1E 05 96  |.#145 ;CSR ^....|
000005B0: 43 48 52 4F 55 54 00 28  05 9F 00 32 05 3B 00 3C  |CHROUT.(...2.;.<|
000005C0: 05 3B 00 46 05 46 4C 59  54 31 20 94 23 33 0A 03  |.;.F.FLYT1 .#3..|
000005D0: 3B 58 3D 4C 49 4E 49 45  20 33 00 50 05 B5 53 4C  |;X=LINIE 3.P..SL|
000005E0: 55 54 31 3B 3E 3D 58 00  5A 05 93 23 33 39 0A 02  |UT1;>=X.Z..#39..|
000005F0: 3B 59 3D 43 4F 4C 20 33  39 00 64 05 B6 4E 45 44  |;Y=COL 39.d..NED|
00000600: 0A 02 3B 3D 2F 20 59 00  6E 05 85 23 32 39 0A 02  |..;=/ Y.n..#29..|
00000610: 3B 43 52 53 20 48 30 4A  52 45 00 78 05 96 43 48  |;CRS H0JRE.x..CH|
00000620: 52 4F 55 54 00 82 05 9F  00 8C 05 4E 45 44 20 85  |ROUT.......NED .|
00000630: 23 31 37 0A 02 3B 43 52  53 20 4E 45 44 00 96 05  |#17..;CRS NED...|
00000640: 96 43 48 52 4F 55 54 00  A0 05 53 4C 55 54 31 20  |.CHROUT...SLUT1 |
00000650: 9F 00 FF FF                                       |....            |

.....;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....NESTE...
.#64...NESTE .($FD.........IGEN.......;I
NTERRUPT RUTINE...;...INT .HENTPLOT....O
PLIN....$FF.F..$FF.P..#128 ;DEC.Z..BLINK
....#2....1024 ;GEM I SKERM....(GEM)...;
...BLINK .#129....1024. ..(GEM).*.;.4.;I
NT ON.>.;.H.INTON .INTVEC..;LO AF VEC.R.
.GEM.\..INTVEC+1;HI AF VEC.F..GEM+1.P...
.;INTERRUPT FRA.Z..#INT....INTVEC....^IN
T....INTVEC+1......;INTERRUPT TIL.......
;...;INTOFF.J.;.T.INTOFF ...;INTRRUPT FR
A....GEM....INTVEC....GEM+1....INTVEC+1.
.....;INTERRUPT TIL.......;.$.;...HENTPL
OT ..8..PLOT.B..1026.L..1028.V...`...J.;
.T.;.~.OPLIN .....PLOT....#5..;X=LINIE 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.FLY
T1 .#3..;X=LINIE 3.P..SLUT1;>=X.Z..#39..
;Y=COL 39.D..NED..;=/ Y.N..#29..;CRS H0J
RE.X..CHROUT.......NED .#17..;CRS NED...
.CHROUT. .SLUT1 ....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL