FIL DATA
FILE INFORMATION
FILENAME(S): FIL DATA
FILE TYPE(S): PRG
FILE SIZE: 3.8K
FIRST SEEN: 2025-11-30 19:47:16
APPEARS ON: 1 disk(s)
FILE HASH
d6e5b374815e6e99b1b6ebf0e3eb0d9f5f7f00bf00c0556c142a7a4757a82d9d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HJ LPEDISK A3 1 | FIL DATA | PRG | Curtcool, Frank | 19 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 01 00 97 20 35 33 32 38 30 2C 31 31 |....... 53280,11| 00000010: 3A 8F 20 4B 41 4E 54 20 28 47 52 41 41 29 00 3F |:. KANT (GRAA).?| 00000020: 08 02 00 97 20 35 33 32 38 31 2C 31 31 3A 8F 20 |.... 53281,11:. | 00000030: 42 41 47 47 52 55 4E 44 20 28 47 52 41 41 29 00 |BAGGRUND (GRAA).| 00000040: 62 08 03 00 97 20 36 34 36 2C 31 32 3A 20 20 8F |b.... 646,12: .| 00000050: 20 43 55 52 53 4F 52 20 28 4C 59 53 20 47 52 41 | CURSOR (LYS GRA| 00000060: 41 29 00 80 08 04 00 97 20 36 35 30 2C 31 32 38 |A)...... 650,128| 00000070: 3A 20 8F 20 52 45 50 45 54 45 52 20 54 41 53 54 |: . REPETER TAST| 00000080: 00 8D 08 09 00 86 20 41 24 28 36 30 29 00 96 08 |...... A$(60)...| 00000090: 0A 00 99 22 93 22 00 BC 08 0C 00 99 22 11 11 11 |..."."......"...| 000000A0: 11 20 20 20 20 20 20 20 20 20 20 20 20 56 41 45 |. VAE| 000000B0: 4C 47 20 4B 4F 4D 4D 41 4E 44 4F 22 00 C7 08 0F |LG KOMMANDO"....| 000000C0: 00 99 22 11 11 11 22 00 E4 08 14 00 99 22 20 20 |.."..."......" | 000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 31 20 52 | 1 R| 000000E0: 45 41 44 22 00 02 09 1E 00 99 22 20 20 20 20 20 |EAD"......" | 000000F0: 20 20 20 20 20 20 20 20 20 20 32 20 57 52 49 54 | 2 WRIT| 00000100: 45 22 00 21 09 20 00 99 22 20 20 20 20 20 20 20 |E".!. .." | 00000110: 20 20 20 20 20 20 20 20 33 20 44 45 4C 45 54 45 | 3 DELETE| 00000120: 22 00 42 09 22 00 99 22 20 20 20 20 20 20 20 20 |".B.".." | 00000130: 20 20 20 20 20 20 20 34 20 4E 59 45 20 44 41 54 | 4 NYE DAT| 00000140: 41 22 00 5F 09 25 00 99 22 20 20 20 20 20 20 20 |A"._.%.." | 00000150: 20 20 20 20 20 20 20 20 53 20 53 54 4F 50 22 00 | S STOP".| 00000160: 75 09 28 00 A1 20 46 24 3A 8B 20 46 24 B2 22 22 |u.(.. F$:. F$.""| 00000170: 20 A7 20 34 30 00 90 09 2D 00 8B 20 46 24 B2 22 | . 40...-.. F$."| 00000180: 53 22 20 A7 20 A0 31 3A A0 32 3A A0 31 35 3A 80 |S" . .1:.2:.15:.| 00000190: 00 9C 09 32 00 46 B2 C5 28 46 24 29 00 B1 09 3C |...2.F..(F$)...<| 000001A0: 00 8B 20 46 B3 31 20 B0 20 46 B1 34 20 A7 20 34 |.. F.1 . F.4 . 4| 000001B0: 30 00 CC 09 5A 00 91 20 46 20 89 20 31 39 30 2C |0...Z.. F . 190,| 000001C0: 31 30 30 2C 39 30 30 2C 32 35 30 30 00 E9 09 5F |100,900,2500..._| 000001D0: 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************| 000001E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 06 0A 60 00 8F 20 |*********...`.. | 000001F0: 2A 20 20 20 20 20 20 20 57 52 49 54 45 20 20 20 |* WRITE | 00000200: 20 20 20 20 20 2A 00 23 0A 61 00 8F 20 2A 2A 2A | *.#.a.. ***| 00000210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000220: 2A 2A 2A 00 2C 0A 64 00 99 22 93 22 00 4E 0A 65 |***.,.d..".".N.e| 00000230: 00 8D 20 32 30 30 30 3A 8F 20 2A 2A 2A 20 49 4E |.. 2000:. *** IN| 00000240: 49 54 49 41 4C 49 5A 49 4E 47 20 2A 2A 2A 00 6B |ITIALIZING ***.k| 00000250: 0A 6E 00 9F 32 2C 38 2C 32 2C 22 30 3A 54 4C 46 |.n..2,8,2,"0:TLF| 00000260: 2C 53 45 51 2C 57 52 49 54 45 22 00 78 0A 72 00 |,SEQ,WRITE".x.r.| 00000270: 9F 31 35 2C 38 2C 31 35 00 97 0A 73 00 8D 20 34 |.15,8,15...s.. 4| 00000280: 30 30 3A 8F 20 2A 2A 2A 20 44 49 53 4B 20 45 52 |00:. *** DISK ER| 00000290: 52 4F 52 20 2A 2A 2A 00 A5 0A 78 00 43 52 24 B2 |ROR ***...x.CR$.| 000002A0: C7 28 31 33 29 00 AE 0A 7A 00 99 22 93 22 00 BD |.(13)...z.."."..| 000002B0: 0A 7D 00 81 20 49 B2 31 20 A4 20 36 30 00 E0 0A |.}.. I.1 . 60...| 000002C0: 7F 00 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..."------------| 000002D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"| 000002E0: 00 F9 0A 82 00 85 22 4E 41 56 4E 3A 20 20 20 20 |......"NAVN: | 000002F0: 20 20 22 3B 41 24 28 49 29 00 0F 0B 87 00 8B 20 | ";A$(I)...... | 00000300: 41 24 28 49 29 B2 22 53 22 20 A7 20 31 37 30 00 |A$(I)."S" . 170.| 00000310: 28 0B 8C 00 85 22 41 44 52 3A 20 20 20 20 20 20 |(...."ADR: | 00000320: 20 22 3B 42 24 28 49 29 00 42 0B 8D 00 85 22 50 | ";B$(I).B...."P| 00000330: 4F 53 54 4E 52 2E 2F 42 59 3A 22 3B 42 59 24 28 |OSTNR./BY:";BY$(| 00000340: 49 29 00 5B 0B 96 00 85 22 54 4C 46 2E 4E 52 20 |I).[...."TLF.NR | 00000350: 20 20 20 20 22 3B 43 24 28 49 29 00 74 0B 9B 00 | ";C$(I).t...| 00000360: 85 22 4B 4F 4D 4D 45 4E 54 41 52 20 20 22 3B 4B |."KOMMENTAR ";K| 00000370: 24 28 49 29 00 AF 0B A0 00 98 32 2C 41 24 28 49 |$(I)......2,A$(I| 00000380: 29 3B 43 52 24 3B 42 24 28 49 29 3B 43 52 24 3B |);CR$;B$(I);CR$;| 00000390: 42 59 24 28 49 29 3B 43 52 24 3B 43 24 28 49 29 |BY$(I);CR$;C$(I)| 000003A0: 3B 43 52 24 3B 4B 24 28 49 29 3B 43 52 24 3B 00 |;CR$;K$(I);CR$;.| 000003B0: D2 0B A1 00 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |....."----------| 000003C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000003D0: 2D 22 00 F1 0B A2 00 8D 20 34 30 30 3A 8F 20 2A |-"...... 400:. *| 000003E0: 2A 2A 20 44 49 53 4B 20 45 52 52 4F 52 20 2A 2A |** DISK ERROR **| 000003F0: 2A 00 F7 0B A5 00 82 00 FF 0B AA 00 A0 20 32 00 |*............ 2.| 00000400: 07 0C AB 00 A0 20 31 00 10 0C AC 00 A0 20 31 35 |..... 1...... 15| 00000410: 00 16 0C AF 00 8A 00 32 0C B4 00 8F 20 2A 2A 2A |.......2.... ***| 00000420: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000430: 2A 2A 00 4E 0C B5 00 8F 20 2A 20 20 20 20 20 20 |**.N.... * | 00000440: 20 52 45 41 44 20 20 20 20 20 20 20 20 2A 00 6A | READ *.j| 00000450: 0C B6 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********| 00000460: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 73 0C BE 00 99 |**********.s....| 00000470: 22 93 22 00 95 0C C3 00 8D 20 32 30 30 30 3A 8F |"."...... 2000:.| 00000480: 20 2A 2A 2A 20 49 4E 49 54 49 41 4C 49 5A 49 4E | *** INITIALIZIN| 00000490: 47 20 2A 2A 2A 00 B1 0C C8 00 9F 32 2C 38 2C 32 |G ***......2,8,2| 000004A0: 2C 22 30 3A 54 4C 46 2C 53 45 51 2C 52 45 41 44 |,"0:TLF,SEQ,READ| 000004B0: 22 00 BE 0C C9 00 9F 31 35 2C 38 2C 31 35 00 DD |"......15,8,15..| 000004C0: 0C CA 00 8D 20 34 30 30 3A 8F 20 2A 2A 2A 20 44 |.... 400:. *** D| 000004D0: 49 53 4B 20 45 52 52 4F 52 20 2A 2A 2A 00 EC 0C |ISK ERROR ***...| 000004E0: CD 00 81 20 49 B2 31 20 A4 20 36 30 00 12 0D D2 |... I.1 . 60....| 000004F0: 00 84 32 2C 41 24 28 49 29 2C 42 24 28 49 29 2C |..2,A$(I),B$(I),| 00000500: 42 59 24 28 49 29 2C 43 24 28 49 29 2C 4B 24 28 |BY$(I),C$(I),K$(| 00000510: 49 29 00 2C 0D DC 00 8B 20 53 54 20 AF 20 36 34 |I).,.... ST . 64| 00000520: 20 A7 20 A0 20 32 3A 89 20 32 32 37 00 32 0D DE | . . 2:. 227.2..| 00000530: 00 82 00 4D 0D E0 00 8F 20 2A 2A 2A 2A 2A 2A 2A |...M.... *******| 00000540: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 68 0D |*************.h.| 00000550: E1 00 8F 20 2A 20 20 20 20 20 55 44 53 4B 52 49 |... * UDSKRI| 00000560: 46 54 20 20 20 20 20 2A 00 83 0D E2 00 8F 20 2A |FT *...... *| 00000570: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000580: 2A 2A 2A 00 8C 0D E3 00 99 22 93 22 00 9B 0D E4 |***......"."....| 00000590: 00 81 20 55 B2 31 20 A4 20 36 30 00 A4 0D E5 00 |.. U.1 . 60.....| 000005A0: 99 22 93 22 00 B8 0D E6 00 99 22 53 49 44 45 3A |."."......"SIDE:| 000005B0: 22 55 22 11 11 11 11 22 00 CD 0D E7 00 8B 20 41 |"U"...."...... A| 000005C0: 24 28 31 29 B2 22 22 20 A7 20 35 30 30 00 E2 0D |$(1)."" . 500...| 000005D0: E8 00 8B 20 41 24 28 55 29 B2 22 22 20 A7 20 32 |... A$(U)."" . 2| 000005E0: 32 38 00 FB 0D EA 00 99 22 4E 41 56 4E 3A 20 20 |28......"NAVN: | 000005F0: 20 20 20 20 22 3B 41 24 28 55 29 00 14 0E F0 00 | ";A$(U).....| 00000600: 99 22 41 44 52 3A 20 20 20 20 20 20 20 22 3B 42 |."ADR: ";B| 00000610: 24 28 55 29 00 2E 0E F1 00 99 22 50 4F 53 54 4E |$(U)......"POSTN| 00000620: 52 2E 2F 42 59 3A 22 3B 42 59 24 28 55 29 00 47 |R./BY:";BY$(U).G| 00000630: 0E FA 00 99 22 54 4C 46 2E 4E 52 3A 20 20 20 20 |...."TLF.NR: | 00000640: 22 3B 43 24 28 55 29 00 60 0E FC 00 99 22 4B 4F |";C$(U).`...."KO| 00000650: 4D 4D 45 4E 54 41 52 20 20 22 3B 4B 24 28 55 29 |MMENTAR ";K$(U)| 00000660: 00 89 0E FF 00 99 22 11 11 20 20 20 20 20 20 3C |......".. <| 00000670: 3C 20 20 20 20 20 20 20 20 53 50 41 43 45 20 20 |< SPACE | 00000680: 20 20 20 20 20 20 3E 3E 22 00 A6 0E 03 01 8F 20 | >>"...... | 00000690: 2A 2A 2A 2A 2A 20 47 45 54 20 52 55 54 49 4E 45 |***** GET RUTINE| 000006A0: 20 2A 2A 2A 2A 2A 00 BF 0E 04 01 A1 20 41 4E 24 | *****...... AN$| 000006B0: 3A 8B 20 41 4E 24 B2 22 22 20 A7 20 32 36 30 00 |:. AN$."" . 260.| 000006C0: D1 0E 09 01 8B 20 41 4E 24 B2 22 20 22 20 A7 20 |..... AN$." " . | 000006D0: 82 00 E6 0E 0E 01 8B 20 41 4E 24 B3 B1 22 53 22 |....... AN$.."S"| 000006E0: 20 A7 20 32 36 30 00 F3 0E 0F 01 A0 31 3A A0 31 | . 260......1:.1| 000006F0: 35 3A 8A 00 F9 0E 18 01 80 00 18 0F 90 01 8F 20 |5:............. | 00000700: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000710: 2A 2A 2A 2A 2A 2A 2A 2A 00 37 0F 91 01 8F 20 2A |********.7.... *| 00000720: 20 20 20 20 45 52 52 4F 52 20 52 4F 55 54 49 4E | ERROR ROUTIN| 00000730: 45 20 20 20 20 20 2A 00 56 0F 92 01 8F 20 2A 2A |E *.V.... **| 00000740: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000750: 2A 2A 2A 2A 2A 2A 00 6B 0F C2 01 84 31 35 2C 45 |******.k....15,E| 00000760: 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 89 0F CC 01 |N,EM$,ET,ES.....| 00000770: 99 22 44 49 53 4B 20 45 52 52 4F 52 22 45 4E 3B |."DISK ERROR"EN;| 00000780: 45 4D 24 3B 45 54 3B 45 53 00 9B 0F D1 01 8B 20 |EM$;ET;ES...... | 00000790: 45 4E B2 36 33 20 A7 20 34 39 30 00 A1 0F E0 01 |EN.63 . 490.....| 000007A0: 8E 00 C0 0F E5 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |....... ********| 000007B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000007C0: 00 DF 0F E6 01 8F 20 2A 20 20 20 20 20 46 45 4A |...... * FEJ| 000007D0: 4C 4D 45 4C 44 49 4E 47 20 20 20 20 20 20 2A 00 |LMELDING *.| 000007E0: FE 0F E7 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... **********| 000007F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 26 |**************.&| 00000800: 10 EA 01 99 22 93 11 11 11 11 11 11 20 20 20 20 |...."....... | 00000810: 20 20 20 20 20 20 20 20 20 44 49 53 4B 20 45 52 | DISK ER| 00000820: 52 4F 52 3A 11 22 00 4D 10 EB 01 99 22 20 20 20 |ROR:.".M...." | 00000830: 20 20 20 46 49 4C 45 4E 20 45 4B 53 49 53 54 45 | FILEN EKSISTE| 00000840: 52 45 52 20 41 4C 4C 45 52 45 44 45 22 00 60 10 |RER ALLEREDE".`.| 00000850: EC 01 81 20 4A B2 31 20 A4 20 34 30 30 30 3A 82 |... J.1 . 4000:.| 00000860: 00 66 10 ED 01 8A 00 8B 10 F4 01 8F 20 2D 2D 2D |.f.......... ---| 00000870: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000880: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 9C 10 FE 01 |-----------.....| 00000890: 99 22 93 11 11 11 11 11 11 11 11 22 00 C1 10 08 |."........."....| 000008A0: 02 99 22 20 20 20 20 20 20 20 46 49 4C 45 4E 20 |.." FILEN | 000008B0: 45 4B 53 49 53 54 45 52 45 52 20 49 4B 4B 45 21 |EKSISTERER IKKE!| 000008C0: 22 00 D4 10 26 02 81 20 54 B2 31 20 A4 20 33 30 |"...&.. T.1 . 30| 000008D0: 30 30 3A 82 00 DA 10 30 02 8A 00 F9 10 84 03 8F |00:....0........| 000008E0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************| 000008F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 18 11 85 03 8F 20 |*********...... | 00000900: 2A 20 20 20 20 20 20 20 20 44 45 4C 45 54 45 20 |* DELETE | 00000910: 20 20 20 20 20 20 20 2A 00 37 11 86 03 8F 20 2A | *.7.... *| 00000920: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000930: 2A 2A 2A 2A 2A 2A 2A 00 49 11 AC 03 99 22 93 11 |*******.I...."..| 00000940: 11 11 11 11 11 11 11 11 22 00 74 11 B6 03 85 22 |........".t...."| 00000950: 20 20 20 20 20 20 20 44 55 20 56 49 4C 20 53 4C | DU VIL SL| 00000960: 45 54 54 45 20 46 49 4C 45 4E 20 20 4A 9D 9D 9D |ETTE FILEN J...| 00000970: 22 3B 53 24 00 87 11 C0 03 8B 20 53 24 B3 B1 22 |";S$...... S$.."| 00000980: 4A 22 20 A7 20 31 30 00 9C 11 F2 03 9F 31 2C 38 |J" . 10......1,8| 00000990: 2C 31 35 2C 22 53 30 3A 54 4C 46 22 00 A3 11 FC |,15,"S0:TLF"....| 000009A0: 03 A0 31 00 C5 11 01 04 8D 20 32 30 30 30 3A 8F |..1...... 2000:.| 000009B0: 20 2A 2A 2A 20 49 4E 49 54 49 41 4C 49 5A 49 4E | *** INITIALIZIN| 000009C0: 47 20 2A 2A 2A 00 CB 11 06 04 8A 00 D1 11 10 04 |G ***...........| 000009D0: 80 00 F2 11 B0 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |....... ********| 000009E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000009F0: 2A 2A 00 13 12 B1 04 8F 20 2A 20 20 20 49 4E 49 |**...... * INI| 00000A00: 54 49 41 4C 49 5A 45 20 52 4F 55 54 49 4E 45 20 |TIALIZE ROUTINE | 00000A10: 20 20 2A 00 34 12 B2 04 8F 20 2A 2A 2A 2A 2A 2A | *.4.... ******| 00000A20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000A30: 2A 2A 2A 2A 00 5C 12 D0 07 99 22 93 11 11 11 11 |****.\....".....| 00000A40: 11 11 20 20 20 20 20 20 20 20 20 20 20 20 50 4C |.. PL| 00000A50: 45 41 53 45 20 57 41 49 54 11 11 22 00 7C 12 DA |EASE WAIT..".|..| 00000A60: 07 99 22 20 20 20 20 20 20 20 20 20 20 20 20 49 |.." I| 00000A70: 4E 49 54 49 41 4C 49 5A 49 4E 47 22 00 8C 12 E4 |NITIALIZING"....| 00000A80: 07 9F 31 2C 38 2C 31 35 2C 22 49 22 00 9F 12 EE |..1,8,15,"I"....| 00000A90: 07 81 20 54 B2 31 20 A4 20 32 30 30 30 3A 82 00 |.. T.1 . 2000:..| 00000AA0: A7 12 F8 07 A0 20 31 00 AD 12 02 08 8E 00 CE 12 |..... 1.........| 00000AB0: C4 09 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************| 00000AC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 EF |**************..| 00000AD0: 12 CE 09 8F 20 2A 20 20 20 20 20 20 20 4E 59 45 |.... * NYE| 00000AE0: 20 44 41 54 41 20 20 20 20 20 20 20 20 20 2A 00 | DATA *.| 00000AF0: 10 13 D8 09 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... **********| 00000B00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000B10: 00 22 13 8C 0A 99 22 93 11 11 11 11 11 11 11 11 |."....".........| 00000B20: 11 22 00 50 13 96 0A 85 22 20 20 20 20 20 44 55 |.".P...." DU| 00000B30: 20 56 49 4C 20 54 49 4C 46 30 4A 45 20 4E 59 45 | VIL TILF0JE NYE| 00000B40: 20 44 41 54 41 20 20 4A 9D 9D 9D 22 3B 53 56 24 | DATA J...";SV$| 00000B50: 00 63 13 AA 0A 8B 20 53 56 24 B3 B1 22 4A 22 20 |.c.... SV$.."J" | 00000B60: A7 20 8A 00 85 13 BE 0A 8D 20 32 30 30 30 3A 8F |. ....... 2000:.| 00000B70: 20 2A 2A 2A 20 49 4E 49 54 49 41 4C 49 5A 49 4E | *** INITIALIZIN| 00000B80: 47 20 2A 2A 2A 00 9C 13 C3 0A 8F 20 2A 2A 2A 2A |G ***...... ****| 00000B90: 2A 20 52 45 41 44 20 2A 2A 2A 2A 2A 00 B8 13 C8 |* READ *****....| 00000BA0: 0A 9F 32 2C 38 2C 32 2C 22 30 3A 54 4C 46 2C 53 |..2,8,2,"0:TLF,S| 00000BB0: 45 51 2C 52 45 41 44 22 00 C5 13 D2 0A 9F 31 35 |EQ,READ"......15| 00000BC0: 2C 38 2C 31 35 00 E4 13 DC 0A 8D 20 34 30 30 3A |,8,15...... 400:| 00000BD0: 8F 20 2A 2A 2A 20 44 49 53 4B 20 45 52 52 4F 52 |. *** DISK ERROR| 00000BE0: 20 2A 2A 2A 00 F3 13 E6 0A 81 20 49 B2 31 20 A4 | ***...... I.1 .| 00000BF0: 20 31 30 00 FB 13 EB 0A 57 B2 49 00 21 14 F0 0A | 10.....W.I.!...| 00000C00: 84 32 2C 41 24 28 49 29 2C 42 24 28 49 29 2C 42 |.2,A$(I),B$(I),B| 00000C10: 59 24 28 49 29 2C 43 24 28 49 29 2C 4B 24 28 49 |Y$(I),C$(I),K$(I| 00000C20: 29 00 3C 14 FA 0A 8B 20 53 54 20 AF 20 36 34 20 |).<.... ST . 64 | 00000C30: A7 20 A0 20 32 3A 89 20 32 39 30 30 00 42 14 04 |. . 2:. 2900.B..| 00000C40: 0B 82 00 4A 14 54 0B A0 31 35 00 64 14 72 0B 8F |...J.T..15.d.r..| 00000C50: 20 2A 2A 2A 2A 2A 20 53 43 52 41 54 43 48 20 2A | ***** SCRATCH *| 00000C60: 2A 2A 2A 2A 00 79 14 86 0B 9F 31 2C 38 2C 31 35 |****.y....1,8,15| 00000C70: 2C 22 53 30 3A 54 4C 46 22 00 80 14 90 0B A0 31 |,"S0:TLF"......1| 00000C80: 00 98 14 B8 0B 8F 20 2A 2A 2A 2A 2A 20 57 52 49 |...... ***** WRI| 00000C90: 54 45 20 2A 2A 2A 2A 2A 00 BA 14 C2 0B 8D 20 32 |TE *****...... 2| 00000CA0: 30 30 30 3A 8F 20 2A 2A 2A 20 49 4E 49 54 49 41 |000:. *** INITIA| 00000CB0: 4C 49 5A 49 4E 47 20 2A 2A 2A 00 D7 14 CC 0B 9F |LIZING ***......| 00000CC0: 32 2C 38 2C 32 2C 22 30 3A 54 4C 46 2C 53 45 51 |2,8,2,"0:TLF,SEQ| 00000CD0: 2C 57 52 49 54 45 22 00 E4 14 D6 0B 9F 31 35 2C |,WRITE"......15,| 00000CE0: 38 2C 31 35 00 03 15 E0 0B 8D 20 34 30 30 3A 8F |8,15...... 400:.| 00000CF0: 20 2A 2A 2A 20 44 49 53 4B 20 45 52 52 4F 52 20 | *** DISK ERROR | 00000D00: 2A 2A 2A 00 11 15 EA 0B 43 52 24 B2 C7 28 31 33 |***.....CR$..(13| 00000D10: 29 00 1F 15 F4 0B 81 20 49 B2 31 20 A4 20 57 00 |)...... I.1 . W.| 00000D20: 5A 15 AC 0D 98 32 2C 41 24 28 49 29 3B 43 52 24 |Z....2,A$(I);CR$| 00000D30: 3B 42 24 28 49 29 3B 43 52 24 3B 42 59 24 28 49 |;B$(I);CR$;BY$(I| 00000D40: 29 3B 43 52 24 3B 43 24 28 49 29 3B 43 52 24 3B |);CR$;C$(I);CR$;| 00000D50: 4B 24 28 49 29 3B 43 52 24 3B 00 79 15 B6 0D 8D |K$(I);CR$;.y....| 00000D60: 20 34 30 30 3A 8F 20 2A 2A 2A 20 44 49 53 4B 20 | 400:. *** DISK | 00000D70: 45 52 52 4F 52 20 2A 2A 2A 00 7F 15 DE 0D 82 00 |ERROR ***.......| 00000D80: A3 15 10 0E 8F 20 2A 2A 2A 2A 2A 20 4E 59 45 20 |..... ***** NYE | 00000D90: 44 41 54 41 20 54 49 4C 46 30 4A 45 53 20 2A 2A |DATA TILF0JES **| 00000DA0: 2A 2A 2A 00 AE 15 A0 0F 99 22 93 11 11 22 00 BD |***......"..."..| 00000DB0: 15 AA 0F 81 20 49 B2 57 20 A4 20 36 30 00 E0 15 |.... I.W . 60...| 00000DC0: B4 0F 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..."------------| 00000DD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"| 00000DE0: 00 F9 15 BE 0F 85 22 4E 41 56 4E 3A 20 20 20 20 |......"NAVN: | 00000DF0: 20 20 22 3B 41 24 28 49 29 00 10 16 C8 0F 8B 20 | ";A$(I)...... | 00000E00: 41 24 28 49 29 B2 22 53 22 20 A7 20 34 31 31 30 |A$(I)."S" . 4110| 00000E10: 00 29 16 D2 0F 85 22 41 44 52 3A 20 20 20 20 20 |.)...."ADR: | 00000E20: 20 20 22 3B 42 24 28 49 29 00 43 16 DC 0F 85 22 | ";B$(I).C...."| 00000E30: 50 4F 53 54 4E 52 2E 2F 42 59 3A 22 3B 42 59 24 |POSTNR./BY:";BY$| 00000E40: 28 49 29 00 5C 16 E6 0F 85 22 54 4C 46 2E 4E 52 |(I).\...."TLF.NR| 00000E50: 20 20 20 20 20 22 3B 43 24 28 49 29 00 75 16 EB | ";C$(I).u..| 00000E60: 0F 85 22 4B 4F 4D 4D 45 4E 54 41 52 20 20 22 3B |.."KOMMENTAR ";| 00000E70: 4B 24 28 49 29 00 B0 16 F0 0F 98 32 2C 41 24 28 |K$(I)......2,A$(| 00000E80: 49 29 3B 43 52 24 3B 42 24 28 49 29 3B 43 52 24 |I);CR$;B$(I);CR$| 00000E90: 3B 42 59 24 28 49 29 3B 43 52 24 3B 43 24 28 49 |;BY$(I);CR$;C$(I| 00000EA0: 29 3B 43 52 24 3B 4B 24 28 49 29 3B 43 52 24 3B |);CR$;K$(I);CR$;| 00000EB0: 00 D3 16 F5 0F 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D |......"---------| 00000EC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000ED0: 2D 2D 22 00 F2 16 FA 0F 8D 20 34 30 30 3A 8F 20 |--"...... 400:. | 00000EE0: 2A 2A 2A 20 44 49 53 4B 20 45 52 52 4F 52 20 2A |*** DISK ERROR *| 00000EF0: 2A 2A 00 F8 16 04 10 82 00 00 17 0E 10 A0 20 32 |**............ 2| 00000F00: 00 08 17 18 10 A0 20 31 00 11 17 22 10 A0 20 31 |...... 1...".. 1| 00000F10: 35 00 17 17 2C 10 8A 00 00 00 |5...,..... |
....... 53280,11:. KANT (GRAA).?.... 532
81,11:. BAGGRUND (GRAA).B.... 646,12: .
CURSOR (LYS GRAA)...... 650,128: . REPE
TER TAST...... A$(60)......"."......"...
. VAELG KOMMANDO".G...."...".
....." 1 READ"......"
2 WRITE".!. .."
3 DELETE".B.".." 4 NYE DAT
A"._.%.." S STOP".U.(.. F$
:. F$."" . 40...-.. F$."S" . 1: 2: 15:.
...2.F.E(F$)...<.. F.1 . F.4 . 40.L.Z..
F . 190,100,900,2500..._.. *************
*********...`.. * WRITE *.#
.A.. **********************.,.D..".".N.E
.. 2000:. *** INITIALIZING ***.K.N..2,8,
2,"0:TLF,SEQ,WRITE".X.R..15,8,15...S.. 4
00:. *** DISK ERROR ***...X.CR$.G(13)...
Z.."."...}.. I.1 . 60....."------------
---------------"......"NAVN: ";A$(I
)...... A$(I)."S" . 170.(...."ADR:
";B$(I).B...."POSTNR./BY:";BY$(I).[....
"TLF.NR ";C$(I).T...."KOMMENTAR ";K
$(I)... ..2,A$(I);CR$;B$(I);CR$;BY$(I);C
R$;C$(I);CR$;K$(I);CR$;.R...."----------
-----------------"...... 400:. *** DISK
ERROR ***........... 2..... 1..... 15
.......2.... *********************.N....
* READ *.J.... ***********
**********.S...."."...C.. 2000:. *** INI
TIALIZING ***...H..2,8,2,"0:TLF,SEQ,READ
"...I..15,8,15...J.. 400:. *** DISK ERRO
R ***...M.. I.1 . 60...R..2,A$(I),B$(I),
BY$(I),C$(I),K$(I).,.... ST . 64 . 2:.
227.2.....M.... ********************.H.
... * UDSKRIFT *...... *********
***********......"."...... U.1 . 60.....
."."......"SIDE:"U"....".M.... A$(1).""
. 500...... A$(U)."" . 228......"NAVN:
";A$(U)......"ADR: ";B$(U)....
.."POSTNR./BY:";BY$(U).G...."TLF.NR:
";C$(U).`...."KOMMENTAR ";K$(U)......".
. << SPACE >>"......
***** GET RUTINE *****...... AN$:. AN$."
" . 260.Q.... AN$." " . ....... AN$.."S"
. 260..... 1: 15:............. ********
****************.7.... * ERROR ROUTIN
E *.V.... ************************.K
.B..15,EN,EM$,ET,ES...L.."DISK ERROR"EN;
EM$;ET;ES...Q.. EN.63 . 490............
************************...... * FEJ
LMELDING *...... ******************
******.&...."....... DISK ER
ROR:.".M...." FILEN EKSISTERER ALLE
REDE".`.... J.1 . 4000:..F.......... ---
---------------------------......"......
...".A...." FILEN EKSISTERER IKKE!
".T.&.. T.1 . 3000:..Z.0........ *******
*****************...... * DELETE
*.7.... ************************.
I...."..........".T...." DU VIL SL
ETTE FILEN J...";S$...... S$.."J" . 10.
.....1,8,15,"S0:TLF"..... 1.E.... 2000:.
*** INITIALIZING ***.K.....Q..........
**************************...... * INI
TIALIZE ROUTINE *.4.... **************
************.\.P.."....... PL
EASE WAIT..".|.Z.." INITIALIZ
ING"......1,8,15,"I"...... T.1 . 2000:..
.... 1.......N.D.. ********************
******...N.. * NYE DATA *.
..X.. **************************."....".
.........".P...." DU VIL TILF0JE NYE
DATA J...";SV$.C.... SV$.."J" . ......
. 2000:. *** INITIALIZING ***...C.. ****
* READ *****...H..2,8,2,"0:TLF,SEQ,READ"
.E.R..15,8,15...... 400:. *** DISK ERROR
***...... I.1 . 10.....W.I.!....2,A$(I)
,B$(I),BY$(I),C$(I),K$(I).<.... ST . 64
. 2:. 2900.B.....J.T. 15.D.R.. ***** S
CRATCH *****.Y....1,8,15,"S0:TLF"..... 1
...... ***** WRITE *****...B.. 2000:. **
* INITIALIZING ***.W.L..2,8,2,"0:TLF,SEQ
,WRITE"...V..15,8,15...... 400:. *** DIS
K ERROR ***.....CR$.G(13)...... I.1 . W.
Z....2,A$(I);CR$;B$(I);CR$;BY$(I);CR$;C$
(I);CR$;K$(I);CR$;.Y.... 400:. *** DISK
ERROR ***........... ***** NYE DATA TIL
F0JES *****... .."..."...... I.W . 60...
..."---------------------------"......"N
AVN: ";A$(I)...H.. A$(I)."S" . 4110
.).R.."ADR: ";B$(I).C...."POSTNR./
BY:";BY$(I).\...."TLF.NR ";C$(I).U..
.."KOMMENTAR ";K$(I)......2,A$(I);CR$;B
$(I);CR$;BY$(I);CR$;C$(I);CR$;K$(I);CR$;
.S...."---------------------------".....
. 400:. *** DISK ERROR ***........... 2
..... 1...". 15...,.....
> CLICK IMAGE PREVIEW FOR FULL MODAL