L[RAKTIG DATOR
FILE INFORMATION
FILENAME(S): L[RAKTIG DATOR
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-12-01 00:59:41
APPEARS ON: 1 disk(s)
FILE HASH
4e9392d95c367d4ed258e7a902df2d086ceed962e2bc7b0cbe9ef8a5a88097b7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| J J DISK 13 | L[RAKTIG DATOR | PRG | hedning, Dean | 5 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 08 08 01 00 89 34 00 2D 08 02 00 9F 31 35 |.......4.-....15| 00000010: 2C 38 2C 31 35 2C 22 53 30 3A 4C 5B 52 41 4B 54 |,8,15,"S0:L[RAKT| 00000020: 49 47 20 44 41 54 4F 52 22 3A A0 31 35 00 5B 08 |IG DATOR":.15.[.| 00000030: 03 00 94 22 4C 5B 52 41 4B 54 49 47 20 44 41 54 |..."L[RAKTIG DAT| 00000040: 4F 52 22 2C 38 3A 95 22 4C 5B 52 41 4B 54 49 47 |OR",8:."L[RAKTIG| 00000050: 20 44 41 54 4F 52 22 2C 38 3A 80 00 A1 08 04 00 | DATOR",8:......| 00000060: 97 35 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C |.53280,0:.53281,| 00000070: 30 3A 99 22 93 1E 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |0:."..**********| 00000080: 2A 05 20 4C 5B 52 41 4B 54 49 47 20 20 44 41 54 |*. L[RAKTIG DAT| 00000090: 4F 52 20 1E 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 05 |OR .***********.| 000000A0: 22 00 E8 08 05 00 41 24 B2 22 50 22 3A 42 24 B2 |".....A$."P":B$.| 000000B0: 22 50 22 3A 43 24 B2 22 50 22 3A 44 24 B2 22 50 |"P":C$."P":D$."P| 000000C0: 22 3A 44 B2 31 3A 46 B2 31 3A 48 32 B2 31 3A 48 |":D.1:F.1:H2.1:H| 000000D0: 31 B2 31 3A 50 52 47 24 B2 22 4F 4B 22 3A 5A 24 |1.1:PRG$."OK":Z$| 000000E0: B2 22 2C 22 3A 47 B2 31 00 30 09 0A 00 5A B2 32 |.",":G.1.0...Z.2| 000000F0: 32 30 30 3A 20 86 20 46 24 28 5A 29 2C 52 28 5A |200: . F$(Z),R(Z| 00000100: 29 2C 4C 28 5A 29 2C 4E 24 28 5A 29 3A 44 B2 31 |),L(Z),N$(Z):D.1| 00000110: 3A 46 B2 31 3A 46 24 28 31 29 B2 22 11 48 41 52 |:F.1:F$(1).".HAR| 00000120: 20 44 45 54 20 54 41 4E 47 45 4E 54 45 52 3F 22 | DET TANGENTER?"| 00000130: 00 6C 09 14 00 58 B2 31 3A 8D 33 30 3A 99 22 93 |.l...X.1:.30:.".| 00000140: 1E 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 05 20 4C 5B |.***********. L[| 00000150: 52 41 4B 54 49 47 20 20 44 41 54 4F 52 1E 20 2A |RAKTIG DATOR. *| 00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 05 22 00 85 09 19 |**********."....| 00000170: 00 99 22 11 4E 59 20 47 45 4E 4F 4D 47 5D 4E 47 |..".NY GENOMG]NG| 00000180: 22 3A 89 32 30 00 BD 09 1E 00 99 46 24 28 58 29 |":.20......F$(X)| 00000190: 3A 85 41 24 3A 41 24 B2 C7 28 C6 28 C8 28 41 24 |:.A$:A$..(.(.(A$| 000001A0: 2C 31 29 29 AF 31 32 37 29 3A 8B 41 24 B2 22 4A |,1)).127):.A$."J| 000001B0: 22 AF 52 28 58 29 B2 30 A7 20 31 30 30 00 E4 09 |".R(X).0. 100...| 000001C0: 23 00 8B 20 41 24 B2 22 5F 22 20 A7 20 8D 20 32 |#.. A$."_" . . 2| 000001D0: 30 31 3A 89 33 30 3A 8F 20 2A 20 55 54 42 59 47 |01:.30:. * UTBYG| 000001E0: 47 4E 41 44 00 FD 09 28 00 8B 20 41 24 B2 22 4E |GNAD...(.. A$."N| 000001F0: 22 AF 20 4C 28 58 29 B2 30 A7 31 30 30 00 20 0A |". L(X).0.100. .| 00000200: 32 00 8B 20 41 24 B2 22 4A 22 AF 52 28 58 29 B3 |2.. A$."J".R(X).| 00000210: 30 20 A7 20 41 B2 AB 52 28 58 29 3A 89 31 31 30 |0 . A..R(X):.110| 00000220: 00 42 0A 3C 00 8B 41 24 B2 22 4E 22 AF 4C 28 58 |.B.<..A$."N".L(X| 00000230: 29 B3 30 20 A7 20 41 B2 AB 4C 28 58 29 3A 89 31 |).0 . A..L(X):.1| 00000240: 31 30 00 5A 0A 46 00 8B 41 24 B2 22 4A 22 A7 20 |10.Z.F..A$."J". | 00000250: 58 B2 52 28 58 29 3A 89 33 30 00 72 0A 50 00 8B |X.R(X):.30.r.P..| 00000260: 41 24 B2 22 4E 22 A7 20 58 B2 4C 28 58 29 3A 89 |A$."N". X.L(X):.| 00000270: 33 30 00 89 0A 64 00 48 31 B2 44 AA 31 3A 48 32 |30...d.H1.D.1:H2| 00000280: B2 30 3A 8D 31 34 30 3A 8E 00 B6 0A 6E 00 99 22 |.0:.140:....n.."| 00000290: 5B 52 20 44 45 54 20 22 4E 24 28 41 29 3A 85 42 |[R DET "N$(A):.B| 000002A0: 24 3A 42 24 B2 C7 28 C6 28 C8 28 42 24 2C 31 29 |$:B$..(.(.(B$,1)| 000002B0: 29 AF 31 32 37 29 00 E8 0A 78 00 8B 42 24 B2 22 |).127)...x..B$."| 000002C0: 4A 22 A7 99 22 11 44 45 54 20 54 5B 4E 4B 54 45 |J"..".DET T[NKTE| 000002D0: 20 4A 41 47 20 4E 4F 47 21 22 3A 81 50 41 B2 31 | JAG NOG!":.PA.1| 000002E0: A4 33 30 30 3A 82 3A 8E 00 00 0B 82 00 48 31 B2 |.300:.:......H1.| 000002F0: 46 AA 31 3A 48 32 B2 AB 41 3A 8D 31 34 30 3A 8E |F.1:H2..A:.140:.| 00000300: 00 34 0B 8C 00 99 22 11 4A 41 47 20 4B 5B 4E 4E |.4....".JAG K[NN| 00000310: 45 52 20 49 4E 54 45 20 54 49 4C 4C 20 53 41 4B |ER INTE TILL SAK| 00000320: 45 4E 2E 20 56 41 44 20 5B 52 20 44 45 54 3F 22 |EN. VAD [R DET?"| 00000330: 3A 85 42 24 00 70 0B 96 00 99 22 11 48 55 52 20 |:.B$.p....".HUR | 00000340: 4C 59 44 45 52 20 46 52 5D 47 41 4E 20 46 5C 52 |LYDER FR]GAN F\R| 00000350: 20 41 54 54 20 42 45 53 54 5B 4D 4D 41 20 53 41 | ATT BEST[MMA SA| 00000360: 4B 45 4E 3F 22 3A 85 20 43 24 3A 4E B2 4E AA 31 |KEN?":. C$:N.N.1| 00000370: 00 A3 0B A0 00 4E 24 28 4E 29 B2 42 24 3A 46 B2 |.....N$(N).B$:F.| 00000380: 46 AA 31 3A 46 24 28 46 29 B2 43 24 3A 44 B2 44 |F.1:F$(F).C$:D.D| 00000390: AA 31 3A 8B 41 24 B2 22 4A 22 A7 20 52 28 58 29 |.1:.A$."J". R(X)| 000003A0: B2 48 31 00 C7 0B AA 00 52 28 44 29 B2 AB 4E 3A |.H1.....R(D)..N:| 000003B0: 4C 28 44 29 B2 48 32 3A 8B 41 24 B2 22 4E 22 A7 |L(D).H2:.A$."N".| 000003C0: 4C 28 58 29 B2 48 31 00 FD 0B B4 00 99 22 11 56 |L(X).H1......".V| 000003D0: 41 44 20 5B 52 20 53 56 41 52 45 54 20 50 41 20 |AD [R SVARET PA | 000003E0: 22 43 24 3B 3A 85 44 24 3A 44 24 B2 C7 28 C6 28 |"C$;:.D$:D$..(.(| 000003F0: C8 28 43 24 2C 31 29 29 AF 31 32 37 29 00 19 0C |.(C$,1)).127)...| 00000400: BE 00 8B 44 24 B2 22 4E 22 A7 4C 28 44 29 B2 AB |...D$."N".L(D)..| 00000410: 4E 3A 52 28 44 29 B2 48 32 00 1F 0C C8 00 8E 00 |N:R(D).H2.......| 00000420: 54 0C C9 00 99 22 93 11 11 11 11 1E 20 2A 2A 2A |T...."...... ***| 00000430: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000440: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000450: 2A 2A 2A 22 00 85 0C CA 00 99 22 20 2A 20 20 05 |***"......" * .| 00000460: 20 20 20 4C 4F 41 44 2F 53 41 56 45 20 54 49 4C | LOAD/SAVE TIL| 00000470: 4C 20 42 41 4E 44 2F 44 49 53 4B 20 20 20 20 20 |L BAND/DISK | 00000480: 20 1E 20 2A 22 00 B6 0C CB 00 99 22 20 2A 05 20 | . *"......" *. | 00000490: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000004A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000004B0: 2D 2D 1E 20 2A 22 00 E7 0C CC 00 99 22 20 2A 20 |--. *"......" * | 000004C0: 05 42 41 53 49 43 20 41 56 20 4A 41 43 4F 42 20 |.BASIC AV JACOB | 000004D0: 48 45 49 42 45 52 47 20 28 43 29 43 4F 4D 50 55 |HEIBERG (C)COMPU| 000004E0: 54 45 52 1E 20 2A 22 00 18 0D CD 00 99 22 20 2A |TER. *"......" *| 000004F0: 05 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |. --------------| 00000500: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000510: 2D 2D 2D 2D 1E 20 2A 22 00 49 0D CE 00 99 22 20 |----. *".I...." | 00000520: 2A 20 05 20 20 20 20 20 4F 42 53 21 20 53 41 56 |* . OBS! SAV| 00000530: 49 4E 47 20 49 20 53 45 51 20 46 49 4C 45 20 20 |ING I SEQ FILE | 00000540: 20 20 20 20 20 1E 20 2A 22 00 79 0D CF 00 99 22 | . *".y...."| 00000550: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************| 00000560: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000570: 2A 2A 2A 2A 2A 2A 2A 05 22 00 9B 0D DC 00 85 22 |*******."......"| 00000580: 20 20 4C 4F 41 44 20 2F 20 53 41 56 45 20 20 20 | LOAD / SAVE | 00000590: 3A 20 20 53 9D 9D 9D 22 3B 41 24 00 BE 0D E6 00 |: S...";A$.....| 000005A0: 85 22 20 11 20 42 41 4E 44 20 2F 20 44 49 53 4B |." . BAND / DISK| 000005B0: 20 20 20 3A 20 20 44 9D 9D 9D 22 3B 42 24 00 E3 | : D...";B$..| 000005C0: 0D F0 00 85 22 20 11 20 4E 41 4D 4E 20 50 41 91 |...." . NAMN PA.| 000005D0: 9D 2E 11 20 44 41 54 41 46 49 4C 20 3A 22 3B 50 |... DATAFIL :";P| 000005E0: 52 47 24 00 FC 0D 04 01 44 56 B2 38 3A 8B 20 42 |RG$.....DV.8:. B| 000005F0: 24 B2 22 42 22 20 A7 20 44 56 B2 31 00 12 0E 09 |$."B" . DV.1....| 00000600: 01 8B 20 44 56 B2 38 20 A7 20 9F 31 35 2C 38 2C |.. DV.8 . .15,8,| 00000610: 31 35 00 2E 0E 0E 01 8B 20 41 24 B2 22 4C 22 A7 |15...... A$."L".| 00000620: 20 8D 20 34 32 30 3A 8F 2A 4C 4F 41 44 2A 00 4A | . 420:.*LOAD*.J| 00000630: 0E 18 01 8B 20 41 24 B2 22 53 22 A7 20 8D 20 33 |.... A$."S". . 3| 00000640: 33 30 3A 8F 2A 53 41 56 45 2A 00 73 0E 22 01 8B |30:.*SAVE*.s."..| 00000650: 20 44 56 B2 38 20 A7 20 99 22 11 20 20 44 49 53 | DV.8 . .". DIS| 00000660: 4B 20 53 54 41 54 55 53 3A 22 3B 51 2C 57 24 3A |K STATUS:";Q,W$:| 00000670: A0 31 35 00 8A 0E 2C 01 A1 20 41 24 3A 8B 20 41 |.15...,.. A$:. A| 00000680: 24 B2 22 22 20 A7 20 33 30 30 00 C1 0E 36 01 99 |$."" . 300...6..| 00000690: 22 93 1E 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 05 20 |"..***********. | 000006A0: 4C 5B 52 41 4B 54 49 47 20 20 44 41 54 4F 52 1E |L[RAKTIG DATOR.| 000006B0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 05 11 22 3A | ***********..":| 000006C0: 8E 00 D7 0E 40 01 8F 20 2A 2A 20 53 41 56 45 20 |....@.. ** SAVE | 000006D0: 44 41 54 41 20 2A 2A 00 F6 0E 4A 01 9F 20 33 2C |DATA **...J.. 3,| 000006E0: 44 56 2C 33 2C 22 40 30 3A 22 AA 50 52 47 24 AA |DV,3,"@0:".PRG$.| 000006F0: 22 2C 53 2C 57 22 00 1D 0F 4F 01 8B 20 44 56 B2 |",S,W"...O.. DV.| 00000700: 38 20 A7 20 84 31 35 2C 51 2C 57 24 2C 45 2C 52 |8 . .15,Q,W$,E,R| 00000710: 3A 8B 20 51 B3 B1 30 20 A7 20 33 39 30 00 28 0F |:. Q..0 . 390.(.| 00000720: 54 01 5A 24 B2 22 2C 22 00 4F 0F 5A 01 98 33 2C |T.Z$.",".O.Z..3,| 00000730: 46 3B 5A 24 3B 44 3B 5A 24 3B 58 3B 5A 24 3B 48 |F;Z$;D;Z$;X;Z$;H| 00000740: 31 3B 5A 24 3B 48 32 3B 5A 24 3B 41 3B 5A 24 00 |1;Z$;H2;Z$;A;Z$.| 00000750: 5D 0F 5E 01 81 20 47 B2 31 20 A4 20 46 00 83 0F |].^.. G.1 . F...| 00000760: 68 01 99 22 13 20 20 53 41 56 45 20 44 41 54 41 |h..". SAVE DATA| 00000770: 20 4E 52 3A 22 3B 47 3B A3 32 32 29 22 41 46 20 | NR:";G;.22)"AF | 00000780: 22 3B 46 00 AC 0F 72 01 98 33 2C 46 24 28 47 29 |";F...r..3,F$(G)| 00000790: 3B 5A 24 3B 52 28 47 29 3B 5A 24 3B 4C 28 47 29 |;Z$;R(G);Z$;L(G)| 000007A0: 3B 5A 24 3B 4E 24 28 47 29 3B 5A 24 00 B3 0F 7C |;Z$;N$(G);Z$...|| 000007B0: 01 82 47 00 BA 0F 86 01 A0 33 00 C0 0F 90 01 8E |..G......3......| 000007C0: 00 D6 0F 9A 01 8F 20 2A 2A 20 4C 4F 41 44 20 44 |...... ** LOAD D| 000007D0: 41 54 41 20 2A 2A 00 EE 0F A4 01 9F 33 2C 44 56 |ATA **......3,DV| 000007E0: 2C 33 2C 50 52 47 24 AA 22 2C 53 2C 52 22 00 14 |,3,PRG$.",S,R"..| 000007F0: 10 AE 01 8B 20 44 56 B2 38 20 A7 20 84 31 35 2C |.... DV.8 . .15,| 00000800: 51 2C 57 24 2C 45 2C 52 3A 8B 51 B3 B1 30 20 A7 |Q,W$,E,R:.Q..0 .| 00000810: 20 34 39 30 00 29 10 B8 01 84 33 2C 46 2C 44 2C | 490.)....3,F,D,| 00000820: 58 2C 48 31 2C 48 32 2C 41 00 36 10 C2 01 81 47 |X,H1,H2,A.6....G| 00000830: B2 31 20 A4 20 46 00 5F 10 CC 01 99 22 13 20 20 |.1 . F._....". | 00000840: 4C 4F 41 44 20 41 56 20 44 41 54 41 20 4E 52 3A |LOAD AV DATA NR:| 00000850: 22 3B 47 3B A3 32 32 29 22 41 46 20 22 3B 46 00 |";G;.22)"AF ";F.| 00000860: 7C 10 D6 01 84 33 2C 46 24 28 47 29 2C 52 28 47 ||....3,F$(G),R(G| 00000870: 29 2C 4C 28 47 29 2C 4E 24 28 47 29 00 83 10 E0 |),L(G),N$(G)....| 00000880: 01 82 47 00 8A 10 EA 01 A0 33 00 90 10 F4 01 8E |..G......3......| 00000890: 00 00 00 FA |.... |
.......4.-....15,8,15,"S0:L[RAKTIG DATOR ": 15.[...."L[RAKTIG DATOR",8:."L[RAKTIG DATOR",8:.......53280,0:.53281,0:."..** *********. L[RAKTIG DATOR .***********. ".....A$."P":B$."P":C$."P":D$."P":D.1:F. 1:H2.1:H1.1:PRG$."OK":Z$.",":G.1.0...Z.2 200: . F$(Z),R(Z),L(Z),N$(Z):D.1:F.1:F$( 1).".HAR DET TANGENTER?".L...X.1:.30:.". .***********. L[RAKTIG DATOR. ********* **."......".NY GENOMG]NG":.20......F$(X) :.A$:A$.G(F(H(A$,1)).127):.A$."J".R(X).0 . 100...#.. A$."_" . . 201:.30:. * UTBYG GNAD...(.. A$."N". L(X).0.100. .2.. A$." J".R(X).0 . A..R(X):.110.B.<..A$."N".L(X ).0 . A..L(X):.110.Z.F..A$."J". X.R(X):. 30.R.P..A$."N". X.L(X):.30...D.H1.D.1:H2 .0:.140:....N.."[R DET "N$(A):.B$:B$.G(F (H(B$,1)).127)...X..B$."J"..".DET T[NKTE JAG NOG!":.PA.1.300:.:......H1.F.1:H2.. A:.140:..4....".JAG K[NNER INTE TILL SAK EN. VAD [R DET?":.B$.P....".HUR LYDER FR ]GAN F\R ATT BEST[MMA SAKEN?":. C$:N.N.1 ... .N$(N).B$:F.F.1:F$(F).C$:D.D.1:.A$." J". R(X).H1.G...R(D)..N:L(D).H2:.A$."N". L(X).H1......".VAD [R SVARET PA "C$;:.D$ :D$.G(F(H(C$,1)).127)......D$."N".L(D).. N:R(D).H2...H...T.I.."...... *********** ***************************"...J.." * . LOAD/SAVE TILL BAND/DISK . *"... K.." *. -------------------------------- --. *"...L.." * .BASIC AV JACOB HEIBERG (C)COMPUTER. *"...M.." *. -------------- --------------------. *".I.N.." * . OBS! SAVING I SEQ FILE . *".Y.O.." **************************************. "......" LOAD / SAVE : S...";A$..... ." . BAND / DISK : D...";B$......" . NAMN PA.... DATAFIL :";PRG$.....DV.8:. B $."B" . DV.1...... DV.8 . .15,8,15...... A$."L". . 420:.*LOAD*.J.... A$."S". . 3 30:.*SAVE*.S.".. DV.8 . .". DISK STATUS :";Q,W$: 15...,.. A$:. A$."" . 300.A.6.. "..***********. L[RAKTIG DATOR. ******* ****..":..W.@.. ** SAVE DATA **...J.. 3, DV,3,"@0:".PRG$.",S,W"...O.. DV.8 . .15, Q,W$,E,R:. Q..0 . 390.(.T.Z$.",".O.Z..3, F;Z$;D;Z$;X;Z$;H1;Z$;H2;Z$;A;Z$.].^.. G. 1 . F...H..". SAVE DATA NR:";G;.22)"AF ";F...R..3,F$(G);Z$;R(G);Z$;L(G);Z$;N$(G );Z$...|..G..... 3.......V.... ** LOAD D ATA **......3,DV,3,PRG$.",S,R"...... DV. 8 . .15,Q,W$,E,R:.Q..0 . 490.)....3,F,D, X,H1,H2,A.6.B..G.1 . F._.L..". LOAD AV DATA NR:";G;.22)"AF ";F.|.V..3,F$(G),R(G ),L(G),N$(G)......G..... 3..........
> CLICK IMAGE PREVIEW FOR FULL MODAL