SYSTEMTIPNING
FILE INFORMATION
FILENAME(S): SYSTEMTIPNING
FILE TYPE(S): PRG
FILE SIZE: 1.8K
FIRST SEEN: 2025-11-30 19:36:51
APPEARS ON: 1 disk(s)
FILE HASH
94b089ca206bc4f72b0eeaf77d6a14605088609725303288e13690bd4224fcbe
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PROEVE | SYSTEMTIPNING | PRG | Curtcool, Bo | 16 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 18 08 09 00 8F 20 2A 2A 2A 2A 2A 20 49 4E |....... ***** IN| 00000010: 49 54 20 2A 2A 2A 2A 2A 00 26 08 0A 00 97 20 35 |IT *****.&.... 5| 00000020: 33 32 38 31 2C 30 00 5B 08 0B 00 99 22 20 93 20 |3281,0.[...." . | 00000030: 20 20 20 20 D5 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 | ............| 00000040: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 00000050: C3 C3 C3 C3 C3 C9 20 20 20 22 3B 00 8C 08 0C 00 |...... ";.....| 00000060: 99 22 20 20 20 C2 20 53 59 53 54 45 4D 54 49 50 |." . SYSTEMTIP| 00000070: 4E 49 4E 47 20 4D 45 44 20 43 4F 4D 4D 4F 44 4F |NING MED COMMODO| 00000080: 52 45 20 36 34 20 C2 20 20 20 22 3B 00 BD 08 0D |RE 64 . ";....| 00000090: 00 99 22 20 20 20 CA C3 C3 C3 C3 C3 C3 C3 C3 C3 |.." ..........| 000000A0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 000000B0: C3 C3 C3 C3 C3 C3 C3 CB 20 20 20 22 3B 00 E3 08 |........ ";...| 000000C0: 0E 00 99 20 22 20 20 20 20 20 20 20 20 20 20 20 |... " | 000000D0: 20 20 20 20 20 20 20 56 45 52 53 49 4F 4E 20 32 | VERSION 2| 000000E0: 2E 30 22 00 0D 09 0F 00 99 20 22 20 20 20 20 20 |.0"...... " | 000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 41 46 20 44 | AF D| 00000100: 2E 20 31 34 2F 31 31 2D 31 39 38 34 22 00 39 09 |. 14/11-1984".9.| 00000110: 10 00 99 20 22 20 20 20 20 20 20 20 20 20 20 20 |... " | 00000120: 20 20 20 20 28 43 29 20 31 39 38 34 20 42 59 20 | (C) 1984 BY | 00000130: 4F 5A 20 31 20 49 4B 55 22 00 64 09 11 00 99 20 |OZ 1 IKU".d.... | 00000140: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" | 00000150: 4D 41 52 54 49 4E 20 43 48 52 49 53 54 49 41 4E |MARTIN CHRISTIAN| 00000160: 53 45 4E 22 00 6D 09 12 00 99 20 22 22 00 81 09 |SEN".m.... ""...| 00000170: 13 00 A1 41 24 3A 8B 41 24 B2 22 22 20 A7 20 31 |...A$:.A$."" . 1| 00000180: 39 00 9F 09 15 00 86 20 48 41 24 28 31 33 29 2C |9...... HA$(13),| 00000190: 48 45 24 28 31 33 29 2C 4B 41 24 28 31 33 29 00 |HE$(13),KA$(13).| 000001A0: B9 09 19 00 86 20 52 41 24 28 31 33 2C 32 35 35 |..... RA$(13,255| 000001B0: 29 2C 55 52 24 28 31 33 29 00 D8 09 1A 00 86 20 |),UR$(13)...... | 000001C0: 44 28 31 33 29 2C 45 28 31 33 29 2C 46 28 31 33 |D(13),E(13),F(13| 000001D0: 29 2C 47 41 28 31 33 29 00 F4 09 1E 00 81 49 B2 |),GA(13)......I.| 000001E0: 49 A4 31 33 3A 55 52 24 28 49 29 B2 22 20 20 20 |I.13:UR$(I)." | 000001F0: 20 22 3A 82 00 15 0A 64 00 8F 20 2A 2A 2A 2A 2A | ":....d.. *****| 00000200: 2A 20 53 54 59 52 45 50 52 4F 47 52 41 4D 20 2A |* STYREPROGRAM *| 00000210: 2A 2A 2A 2A 2A 00 31 0A 69 00 89 20 37 30 30 30 |*****.1.i.. 7000| 00000220: 3A 8F 20 2A 2A 48 4F 56 45 44 4D 45 4E 55 2A 2A |:. **HOVEDMENU**| 00000230: 2A 00 53 0A 96 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*.S.... ********| 00000240: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000250: 2A 2A 2A 00 79 0A 36 01 8F 20 2A 2A 2A 2A 2A 20 |***.y.6.. ***** | 00000260: 52 41 45 4B 4B 45 52 4E 45 20 55 44 53 4B 52 49 |RAEKKERNE UDSKRI| 00000270: 56 45 53 20 2A 2A 2A 2A 2A 00 AD 0A 38 01 54 58 |VES *****...8.TX| 00000280: 54 24 B2 22 20 20 93 20 20 20 20 20 20 20 20 20 |T$." . | 00000290: 20 52 41 45 4B 4B 45 52 4E 45 20 55 44 53 4B 52 | RAEKKERNE UDSKR| 000002A0: 49 56 45 53 20 20 20 20 20 20 20 20 22 00 B8 0A |IVES "...| 000002B0: 3B 01 99 20 54 58 54 24 00 C8 0A 40 01 99 20 22 |;.. TXT$...@.. "| 000002C0: 20 20 20 22 3A 54 B2 33 00 D4 0A 4A 01 81 50 B2 | ":T.3...J..P.| 000002D0: 31 A4 52 41 00 E1 0A 5E 01 99 A3 54 AA 31 29 3B |1.RA...^...T.1);| 000002E0: 50 00 E7 0A 68 01 99 00 F9 0A 72 01 99 A3 54 29 |P...h.....r...T)| 000002F0: 22 20 D5 C3 C3 C3 C9 20 22 00 1A 0B 7C 01 81 20 |" ..... "...|.. | 00000300: 49 B2 31 20 A4 20 33 3A 99 A3 54 29 3B 52 41 24 |I.1 . 3:..T);RA$| 00000310: 28 49 2C 50 29 20 3A 82 20 49 00 2C 0B 81 01 99 |(I,P) :. I.,....| 00000320: A3 54 29 22 20 D9 C3 C3 C3 D4 20 22 00 4D 0B 86 |.T)" ..... ".M..| 00000330: 01 81 20 49 B2 34 20 A4 20 36 3A 99 A3 54 29 3B |.. I.4 . 6:..T);| 00000340: 52 41 24 28 49 2C 50 29 20 3A 82 20 49 00 5F 0B |RA$(I,P) :. I._.| 00000350: 90 01 99 A3 54 29 22 20 D9 C3 C3 C3 D4 20 22 00 |....T)" ..... ".| 00000360: 80 0B 9A 01 81 20 49 B2 37 20 A4 20 39 3A 99 A3 |..... I.7 . 9:..| 00000370: 54 29 3B 52 41 24 28 49 2C 50 29 20 3A 82 20 49 |T);RA$(I,P) :. I| 00000380: 00 92 0B A4 01 99 A3 54 29 22 20 D9 C3 C3 C3 D4 |.......T)" .....| 00000390: 20 22 00 B5 0B AE 01 81 20 49 B2 31 30 20 A4 20 | "...... I.10 . | 000003A0: 31 33 3A 99 A3 54 29 3B 52 41 24 28 49 2C 50 29 |13:..T);RA$(I,P)| 000003B0: 20 3A 82 20 49 00 C7 0B B8 01 99 A3 54 29 22 20 | :. I.......T)" | 000003C0: CA C3 C3 C3 CB 20 22 00 EA 0B C2 01 54 B2 54 AA |..... ".....T.T.| 000003D0: 36 3A 99 22 91 91 91 91 91 91 91 91 91 91 91 91 |6:."............| 000003E0: 91 91 91 91 91 91 91 91 91 22 00 19 0C C7 01 8B |........."......| 000003F0: 20 50 B3 B1 52 41 20 AF 20 50 AD 36 B2 B5 28 50 | P..RA . P.6..(P| 00000400: AD 36 29 20 A7 3A 46 B2 31 3A A1 41 24 3A 8B 41 |.6) .:F.1:.A$:.A| 00000410: 24 B2 22 22 20 A7 34 35 35 00 38 0C C9 01 8B 46 |$."" .455.8....F| 00000420: B2 31 20 A7 20 99 54 58 54 24 3B 22 20 20 20 22 |.1 . .TXT$;" "| 00000430: 3A 54 B2 33 3A 46 B2 30 00 40 0C CC 01 82 20 50 |:T.3:F.0.@.... P| 00000440: 00 55 0C D6 01 A1 41 24 3A 8B 41 24 B2 22 22 20 |.U....A$:.A$."" | 00000450: A7 20 34 37 30 00 5B 0C E0 01 8E 00 78 0C 88 13 |. 470.[.....x...| 00000460: 8F 20 2A 2A 2A 2A 2A 20 53 55 42 20 53 49 4B 4B |. ***** SUB SIKK| 00000470: 45 52 20 2A 2A 2A 2A 2A 00 84 0C 92 13 81 4A B2 |ER *****......J.| 00000480: 31 A4 52 41 00 AB 0C 9C 13 8B 20 55 52 24 28 49 |1.RA...... UR$(I| 00000490: 29 B2 22 31 22 A7 20 52 41 24 28 49 2C 4A 29 B2 |)."1". RA$(I,J).| 000004A0: 22 20 C2 20 31 20 20 20 C2 20 22 00 D2 0C A6 13 |" . 1 . ".....| 000004B0: 8B 20 55 52 24 28 49 29 B2 22 58 22 A7 20 52 41 |. UR$(I)."X". RA| 000004C0: 24 28 49 2C 4A 29 B2 22 20 C2 20 20 58 20 20 C2 |$(I,J)." . X .| 000004D0: 20 22 00 F9 0C B0 13 8B 20 55 52 24 28 49 29 B2 | "...... UR$(I).| 000004E0: 22 32 22 A7 20 52 41 24 28 49 2C 4A 29 B2 22 20 |"2". RA$(I,J)." | 000004F0: C2 20 20 20 32 20 C2 20 22 00 01 0D BA 13 82 20 |. 2 . "...... | 00000500: 4A 00 07 0D C4 13 8E 00 22 0D EC 13 8F 20 2A 2A |J.......".... **| 00000510: 2A 2A 2A 20 53 55 42 20 48 41 4C 56 20 2A 2A 2A |*** SUB HALV ***| 00000520: 2A 2A 00 3D 0D F6 13 8B 20 55 52 24 28 49 29 B2 |**.=.... UR$(I).| 00000530: 22 31 58 22 20 A7 20 41 24 B2 22 32 22 00 58 0D |"1X" . A$."2".X.| 00000540: 00 14 8B 20 55 52 24 28 49 29 B2 22 58 32 22 20 |... UR$(I)."X2" | 00000550: A7 20 41 24 B2 22 31 22 00 72 0D 05 14 8B 20 55 |. A$."1".r.... U| 00000560: 52 24 28 49 29 B2 22 31 32 22 20 A7 20 41 24 B2 |R$(I)."12" . A$.| 00000570: 22 22 00 7E 0D 0A 14 81 4A B2 31 A4 52 41 00 93 |"".~....J.1.RA..| 00000580: 0D 1E 14 42 24 B2 CA 28 48 41 24 28 42 29 2C 4A |...B$..(HA$(B),J| 00000590: 2C 31 29 00 A8 0D 28 14 8B 20 42 24 B2 41 24 20 |,1)...(.. B$.A$ | 000005A0: A7 20 42 24 B2 22 58 22 00 CA 0D 32 14 8B 20 42 |. B$."X"...2.. B| 000005B0: 24 B2 22 31 22 A7 52 41 24 28 49 2C 4A 29 B2 22 |$."1".RA$(I,J)."| 000005C0: 20 C2 20 31 20 20 20 C2 20 22 00 EC 0D 3C 14 8B | . 1 . "...<..| 000005D0: 20 42 24 B2 22 58 22 A7 52 41 24 28 49 2C 4A 29 | B$."X".RA$(I,J)| 000005E0: B2 22 20 C2 20 20 58 20 20 C2 20 22 00 0E 0E 46 |." . X . "...F| 000005F0: 14 8B 20 42 24 B2 22 32 22 A7 52 41 24 28 49 2C |.. B$."2".RA$(I,| 00000600: 4A 29 B2 22 20 C2 20 20 20 32 20 C2 20 22 00 16 |J)." . 2 . "..| 00000610: 0E 50 14 82 20 4A 00 1C 0E 5A 14 8E 00 36 0E B4 |.P.. J...Z...6..| 00000620: 14 8F 20 2A 2A 2A 2A 2A 20 53 55 42 20 48 45 4C |.. ***** SUB HEL| 00000630: 20 2A 2A 2A 2A 2A 00 42 0E BE 14 81 4A B2 31 A4 | *****.B....J.1.| 00000640: 52 41 00 57 0E C8 14 43 24 B2 CA 28 48 45 24 28 |RA.W...C$..(HE$(| 00000650: 41 29 2C 4A 2C 31 29 00 79 0E D2 14 8B 20 43 24 |A),J,1).y.... C$| 00000660: B2 22 31 22 A7 52 41 24 28 49 2C 4A 29 B2 22 20 |."1".RA$(I,J)." | 00000670: C2 20 31 20 20 20 C2 20 22 00 9B 0E DC 14 8B 20 |. 1 . "...... | 00000680: 43 24 B2 22 58 22 A7 52 41 24 28 49 2C 4A 29 B2 |C$."X".RA$(I,J).| 00000690: 22 20 C2 20 20 58 20 20 C2 20 22 00 BD 0E E6 14 |" . X . ".....| 000006A0: 8B 20 43 24 B2 22 32 22 A7 52 41 24 28 49 2C 4A |. C$."2".RA$(I,J| 000006B0: 29 B2 22 20 C2 20 20 20 32 20 C2 20 22 00 C5 0E |)." . 2 . "...| 000006C0: F0 14 82 20 4A 00 CB 0E FA 14 8E 00 EF 0E 18 15 |... J...........| 000006D0: 8F 20 2A 2A 2A 2A 2A 20 53 59 53 54 45 4D 49 4E |. ***** SYSTEMIN| 000006E0: 44 4C 41 45 53 4E 49 4E 47 20 2A 2A 2A 2A 2A 00 |DLAESNING *****.| 000006F0: 0E 0F 1D 15 8D 20 39 30 30 30 3A 8F 20 2A 2A 2A |..... 9000:. ***| 00000700: 2A 20 4E 55 4C 53 54 49 4C 20 2A 2A 2A 2A 00 19 |* NULSTIL ****..| 00000710: 0F 22 15 54 58 54 24 B2 22 00 00 00 |.".TXT$."... |
....... ***** INIT *****.&.... 53281,0.[
...." . UCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCI ";......" B SYSTEMTIPNING MED
COMMODORE 64 B ";......" JCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCK ";...... "
VERSION 2.0"...... "
AF D. 14/11-1984".9.... "
(C) 1984 BY OZ 1 IKU".D....
" MARTIN CHRISTIANSEN".M..
.. ""......A$:.A$."" . 19...... HA$(13),
HE$(13),KA$(13)...... RA$(13,255),UR$(13
).X.... D(13),E(13),F(13),GA(13)......I.
I.13:UR$(I)." ":....D.. ****** STYREP
ROGRAM ******.1.I.. 7000:. **HOVEDMENU**
*.S.... ***************************.Y.6.
. ***** RAEKKERNE UDSKRIVES *****...8.TX
T$." . RAEKKERNE UDSKRIVES
"...;.. TXT$.H.@.. " ":T.3.T.J..P.
1.RA...^...T.1);P...H.....R...T)" UCCCI
"...|.. I.1 . 3:..T);RA$(I,P) :. I.,....
.T)" YCCCT ".M.... I.4 . 6:..T);RA$(I,P)
:. I._.....T)" YCCCT "...... I.7 . 9:..
T);RA$(I,P) :. I.......T)" YCCCT "......
I.10 . 13:..T);RA$(I,P) :. I.G.....T)"
JCCCK "...B.T.T.6:."....................
."...G.. P..RA . P.6..(P.6) .:F.1:.A$:.A
$."" .455.8.I..F.1 . .TXT$;" ":T.3:F.0
.@.L.. P.U.V..A$:.A$."" . 470.[.....X...
. ***** SUB SIKKER *****......J.1.RA....
.. UR$(I)."1". RA$(I,J)." B 1 B ".R...
. UR$(I)."X". RA$(I,J)." B X B "......
UR$(I)."2". RA$(I,J)." B 2 B "......
J...D...".... ***** SUB HALV *****.=....
UR$(I)."1X" . A$."2".X.... UR$(I)."X2"
. A$."1".R.... UR$(I)."12" . A$."".~....
J.1.RA.....B$.J(HA$(B),J,1)...(.. B$.A$
. B$."X".J.2.. B$."1".RA$(I,J)." B 1 B
"...<.. B$."X".RA$(I,J)." B X B "...F
.. B$."2".RA$(I,J)." B 2 B "...P.. J..
.Z...6.... ***** SUB HEL *****.B....J.1.
RA.W.H.C$.J(HE$(A),J,1).Y.R.. C$."1".RA$
(I,J)." B 1 B "...... C$."X".RA$(I,J).
" B X B "...... C$."2".RA$(I,J)." B
2 B ".E.... J.K.......... ***** SYSTEMIN
DLAESNING *****...... 9000:. **** NULSTI
L ****...".TXT$."...
> CLICK IMAGE PREVIEW FOR FULL MODAL