SOU.TEXT 1 12'11

FILE INFORMATION

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

FILE TYPE(S): PRG

FILE SIZE: 1.2K

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

APPEARS ON: 1 disk(s)

FILE HASH

c552d873fbd94d786db3b8658c9a31807c1ec5c9610763624746bc9f163671a8

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
AFTEN	SOU.TEXT 1 12'11	PRG	Curtcool, Bo	20	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 33 20 30 35 27 31 31  2F 20 38 00 14 00 3B 00  | 3 05'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  3B 00 04 01 3B 49 4E 54  |$FFCF...;...;INT|
00000120: 45 52 52 55 50 54 20 56  41 52 49 41 42 4C 45 52  |ERRUPT VARIABLER|
00000130: 00 0E 01 3B 00 18 01 49  4E 54 56 45 43 20 C0 24  |...;...INTVEC .$|
00000140: 30 33 31 34 3B 49 4E 54  45 52 52 55 50 54 20 56  |0314;INTERRUPT V|
00000150: 41 52 00 22 01 47 45 4D  20 BA 30 2C 30 20 3B 47  |AR.".GEM .0,0 ;G|
00000160: 41 4D 4D 45 4C 20 49 4E  54 45 52 52 00 2C 01 3B  |AMMEL INTERR.,.;|
00000170: 00 36 01 54 45 4B 53 20  C1 2F 48 45 52 20 4B 41  |.6.TEKS ./HER KA|
00000180: 4E 20 44 55 20 53 4B 52  49 56 45 20 38 30 20 54  |N DU SKRIVE 80 T|
00000190: 45 47 4E 2F 00 40 01 BA  0A 06 30 2C 30 2C 30 00  |EGN/.@....0,0,0.|
000001A0: 4A 01 3B 00 54 01 54 53  4B 52 49 56 20 92 23 38  |J.;.T.TSKRIV .#8|
000001B0: 3B 4C 49 4E 00 5E 01 8D  23 30 20 3B 43 4F 4C 00  |;LIN.^..#0 ;COL.|
000001C0: 68 01 99 00 72 01 96 50  4C 4F 54 00 7C 01 8D 23  |h...r..PLOT.|..#|
000001D0: 30 00 86 01 48 4F 50 20  85 54 45 4B 53 E2 00 90  |0...HOP .TEKS...|
000001E0: 01 B7 4C 49 4E 49 45 00  9A 01 96 43 48 52 4F 55  |..LINIE....CHROU|
000001F0: 54 00 A4 01 AD 00 AE 01  99 00 B8 01 B4 48 4F 50  |T............HOP|
00000200: 00 C2 01 4C 49 4E 49 45  20 92 23 30 3B 4C 49 4E  |...LINIE .#0;LIN|
00000210: 00 CC 01 8D 23 33 20 3B  43 4F 4C 00 D6 01 99 00  |....#3 ;COL.....|
00000220: E0 01 96 50 4C 4F 54 00  EA 01 96 53 4C 55 54 00  |...PLOT....SLUT.|
00000230: F4 01 53 4C 55 54 20 9F  00 FE 01 3B 00 08 02 3B  |..SLUT ....;...;|
00000240: 48 45 4E 54 20 20 20 20  20 20 53 54 41 20 24 36  |HENT      STA $6|
00000250: 30 30 30 00 12 02 3B 00  1C 02 48 45 4E 54 54 45  |000...;...HENTTE|
00000260: 47 4E 20 AE 00 26 02 97  00 30 02 3B 00 3A 02 3B  |GN ..&...0.;.:.;|
00000270: 49 4E 54 45 52 52 55 50  54 20 52 55 54 49 4E 45  |INTERRUPT RUTINE|
00000280: 00 44 02 3B 00 4E 02 49  4E 54 20 96 48 45 4E 54  |.D.;.N.INT .HENT|
00000290: 50 4C 4F 54 00 53 02 96  4F 50 4C 49 4E 00 58 02  |PLOT.S..OPLIN.X.|
000002A0: 8F 24 46 46 00 62 02 85  24 46 46 00 6C 02 86 23  |.$FF.b..$FF.l..#|
000002B0: 31 32 38 20 3B 44 45 43  00 76 02 B1 42 4C 49 4E  |128 ;DEC.v..BLIN|
000002C0: 4B 00 80 02 85 23 32 00  8A 02 84 31 30 32 34 20  |K....#2....1024 |
000002D0: 3B 47 45 4D 20 49 20 53  4B 45 52 4D 00 94 02 95  |;GEM I SKERM....|
000002E0: 28 47 45 4D 29 00 9E 02  3B 00 A8 02 42 4C 49 4E  |(GEM)...;...BLIN|
000002F0: 4B 20 85 23 31 32 39 00  B2 02 84 31 30 32 34 00  |K .#129....1024.|
00000300: BC 02 95 28 47 45 4D 29  00 C6 02 3B 00 D0 02 3B  |...(GEM)...;...;|
00000310: 49 4E 54 20 4F 4E 00 DA  02 3B 00 E4 02 49 4E 54  |INT ON...;...INT|
00000320: 4F 4E 20 85 49 4E 54 56  45 43 0A 02 3B 4C 4F 20  |ON .INTVEC..;LO |
00000330: 41 46 20 56 45 43 00 EE  02 84 47 45 4D 00 F8 02  |AF VEC....GEM...|
00000340: 85 49 4E 54 56 45 43 2B  31 3B 48 49 20 41 46 20  |.INTVEC+1;HI AF |
00000350: 56 45 43 00 02 03 84 47  45 4D 2B 31 00 0C 03 A1  |VEC....GEM+1....|
00000360: 0A 04 3B 49 4E 54 45 52  52 55 50 54 20 46 52 41  |..;INTERRUPT FRA|
00000370: 00 16 03 85 23 49 4E 54  00 20 03 84 49 4E 54 56  |....#INT. ..INTV|
00000380: 45 43 00 2A 03 85 5E 49  4E 54 00 34 03 84 49 4E  |EC.*..^INT.4..IN|
00000390: 54 56 45 43 2B 31 00 3E  03 9E 0A 04 3B 49 4E 54  |TVEC+1.>....;INT|
000003A0: 45 52 52 55 50 54 20 54  49 4C 00 48 03 9F 00 52  |ERRUPT TIL.H...R|
000003B0: 03 3B 00 5C 03 3B 49 4E  54 4F 46 46 00 66 03 3B  |.;.\.;INTOFF.f.;|
000003C0: 00 70 03 49 4E 54 4F 46  46 20 A1 0A 02 3B 49 4E  |.p.INTOFF ...;IN|
000003D0: 54 52 52 55 50 54 20 46  52 41 00 7A 03 85 47 45  |TRRUPT FRA.z..GE|
000003E0: 4D 00 84 03 84 49 4E 54  56 45 43 00 8E 03 85 47  |M....INTVEC....G|
000003F0: 45 4D 2B 31 00 98 03 84  49 4E 54 56 45 43 2B 31  |EM+1....INTVEC+1|
00000400: 00 A2 03 9E 0A 04 3B 49  4E 54 45 52 52 55 50 54  |......;INTERRUPT|
00000410: 20 54 49 4C 00 AC 03 9F  00 B6 03 3B 00 C0 03 3B  | TIL.......;...;|
00000420: 00 CA 03 48 45 4E 54 50  4C 4F 54 20 9B 00 D4 03  |...HENTPLOT ....|
00000430: 96 50 4C 4F 54 00 E8 03  8C 31 30 32 36 00 F2 03  |.PLOT....1026...|
00000440: 91 31 30 32 38 00 FC 03  99 00 06 04 9F 00 10 04  |.1028...........|
00000450: 3B 00 1A 04 3B 00 24 04  4F 50 4C 49 4E 20 9B 00  |;...;.$.OPLIN ..|
00000460: 2E 04 96 50 4C 4F 54 00  38 04 94 23 35 00 42 04  |...PLOT.8..#5.B.|
00000470: B5 46 4C 59 54 00 4C 04  9F 00 56 04 3B 00 60 04  |.FLYT.L...V.;.`.|
00000480: 3B 00 6A 04 46 4C 59 54  20 85 23 31 34 35 20 3B  |;.j.FLYT .#145 ;|
00000490: 43 53 52 20 5E 00 74 04  96 43 48 52 4F 55 54 00  |CSR ^.t..CHROUT.|
000004A0: 7E 04 9F 00 FF FF                                 |~.....          |

.....;S/SOU.TEXT 3 05'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...
;...;INTERRUPT VARIABLER...;...INTVEC .$
0314;INTERRUPT VAR.".GEM .0,0 ;GAMMEL IN
TERR.,.;.6.TEKS A/HER KAN DU SKRIVE 80 T
EGN/.@....0,0,0.J.;.T.TSKRIV .#8;LIN.^..
#0 ;COL.H...R..PLOT.|..#0...HOP .TEKS...
..LINIE....CHROUT............HOP.B.LINIE
 .#0;LIN.L..#3 ;COL.V......PLOT....SLUT.
..SLUT ....;...;HENT      STA $6000...;.
..HENTTEGN ..&...0.;.:.;INTERRUPT RUTINE
.D.;.N.INT .HENTPLOT.S..OPLIN.X..$FF.B..
$FF.L..#128 ;DEC.V..BLINK....#2....1024 
;GEM I SKERM....(GEM)...;...BLINK .#129.
...1024....(GEM).F.;.P.;INT ON.Z.;...INT
ON .INTVEC..;LO AF VEC....GEM....INTVEC+
1;HI AF VEC....GEM+1......;INTERRUPT FRA
....#INT. ..INTVEC.*..^INT.4..INTVEC+1.>
....;INTERRUPT TIL.H...R.;.\.;INTOFF.F.;
.P.INTOFF ...;INTRRUPT FRA.Z..GEM....INT
VEC....GEM+1....INTVEC+1......;INTERRUPT
 TIL.......;...;.J.HENTPLOT ..T..PLOT...
.1026....1028...........;...;.$.OPLIN ..
...PLOT.8..#5.B..FLYT.L...V.;.`.;.J.FLYT
 .#145 ;CSR ^.T..CHROUT.~.....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL