SK[RMFORMAT
FILE INFORMATION
FILENAME(S): SK[RMFORMAT
FILE TYPE(S): PRG
FILE SIZE: 6.2K
FIRST SEEN: 2025-12-01 01:48:20
APPEARS ON: 2 disk(s)
FILE HASH
936f1e5b145f0a3f51f4571bee61dd846795acd1b0fe3d62ceeb7951f103d3f7
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CCS 64 REG | SK[RMFORMAT | PRG | hedning, Mattias H00r | 19 | 3 | DOWNLOAD FILE |
| CCS 64 REG | SK[RMFORMAT | PRG | hedning, Mattias H00r | 19 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 45 08 05 00 8F 2A 2A 2A 53 43 52 45 45 4E |..E....***SCREEN|
00000010: 20 46 4F 52 4D 41 54 54 45 52 20 26 20 44 41 54 | FORMATTER & DAT|
00000020: 41 20 46 49 4C 45 20 43 52 45 41 54 49 4F 4E 2A |A FILE CREATION*|
00000030: 2A 2A 2A 2A 43 4F 4D 4D 4F 44 4F 52 45 36 34 2A |****COMMODORE64*|
00000040: 2A 2A 2A 2A 2A 00 66 08 0A 00 8F 2A 2A 2A 42 4F |*****.f....***BO|
00000050: 42 20 43 48 41 50 50 45 4C 2A 2A 2A 31 34 2F 36 |B CHAPPEL***14/6|
00000060: 2F 38 33 2A 2A 2A 00 74 08 0F 00 86 46 24 28 35 |/83***.t....F$(5|
00000070: 30 2C 37 29 00 8D 08 10 00 99 20 C7 28 31 34 29 |0,7)...... .(14)|
00000080: 3A 8F 20 4C 4F 57 45 52 20 43 41 53 45 00 AF 08 |:. LOWER CASE...|
00000090: 14 00 43 44 24 B2 22 13 11 11 11 11 11 11 11 11 |..CD$.".........|
000000A0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 |..............".|
000000B0: E9 08 19 00 43 52 24 B2 22 1D 1D 1D 1D 1D 1D 1D |....CR$.".......|
000000C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000000D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000000E0: 1D 22 3A 58 24 B2 22 30 22 00 0A 09 1E 00 59 4E |.":X$."0".....YN|
000000F0: 24 B2 22 12 4F 4B 20 28 4A 20 2F 20 4E 29 3F 22 |$.".OK (J / N)?"|
00000100: 3A 52 54 24 B2 C7 28 31 33 29 00 51 09 23 00 41 |:RT$..(13).Q.#.A|
00000110: 4B 24 B2 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |K$."************|
00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000150: 22 00 97 09 28 00 41 4B 24 B2 41 4B 24 AA 41 4B |"...(.AK$.AK$.AK|
00000160: 24 AA 41 4B 24 AA 41 4B 24 3A 42 4C 24 B2 22 20 |$.AK$.AK$:BL$." |
00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000190: 20 20 20 20 20 20 22 00 AA 09 2D 00 43 43 24 B2 | "...-.CC$.|
000001A0: 22 90 05 1C 9F 9C 1E 1F 9E 22 00 B8 09 32 00 54 |"........"...2.T|
000001B0: 44 B2 30 3A 54 46 B2 30 00 D1 09 37 00 8F 2A 2A |D.0:TF.0...7..**|
000001C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001D0: 2A 00 E1 09 3C 00 8F 2A 2A 2A 4F 50 54 49 4F 4E |*...<..***OPTION|
000001E0: 53 00 FA 09 41 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |S...A..*********|
000001F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2C 0A 46 00 99 |**********.,.F..|
00000200: 22 93 2D 2D 2D 2D 2D 2D 12 20 D3 4B 5B 52 4D 20 |".------. .K[RM |
00000210: 4F 43 48 20 44 41 54 41 46 49 4C 20 46 4F 52 4D |OCH DATAFIL FORM|
00000220: 41 54 20 20 92 2D 2D 2D 2D 2D 2D 22 00 5D 0A 4B |AT .------".].K|
00000230: 00 99 22 11 11 2D 2D 2D 2D 2D 20 D3 4B 5B 52 4D |.."..----- .K[RM|
00000240: 20 46 4F 52 4D 41 54 20 2D 2D 2D 2D 2D 2D 2D 2D | FORMAT --------|
00000250: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 78 0A |------------".x.|
00000260: 50 00 99 22 11 11 31 2E 20 D3 4B 41 50 41 20 45 |P.."..1. .KAPA E|
00000270: 4E 20 53 4B 5B 52 4D 22 00 9B 0A 51 00 99 22 32 |N SK[RM"...Q.."2|
00000280: 2E 20 D3 50 41 52 41 20 46 4F 52 4D 41 54 45 54 |. .PARA FORMATET|
00000290: 20 54 49 4C 4C 20 44 49 53 4B 22 00 C9 0A 55 00 | TILL DISK"...U.|
000002A0: 99 22 33 2E 20 CC 41 44 44 41 20 49 4E 20 4F 43 |."3. .ADDA IN OC|
000002B0: 48 20 56 49 53 41 20 45 54 54 20 53 50 41 52 41 |H VISA ETT SPARA|
000002C0: 54 20 46 4F 52 4D 41 54 22 00 FA 0A 5A 00 99 22 |T FORMAT"...Z.."|
000002D0: 11 11 2D 2D 2D 2D 2D 20 C4 41 54 41 46 49 4C 20 |..----- .ATAFIL |
000002E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000002F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 17 0B 5F 00 99 |---------"..._..|
00000300: 22 11 11 34 2E 20 D3 4B 41 50 41 20 45 4E 20 44 |"..4. .KAPA EN D|
00000310: 41 54 41 46 49 4C 22 00 48 0B 64 00 99 22 11 11 |ATAFIL".H.d.."..|
00000320: 2D 2D 2D 2D 2D 20 D3 4C 55 54 41 20 4D 45 44 20 |----- .LUTA MED |
00000330: 50 52 4F 47 52 41 4D 4D 45 54 20 2D 2D 2D 2D 2D |PROGRAMMET -----|
00000340: 2D 2D 2D 2D 2D 2D 2D 22 00 5A 0B 69 00 99 22 11 |-------".Z.i..".|
00000350: 11 35 2E 20 D3 4C 55 54 41 22 00 85 0B 6E 00 8D |.5. .LUTA"...n..|
00000360: 39 31 30 3A 99 22 12 20 C7 5C 52 20 45 54 54 20 |910:.". .\R ETT |
00000370: 56 41 4C 20 28 31 20 54 49 4C 4C 20 35 29 20 22 |VAL (1 TILL 5) "|
00000380: 3A 8D 38 32 35 00 9E 0B 73 00 4A B2 C5 28 42 24 |:.825...s.J..(B$|
00000390: 29 3A 8B 4A B3 31 B0 4A B1 35 89 31 31 30 00 B9 |):.J.1.J.5.110..|
000003A0: 0B 78 00 91 4A 89 31 34 30 2C 35 38 30 2C 34 38 |.x..J.140,580,48|
000003B0: 30 2C 36 35 35 2C 39 38 35 00 D5 0B 7D 00 8F 20 |0,655,985...}.. |
000003C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003D0: 2A 2A 2A 2A 2A 00 EF 0B 82 00 8F 20 2A 2A 2A 53 |*****...... ***S|
000003E0: 43 52 45 45 4E 20 46 4F 52 4D 41 54 54 45 52 00 |CREEN FORMATTER.|
000003F0: 0B 0C 87 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... **********|
00000400: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 1A 0C 8C 00 |***********.....|
00000410: 8B 20 54 46 B2 30 89 31 38 35 00 47 0C 91 00 99 |. TF.0.185.G....|
00000420: 22 93 11 11 11 11 20 20 12 20 C5 54 54 20 46 4F |"..... . .TT FO|
00000430: 52 4D 41 54 20 48 41 52 20 52 45 44 41 4E 20 53 |RMAT HAR REDAN S|
00000440: 4B 41 50 41 54 53 22 00 73 0C 96 00 99 43 44 24 |KAPATS".s....CD$|
00000450: 3B 22 12 20 D6 49 4C 4C 20 44 55 20 46 4F 52 54 |;". .ILL DU FORT|
00000460: 53 5B 54 54 41 3F 20 28 4A 2F 4E 29 3F 22 3A 8D |S[TTA? (J/N)?":.|
00000470: 38 32 35 00 8E 0C 9B 00 8B 42 24 B2 22 59 22 20 |825......B$."Y" |
00000480: B0 20 42 24 B2 22 4A 22 20 89 20 31 38 35 00 9D |. B$."J" . 185..|
00000490: 0C A0 00 8B 42 24 B2 22 4E 22 89 37 30 00 A6 0C |....B$."N".70...|
000004A0: A5 00 89 31 34 35 00 C3 0C AA 00 8F 20 2A 2A 2A |...145...... ***|
000004B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000004C0: 2A 2A 2A 00 DB 0C AF 00 8F 20 2A 2A 2A 20 53 43 |***...... *** SC|
000004D0: 52 45 45 4E 20 46 4F 52 4D 41 54 00 F8 0C B4 00 |REEN FORMAT.....|
000004E0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
000004F0: 2A 2A 2A 2A 2A 2A 2A 2A 00 0F 0D B9 00 54 46 B2 |********.....TF.|
00000500: 30 3A 8D 31 30 32 35 3A 81 4A B2 31 A4 35 30 00 |0:.1025:.J.1.50.|
00000510: 2C 0D BE 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |,.... **********|
00000520: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 46 0D C3 |************.F..|
00000530: 00 8F 20 2A 2A 2A 20 47 45 54 20 54 45 58 54 20 |.. *** GET TEXT |
00000540: 44 45 54 41 49 4C 00 63 0D C8 00 8F 20 2A 2A 2A |DETAIL.c.... ***|
00000550: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000560: 2A 2A 2A 00 6C 0D CD 00 8D 37 36 35 00 9D 0D D2 |***.l....765....|
00000570: 00 99 22 12 20 D6 49 4C 4B 45 4E 20 52 41 44 20 |..". .ILKEN RAD |
00000580: 28 31 2D 32 32 20 45 4C 4C 45 52 20 2A 20 3D 20 |(1-22 ELLER * = |
00000590: 53 4C 55 54 41 29 20 22 3A 8D 38 32 35 00 AC 0D |SLUTA) ":.825...|
000005A0: D7 00 8B 42 24 B2 22 2A 22 89 37 30 00 C6 0D DC |...B$."*".70....|
000005B0: 00 8B C5 28 42 24 29 B3 31 B0 C5 28 42 24 29 B1 |...(B$).1..(B$).|
000005C0: 32 32 89 32 30 35 00 D5 0D E1 00 46 24 28 4A 2C |22.205.....F$(J,|
000005D0: 30 29 B2 42 24 00 08 0E E6 00 8D 39 31 30 3A 99 |0).B$......910:.|
000005E0: 22 12 20 D6 49 4C 4B 45 4E 20 53 50 41 4C 54 20 |". .ILKEN SPALT |
000005F0: 28 31 2D 34 30 29 20 46 5C 52 20 54 45 58 54 45 |(1-40) F\R TEXTE|
00000600: 4E 20 22 3A 8D 38 32 35 00 22 0E EB 00 5A B2 C5 |N ":.825."...Z..|
00000610: 28 42 24 29 3A 8B 5A B3 31 B0 5A B1 34 30 89 32 |(B$):.Z.1.Z.40.2|
00000620: 33 30 00 35 0E F0 00 46 24 28 4A 2C 31 29 B2 C4 |30.5...F$(J,1)..|
00000630: 28 5A AB 31 29 00 5A 0E F5 00 8D 37 36 35 3A 4E |(Z.1).Z....765:N|
00000640: 31 B2 C5 28 46 24 28 4A 2C 30 29 29 3A 4E 32 B2 |1..(F$(J,0)):N2.|
00000650: C5 28 46 24 28 4A 2C 31 29 29 00 88 0E FA 00 99 |.(F$(J,1))......|
00000660: C8 28 43 44 24 2C 4E 31 29 3B C8 28 43 52 24 2C |.(CD$,N1);.(CR$,|
00000670: 4E 32 29 3B 22 12 2B 22 3B 20 3A 99 43 44 24 3B |N2);".+"; :.CD$;|
00000680: 59 4E 24 3A 8D 38 32 35 00 98 0E FF 00 8B 42 24 |YN$:.825......B$|
00000690: B2 22 4E 22 89 32 30 35 00 A9 0E 04 01 8B 42 24 |."N".205......B$|
000006A0: B3 B1 22 4A 22 89 32 34 35 00 DD 0E 09 01 8D 39 |.."J".245......9|
000006B0: 31 30 3A 99 22 12 D6 49 53 41 53 20 49 20 52 45 |10:."..ISAS I RE|
000006C0: 56 45 52 53 45 52 41 44 20 56 49 44 45 4F 20 28 |VERSERAD VIDEO (|
000006D0: 4A 20 2F 20 4E 29 3F 22 3A 8D 38 32 35 00 FD 0E |J / N)?":.825...|
000006E0: 0E 01 8B 42 24 B2 22 59 22 B0 42 24 B2 22 4A 22 |...B$."Y".B$."J"|
000006F0: A7 52 56 24 B2 22 12 22 3A 89 32 38 35 00 16 0F |.RV$.".":.285...|
00000700: 13 01 8B 20 42 24 B2 22 4E 22 A7 52 56 24 B2 22 |... B$."N".RV$."|
00000710: 22 3A 89 32 38 35 00 1F 0F 18 01 89 32 36 35 00 |":.285......265.|
00000720: 28 0F 1D 01 8D 37 36 35 00 5B 0F 22 01 99 22 12 |(....765.[."..".|
00000730: 20 D3 4B 52 49 56 20 54 45 58 54 45 4E 20 22 3A | .KRIV TEXTEN ":|
00000740: 8D 38 32 35 3A 46 24 28 4A 2C 32 29 B2 52 56 24 |.825:F$(J,2).RV$|
00000750: AA 42 24 3A 54 46 B2 54 46 AA 31 00 6E 0F 27 01 |.B$:TF.TF.1.n.'.|
00000760: 8D 37 36 35 3A 99 59 4E 24 3A 8D 38 32 35 00 8C |.765:.YN$:.825..|
00000770: 0F 2C 01 8B 42 24 B2 22 4E 22 A7 54 46 B2 54 46 |.,..B$."N".TF.TF|
00000780: AB 31 3A 99 22 93 22 3A 89 32 34 35 00 9D 0F 31 |.1:.".":.245...1|
00000790: 01 8B 42 24 B3 B1 22 4A 22 89 32 39 35 00 B2 0F |..B$.."J".295...|
000007A0: 36 01 8D 37 36 35 3A 46 24 28 4A 2C 33 29 B2 22 |6..765:F$(J,3)."|
000007B0: 30 22 00 DE 0F 3B 01 99 22 12 D3 4B 41 20 44 55 |0"...;.."..KA DU|
000007C0: 20 48 41 20 45 4E 20 44 41 54 41 46 5B 4C 54 20 | HA EN DATAF[LT |
000007D0: 28 4A 20 2F 20 4E 29 3F 22 3A 8D 38 32 35 00 EE |(J / N)?":.825..|
000007E0: 0F 40 01 8B 42 24 B2 22 4E 22 89 34 36 30 00 FF |.@..B$."N".460..|
000007F0: 0F 45 01 8B 42 24 B3 B1 22 4A 22 89 33 31 30 00 |.E..B$.."J".310.|
00000800: 1E 10 4A 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..J..***********|
00000810: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 42 |**************.B|
00000820: 10 4F 01 8F 2A 2A 2A 20 47 45 54 20 41 53 53 4F |.O..*** GET ASSO|
00000830: 43 49 41 54 45 44 20 44 41 54 41 20 44 45 54 41 |CIATED DATA DETA|
00000840: 49 4C 00 61 10 54 01 8F 2A 2A 2A 2A 2A 2A 2A 2A |IL.a.T..********|
00000850: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000860: 2A 00 8E 10 59 01 8D 39 31 30 3A 99 22 12 20 D6 |*...Y..910:.". .|
00000870: 49 4C 4B 45 54 20 46 5B 4C 54 4E 55 4D 4D 45 52 |ILKET F[LTNUMMER|
00000880: 20 28 31 2D 35 30 29 3F 22 3A 8D 38 32 35 00 A8 | (1-50)?":.825..|
00000890: 10 5E 01 5A B2 C5 28 42 24 29 3A 8B 5A B3 31 B0 |.^.Z..(B$):.Z.1.|
000008A0: 5A B1 35 30 89 33 34 35 00 B9 10 63 01 46 24 28 |Z.50.345...c.F$(|
000008B0: 4A 2C 33 29 B2 C4 28 5A 29 00 E8 10 68 01 8D 39 |J,3)..(Z)...h..9|
000008C0: 31 30 3A 99 22 12 20 D6 49 4C 4B 45 4E 20 52 41 |10:.". .ILKEN RA|
000008D0: 44 20 28 31 2D 32 32 29 20 46 5C 52 20 44 41 54 |D (1-22) F\R DAT|
000008E0: 41 20 22 3A 8D 38 32 35 00 02 11 6D 01 8B C5 28 |A ":.825...m...(|
000008F0: 42 24 29 B3 31 B0 C5 28 42 24 29 B1 32 32 89 33 |B$).1..(B$).22.3|
00000900: 34 35 00 11 11 72 01 46 24 28 4A 2C 34 29 B2 42 |45...r.F$(J,4).B|
00000910: 24 00 42 11 77 01 8D 39 31 30 3A 99 22 12 20 D6 |$.B.w..910:.". .|
00000920: 49 4C 4B 45 4E 20 53 50 41 4C 54 20 28 31 2D 34 |ILKEN SPALT (1-4|
00000930: 30 29 20 46 5C 52 20 44 41 54 41 20 22 3A 8D 38 |0) F\R DATA ":.8|
00000940: 32 35 00 5C 11 7C 01 5A B2 C5 28 42 24 29 3A 8B |25.\.|.Z..(B$):.|
00000950: 5A B3 31 B0 5A B1 34 30 89 33 37 35 00 6F 11 81 |Z.1.Z.40.375.o..|
00000960: 01 46 24 28 4A 2C 35 29 B2 C4 28 5A AB 31 29 00 |.F$(J,5)..(Z.1).|
00000970: 94 11 86 01 8D 37 36 35 3A 4E 31 B2 C5 28 46 24 |.....765:N1..(F$|
00000980: 28 4A 2C 34 29 29 3A 4E 32 B2 C5 28 46 24 28 4A |(J,4)):N2..(F$(J|
00000990: 2C 35 29 29 00 C1 11 8B 01 99 C8 28 43 44 24 2C |,5)).......(CD$,|
000009A0: 4E 31 29 3B C8 28 43 52 24 2C 4E 32 29 3B 22 12 |N1);.(CR$,N2);".|
000009B0: 2B 22 3B 3A 99 43 44 24 3B 59 4E 24 3A 8D 38 32 |+";:.CD$;YN$:.82|
000009C0: 35 00 D1 11 90 01 8B 42 24 B2 22 4E 22 89 33 31 |5......B$."N".31|
000009D0: 30 00 E2 11 95 01 8B 42 24 B3 B1 22 4A 22 89 33 |0......B$.."J".3|
000009E0: 39 30 00 15 12 9A 01 8D 39 31 30 3A 99 22 12 20 |90......910:.". |
000009F0: CD 41 58 49 4D 55 4D 20 4C 5B 4E 47 44 20 46 5C |.AXIMUM L[NGD F\|
00000A00: 52 20 44 41 54 41 20 28 31 2D 32 30 30 29 20 22 |R DATA (1-200) "|
00000A10: 3A 8D 38 32 35 00 30 12 9F 01 5A B2 C5 28 42 24 |:.825.0...Z..(B$|
00000A20: 29 3A 8B 5A B3 31 B0 5A B1 32 30 30 89 34 31 30 |):.Z.1.Z.200.410|
00000A30: 00 41 12 A4 01 46 24 28 4A 2C 37 29 B2 C4 28 5A |.A...F$(J,7)..(Z|
00000A40: 29 00 76 12 A9 01 8D 39 31 30 3A 99 22 12 20 D6 |).v....910:.". .|
00000A50: 49 53 41 53 20 49 20 52 45 56 45 52 53 45 52 41 |ISAS I REVERSERA|
00000A60: 44 20 56 49 44 45 4F 20 28 4A 20 2F 20 4E 29 3F |D VIDEO (J / N)?|
00000A70: 22 3A 8D 38 32 35 00 93 12 AE 01 8B 42 24 B2 22 |":.825......B$."|
00000A80: 4A 22 A7 46 24 28 4A 2C 36 29 B2 22 31 22 3A 89 |J".F$(J,6)."1":.|
00000A90: 34 34 35 00 B0 12 B3 01 8B 42 24 B2 22 4E 22 A7 |445......B$."N".|
00000AA0: 46 24 28 4A 2C 36 29 B2 22 30 22 3A 89 34 34 35 |F$(J,6)."0":.445|
00000AB0: 00 B9 12 B8 01 89 34 32 35 00 CC 12 BD 01 8D 37 |......425......7|
00000AC0: 36 35 3A 99 59 4E 24 3A 8D 38 32 35 00 DC 12 C2 |65:.YN$:.825....|
00000AD0: 01 8B 42 24 B2 22 4E 22 89 33 31 30 00 ED 12 C7 |..B$."N".310....|
00000AE0: 01 8B 42 24 B3 B1 22 4A 22 89 34 34 35 00 F8 12 |..B$.."J".445...|
00000AF0: CC 01 82 4A 3A 89 37 30 00 1B 13 D1 01 8F 2A 2A |...J:.70......**|
00000B00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 33 13 D6 01 |***********.3...|
00000B20: 8F 2A 2A 2A 52 45 41 44 20 4F 4C 44 20 46 4F 52 |.***READ OLD FOR|
00000B30: 4D 41 54 00 56 13 DB 01 8F 2A 2A 2A 2A 2A 2A 2A |MAT.V....*******|
00000B40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B50: 2A 2A 2A 2A 2A 2A 00 64 13 E0 01 8B 54 46 B2 30 |******.d....TF.0|
00000B60: 89 35 31 30 00 8E 13 E5 01 99 22 93 11 11 11 11 |.510......".....|
00000B70: 12 20 C6 4F 52 4D 41 54 45 54 20 49 20 4D 49 4E |. .ORMATET I MIN|
00000B80: 4E 45 54 20 46 5C 52 53 54 5C 52 53 20 22 00 BB |NET F\RST\RS "..|
00000B90: 13 EA 01 99 43 44 24 3B 22 12 20 D6 49 4C 4C 20 |....CD$;". .ILL |
00000BA0: 44 55 20 46 4F 52 54 53 5B 54 54 41 20 28 4A 20 |DU FORTS[TTA (J |
00000BB0: 2F 20 4E 29 3F 22 3A 8D 38 32 35 00 CB 13 EF 01 |/ N)?":.825.....|
00000BC0: 8B 42 24 B2 22 4A 22 89 35 31 30 00 DA 13 F4 01 |.B$."J".510.....|
00000BD0: 8B 42 24 B2 22 4E 22 89 37 30 00 E3 13 F9 01 89 |.B$."N".70......|
00000BE0: 34 39 30 00 0E 14 FE 01 99 22 93 11 11 11 D6 49 |490......".....I|
00000BF0: 4C 4B 45 54 20 4E 41 4D 4E 20 48 41 52 20 44 55 |LKET NAMN HAR DU|
00000C00: 20 53 50 41 52 41 54 20 46 49 4C 45 4E 22 00 31 | SPARAT FILEN".1|
00000C10: 14 03 02 85 22 11 55 4E 44 45 52 22 3B 46 24 3A |....".UNDER";F$:|
00000C20: 42 24 B2 22 30 3A 22 AA 46 24 AA 22 2C 53 2C 52 |B$."0:".F$.",S,R|
00000C30: 22 00 65 14 08 02 99 22 11 11 11 12 20 CC 5B 53 |".e....".... .[S|
00000C40: 45 52 20 49 4E 20 53 4B 5B 52 4D 46 4F 52 4D 41 |ER IN SK[RMFORMA|
00000C50: 54 46 49 4C 45 4E 20 22 3A 99 22 11 12 20 22 46 |TFILEN ":.".. "F|
00000C60: 24 3B 22 20 22 00 7F 14 0D 02 9F 35 2C 38 2C 35 |$;" "......5,8,5|
00000C70: 2C 42 24 3A 84 35 2C 54 46 3A 84 35 2C 53 58 00 |,B$:.5,TF:.5,SX.|
00000C80: 92 14 12 02 81 4A B2 31 A4 54 46 3A 81 4B B2 30 |.....J.1.TF:.K.0|
00000C90: A4 37 00 B6 14 17 02 84 35 2C 46 24 28 4A 2C 4B |.7......5,F$(J,K|
00000CA0: 29 3A 82 4B 2C 4A 3A A0 35 3A 8D 37 36 35 3A 41 |):.K,J:.5:.765:A|
00000CB0: 24 B2 22 4A 41 22 00 EB 14 1C 02 99 43 44 24 3B |$."JA"......CD$;|
00000CC0: 22 20 20 55 50 50 44 41 54 45 52 49 4E 47 20 54 |" UPPDATERING T|
00000CD0: 49 4C 4C 5D 54 45 4E 20 3D 20 22 3B 3A 8B 53 58 |ILL]TEN = ";:.SX|
00000CE0: B2 30 A7 41 24 B2 22 4E 45 4A 22 00 1C 15 21 02 |.0.A$."NEJ"...!.|
00000CF0: 99 41 24 3A 99 22 20 12 20 D4 52 59 43 4B 20 4D |.A$:." . .RYCK M|
00000D00: 45 4C 4C 41 4E 53 4C 41 47 20 46 5C 52 20 41 54 |ELLANSLAG F\R AT|
00000D10: 54 20 46 4F 52 54 53 5B 54 54 41 22 00 2F 15 26 |T FORTS[TTA"./.&|
00000D20: 02 A1 41 24 3A 8B 41 24 B2 22 22 89 35 35 30 00 |..A$:.A$."".550.|
00000D30: 44 15 2B 02 8B 41 24 B2 22 20 22 A7 54 46 B2 30 |D.+..A$." ".TF.0|
00000D40: 3A 89 37 30 00 53 15 30 02 8D 31 30 35 30 3A 89 |:.70.S.0..1050:.|
00000D50: 35 35 30 00 76 15 35 02 8F 2A 2A 2A 2A 2A 2A 2A |550.v.5..*******|
00000D60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D70: 2A 2A 2A 2A 2A 2A 00 92 15 3A 02 8F 2A 2A 2A 20 |******...:..*** |
00000D80: 53 41 56 45 20 53 43 52 45 45 4E 20 46 4F 52 4D |SAVE SCREEN FORM|
00000D90: 41 54 00 B5 15 3F 02 8F 2A 2A 2A 2A 2A 2A 2A 2A |AT...?..********|
00000DA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000DB0: 2A 2A 2A 2A 2A 00 EB 15 44 02 8B 54 46 B2 30 A7 |*****...D..TF.0.|
00000DC0: 45 24 B2 22 20 12 20 C6 4F 52 4D 41 54 45 54 20 |E$." . .ORMATET |
00000DD0: 48 41 52 20 49 4E 54 45 20 53 4B 41 50 41 54 53 |HAR INTE SKAPATS|
00000DE0: 20 22 3A 8D 39 35 35 3A 89 37 30 00 13 16 49 02 | ":.955:.70...I.|
00000DF0: 99 22 93 11 11 11 D6 41 44 20 53 4B 41 20 53 4B |.".....AD SKA SK|
00000E00: 5B 52 4D 46 4F 52 4D 41 54 45 54 20 48 41 20 46 |[RMFORMATET HA F|
00000E10: 5C 52 22 00 35 16 4E 02 85 22 11 4E 41 4D 4E 22 |\R".5.N..".NAMN"|
00000E20: 3B 46 24 3A 42 24 B2 22 30 3A 22 AA 46 24 AA 22 |;F$:B$."0:".F$."|
00000E30: 2C 53 2C 57 22 00 61 16 53 02 99 22 11 11 11 D6 |,S,W".a.S.."....|
00000E40: 49 4C 4C 20 44 55 20 46 5C 52 48 49 4E 44 52 41 |ILL DU F\RHINDRA|
00000E50: 20 41 54 54 20 55 50 50 44 41 54 45 52 49 4E 47 | ATT UPPDATERING|
00000E60: 22 00 91 16 58 02 85 22 11 54 49 4C 4C 5D 54 41 |"...X..".TILL]TA|
00000E70: 53 20 46 5C 52 20 46 49 4C 45 52 20 4D 45 44 20 |S F\R FILER MED |
00000E80: 44 45 54 54 41 20 46 4F 52 4D 41 54 3F 22 3B 41 |DETTA FORMAT?";A|
00000E90: 24 00 A7 16 5D 02 8B 41 24 B2 22 4A 22 A7 53 58 |$...]..A$."J".SX|
00000EA0: B2 31 3A 89 36 32 30 00 BD 16 62 02 8B 41 24 B2 |.1:.620...b..A$.|
00000EB0: 22 4E 22 A7 53 58 B2 30 3A 89 36 32 30 00 C6 16 |"N".SX.0:.620...|
00000EC0: 67 02 89 35 39 35 00 F2 16 6C 02 99 22 11 11 11 |g..595...l.."...|
00000ED0: 12 20 D3 50 41 52 41 52 20 53 4B 5B 52 4D 46 4F |. .PARAR SK[RMFO|
00000EE0: 52 4D 41 54 46 49 4C 45 4E 20 22 3B 46 24 3B 22 |RMATFILEN ";F$;"|
00000EF0: 20 22 00 16 17 71 02 9F 35 2C 38 2C 35 2C 42 24 | "...q..5,8,5,B$|
00000F00: 3A 98 35 2C 54 46 3B 52 54 24 3B 3A 98 35 2C 53 |:.5,TF;RT$;:.5,S|
00000F10: 58 3B 52 54 24 3B 00 29 17 76 02 81 4A B2 31 A4 |X;RT$;.).v..J.1.|
00000F20: 54 46 3A 81 4B B2 30 A4 37 00 4C 17 7B 02 98 35 |TF:.K.0.7.L.{..5|
00000F30: 2C 46 24 28 4A 2C 4B 29 3B 52 54 24 3B 3A 82 4B |,F$(J,K);RT$;:.K|
00000F40: 2C 4A 3A 98 35 3A A0 35 3A 89 37 30 00 6D 17 80 |,J:.5:.5:.70.m..|
00000F50: 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
00000F60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 87 17 |*************...|
00000F70: 85 02 8F 2A 2A 2A 20 44 41 54 41 20 46 49 4C 45 |...*** DATA FILE|
00000F80: 20 43 52 45 41 54 45 00 A8 17 8A 02 8F 2A 2A 2A | CREATE......***|
00000F90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000FA0: 2A 2A 2A 2A 2A 2A 2A 2A 00 B6 17 8F 02 8B 54 44 |********......TD|
00000FB0: B2 30 89 36 38 35 00 E4 17 94 02 99 22 93 11 11 |.0.685......"...|
00000FC0: 11 11 20 20 12 20 C5 4E 20 44 41 54 41 46 49 4C |.. . .N DATAFIL|
00000FD0: 20 48 41 52 20 52 45 44 41 4E 20 53 4B 41 50 41 | HAR REDAN SKAPA|
00000FE0: 54 53 20 22 00 0F 18 99 02 99 43 44 24 3B 22 12 |TS "......CD$;".|
00000FF0: 20 D6 49 4C 4C 20 44 55 20 46 4F 52 54 53 5B 54 | .ILL DU FORTS[T|
00001000: 54 41 20 28 4A 2F 4E 29 3F 22 3A 8D 38 32 35 00 |TA (J/N)?":.825.|
00001010: 1F 18 9E 02 8B 42 24 B2 22 4A 22 89 36 38 35 00 |.....B$."J".685.|
00001020: 2E 18 A3 02 8B 42 24 B2 22 4E 22 89 37 30 00 37 |.....B$."N".70.7|
00001030: 18 A8 02 89 36 36 30 00 64 18 AD 02 54 44 B2 30 |....660.d...TD.0|
00001040: 3A 99 22 93 11 11 11 11 11 20 20 20 20 12 20 C6 |:."...... . .|
00001050: 49 4C 20 49 4E 49 54 49 41 4C 49 53 49 45 52 49 |IL INITIALISIERI|
00001060: 4E 47 20 22 00 99 18 B2 02 99 43 44 24 3B 22 D3 |NG "......CD$;".|
00001070: 4B 52 49 56 20 41 4E 54 41 4C 20 46 5B 4C 54 20 |KRIV ANTAL F[LT |
00001080: 49 20 56 41 52 4A 45 20 50 4F 53 54 20 28 31 2D |I VARJE POST (1-|
00001090: 35 30 29 22 3A 8D 38 32 35 00 BD 18 B7 02 54 44 |50)":.825.....TD|
000010A0: B2 C5 28 42 24 29 3A 8B 54 44 B3 31 B0 54 44 B1 |..(B$):.TD.1.TD.|
000010B0: 35 30 20 A7 8D 39 31 30 3A 89 36 39 30 00 DE 18 |50 ..910:.690...|
000010C0: BC 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************|
000010D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F6 |**************..|
000010E0: 18 C1 02 8F 2A 2A 2A 20 53 41 56 45 20 44 41 54 |....*** SAVE DAT|
000010F0: 41 20 46 49 4C 45 00 17 19 C6 02 8F 2A 2A 2A 2A |A FILE......****|
00001100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001110: 2A 2A 2A 2A 2A 2A 2A 00 39 19 CB 02 99 22 93 11 |*******.9...."..|
00001120: 11 11 D3 54 4F 50 50 41 20 49 4E 20 44 49 4E 20 |...TOPPA IN DIN |
00001130: 44 41 54 41 44 49 53 4B 22 00 5C 19 D0 02 99 22 |DATADISK".\...."|
00001140: 11 11 11 D6 41 44 20 53 4B 41 20 44 41 54 41 46 |....AD SKA DATAF|
00001150: 49 4C 45 4E 20 46 5D 20 46 5C 52 22 00 7D 19 D5 |ILEN F] F\R".}..|
00001160: 02 85 22 4E 41 4D 4E 22 3B 46 24 3A 42 24 B2 22 |.."NAMN";F$:B$."|
00001170: 30 3A 22 AA 46 24 AA 22 2C 53 2C 57 22 00 A1 19 |0:".F$.",S,W"...|
00001180: DA 02 99 22 11 11 11 12 20 D3 4B 52 49 56 45 52 |...".... .KRIVER|
00001190: 20 44 41 54 41 46 49 4C 20 22 3B 46 24 3B 22 20 | DATAFIL ";F$;" |
000011A0: 22 00 C8 19 DF 02 9F 35 2C 38 2C 35 2C 42 24 3A |"......5,8,5,B$:|
000011B0: 54 52 B2 31 3A 98 35 2C 54 52 3B 52 54 24 3A 98 |TR.1:.5,TR;RT$:.|
000011C0: 35 2C 54 44 3B 52 54 24 00 D4 19 E4 02 81 4A B2 |5,TD;RT$......J.|
000011D0: 31 A4 54 44 00 EE 19 E9 02 98 35 2C 22 3E 22 3B |1.TD......5,">";|
000011E0: 52 54 24 3B 3A 82 4A 3A A0 35 3A 89 37 30 00 11 |RT$;:.J:.5:.70..|
000011F0: 1A EE 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |....************|
00001200: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001210: 2A 00 2E 1A F3 02 8F 2A 2A 2A 20 50 52 49 4E 54 |*......*** PRINT|
00001220: 20 53 43 52 45 45 4E 20 53 4F 20 46 41 52 00 51 | SCREEN SO FAR.Q|
00001230: 1A F8 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |....************|
00001240: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001250: 2A 00 66 1A FD 02 99 22 93 22 20 3A 8B 54 46 B2 |*.f...."." :.TF.|
00001260: 30 20 89 38 30 35 00 72 1A 02 03 81 5A B2 31 A4 |0 .805.r....Z.1.|
00001270: 54 46 00 9C 1A 07 03 99 C8 28 43 44 24 2C C5 28 |TF.......(CD$,.(|
00001280: 46 24 28 5A 2C 30 29 29 29 3B C8 28 43 52 24 2C |F$(Z,0)));.(CR$,|
00001290: C5 28 46 24 28 5A 2C 31 29 29 29 3B 00 BC 1A 0C |.(F$(Z,1)));....|
000012A0: 03 99 46 24 28 5A 2C 32 29 3B 3A 8B C5 28 46 24 |..F$(Z,2);:..(F$|
000012B0: 28 5A 2C 33 29 29 B2 30 89 38 30 30 00 EA 1A 11 |(Z,3)).0.800....|
000012C0: 03 99 C8 28 43 44 24 2C C5 28 46 24 28 5A 2C 34 |...(CD$,.(F$(Z,4|
000012D0: 29 29 29 3B C8 28 43 52 24 2C C5 28 46 24 28 5A |)));.(CR$,.(F$(Z|
000012E0: 2C 35 29 29 29 3B 22 92 22 3B 00 01 1B 16 03 8B |,5)));".";......|
000012F0: 46 24 28 5A 2C 36 29 B2 22 31 22 A7 99 22 12 22 |F$(Z,6)."1".."."|
00001300: 3B 00 1B 1B 1B 03 99 C8 28 41 4B 24 2C 28 C5 28 |;.......(AK$,(.(|
00001310: 46 24 28 5A 2C 37 29 29 29 29 3B 00 27 1B 20 03 |F$(Z,7))));.'. .|
00001320: 99 22 92 22 3A 82 5A 00 32 1B 25 03 8D 39 31 30 |.".":.Z.2.%..910|
00001330: 3A 8E 00 4C 1B 2A 03 8F 2A 2A 2A 2A 2A 2A 2A 2A |:..L.*..********|
00001340: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5F 1B 2F |************._./|
00001350: 03 8F 2A 2A 2A 20 47 45 54 20 49 4E 50 55 54 00 |..*** GET INPUT.|
00001360: 79 1B 34 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |y.4..***********|
00001370: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 88 1B 39 03 42 24 |*********...9.B$|
00001380: B2 22 22 3A 54 43 B2 30 00 93 1B 3E 03 99 22 A6 |."":TC.0...>..".|
00001390: 9D 22 3B 00 A6 1B 43 03 A1 41 24 3A 8B 41 24 B2 |.";...C..A$:.A$.|
000013A0: 22 22 89 38 38 35 00 B9 1B 48 03 8B 41 24 B3 B1 |"".885...H..A$..|
000013B0: C7 28 31 33 29 89 38 35 35 00 C7 1B 4D 03 8B 54 |.(13).855...M..T|
000013C0: 43 B2 30 89 38 33 30 00 D0 1B 52 03 89 38 38 30 |C.0.830...R..880|
000013D0: 00 E3 1B 57 03 8B 41 24 B3 B1 C7 28 32 30 29 89 |...W..A$...(20).|
000013E0: 38 37 30 00 F1 1B 5C 03 8B 54 43 B2 30 89 38 33 |870...\..TC.0.83|
000013F0: 30 00 18 1C 61 03 54 43 B2 54 43 AB 31 3A 99 22 |0...a.TC.TC.1:."|
00001400: 20 9D 9D A6 9D 22 3B 3A 42 24 B2 C8 28 42 24 2C | ....";:B$..(B$,|
00001410: 54 43 29 3A 89 38 33 30 00 2C 1C 66 03 8D 31 30 |TC):.830.,.f..10|
00001420: 35 30 3A 8B 5A 5A B2 31 89 38 33 35 00 50 1C 6B |50:.ZZ.1.835.P.k|
00001430: 03 99 41 24 3B 22 A6 9D 22 3B 3A 54 43 B2 54 43 |..A$;"..";:TC.TC|
00001440: AA 31 3A 42 24 B2 42 24 AA 41 24 3A 89 38 33 30 |.1:B$.B$.A$:.830|
00001450: 00 56 1C 70 03 8E 00 85 1C 75 03 81 5A B2 31 A4 |.V.p.....u..Z.1.|
00001460: 38 30 3A 82 3A 99 22 20 9D 22 3B 3A A1 41 24 3A |80:.:." .";:.A$:|
00001470: 8B 41 24 B2 22 22 A7 81 5A B2 31 A4 38 30 3A 82 |.A$.""..Z.1.80:.|
00001480: 3A 89 38 33 30 00 8E 1C 7A 03 89 38 34 30 00 AB |:.830...z..840..|
00001490: 1C 7F 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |....************|
000014A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BF 1C 84 03 |***********.....|
000014B0: 8F 2A 2A 2A 42 4C 41 4E 4B 20 4C 49 4E 45 53 00 |.***BLANK LINES.|
000014C0: DC 1C 89 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.....***********|
000014D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F5 1C 8E |************....|
000014E0: 03 99 43 44 24 3B 42 4C 24 3A 99 42 4C 24 3B 43 |..CD$;BL$:.BL$;C|
000014F0: 44 24 3B 3A 8E 00 12 1D 93 03 8F 2A 2A 2A 2A 2A |D$;:.......*****|
00001500: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001510: 2A 2A 00 2B 1D 98 03 8F 2A 2A 2A 20 50 55 54 20 |**.+....*** PUT |
00001520: 58 20 4F 4E 20 53 43 52 45 45 4E 00 48 1D 9D 03 |X ON SCREEN.H...|
00001530: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00001540: 2A 2A 2A 2A 2A 2A 2A 2A 00 6F 1D A2 03 8D 39 31 |********.o....91|
00001550: 30 3A 4E 31 B2 C5 28 46 24 28 4A 2C 4A 31 29 29 |0:N1..(F$(J,J1))|
00001560: 3A 4E 32 B2 C5 28 46 24 28 4A 2C 4A 32 29 29 00 |:N2..(F$(J,J2)).|
00001570: 90 1D A7 03 99 C8 28 43 44 24 2C 4E 31 29 3B C8 |......(CD$,N1);.|
00001580: 28 43 52 24 2C 4E 32 29 3B 22 12 2B 22 3B 3A 8E |(CR$,N2);".+";:.|
00001590: 00 AD 1D AC 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |......**********|
000015A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C4 1D |*************...|
000015B0: B1 03 8F 2A 2A 2A 20 45 52 52 4F 52 20 4D 45 53 |...*** ERROR MES|
000015C0: 53 41 47 45 00 E1 1D B6 03 8F 2A 2A 2A 2A 2A 2A |SAGE......******|
000015D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000015E0: 2A 00 F5 1D BB 03 81 4B B2 31 A4 35 3A 8D 39 31 |*......K.1.5:.91|
000015F0: 30 3A 99 45 24 00 05 1E C0 03 81 4B 31 B2 31 A4 |0:.E$......K1.1.|
00001600: 39 39 39 3A 82 00 20 1E C5 03 8D 39 31 30 3A 81 |999:.. ....910:.|
00001610: 4B 31 B2 31 A4 31 30 30 3A 82 4B 31 2C 4B 3A 8E |K1.1.100:.K1,K:.|
00001620: 00 3D 1E CA 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.=....**********|
00001630: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 52 1E |*************.R.|
00001640: CF 03 8F 2A 2A 2A 45 58 49 54 20 50 52 4F 47 52 |...***EXIT PROGR|
00001650: 41 4D 00 73 1E D9 03 99 22 93 11 11 11 20 20 12 |AM.s....".... .|
00001660: 20 D3 4C 55 54 41 20 50 52 4F 47 52 41 4D 4D 45 | .LUTA PROGRAMME|
00001670: 54 20 22 00 9A 1E DE 03 99 43 44 24 3B 22 20 12 |T "......CD$;" .|
00001680: 20 DB 52 20 44 55 20 53 5B 4B 45 52 20 28 4A 2F | .R DU S[KER (J/|
00001690: 4E 29 3F 20 22 3A 8D 38 32 35 00 C2 1E E3 03 8B |N)? ":.825......|
000016A0: 42 24 B2 22 4A 22 A7 99 22 93 11 11 11 11 20 20 |B$."J".."..... |
000016B0: D3 4C 55 54 20 50 5D 20 4B 5C 52 4E 49 4E 47 22 |.LUT P] K\RNING"|
000016C0: 3A 80 00 D1 1E E8 03 8B 42 24 B2 22 4E 22 89 37 |:.......B$."N".7|
000016D0: 30 00 DA 1E ED 03 89 39 38 35 00 F6 1E F2 03 8F |0......985......|
000016E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000016F0: 2A 2A 2A 2A 2A 2A 00 10 1F F7 03 8F 2A 2A 2A 20 |******......*** |
00001700: 49 4E 49 54 49 41 4C 49 53 45 20 41 52 52 41 59 |INITIALISE ARRAY|
00001710: 00 2C 1F FC 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.,....**********|
00001720: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4B 1F 01 |************.K..|
00001730: 04 99 22 93 11 11 11 11 20 12 20 C9 4E 49 54 49 |.."..... . .NITI|
00001740: 41 4C 49 53 49 45 52 41 52 20 22 00 70 1F 06 04 |ALISIERAR ".p...|
00001750: 81 4A B2 31 A4 35 30 3A 81 4B B2 30 A4 37 3A 46 |.J.1.50:.K.0.7:F|
00001760: 24 28 4A 2C 4B 29 B2 58 24 3A 82 4B 2C 4A 3A 8E |$(J,K).X$:.K,J:.|
00001770: 00 8C 1F 0B 04 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |......**********|
00001780: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 AD 1F 10 |************....|
00001790: 04 8F 2A 2A 2A 20 43 48 45 43 4B 20 46 4F 52 20 |..*** CHECK FOR |
000017A0: 46 55 4E 43 54 49 4F 4E 20 4B 45 59 53 00 CE 1F |FUNCTION KEYS...|
000017B0: 15 04 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************|
000017C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E7 |**************..|
000017D0: 1F 1A 04 5A 5A B2 30 3A 8B C6 28 41 24 29 B2 31 |...ZZ.0:..(A$).1|
000017E0: 33 33 89 31 30 37 30 00 FB 1F 1F 04 8B C6 28 41 |33.1070.......(A|
000017F0: 24 29 B2 31 33 34 89 31 30 38 30 00 0F 20 24 04 |$).134.1080.. $.|
00001800: 8B C6 28 41 24 29 B2 31 33 35 89 31 30 39 30 00 |..(A$).135.1090.|
00001810: 15 20 29 04 8E 00 2D 20 2E 04 45 43 B2 45 43 AA |. )...- ..EC.EC.|
00001820: 31 3A 8B 45 43 B1 31 35 A7 45 43 B2 30 00 41 20 |1:.EC.15.EC.0.A |
00001830: 33 04 97 35 33 32 38 30 2C 45 43 3A 89 31 31 30 |3..53280,EC:.110|
00001840: 30 00 59 20 38 04 42 43 B2 42 43 AA 31 3A 8B 42 |0.Y 8.BC.BC.1:.B|
00001850: 43 B1 31 35 A7 42 43 B2 30 00 6C 20 3D 04 97 35 |C.15.BC.0.l =..5|
00001860: 33 32 38 31 2C 42 43 3A 89 31 31 30 00 84 20 42 |3281,BC:.110.. B|
00001870: 04 43 43 B2 43 43 AA 31 3A 8B 43 43 B1 31 36 A7 |.CC.CC.1:.CC.16.|
00001880: 43 43 B2 31 00 96 20 47 04 99 CA 28 43 43 24 2C |CC.1.. G...(CC$,|
00001890: 43 43 2C 31 29 3B 00 A1 20 4C 04 5A 5A B2 31 3A |CC,1);.. L.ZZ.1:|
000018A0: 8E 00 00 00 |.... |
..E....***SCREEN FORMATTER & DATA FILE C
REATION*****COMMODORE64******.F....***BO
B CHAPPEL***14/6/83***.T....F$(50,7)....
.. G(14):. LOWER CASE.....CD$.".........
..............".....CR$."...............
.........................":X$."0".....YN
$.".OK (J / N)?":RT$.G(13).Q.#.AK$."****
****************************************
****************"...(.AK$.AK$.AK$.AK$.AK
$:BL$."
"...-.CC$."........"...2.TD.0:TF.0
.Q.7..*******************...<..***OPTION
S...A..*******************.,.F..".------
. SK[RM OCH DATAFIL FORMAT .------".].K
.."..----- SK[RM FORMAT ----------------
----".X.P.."..1. SKAPA EN SK[RM"...Q.."2
. SPARA FORMATET TILL DISK".I.U.."3. LAD
DA IN OCH VISA ETT SPARAT FORMAT"...Z.."
..----- DATAFIL ------------------------
-"..._.."..4. SKAPA EN DATAFIL".H.D.."..
----- SLUTA MED PROGRAMMET ------------"
.Z.I.."..5. SLUTA"...N..910:.". G\R ETT
VAL (1 TILL 5) ":.825...S.J.E(B$):.J.1.J
.5.110...X..J.140,580,480,655,985.U.}..
*********************...... ***SCREEN FO
RMATTER...... *********************.....
. TF.0.185.G...."..... . ETT FORMAT HAR
REDAN SKAPATS".S....CD$;". VILL DU FORT
S[TTA? (J/N)?":.825......B$."Y" . B$."J"
. 185... ..B$."N".70......145.C.... ***
*******************...... *** SCREEN FOR
MAT...... **********************.....TF.
0:.1025:.J.1.50.,.... ******************
****.F.C.. *** GET TEXT DETAIL.C.H.. ***
*******************.L.M..765...R..". VIL
KEN RAD (1-22 ELLER * = SLUTA) ":.825...
W..B$."*".70.F....E(B$).1.E(B$).22.205.U
...F$(J,0).B$......910:.". VILKEN SPALT
(1-40) F\R TEXTEN ":.825."...Z.E(B$):.Z.
1.Z.40.230.5...F$(J,1).D(Z.1).Z....765:N
1.E(F$(J,0)):N2.E(F$(J,1))......H(CD$,N1
);H(CR$,N2);".+"; :.CD$;YN$:.825......B$
."N".205......B$.."J".245......910:.".VI
SAS I REVERSERAD VIDEO (J / N)?":.825...
...B$."Y".B$."J".RV$.".":.285...... B$."
N".RV$."":.285......265.(....765.[."..".
SKRIV TEXTEN ":.825:F$(J,2).RV$.B$:TF.T
F.1.N.'..765:.YN$:.825...,..B$."N".TF.TF
.1:.".":.245...1..B$.."J".295...6..765:F
$(J,3)."0"...;..".SKA DU HA EN DATAF[LT
(J / N)?":.825...@..B$."N".460...E..B$..
"J".310...J..*************************.B
.O..*** GET ASSOCIATED DATA DETAIL.A.T..
*************************...Y..910:.". V
ILKET F[LTNUMMER (1-50)?":.825...^.Z.E(B
$):.Z.1.Z.50.345...C.F$(J,3).D(Z)...H..9
10:.". VILKEN RAD (1-22) F\R DATA ":.825
...M..E(B$).1.E(B$).22.345...R.F$(J,4).B
$.B.W..910:.". VILKEN SPALT (1-40) F\R D
ATA ":.825.\.|.Z.E(B$):.Z.1.Z.40.375.O..
.F$(J,5).D(Z.1)......765:N1.E(F$(J,4)):N
2.E(F$(J,5)).A....H(CD$,N1);H(CR$,N2);".
+";:.CD$;YN$:.825.Q....B$."N".310......B
$.."J".390......910:.". MAXIMUM L[NGD F\
R DATA (1-200) ":.825.0...Z.E(B$):.Z.1.Z
.200.410.A...F$(J,7).D(Z).V....910:.". V
ISAS I REVERSERAD VIDEO (J / N)?":.825..
....B$."J".F$(J,6)."1":.445......B$."N".
F$(J,6)."0":.445......425.L....765:.YN$:
.825...B..B$."N".310...G..B$.."J".445...
L..J:.70...Q..**************************
***.3.V..***READ OLD FORMAT.V....*******
**********************.D....TF.0.510....
.."...... FORMATET I MINNET F\RST\RS "..
....CD$;". VILL DU FORTS[TTA (J / N)?":.
825.K....B$."J".510.Z....B$."N".70......
490......"....VILKET NAMN HAR DU SPARAT
FILEN".1....".UNDER";F$:B$."0:".F$.",S,R
".E....".... L[SER IN SK[RMFORMATFILEN "
:.".. "F$;" ".....5,8,5,B$:.5,TF:.5,SX.
.....J.1.TF:.K.0.7......5,F$(J,K):.K,J:
5:.765:A$."JA"......CD$;" UPPDATERING T
ILL]TEN = ";:.SX.0.A$."NEJ"...!..A$:." .
TRYCK MELLANSLAG F\R ATT FORTS[TTA"./.&
..A$:.A$."".550.D.+..A$." ".TF.0:.70.S.0
..1050:.550.V.5..***********************
******...:..*** SAVE SCREEN FORMAT...?..
*****************************...D..TF.0.
E$." . FORMATET HAR INTE SKAPATS ":.955:
.70...I.."....VAD SKA SK[RMFORMATET HA F
\R".5.N..".NAMN";F$:B$."0:".F$.",S,W".A.
S.."...VILL DU F\RHINDRA ATT UPPDATERING
"...X..".TILL]TAS F\R FILER MED DETTA FO
RMAT?";A$...]..A$."J".SX.1:.620...B..A$.
"N".SX.0:.620.F.G..595...L..".... SPARAR
SK[RMFORMATFILEN ";F$;" "...Q..5,8,5,B$
:.5,TF;RT$;:.5,SX;RT$;.).V..J.1.TF:.K.0.
7.L.{..5,F$(J,K);RT$;:.K,J:.5: 5:.70.M..
..***************************......*** D
ATA FILE CREATE......*******************
********......TD.0.685......"..... . EN
DATAFIL HAR REDAN SKAPATS "......CD$;".
VILL DU FORTS[TTA (J/N)?":.825......B$.
"J".685......B$."N".70.7....660.D...TD.0
:."...... . FIL INITIALISIERING "....
..CD$;"SKRIV ANTAL F[LT I VARJE POST (1-
50)":.825.....TD.E(B$):.TD.1.TD.50 ..910
:.690......***************************..
.A..*** SAVE DATA FILE...F..************
***************.9.K.."....STOPPA IN DIN
DATADISK".\.P.."...VAD SKA DATAFILEN F]
F\R".}.U.."NAMN";F$:B$."0:".F$.",S,W"...
Z..".... SKRIVER DATAFIL ";F$;" ".H....5
,8,5,B$:TR.1:.5,TR;RT$:.5,TD;RT$.T....J.
1.TD......5,">";RT$;:.J: 5:.70......****
*************************......*** PRINT
SCREEN SO FAR.Q....********************
*********.F...."." :.TF.0 .805.R....Z.1.
TF......H(CD$,E(F$(Z,0)));H(CR$,E(F$(Z,1
)));......F$(Z,2);:.E(F$(Z,3)).0.800....
..H(CD$,E(F$(Z,4)));H(CR$,E(F$(Z,5)));".
";......F$(Z,6)."1"..".";......H(AK$,(E(
F$(Z,7))));.'. ..".":.Z.2.%..910:..L.*..
********************._./..*** GET INPUT.
Y.4..********************...9.B$."":TC.0
...>.."..";...C..A$:.A$."".885...H..A$..
G(13).855.G.M..TC.0.830.P.R..880...W..A$
..G(20).870...\..TC.0.830...A.TC.TC.1:."
....";:B$.H(B$,TC):.830.,.F..1050:.ZZ.1
.835.P.K..A$;"..";:TC.TC.1:B$.B$.A$:.830
.V.P.....U..Z.1.80:.:." .";:.A$:.A$.""..
Z.1.80:.:.830...Z..840.....************
***********......***BLANK LINES......***
********************......CD$;BL$:.BL$;C
D$;:.......***********************.+....
*** PUT X ON SCREEN.H....***************
********.O....910:N1.E(F$(J,J1)):N2.E(F$
(J,J2))......H(CD$,N1);H(CR$,N2);".+";:.
......***********************.D....*** E
RROR MESSAGE......**********************
*......K.1.5:.910:.E$......K1.1.999:.. .
E..910:.K1.1.100:.K1,K:..=.J..**********
*************.R.O..***EXIT PROGRAM.S.Y..
".... . SLUTA PROGRAMMET "......CD$;" .
.R DU S[KER (J/N)? ":.825.B....B$."J"..
"..... SLUT P] K\RNING":..Q....B$."N".7
0.Z....985......**********************..
....*** INITIALISE ARRAY.,....**********
************.K...."..... . INITIALISIERA
R ".P....J.1.50:.K.0.7:F$(J,K).X$:.K,J:.
......**********************......*** CH
ECK FOR FUNCTION KEYS.N....*************
**************.....ZZ.0:.F(A$).133.1070.
.....F(A$).134.1080.. $..F(A$).135.1090.
. )...- ..EC.EC.1:.EC.15.EC.0.A 3..53280
,EC:.1100.Y 8.BC.BC.1:.BC.15.BC.0.L =..5
3281,BC:.110.. B.CC.CC.1:.CC.16.CC.1.. G
..J(CC$,CC,1);.. L.ZZ.1:....
> CLICK IMAGE PREVIEW FOR FULL MODAL