SOU.TEXT 1 03'12
FILE INFORMATION
FILENAME(S): SOU.TEXT 1 03'12
FILE TYPE(S): PRG
FILE SIZE: 2.3K
FIRST SEEN: 2025-11-30 19:36:55
APPEARS ON: 1 disk(s)
FILE HASH
f9db5be93a1844556feab627aa728c7f3db5b381fcdc547597afe281712a7c50
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AFTEN | SOU.TEXT 1 03'12 | PRG | Curtcool, Bo | 13 | 10 | 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 30 33 27 31 32 2F 20 38 00 14 00 3B 00 | 1 03'12/ 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 CD 00 96 56 45 4B 54 00 D2 00 |TTEGN....VEKT...| 000000F0: 9F 00 DC 00 3B 00 E6 00 3B 00 F0 00 3B 52 55 54 |....;...;...;RUT| 00000100: 49 4E 45 20 4B 41 4C 44 00 FA 00 3B 00 04 01 43 |INE KALD...;...C| 00000110: 4C 52 20 C0 24 45 35 34 34 3B 45 4A 20 48 55 53 |LR .$E544;EJ HUS| 00000120: 4B 45 00 0E 01 43 48 52 4F 55 54 20 C0 24 46 46 |KE...CHROUT .$FF| 00000130: 44 32 3B 53 49 44 45 20 32 37 32 00 18 01 50 4C |D2;SIDE 272...PL| 00000140: 4F 54 20 C0 24 46 46 46 30 00 22 01 48 45 4E 54 |OT .$FFF0.".HENT| 00000150: 20 C0 24 46 46 43 46 00 2C 01 56 41 52 54 45 4B | .$FFCF.,.VARTEK| 00000160: 53 20 B9 38 33 2C 33 32 00 36 01 56 41 52 50 55 |S .83,32.6.VARPU| 00000170: 4E 20 C0 33 2A 34 30 2B 31 30 32 34 00 40 01 47 |N .3*40+1024.@.G| 00000180: 45 54 49 4E 20 C0 24 46 46 45 34 00 4A 01 3B 00 |ETIN .$FFE4.J.;.| 00000190: 54 01 3B 49 4E 54 45 52 52 55 50 54 20 56 41 52 |T.;INTERRUPT VAR| 000001A0: 49 41 42 4C 45 52 00 5E 01 3B 00 68 01 49 4E 54 |IABLER.^.;.h.INT| 000001B0: 56 45 43 20 C0 24 30 33 31 34 3B 49 4E 54 45 52 |VEC .$0314;INTER| 000001C0: 52 55 50 54 20 56 41 52 00 72 01 47 45 4D 20 BA |RUPT VAR.r.GEM .| 000001D0: 30 2C 30 20 3B 47 41 4D 4D 45 4C 20 49 4E 54 45 |0,0 ;GAMMEL INTE| 000001E0: 52 52 00 7C 01 3B 00 86 01 54 45 4B 53 20 C1 2F |RR.|.;...TEKS ./| 000001F0: 68 65 72 20 6B 61 6E 20 64 75 20 73 6B 72 69 76 |her kan du skriv| 00000200: 65 20 38 30 20 74 65 67 6E 2F 00 90 01 BA 0A 06 |e 80 tegn/......| 00000210: 30 2C 30 2C 30 00 9A 01 3B 00 A4 01 54 53 4B 52 |0,0,0...;...TSKR| 00000220: 49 56 20 92 23 38 20 3B 43 4F 4C 00 AE 01 8D 23 |IV .#8 ;COL....#| 00000230: 30 20 3B 4C 49 4E 00 B8 01 99 00 C2 01 96 50 4C |0 ;LIN........PL| 00000240: 4F 54 00 CC 01 8D 23 30 00 D6 01 48 4F 50 20 85 |OT....#0...HOP .| 00000250: 54 45 4B 53 E2 00 E0 01 B7 4C 49 4E 49 45 00 EA |TEKS.....LINIE..| 00000260: 01 96 43 48 52 4F 55 54 00 F4 01 AD 00 FE 01 99 |..CHROUT........| 00000270: 00 08 02 B4 48 4F 50 00 12 02 4C 49 4E 49 45 20 |....HOP...LINIE | 00000280: 92 23 30 20 3B 43 4F 4C 00 1C 02 8D 23 33 20 3B |.#0 ;COL....#3 ;| 00000290: 4C 49 4E 00 26 02 99 00 30 02 96 50 4C 4F 54 00 |LIN.&...0..PLOT.| 000002A0: 3A 02 96 53 4C 55 54 00 44 02 53 4C 55 54 20 9F |:..SLUT.D.SLUT .| 000002B0: 00 4E 02 3B 00 58 02 3B 48 45 4E 54 20 20 20 20 |.N.;.X.;HENT | 000002C0: 20 20 53 54 41 20 24 36 30 30 30 00 62 02 3B 00 | STA $6000.b.;.| 000002D0: 6C 02 3B 48 45 4E 54 54 45 47 4E 00 76 02 48 45 |l.;HENTTEGN.v.HE| 000002E0: 4E 54 54 45 47 4E 20 85 23 56 41 52 50 55 4E 00 |NTTEGN .#VARPUN.| 000002F0: 80 02 84 24 46 42 00 8A 02 85 5E 56 41 52 50 55 |...$FB....^VARPU| 00000300: 4E 00 94 02 84 24 46 43 00 9E 02 85 23 56 41 52 |N....$FC....#VAR| 00000310: 54 45 4B 53 00 A8 02 84 24 46 44 00 B2 02 85 5E |TEKS....$FD....^| 00000320: 56 41 52 54 45 4B 53 00 BC 02 84 24 46 45 00 C6 |VARTEKS....$FE..| 00000330: 02 92 23 38 30 00 D0 02 49 47 45 4E 20 A2 00 DA |..#80...IGEN ...| 00000340: 02 85 28 24 46 42 E1 00 E4 02 86 23 33 31 00 EE |..($FB.....#31..| 00000350: 02 B5 4E 45 53 54 45 00 F8 02 80 23 36 34 00 02 |..NESTE....#64..| 00000360: 03 4E 45 53 54 45 20 84 28 24 46 44 E1 00 0C 03 |.NESTE .($FD....| 00000370: 93 23 30 00 16 03 B6 49 47 45 4E 00 20 03 9F 00 |.#0....IGEN. ...| 00000380: 2A 03 3B 00 34 03 3B 48 45 4E 54 31 00 3E 03 3B |*.;.4.;HENT1.>.;| 00000390: 00 48 03 48 45 4E 54 31 20 96 47 45 54 49 4E 00 |.H.HENT1 .GETIN.| 000003A0: 52 03 B7 48 45 4E 54 31 00 5C 03 86 23 31 33 00 |R..HENT1.\..#13.| 000003B0: 66 03 B7 45 4E 44 4C 4F 4F 50 00 70 03 86 23 31 |f..ENDLOOP.p..#1| 000003C0: 34 38 00 7A 03 B7 54 45 47 4E 55 44 00 84 03 86 |48.z..TEGNUD....| 000003D0: 23 32 30 00 8E 03 B7 54 45 47 4E 55 44 00 98 03 |#20....TEGNUD...| 000003E0: 86 23 31 34 35 00 A2 03 B7 54 45 47 4E 55 44 00 |.#145....TEGNUD.| 000003F0: AC 03 86 23 31 35 37 00 B6 03 B7 54 45 47 4E 55 |...#157....TEGNU| 00000400: 44 00 C0 03 86 23 31 37 00 CA 03 B7 54 45 47 4E |D....#17....TEGN| 00000410: 55 44 00 D4 03 86 23 32 39 00 DE 03 B7 54 45 47 |UD....#29....TEG| 00000420: 4E 55 44 00 E8 03 86 23 39 34 00 F2 03 B5 48 45 |NUD....#94....HE| 00000430: 4E 54 31 00 FC 03 86 23 33 32 00 06 04 B4 48 45 |NT1....#32....HE| 00000440: 4E 54 31 00 10 04 54 45 47 4E 55 44 20 96 4B 49 |NT1...TEGNUD .KI| 00000450: 4C 4C 00 1A 04 96 43 48 52 4F 55 54 00 24 04 99 |LL....CHROUT.$..| 00000460: 00 2E 04 B4 48 45 4E 54 31 00 38 04 45 4E 44 4C |....HENT1.8.ENDL| 00000470: 4F 4F 50 20 96 46 49 52 4B 41 4E 54 00 42 04 9F |OOP .FIRKANT.B..| 00000480: 00 4C 04 3B 49 4E 54 45 52 52 55 50 54 20 52 55 |.L.;INTERRUPT RU| 00000490: 54 49 4E 45 00 56 04 3B 00 60 04 49 4E 54 20 96 |TINE.V.;.`.INT .| 000004A0: 48 45 4E 54 50 4C 4F 54 00 6A 04 96 4F 50 4C 49 |HENTPLOT.j..OPLI| 000004B0: 4E 00 74 04 8F 24 46 46 00 7E 04 85 24 46 46 00 |N.t..$FF.~..$FF.| 000004C0: 88 04 86 23 31 32 38 20 3B 44 45 43 00 92 04 B1 |...#128 ;DEC....| 000004D0: 42 4C 49 4E 4B 00 9C 04 85 23 32 00 A6 04 84 31 |BLINK....#2....1| 000004E0: 30 32 34 20 3B 47 45 4D 20 49 20 53 4B 45 52 4D |024 ;GEM I SKERM| 000004F0: 00 B0 04 95 28 47 45 4D 29 00 BA 04 3B 00 C4 04 |....(GEM)...;...| 00000500: 42 4C 49 4E 4B 20 85 23 31 32 39 00 CE 04 84 31 |BLINK .#129....1| 00000510: 30 32 34 00 D8 04 95 28 47 45 4D 29 00 E2 04 3B |024....(GEM)...;| 00000520: 00 EC 04 3B 49 4E 54 20 4F 4E 00 F6 04 3B 00 00 |...;INT ON...;..| 00000530: 05 49 4E 54 4F 4E 20 85 49 4E 54 56 45 43 0A 02 |.INTON .INTVEC..| 00000540: 3B 4C 4F 20 41 46 20 56 45 43 00 0A 05 84 47 45 |;LO AF VEC....GE| 00000550: 4D 00 14 05 85 49 4E 54 56 45 43 2B 31 3B 48 49 |M....INTVEC+1;HI| 00000560: 20 41 46 20 56 45 43 00 1E 05 84 47 45 4D 2B 31 | AF VEC....GEM+1| 00000570: 00 28 05 A1 0A 04 3B 49 4E 54 45 52 52 55 50 54 |.(....;INTERRUPT| 00000580: 20 46 52 41 00 32 05 85 23 49 4E 54 00 3C 05 84 | FRA.2..#INT.<..| 00000590: 49 4E 54 56 45 43 00 46 05 85 5E 49 4E 54 00 50 |INTVEC.F..^INT.P| 000005A0: 05 84 49 4E 54 56 45 43 2B 31 00 5A 05 9E 0A 04 |..INTVEC+1.Z....| 000005B0: 3B 49 4E 54 45 52 52 55 50 54 20 54 49 4C 00 64 |;INTERRUPT TIL.d| 000005C0: 05 9F 00 6E 05 3B 00 78 05 3B 49 4E 54 4F 46 46 |...n.;.x.;INTOFF| 000005D0: 00 82 05 3B 00 8C 05 49 4E 54 4F 46 46 20 A1 0A |...;...INTOFF ..| 000005E0: 02 3B 49 4E 54 52 52 55 50 54 20 46 52 41 00 96 |.;INTRRUPT FRA..| 000005F0: 05 85 47 45 4D 00 A0 05 84 49 4E 54 56 45 43 00 |..GEM....INTVEC.| 00000600: AA 05 85 47 45 4D 2B 31 00 B4 05 84 49 4E 54 56 |...GEM+1....INTV| 00000610: 45 43 2B 31 00 BE 05 9E 0A 04 3B 49 4E 54 45 52 |EC+1......;INTER| 00000620: 52 55 50 54 20 54 49 4C 00 C8 05 9F 00 D2 05 3B |RUPT TIL.......;| 00000630: 00 DC 05 3B 00 E6 05 48 45 4E 54 50 4C 4F 54 20 |...;...HENTPLOT | 00000640: 9B 00 F0 05 96 50 4C 4F 54 00 FA 05 8C 31 30 32 |.....PLOT....102| 00000650: 36 00 04 06 91 31 30 32 38 00 0E 06 99 00 18 06 |6....1028.......| 00000660: 9F 00 22 06 3B 00 2C 06 3B 00 36 06 4F 50 4C 49 |..".;.,.;.6.OPLI| 00000670: 4E 20 9B 00 40 06 96 50 4C 4F 54 00 4A 06 94 23 |N ..@..PLOT.J..#| 00000680: 35 0A 03 3B 58 3D 4C 49 4E 49 45 20 35 00 54 06 |5..;X=LINIE 5.T.| 00000690: B5 46 4C 59 54 20 3B 3D 3E 58 00 5E 06 99 00 68 |.FLYT ;=>X.^...h| 000006A0: 06 B4 46 4C 59 54 31 3B 3C 58 00 72 06 9F 00 7C |..FLYT1;<X.r...|| 000006B0: 06 3B 00 86 06 3B 00 90 06 46 4C 59 54 20 93 23 |.;...;...FLYT .#| 000006C0: 30 0A 03 3B 59 3D 43 4F 4C 20 4F 00 9A 06 B6 4F |0..;Y=COL O....O| 000006D0: 50 0A 03 3B 3D 2F 20 59 00 A4 06 85 23 31 35 37 |P..;=/ Y....#157| 000006E0: 20 3B 43 52 53 20 56 45 4E 53 54 52 45 00 AE 06 | ;CRS VENSTRE...| 000006F0: 96 43 48 52 4F 55 54 00 B8 06 9F 00 C2 06 3B 00 |.CHROUT.......;.| 00000700: CC 06 4F 50 20 85 23 31 34 35 20 3B 43 53 52 20 |..OP .#145 ;CSR | 00000710: 5E 00 D6 06 96 43 48 52 4F 55 54 00 E0 06 9F 00 |^....CHROUT.....| 00000720: EA 06 3B 00 F4 06 3B 00 FE 06 46 4C 59 54 31 20 |..;...;...FLYT1 | 00000730: 94 23 33 0A 03 3B 58 3D 4C 49 4E 49 45 20 33 00 |.#3..;X=LINIE 3.| 00000740: 08 07 B5 53 4C 55 54 31 3B 3E 3D 58 00 12 07 93 |...SLUT1;>=X....| 00000750: 23 33 39 0A 02 3B 59 3D 43 4F 4C 20 33 39 00 1C |#39..;Y=COL 39..| 00000760: 07 B6 4E 45 44 0A 02 3B 3D 2F 20 59 00 26 07 85 |..NED..;=/ Y.&..| 00000770: 23 32 39 0A 02 3B 43 52 53 20 48 30 4A 52 45 00 |#29..;CRS H0JRE.| 00000780: 30 07 96 43 48 52 4F 55 54 00 3A 07 9F 00 44 07 |0..CHROUT.:...D.| 00000790: 4E 45 44 20 85 23 31 37 0A 02 3B 43 52 53 20 4E |NED .#17..;CRS N| 000007A0: 45 44 00 4E 07 96 43 48 52 4F 55 54 00 58 07 53 |ED.N..CHROUT.X.S| 000007B0: 4C 55 54 31 20 9F 00 62 07 3B 4B 49 4C 4C 00 6C |LUT1 ..b.;KILL.l| 000007C0: 07 3B 00 76 07 4B 49 4C 4C 20 9D 00 80 07 99 00 |.;.v.KILL ......| 000007D0: 8A 07 85 24 44 31 00 94 07 83 24 44 33 00 9E 07 |...$D1....$D3...| 000007E0: 84 24 46 42 00 A8 07 85 24 44 32 00 B2 07 83 23 |.$FB....$D2....#| 000007F0: 24 30 30 00 BC 07 84 24 46 43 00 C6 07 92 23 24 |$00....$FC....#$| 00000800: 30 30 00 D0 07 85 28 24 46 42 E1 00 DA 07 81 23 |00....($FB.....#| 00000810: 31 32 37 00 E4 07 84 28 24 46 42 E1 00 EE 07 A0 |127....($FB.....| 00000820: 00 F8 07 9F 00 02 08 3B 00 0C 08 46 49 52 4B 41 |.......;...FIRKA| 00000830: 4E 54 20 85 23 31 00 16 08 84 24 43 43 20 3B 43 |NT .#1....$CC ;C| 00000840: 55 52 53 4F 52 20 4F 46 46 00 20 08 96 4B 49 4C |URSOR OFF. ..KIL| 00000850: 4C 00 2A 08 9F 00 B8 0B 3B 42 41 53 49 43 20 56 |L.*.....;BASIC V| 00000860: 41 52 20 56 45 4B 54 4F 52 00 C2 0B 3B 00 CC 0B |AR VEKTOR...;...| 00000870: 56 45 4B 54 20 92 23 32 00 D6 0B 85 23 38 30 3B |VEKT .#2....#80;| 00000880: 41 4E 54 20 54 45 47 4E 00 E0 0B 84 28 34 35 E1 |ANT TEGN....(45.| 00000890: 00 EA 0B AA 0A 04 3B 46 4C 59 54 20 50 50 49 4E |......;FLYT PPIN| 000008A0: 44 00 F4 0B 85 23 56 41 52 54 45 4B 53 00 FE 0B |D....#VARTEKS...| 000008B0: 84 28 34 35 E1 00 08 0C AA 0A 04 3B 46 4C 59 54 |.(45.......;FLYT| 000008C0: 20 50 50 49 4E 44 00 12 0C 85 5E 56 41 52 54 45 | PPIND....^VARTE| 000008D0: 4B 53 3B 48 49 00 1C 0C 84 28 34 35 E1 00 26 0C |KS;HI....(45..&.| 000008E0: 9F 00 30 0C 3B 00 3A 0C BA 30 2C 30 2C 30 2C 30 |..0.;.:..0,0,0,0| 000008F0: 00 44 0C C1 2F 53 4C 55 54 2E 2E 2E 73 6C 75 74 |.D../SLUT...slut| 00000900: 2F 00 FF FF |/... |
.....;S/SOU.TEXT 1 03'12/ 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.M..VEKT.R.
....;...;...;RUTINE KALD...;...CLR .$E54
4;EJ HUSKE...CHROUT .$FFD2;SIDE 272...PL
OT .$FFF0.".HENT .$FFCF.,.VARTEKS .83,32
.6.VARPUN .3*40+1024.@.GETIN .$FFE4.J.;.
T.;INTERRUPT VARIABLER.^.;.H.INTVEC .$03
14;INTERRUPT VAR.R.GEM .0,0 ;GAMMEL INTE
RR.|.;...TEKS A/HER KAN DU SKRIVE 80 TEG
N/......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.;HENTTEGN.V.HENTTEGN .#VARPUN....$FB..
..^VARPUN....$FC....#VARTEKS....$FD....^
VARTEKS....$FE.F..#80.P.IGEN ..Z..($FB..
...#31....NESTE....#64...NESTE .($FD....
.#0....IGEN. ...*.;.4.;HENT1.>.;.H.HENT1
.GETIN.R..HENT1.\..#13.F..ENDLOOP.P..#1
48.Z..TEGNUD....#20....TEGNUD....#145...
.TEGNUD....#157....TEGNUD....#17.J..TEGN
UD.T..#29....TEGNUD....#94....HENT1....#
32....HENT1...TEGNUD .KILL....CHROUT.$..
....HENT1.8.ENDLOOP .FIRKANT.B...L.;INTE
RRUPT RUTINE.V.;.`.INT .HENTPLOT.J..OPLI
N.T..$FF.~..$FF....#128 ;DEC....BLINK...
.#2....1024 ;GEM I SKERM....(GEM)...;.D.
BLINK .#129.N..1024.X..(GEM)...;...;INT
ON...;...INTON .INTVEC..;LO AF VEC....GE
M....INTVEC+1;HI AF VEC....GEM+1.(....;I
NTERRUPT FRA.2..#INT.<..INTVEC.F..^INT.P
..INTVEC+1.Z....;INTERRUPT TIL.D...N.;.X
.;INTOFF...;...INTOFF ...;INTRRUPT FRA..
..GEM. ..INTVEC....GEM+1....INTVEC+1....
..;INTERRUPT TIL.H...R.;...;...HENTPLOT
.....PLOT....1026....1028.........".;.,.
;.6.OPLIN ..@..PLOT.J..#5..;X=LINIE 5.T.
.FLYT ;=>X.^...H..FLYT1;<X.R...|.;...;..
.FLYT .#0..;Y=COL O....OP..;=/ Y....#157
;CRS VENSTRE....CHROUT.....B.;.L.OP .#1
45 ;CSR ^.V..CHROUT.......;...;...FLYT1
.#3..;X=LINIE 3....SLUT1;>=X....#39..;Y=
COL 39....NED..;=/ Y.&..#29..;CRS H0JRE.
0..CHROUT.:...D.NED .#17..;CRS NED.N..CH
ROUT.X.SLUT1 ..B.;KILL.L.;.V.KILL ......
...$D1....$D3....$FB....$D2....#$00....$
FC.F..#$00.P..($FB..Z..#127....($FB....
.......;...FIRKANT .#1....$CC ;CURSOR OF
F. ..KILL.*.....;BASIC VAR VEKTOR.B.;.L.
VEKT .#2.V..#80;ANT TEGN....(45.......;F
LYT PPIND....#VARTEKS....(45.......;FLYT
PPIND....^VARTEKS;HI....(45..&...0.;.:.
.0,0,0,0.D.A/SLUT...SLUT/...
> CLICK IMAGE PREVIEW FOR FULL MODAL