SOU.TEXT 1 26'11

FILE INFORMATION

FILENAME(S): SOU.TEXT 1 26'11

FILE TYPE(S): PRG

FILE SIZE: 1.8K

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

APPEARS ON: 1 disk(s)

FILE HASH

f4f54dd74c2b2686b08036c10e9e8905d1b09db52c59a78700e0b7ad4160bf05

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
AFTEN	SOU.TEXT 1 26'11	PRG	Curtcool, Bo	14	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 31 20 32 36 27 31 31  2F 20 38 00 14 00 3B 00  | 1 26'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 3B 20 20 20 20  20 20 20 20 20 4A 53 52  |...;         JSR|
00000090: 20 48 45 4E 54 00 8C 00  96 48 45 4E 54 31 00 96  | HENT....HENT1..|
000000A0: 00 96 49 4E 54 4F 46 46  00 A0 00 96 48 45 4E 54  |..INTOFF....HENT|
000000B0: 54 45 47 4E 00 AA 00 9F  00 B4 00 3B 00 BE 00 3B  |TEGN.......;...;|
000000C0: 00 C8 00 3B 52 55 54 49  4E 45 20 4B 41 4C 44 00  |...;RUTINE KALD.|
000000D0: D2 00 3B 00 DC 00 43 4C  52 20 C0 24 45 35 34 34  |..;...CLR .$E544|
000000E0: 3B 45 4A 20 48 55 53 4B  45 00 E6 00 43 48 52 4F  |;EJ HUSKE...CHRO|
000000F0: 55 54 20 C0 24 46 46 44  32 3B 53 49 44 45 20 32  |UT .$FFD2;SIDE 2|
00000100: 37 32 00 F0 00 50 4C 4F  54 20 C0 24 46 46 46 30  |72...PLOT .$FFF0|
00000110: 00 FA 00 48 45 4E 54 20  C0 24 46 46 43 46 00 04  |...HENT .$FFCF..|
00000120: 01 56 41 52 54 45 4B 53  20 B9 38 33 2C 33 32 00  |.VARTEKS .83,32.|
00000130: 0E 01 56 41 52 50 55 4E  20 C0 33 2A 34 30 2B 31  |..VARPUN .3*40+1|
00000140: 30 32 34 00 18 01 47 45  54 49 4E 20 C0 24 46 46  |024...GETIN .$FF|
00000150: 45 34 00 22 01 3B 00 2C  01 3B 49 4E 54 45 52 52  |E4.".;.,.;INTERR|
00000160: 55 50 54 20 56 41 52 49  41 42 4C 45 52 00 36 01  |UPT VARIABLER.6.|
00000170: 3B 00 40 01 49 4E 54 56  45 43 20 C0 24 30 33 31  |;.@.INTVEC .$031|
00000180: 34 3B 49 4E 54 45 52 52  55 50 54 20 56 41 52 00  |4;INTERRUPT VAR.|
00000190: 4A 01 47 45 4D 20 BA 30  2C 30 20 3B 47 41 4D 4D  |J.GEM .0,0 ;GAMM|
000001A0: 45 4C 20 49 4E 54 45 52  52 00 54 01 3B 00 5E 01  |EL INTERR.T.;.^.|
000001B0: 54 45 4B 53 20 C1 2F 48  45 52 20 4B 41 4E 20 44  |TEKS ./HER KAN D|
000001C0: 55 20 53 4B 52 49 56 45  20 38 30 20 54 45 47 4E  |U SKRIVE 80 TEGN|
000001D0: 2F 00 68 01 BA 0A 06 30  2C 30 2C 30 00 72 01 3B  |/.h....0,0,0.r.;|
000001E0: 00 7C 01 54 53 4B 52 49  56 20 92 23 38 20 3B 43  |.|.TSKRIV .#8 ;C|
000001F0: 4F 4C 00 86 01 8D 23 30  20 3B 4C 49 4E 00 90 01  |OL....#0 ;LIN...|
00000200: 99 00 9A 01 96 50 4C 4F  54 00 A4 01 8D 23 30 00  |.....PLOT....#0.|
00000210: AE 01 48 4F 50 20 85 54  45 4B 53 E2 00 B8 01 B7  |..HOP .TEKS.....|
00000220: 4C 49 4E 49 45 00 C2 01  96 43 48 52 4F 55 54 00  |LINIE....CHROUT.|
00000230: CC 01 AD 00 D6 01 99 00  E0 01 B4 48 4F 50 00 EA  |...........HOP..|
00000240: 01 4C 49 4E 49 45 20 92  23 30 20 3B 43 4F 4C 00  |.LINIE .#0 ;COL.|
00000250: F4 01 8D 23 33 20 3B 4C  49 4E 00 FE 01 99 00 08  |...#3 ;LIN......|
00000260: 02 96 50 4C 4F 54 00 12  02 96 53 4C 55 54 00 1C  |..PLOT....SLUT..|
00000270: 02 53 4C 55 54 20 9F 00  26 02 3B 00 30 02 3B 48  |.SLUT ..&.;.0.;H|
00000280: 45 4E 54 20 20 20 20 20  20 53 54 41 20 24 36 30  |ENT      STA $60|
00000290: 30 30 00 3A 02 3B 00 44  02 3B 48 45 4E 54 54 45  |00.:.;.D.;HENTTE|
000002A0: 47 4E 00 4E 02 48 45 4E  54 54 45 47 4E 20 85 23  |GN.N.HENTTEGN .#|
000002B0: 56 41 52 50 55 4E 00 58  02 84 24 46 42 00 62 02  |VARPUN.X..$FB.b.|
000002C0: 85 5E 56 41 52 50 55 4E  00 6C 02 84 24 46 43 00  |.^VARPUN.l..$FC.|
000002D0: 76 02 85 23 56 41 52 54  45 4B 53 00 80 02 84 24  |v..#VARTEKS....$|
000002E0: 46 44 00 8A 02 85 5E 56  41 52 54 45 4B 53 00 94  |FD....^VARTEKS..|
000002F0: 02 84 24 46 45 00 9E 02  92 23 38 30 00 A8 02 49  |..$FE....#80...I|
00000300: 47 45 4E 20 A2 00 B2 02  85 28 24 46 42 E1 00 BC  |GEN .....($FB...|
00000310: 02 86 23 33 31 00 C6 02  B5 4E 45 53 54 45 00 D0  |..#31....NESTE..|
00000320: 02 80 23 36 34 00 DA 02  4E 45 53 54 45 20 84 28  |..#64...NESTE .(|
00000330: 24 46 44 E1 00 E4 02 93  23 30 00 EE 02 B6 49 47  |$FD.....#0....IG|
00000340: 45 4E 00 F8 02 9F 00 02  03 3B 00 0C 03 3B 48 45  |EN.......;...;HE|
00000350: 4E 54 31 00 16 03 3B 00  20 03 48 45 4E 54 31 20  |NT1...;. .HENT1 |
00000360: 96 47 45 54 49 4E 00 2A  03 B7 48 45 4E 54 31 00  |.GETIN.*..HENT1.|
00000370: 34 03 86 23 31 33 00 3E  03 B7 45 4E 44 4C 4F 4F  |4..#13.>..ENDLOO|
00000380: 50 00 3F 03 96 4B 49 4C  4C 00 48 03 96 43 48 52  |P.?..KILL.H..CHR|
00000390: 4F 55 54 00 52 03 99 00  5C 03 B4 48 45 4E 54 31  |OUT.R...\..HENT1|
000003A0: 00 66 03 45 4E 44 4C 4F  4F 50 20 9F 00 70 03 3B  |.f.ENDLOOP ..p.;|
000003B0: 49 4E 54 45 52 52 55 50  54 20 52 55 54 49 4E 45  |INTERRUPT RUTINE|
000003C0: 00 7A 03 3B 00 84 03 49  4E 54 20 96 48 45 4E 54  |.z.;...INT .HENT|
000003D0: 50 4C 4F 54 00 8E 03 96  4F 50 4C 49 4E 00 98 03  |PLOT....OPLIN...|
000003E0: 8F 24 46 46 00 A2 03 85  24 46 46 00 AC 03 86 23  |.$FF....$FF....#|
000003F0: 31 32 38 20 3B 44 45 43  00 B6 03 B1 42 4C 49 4E  |128 ;DEC....BLIN|
00000400: 4B 00 C0 03 85 23 32 00  CA 03 84 31 30 32 34 20  |K....#2....1024 |
00000410: 3B 47 45 4D 20 49 20 53  4B 45 52 4D 00 D4 03 95  |;GEM I SKERM....|
00000420: 28 47 45 4D 29 00 DE 03  3B 00 E8 03 42 4C 49 4E  |(GEM)...;...BLIN|
00000430: 4B 20 85 23 31 32 39 00  F2 03 84 31 30 32 34 00  |K .#129....1024.|
00000440: FC 03 95 28 47 45 4D 29  00 06 04 3B 00 10 04 3B  |...(GEM)...;...;|
00000450: 49 4E 54 20 4F 4E 00 1A  04 3B 00 24 04 49 4E 54  |INT ON...;.$.INT|
00000460: 4F 4E 20 85 49 4E 54 56  45 43 0A 02 3B 4C 4F 20  |ON .INTVEC..;LO |
00000470: 41 46 20 56 45 43 00 2E  04 84 47 45 4D 00 38 04  |AF VEC....GEM.8.|
00000480: 85 49 4E 54 56 45 43 2B  31 3B 48 49 20 41 46 20  |.INTVEC+1;HI AF |
00000490: 56 45 43 00 42 04 84 47  45 4D 2B 31 00 4C 04 A1  |VEC.B..GEM+1.L..|
000004A0: 0A 04 3B 49 4E 54 45 52  52 55 50 54 20 46 52 41  |..;INTERRUPT FRA|
000004B0: 00 56 04 85 23 49 4E 54  00 60 04 84 49 4E 54 56  |.V..#INT.`..INTV|
000004C0: 45 43 00 6A 04 85 5E 49  4E 54 00 74 04 84 49 4E  |EC.j..^INT.t..IN|
000004D0: 54 56 45 43 2B 31 00 7E  04 9E 0A 04 3B 49 4E 54  |TVEC+1.~....;INT|
000004E0: 45 52 52 55 50 54 20 54  49 4C 00 88 04 9F 00 92  |ERRUPT TIL......|
000004F0: 04 3B 00 9C 04 3B 49 4E  54 4F 46 46 00 A6 04 3B  |.;...;INTOFF...;|
00000500: 00 B0 04 49 4E 54 4F 46  46 20 A1 0A 02 3B 49 4E  |...INTOFF ...;IN|
00000510: 54 52 52 55 50 54 20 46  52 41 00 BA 04 85 47 45  |TRRUPT FRA....GE|
00000520: 4D 00 C4 04 84 49 4E 54  56 45 43 00 CE 04 85 47  |M....INTVEC....G|
00000530: 45 4D 2B 31 00 D8 04 84  49 4E 54 56 45 43 2B 31  |EM+1....INTVEC+1|
00000540: 00 E2 04 9E 0A 04 3B 49  4E 54 45 52 52 55 50 54  |......;INTERRUPT|
00000550: 20 54 49 4C 00 EC 04 9F  00 F6 04 3B 00 00 05 3B  | TIL.......;...;|
00000560: 00 0A 05 48 45 4E 54 50  4C 4F 54 20 9B 00 14 05  |...HENTPLOT ....|
00000570: 96 50 4C 4F 54 00 1E 05  8C 31 30 32 36 00 28 05  |.PLOT....1026.(.|
00000580: 91 31 30 32 38 00 32 05  99 00 3C 05 9F 00 46 05  |.1028.2...<...F.|
00000590: 3B 00 50 05 3B 00 5A 05  4F 50 4C 49 4E 20 9B 00  |;.P.;.Z.OPLIN ..|
000005A0: 64 05 96 50 4C 4F 54 00  6E 05 94 23 35 0A 03 3B  |d..PLOT.n..#5..;|
000005B0: 58 3D 4C 49 4E 49 45 20  35 00 78 05 B5 46 4C 59  |X=LINIE 5.x..FLY|
000005C0: 54 20 3B 3D 3E 58 00 82  05 99 00 8C 05 B4 46 4C  |T ;=>X........FL|
000005D0: 59 54 31 3B 3C 58 00 96  05 9F 00 A0 05 3B 00 AA  |YT1;<X.......;..|
000005E0: 05 3B 00 B4 05 46 4C 59  54 20 93 23 30 0A 03 3B  |.;...FLYT .#0..;|
000005F0: 59 3D 43 4F 4C 20 4F 00  BE 05 B6 4F 50 0A 03 3B  |Y=COL O....OP..;|
00000600: 3D 2F 20 59 00 C8 05 85  23 31 35 37 20 3B 43 52  |=/ Y....#157 ;CR|
00000610: 53 20 56 45 4E 53 54 52  45 00 D2 05 96 43 48 52  |S VENSTRE....CHR|
00000620: 4F 55 54 00 DC 05 9F 00  E6 05 3B 00 F0 05 4F 50  |OUT.......;...OP|
00000630: 20 85 23 31 34 35 20 3B  43 53 52 20 5E 00 FA 05  | .#145 ;CSR ^...|
00000640: 96 43 48 52 4F 55 54 00  04 06 9F 00 0E 06 3B 00  |.CHROUT.......;.|
00000650: 18 06 3B 00 22 06 46 4C  59 54 31 20 94 23 33 0A  |..;.".FLYT1 .#3.|
00000660: 03 3B 58 3D 4C 49 4E 49  45 20 33 00 2C 06 B5 53  |.;X=LINIE 3.,..S|
00000670: 4C 55 54 31 3B 3E 3D 58  00 36 06 93 23 33 39 0A  |LUT1;>=X.6..#39.|
00000680: 02 3B 59 3D 43 4F 4C 20  33 39 00 40 06 B6 4E 45  |.;Y=COL 39.@..NE|
00000690: 44 0A 02 3B 3D 2F 20 59  00 4A 06 85 23 32 39 0A  |D..;=/ Y.J..#29.|
000006A0: 02 3B 43 52 53 20 48 30  4A 52 45 00 54 06 96 43  |.;CRS H0JRE.T..C|
000006B0: 48 52 4F 55 54 00 5E 06  9F 00 68 06 4E 45 44 20  |HROUT.^...h.NED |
000006C0: 85 23 31 37 0A 02 3B 43  52 53 20 4E 45 44 00 72  |.#17..;CRS NED.r|
000006D0: 06 96 43 48 52 4F 55 54  00 7C 06 53 4C 55 54 31  |..CHROUT.|.SLUT1|
000006E0: 20 9F 00 D0 07 3B 4B 49  4C 4C 00 DA 07 3B 00 E4  | ....;KILL...;..|
000006F0: 07 4B 49 4C 4C 20 99 00  EE 07 85 24 44 31 00 F8  |.KILL .....$D1..|
00000700: 07 83 24 44 33 00 02 08  84 24 46 42 00 0C 08 85  |..$D3....$FB....|
00000710: 24 44 32 00 16 08 83 23  24 30 30 00 20 08 84 24  |$D2....#$00. ..$|
00000720: 46 43 00 2A 08 92 23 24  30 30 00 34 08 85 28 24  |FC.*..#$00.4..($|
00000730: 46 42 E1 00 3E 08 81 23  31 32 37 00 48 08 84 28  |FB..>..#127.H..(|
00000740: 24 46 42 E1 00 52 08 9F  00 FF FF                 |$FB..R.....     |

.....;S/SOU.TEXT 1 26'11/ 8...;...;INPUT
 TIL BASIC.(.;.2..$6000.<.;.F.;STYREPROG
RAM.P.;.Z.START ..D.STYR .CLR.N..TSKRIV.
X..INTON...;         JSR HENT....HENT1..
..INTOFF. ..HENTTEGN.......;...;.H.;RUTI
NE KALD.R.;...CLR .$E544;EJ HUSKE...CHRO
UT .$FFD2;SIDE 272...PLOT .$FFF0...HENT 
.$FFCF...VARTEKS .83,32...VARPUN .3*40+1
024...GETIN .$FFE4.".;.,.;INTERRUPT VARI
ABLER.6.;.@.INTVEC .$0314;INTERRUPT VAR.
J.GEM .0,0 ;GAMMEL INTERR.T.;.^.TEKS A/H
ER KAN DU SKRIVE 80 TEGN/.H....0,0,0.R.;
.|.TSKRIV .#8 ;COL....#0 ;LIN........PLO
T....#0...HOP .TEKS.....LINIE.B..CHROUT.
L...V......HOP...LINIE .#0 ;COL....#3 ;L
IN........PLOT....SLUT...SLUT ..&.;.0.;H
ENT      STA $6000.:.;.D.;HENTTEGN.N.HEN
TTEGN .#VARPUN.X..$FB.B..^VARPUN.L..$FC.
V..#VARTEKS....$FD....^VARTEKS....$FE...
.#80...IGEN .....($FB.....#31.F..NESTE.P
..#64.Z.NESTE .($FD.....#0....IGEN......
.;...;HENT1...;. .HENT1 .GETIN.*..HENT1.
4..#13.>..ENDLOOP.?..KILL.H..CHROUT.R...
\..HENT1.F.ENDLOOP ..P.;INTERRUPT RUTINE
.Z.;...INT .HENTPLOT....OPLIN....$FF....
$FF....#128 ;DEC....BLINK....#2.J..1024 
;GEM I SKERM.T..(GEM)...;...BLINK .#129.
...1024....(GEM)...;...;INT ON...;.$.INT
ON .INTVEC..;LO AF VEC....GEM.8..INTVEC+
1;HI AF VEC.B..GEM+1.L....;INTERRUPT FRA
.V..#INT.`..INTVEC.J..^INT.T..INTVEC+1.~
....;INTERRUPT TIL.......;...;INTOFF...;
...INTOFF ...;INTRRUPT FRA....GEM.D..INT
VEC.N..GEM+1.X..INTVEC+1......;INTERRUPT
 TIL.......;...;...HENTPLOT .....PLOT...
.1026.(..1028.2...<...F.;.P.;.Z.OPLIN ..
D..PLOT.N..#5..;X=LINIE 5.X..FLYT ;=>X..
......FLYT1;<X..... .;...;...FLYT .#0..;
Y=COL O....OP..;=/ Y.H..#157 ;CRS VENSTR
E.R..CHROUT.......;...OP .#145 ;CSR ^...
.CHROUT.......;...;.".FLYT1 .#3..;X=LINI
E 3.,..SLUT1;>=X.6..#39..;Y=COL 39.@..NE
D..;=/ Y.J..#29..;CRS H0JRE.T..CHROUT.^.
..H.NED .#17..;CRS NED.R..CHROUT.|.SLUT1
 ..P.;KILL.Z.;...KILL .....$D1....$D3...
.$FB....$D2....#$00. ..$FC.*..#$00.4..($
FB..>..#127.H..($FB..R.....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL