FAERDIG FIRKANT

FILE INFORMATION

FILENAME(S): FAERDIG FIRKANT

FILE TYPE(S): PRG

FILE SIZE: 1.4K

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

APPEARS ON: 1 disk(s)

FILE HASH

1a3a5a3254eb645bb01365f8208180a3b02088fe86f78aad685de47c3c2b901e

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
SOS	FAERDIG FIRKANT	PRG	Curtcool, Bo	21	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 1F 08 E8 03 8F 20  53 41 56 45 22 46 41 45  |....... SAVE"FAE|
00000010: 52 44 49 47 20 46 49 52  4B 41 4E 54 22 2C 38 00  |RDIG FIRKANT",8.|
00000020: 3B 08 F2 03 8F 20 52 45  53 41 56 45 52 20 4E 4D  |;.... RESAVER NM|
00000030: 45 4D 45 52 59 20 24 37  30 30 30 00 5D 08 FC 03  |EMERY $7000.]...|
00000040: 97 35 31 2C 30 3A 97 35  32 2C 31 31 32 3A 97 35  |.51,0:.52,112:.5|
00000050: 35 2C 30 3A 97 35 36 2C  31 31 32 3A 9C 00 63 08  |5,0:.56,112:..c.|
00000060: 06 04 3A 00 69 08 10 04  3A 00 7D 08 1A 04 8F 20  |..:.i...:.}.... |
00000070: 53 54 41 52 54 20 41 44  52 45 53 53 45 00 89 08  |START ADRESSE...|
00000080: 24 04 83 20 24 37 30 30  30 00 9C 08 2E 04 8F 20  |$.. $7000...... |
00000090: 4F 50 53 54 41 52 54 20  44 41 54 41 00 B2 08 38  |OPSTART DATA...8|
000000A0: 04 83 20 24 36 34 2C 24  30 30 2C 24 30 41 2C 24  |.. $64,$00,$0A,$|
000000B0: 30 35 00 BE 08 42 04 8F  20 4D 43 4F 44 45 00 F0  |05...B.. MCODE..|
000000C0: 08 4C 04 83 20 24 31 38  2C 24 41 44 2C 24 30 30  |.L.. $18,$AD,$00|
000000D0: 2C 24 37 30 2C 24 36 39  2C 24 30 30 2C 24 38 35  |,$70,$69,$00,$85|
000000E0: 2C 24 46 42 2C 24 41 44  2C 24 30 31 2C 24 37 30  |,$FB,$AD,$01,$70|
000000F0: 00 32 09 56 04 83 20 24  36 39 2C 24 30 34 2C 24  |.2.V.. $69,$04,$|
00000100: 38 35 2C 24 46 43 52 45  4D 20 20 2C 24 32 30 2C  |85,$FCREM  ,$20,|
00000110: 24 38 31 2C 24 46 46 3A  8F 20 53 4C 45 54 20 53  |$81,$FF:. SLET S|
00000120: 4B 45 52 4D 20 44 45 20  54 52 45 20 53 49 44 53  |KERM DE TRE SIDS|
00000130: 54 45 00 5C 09 60 04 83  20 24 41 43 2C 24 30 32  |TE.\.`.. $AC,$02|
00000140: 2C 24 37 30 2C 24 43 38  2C 24 41 39 2C 24 36 45  |,$70,$C8,$A9,$6E|
00000150: 2C 24 39 31 2C 24 46 42  2C 24 38 38 00 8E 09 6A  |,$91,$FB,$88...j|
00000160: 04 83 20 24 41 39 2C 24  34 33 2C 24 39 31 2C 24  |.. $A9,$43,$91,$|
00000170: 46 42 2C 24 38 38 2C 24  44 30 2C 24 46 42 2C 24  |FB,$88,$D0,$FB,$|
00000180: 41 39 2C 24 37 30 2C 24  39 31 2C 24 46 42 00 D4  |A9,$70,$91,$FB..|
00000190: 09 74 04 83 20 24 41 32  2C 24 35 44 2C 24 45 45  |.t.. $A2,$5D,$EE|
000001A0: 2C 24 30 33 2C 24 37 30  2C 24 31 38 2C 24 41 35  |,$03,$70,$18,$A5|
000001B0: 2C 24 46 42 2C 24 36 39  2C 24 32 38 2C 24 38 35  |,$FB,$69,$28,$85|
000001C0: 2C 24 46 42 2C 24 41 35  2C 24 46 43 2C 24 36 39  |,$FB,$A5,$FC,$69|
000001D0: 2C 24 30 30 00 1A 0A 7E  04 83 20 24 38 35 2C 24  |,$00...~.. $85,$|
000001E0: 46 43 2C 24 38 41 2C 24  41 30 2C 24 30 30 2C 24  |FC,$8A,$A0,$00,$|
000001F0: 39 31 2C 24 46 42 2C 24  41 43 2C 24 30 32 2C 24  |91,$FB,$AC,$02,$|
00000200: 37 30 2C 24 43 38 2C 24  39 31 2C 24 46 42 2C 24  |70,$C8,$91,$FB,$|
00000210: 43 45 2C 24 30 33 2C 24  37 30 00 28 0A 88 04 83  |CE,$03,$70.(....|
00000220: 20 24 44 30 2C 24 45 33  00 6E 0A 92 04 83 20 24  | $D0,$E3.n.... $|
00000230: 41 43 2C 24 30 32 2C 24  37 30 2C 24 43 38 2C 24  |AC,$02,$70,$C8,$|
00000240: 41 39 2C 24 37 44 2C 24  39 31 2C 24 46 42 2C 24  |A9,$7D,$91,$FB,$|
00000250: 38 38 2C 24 41 39 2C 24  34 33 2C 24 39 31 2C 24  |88,$A9,$43,$91,$|
00000260: 46 42 2C 24 38 38 2C 24  44 30 2C 24 46 42 00 93  |FB,$88,$D0,$FB..|
00000270: 0A 9C 04 83 20 24 41 39  2C 24 36 44 2C 24 39 31  |.... $A9,$6D,$91|
00000280: 2C 24 46 42 2C 24 36 30  2C 24 36 30 2C 22 53 54  |,$FB,$60,$60,"ST|
00000290: 4F 50 22 00 A5 0A 70 17  8F 20 44 41 54 41 20 4C  |OP"...p.. DATA L|
000002A0: 41 45 53 45 52 00 AE 0A  75 17 87 20 41 24 00 C9  |AESER...u.. A$..|
000002B0: 0A 7A 17 8D 37 30 30 30  3A 8F 20 4F 4D 53 41 45  |.z..7000:. OMSAE|
000002C0: 54 20 54 49 4C 20 44 45  43 00 D5 0A 84 17 41 44  |T TIL DEC.....AD|
000002D0: 52 B2 44 45 43 00 DE 0A  8E 17 87 20 41 24 00 F6  |R.DEC...... A$..|
000002E0: 0A 98 17 8B 20 41 24 B2  22 53 54 4F 50 22 A7 20  |.... A$."STOP". |
000002F0: 89 20 38 30 30 30 00 0C  0B A2 17 8D 20 37 30 30  |. 8000...... 700|
00000300: 30 20 3A 8F 20 4F 4D 53  54 41 52 54 00 20 0B AC  |0 :. OMSTART. ..|
00000310: 17 8F 20 50 52 49 4E 54  20 41 44 52 2C 44 45 43  |.. PRINT ADR,DEC|
00000320: 00 32 0B B1 17 8F 20 50  4F 4B 45 41 44 52 2C 44  |.2.... POKEADR,D|
00000330: 45 43 00 47 0B B6 17 41  44 52 B2 41 44 52 AA 31  |EC.G...ADR.ADR.1|
00000340: 3A 89 20 36 30 33 30 00  60 0B C0 17 8F 3A 42 52  |:. 6030.`....:BR|
00000350: 55 47 20 41 46 20 50 52  4F 47 52 41 4D 4D 45 54  |UG AF PROGRAMMET|
00000360: 00 79 0B 58 1B 8F 3A 4F  4D 53 41 45 54 20 54 49  |.y.X..:OMSAET TI|
00000370: 4C 20 44 45 43 49 4D 41  4C 00 91 0B 62 1B 81 20  |L DECIMAL...b.. |
00000380: 58 B2 31 20 A4 20 34 20  3A 51 28 58 29 B2 30 3A  |X.1 . 4 :Q(X).0:|
00000390: 82 00 A8 0B 6C 1B 41 24  B2 CA 28 41 24 2C 32 2C  |....l.A$..(A$,2,|
000003A0: C3 28 41 24 29 AB 31 29  00 BA 0B 76 1B 81 20 58  |.(A$).1)...v.. X|
000003B0: B2 31 20 A4 20 C3 28 41  24 29 00 E9 0B 80 1B 8B  |.1 . .(A$)......|
000003C0: 20 CA 28 41 24 2C 58 2C  31 29 B3 B2 22 39 22 A7  | .(A$,X,1).."9".|
000003D0: 20 51 28 58 29 B2 C5 28  CA 28 41 24 2C 58 2C 31  | Q(X)..(.(A$,X,1|
000003E0: 29 29 3A 89 20 37 30 36  30 00 02 0C 8A 1B 51 28  |)):. 7060.....Q(|
000003F0: 58 29 B2 C6 28 CA 28 41  24 2C 58 2C 31 29 29 AB  |X)..(.(A$,X,1)).|
00000400: 35 35 00 08 0C 94 1B 82  00 31 0C 9E 1B 8B 20 C3  |55.......1.... .|
00000410: 28 41 24 29 B2 32 A7 20  44 45 43 20 B2 20 51 28  |(A$).2. DEC . Q(|
00000420: 31 29 AC 31 36 AA 51 28  32 29 20 3A 89 37 30 39  |1).16.Q(2) :.709|
00000430: 30 00 59 0C A8 1B 44 45  43 B2 28 51 28 31 29 AC  |0.Y...DEC.(Q(1).|
00000440: 31 36 AA 51 28 32 29 29  AC 32 35 36 AA 51 28 33  |16.Q(2)).256.Q(3|
00000450: 29 AC 31 36 AA 51 28 34  29 00 5F 0C B2 1B 8E 00  |).16.Q(4)._.....|
00000460: 8E 0C 40 1F 85 22 13 11  11 11 11 11 11 11 11 11  |..@.."..........|
00000470: 11 11 11 11 11 11 11 11  11 11 11 11 50 4C 41 44  |............PLAD|
00000480: 53 20 46 52 41 20 30 2C  30 22 3B 50 4C 41 00 A8  |S FRA 0,0";PLA..|
00000490: 0C 4A 1F 85 22 4C 41 45  4E 47 44 45 20 20 20 20  |.J.."LAENGDE    |
000004A0: 20 20 22 3B 4C 41 4E 47  00 C1 0C 54 1F 85 22 48  |  ";LANG...T.."H|
000004B0: 30 4A 44 45 20 20 20 20  20 20 20 20 22 3B 48 30  |0JDE        ";H0|
000004C0: 4A 00 D3 0C 5E 1F 48 49  B2 B5 28 50 4C 41 AD 32  |J...^.HI..(PLA.2|
000004D0: 35 36 29 00 E5 0C 68 1F  4C 4F B2 50 4C 41 AB 48  |56)...h.LO.PLA.H|
000004E0: 49 AC 32 35 36 00 F4 0C  72 1F 41 24 B2 22 24 37  |I.256...r.A$."$7|
000004F0: 30 30 30 22 00 FE 0C 7C  1F 8D 37 30 30 30 00 1C  |000"...|..7000..|
00000500: 0D 86 1F 97 44 45 43 2C  4C 4F 3A 44 45 43 B2 44  |....DEC,LO:DEC.D|
00000510: 45 43 AA 31 3A 97 44 45  43 2C 48 49 00 34 0D 90  |EC.1:.DEC,HI.4..|
00000520: 1F 44 45 43 B2 44 45 43  AA 31 3A 97 44 45 43 2C  |.DEC.DEC.1:.DEC,|
00000530: 4C 41 4E 47 00 55 0D 9A  1F 44 45 43 B2 44 45 43  |LANG.U...DEC.DEC|
00000540: AA 31 3A 97 44 45 43 2C  48 30 4A 3A 44 45 43 B2  |.1:.DEC,H0J:DEC.|
00000550: 44 45 43 AA 31 00 60 0D  9F 1F 8F 20 3F 22 93 22  |DEC.1.`.... ?"."|
00000560: 00 70 0D A4 1F 9E 20 44  45 43 3A 89 38 30 30 30  |.p.... DEC:.8000|
00000570: 00 7E 0D 48 26 8F 53 59  53 32 38 36 37 36 00 97  |.~.H&.SYS28676..|
00000580: 0D AC 26 8F 3A 56 45 44  20 53 54 41 52 54 20 53  |..&.:VED START S|
00000590: 59 53 32 38 36 37 36 00  BE 0D 10 27 8F 50 4F 4B  |YS28676....'.POK|
000005A0: 45 32 38 36 37 35 2C 38  3A 50 4F 4B 45 32 38 36  |E28675,8:POKE286|
000005B0: 37 34 2C 31 32 3A 53 59  53 32 38 36 37 36 00 00  |74,12:SYS28676..|
000005C0: 00                                                |.               |

....... SAVE"FAERDIG FIRKANT",8.;.... RE
SAVER NMEMERY $7000.]....51,0:.52,112:.5
5,0:.56,112:..C...:.I...:.}.... START AD
RESSE...$.. $7000...... OPSTART DATA...8
.. $64,$00,$0A,$05...B.. MCODE...L.. $18
,$AD,$00,$70,$69,$00,$85,$FB,$AD,$01,$70
.2.V.. $69,$04,$85,$FCREM  ,$20,$81,$FF:
. SLET SKERM DE TRE SIDSTE.\.`.. $AC,$02
,$70,$C8,$A9,$6E,$91,$FB,$88...J.. $A9,$
43,$91,$FB,$88,$D0,$FB,$A9,$70,$91,$FB.T
.T.. $A2,$5D,$EE,$03,$70,$18,$A5,$FB,$69
,$28,$85,$FB,$A5,$FC,$69,$00...~.. $85,$
FC,$8A,$A0,$00,$91,$FB,$AC,$02,$70,$C8,$
91,$FB,$CE,$03,$70.(.... $D0,$E3.N.... $
AC,$02,$70,$C8,$A9,$7D,$91,$FB,$88,$A9,$
43,$91,$FB,$88,$D0,$FB...... $A9,$6D,$91
,$FB,$60,$60,"STOP"...P.. DATA LAESER...
U.. A$.I.Z..7000:. OMSAET TIL DEC.U...AD
R.DEC...... A$...... A$."STOP". . 8000..
.... 7000 :. OMSTART. .... PRINT ADR,DEC
.2.... POKEADR,DEC.G...ADR.ADR.1:. 6030.
`....:BRUG AF PROGRAMMET.Y.X..:OMSAET TI
L DECIMAL...B.. X.1 . 4 :Q(X).0:....L.A$
.J(A$,2,C(A$).1)...V.. X.1 . C(A$)......
 J(A$,X,1).."9". Q(X).E(J(A$,X,1)):. 706
0.....Q(X).F(J(A$,X,1)).55.......1.... C
(A$).2. DEC . Q(1).16.Q(2) :.7090.Y...DE
C.(Q(1).16.Q(2)).256.Q(3).16.Q(4)._.....
..@.."......................PLADS FRA 0,
0";PLA...J.."LAENGDE      ";LANG.A.T.."H
0JDE        ";H0J.S.^.HI..(PLA.256)...H.
LO.PLA.HI.256...R.A$."$7000"...|..7000..
....DEC,LO:DEC.DEC.1:.DEC,HI.4...DEC.DEC
.1:.DEC,LANG.U...DEC.DEC.1:.DEC,H0J:DEC.
DEC.1.`.... ?".".P.... DEC:.8000.~.H&.SY
S28676....&.:VED START SYS28676....'.POK
E28675,8:POKE28674,12:SYS28676...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL