SOU.TEXT 3 03'12
FILE INFORMATION
FILENAME(S): SOU.TEXT 3 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
d28837695890068ea2cabeb57c1247f569449e5631ef53d057952d640d3f3db1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AFTEN | SOU.TEXT 3 03'12 | PRG | Curtcool, Bo | 12 | 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 33 20 30 33 27 31 32 2F 20 38 00 14 00 3B 00 | 3 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 43 30 30 30 2C |IC.(.;.2..$C000,| 00000040: 24 36 30 30 30 00 37 00 95 53 54 59 52 00 3C 00 |$6000.7..STYR.<.| 00000050: 3B 00 46 00 3B 53 54 59 52 45 50 52 4F 47 52 41 |;.F.;STYREPROGRA| 00000060: 4D 00 50 00 3B 00 5A 00 53 54 41 52 54 20 BF 00 |M.P.;.Z.START ..| 00000070: 64 00 53 54 59 52 20 96 43 4C 52 00 6E 00 96 54 |d.STYR .CLR.n..T| 00000080: 53 4B 52 49 56 00 78 00 96 49 4E 54 4F 4E 00 82 |SKRIV.x..INTON..| 00000090: 00 85 23 30 00 8C 00 84 24 43 43 20 3B 43 55 52 |..#0....$CC ;CUR| 000000A0: 53 4F 52 20 4F 4E 00 96 00 3B 20 20 20 20 20 20 |SOR ON...; | 000000B0: 20 20 20 4A 53 52 20 48 45 4E 54 00 A0 00 96 48 | JSR HENT....H| 000000C0: 45 4E 54 31 00 AA 00 85 23 31 00 B4 00 84 24 43 |ENT1....#1....$C| 000000D0: 43 20 3B 43 55 52 53 4F 52 20 4F 46 46 00 BE 00 |C ;CURSOR OFF...| 000000E0: 96 49 4E 54 4F 46 46 00 C8 00 96 48 45 4E 54 54 |.INTOFF....HENTT| 000000F0: 45 47 4E 00 CD 00 96 56 45 4B 54 00 D2 00 9F 00 |EGN....VEKT.....| 00000100: DC 00 3B 00 E6 00 3B 00 F0 00 3B 52 55 54 49 4E |..;...;...;RUTIN| 00000110: 45 20 4B 41 4C 44 00 FA 00 3B 00 04 01 43 4C 52 |E KALD...;...CLR| 00000120: 20 C0 24 45 35 34 34 3B 45 4A 20 48 55 53 4B 45 | .$E544;EJ HUSKE| 00000130: 00 0E 01 43 48 52 4F 55 54 20 C0 24 46 46 44 32 |...CHROUT .$FFD2| 00000140: 3B 53 49 44 45 20 32 37 32 00 18 01 50 4C 4F 54 |;SIDE 272...PLOT| 00000150: 20 C0 24 46 46 46 30 00 22 01 48 45 4E 54 20 C0 | .$FFF0.".HENT .| 00000160: 24 46 46 43 46 00 2C 01 56 41 52 54 45 4B 53 20 |$FFCF.,.VARTEKS | 00000170: B9 38 33 2C 33 32 00 36 01 56 41 52 50 55 4E 20 |.83,32.6.VARPUN | 00000180: C0 33 2A 34 30 2B 31 30 32 34 00 40 01 47 45 54 |.3*40+1024.@.GET| 00000190: 49 4E 20 C0 24 46 46 45 34 00 4A 01 3B 00 54 01 |IN .$FFE4.J.;.T.| 000001A0: 3B 49 4E 54 45 52 52 55 50 54 20 56 41 52 49 41 |;INTERRUPT VARIA| 000001B0: 42 4C 45 52 00 5E 01 3B 00 68 01 49 4E 54 56 45 |BLER.^.;.h.INTVE| 000001C0: 43 20 C0 24 30 33 31 34 3B 49 4E 54 45 52 52 55 |C .$0314;INTERRU| 000001D0: 50 54 20 56 41 52 00 72 01 47 45 4D 20 BA 30 2C |PT VAR.r.GEM .0,| 000001E0: 30 20 3B 47 41 4D 4D 45 4C 20 49 4E 54 45 52 52 |0 ;GAMMEL INTERR| 000001F0: 00 7C 01 3B 00 86 01 54 45 4B 53 20 C1 2F 68 65 |.|.;...TEKS ./he| 00000200: 72 20 6B 61 6E 20 64 75 20 73 6B 72 69 76 65 20 |r kan du skrive | 00000210: 38 30 20 74 65 67 6E 2F 00 90 01 BA 0A 06 30 2C |80 tegn/......0,| 00000220: 30 2C 30 00 9A 01 3B 00 A4 01 54 53 4B 52 49 56 |0,0...;...TSKRIV| 00000230: 20 92 23 38 20 3B 43 4F 4C 00 AE 01 8D 23 30 20 | .#8 ;COL....#0 | 00000240: 3B 4C 49 4E 00 B8 01 99 00 C2 01 96 50 4C 4F 54 |;LIN........PLOT| 00000250: 00 CC 01 8D 23 30 00 D6 01 48 4F 50 20 85 54 45 |....#0...HOP .TE| 00000260: 4B 53 E2 00 E0 01 B7 4C 49 4E 49 45 00 EA 01 96 |KS.....LINIE....| 00000270: 43 48 52 4F 55 54 00 F4 01 AD 00 FE 01 99 00 08 |CHROUT..........| 00000280: 02 B4 48 4F 50 00 12 02 4C 49 4E 49 45 20 92 23 |..HOP...LINIE .#| 00000290: 30 20 3B 43 4F 4C 00 1C 02 8D 23 33 20 3B 4C 49 |0 ;COL....#3 ;LI| 000002A0: 4E 00 26 02 99 00 30 02 96 50 4C 4F 54 00 3A 02 |N.&...0..PLOT.:.| 000002B0: 96 53 4C 55 54 00 44 02 53 4C 55 54 20 9F 00 4E |.SLUT.D.SLUT ..N| 000002C0: 02 3B 00 58 02 3B 48 45 4E 54 20 20 20 20 20 20 |.;.X.;HENT | 000002D0: 53 54 41 20 24 36 30 30 30 00 62 02 3B 00 6C 02 |STA $6000.b.;.l.| 000002E0: 3B 48 45 4E 54 54 45 47 4E 00 76 02 48 45 4E 54 |;HENTTEGN.v.HENT| 000002F0: 54 45 47 4E 20 85 23 56 41 52 50 55 4E 00 80 02 |TEGN .#VARPUN...| 00000300: 84 24 46 42 00 8A 02 85 5E 56 41 52 50 55 4E 00 |.$FB....^VARPUN.| 00000310: 94 02 84 24 46 43 00 9E 02 85 23 56 41 52 54 45 |...$FC....#VARTE| 00000320: 4B 53 00 A8 02 84 24 46 44 00 B2 02 85 5E 56 41 |KS....$FD....^VA| 00000330: 52 54 45 4B 53 00 BC 02 84 24 46 45 00 C6 02 92 |RTEKS....$FE....| 00000340: 23 38 30 00 D0 02 49 47 45 4E 20 A2 00 DA 02 85 |#80...IGEN .....| 00000350: 28 24 46 42 E1 00 E4 02 86 23 33 31 00 EE 02 B5 |($FB.....#31....| 00000360: 4E 45 53 54 45 00 F8 02 80 23 36 34 00 02 03 4E |NESTE....#64...N| 00000370: 45 53 54 45 20 84 28 24 46 44 E1 00 0C 03 93 23 |ESTE .($FD.....#| 00000380: 30 00 16 03 B6 49 47 45 4E 00 20 03 9F 00 2A 03 |0....IGEN. ...*.| 00000390: 3B 00 34 03 3B 48 45 4E 54 31 00 3E 03 3B 00 48 |;.4.;HENT1.>.;.H| 000003A0: 03 48 45 4E 54 31 20 96 47 45 54 49 4E 00 52 03 |.HENT1 .GETIN.R.| 000003B0: B7 48 45 4E 54 31 00 5C 03 86 23 31 33 00 66 03 |.HENT1.\..#13.f.| 000003C0: B7 45 4E 44 4C 4F 4F 50 00 70 03 86 23 31 34 38 |.ENDLOOP.p..#148| 000003D0: 00 7A 03 B7 54 45 47 4E 55 44 00 84 03 86 23 32 |.z..TEGNUD....#2| 000003E0: 30 00 8E 03 B7 54 45 47 4E 55 44 00 98 03 86 23 |0....TEGNUD....#| 000003F0: 31 34 35 00 A2 03 B7 54 45 47 4E 55 44 00 AC 03 |145....TEGNUD...| 00000400: 86 23 31 35 37 00 B6 03 B7 54 45 47 4E 55 44 00 |.#157....TEGNUD.| 00000410: C0 03 86 23 31 37 00 CA 03 B7 54 45 47 4E 55 44 |...#17....TEGNUD| 00000420: 00 D4 03 86 23 32 39 00 DE 03 B7 54 45 47 4E 55 |....#29....TEGNU| 00000430: 44 00 E8 03 86 23 39 34 00 F2 03 B5 48 45 4E 54 |D....#94....HENT| 00000440: 31 00 FC 03 86 23 33 32 00 06 04 B4 48 45 4E 54 |1....#32....HENT| 00000450: 31 00 10 04 54 45 47 4E 55 44 20 96 4B 49 4C 4C |1...TEGNUD .KILL| 00000460: 00 1A 04 96 43 48 52 4F 55 54 00 24 04 99 00 2E |....CHROUT.$....| 00000470: 04 B4 48 45 4E 54 31 00 38 04 45 4E 44 4C 4F 4F |..HENT1.8.ENDLOO| 00000480: 50 20 96 46 49 52 4B 41 4E 54 00 42 04 9F 00 4C |P .FIRKANT.B...L| 00000490: 04 3B 49 4E 54 45 52 52 55 50 54 20 52 55 54 49 |.;INTERRUPT RUTI| 000004A0: 4E 45 00 56 04 3B 00 60 04 49 4E 54 20 96 48 45 |NE.V.;.`.INT .HE| 000004B0: 4E 54 50 4C 4F 54 00 6A 04 96 4F 50 4C 49 4E 00 |NTPLOT.j..OPLIN.| 000004C0: 74 04 8F 24 46 46 00 7E 04 85 24 46 46 00 88 04 |t..$FF.~..$FF...| 000004D0: 86 23 31 32 38 20 3B 44 45 43 00 92 04 B1 42 4C |.#128 ;DEC....BL| 000004E0: 49 4E 4B 00 9C 04 85 23 32 00 A6 04 84 31 30 32 |INK....#2....102| 000004F0: 34 20 3B 47 45 4D 20 49 20 53 4B 45 52 4D 00 B0 |4 ;GEM I SKERM..| 00000500: 04 95 28 47 45 4D 29 00 BA 04 3B 00 C4 04 42 4C |..(GEM)...;...BL| 00000510: 49 4E 4B 20 85 23 31 32 39 00 CE 04 84 31 30 32 |INK .#129....102| 00000520: 34 00 D8 04 95 28 47 45 4D 29 00 E2 04 3B 00 EC |4....(GEM)...;..| 00000530: 04 3B 49 4E 54 20 4F 4E 00 F6 04 3B 00 00 05 49 |.;INT ON...;...I| 00000540: 4E 54 4F 4E 20 85 49 4E 54 56 45 43 0A 02 3B 4C |NTON .INTVEC..;L| 00000550: 4F 20 41 46 20 56 45 43 00 0A 05 84 47 45 4D 00 |O AF VEC....GEM.| 00000560: 14 05 85 49 4E 54 56 45 43 2B 31 3B 48 49 20 41 |...INTVEC+1;HI A| 00000570: 46 20 56 45 43 00 1E 05 84 47 45 4D 2B 31 00 28 |F VEC....GEM+1.(| 00000580: 05 A1 0A 04 3B 49 4E 54 45 52 52 55 50 54 20 46 |....;INTERRUPT F| 00000590: 52 41 00 32 05 85 23 49 4E 54 00 3C 05 84 49 4E |RA.2..#INT.<..IN| 000005A0: 54 56 45 43 00 46 05 85 5E 49 4E 54 00 50 05 84 |TVEC.F..^INT.P..| 000005B0: 49 4E 54 56 45 43 2B 31 00 5A 05 9E 0A 04 3B 49 |INTVEC+1.Z....;I| 000005C0: 4E 54 45 52 52 55 50 54 20 54 49 4C 00 64 05 9F |NTERRUPT TIL.d..| 000005D0: 00 6E 05 3B 00 78 05 3B 49 4E 54 4F 46 46 00 82 |.n.;.x.;INTOFF..| 000005E0: 05 3B 00 8C 05 49 4E 54 4F 46 46 20 A1 0A 02 3B |.;...INTOFF ...;| 000005F0: 49 4E 54 52 52 55 50 54 20 46 52 41 00 96 05 85 |INTRRUPT FRA....| 00000600: 47 45 4D 00 A0 05 84 49 4E 54 56 45 43 00 AA 05 |GEM....INTVEC...| 00000610: 85 47 45 4D 2B 31 00 B4 05 84 49 4E 54 56 45 43 |.GEM+1....INTVEC| 00000620: 2B 31 00 BE 05 9E 0A 04 3B 49 4E 54 45 52 52 55 |+1......;INTERRU| 00000630: 50 54 20 54 49 4C 00 C8 05 9F 00 D2 05 3B 00 DC |PT TIL.......;..| 00000640: 05 3B 00 E6 05 48 45 4E 54 50 4C 4F 54 20 9B 00 |.;...HENTPLOT ..| 00000650: F0 05 96 50 4C 4F 54 00 FA 05 8C 31 30 32 36 00 |...PLOT....1026.| 00000660: 04 06 91 31 30 32 38 00 0E 06 99 00 18 06 9F 00 |...1028.........| 00000670: 22 06 3B 00 2C 06 3B 00 36 06 4F 50 4C 49 4E 20 |".;.,.;.6.OPLIN | 00000680: 9B 00 40 06 96 50 4C 4F 54 00 4A 06 94 23 35 0A |..@..PLOT.J..#5.| 00000690: 03 3B 58 3D 4C 49 4E 49 45 20 35 00 54 06 B5 46 |.;X=LINIE 5.T..F| 000006A0: 4C 59 54 20 3B 3D 3E 58 00 5E 06 99 00 68 06 B4 |LYT ;=>X.^...h..| 000006B0: 46 4C 59 54 31 3B 3C 58 00 72 06 9F 00 7C 06 3B |FLYT1;<X.r...|.;| 000006C0: 00 86 06 3B 00 90 06 46 4C 59 54 20 93 23 30 0A |...;...FLYT .#0.| 000006D0: 03 3B 59 3D 43 4F 4C 20 4F 00 9A 06 B6 4F 50 0A |.;Y=COL O....OP.| 000006E0: 03 3B 3D 2F 20 59 00 A4 06 85 23 31 35 37 20 3B |.;=/ Y....#157 ;| 000006F0: 43 52 53 20 56 45 4E 53 54 52 45 00 AE 06 96 43 |CRS VENSTRE....C| 00000700: 48 52 4F 55 54 00 B8 06 9F 00 C2 06 3B 00 CC 06 |HROUT.......;...| 00000710: 4F 50 20 85 23 31 34 35 20 3B 43 53 52 20 5E 00 |OP .#145 ;CSR ^.| 00000720: D6 06 96 43 48 52 4F 55 54 00 E0 06 9F 00 EA 06 |...CHROUT.......| 00000730: 3B 00 F4 06 3B 00 FE 06 46 4C 59 54 31 20 94 23 |;...;...FLYT1 .#| 00000740: 33 0A 03 3B 58 3D 4C 49 4E 49 45 20 33 00 08 07 |3..;X=LINIE 3...| 00000750: B5 53 4C 55 54 31 3B 3E 3D 58 00 12 07 93 23 33 |.SLUT1;>=X....#3| 00000760: 39 0A 02 3B 59 3D 43 4F 4C 20 33 39 00 1C 07 B6 |9..;Y=COL 39....| 00000770: 4E 45 44 0A 02 3B 3D 2F 20 59 00 26 07 85 23 32 |NED..;=/ Y.&..#2| 00000780: 39 0A 02 3B 43 52 53 20 48 30 4A 52 45 00 30 07 |9..;CRS H0JRE.0.| 00000790: 96 43 48 52 4F 55 54 00 3A 07 9F 00 44 07 4E 45 |.CHROUT.:...D.NE| 000007A0: 44 20 85 23 31 37 0A 02 3B 43 52 53 20 4E 45 44 |D .#17..;CRS NED| 000007B0: 00 4E 07 96 43 48 52 4F 55 54 00 58 07 53 4C 55 |.N..CHROUT.X.SLU| 000007C0: 54 31 20 9F 00 62 07 3B 4B 49 4C 4C 00 6C 07 3B |T1 ..b.;KILL.l.;| 000007D0: 00 76 07 4B 49 4C 4C 20 9D 00 80 07 99 00 8A 07 |.v.KILL ........| 000007E0: 85 24 44 31 00 94 07 83 24 44 33 00 9E 07 84 24 |.$D1....$D3....$| 000007F0: 46 42 00 A8 07 85 24 44 32 00 B2 07 83 23 24 30 |FB....$D2....#$0| 00000800: 30 00 BC 07 84 24 46 43 00 C6 07 92 23 24 30 30 |0....$FC....#$00| 00000810: 00 D0 07 85 28 24 46 42 E1 00 DA 07 81 23 31 32 |....($FB.....#12| 00000820: 37 00 E4 07 84 28 24 46 42 E1 00 EE 07 A0 00 F8 |7....($FB.......| 00000830: 07 9F 00 02 08 3B 00 0C 08 46 49 52 4B 41 4E 54 |.....;...FIRKANT| 00000840: 20 85 23 31 00 16 08 84 24 43 43 20 3B 43 55 52 | .#1....$CC ;CUR| 00000850: 53 4F 52 20 4F 46 46 00 20 08 96 4B 49 4C 4C 00 |SOR OFF. ..KILL.| 00000860: 2A 08 9F 00 B8 0B 3B 42 41 53 49 43 20 56 41 52 |*.....;BASIC VAR| 00000870: 20 56 45 4B 54 4F 52 00 C2 0B 3B 00 CC 0B 56 45 | VEKTOR...;...VE| 00000880: 4B 54 20 92 23 32 00 D6 0B 85 23 38 30 3B 41 4E |KT .#2....#80;AN| 00000890: 54 20 54 45 47 4E 00 E0 0B 84 28 34 35 E1 00 EA |T TEGN....(45...| 000008A0: 0B AA 0A 04 3B 46 4C 59 54 20 50 50 49 4E 44 00 |....;FLYT PPIND.| 000008B0: F4 0B 85 23 56 41 52 54 45 4B 53 00 FE 0B 84 28 |...#VARTEKS....(| 000008C0: 34 35 E1 00 08 0C AA 0A 04 3B 46 4C 59 54 20 50 |45.......;FLYT P| 000008D0: 50 49 4E 44 00 12 0C 85 5E 56 41 52 54 45 4B 53 |PIND....^VARTEKS| 000008E0: 3B 48 49 00 1C 0C 84 28 34 35 E1 00 26 0C 9F 00 |;HI....(45..&...| 000008F0: 30 0C 3B 00 3A 0C BA 30 2C 30 2C 30 2C 30 00 44 |0.;.:..0,0,0,0.D| 00000900: 0C C1 2F 53 4C 55 54 2E 2E 2E 73 6C 75 74 2F 00 |../SLUT...slut/.| 00000910: FF FF |.. |
.....;S/SOU.TEXT 3 03'12/ 8...;...;INPUT TIL BASIC.(.;.2..$C000,$6000.7..STYR.<. ;.F.;STYREPROGRAM.P.;.Z.START ..D.STYR . CLR.N..TSKRIV.X..INTON....#0....$CC ;CUR SOR ON...; JSR HENT. ..HENT1.... #1....$CC ;CURSOR OFF....INTOFF.H..HENTT EGN.M..VEKT.R.....;...;...;RUTINE KALD.. .;...CLR .$E544;EJ HUSKE...CHROUT .$FFD2 ;SIDE 272...PLOT .$FFF0.".HENT .$FFCF.,. VARTEKS .83,32.6.VARPUN .3*40+1024.@.GET IN .$FFE4.J.;.T.;INTERRUPT VARIABLER.^.; .H.INTVEC .$0314;INTERRUPT 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.;HENTTEGN.V.HENTTEGN .#V ARPUN....$FB....^VARPUN....$FC....#VARTE KS....$FD....^VARTEKS....$FE.F..#80.P.IG EN ..Z..($FB.....#31....NESTE....#64...N ESTE .($FD.....#0....IGEN. ...*.;.4.;HEN T1.>.;.H.HENT1 .GETIN.R..HENT1.\..#13.F. .ENDLOOP.P..#148.Z..TEGNUD....#20....TEG NUD....#145....TEGNUD....#157....TEGNUD. ...#17.J..TEGNUD.T..#29....TEGNUD....#94 ....HENT1....#32....HENT1...TEGNUD .KILL ....CHROUT.$......HENT1.8.ENDLOOP .FIRKA NT.B...L.;INTERRUPT RUTINE.V.;.`.INT .HE NTPLOT.J..OPLIN.T..$FF.~..$FF....#128 ;D EC....BLINK....#2....1024 ;GEM I SKERM.. ..(GEM)...;.D.BLINK .#129.N..1024.X..(GE M)...;...;INT ON...;...INTON .INTVEC..;L O AF VEC....GEM....INTVEC+1;HI AF VEC... .GEM+1.(....;INTERRUPT FRA.2..#INT.<..IN TVEC.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 .#145 ;CSR ^.V..CHROUT....... ;...;...FLYT1 .#3..;X=LINIE 3....SLUT1;> =X....#39..;Y=COL 39....NED..;=/ Y.&..#2 9..;CRS H0JRE.0..CHROUT.:...D.NED .#17.. ;CRS NED.N..CHROUT.X.SLUT1 ..B.;KILL.L.; .V.KILL .........$D1....$D3....$FB....$D 2....#$00....$FC.F..#$00.P..($FB..Z..#12 7....($FB.... .......;...FIRKANT .#1.... $CC ;CURSOR OFF. ..KILL.*.....;BASIC VAR VEKTOR.B.;.L.VEKT .#2.V..#80;ANT TEGN.. ..(45.......;FLYT PPIND....#VARTEKS....( 45.......;FLYT PPIND....^VARTEKS;HI....( 45..&...0.;.:..0,0,0,0.D.A/SLUT...SLUT/. ..
> CLICK IMAGE PREVIEW FOR FULL MODAL