@SOU.TEXT 2 26'1

FILE INFORMATION

FILENAME(S): @SOU.TEXT 2 26'1

FILE TYPE(S): PRG

FILE SIZE: 1.9K

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

APPEARS ON: 1 disk(s)

FILE HASH

ad3ebb919130e373bbe2a9e17b3b9e1c30805c859ddf62682d796497e46c7f58

FOUND ON DISKS (1 DISKS)

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

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL