!
FILE INFORMATION
FILENAME(S): !
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-11-30 15:51:31
APPEARS ON: 1 disk(s)
FILE HASH
12869e8e15ced15f61089017ec8df385eda0e5218f4843f0c33629d3cff53f4b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOUIS | ! | PRG | Belgium | 28 | 6 | 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: 38 2E 31 35 20 46 4F 52 20 43 4F 4D 4D 4F 44 4F |8.15 FOR COMMODO| 00000020: 52 45 20 36 34 00 4B 08 01 00 8F 20 28 43 29 31 |RE 64.K.... (C)1| 00000030: 39 38 34 20 4A 41 41 50 20 48 55 59 53 4D 41 4E |984 JAAP HUYSMAN| 00000040: 20 5A 4F 45 54 45 52 4D 45 45 52 00 6B 08 02 00 | ZOETERMEER.k...| 00000050: 97 37 38 38 2C 35 32 3A 99 22 93 22 3A 8B 49 A7 |.788,52:.".":.I.| 00000060: 97 37 38 38 2C 34 39 3A 9B AB 31 00 B9 08 03 00 |.788,49:..1.....| 00000070: 9C 3A 4C 24 B2 22 97 1D 1D 1D 5F C0 1D 20 20 20 |.:L$."...._.. | 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 20 20 20 20 91 22 | ."| 000000A0: 3A 43 24 B2 22 18 5F 2D 2B 8C 21 22 3A 56 24 B2 |:C$."._-+.!":V$.| 000000B0: 22 20 12 9E 38 2E 31 35 22 00 F1 08 04 00 53 24 |" ..8.15".....S$| 000000C0: B2 22 9F 20 12 5F 20 3D 20 49 4E 44 45 58 92 20 |.". ._ = INDEX. | 000000D0: 12 21 20 3D 20 55 50 44 41 54 45 92 20 12 2B 20 |.! = UPDATE. .+ | 000000E0: 3D 20 4E 45 58 54 92 20 12 2D 20 3D 20 42 41 43 |= NEXT. .- = BAC| 000000F0: 4B 00 1D 09 05 00 52 24 B2 22 12 92 22 3A 4E B2 |K.....R$."..":N.| 00000100: 31 35 3A 45 24 B2 22 13 11 11 11 11 11 11 11 11 |15:E$.".........| 00000110: 11 11 11 11 11 11 11 11 11 11 11 11 11 00 61 09 |..............a.| 00000120: 06 00 47 24 B2 22 20 95 C0 C0 C0 C0 C0 C0 C0 C0 |..G$." .........| 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 C0 C0 C0 C0 22 3A |..............":| 00000150: 9F 32 2C 38 2C 31 35 3A A0 32 3A 8B 53 54 A7 35 |.2,8,15:.2:.ST.5| 00000160: 30 00 A2 09 07 00 4F 24 B2 C7 28 33 34 29 3A 56 |0.....O$..(34):V| 00000170: B2 35 33 32 38 30 3A 97 56 2C 30 3A 97 56 AA 31 |.53280:.V,0:.V.1| 00000180: 2C 30 3A 3A 58 24 B2 22 50 4C 45 41 53 45 20 57 |,0::X$."PLEASE W| 00000190: 41 49 54 22 3A 8D 35 35 3A 9F 32 2C 38 2C 4E 2C |AIT":.55:.2,8,N,| 000001A0: 22 49 00 E0 09 08 00 8D 34 35 3A 86 4E 24 28 31 |"I......45:.N$(1| 000001B0: 34 34 29 2C 4E 25 28 31 34 34 29 3A 99 22 13 22 |44),N%(144):."."| 000001C0: C7 28 31 34 32 29 C7 28 38 29 3A 50 24 B2 22 90 |.(142).(8):P$.".| 000001D0: 20 20 20 22 3A 48 24 B2 22 1D 1D 1D 1D 1D 1D 22 | ":H$."......"| 000001E0: 00 0E 0A 09 00 8D 33 30 3A 8D 35 33 3A 9F 31 2C |......30:.53:.1,| 000001F0: 38 2C 38 2C 22 44 49 52 2E 54 58 54 2C 55 2C 52 |8,8,"DIR.TXT,U,R| 00000200: 22 3A 8D 34 35 3A 8B 41 B2 36 32 A7 31 39 00 3F |":.45:.A.62.19.?| 00000210: 0A 0A 00 84 31 2C 51 24 2C 51 3A 46 24 B2 C9 28 |....1,Q$,Q:F$..(| 00000220: 50 24 AA C4 28 B5 28 51 AD 34 29 29 AA 22 20 4B |P$..(.(Q.4))." K| 00000230: 42 59 54 45 53 20 46 52 45 45 22 2C 31 36 29 00 |BYTES FREE",16).| 00000240: 78 0A 0B 00 84 31 2C 4E 24 28 49 29 2C 4E 25 28 |x....1,N$(I),N%(| 00000250: 49 29 3A 50 B2 50 AB 28 4E 25 28 49 29 B1 30 29 |I):P.P.(N%(I).0)| 00000260: 3A 8B 4E 24 28 49 29 B3 B1 22 45 4E 44 22 A7 49 |:.N$(I).."END".I| 00000270: B2 49 AA 31 3A 89 31 31 00 B2 0A 0C 00 A0 31 3A |.I.1:.11......1:| 00000280: A0 32 3A 4E 24 28 49 29 B2 22 22 3A 4E 25 28 49 |.2:N$(I)."":N%(I| 00000290: 29 B2 30 3A 50 24 B2 C9 28 50 24 AA C4 28 50 AB |).0:P$..(P$..(P.| 000002A0: 31 29 2C 33 29 3A 50 25 B2 28 49 AB 31 29 AD 4E |1),3):P%.(I.1).N| 000002B0: AA 31 00 EB 0A 0D 00 8D 35 36 3A 58 B2 31 3A 58 |.1......56:X.1:X| 000002C0: 24 B2 22 4D 41 4B 45 20 43 48 4F 49 53 45 22 3A |$."MAKE CHOISE":| 000002D0: 8D 35 32 3A 81 49 B2 31 A4 36 3A 8B CA 28 43 24 |.52:.I.1.6:..(C$| 000002E0: 2C 49 2C 31 29 B3 B1 41 24 A7 82 00 18 0B 0E 00 |,I,1)..A$.......| 000002F0: 54 B2 30 3A 91 49 89 32 2C 33 2C 31 36 2C 31 37 |T.0:.I.2,3,16,17| 00000300: 2C 31 38 2C 31 39 3A 8B 41 24 B3 22 41 22 B0 41 |,18,19:.A$."A".A| 00000310: 24 B1 22 4F 22 A7 31 33 00 2F 0B 0F 00 49 B2 C6 |$."O".13./...I..| 00000320: 28 41 24 29 AB 36 35 AA 4B AC 4E 3A 89 32 34 00 |(A$).65.K.N:.24.| 00000330: 4C 0B 10 00 91 B6 28 4B B2 30 29 89 31 33 3A 4B |L.....(K.0).13:K| 00000340: B2 4B AB 31 3A 58 B2 30 3A 89 31 33 00 74 0B 11 |.K.1:X.0:.13.t..| 00000350: 00 91 B6 28 4E 24 28 28 4B AA 31 29 AC 4E 29 B2 |...(N$((K.1).N).| 00000360: 22 22 29 89 31 33 3A 4B B2 4B AA 31 3A 58 B2 30 |"").13:K.K.1:X.0| 00000370: 3A 89 31 33 00 B2 0B 12 00 58 24 B2 22 53 41 56 |:.13.....X$."SAV| 00000380: 45 20 56 22 AA 56 24 3A 8D 35 35 3A 9F 31 2C 38 |E V".V$:.55:.1,8| 00000390: 2C 31 35 2C 22 53 30 3A 21 22 3A A0 31 3A 94 22 |,15,"S0:!":.1:."| 000003A0: 21 22 2C 38 3A 41 24 B2 22 22 3A 58 B2 31 3A 89 |!",8:A$."":X.1:.| 000003B0: 31 32 00 EB 0B 13 00 58 24 B2 22 55 50 44 41 54 |12.....X$."UPDAT| 000003C0: 45 20 44 49 52 20 22 3A 8D 35 35 3A A0 32 3A 9F |E DIR ":.55:.2:.| 000003D0: 32 2C 38 2C 31 35 2C 22 49 30 22 3A 98 32 2C 22 |2,8,15,"I0":.2,"| 000003E0: 53 30 3A 44 49 52 2E 54 58 54 22 00 18 0C 14 00 |S0:DIR.TXT".....| 000003F0: A0 31 3A 9F 31 2C 38 2C 30 2C 22 24 30 22 3A 8D |.1:.1,8,0,"$0":.| 00000400: 34 35 3A A1 23 31 2C 41 24 2C 41 24 3A 5A 24 B2 |45:.#1,A$,A$:Z$.| 00000410: C7 28 30 29 3A 49 B2 30 00 4D 0C 15 00 4E 24 28 |.(0):I.0.M...N$(| 00000420: 49 29 B2 22 22 3A 4E 25 28 49 29 B2 30 3A 46 B2 |I)."":N%(I).0:F.| 00000430: 31 3A 8D 33 33 3A 8B 4E 24 28 49 29 B3 B1 22 45 |1:.33:.N$(I).."E| 00000440: 4E 44 22 A7 49 B2 49 AA 46 3A 89 32 31 00 74 0C |ND".I.I.F:.21.t.| 00000450: 16 00 A0 31 3A 91 B6 28 49 B1 31 29 8D 32 37 3A |...1:..(I.1).27:| 00000460: 58 24 B2 22 53 41 56 49 4E 47 20 44 49 52 20 22 |X$."SAVING DIR "| 00000470: 3A 8D 35 35 00 AB 0C 17 00 9F 31 2C 38 2C 38 2C |:.55......1,8,8,| 00000480: 22 44 49 52 2E 54 58 54 2C 55 2C 57 22 3A 81 4A |"DIR.TXT,U,W":.J| 00000490: B2 30 A4 49 3A 98 31 2C 4E 24 28 4A 29 3A 98 31 |.0.I:.1,N$(J):.1| 000004A0: 2C 4E 25 28 4A 29 3A 82 3A 89 33 00 E0 0C 18 00 |,N%(J):.:.3.....| 000004B0: 58 B2 49 3A 91 B6 28 4E 25 28 58 29 B3 B2 30 29 |X.I:..(N%(X)..0)| 000004C0: 89 31 33 3A 8D 36 30 3A 91 B6 28 41 24 B3 B1 22 |.13:.60:..(A$.."| 000004D0: 59 22 AF 41 24 B3 B1 C7 28 31 33 29 29 89 31 33 |Y".A$...(13)).13| 000004E0: 00 1A 0D 19 00 99 22 90 93 3F 43 48 52 24 28 33 |......"..?CHR$(3| 000004F0: 30 29 3A 4C CF 22 4F 24 4E 24 28 49 29 4F 24 22 |0):L."O$N$(I)O$"| 00000500: 2C 38 22 3A 99 22 11 11 11 11 11 50 CF 31 39 38 |,8":.".....P.198| 00000510: 2C 30 3A 52 D5 22 C7 28 39 29 00 4A 0D 1A 00 97 |,0:R.".(9).J....| 00000520: 31 39 38 2C 39 3A 97 36 33 31 2C 31 39 3A 81 49 |198,9:.631,19:.I| 00000530: B2 30 A4 37 3A 97 36 33 32 AA 49 2C 31 33 3A 82 |.0.7:.632.I,13:.| 00000540: 3A 97 37 38 38 2C 34 39 3A 80 00 88 0D 1B 00 58 |:.788,49:......X| 00000550: 24 B2 22 53 4F 52 54 49 4E 47 20 44 49 52 22 3A |$."SORTING DIR":| 00000560: 8D 35 35 3A 81 4B B2 31 A4 49 AB 32 3A 81 4C B2 |.55:.K.1.I.2:.L.| 00000570: 4B AA 31 A4 49 AB 31 3A 8B 4E 24 28 4B 29 B3 B2 |K.1.I.1:.N$(K)..| 00000580: 4E 24 28 4C 29 A7 32 39 00 C6 0D 1C 00 4E 24 B2 |N$(L).29.....N$.| 00000590: 4E 24 28 4B 29 3A 4E 24 28 4B 29 B2 4E 24 28 4C |N$(K):N$(K).N$(L| 000005A0: 29 3A 4E 24 28 4C 29 B2 4E 24 3A 4E B2 4E 25 28 |):N$(L).N$:N.N%(| 000005B0: 4B 29 3A 4E 25 28 4B 29 B2 4E 25 28 4C 29 3A 4E |K):N%(K).N%(L):N| 000005C0: 25 28 4C 29 B2 4E 00 D1 0D 1D 00 82 4C 2C 4B 3A |%(L).N......L,K:| 000005D0: 8E 00 0F 0E 1E 00 4A 24 B2 22 90 22 3A 9F 33 2C |......J$.".":.3,| 000005E0: 38 2C 33 2C 22 23 22 3A 98 32 2C 22 55 41 3A 22 |8,3,"#":.2,"UA:"| 000005F0: 3B 33 3B 30 3B 31 38 3B 30 3A 98 32 2C 22 42 2D |;3;0;18;0:.2,"B-| 00000600: 50 22 3B 33 3B 31 37 36 3A A1 23 33 2C 49 24 00 |P";3;176:.#3,I$.| 00000610: 41 0E 1F 00 91 B6 28 49 24 B2 22 22 29 89 33 32 |A.....(I$."").32| 00000620: 3A 84 33 2C 4E 24 2C 44 24 2C 44 24 2C 44 24 2C |:.3,N$,D$,D$,D$,| 00000630: 44 24 3A 4E 24 B2 49 24 AA 4E 24 3A 4A 24 B2 22 |D$:N$.I$.N$:J$."| 00000640: 95 00 4A 0E 20 00 A0 33 3A 8E 00 88 0E 21 00 A1 |..J. ..3:....!..| 00000650: 23 31 2C 41 24 2C 41 24 2C 42 24 2C 43 24 2C 41 |#1,A$,A$,B$,C$,A| 00000660: 24 3A 4E 25 28 49 29 B2 C6 28 42 24 AA 5A 24 29 |$:N%(I)..(B$.Z$)| 00000670: AA 32 35 36 AC C6 28 43 24 AA 5A 24 29 3A 8B 41 |.256..(C$.Z$):.A| 00000680: 24 B2 22 42 22 A7 34 34 00 9E 0E 22 00 A1 23 31 |$."B".44..."..#1| 00000690: 2C 41 24 3A 8B 41 24 B3 B1 4F 24 A7 33 34 00 C4 |,A$:.A$..O$.34..| 000006A0: 0E 23 00 A1 23 31 2C 41 24 3A 8B 41 24 B3 B1 4F |.#..#1,A$:.A$..O| 000006B0: 24 A7 4E 24 28 49 29 B2 4E 24 28 49 29 AA 41 24 |$.N$(I).N$(I).A$| 000006C0: 3A 89 33 35 00 F9 0E 24 00 A1 23 31 2C 41 24 3A |:.35...$..#1,A$:| 000006D0: 91 B6 28 41 24 B2 22 20 22 29 89 33 36 3A 8B 41 |..(A$." ").36:.A| 000006E0: 24 B2 22 53 22 B0 41 24 B2 22 52 22 A7 4E 25 28 |$."S".A$."R".N%(| 000006F0: 49 29 B2 AB 4E 25 28 49 29 00 0D 0F 25 00 8B 41 |I)..N%(I)...%..A| 00000700: 24 B2 22 55 22 AF 49 B1 30 A7 46 B2 30 00 23 0F |$."U".I.0.F.0.#.| 00000710: 26 00 A1 23 31 2C 41 24 3A 8B 41 24 B3 B1 22 22 |&..#1,A$:.A$..""| 00000720: A7 33 38 00 29 0F 27 00 8C 00 45 0F 28 00 87 43 |.38.).'...E.(..C| 00000730: 4E 24 3A 8B 43 4E 24 B2 4E 24 28 49 29 A7 49 B2 |N$:.CN$.N$(I).I.| 00000740: 49 AB 31 3A 8E 00 58 0F 29 00 8B 43 4E 24 B3 B1 |I.1:..X.)..CN$..| 00000750: 22 45 4E 44 22 A7 34 30 00 5E 0F 2A 00 8E 00 64 |"END".40.^.*...d| 00000760: 0F 2B 00 8E 00 82 0F 2C 00 4E 25 28 30 29 B2 4E |.+.....,.N%(0).N| 00000770: 25 28 49 29 3A 4E 24 28 49 29 B2 22 45 4E 44 22 |%(I):N$(I)."END"| 00000780: 3A 8E 00 9B 0F 2D 00 84 32 2C 41 2C 42 24 3A 8B |:....-..2,A,B$:.| 00000790: 41 B3 32 30 B0 41 B2 36 32 A7 8E 00 CC 0F 2E 00 |A.20.A.62.......| 000007A0: 8B 41 B2 32 31 B0 41 B2 37 34 A7 99 22 93 1F 22 |.A.21.A.74..".."| 000007B0: 42 24 3A 99 22 11 49 4E 53 45 52 54 20 44 49 53 |B$:.".INSERT DIS| 000007C0: 4B 20 41 4E 44 20 22 3B 3A 89 34 38 00 ED 0F 2F |K AND ";:.48.../| 000007D0: 00 99 22 93 90 22 42 24 22 11 22 3A 97 35 33 32 |..".."B$".":.532| 000007E0: 38 30 2C 32 3A 97 35 33 32 38 31 2C 32 00 0A 10 |80,2:.53281,2...| 000007F0: 30 00 99 22 48 49 54 20 41 20 4B 45 59 20 54 4F |0.."HIT A KEY TO| 00000800: 20 43 4F 4E 54 49 4E 55 45 22 00 22 10 31 00 A1 | CONTINUE".".1..| 00000810: 41 24 3A 91 B6 28 41 24 B2 22 22 29 89 34 39 3A |A$:..(A$."").49:| 00000820: 89 32 00 51 10 32 00 97 35 33 32 38 30 2C 32 3A |.2.Q.2..53280,2:| 00000830: 97 35 33 32 38 31 2C 32 3A 99 22 93 05 46 4C 4F |.53281,2:."..FLO| 00000840: 50 50 59 20 4E 4F 54 20 4F 4E 20 4C 49 4E 45 11 |PPY NOT ON LINE.| 00000850: 22 00 6C 10 33 00 99 22 53 57 49 54 43 48 20 4F |".l.3.."SWITCH O| 00000860: 4E 20 41 4E 44 20 22 3B 3A 89 34 38 00 8E 10 34 |N AND ";:.48...4| 00000870: 00 54 B2 54 AA 2E 31 3A 8D 35 35 3A A1 41 24 3A |.T.T..1:.55:.A$:| 00000880: 91 B6 28 41 24 B2 22 22 29 89 35 32 3A 8E 00 BB |..(A$."").52:...| 00000890: 10 35 00 99 22 13 22 47 24 3A 99 56 24 3A 99 47 |.5.."."G$:.V$:.G| 000008A0: 24 C9 28 45 24 2C 31 35 29 3A 99 47 24 3A 99 53 |$.(E$,15):.G$:.S| 000008B0: 24 3A 99 47 24 3A 99 3A 99 47 24 00 F2 10 36 00 |$:.G$:.:.G$...6.| 000008C0: 99 4C 24 3A 99 4A 24 22 20 50 52 4F 50 45 52 54 |.L$:.J$" PROPERT| 000008D0: 59 20 4F 46 3A 22 4E 24 3A 99 4C 24 3A 99 4A 24 |Y OF:"N$:.L$:.J$| 000008E0: 22 20 46 4F 52 4D 41 54 20 44 41 54 45 3A 22 44 |" FORMAT DATE:"D| 000008F0: 24 3B 00 1C 11 37 00 54 B2 54 AC B6 28 54 B3 32 |$;...7.T.T..(T.2| 00000900: 29 3A 99 45 24 22 20 9E 22 CA 28 52 24 2C 28 31 |):.E$" .".(R$,(1| 00000910: AF 54 29 AA 31 2C 31 29 58 24 3A 8E 00 53 11 38 |.T).1,1)X$:..S.8| 00000920: 00 91 B6 28 58 B3 B1 30 29 89 35 35 3A 99 22 9E |...(X..0).55:.".| 00000930: 13 11 20 12 44 49 53 4B 3A 20 22 51 24 46 24 3A |.. .DISK: "Q$F$:| 00000940: 99 3A 81 49 B2 4B AC 4E A4 4B AC 4E AA 31 34 3A |.:.I.K.N.K.N.14:| 00000950: 99 4C 24 00 8A 11 39 00 8D 36 32 3A 99 22 20 22 |.L$...9..62:." "| 00000960: C7 28 49 AB 4B AC 4E AA 36 35 29 3B 3A 91 B6 28 |.(I.K.N.65);:..(| 00000970: 4E 24 28 49 29 B2 22 22 29 89 35 39 3A 99 22 20 |N$(I)."").59:." | 00000980: 5F C0 20 22 4E 24 28 49 29 3B 00 B9 11 3A 00 99 |_. "N$(I);...:..| 00000990: A3 32 33 29 54 24 C9 28 48 24 AA C4 28 B6 28 4E |.23)T$.(H$..(.(N| 000009A0: 25 28 49 29 29 AC 32 35 34 29 2C 36 29 A3 33 34 |%(I)).254),6).34| 000009B0: 29 22 42 59 54 45 53 22 3B 00 F0 11 3B 00 99 3A |)"BYTES";...;..:| 000009C0: 82 3A 99 45 24 48 24 48 24 22 9A 1D 1D 50 41 47 |.:.E$H$H$"...PAG| 000009D0: 45 22 4B AA 31 22 4F 46 22 50 25 22 81 20 12 22 |E"K.1"OF"P%". ."| 000009E0: 50 24 22 20 50 52 4F 47 52 41 4D 53 13 22 3A 8E |P$" PROGRAMS.":.| 000009F0: 00 26 12 3C 00 4D 24 B2 22 12 9E 22 3A 8D 36 31 |.&.<.M$."..":.61| 00000A00: 3A 58 24 B2 22 53 55 52 45 3F 20 28 59 2F 4E 29 |:X$."SURE? (Y/N)| 00000A10: 22 3A 8D 35 32 3A 4D 24 B2 22 1E 22 3A 8D 36 31 |":.52:M$.".":.61| 00000A20: 3A 58 B2 31 3A 8E 00 57 12 3D 00 99 C8 28 45 24 |:X.1:..W.=...(E$| 00000A30: 2C 58 AA 34 AB 4B AC 4E 29 48 24 4D 24 4E 24 28 |,X.4.K.N)H$M$N$(| 00000A40: 58 29 CA 28 4C 24 2C 38 2C 31 36 AB C3 28 4E 24 |X).(L$,8,16..(N$| 00000A50: 28 49 29 29 29 3A 8E 00 87 12 3E 00 54 24 B2 22 |(I))):....>.T$."| 00000A60: 9A 50 52 4F 47 81 22 3A 99 22 1E 22 3B 3A 8B 4E |.PROG.":.".";:.N| 00000A70: 25 28 49 29 B3 B2 30 A7 54 24 B2 22 44 41 54 41 |%(I)..0.T$."DATA| 00000A80: 22 3A 99 22 97 22 3B 00 8D 12 3F 00 8E 00 98 12 |":.".";...?.....| 00000A90: 40 00 83 22 45 4E 44 22 00 00 00 20 2C 1E 18 AA |@.."END"... ,...| 00000AA0: FE 40 3A 38 FF 00 FF 00 FF 00 FF 00 02 C7 FF |.@:8........... |
..%.... VERSION 8.15 FOR COMMODORE 64.K. ... (C)1984 JAAP HUYSMAN ZOETERMEER.K... .788,52:.".":.I..788,49:..1......:L$.".. .._.. ." :C$."._-+.!":V$." ..8.15".....S$.". ._ = INDEX. .! = UPDATE. .+ = NEXT. .- = BAC K.....R$."..":N.15:E$."................. ......A...G$." ......................... ..............":.2,8,15: 2:.ST.50.....O$ .G(34):V.53280:.V,0:.V.1,0::X$."PLEASE W AIT":.55:.2,8,N,"I......45:.N$(144),N%(1 44):."."G(142)G(8):P$.". ":H$."......" ......30:.53:.1,8,8,"DIR.TXT,U,R":.45:.A .62.19.?....1,Q$,Q:F$.I(P$.D(.(Q.4))." K BYTES FREE",16).X....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......56:X.1:X$."MAKE CHOISE": .52:.I.1.6:.J(C$,I,1)..A$.......T.0:.I.2 ,3,16,17,18,19:.A$."A".A$."O".13./...I.F (A$).65.K.N:.24.L.....(K.0).13:K.K.1:X.0 :.13.T.....(N$((K.1).N)."").13:K.K.1:X.0 :.13.....X$."SAVE V".V$:.55:.1,8,15,"S0: !": 1:."!",8:A$."":X.1:.12.....X$."UPDAT E DIR ":.55: 2:.2,8,15,"I0":.2,"S0:DIR.T XT"..... 1:.1,8,0,"$0":.45:.#1,A$,A$:Z$. G(0):I.0.M...N$(I)."":N%(I).0:F.1:.33:.N $(I).."END".I.I.F:.21.T... 1:..(I.1).27: X$."SAVING DIR ":.55......1,8,8,"DIR.TXT ,U,W":.J.0.I:.1,N$(J):.1,N%(J):.:.3..... X.I:..(N%(X)..0).13:.60:..(A$.."Y".A$..G (13)).13......"..?CHR$(30):LO"O$N$(I)O$" ,8":.".....PO198,0:RU"G(9).J....198,9:.6 31,19:.I.0.7:.632.I,13:.:.788,49:......X $."SORTING DIR":.55:.K.1.I.2:.L.K.1.I.1: .N$(K)..N$(L).29.F...N$.N$(K):N$(K).N$(L ):N$(L).N$:N.N%(K):N%(K).N%(L):N%(L).N.Q ....L,K:......J$.".":.3,8,3,"#":.2,"UA:" ;3;0;18;0:.2,"B-P";3;176:.#3,I$.A.....(I $."").32:.3,N$,D$,D$,D$,D$:N$.I$.N$:J$." ..J. . 3:....!..#1,A$,A$,B$,C$,A$:N%(I). F(B$.Z$).256.F(C$.Z$):.A$."B".44..."..#1 ,A$:.A$..O$.34.D.#..#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.).'...E.(..C N$:.CN$.N$(I).I.I.1:..X.)..CN$.."END".40 .^.*...D.+.....,.N%(0).N%(I):N$(I)."END" :....-..2,A,B$:.A.20.A.62...L....A.21.A. 74..".."B$:.".INSERT DISK AND ";:.48.../ ..".."B$".":.53280,2:.53281,2...0.."HIT A KEY TO CONTINUE".".1..A$:..(A$."").49: .2.Q.2..53280,2:.53281,2:."..FLOPPY NOT ON LINE.".L.3.."SWITCH ON AND ";:.48...4 .T.T..1:.55:.A$:..(A$."").52:....5.."."G $:.V$:.G$I(E$,15):.G$:.S$:.G$:.:.G$...6. .L$:.J$" PROPERTY OF:"N$:.L$:.J$" FORMAT DATE:"D$;...7.T.T..(T.2):.E$" ."J(R$,(1 .T).1,1)X$:..S.8...(X..0).55:."... .DISK : "Q$F$:.:.I.K.N.K.N.14:.L$...9..62:." " G(I.K.N.65);:..(N$(I)."").59:." _. "N$(I );...:...23)T$I(H$.D(.(N%(I)).254),6).34 )"BYTES";...;..:.:.E$H$H$"...PAGE"K.1"OF "P%". ."P$" PROGRAMS.":..&.<.M$."..":.61 :X$."SURE? (Y/N)":.52:M$.".":.61:X.1:..W .=..H(E$,X.4.K.N)H$M$N$(X)J(L$,8,16.C(N$ (I))):....>.T$.".PROG.":.".";:.N%(I)..0. T$."DATA":.".";...?.....@.."END"... ,... .@:8.........G.
> CLICK IMAGE PREVIEW FOR FULL MODAL