DIPA
FILE INFORMATION
FILENAME(S): DIPA
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-12-01 00:58:58
APPEARS ON: 2 disk(s)
FILE HASH
ff556fc7746fc9c9a935c36b02b11cdb6f1776e97293f6e0a2fdd125312367f2
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| KNUT RENVALL A | DIPA | PRG | hedning, Berggren | 30 | 6 | DOWNLOAD FILE |
| KNUT RENVALL A | DIPA | PRG | hedning, Berggren | 30 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 01 00 53 B2 31 3A 4B 24 B2 22 20 42 |......S.1:K$." B|
00000010: 4C 4F 43 4B 53 20 46 52 45 45 22 00 49 08 05 00 |LOCKS FREE".I...|
00000020: 99 22 93 1D 1D 1D 1D 1D 1D 50 55 54 20 44 49 53 |.".......PUT DIS|
00000030: 4B 20 53 49 44 45 22 53 22 49 4E 54 4F 20 46 4C |K SIDE"S"INTO FL|
00000040: 4F 50 50 59 22 3A 50 B2 30 00 6C 08 06 00 99 22 |OPPY":P.0.l...."|
00000050: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 41 4E 44 20 50 |...........AND P|
00000060: 52 45 53 53 20 52 45 54 55 52 4E 22 00 81 08 07 |RESS RETURN"....|
00000070: 00 A1 41 24 3A 8B 41 24 B3 B1 C7 28 31 33 29 A7 |..A$:.A$...(13).|
00000080: 37 00 AF 08 08 00 99 22 93 11 11 11 11 11 11 11 |7......"........|
00000090: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 4E 4F 57 |.............NOW|
000000A0: 20 4C 4F 41 44 49 4E 47 20 53 49 44 45 22 53 00 | LOADING SIDE"S.|
000000B0: DD 08 09 00 99 22 13 11 11 11 11 11 11 11 11 11 |....."..........|
000000C0: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 50 |...............P|
000000D0: 4C 45 41 53 45 20 57 41 49 54 20 21 22 00 F2 08 |LEASE WAIT !"...|
000000E0: 0A 00 9F 31 2C 38 2C 30 2C 22 24 30 22 3A 9F 34 |...1,8,0,"$0":.4|
000000F0: 2C 34 00 1F 09 0B 00 8B 45 B2 30 A7 86 20 44 24 |,4......E.0.. D$|
00000100: 28 32 2C 31 30 30 29 2C 46 24 28 32 2C 31 30 30 |(2,100),F$(2,100|
00000110: 29 2C 43 24 28 32 2C 31 30 30 29 3A 45 B2 31 00 |),C$(2,100):E.1.|
00000120: 2C 09 0C 00 8B 53 B2 32 A7 20 32 30 00 4F 09 0D |,....S.2. 20.O..|
00000130: 00 81 49 B2 31 A4 31 30 30 3A 44 24 28 31 2C 49 |..I.1.100:D$(1,I|
00000140: 29 B2 22 22 3A 44 24 28 32 2C 49 29 B2 22 22 00 |)."":D$(2,I)."".|
00000150: 69 09 0E 00 46 24 28 31 2C 49 29 B2 22 22 3A 46 |i...F$(1,I)."":F|
00000160: 24 28 32 2C 49 29 B2 22 22 00 83 09 0F 00 43 24 |$(2,I)."".....C$|
00000170: 28 31 2C 49 29 B2 22 22 3A 43 24 28 32 2C 49 29 |(1,I)."":C$(2,I)|
00000180: B2 22 22 00 8A 09 10 00 82 49 00 90 09 11 00 8F |.""......I......|
00000190: 00 96 09 12 00 8F 00 9C 09 13 00 8F 00 AA 09 14 |................|
000001A0: 00 A1 23 31 2C 41 24 2C 42 24 00 B8 09 1E 00 A1 |..#1,A$,B$......|
000001B0: 23 31 2C 41 24 2C 42 24 00 C6 09 28 00 A1 23 31 |#1,A$,B$...(..#1|
000001C0: 2C 41 24 2C 42 24 00 CE 09 32 00 43 B2 30 00 E2 |,A$,B$...2.C.0..|
000001D0: 09 3C 00 8B 41 24 B3 B1 22 22 A7 43 B2 C6 28 41 |.<..A$.."".C..(A|
000001E0: 24 29 00 FC 09 46 00 8B 42 24 B3 B1 22 22 A7 43 |$)...F..B$.."".C|
000001F0: B2 43 AA C6 28 42 24 29 AC 32 35 36 00 12 0A 47 |.C..(B$).256...G|
00000200: 00 44 24 28 53 2C 44 29 B2 CA 28 C4 28 43 29 2C |.D$(S,D)..(.(C),|
00000210: 32 29 00 28 0A 5A 00 A1 23 31 2C 42 24 3A 8B 53 |2).(.Z..#1,B$:.S|
00000220: 54 B3 B1 30 A7 31 36 30 00 3A 0A 64 00 8B 42 24 |T..0.160.:.d..B$|
00000230: B3 B1 C7 28 33 34 29 A7 39 30 00 59 0A 6E 00 8B |...(34).90.Y.n..|
00000240: 50 B2 30 A7 A1 23 31 2C 42 24 3A 8B 42 24 B3 B1 |P.0..#1,B$:.B$..|
00000250: C7 28 33 34 29 A7 31 32 32 00 79 0A 6F 00 8B 50 |.(34).122.y.o..P|
00000260: B3 B1 30 A7 A1 23 31 2C 42 24 3A 8B 42 24 B3 B1 |..0..#1,B$:.B$..|
00000270: C7 28 33 34 29 A7 31 32 33 00 81 0A 77 00 50 B2 |.(34).123...w.P.|
00000280: 31 00 9A 0A 78 00 A1 23 31 2C 42 24 3A 8B 42 24 |1...x..#1,B$:.B$|
00000290: B2 C7 28 33 32 29 A7 31 32 30 00 A4 0A 79 00 89 |..(32).120...y..|
000002A0: 20 31 33 30 00 C0 0A 7A 00 46 24 28 53 2C 44 29 | 130...z.F$(S,D)|
000002B0: B2 46 24 28 53 2C 44 29 AA 42 24 3A 89 31 31 30 |.F$(S,D).B$:.110|
000002C0: 00 DC 0A 7B 00 46 24 28 53 2C 44 29 B2 46 24 28 |...{.F$(S,D).F$(|
000002D0: 53 2C 44 29 AA 42 24 3A 89 31 31 31 00 E8 0A 82 |S,D).B$:.111....|
000002E0: 00 8F 20 43 24 3D 22 22 00 12 0B 8C 00 43 24 28 |.. C$="".....C$(|
000002F0: 53 2C 44 29 B2 43 24 28 53 2C 44 29 AA 42 24 3A |S,D).C$(S,D).B$:|
00000300: A1 23 31 2C 42 24 3A 8B 42 24 B3 B1 22 22 A7 31 |.#1,B$:.B$.."".1|
00000310: 34 30 00 2B 0B 9B 00 8B 53 54 B2 30 A7 54 50 B2 |40.+....ST.0.TP.|
00000320: 31 3A 44 B2 44 AA 31 3A 89 33 30 00 31 0B A0 00 |1:D.D.1:.30.1...|
00000330: 8F 00 3B 0B AA 00 A0 34 3A A0 31 00 48 0B E2 03 |..;....4:.1.H...|
00000340: 8B 53 B2 32 A7 39 39 39 00 60 0B E3 03 8B 53 B2 |.S.2.999.`....S.|
00000350: 31 A7 44 28 53 29 B2 44 3A 53 B2 32 3A 44 B2 30 |1.D(S).D:S.2:D.0|
00000360: 00 67 0B E5 03 89 35 00 72 0B E7 03 44 28 53 29 |.g....5.r...D(S)|
00000370: B2 44 00 89 0B E8 03 8B 44 28 31 29 B1 44 28 32 |.D......D(1).D(2|
00000380: 29 A7 59 B2 31 3A 4F B2 32 00 A0 0B E9 03 8B 44 |).Y.1:O.2......D|
00000390: 28 31 29 B3 44 28 32 29 A7 59 B2 32 3A 4F B2 31 |(1).D(2).Y.2:O.1|
000003A0: 00 B3 0B EB 03 8B 44 28 31 29 B2 44 28 32 29 A7 |......D(1).D(2).|
000003B0: 59 B2 31 00 D8 0B F2 03 99 22 93 1D 1D 1D 1D 1D |Y.1......"......|
000003C0: 1D 1D 1D 1D 1D 4B 4C 41 52 54 20 46 5C 52 20 55 |.....KLART F\R U|
000003D0: 54 53 4B 52 49 46 54 22 00 FF 0B FC 03 99 22 11 |TSKRIFT"......".|
000003E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 50 52 45 |.............PRE|
000003F0: 53 53 20 20 52 45 54 55 52 4E 9D 9D 9D 9D 22 00 |SS RETURN....".|
00000400: 19 0C FD 03 A1 57 41 24 3A 8B 57 41 24 B3 B1 C7 |.....WA$:.WA$...|
00000410: 28 31 33 29 A7 31 30 32 31 00 22 0C 06 04 9F 34 |(13).1021."....4|
00000420: 2C 34 00 32 0C 10 04 81 49 B2 30 A4 44 28 59 29 |,4.2....I.0.D(Y)|
00000430: AB 31 00 52 0C 2E 04 98 34 2C C7 28 31 36 29 C7 |.1.R....4,.(16).|
00000440: 28 34 38 29 C7 28 35 31 29 3B 44 24 28 31 2C 49 |(48).(51);D$(1,I|
00000450: 29 3B 00 72 0C 2F 04 98 34 2C C7 28 31 36 29 C7 |);.r./..4,.(16).|
00000460: 28 34 38 29 C7 28 35 35 29 3B 46 24 28 31 2C 49 |(48).(55);F$(1,I|
00000470: 29 3B 00 83 0C 30 04 8B 49 B2 44 28 4F 29 A7 31 |);...0..I.D(O).1|
00000480: 30 38 33 00 A3 0C 31 04 98 34 2C C7 28 31 36 29 |083...1..4,.(16)|
00000490: C7 28 35 30 29 C7 28 35 33 29 3B 43 24 28 31 2C |.(50).(53);C$(1,|
000004A0: 49 29 3B 00 C3 0C 3B 04 98 34 2C C7 28 31 36 29 |I);...;..4,.(16)|
000004B0: C7 28 35 32 29 C7 28 35 31 29 3B 44 24 28 32 2C |.(52).(51);D$(2,|
000004C0: 49 29 3B 00 E3 0C 3C 04 98 34 2C C7 28 31 36 29 |I);...<..4,.(16)|
000004D0: C7 28 35 32 29 C7 28 35 35 29 3B 46 24 28 32 2C |.(52).(55);F$(2,|
000004E0: 49 29 3B 00 F2 0C 3D 04 8B 49 B2 44 28 4F 29 A7 |I);...=..I.D(O).|
000004F0: 82 49 00 11 0D 3E 04 98 34 2C C7 28 31 36 29 C7 |.I...>..4,.(16).|
00000500: 28 35 34 29 C7 28 35 33 29 3B 43 24 28 32 2C 49 |(54).(53);C$(2,I|
00000510: 29 00 18 0D 62 04 82 49 00 25 0D 63 04 98 34 3A |)...b..I.%.c..4:|
00000520: 98 34 3A 98 34 00 54 0D 65 04 98 34 2C A3 31 36 |.4:.4.T.e..4,.16|
00000530: 29 3B 22 44 49 53 4B 20 53 49 44 41 20 22 53 AB |);"DISK SIDA "S.|
00000540: 31 22 20 48 41 52 20 22 44 24 28 31 2C 44 28 31 |1" HAR "D$(1,D(1|
00000550: 29 29 4B 24 00 81 0D 66 04 98 34 2C A3 31 36 29 |))K$...f..4,.16)|
00000560: 3B 22 44 49 53 4B 20 53 49 44 41 20 22 53 22 20 |;"DISK SIDA "S" |
00000570: 48 41 52 20 22 44 24 28 32 2C 44 28 32 29 29 4B |HAR "D$(2,D(2))K|
00000580: 24 00 90 0D 6A 04 41 53 B2 36 37 AB 44 28 59 29 |$...j.AS.67.D(Y)|
00000590: 00 9C 0D 6B 04 81 49 B2 31 A4 41 53 00 AB 0D 6C |...k..I.1.AS...l|
000005A0: 04 98 34 3A 82 49 3A A0 34 3A 8A 00 00 00 |..4:.I:.4:.... |
......S.1:K$." BLOCKS FREE".I...."......
.PUT DISK SIDE"S"INTO FLOPPY":P.0.L...."
...........AND PRESS RETURN"......A$:.A$
..G(13).7......".....................NOW
LOADING SIDE"S......"..................
.......PLEASE WAIT !"......1,8,0,"$0":.4
,4......E.0.. D$(2,100),F$(2,100),C$(2,1
00):E.1.,....S.2. 20.O....I.1.100:D$(1,I
)."":D$(2,I)."".I...F$(1,I)."":F$(2,I)."
".....C$(1,I)."":C$(2,I).""......I......
..................#1,A$,B$......#1,A$,B$
.F.(..#1,A$,B$.N.2.C.0...<..A$.."".C.F(A
$)...F..B$.."".C.C.F(B$).256...G.D$(S,D)
.J(D(C),2).(.Z..#1,B$:.ST..0.160.:.D..B$
..G(34).90.Y.N..P.0..#1,B$:.B$..G(34).12
2.Y.O..P..0..#1,B$:.B$..G(34).123...W.P.
1...X..#1,B$:.B$.G(32).120...Y.. 130...Z
.F$(S,D).F$(S,D).B$:.110...{.F$(S,D).F$(
S,D).B$:.111...... C$="".....C$(S,D).C$(
S,D).B$:.#1,B$:.B$.."".140.+....ST.0.TP.
1:D.D.1:.30.1. ...;... 4: 1.H....S.2.999
.`....S.1.D(S).D:S.2:D.0.G....5.R...D(S)
.D......D(1).D(2).Y.1:O.2. ....D(1).D(2)
.Y.2:O.1......D(1).D(2).Y.1.X...."......
.....KLART F\R UTSKRIFT"......".........
.....PRESS RETURN...."......WA$:.WA$..G
(13).1021."....4,4.2....I.0.D(Y).1.R....
4,G(16)G(48)G(51);D$(1,I);.R./..4,G(16)G
(48)G(55);F$(1,I);...0..I.D(O).1083...1.
.4,G(16)G(50)G(53);C$(1,I);.C.;..4,G(16)
G(52)G(51);D$(2,I);...<..4,G(16)G(52)G(5
5);F$(2,I);...=..I.D(O)..I...>..4,G(16)G
(54)G(53);C$(2,I)...B..I.%.C..4:.4:.4.T.
E..4,.16);"DISK SIDA "S.1" HAR "D$(1,D(1
))K$...F..4,.16);"DISK SIDA "S" HAR "D$(
2,D(2))K$...J.AS.67.D(Y)...K..I.1.AS...L
..4:.I: 4:....
> CLICK IMAGE PREVIEW FOR FULL MODAL