!
FILE INFORMATION
FILENAME(S): !
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-11-30 21:09:44
APPEARS ON: 2 disk(s)
FILE HASH
c44fabb133024592bbe76dce077c774f97e2e77c28cf02b1fe8844d7c8784989
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C3U0080 | ! | PRG | DuncanTwain | 31 | 10 | DOWNLOAD FILE |
| BOEKHOUDING | ! | PRG | DuncanTwain | 31 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 00 00 8F 20 56 45 52 53 49 4F 4E 20 |..%.... VERSION | 00000010: 37 2E 31 35 20 46 4F 52 20 43 4F 4D 4D 4F 44 4F |7.15 FOR COMMODO| 00000020: 52 45 20 36 34 00 47 08 01 00 8F 20 28 43 29 31 |RE 64.G.... (C)1| 00000030: 39 38 33 20 4A 4F 48 4E 20 48 55 4C 53 20 45 49 |983 JOHN HULS EI| 00000040: 4E 44 48 4F 56 45 4E 00 67 08 02 00 97 37 38 38 |NDHOVEN.g....788| 00000050: 2C 35 32 3A 99 22 93 22 3A 8B 49 A7 97 37 38 38 |,52:.".":.I..788| 00000060: 2C 34 39 3A 9B AB 31 00 B5 08 03 00 9C 3A 4C 24 |,49:..1......:L$| 00000070: B2 22 97 1D 1D 1D 5F C0 1D 20 20 20 20 20 20 20 |."...._.. | 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000090: 20 20 20 20 20 20 20 20 20 20 91 22 3A 43 24 B2 | .":C$.| 000000A0: 22 18 5F 2D 2B 8C 21 22 3A 56 24 B2 22 20 12 9E |"._-+.!":V$." ..| 000000B0: 37 2E 31 35 22 00 ED 08 04 00 53 24 B2 22 9F 20 |7.15".....S$.". | 000000C0: 12 5F 20 3D 20 49 4E 44 45 58 92 20 12 21 20 3D |._ = INDEX. .! =| 000000D0: 20 55 50 44 41 54 45 92 20 12 2B 20 3D 20 4E 45 | UPDATE. .+ = NE| 000000E0: 58 54 92 20 12 2D 20 3D 20 42 41 43 4B 00 19 09 |XT. .- = BACK...| 000000F0: 05 00 52 24 B2 22 12 92 22 3A 4E B2 31 35 3A 45 |..R$."..":N.15:E| 00000100: 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |$.".............| 00000110: 11 11 11 11 11 11 11 11 11 00 5D 09 06 00 47 24 |..........]...G$| 00000120: B2 22 20 95 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |." .............| 00000130: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000140: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 3A 9F 32 2C 38 |..........":.2,8| 00000150: 2C 31 35 3A A0 32 3A 8B 53 54 A7 34 36 00 9E 09 |,15:.2:.ST.46...| 00000160: 07 00 4F 24 B2 C7 28 33 34 29 3A 56 B2 35 33 32 |..O$..(34):V.532| 00000170: 38 30 3A 97 56 2C 30 3A 97 56 AA 31 2C 30 3A 3A |80:.V,0:.V.1,0::| 00000180: 58 24 B2 22 50 4C 45 41 53 45 20 57 41 49 54 22 |X$."PLEASE WAIT"| 00000190: 3A 8D 35 31 3A 9F 32 2C 38 2C 4E 2C 22 49 00 DC |:.51:.2,8,N,"I..| 000001A0: 09 08 00 8D 34 31 3A 86 4E 24 28 31 34 34 29 2C |....41:.N$(144),| 000001B0: 4E 25 28 31 34 34 29 3A 99 22 13 22 C7 28 31 34 |N%(144):.".".(14| 000001C0: 32 29 C7 28 38 29 3A 50 24 B2 22 90 20 20 20 22 |2).(8):P$.". "| 000001D0: 3A 48 24 B2 22 1D 1D 1D 1D 1D 1D 22 00 0A 0A 09 |:H$."......"....| 000001E0: 00 8D 33 30 3A 8D 34 39 3A 9F 31 2C 38 2C 38 2C |..30:.49:.1,8,8,| 000001F0: 22 44 49 52 2E 54 58 54 2C 55 2C 52 22 3A 8D 34 |"DIR.TXT,U,R":.4| 00000200: 31 3A 8B 41 B2 36 32 A7 31 39 00 3B 0A 0A 00 84 |1:.A.62.19.;....| 00000210: 31 2C 51 24 2C 51 3A 46 24 B2 C9 28 50 24 AA C4 |1,Q$,Q:F$..(P$..| 00000220: 28 B5 28 51 AD 34 29 29 AA 22 20 4B 42 59 54 45 |(.(Q.4))." KBYTE| 00000230: 53 20 46 52 45 45 22 2C 31 36 29 00 74 0A 0B 00 |S FREE",16).t...| 00000240: 84 31 2C 4E 24 28 49 29 2C 4E 25 28 49 29 3A 50 |.1,N$(I),N%(I):P| 00000250: B2 50 AB 28 4E 25 28 49 29 B1 30 29 3A 8B 4E 24 |.P.(N%(I).0):.N$| 00000260: 28 49 29 B3 B1 22 45 4E 44 22 A7 49 B2 49 AA 31 |(I).."END".I.I.1| 00000270: 3A 89 31 31 00 AE 0A 0C 00 A0 31 3A A0 32 3A 4E |:.11......1:.2:N| 00000280: 24 28 49 29 B2 22 22 3A 4E 25 28 49 29 B2 30 3A |$(I)."":N%(I).0:| 00000290: 50 24 B2 C9 28 50 24 AA C4 28 50 AB 31 29 2C 33 |P$..(P$..(P.1),3| 000002A0: 29 3A 50 25 B2 28 49 AB 31 29 AD 4E AA 31 00 E7 |):P%.(I.1).N.1..| 000002B0: 0A 0D 00 8D 35 32 3A 58 B2 31 3A 58 24 B2 22 4D |....52:X.1:X$."M| 000002C0: 41 4B 45 20 43 48 4F 49 53 45 22 3A 8D 34 38 3A |AKE CHOISE":.48:| 000002D0: 81 49 B2 31 A4 36 3A 8B CA 28 43 24 2C 49 2C 31 |.I.1.6:..(C$,I,1| 000002E0: 29 B3 B1 41 24 A7 82 00 14 0B 0E 00 54 B2 30 3A |)..A$.......T.0:| 000002F0: 91 49 89 32 2C 33 2C 31 36 2C 31 37 2C 31 38 2C |.I.2,3,16,17,18,| 00000300: 31 39 3A 8B 41 24 B3 22 41 22 B0 41 24 B1 22 4F |19:.A$."A".A$."O| 00000310: 22 A7 31 33 00 2B 0B 0F 00 49 B2 C6 28 41 24 29 |".13.+...I..(A$)| 00000320: AB 36 35 AA 4B AC 4E 3A 89 32 34 00 48 0B 10 00 |.65.K.N:.24.H...| 00000330: 91 B6 28 4B B2 30 29 89 31 33 3A 4B B2 4B AB 31 |..(K.0).13:K.K.1| 00000340: 3A 58 B2 30 3A 89 31 33 00 70 0B 11 00 91 B6 28 |:X.0:.13.p.....(| 00000350: 4E 24 28 28 4B AA 31 29 AC 4E 29 B2 22 22 29 89 |N$((K.1).N)."").| 00000360: 31 33 3A 4B B2 4B AA 31 3A 58 B2 30 3A 89 31 33 |13:K.K.1:X.0:.13| 00000370: 00 AE 0B 12 00 58 24 B2 22 53 41 56 45 20 56 22 |.....X$."SAVE V"| 00000380: AA 56 24 3A 8D 35 31 3A 9F 31 2C 38 2C 31 35 2C |.V$:.51:.1,8,15,| 00000390: 22 53 30 3A 21 22 3A A0 31 3A 94 22 21 22 2C 38 |"S0:!":.1:."!",8| 000003A0: 3A 41 24 B2 22 22 3A 58 B2 31 3A 89 31 32 00 E7 |:A$."":X.1:.12..| 000003B0: 0B 13 00 58 24 B2 22 55 50 44 41 54 45 20 44 49 |...X$."UPDATE DI| 000003C0: 52 20 22 3A 8D 35 31 3A A0 32 3A 9F 32 2C 38 2C |R ":.51:.2:.2,8,| 000003D0: 31 35 2C 22 49 30 22 3A 98 32 2C 22 53 30 3A 44 |15,"I0":.2,"S0:D| 000003E0: 49 52 2E 54 58 54 22 00 14 0C 14 00 A0 31 3A 9F |IR.TXT"......1:.| 000003F0: 31 2C 38 2C 30 2C 22 24 30 22 3A 8D 34 31 3A A1 |1,8,0,"$0":.41:.| 00000400: 23 31 2C 41 24 2C 41 24 3A 5A 24 B2 C7 28 30 29 |#1,A$,A$:Z$..(0)| 00000410: 3A 49 B2 30 00 49 0C 15 00 4E 24 28 49 29 B2 22 |:I.0.I...N$(I)."| 00000420: 22 3A 4E 25 28 49 29 B2 30 3A 46 B2 31 3A 8D 33 |":N%(I).0:F.1:.3| 00000430: 33 3A 8B 4E 24 28 49 29 B3 B1 22 45 4E 44 22 A7 |3:.N$(I).."END".| 00000440: 49 B2 49 AA 46 3A 89 32 31 00 70 0C 16 00 A0 31 |I.I.F:.21.p....1| 00000450: 3A 91 B6 28 49 B1 31 29 8D 32 37 3A 58 24 B2 22 |:..(I.1).27:X$."| 00000460: 53 41 56 49 4E 47 20 44 49 52 20 22 3A 8D 35 31 |SAVING DIR ":.51| 00000470: 00 A7 0C 17 00 9F 31 2C 38 2C 38 2C 22 44 49 52 |......1,8,8,"DIR| 00000480: 2E 54 58 54 2C 55 2C 57 22 3A 81 4A B2 30 A4 49 |.TXT,U,W":.J.0.I| 00000490: 3A 98 31 2C 4E 24 28 4A 29 3A 98 31 2C 4E 25 28 |:.1,N$(J):.1,N%(| 000004A0: 4A 29 3A 82 3A 89 33 00 DC 0C 18 00 58 B2 49 3A |J):.:.3.....X.I:| 000004B0: 91 B6 28 4E 25 28 58 29 B3 B2 30 29 89 31 33 3A |..(N%(X)..0).13:| 000004C0: 8D 35 36 3A 91 B6 28 41 24 B3 B1 22 59 22 AF 41 |.56:..(A$.."Y".A| 000004D0: 24 B3 B1 C7 28 31 33 29 29 89 31 33 00 16 0D 19 |$...(13)).13....| 000004E0: 00 99 22 90 93 3F 43 48 52 24 28 33 30 29 3A 4C |.."..?CHR$(30):L| 000004F0: CF 22 4F 24 4E 24 28 49 29 4F 24 22 2C 38 22 3A |."O$N$(I)O$",8":| 00000500: 99 22 11 11 11 11 11 50 CF 31 39 38 2C 30 3A 52 |.".....P.198,0:R| 00000510: D5 22 C7 28 39 29 00 46 0D 1A 00 97 31 39 38 2C |.".(9).F....198,| 00000520: 39 3A 97 36 33 31 2C 31 39 3A 81 49 B2 30 A4 37 |9:.631,19:.I.0.7| 00000530: 3A 97 36 33 32 AA 49 2C 31 33 3A 82 3A 97 37 38 |:.632.I,13:.:.78| 00000540: 38 2C 34 39 3A 80 00 84 0D 1B 00 58 24 B2 22 53 |8,49:......X$."S| 00000550: 4F 52 54 49 4E 47 20 44 49 52 22 3A 8D 35 31 3A |ORTING DIR":.51:| 00000560: 81 4B B2 31 A4 49 AB 32 3A 81 4C B2 4B AA 31 A4 |.K.1.I.2:.L.K.1.| 00000570: 49 AB 31 3A 8B 4E 24 28 4B 29 B3 B2 4E 24 28 4C |I.1:.N$(K)..N$(L| 00000580: 29 A7 32 39 00 C2 0D 1C 00 4E 24 B2 4E 24 28 4B |).29.....N$.N$(K| 00000590: 29 3A 4E 24 28 4B 29 B2 4E 24 28 4C 29 3A 4E 24 |):N$(K).N$(L):N$| 000005A0: 28 4C 29 B2 4E 24 3A 4E B2 4E 25 28 4B 29 3A 4E |(L).N$:N.N%(K):N| 000005B0: 25 28 4B 29 B2 4E 25 28 4C 29 3A 4E 25 28 4C 29 |%(K).N%(L):N%(L)| 000005C0: B2 4E 00 CD 0D 1D 00 82 4C 2C 4B 3A 8E 00 0B 0E |.N......L,K:....| 000005D0: 1E 00 4A 24 B2 22 90 22 3A 9F 33 2C 38 2C 33 2C |..J$.".":.3,8,3,| 000005E0: 22 23 22 3A 98 32 2C 22 55 41 3A 22 3B 33 3B 30 |"#":.2,"UA:";3;0| 000005F0: 3B 31 38 3B 30 3A 98 32 2C 22 42 2D 50 22 3B 33 |;18;0:.2,"B-P";3| 00000600: 3B 31 37 36 3A A1 23 33 2C 49 24 00 3D 0E 1F 00 |;176:.#3,I$.=...| 00000610: 91 B6 28 49 24 B2 22 22 29 89 33 32 3A 84 33 2C |..(I$."").32:.3,| 00000620: 4E 24 2C 44 24 2C 44 24 2C 44 24 2C 44 24 3A 4E |N$,D$,D$,D$,D$:N| 00000630: 24 B2 49 24 AA 4E 24 3A 4A 24 B2 22 95 00 46 0E |$.I$.N$:J$."..F.| 00000640: 20 00 A0 33 3A 8E 00 84 0E 21 00 A1 23 31 2C 41 | ..3:....!..#1,A| 00000650: 24 2C 41 24 2C 42 24 2C 43 24 2C 41 24 3A 4E 25 |$,A$,B$,C$,A$:N%| 00000660: 28 49 29 B2 C6 28 42 24 AA 5A 24 29 AA 32 35 36 |(I)..(B$.Z$).256| 00000670: AC C6 28 43 24 AA 5A 24 29 3A 8B 41 24 B2 22 42 |..(C$.Z$):.A$."B| 00000680: 22 A7 34 30 00 9A 0E 22 00 A1 23 31 2C 41 24 3A |".40..."..#1,A$:| 00000690: 8B 41 24 B3 B1 4F 24 A7 33 34 00 C0 0E 23 00 A1 |.A$..O$.34...#..| 000006A0: 23 31 2C 41 24 3A 8B 41 24 B3 B1 4F 24 A7 4E 24 |#1,A$:.A$..O$.N$| 000006B0: 28 49 29 B2 4E 24 28 49 29 AA 41 24 3A 89 33 35 |(I).N$(I).A$:.35| 000006C0: 00 F5 0E 24 00 A1 23 31 2C 41 24 3A 91 B6 28 41 |...$..#1,A$:..(A| 000006D0: 24 B2 22 20 22 29 89 33 36 3A 8B 41 24 B2 22 53 |$." ").36:.A$."S| 000006E0: 22 B0 41 24 B2 22 52 22 A7 4E 25 28 49 29 B2 AB |".A$."R".N%(I)..| 000006F0: 4E 25 28 49 29 00 09 0F 25 00 8B 41 24 B2 22 55 |N%(I)...%..A$."U| 00000700: 22 AF 49 B1 30 A7 46 B2 30 00 1F 0F 26 00 A1 23 |".I.0.F.0...&..#| 00000710: 31 2C 41 24 3A 8B 41 24 B3 B1 22 22 A7 33 38 00 |1,A$:.A$.."".38.| 00000720: 25 0F 27 00 8E 00 43 0F 28 00 4E 25 28 30 29 B2 |%.'...C.(.N%(0).| 00000730: 4E 25 28 49 29 3A 4E 24 28 49 29 B2 22 45 4E 44 |N%(I):N$(I)."END| 00000740: 22 3A 8E 00 5C 0F 29 00 84 32 2C 41 2C 42 24 3A |":..\.)..2,A,B$:| 00000750: 8B 41 B3 32 30 B0 41 B2 36 32 A7 8E 00 8D 0F 2A |.A.20.A.62.....*| 00000760: 00 8B 41 B2 32 31 B0 41 B2 37 34 A7 99 22 93 1F |..A.21.A.74.."..| 00000770: 22 42 24 3A 99 22 11 49 4E 53 45 52 54 20 44 49 |"B$:.".INSERT DI| 00000780: 53 4B 20 41 4E 44 20 22 3B 3A 89 34 34 00 AE 0F |SK AND ";:.44...| 00000790: 2B 00 99 22 93 90 22 42 24 22 11 22 3A 97 35 33 |+..".."B$".":.53| 000007A0: 32 38 30 2C 32 3A 97 35 33 32 38 31 2C 32 00 CB |280,2:.53281,2..| 000007B0: 0F 2C 00 99 22 48 49 54 20 41 20 4B 45 59 20 54 |.,.."HIT A KEY T| 000007C0: 4F 20 43 4F 4E 54 49 4E 55 45 22 00 E3 0F 2D 00 |O CONTINUE"...-.| 000007D0: A1 41 24 3A 91 B6 28 41 24 B2 22 22 29 89 34 35 |.A$:..(A$."").45| 000007E0: 3A 89 32 00 12 10 2E 00 97 35 33 32 38 30 2C 32 |:.2......53280,2| 000007F0: 3A 97 35 33 32 38 31 2C 32 3A 99 22 93 05 46 4C |:.53281,2:."..FL| 00000800: 4F 50 50 59 20 4E 4F 54 20 4F 4E 20 4C 49 4E 45 |OPPY NOT ON LINE| 00000810: 11 22 00 2D 10 2F 00 99 22 53 57 49 54 43 48 20 |.".-./.."SWITCH | 00000820: 4F 4E 20 41 4E 44 20 22 3B 3A 89 34 34 00 4F 10 |ON AND ";:.44.O.| 00000830: 30 00 54 B2 54 AA 2E 31 3A 8D 35 31 3A A1 41 24 |0.T.T..1:.51:.A$| 00000840: 3A 91 B6 28 41 24 B2 22 22 29 89 34 38 3A 8E 00 |:..(A$."").48:..| 00000850: 7C 10 31 00 99 22 13 22 47 24 3A 99 56 24 3A 99 ||.1.."."G$:.V$:.| 00000860: 47 24 C9 28 45 24 2C 31 35 29 3A 99 47 24 3A 99 |G$.(E$,15):.G$:.| 00000870: 53 24 3A 99 47 24 3A 99 3A 99 47 24 00 B3 10 32 |S$:.G$:.:.G$...2| 00000880: 00 99 4C 24 3A 99 4A 24 22 20 50 52 4F 50 45 52 |..L$:.J$" PROPER| 00000890: 54 59 20 4F 46 3A 22 4E 24 3A 99 4C 24 3A 99 4A |TY OF:"N$:.L$:.J| 000008A0: 24 22 20 46 4F 52 4D 41 54 20 44 41 54 45 3A 22 |$" FORMAT DATE:"| 000008B0: 44 24 3B 00 DD 10 33 00 54 B2 54 AC B6 28 54 B3 |D$;...3.T.T..(T.| 000008C0: 32 29 3A 99 45 24 22 20 9E 22 CA 28 52 24 2C 28 |2):.E$" .".(R$,(| 000008D0: 31 AF 54 29 AA 31 2C 31 29 58 24 3A 8E 00 14 11 |1.T).1,1)X$:....| 000008E0: 34 00 91 B6 28 58 B3 B1 30 29 89 35 31 3A 99 22 |4...(X..0).51:."| 000008F0: 9E 13 11 20 12 44 49 53 4B 3A 20 22 51 24 46 24 |... .DISK: "Q$F$| 00000900: 3A 99 3A 81 49 B2 4B AC 4E A4 4B AC 4E AA 31 34 |:.:.I.K.N.K.N.14| 00000910: 3A 99 4C 24 00 4B 11 35 00 8D 35 38 3A 99 22 20 |:.L$.K.5..58:." | 00000920: 22 C7 28 49 AB 4B AC 4E AA 36 35 29 3B 3A 91 B6 |".(I.K.N.65);:..| 00000930: 28 4E 24 28 49 29 B2 22 22 29 89 35 35 3A 99 22 |(N$(I)."").55:."| 00000940: 20 5F C0 20 22 4E 24 28 49 29 3B 00 7A 11 36 00 | _. "N$(I);.z.6.| 00000950: 99 A3 32 33 29 54 24 C9 28 48 24 AA C4 28 B6 28 |..23)T$.(H$..(.(| 00000960: 4E 25 28 49 29 29 AC 32 35 34 29 2C 36 29 A3 33 |N%(I)).254),6).3| 00000970: 34 29 22 42 59 54 45 53 22 3B 00 B1 11 37 00 99 |4)"BYTES";...7..| 00000980: 3A 82 3A 99 45 24 48 24 48 24 22 9A 1D 1D 50 41 |:.:.E$H$H$"...PA| 00000990: 47 45 22 4B AA 31 22 4F 46 22 50 25 22 81 20 12 |GE"K.1"OF"P%". .| 000009A0: 22 50 24 22 20 50 52 4F 47 52 41 4D 53 13 22 3A |"P$" PROGRAMS.":| 000009B0: 8E 00 E7 11 38 00 4D 24 B2 22 12 9E 22 3A 8D 35 |....8.M$."..":.5| 000009C0: 37 3A 58 24 B2 22 53 55 52 45 3F 20 28 59 2F 4E |7:X$."SURE? (Y/N| 000009D0: 29 22 3A 8D 34 38 3A 4D 24 B2 22 1E 22 3A 8D 35 |)":.48:M$.".":.5| 000009E0: 37 3A 58 B2 31 3A 8E 00 18 12 39 00 99 C8 28 45 |7:X.1:....9...(E| 000009F0: 24 2C 58 AA 34 AB 4B AC 4E 29 48 24 4D 24 4E 24 |$,X.4.K.N)H$M$N$| 00000A00: 28 58 29 CA 28 4C 24 2C 38 2C 31 36 AB C3 28 4E |(X).(L$,8,16..(N| 00000A10: 24 28 49 29 29 29 3A 8E 00 48 12 3A 00 54 24 B2 |$(I))):..H.:.T$.| 00000A20: 22 9A 50 52 4F 47 81 22 3A 99 22 1E 22 3B 3A 8B |".PROG.":.".";:.| 00000A30: 4E 25 28 49 29 B3 B2 30 A7 54 24 B2 22 44 41 54 |N%(I)..0.T$."DAT| 00000A40: 41 22 3A 99 22 97 22 3B 00 4E 12 3B 00 8E 00 00 |A":.".";.N.;....| 00000A50: 00 |. |
..%.... VERSION 7.15 FOR COMMODORE 64.G. ... (C)1983 JOHN HULS EINDHOVEN.G....788 ,52:.".":.I..788,49:..1......:L$."...._. . .":C$. "._-+.!":V$." ..7.15".....S$.". ._ = IND EX. .! = UPDATE. .+ = NEXT. .- = BACK... ..R$."..":N.15:E$."..................... ..]...G$." ............................. ..........":.2,8,15: 2:.ST.46.....O$.G(3 4):V.53280:.V,0:.V.1,0::X$."PLEASE WAIT" :.51:.2,8,N,"I......41:.N$(144),N%(144): ."."G(142)G(8):P$.". ":H$."......".... ..30:.49:.1,8,8,"DIR.TXT,U,R":.41:.A.62. 19.;....1,Q$,Q:F$.I(P$.D(.(Q.4))." KBYTE S FREE",16).T....1,N$(I),N%(I):P.P.(N%(I ).0):.N$(I).."END".I.I.1:.11..... 1: 2:N $(I)."":N%(I).0:P$.I(P$.D(P.1),3):P%.(I. 1).N.1......52:X.1:X$."MAKE CHOISE":.48: .I.1.6:.J(C$,I,1)..A$.......T.0:.I.2,3,1 6,17,18,19:.A$."A".A$."O".13.+...I.F(A$) .65.K.N:.24.H.....(K.0).13:K.K.1:X.0:.13 .P.....(N$((K.1).N)."").13:K.K.1:X.0:.13 .....X$."SAVE V".V$:.51:.1,8,15,"S0:!": 1:."!",8:A$."":X.1:.12.....X$."UPDATE DI R ":.51: 2:.2,8,15,"I0":.2,"S0:DIR.TXT". .... 1:.1,8,0,"$0":.41:.#1,A$,A$:Z$.G(0) :I.0.I...N$(I)."":N%(I).0:F.1:.33:.N$(I) .."END".I.I.F:.21.P... 1:..(I.1).27:X$." SAVING DIR ":.51......1,8,8,"DIR.TXT,U,W ":.J.0.I:.1,N$(J):.1,N%(J):.:.3.....X.I: ..(N%(X)..0).13:.56:..(A$.."Y".A$..G(13) ).13......"..?CHR$(30):LO"O$N$(I)O$",8": .".....PO198,0:RU"G(9).F....198,9:.631,1 9:.I.0.7:.632.I,13:.:.788,49:......X$."S ORTING DIR":.51:.K.1.I.2:.L.K.1.I.1:.N$( K)..N$(L).29.B...N$.N$(K):N$(K).N$(L):N$ (L).N$:N.N%(K):N%(K).N%(L):N%(L).N.M.... L,K:......J$.".":.3,8,3,"#":.2,"UA:";3;0 ;18;0:.2,"B-P";3;176:.#3,I$.=.....(I$."" ).32:.3,N$,D$,D$,D$,D$:N$.I$.N$:J$."..F. . 3:....!..#1,A$,A$,B$,C$,A$:N%(I).F(B$ .Z$).256.F(C$.Z$):.A$."B".40..."..#1,A$: .A$..O$.34...#..#1,A$:.A$..O$.N$(I).N$(I ).A$:.35...$..#1,A$:..(A$." ").36:.A$."S ".A$."R".N%(I)..N%(I)...%..A$."U".I.0.F. 0...&..#1,A$:.A$.."".38.%.'...C.(.N%(0). N%(I):N$(I)."END":..\.)..2,A,B$:.A.20.A. 62.....*..A.21.A.74..".."B$:.".INSERT DI SK AND ";:.44...+..".."B$".":.53280,2:.5 3281,2.K.,.."HIT A KEY TO CONTINUE"...-. .A$:..(A$."").45:.2......53280,2:.53281, 2:."..FLOPPY NOT ON LINE.".-./.."SWITCH ON AND ";:.44.O.0.T.T..1:.51:.A$:..(A$." ").48:..|.1.."."G$:.V$:.G$I(E$,15):.G$:. S$:.G$:.:.G$...2..L$:.J$" PROPERTY OF:"N $:.L$:.J$" FORMAT DATE:"D$;...3.T.T..(T. 2):.E$" ."J(R$,(1.T).1,1)X$:....4...(X.. 0).51:."... .DISK: "Q$F$:.:.I.K.N.K.N.14 :.L$.K.5..58:." "G(I.K.N.65);:..(N$(I)." ").55:." _. "N$(I);.Z.6...23)T$I(H$.D(.( N%(I)).254),6).34)"BYTES";...7..:.:.E$H$ H$"...PAGE"K.1"OF"P%". ."P$" PROGRAMS.": ....8.M$."..":.57:X$."SURE? (Y/N)":.48:M $.".":.57:X.1:....9..H(E$,X.4.K.N)H$M$N$ (X)J(L$,8,16.C(N$(I))):..H.:.T$.".PROG." :.".";:.N%(I)..0.T$."DATA":.".";.N.;.... .
> CLICK IMAGE PREVIEW FOR FULL MODAL