REGNEPROGRAM
FILE INFORMATION
FILENAME(S): REGNEPROGRAM
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 20:22:39
APPEARS ON: 1 disk(s)
FILE HASH
fb0945c55e047c6902a336fda47161456583bcfc7d97a7287c94fd62e3a80552
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DAVID LARSSON | REGNEPROGRAM | PRG | Curtcool, Misc | 20 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 08 08 01 00 8F CC 00 0F 08 02 00 8F CC 00 |................| 00000010: 16 08 03 00 8F CC 00 1D 08 04 00 8F CC 00 24 08 |..............$.| 00000020: 05 00 8F CC 00 2B 08 06 00 8F CC 00 32 08 07 00 |.....+......2...| 00000030: 8F CC 00 40 08 08 00 97 20 37 37 35 2C 32 30 30 |...@.... 775,200| 00000040: 00 4C 08 09 00 97 20 38 30 38 2C 32 00 60 08 0A |.L.... 808,2.`..| 00000050: 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************| 00000060: 00 74 08 14 00 8F 20 52 45 47 4E 45 20 50 52 4F |.t.... REGNE PRO| 00000070: 47 52 41 4D 00 88 08 1E 00 8F 20 2A 2A 2A 2A 2A |GRAM...... *****| 00000080: 2A 2A 2A 2A 2A 2A 2A 2A 00 96 08 21 00 97 20 35 |********...!.. 5| 00000090: 33 32 38 30 2C 35 00 A4 08 23 00 97 20 35 33 32 |3280,5...#.. 532| 000000A0: 38 31 2C 33 00 AD 08 28 00 99 22 93 22 00 DA 08 |81,3...(.."."...| 000000B0: 32 00 99 22 05 56 41 45 4C 47 45 52 20 44 55 20 |2..".VAELGER DU | 000000C0: 1C 4F 05 4D 4B 52 45 44 53 20 45 4C 4C 45 52 20 |.O.MKREDS ELLER | 000000D0: 1C 41 05 52 45 41 4C 20 3F 22 00 EF 08 3C 00 A1 |.A.REAL ?"...<..| 000000E0: 20 51 24 3A 8B 20 51 24 B2 22 22 A7 20 36 30 00 | Q$:. Q$."". 60.| 000000F0: 02 09 3D 00 8B 20 51 24 B2 22 41 22 20 A7 20 35 |..=.. Q$."A" . 5| 00000100: 30 30 00 14 09 3E 00 8B 20 51 24 B2 22 4F 22 20 |00...>.. Q$."O" | 00000110: A7 20 37 30 00 1D 09 3F 00 89 20 34 30 00 26 09 |. 70...?.. 40.&.| 00000120: 40 00 99 22 93 22 00 56 09 46 00 99 22 05 46 30 |@..".".V.F..".F0| 00000130: 4C 47 45 4E 44 45 20 54 49 4E 47 20 4B 41 4E 20 |LGENDE TING KAN | 00000140: 4A 45 47 20 52 45 47 4E 45 20 4F 4D 4B 52 45 44 |JEG REGNE OMKRED| 00000150: 53 20 41 46 3A 22 00 9B 09 50 00 99 22 1C 4B 05 |S AF:"...P..".K.| 00000160: 56 41 44 52 41 54 2C 20 1C 52 05 45 4B 54 41 4E |VADRAT, .R.EKTAN| 00000170: 47 45 4C 2C 20 52 1C 48 05 4F 4E 42 45 2C 20 1C |GEL, R.H.ONBE, .| 00000180: 50 05 41 52 41 4C 45 4C 4C 45 47 52 41 4D 2C 20 |P.ARALELLEGRAM, | 00000190: 1C 54 05 52 45 4B 41 4E 54 22 3B 00 AF 09 55 00 |.T.REKANT";...U.| 000001A0: 99 22 05 4F 47 20 1C 43 05 49 52 4B 45 4C 22 00 |.".OG .C.IRKEL".| 000001B0: C9 09 5A 00 99 20 22 48 56 41 44 20 56 41 45 4C |..Z.. "HVAD VAEL| 000001C0: 47 45 52 20 44 55 20 3F 22 00 DE 09 5C 00 A1 20 |GER DU ?"...\.. | 000001D0: 4E 24 3A 8B 20 4E 24 B2 22 22 A7 20 39 32 00 16 |N$:. N$."". 92..| 000001E0: 0A 64 00 8B 4E 24 B2 22 4B 22 20 A7 20 85 22 48 |.d..N$."K" . ."H| 000001F0: 56 41 44 20 45 52 20 44 45 4E 20 45 4E 45 20 53 |VAD ER DEN ENE S| 00000200: 49 44 45 22 3B 57 3A 57 24 B2 C4 28 57 29 3A 89 |IDE";W:W$..(W):.| 00000210: 20 32 30 30 30 30 00 51 0A 6E 00 8B 4E 24 B2 22 | 20000.Q.n..N$."| 00000220: 52 22 20 A7 20 85 22 48 56 41 44 20 45 52 20 44 |R" . ."HVAD ER D| 00000230: 45 20 54 4F 20 53 49 44 45 52 22 3B 45 2C 52 3A |E TO SIDER";E,R:| 00000240: 45 24 B2 C4 28 45 29 20 3A 20 89 20 32 30 31 30 |E$..(E) : . 2010| 00000250: 30 00 8A 0A 78 00 8B 4E 24 B2 22 48 22 20 A7 20 |0...x..N$."H" . | 00000260: 85 22 48 56 41 44 20 45 52 20 44 45 4E 20 45 4E |."HVAD ER DEN EN| 00000270: 45 20 53 49 44 45 22 3B 54 3A 54 24 B2 C4 28 54 |E SIDE";T:T$..(T| 00000280: 29 20 3A 89 20 32 30 32 30 30 00 C4 0A 82 00 8B |) :. 20200......| 00000290: 20 4E 24 B2 22 50 22 20 A7 20 85 22 48 56 41 44 | N$."P" . ."HVAD| 000002A0: 20 45 52 20 44 45 20 54 4F 20 53 49 44 45 52 22 | ER DE TO SIDER"| 000002B0: 3B 59 2C 55 3A 59 24 B2 C4 28 59 29 3A 89 20 32 |;Y,U:Y$..(Y):. 2| 000002C0: 30 33 30 30 00 FD 0A 8C 00 8B 4E 24 B2 22 54 22 |0300......N$."T"| 000002D0: A7 85 22 48 56 41 44 20 45 52 20 44 45 20 54 52 |.."HVAD ER DE TR| 000002E0: 45 20 53 49 44 45 52 22 3B 49 2C 4F 2C 50 3A 49 |E SIDER";I,O,P:I| 000002F0: 24 B2 C4 28 49 29 3A 89 32 30 34 30 30 00 35 0B |$..(I):.20400.5.| 00000300: 96 00 8B 4E 24 B2 22 43 22 20 A7 20 85 22 48 56 |...N$."C" . ."HV| 00000310: 41 44 20 45 52 20 44 49 41 4D 45 54 45 52 45 4E |AD ER DIAMETEREN| 00000320: 22 3B 4D 3A 4D 24 B2 C4 28 4D 29 20 3A 20 89 20 |";M:M$..(M) : . | 00000330: 32 30 35 30 30 00 3E 0B C8 00 89 20 36 34 00 47 |20500.>.... 64.G| 00000340: 0B 2C 01 99 22 93 22 00 74 0B F4 01 99 22 46 30 |.,..".".t...."F0| 00000350: 4C 47 45 4E 44 45 20 54 49 4E 47 20 4B 41 4E 20 |LGENDE TING KAN | 00000360: 4A 45 47 20 52 45 47 4E 45 20 41 52 45 41 4C 20 |JEG REGNE AREAL | 00000370: 41 46 3A 22 00 B8 0B E8 03 99 22 1C 4B 05 56 41 |AF:"......".K.VA| 00000380: 44 52 41 54 2C 20 1C 52 05 45 54 41 4E 47 45 4C |DRAT, .R.ETANGEL| 00000390: 2C 20 52 1C 48 05 4F 4D 42 45 2C 20 1C 50 05 41 |, R.H.OMBE, .P.A| 000003A0: 52 41 4C 4C 45 4C 4F 47 52 41 4D 2C 20 1C 54 05 |RALLELOGRAM, .T.| 000003B0: 52 45 4B 41 4E 54 22 3B 00 CB 0B 1A 04 99 22 4F |REKANT";......"O| 000003C0: 47 20 1C 43 05 49 52 4B 45 4C 22 00 E5 0B 4C 04 |G .C.IRKEL"...L.| 000003D0: 99 20 22 48 56 41 44 20 56 41 45 4C 47 45 52 20 |. "HVAD VAELGER | 000003E0: 44 55 20 3F 22 00 FB 0B 56 04 A1 20 4B 24 3A 8B |DU ?"...V.. K$:.| 000003F0: 20 4B 24 B2 22 22 A7 31 31 31 30 00 36 0C B0 04 | K$."".1110.6...| 00000400: 8B 20 4B 24 B2 22 4B 22 A7 20 85 20 22 48 56 41 |. K$."K". . "HVA| 00000410: 44 20 45 52 20 44 45 4E 20 45 4E 45 20 53 49 44 |D ER DEN ENE SID| 00000420: 45 22 3B 41 3A 41 24 B2 C4 28 41 29 20 3A 20 89 |E";A:A$..(A) : .| 00000430: 20 32 31 31 30 30 00 70 0C 14 05 8B 20 4B 24 B2 | 21100.p.... K$.| 00000440: 22 52 22 A7 20 85 20 22 48 56 41 44 20 45 52 20 |"R". . "HVAD ER | 00000450: 44 45 20 54 4F 20 53 49 44 45 52 22 3B 42 2C 43 |DE TO SIDER";B,C| 00000460: 3A 42 24 B2 C4 28 42 29 3A 89 20 32 31 32 30 30 |:B$..(B):. 21200| 00000470: 00 9F 0C 78 05 8B 4B 24 B2 22 48 22 A7 85 22 48 |...x..K$."H".."H| 00000480: 56 41 44 20 45 52 20 44 45 4E 20 45 4E 45 20 53 |VAD ER DEN ENE S| 00000490: 49 44 45 20 22 3B 44 3A 89 20 35 31 30 30 30 00 |IDE ";D:. 51000.| 000004A0: CC 0C DC 05 8B 4B 24 B2 22 50 22 A7 85 20 22 48 |.....K$."P".. "H| 000004B0: 56 41 44 20 44 45 20 54 4F 20 53 49 44 45 52 20 |VAD DE TO SIDER | 000004C0: 22 3B 47 2C 48 3A 89 36 32 30 30 30 00 08 0D 40 |";G,H:.62000...@| 000004D0: 06 8B 20 4B 24 B2 22 54 22 A7 20 85 20 22 48 56 |.. K$."T". . "HV| 000004E0: 41 44 20 45 52 20 47 52 55 4E 44 20 4C 49 4E 49 |AD ER GRUND LINI| 000004F0: 45 20 4F 47 20 48 30 4A 44 45 22 3B 4A 2C 4B 3A |E OG H0JDE";J,K:| 00000500: 20 89 20 35 30 30 30 30 00 45 0D A4 06 8B 4B 24 | . 50000.E....K$| 00000510: B2 22 43 22 20 A7 20 85 22 48 56 41 44 20 45 52 |."C" . ."HVAD ER| 00000520: 20 43 49 52 4B 4C 45 53 20 52 41 44 49 55 53 20 | CIRKLES RADIUS | 00000530: 22 3B 4C 3A 4C 24 B2 C4 28 4C 29 20 3A 20 89 20 |";L:L$..(L) : . | 00000540: 32 31 36 30 30 00 4F 0D D0 07 89 20 33 30 30 00 |21600.O.... 300.| 00000550: 62 0D 20 4E 99 57 AC 34 20 3A 20 89 20 36 30 30 |b. N.W.4 : . 600| 00000560: 30 30 00 81 0D 84 4E 52 24 B2 C4 28 52 29 3A 99 |00....NR$..(R):.| 00000570: 28 45 AA 52 29 AC 32 20 3A 20 89 20 36 30 30 30 |(E.R).2 : . 6000| 00000580: 30 00 94 0D E8 4E 99 54 AC 34 20 3A 20 89 20 36 |0....N.T.4 : . 6| 00000590: 30 30 30 30 00 B2 0D 4C 4F 55 24 B2 C4 28 55 29 |0000...LOU$..(U)| 000005A0: 3A 99 28 59 AA 55 29 AC 32 20 3A 89 20 36 30 30 |:.(Y.U).2 :. 600| 000005B0: 30 30 00 D7 0D B0 4F 4F 24 B2 C4 28 4F 29 3A 50 |00....OO$..(O):P| 000005C0: 24 B2 C4 28 50 29 3A 99 49 AA 4F AA 50 20 3A 20 |$..(P):.I.O.P : | 000005D0: 89 20 36 30 30 30 30 00 EB 0D 14 50 99 20 4D AC |. 60000....P. M.| 000005E0: FF 20 3A 20 89 20 36 30 30 30 30 00 FE 0D 6C 52 |. : . 60000...lR| 000005F0: 99 41 AC 41 20 3A 20 89 20 36 30 30 30 30 00 19 |.A.A : . 60000..| 00000600: 0E D0 52 43 24 B2 C4 28 43 29 3A 99 42 AC 43 20 |..RC$..(C):.B.C | 00000610: 3A 20 89 20 36 30 30 30 30 00 2C 0E 34 53 99 44 |: . 60000.,.4S.D| 00000620: AC 46 20 3A 20 89 20 36 30 30 30 30 00 3F 0E 98 |.F : . 60000.?..| 00000630: 53 99 47 AC 48 20 3A 20 89 20 36 30 30 30 30 00 |S.G.H : . 60000.| 00000640: 56 0E FC 53 99 28 4B AD 32 29 AC 4A 20 3A 20 89 |V..S.(K.2).J : .| 00000650: 20 36 30 30 30 30 00 6D 0E 60 54 99 28 4C AC 4C | 60000.m.`T.(L.L| 00000660: 29 AC FF 20 3A 20 89 20 36 30 30 30 30 00 88 0E |).. : . 60000...| 00000670: 30 75 44 24 2C 46 24 B2 C4 28 44 2C 46 29 20 3A |0uD$,F$..(D,F) :| 00000680: 20 89 20 32 31 33 30 30 00 A2 0E 40 9C 47 24 2C | . 21300...@.G$,| 00000690: 48 24 B2 C4 28 47 2C 48 29 3A 20 89 20 32 31 34 |H$..(G,H): . 214| 000006A0: 30 30 00 C0 0E 50 C3 4A 24 B2 C4 28 4A 29 3A 4B |00...P.J$..(J):K| 000006B0: 24 B2 C4 28 4B 29 20 3A 20 89 20 32 31 35 30 30 |$..(K) : . 21500| 000006C0: 00 E3 0E 38 C7 44 24 B2 C4 28 44 29 3A 46 24 B2 |...8.D$..(D):F$.| 000006D0: C4 28 46 29 3A 99 44 AC 44 20 3A 20 89 20 36 30 |.(F):.D.D : . 60| 000006E0: 30 30 30 00 07 0F 20 CB 47 24 B2 C4 28 47 29 3A |000... .G$..(G):| 000006F0: 48 24 B2 C4 28 48 29 3A 99 20 47 AC 48 20 3A 20 |H$..(H):. G.H : | 00000700: 89 20 36 30 30 30 30 00 13 0F 60 EA 89 20 36 33 |. 60000...`.. 63| 00000710: 30 30 30 00 1F 0F 48 EE 89 20 36 33 30 30 30 00 |000...H.. 63000.| 00000720: 3B 0F 30 F2 47 24 B2 C4 28 47 29 3A 48 24 B2 C4 |;.0.G$..(G):H$..| 00000730: 28 48 29 3A 89 20 32 31 34 30 30 00 69 0F 18 F6 |(H):. 21400.i...| 00000740: 99 20 22 54 52 59 4B 20 50 41 41 20 45 4E 20 54 |. "TRYK PAA EN T| 00000750: 41 53 54 20 46 4F 52 20 41 54 20 4B 4F 4D 4D 45 |AST FOR AT KOMME| 00000760: 20 56 49 44 45 52 45 20 22 00 82 0F 0C F8 A1 20 | VIDERE "...... | 00000770: 5A 24 20 3A 20 8B 20 5A 24 B2 22 22 A7 36 33 35 |Z$ : . Z$."".635| 00000780: 30 30 00 8B 0F 3E F8 89 20 31 30 00 91 0F 70 F8 |00...>.. 10...p.| 00000790: 80 00 00 00 |.... |
.......L......L......L......L.$....L.+.. ..L.2....L.@.... 775,200.L.... 808,2.`.. .. *************.T.... REGNE PROGRAM.... .. *************...!.. 53280,5...#.. 532 81,3...(..".".Z.2..".VAELGER DU .O.MKRED S ELLER .A.REAL ?"...<.. Q$:. Q$."". 60. ..=.. Q$."A" . 500...>.. Q$."O" . 70...? .. 40.&.@..".".V.F..".F0LGENDE TING KAN JEG REGNE OMKREDS AF:"...P..".K.VADRAT, .R.EKTANGEL, R.H.ONBE, .P.ARALELLEGRAM, .T.REKANT";...U..".OG .C.IRKEL".I.Z.. "H VAD VAELGER DU ?"...\.. N$:. N$."". 92.. .D..N$."K" . ."HVAD ER DEN ENE SIDE";W:W $.D(W):. 20000.Q.N..N$."R" . ."HVAD ER D E TO SIDER";E,R:E$.D(E) : . 20100...X..N $."H" . ."HVAD ER DEN ENE SIDE";T:T$.D(T ) :. 20200.D.... N$."P" . ."HVAD ER DE T O SIDER";Y,U:Y$.D(Y):. 20300......N$."T" .."HVAD ER DE TRE SIDER";I,O,P:I$.D(I):. 20400.5....N$."C" . ."HVAD ER DIAMETEREN ";M:M$.D(M) : . 20500.>.H.. 64.G.,..".". T...."F0LGENDE TING KAN JEG REGNE AREAL AF:"......".K.VADRAT, .R.ETANGEL, R.H.OM BE, .P.ARALLELOGRAM, .T.REKANT";.K...."O G .C.IRKEL"...L.. "HVAD VAELGER DU ?"... V.. K$:. K$."".1110.6.... K$."K". . "HVA D ER DEN ENE SIDE";A:A$.D(A) : . 21100.P .... K$."R". . "HVAD ER DE TO SIDER";B,C :B$.D(B):. 21200...X..K$."H".."HVAD ER D EN ENE SIDE ";D:. 51000.L....K$."P".. "H VAD DE TO SIDER ";G,H:.62000...@.. K$."T ". . "HVAD ER GRUND LINIE OG H0JDE";J,K: . 50000.E....K$."C" . ."HVAD ER CIRKLES RADIUS ";L:L$.D(L) : . 21600.O.P.. 300. B. N.W.4 : . 60000....NR$.D(R):.(E.R).2 : . 60000....N.T.4 : . 60000...LOU$.D(U) :.(Y.U).2 :. 60000.W..OO$.D(O):P$.D(P):. I.O.P : . 60000....P. M.. : . 60000...LR .A.A : . 60000...PRC$.D(C):.B.C : . 6000 0.,.4S.D.F : . 60000.?..S.G.H : . 60000. V..S.(K.2).J : . 60000.M.`T.(L.L).. : . 60000...0UD$,F$.D(D,F) : . 21300...@.G$, H$.D(G,H): . 21400...PCJ$.D(J):K$.D(K) : . 21500...8GD$.D(D):F$.D(F):.D.D : . 60 000... KG$.D(G):H$.D(H):. G.H : . 60000. ..`.. 63000...H.. 63000.;.0.G$.D(G):H$.D (H):. 21400.I.... "TRYK PAA EN TAST FOR AT KOMME VIDERE "...... Z$ : . Z$."".635 00...>.. 10...P.....
> CLICK IMAGE PREVIEW FOR FULL MODAL