SOU.TEXT 1 19'11

FILE INFORMATION

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

3d57da62d7aaa65f76dc63efd326f5bcef124323569802c4e6b7580979e2bff6

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
AFTEN	SOU.TEXT 1 19'11	PRG	Curtcool, Bo	15	6	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 31 20 31 39 27 31 31  2F 20 38 00 14 00 3B 00  | 1 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 3B 20 20  20 20 20 20 20 20 20 4A  |FF...;         J|
000000A0: 53 52 20 48 45 4E 54 54  45 47 4E 00 A0 00 9F 00  |SR HENTTEGN.....|
000000B0: AA 00 3B 00 B4 00 3B 00  BE 00 3B 52 55 54 49 4E  |..;...;...;RUTIN|
000000C0: 45 20 4B 41 4C 44 00 C8  00 3B 00 D2 00 43 4C 52  |E KALD...;...CLR|
000000D0: 20 C0 24 45 35 34 34 3B  45 4A 20 48 55 53 4B 45  | .$E544;EJ HUSKE|
000000E0: 00 DC 00 43 48 52 4F 55  54 20 C0 24 46 46 44 32  |...CHROUT .$FFD2|
000000F0: 3B 53 49 44 45 20 32 37  32 00 E6 00 50 4C 4F 54  |;SIDE 272...PLOT|
00000100: 20 C0 24 46 46 46 30 00  F0 00 48 45 4E 54 20 C0  | .$FFF0...HENT .|
00000110: 24 46 46 43 46 00 FA 00  56 41 52 54 45 4B 53 20  |$FFCF...VARTEKS |
00000120: B9 38 33 2C 33 32 00 04  01 56 41 52 50 55 4E 20  |.83,32...VARPUN |
00000130: C0 33 2A 34 30 2B 31 30  32 34 00 0E 01 3B 00 18  |.3*40+1024...;..|
00000140: 01 3B 49 4E 54 45 52 52  55 50 54 20 56 41 52 49  |.;INTERRUPT VARI|
00000150: 41 42 4C 45 52 00 22 01  3B 00 2C 01 49 4E 54 56  |ABLER.".;.,.INTV|
00000160: 45 43 20 C0 24 30 33 31  34 3B 49 4E 54 45 52 52  |EC .$0314;INTERR|
00000170: 55 50 54 20 56 41 52 00  36 01 47 45 4D 20 BA 30  |UPT VAR.6.GEM .0|
00000180: 2C 30 20 3B 47 41 4D 4D  45 4C 20 49 4E 54 45 52  |,0 ;GAMMEL INTER|
00000190: 52 00 40 01 3B 00 4A 01  54 45 4B 53 20 C1 2F 48  |R.@.;.J.TEKS ./H|
000001A0: 45 52 20 4B 41 4E 20 44  55 20 53 4B 52 49 56 45  |ER KAN DU SKRIVE|
000001B0: 20 38 30 20 54 45 47 4E  2F 00 54 01 BA 0A 06 30  | 80 TEGN/.T....0|
000001C0: 2C 30 2C 30 00 5E 01 3B  00 68 01 54 53 4B 52 49  |,0,0.^.;.h.TSKRI|
000001D0: 56 20 92 23 38 20 3B 43  4F 4C 00 72 01 8D 23 30  |V .#8 ;COL.r..#0|
000001E0: 20 3B 4C 49 4E 00 7C 01  99 00 86 01 96 50 4C 4F  | ;LIN.|......PLO|
000001F0: 54 00 90 01 8D 23 30 00  9A 01 48 4F 50 20 85 54  |T....#0...HOP .T|
00000200: 45 4B 53 E2 00 A4 01 B7  4C 49 4E 49 45 00 AE 01  |EKS.....LINIE...|
00000210: 96 43 48 52 4F 55 54 00  B8 01 AD 00 C2 01 99 00  |.CHROUT.........|
00000220: CC 01 B4 48 4F 50 00 D6  01 4C 49 4E 49 45 20 92  |...HOP...LINIE .|
00000230: 23 30 20 3B 43 4F 4C 00  E0 01 8D 23 33 20 3B 4C  |#0 ;COL....#3 ;L|
00000240: 49 4E 00 EA 01 99 00 F4  01 96 50 4C 4F 54 00 FE  |IN........PLOT..|
00000250: 01 96 53 4C 55 54 00 08  02 53 4C 55 54 20 9F 00  |..SLUT...SLUT ..|
00000260: 12 02 3B 00 1C 02 3B 48  45 4E 54 20 20 20 20 20  |..;...;HENT     |
00000270: 20 53 54 41 20 24 36 30  30 30 00 26 02 3B 00 30  | STA $6000.&.;.0|
00000280: 02 48 45 4E 54 54 45 47  4E 00 3A 02 85 23 56 41  |.HENTTEGN.:..#VA|
00000290: 52 50 55 4E 00 44 02 84  24 46 42 00 4E 02 85 5E  |RPUN.D..$FB.N..^|
000002A0: 56 41 52 50 55 4E 00 58  02 84 24 46 43 00 62 02  |VARPUN.X..$FC.b.|
000002B0: 85 23 56 41 52 54 45 4B  53 00 6C 02 84 24 46 44  |.#VARTEKS.l..$FD|
000002C0: 00 76 02 85 5E 56 41 52  54 45 4B 53 00 80 02 84  |.v..^VARTEKS....|
000002D0: 24 46 45 00 82 02 92 23  38 30 00 84 02 49 47 45  |$FE....#80...IGE|
000002E0: 4E 20 85 28 24 46 42 E1  00 86 02 86 23 33 31 00  |N .($FB.....#31.|
000002F0: 88 02 B5 4E 45 53 54 45  00 8A 02 80 23 36 34 00  |...NESTE....#64.|
00000300: 8C 02 4E 45 53 54 45 20  84 28 24 46 44 E1 00 8E  |..NESTE .($FD...|
00000310: 02 A2 00 90 02 B6 49 47  45 4E 00 92 02 9F 00 94  |......IGEN......|
00000320: 02 3B 49 4E 54 45 52 52  55 50 54 20 52 55 54 49  |.;INTERRUPT RUTI|
00000330: 4E 45 00 9E 02 3B 00 A8  02 49 4E 54 20 96 48 45  |NE...;...INT .HE|
00000340: 4E 54 50 4C 4F 54 00 B2  02 96 4F 50 4C 49 4E 00  |NTPLOT....OPLIN.|
00000350: BC 02 8F 24 46 46 00 C6  02 85 24 46 46 00 D0 02  |...$FF....$FF...|
00000360: 86 23 31 32 38 20 3B 44  45 43 00 DA 02 B1 42 4C  |.#128 ;DEC....BL|
00000370: 49 4E 4B 00 E4 02 85 23  32 00 EE 02 84 31 30 32  |INK....#2....102|
00000380: 34 20 3B 47 45 4D 20 49  20 53 4B 45 52 4D 00 F8  |4 ;GEM I SKERM..|
00000390: 02 95 28 47 45 4D 29 00  02 03 3B 00 0C 03 42 4C  |..(GEM)...;...BL|
000003A0: 49 4E 4B 20 85 23 31 32  39 00 16 03 84 31 30 32  |INK .#129....102|
000003B0: 34 00 20 03 95 28 47 45  4D 29 00 2A 03 3B 00 34  |4. ..(GEM).*.;.4|
000003C0: 03 3B 49 4E 54 20 4F 4E  00 3E 03 3B 00 48 03 49  |.;INT ON.>.;.H.I|
000003D0: 4E 54 4F 4E 20 85 49 4E  54 56 45 43 0A 02 3B 4C  |NTON .INTVEC..;L|
000003E0: 4F 20 41 46 20 56 45 43  00 52 03 84 47 45 4D 00  |O AF VEC.R..GEM.|
000003F0: 5C 03 85 49 4E 54 56 45  43 2B 31 3B 48 49 20 41  |\..INTVEC+1;HI A|
00000400: 46 20 56 45 43 00 66 03  84 47 45 4D 2B 31 00 70  |F VEC.f..GEM+1.p|
00000410: 03 A1 0A 04 3B 49 4E 54  45 52 52 55 50 54 20 46  |....;INTERRUPT F|
00000420: 52 41 00 7A 03 85 23 49  4E 54 00 84 03 84 49 4E  |RA.z..#INT....IN|
00000430: 54 56 45 43 00 8E 03 85  5E 49 4E 54 00 98 03 84  |TVEC....^INT....|
00000440: 49 4E 54 56 45 43 2B 31  00 A2 03 9E 0A 04 3B 49  |INTVEC+1......;I|
00000450: 4E 54 45 52 52 55 50 54  20 54 49 4C 00 AC 03 9F  |NTERRUPT TIL....|
00000460: 00 B6 03 3B 00 C0 03 3B  49 4E 54 4F 46 46 00 CA  |...;...;INTOFF..|
00000470: 03 3B 00 D4 03 49 4E 54  4F 46 46 20 A1 0A 02 3B  |.;...INTOFF ...;|
00000480: 49 4E 54 52 52 55 50 54  20 46 52 41 00 DE 03 85  |INTRRUPT FRA....|
00000490: 47 45 4D 00 E8 03 84 49  4E 54 56 45 43 00 F2 03  |GEM....INTVEC...|
000004A0: 85 47 45 4D 2B 31 00 FC  03 84 49 4E 54 56 45 43  |.GEM+1....INTVEC|
000004B0: 2B 31 00 06 04 9E 0A 04  3B 49 4E 54 45 52 52 55  |+1......;INTERRU|
000004C0: 50 54 20 54 49 4C 00 10  04 9F 00 1A 04 3B 00 24  |PT TIL.......;.$|
000004D0: 04 3B 00 2E 04 48 45 4E  54 50 4C 4F 54 20 9B 00  |.;...HENTPLOT ..|
000004E0: 38 04 96 50 4C 4F 54 00  42 04 8C 31 30 32 36 00  |8..PLOT.B..1026.|
000004F0: 4C 04 91 31 30 32 38 00  56 04 99 00 60 04 9F 00  |L..1028.V...`...|
00000500: 6A 04 3B 00 74 04 3B 00  7E 04 4F 50 4C 49 4E 20  |j.;.t.;.~.OPLIN |
00000510: 9B 00 88 04 96 50 4C 4F  54 00 92 04 94 23 35 0A  |.....PLOT....#5.|
00000520: 03 3B 58 3D 4C 49 4E 49  45 20 35 00 9C 04 B5 46  |.;X=LINIE 5....F|
00000530: 4C 59 54 20 3B 3D 3E 58  00 A6 04 99 00 B0 04 B4  |LYT ;=>X........|
00000540: 46 4C 59 54 31 3B 3C 58  00 BA 04 9F 00 C4 04 3B  |FLYT1;<X.......;|
00000550: 00 CE 04 3B 00 D8 04 46  4C 59 54 20 93 23 30 0A  |...;...FLYT .#0.|
00000560: 03 3B 59 3D 43 4F 4C 20  4F 00 E2 04 B6 4F 50 0A  |.;Y=COL O....OP.|
00000570: 03 3B 3D 2F 20 59 00 EC  04 85 23 31 35 37 20 3B  |.;=/ Y....#157 ;|
00000580: 43 52 53 20 56 45 4E 53  54 52 45 00 F6 04 96 43  |CRS VENSTRE....C|
00000590: 48 52 4F 55 54 00 00 05  9F 00 0A 05 3B 00 14 05  |HROUT.......;...|
000005A0: 4F 50 20 85 23 31 34 35  20 3B 43 53 52 20 5E 00  |OP .#145 ;CSR ^.|
000005B0: 1E 05 96 43 48 52 4F 55  54 00 28 05 9F 00 32 05  |...CHROUT.(...2.|
000005C0: 3B 00 3C 05 3B 00 46 05  46 4C 59 54 31 20 94 23  |;.<.;.F.FLYT1 .#|
000005D0: 33 0A 03 3B 58 3D 4C 49  4E 49 45 20 33 00 50 05  |3..;X=LINIE 3.P.|
000005E0: B5 53 4C 55 54 31 3B 3E  3D 58 00 5A 05 93 23 33  |.SLUT1;>=X.Z..#3|
000005F0: 39 0A 02 3B 59 3D 43 4F  4C 20 33 39 00 64 05 B6  |9..;Y=COL 39.d..|
00000600: 4E 45 44 0A 02 3B 3D 2F  20 59 00 6E 05 85 23 32  |NED..;=/ Y.n..#2|
00000610: 39 0A 02 3B 43 52 53 20  48 30 4A 52 45 00 78 05  |9..;CRS H0JRE.x.|
00000620: 96 43 48 52 4F 55 54 00  82 05 9F 00 8C 05 4E 45  |.CHROUT.......NE|
00000630: 44 20 85 23 31 37 0A 02  3B 43 52 53 20 4E 45 44  |D .#17..;CRS NED|
00000640: 00 96 05 96 43 48 52 4F  55 54 00 A0 05 53 4C 55  |....CHROUT...SLU|
00000650: 54 31 20 9F 00 FF FF                              |T1 ....         |

.....;S/SOU.TEXT 1 19'11/ 8...;...;INPUT
 TIL BASIC.(.;.2..$6000.<.;.F.;STYREPROG
RAM.P.;.Z.START ..D.STYR .CLR.N..TSKRIV.
X..INTON....HENT....INTOFF...;         J
SR HENTTEGN. .....;...;...;RUTINE KALD.H
.;.R.CLR .$E544;EJ HUSKE...CHROUT .$FFD2
;SIDE 272...PLOT .$FFF0...HENT .$FFCF...
VARTEKS .83,32...VARPUN .3*40+1024...;..
.;INTERRUPT VARIABLER.".;.,.INTVEC .$031
4;INTERRUPT VAR.6.GEM .0,0 ;GAMMEL INTER
R.@.;.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....CHROUT.....B...L..HOP.V.LINIE .
#0 ;COL....#3 ;LIN........PLOT....SLUT..
.SLUT ....;...;HENT      STA $6000.&.;.0
.HENTTEGN.:..#VARPUN.D..$FB.N..^VARPUN.X
..$FC.B..#VARTEKS.L..$FD.V..^VARTEKS....
$FE....#80...IGEN .($FB.....#31....NESTE
....#64...NESTE .($FD.........IGEN......
.;INTERRUPT RUTINE...;...INT .HENTPLOT..
..OPLIN....$FF.F..$FF.P..#128 ;DEC.Z..BL
INK....#2....1024 ;GEM I SKERM....(GEM).
..;...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 ...;INTRRUPT
 FRA....GEM....INTVEC....GEM+1....INTVEC
+1......;INTERRUPT TIL.......;.$.;...HEN
TPLOT ..8..PLOT.B..1026.L..1028.V...`...
J.;.T.;.~.OPLIN .....PLOT....#5..;X=LINI
E 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..#3
9..;Y=COL 39.D..NED..;=/ Y.N..#29..;CRS 
H0JRE.X..CHROUT.......NED .#17..;CRS NED
....CHROUT. .SLUT1 ....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL