REGNEPROGRAM I

FILE INFORMATION

FILENAME(S): REGNEPROGRAM I

FILE TYPE(S): PRG

FILE SIZE: 1.8K

FIRST SEEN: 2025-11-30 20:22:39

APPEARS ON: 1 disk(s)

FILE HASH

593e7a6365041e561875692afd76a4f95a4852967d5faa252bc0ef8f09edb1b9

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
DAVID LARSSON	REGNEPROGRAM I	PRG	Curtcool, Misc	20	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 15 08 0A 00 8F 20  2A 2A 2A 2A 2A 2A 2A 2A  |....... ********|
00000010: 2A 2A 2A 2A 2A 00 29 08  14 00 8F 20 52 45 47 4E  |*****.).... REGN|
00000020: 45 20 50 52 4F 47 52 41  4D 00 3D 08 1E 00 8F 20  |E PROGRAM.=.... |
00000030: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 00 4B 08  |*************.K.|
00000040: 21 00 97 20 35 33 32 38  30 2C 35 00 59 08 23 00  |!.. 53280,5.Y.#.|
00000050: 97 20 35 33 32 38 31 2C  33 00 62 08 28 00 99 22  |. 53281,3.b.(.."|
00000060: 93 22 00 8F 08 32 00 99  22 05 56 41 45 4C 47 45  |."...2..".VAELGE|
00000070: 52 20 44 55 20 1C 4F 05  4D 4B 52 45 44 53 20 45  |R DU .O.MKREDS E|
00000080: 4C 4C 45 52 20 1C 41 05  52 45 41 4C 20 3F 22 00  |LLER .A.REAL ?".|
00000090: A4 08 3C 00 A1 20 51 24  3A 8B 20 51 24 B2 22 22  |..<.. Q$:. Q$.""|
000000A0: A7 20 36 30 00 B7 08 3D  00 8B 20 51 24 B2 22 41  |. 60...=.. Q$."A|
000000B0: 22 20 A7 20 35 30 30 00  C9 08 3E 00 8B 20 51 24  |" . 500...>.. Q$|
000000C0: B2 22 4F 22 20 A7 20 37  30 00 D2 08 3F 00 89 20  |."O" . 70...?.. |
000000D0: 34 30 00 DB 08 40 00 99  22 93 22 00 0B 09 46 00  |40...@.."."...F.|
000000E0: 99 22 05 46 30 4C 47 45  4E 44 45 20 54 49 4E 47  |.".F0LGENDE TING|
000000F0: 20 4B 41 4E 20 4A 45 47  20 52 45 47 4E 45 20 4F  | KAN JEG REGNE O|
00000100: 4D 4B 52 45 44 53 20 41  46 3A 22 00 50 09 50 00  |MKREDS AF:".P.P.|
00000110: 99 22 1C 4B 05 56 41 44  52 41 54 2C 20 1C 52 05  |.".K.VADRAT, .R.|
00000120: 45 4B 54 41 4E 47 45 4C  2C 20 52 1C 48 05 4F 4E  |EKTANGEL, R.H.ON|
00000130: 42 45 2C 20 1C 50 05 41  52 41 4C 45 4C 4C 45 47  |BE, .P.ARALELLEG|
00000140: 52 41 4D 2C 20 1C 54 05  52 45 4B 41 4E 54 22 3B  |RAM, .T.REKANT";|
00000150: 00 64 09 55 00 99 22 05  4F 47 20 1C 43 05 49 52  |.d.U..".OG .C.IR|
00000160: 4B 45 4C 22 00 7E 09 5A  00 99 20 22 48 56 41 44  |KEL".~.Z.. "HVAD|
00000170: 20 56 41 45 4C 47 45 52  20 44 55 20 3F 22 00 93  | VAELGER DU ?"..|
00000180: 09 5C 00 A1 20 4E 24 3A  8B 20 4E 24 B2 22 22 A7  |.\.. N$:. N$."".|
00000190: 20 39 32 00 CB 09 64 00  8B 4E 24 B2 22 4B 22 20  | 92...d..N$."K" |
000001A0: A7 20 85 22 48 56 41 44  20 45 52 20 44 45 4E 20  |. ."HVAD ER DEN |
000001B0: 45 4E 45 20 53 49 44 45  22 3B 57 3A 57 24 B2 C4  |ENE SIDE";W:W$..|
000001C0: 28 57 29 3A 89 20 32 30  30 30 30 00 06 0A 6E 00  |(W):. 20000...n.|
000001D0: 8B 4E 24 B2 22 52 22 20  A7 20 85 22 48 56 41 44  |.N$."R" . ."HVAD|
000001E0: 20 45 52 20 44 45 20 54  4F 20 53 49 44 45 52 22  | ER DE TO SIDER"|
000001F0: 3B 45 2C 52 3A 45 24 B2  C4 28 45 29 20 3A 20 89  |;E,R:E$..(E) : .|
00000200: 20 32 30 31 30 30 00 3F  0A 78 00 8B 4E 24 B2 22  | 20100.?.x..N$."|
00000210: 48 22 20 A7 20 85 22 48  56 41 44 20 45 52 20 44  |H" . ."HVAD ER D|
00000220: 45 4E 20 45 4E 45 20 53  49 44 45 22 3B 54 3A 54  |EN ENE SIDE";T:T|
00000230: 24 B2 C4 28 54 29 20 3A  89 20 32 30 32 30 30 00  |$..(T) :. 20200.|
00000240: 79 0A 82 00 8B 20 4E 24  B2 22 50 22 20 A7 20 85  |y.... N$."P" . .|
00000250: 22 48 56 41 44 20 45 52  20 44 45 20 54 4F 20 53  |"HVAD ER DE TO S|
00000260: 49 44 45 52 22 3B 59 2C  55 3A 59 24 B2 C4 28 59  |IDER";Y,U:Y$..(Y|
00000270: 29 3A 89 20 32 30 33 30  30 00 B2 0A 8C 00 8B 4E  |):. 20300......N|
00000280: 24 B2 22 54 22 A7 85 22  48 56 41 44 20 45 52 20  |$."T".."HVAD ER |
00000290: 44 45 20 54 52 45 20 53  49 44 45 52 22 3B 49 2C  |DE TRE SIDER";I,|
000002A0: 4F 2C 50 3A 49 24 B2 C4  28 49 29 3A 89 32 30 34  |O,P:I$..(I):.204|
000002B0: 30 30 00 EA 0A 96 00 8B  4E 24 B2 22 43 22 20 A7  |00......N$."C" .|
000002C0: 20 85 22 48 56 41 44 20  45 52 20 44 49 41 4D 45  | ."HVAD ER DIAME|
000002D0: 54 45 52 45 4E 22 3B 4D  3A 4D 24 B2 C4 28 4D 29  |TEREN";M:M$..(M)|
000002E0: 20 3A 20 89 20 32 30 35  30 30 00 F3 0A C8 00 89  | : . 20500......|
000002F0: 20 36 34 00 FC 0A 2C 01  99 22 93 22 00 29 0B F4  | 64...,..".".)..|
00000300: 01 99 22 46 30 4C 47 45  4E 44 45 20 54 49 4E 47  |.."F0LGENDE TING|
00000310: 20 4B 41 4E 20 4A 45 47  20 52 45 47 4E 45 20 41  | KAN JEG REGNE A|
00000320: 52 45 41 4C 20 41 46 3A  22 00 6D 0B E8 03 99 22  |REAL AF:".m...."|
00000330: 1C 4B 05 56 41 44 52 41  54 2C 20 1C 52 05 45 54  |.K.VADRAT, .R.ET|
00000340: 41 4E 47 45 4C 2C 20 52  1C 48 05 4F 4D 42 45 2C  |ANGEL, R.H.OMBE,|
00000350: 20 1C 50 05 41 52 41 4C  4C 45 4C 4F 47 52 41 4D  | .P.ARALLELOGRAM|
00000360: 2C 20 1C 54 05 52 45 4B  41 4E 54 22 3B 00 80 0B  |, .T.REKANT";...|
00000370: 1A 04 99 22 4F 47 20 1C  43 05 49 52 4B 45 4C 22  |..."OG .C.IRKEL"|
00000380: 00 9A 0B 4C 04 99 20 22  48 56 41 44 20 56 41 45  |...L.. "HVAD VAE|
00000390: 4C 47 45 52 20 44 55 20  3F 22 00 B0 0B 56 04 A1  |LGER DU ?"...V..|
000003A0: 20 4B 24 3A 8B 20 4B 24  B2 22 22 A7 31 31 31 30  | K$:. K$."".1110|
000003B0: 00 EB 0B B0 04 8B 20 4B  24 B2 22 4B 22 A7 20 85  |...... K$."K". .|
000003C0: 20 22 48 56 41 44 20 45  52 20 44 45 4E 20 45 4E  | "HVAD ER DEN EN|
000003D0: 45 20 53 49 44 45 22 3B  41 3A 41 24 B2 C4 28 41  |E SIDE";A:A$..(A|
000003E0: 29 20 3A 20 89 20 32 31  31 30 30 00 25 0C 14 05  |) : . 21100.%...|
000003F0: 8B 20 4B 24 B2 22 52 22  A7 20 85 20 22 48 56 41  |. K$."R". . "HVA|
00000400: 44 20 45 52 20 44 45 20  54 4F 20 53 49 44 45 52  |D ER DE TO SIDER|
00000410: 22 3B 42 2C 43 3A 42 24  B2 C4 28 42 29 3A 89 20  |";B,C:B$..(B):. |
00000420: 32 31 32 30 30 00 5E 0C  78 05 8B 4B 24 B2 22 48  |21200.^.x..K$."H|
00000430: 22 A7 85 22 48 56 41 44  20 45 52 20 44 45 4E 20  |".."HVAD ER DEN |
00000440: 45 4E 45 20 53 49 44 45  20 4F 47 20 48 30 4A 44  |ENE SIDE OG H0JD|
00000450: 45 22 3B 44 2C 46 3A 89  20 35 31 30 30 30 00 96  |E";D,F:. 51000..|
00000460: 0C DC 05 8B 4B 24 B2 22  50 22 A7 85 20 22 48 56  |....K$."P".. "HV|
00000470: 41 44 20 45 52 20 47 52  55 4E 44 20 4C 49 4E 49  |AD ER GRUND LINI|
00000480: 45 20 4F 47 20 48 30 4A  44 45 22 3B 47 2C 48 3A  |E OG H0JDE";G,H:|
00000490: 89 36 32 30 30 30 00 D2  0C 40 06 8B 20 4B 24 B2  |.62000...@.. K$.|
000004A0: 22 54 22 A7 20 85 20 22  48 56 41 44 20 45 52 20  |"T". . "HVAD ER |
000004B0: 47 52 55 4E 44 20 4C 49  4E 49 45 20 4F 47 20 48  |GRUND LINIE OG H|
000004C0: 30 4A 44 45 22 3B 4A 2C  4B 3A 20 89 20 35 32 30  |0JDE";J,K: . 520|
000004D0: 30 30 00 0F 0D A4 06 8B  4B 24 B2 22 43 22 20 A7  |00......K$."C" .|
000004E0: 20 85 22 48 56 41 44 20  45 52 20 43 49 52 4B 4C  | ."HVAD ER CIRKL|
000004F0: 45 53 20 52 41 44 49 55  53 20 22 3B 4C 3A 4C 24  |ES RADIUS ";L:L$|
00000500: B2 C4 28 4C 29 20 3A 20  89 20 32 31 36 30 30 00  |..(L) : . 21600.|
00000510: 19 0D D0 07 89 20 33 30  30 00 2C 0D 20 4E 99 57  |..... 300.,. N.W|
00000520: AC 34 20 3A 20 89 20 36  30 30 30 30 00 4B 0D 84  |.4 : . 60000.K..|
00000530: 4E 52 24 B2 C4 28 52 29  3A 99 28 45 AA 52 29 AC  |NR$..(R):.(E.R).|
00000540: 32 20 3A 20 89 20 36 30  30 30 30 00 5E 0D E8 4E  |2 : . 60000.^..N|
00000550: 99 54 AC 34 20 3A 20 89  20 36 30 30 30 30 00 7C  |.T.4 : . 60000.||
00000560: 0D 4C 4F 55 24 B2 C4 28  55 29 3A 99 28 59 AA 55  |.LOU$..(U):.(Y.U|
00000570: 29 AC 32 20 3A 89 20 36  30 30 30 30 00 A1 0D B0  |).2 :. 60000....|
00000580: 4F 4F 24 B2 C4 28 4F 29  3A 50 24 B2 C4 28 50 29  |OO$..(O):P$..(P)|
00000590: 3A 99 49 AA 4F AA 50 20  3A 20 89 20 36 30 30 30  |:.I.O.P : . 6000|
000005A0: 30 00 B5 0D 14 50 99 20  4D AC FF 20 3A 20 89 20  |0....P. M.. : . |
000005B0: 36 30 30 30 30 00 C8 0D  6C 52 99 41 AC 41 20 3A  |60000...lR.A.A :|
000005C0: 20 89 20 36 30 30 30 30  00 E3 0D D0 52 43 24 B2  | . 60000....RC$.|
000005D0: C4 28 43 29 3A 99 42 AC  43 20 3A 20 89 20 36 30  |.(C):.B.C : . 60|
000005E0: 30 30 30 00 F6 0D 34 53  99 44 AC 46 20 3A 20 89  |000...4S.D.F : .|
000005F0: 20 36 30 30 30 30 00 09  0E 98 53 99 47 AC 48 20  | 60000....S.G.H |
00000600: 3A 20 89 20 36 30 30 30  30 00 1C 0E FC 53 99 4A  |: . 60000....S.J|
00000610: AC 4B 20 3A 20 89 20 36  30 30 30 30 00 33 0E 60  |.K : . 60000.3.`|
00000620: 54 99 28 4C AC 4C 29 AC  FF 20 3A 20 89 20 36 30  |T.(L.L).. : . 60|
00000630: 30 30 30 00 4E 0E 30 75  44 24 2C 46 24 B2 C4 28  |000.N.0uD$,F$..(|
00000640: 44 2C 46 29 20 3A 20 89  20 32 31 33 30 30 00 68  |D,F) : . 21300.h|
00000650: 0E 40 9C 47 24 2C 48 24  B2 C4 28 47 2C 48 29 3A  |.@.G$,H$..(G,H):|
00000660: 20 89 20 32 31 34 30 30  00 83 0E 50 C3 4A 24 2C  | . 21400...P.J$,|
00000670: 4B 24 B2 C4 28 4A 2C 4B  29 20 3A 20 89 20 32 31  |K$..(J,K) : . 21|
00000680: 35 30 30 00 A6 0E 38 C7  44 24 B2 C4 28 44 29 3A  |500...8.D$..(D):|
00000690: 46 24 B2 C4 28 46 29 3A  99 44 AC 46 20 3A 20 89  |F$..(F):.D.F : .|
000006A0: 20 36 30 30 30 30 00 CA  0E 20 CB 47 24 B2 C4 28  | 60000... .G$..(|
000006B0: 47 29 3A 48 24 B2 C4 28  48 29 3A 99 20 47 AC 48  |G):H$..(H):. G.H|
000006C0: 20 3A 20 89 20 36 30 30  30 30 00 D6 0E 60 EA 89  | : . 60000...`..|
000006D0: 20 36 33 30 30 30 00 E2  0E 48 EE 89 20 36 33 30  | 63000...H.. 630|
000006E0: 30 30 00 FD 0E 30 F2 4A  24 2C 4B 24 B2 53 54 52  |00...0.J$,K$.STR|
000006F0: 28 4A 2C 4B 29 3A 89 20  32 31 35 30 30 00 2B 0F  |(J,K):. 21500.+.|
00000700: 18 F6 99 20 22 54 52 59  4B 20 50 41 41 20 45 4E  |... "TRYK PAA EN|
00000710: 20 54 41 53 54 20 46 4F  52 20 41 54 20 4B 4F 4D  | TAST FOR AT KOM|
00000720: 4D 45 20 56 49 44 45 52  45 20 22 00 44 0F 0C F8  |ME VIDERE ".D...|
00000730: A1 20 5A 24 20 3A 20 8B  20 5A 24 B2 22 22 A7 36  |. Z$ : . Z$."".6|
00000740: 33 35 30 30 00 4D 0F 3E  F8 89 20 31 30 00 53 0F  |3500.M.>.. 10.S.|
00000750: 70 F8 80 00 00 00                                 |p.....          |

....... *************.).... REGNE PROGRA
M.=.... *************.K.!.. 53280,5.Y.#.
. 53281,3.B.(.."."...2..".VAELGER DU .O.
MKREDS ELLER .A.REAL ?"...<.. Q$:. Q$.""
. 60...=.. Q$."A" . 500.I.>.. Q$."O" . 7
0.R.?.. 40...@.."."...F..".F0LGENDE TING
 KAN JEG REGNE OMKREDS AF:".P.P..".K.VAD
RAT, .R.EKTANGEL, R.H.ONBE, .P.ARALELLEG
RAM, .T.REKANT";.D.U..".OG .C.IRKEL".~.Z
.. "HVAD VAELGER DU ?"...\.. N$:. N$."".
 92.K.D..N$."K" . ."HVAD ER DEN ENE SIDE
";W:W$.D(W):. 20000...N..N$."R" . ."HVAD
 ER DE TO SIDER";E,R:E$.D(E) : . 20100.?
.X..N$."H" . ."HVAD ER DEN ENE SIDE";T:T
$.D(T) :. 20200.Y.... N$."P" . ."HVAD ER
 DE TO SIDER";Y,U:Y$.D(Y):. 20300......N
$."T".."HVAD ER DE TRE SIDER";I,O,P:I$.D
(I):.20400......N$."C" . ."HVAD ER DIAME
TEREN";M:M$.D(M) : . 20500...H.. 64...,.
.".".)...."F0LGENDE TING KAN JEG REGNE A
REAL AF:".M....".K.VADRAT, .R.ETANGEL, R
.H.OMBE, .P.ARALLELOGRAM, .T.REKANT";...
..."OG .C.IRKEL"...L.. "HVAD VAELGER DU 
?"...V.. K$:. K$."".1110...... K$."K". .
 "HVAD ER DEN ENE SIDE";A:A$.D(A) : . 21
100.%.... K$."R". . "HVAD ER DE TO SIDER
";B,C:B$.D(B):. 21200.^.X..K$."H".."HVAD
 ER DEN ENE SIDE OG H0JDE";D,F:. 51000..
....K$."P".. "HVAD ER GRUND LINIE OG H0J
DE";G,H:.62000.R.@.. K$."T". . "HVAD ER 
GRUND LINIE OG H0JDE";J,K: . 52000......
K$."C" . ."HVAD ER CIRKLES RADIUS ";L:L$
.D(L) : . 21600...P.. 300.,. N.W.4 : . 6
0000.K..NR$.D(R):.(E.R).2 : . 60000.^..N
.T.4 : . 60000.|.LOU$.D(U):.(Y.U).2 :. 6
0000....OO$.D(O):P$.D(P):.I.O.P : . 6000
0....P. M.. : . 60000.H.LR.A.A : . 60000
...PRC$.D(C):.B.C : . 60000...4S.D.F : .
 60000....S.G.H : . 60000....S.J.K : . 6
0000.3.`T.(L.L).. : . 60000.N.0UD$,F$.D(
D,F) : . 21300.H.@.G$,H$.D(G,H): . 21400
...PCJ$,K$.D(J,K) : . 21500...8GD$.D(D):
F$.D(F):.D.F : . 60000.J. KG$.D(G):H$.D(
H):. G.H : . 60000.V.`.. 63000...H.. 630
00...0.J$,K$.STR(J,K):. 21500.+.... "TRY
K PAA EN TAST FOR AT KOMME VIDERE ".D...
. Z$ : . Z$."".63500.M.>.. 10.S.P.....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL