_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

SOU.TEXT 3 26'11

FILE INFORMATION

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

FILE TYPE(S): PRG

FILE SIZE: 2K

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

APPEARS ON: 1 disk(s)

FILE HASH

bdeebb9650c2b739a625dd0de735477e1c456611ea75da8d9eccf9b6875e3401

FOUND ON DISKS (1 DISKS)

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

.....;S/SOU.TEXT 2 26'11/ 8...;...;INPUT
 TIL BASIC.(.;.2..$6000.<.;.F.;STYREPROG
RAM.P.;.Z.START ..D.STYR .CLR.N..TSKRIV.
X..INTON....#0....$CC ;CURSOR ON...;    
     JSR HENT. ..HENT1....#1....$CC ;CUR
SOR OFF....INTOFF.H..HENTTEGN.R.....;...
;...;RUTINE KALD...;...CLR .$E544;EJ HUS
KE...CHROUT .$FFD2;SIDE 272...PLOT .$FFF
0.".HENT .$FFCF.,.VARTEKS .83,32.6.VARPU
N .3*40+1024.@.GETIN .$FFE4.J.;.T.;INTER
RUPT VARIABLER.^.;.H.INTVEC .$0314;INTER
RUPT VAR.R.GEM .0,0 ;GAMMEL INTERR.|.;..
.TEKS A/HER KAN DU SKRIVE 80 TEGN/......
0,0,0...;...TSKRIV .#8 ;COL....#0 ;LIN..
...B..PLOT.L..#0.V.HOP .TEKS.....LINIE..
..CHROUT............HOP...LINIE .#0 ;COL
....#3 ;LIN.&...0..PLOT.:..SLUT.D.SLUT .
.N.;.X.;HENT      STA $6000.B.;.L.;HENTT
EGN.V.HENTTEGN .#VARPUN....$FB....^VARPU
N....$FC....#VARTEKS....$FD....^VARTEKS.
...$FE.F..#80.P.IGEN ..Z..($FB.....#31..
..NESTE....#64...NESTE .($FD.....#0....I
GEN. ...*.;.4.;HENT1.>.;.H.HENT1 .GETIN.
R..HENT1.\..#13.F..ENDLOOP.P..#148.Z..TE
GNUD....#20....TEGNUD....#145....TEGNUD.
...#157....TEGNUD....#17.A..TEGNUD.B..#2
9.C..TEGNUD.J..KILL.T..CHROUT........HEN
T1...ENDLOOP ....;INTERRUPT RUTINE...;..
.INT .HENTPLOT....OPLIN.$..$FF....$FF.8.
.#128 ;DEC.B..BLINK.L..#2.V..1024 ;GEM I
 SKERM.`..(GEM).J.;.T.BLINK .#129.~..102
4....(GEM)...;...;INT ON...;...INTON .IN
TVEC..;LO AF VEC....GEM.D..INTVEC+1;HI A
F VEC.N..GEM+1.X....;INTERRUPT FRA....#I
NT....INTVEC....^INT....INTVEC+1......;I
NTERRUPT TIL.......;.(.;INTOFF.2.;.<.INT
OFF ...;INTRRUPT FRA.F..GEM.P..INTVEC.Z.
.GEM+1.D..INTVEC+1.N....;INTERRUPT TIL.X
.....;...;...HENTPLOT .. ..PLOT....1026.
...1028.....H...R.;...;...OPLIN .....PLO
T....#5..;X=LINIE 5....FLYT ;=>X........
FLYT1;<X."...,.;.6.;.@.FLYT .#0..;Y=COL 
O.J..OP..;=/ Y.T..#157 ;CRS VENSTRE.^..C
HROUT.H...R.;.|.OP .#145 ;CSR ^....CHROU
T.......;...;...FLYT1 .#3..;X=LINIE 3...
.SLUT1;>=X.B..#39..;Y=COL 39.L..NED..;=/
 Y.V..#29..;CRS H0JRE....CHROUT.......NE
D .#17..;CRS NED....CHROUT...SLUT1 ....T
EGNUD .KILL...;KILL...;.&.KILL ..0...:..
$D1.D..$D3.N..$FB.X..$D2.B..#$00.L..$FC.
V..#$00....($FB.....#127....($FB.... ...
....
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL