FILECHOOSERV1.0
FILE INFORMATION
FILENAME(S): FILECHOOSERV1.0
FILE TYPE(S): PRG
FILE SIZE: 6.7K
FIRST SEEN: 2025-11-30 20:30:56
APPEARS ON: 1 disk(s)
FILE HASH
9551643710556dec98a0b32d647e9cec9999a8f10ff3493e3b365dc3c31f0158
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RAZ CAMELOT JULY | FILECHOOSERV1.0 | PRG | Curtcool, Nigel | 16 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 09 4A 7D 05 98 00 2D 02 2D 02 17 02 0C 16 09 FF |.J}...-.-.......| 00000010: 00 00 2D 02 4A 7D 15 03 04 86 EF 00 00 00 00 00 |..-.J}..........| 00000020: 00 00 00 00 00 00 00 00 AA 81 CD 00 E9 00 AA 81 |................| 00000030: 99 00 A9 00 B8 00 D0 01 EE 01 F9 01 03 80 03 80 |................| 00000040: 44 49 52 20 30 20 20 20 49 4F 4E 20 00 00 00 00 |DIR 0 ION ....| 00000050: 00 00 00 00 00 00 00 00 00 00 0B 2E 54 45 58 54 |............TEXT| 00000060: 20 22 20 22 9D 9D 20 20 20 20 03 5F 33 53 20 20 | " ".. ._3S | 00000070: 20 20 20 20 20 20 20 20 20 20 0B 2E 42 59 54 45 | ..BYTE| 00000080: 20 24 30 30 9D 9D 20 20 20 20 02 5F 14 20 20 20 | $00.. ._. | 00000090: 20 20 20 20 20 20 20 20 20 20 44 45 53 54 20 00 | DEST .| 000000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 000000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 000000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 000000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 000000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 000000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00000100: 02 03 46 49 4E 30 21 06 25 40 2B 00 01 95 4D 41 |..FIN0!.%@+...MA| 00000110: 58 20 32 35 36 20 46 49 4C 45 53 30 8D 80 2D 2D |X 256 FILES0..--| 00000120: 2D 2D 2D 2D 4D 55 53 54 20 42 45 20 54 48 45 20 |----MUST BE THE | 00000130: 4C 41 53 54 20 4F 4E 45 53 2D 2D 2D 2D 2D 2D 2D |LAST ONES-------| 00000140: 2D 2D 2D 2D 2D 03 2A 00 2A 00 2A 00 2A 00 2A 00 |-----.*.*.*.*.*.| 00000150: 2A 00 2A 00 2A 00 03 2A 00 2A 00 2A 00 2A 00 2A |*.*.*..*.*.*.*.*| 00000160: 00 2A 00 2A 00 2A 00 03 2A 00 2A 00 2A 00 2A 00 |.*.*.*..*.*.*.*.| 00000170: 2A 00 2A 00 2A 00 2A 00 03 2A 00 2A 00 2A 00 2A |*.*.*.*..*.*.*.*| 00000180: 00 2A 00 2A 00 2A 00 2A 00 30 23 03 2A 01 2A 02 |.*.*.*.*.0#.*.*.| 00000190: 2A 03 2A 04 2A 05 2A 06 03 28 35 28 36 28 37 28 |*.*.*.*..(5(6(7(| 000001A0: 38 28 39 03 28 30 28 31 28 32 28 33 28 34 89 49 |8(9.(0(1(2(3(4.I| 000001B0: 4E 54 4F 20 53 43 52 45 45 4E 2D 43 4F 44 45 2E |NTO SCREEN-CODE.| 000001C0: 30 59 89 55 53 45 44 20 46 4F 52 20 43 4F 4E 56 |0Y.USED FOR CONV| 000001D0: 45 52 54 49 4E 47 20 48 45 58 4E 55 4D 42 45 52 |ERTING HEXNUMBER| 000001E0: 02 03 24 30 30 30 56 02 15 4E 55 4D 42 45 52 20 |..$000V..NUMBER | 000001F0: 4F 46 20 50 52 47 20 46 49 4C 45 53 3A 20 03 28 |OF PRG FILES: .(| 00000200: FF 02 03 20 20 20 30 46 02 15 53 43 41 4E 4E 49 |... 0F..SCANNI| 00000210: 4E 47 20 44 49 52 2E 2E 2E 20 20 20 20 20 20 03 |NG DIR... .| 00000220: 28 FF 02 07 20 53 50 41 43 45 2E 30 74 02 14 49 |(... SPACE.0t..I| 00000230: 4E 53 45 54 20 44 49 53 43 20 41 4E 44 20 50 52 |NSET DISC AND PR| 00000240: 45 53 53 30 22 03 28 00 30 0E 03 28 00 30 0B 03 |ESS0".(.0..(.0..| 00000250: 22 28 41 2A 10 30 08 03 28 00 30 03 03 28 00 30 |"(A*.0..(.0..(.0| 00000260: 01 03 2A 10 30 42 04 28 00 30 04 04 28 00 30 4A |..*.0B.(.0..(.0J| 00000270: 03 2C 3F 99 53 4D 41 4C 4C 20 4C 45 54 54 45 52 |.,?.SMALL LETTER| 00000280: 53 2E 30 3B 03 28 00 30 30 03 28 00 30 2D 03 28 |S.0;.(.00.(.0-.(| 00000290: 00 30 29 03 28 00 30 25 03 28 00 03 28 24 28 30 |.0).(.0%.(..($(0| 000002A0: 97 46 4F 52 20 44 49 52 45 43 54 4F 52 59 2E 30 |.FOR DIRECTORY.0| 000002B0: 1B 30 4E 03 2A 00 30 4D 03 2A 00 92 20 4D 2A 4E |.0N.*.0M.*.. M*N| 000002C0: 30 4C 04 2A 00 30 54 03 28 00 30 53 03 28 00 30 |0L.*.0T.(.0S.(.0| 000002D0: 69 03 2A 02 30 90 03 28 00 94 4C 45 4E 2E 20 4F |i.*.0..(..LEN. O| 000002E0: 46 20 46 49 4C 45 4E 41 4D 45 03 2A 00 2A 00 2A |F FILENAME.*.*.*| 000002F0: 00 2A 00 2A 00 2A 00 2A 00 2A 00 03 2A 00 2A 00 |.*.*.*.*.*..*.*.| 00000300: 2A 00 2A 00 2A 00 2A 00 2A 00 2A 00 8B 53 54 4F |*.*.*.*.*.*..STO| 00000310: 52 45 44 20 48 45 52 45 2E 30 8F 8B 54 48 45 20 |RED HERE.0..THE | 00000320: 43 48 4F 53 45 4E 20 46 49 4C 45 4E 41 4D 45 20 |CHOSEN FILENAME | 00000330: 49 53 30 93 03 28 00 93 31 3D 45 4E 44 53 20 54 |IS0..(..1=ENDS T| 00000340: 48 45 20 52 4F 55 54 49 4E 45 2E 80 2D 2D 2D 2D |HE ROUTINE..----| 00000350: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000360: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000370: 2D 2D 2D 4C 38 14 95 43 4C 4F 53 45 20 46 49 4C |---L8..CLOSE FIL| 00000380: 45 2E A9 28 01 20 38 82 A9 28 08 50 38 89 95 46 |E..(. 8..(.P8..F| 00000390: 49 4E 49 53 48 3F 2C 28 90 20 38 83 94 50 52 49 |INISH?,(. 8..PRI| 000003A0: 4E 54 20 49 54 20 38 7F 94 47 45 54 20 42 59 54 |NT IT 8..GET BYT| 000003B0: 45 30 89 20 38 80 94 53 45 4E 44 2E A9 28 6F 94 |E0. 8..SEND..(o.| 000003C0: 53 45 43 2E 41 44 52 20 46 4F 52 20 46 49 4C 45 |SEC.ADR FOR FILE| 000003D0: 20 31 20 38 81 A9 28 08 20 38 13 94 4F 50 45 4E | 1 8..(. 8..OPEN| 000003E0: 20 46 49 4C 45 20 4E 4F 2E 31 20 38 86 A9 28 00 | FILE NO.1 8..(.| 000003F0: 94 4E 4F 20 46 49 4C 45 4E 41 4D 45 20 38 85 A0 |.NO FILENAME 8..| 00000400: 28 6F 94 A2 28 08 94 A9 28 01 94 46 49 4C 45 4E |(o..(...(..FILEN| 00000410: 55 4D 42 45 52 8D 28 90 A9 28 00 92 53 54 41 54 |UMBER.(..(..STAT| 00000420: 55 53 46 4C 41 47 3D 4F 4B 92 54 48 45 20 44 49 |USFLAG=OK.THE DI| 00000430: 53 43 2D 53 54 41 54 55 53 2E 30 7E 92 54 48 49 |SC-STATUS.0~.THI| 00000440: 53 20 52 4F 55 54 49 4E 45 20 50 52 49 4E 54 53 |S ROUTINE PRINTS| 00000450: 4C 29 44 E5 96 43 4C 45 41 52 53 43 52 45 45 4E |L)D..CLEARSCREEN| 00000460: 2E 8D 2B 86 02 96 43 4F 4C 4F 55 52 2E A9 28 07 |..+...COLOUR..(.| 00000470: 96 59 45 4C 4C 4F 57 20 43 48 41 52 2D 30 75 60 |.YELLOW CHAR-0u`| 00000480: D0 38 8C 96 4E 4F 2E C9 2A 3C 96 53 50 41 43 45 |.8..NO..*<.SPACE| 00000490: 3F AD 2A C5 20 38 67 96 53 43 41 4E 20 4B 45 59 |?.*. 8g.SCAN KEY| 000004A0: 42 4F 41 52 44 2E 30 8C 20 38 7E 96 50 52 49 4E |BOARD.0. 8~.PRIN| 000004B0: 54 20 44 49 53 43 2D 53 54 41 54 55 53 20 38 17 |T DISC-STATUS 8.| 000004C0: A9 2A 0D 94 50 52 49 4E 54 20 43 48 52 24 28 31 |.*..PRINT CHR$(1| 000004D0: 33 29 30 77 D0 38 76 E8 9D 29 00 04 29 2C 3F F0 |3)0w.8v..)..),?.| 000004E0: 38 77 C9 28 FF BD 38 74 98 50 52 49 4E 54 20 54 |8w.(..8t.PRINT T| 000004F0: 45 58 54 30 76 A2 28 00 20 38 75 95 43 4C 45 41 |EXT0v.(. 8u.CLEA| 00000500: 52 20 53 43 52 45 45 4E 30 73 60 99 29 00 04 BD |R SCREEN0s`.)...| 00000510: 38 59 AA 4A 98 48 49 2D 56 41 4C 55 45 4A 4A 4A |8Y.J.HI-VALUEJJJ| 00000520: 68 99 29 01 04 BD 38 59 AA 29 2C 0F 98 4C 4F 57 |h.)...8Y.),..LOW| 00000530: 20 56 41 4C 55 45 48 30 57 8C 50 4C 4F 54 20 48 | VALUEH0W.PLOT H| 00000540: 45 58 2D 56 41 4C 55 45 20 49 4E 54 4F 20 24 30 |EX-VALUE INTO $0| 00000550: 34 30 30 2C 59 60 8D 30 4C 40 2A 01 D0 38 50 CA |400,Y`.0L@*..8P.| 00000560: 30 52 6E 38 4C 6A 30 51 6D 38 4E 18 90 38 51 4E |0Rn8Lj0Qm8N..8QN| 00000570: 38 4D 30 50 A2 28 08 8D 38 4C A9 28 00 18 30 4F |8M0P.(..8L.(..0O| 00000580: 97 4D 2A 4E 20 49 4E 54 4F 20 52 45 53 55 4C 54 |.M*N INTO RESULT| 00000590: 2E 60 10 38 55 88 91 38 1F 49 2C 80 98 54 4F 47 |.`.8U..8.I,..TOG| 000005A0: 47 4C 45 20 52 45 56 45 52 53 45 2E B1 38 1F 30 |GLE REVERSE..8.0| 000005B0: 55 A0 28 0F 96 31 36 20 43 48 41 52 53 8D 30 1F |U.(..16 CHARS.0.| 000005C0: 40 2A 01 69 44 38 41 96 5A 50 31 AD 30 4C 40 2A |@*.iD8A.ZP1.0L@*| 000005D0: 01 96 4F 46 20 43 55 52 53 4F 52 20 49 4E 54 4F |..OF CURSOR INTO| 000005E0: 8D 38 1F 96 53 54 4F 52 45 20 53 43 52 45 45 4E |.8..STORE SCREEN| 000005F0: 2D 50 4F 53 69 45 38 41 18 AD 38 4C 20 38 4F 93 |-POSiE8A..8L 8O.| 00000600: 43 41 4C 43 20 50 4F 53 20 4F 46 20 43 52 53 52 |CALC POS OF CRSR| 00000610: 2E 8D 38 4D A9 2A 28 8D 38 4E AD 38 54 30 4B 60 |..8M.*(.8N.8T0K`| 00000620: 8D 38 0E A9 28 01 30 02 60 8D 38 03 68 D0 38 06 |.8..(.0.`.8.h.8.| 00000630: CE 38 03 18 8D 38 20 30 0D EE 30 20 40 2A 01 90 |.8...8 0..0 @*..| 00000640: 38 0D 6D 38 01 18 30 0C EE 30 20 40 2A 01 90 38 |8.m8..0..0 @*..8| 00000650: 0C 6D 38 0B AD 38 20 18 8D 38 1F 30 0A EE 30 1F |.m8..8 ..8.0..0.| 00000660: 40 2A 01 90 38 0A 6D 38 01 18 30 09 EE 30 1F 40 |@*..8.m8..0..0.@| 00000670: 2A 01 90 38 09 6D 38 08 AD 38 1F 18 D0 38 07 CC |*..8.m8..8...8..| 00000680: 38 01 C8 91 38 20 2D 38 4A 97 4D 41 53 4B 49 4E |8...8 -8J.MASKIN| 00000690: 47 2E B1 38 1F 30 07 A0 28 00 30 06 8D 30 20 40 |G..8.0..(.0..0 @| 000006A0: 2A 01 AD 30 42 40 2A 01 8D 38 20 AD 38 42 8D 30 |*..0B@*..8 .8B.0| 000006B0: 1F 40 2A 01 AD 30 04 40 2A 01 8D 38 1F AD 38 04 |.@*..0.@*..8..8.| 000006C0: 48 F0 38 02 AD 38 03 F0 38 02 AD 38 01 18 30 00 |H.8..8..8..8..0.| 000006D0: 93 42 4C 49 54 54 45 52 20 52 4F 55 54 49 4E 45 |.BLITTER ROUTINE| 000006E0: 60 30 48 4C 38 49 E8 9D 29 28 04 29 2C 3F 98 20 |`0HL8I..)(.),?. | 000006F0: 20 20 2D 2D 2D 2D 2D 2D BD 38 56 9D 29 00 04 29 | ------.8V.)..)| 00000700: 2C 3F 98 53 4D 41 4C 4C 20 4C 45 54 54 45 52 53 |,?.SMALL LETTERS| 00000710: 2E F0 38 48 98 59 45 53 2E C9 28 FF 98 4C 41 53 |..8H.YES..(..LAS| 00000720: 54 20 42 59 54 45 3F BD 38 46 98 52 45 41 44 20 |T BYTE?.8F.READ | 00000730: 54 45 58 54 30 49 A2 28 00 20 38 75 93 43 4C 45 |TEXT0I.(. 8u.CLE| 00000740: 41 52 53 43 52 45 45 4E 2E 30 47 95 46 49 4C 45 |ARSCREEN.0G.FILE| 00000750: 53 2E 4C 38 57 95 50 4C 4F 54 20 4E 55 4D 42 45 |S.L8W.PLOT NUMBE| 00000760: 52 20 4F 46 A0 2A 3E 93 24 30 34 30 30 2B 36 32 |R OF.*>.$0400+62| 00000770: AD 38 3B 93 46 49 4C 45 53 2E EE 38 3B 93 49 4E |.8;.FILES..8;.IN| 00000780: 43 52 45 41 53 45 20 4E 55 4D 42 45 52 20 4F 46 |CREASE NUMBER OF| 00000790: 8D 38 25 93 52 45 53 45 54 20 52 45 47 49 53 54 |.8%.RESET REGIST| 000007A0: 45 52 2E A9 28 00 93 42 55 46 46 45 52 20 42 59 |ER..(..BUFFER BY| 000007B0: 20 31 36 2E 8D 30 1F 40 2A 01 93 49 4E 43 52 45 | 16..0.@*..INCRE| 000007C0: 41 53 45 20 50 4F 49 4E 54 45 52 20 54 4F 69 28 |ASE POINTER TOi(| 000007D0: 00 AD 30 1F 40 2A 01 8D 38 1F 69 2A 10 18 AD 38 |..0.@*..8.i*...8| 000007E0: 1F 9D 38 8D 96 53 54 4F 52 45 20 46 49 4C 45 4C |..8..STORE FILEL| 000007F0: 45 4E AE 38 3B 98 30 35 A8 96 47 45 54 20 46 49 |EN.8;.05..GET FI| 00000800: 4C 45 4C 45 4E 68 D0 38 38 C0 2A 10 C8 91 38 1F |LELENh.88.*...8.| 00000810: 30 38 92 48 41 53 20 42 45 45 4E 20 55 53 45 44 |08.HAS BEEN USED| 00000820: 29 2E 92 28 49 4E 20 43 41 53 45 20 54 48 45 20 |)..(IN CASE THE | 00000830: 42 55 46 46 45 52 96 46 49 4C 45 4E 41 4D 45 2E |BUFFER.FILENAME.| 00000840: A9 28 20 96 43 4C 45 41 52 20 52 45 53 54 20 4F |.( .CLEAR REST O| 00000850: 46 48 96 53 41 56 45 20 46 49 4C 45 4C 45 4E 98 |FH.SAVE FILELEN.| 00000860: 30 37 4C 38 36 96 28 46 49 4C 45 4C 45 4E 3D 31 |07L86.(FILELEN=1| 00000870: 36 29 F0 38 35 C0 2A 10 96 31 36 20 43 48 41 52 |6).85.*..16 CHAR| 00000880: 53 20 3D 20 4D 41 58 2E C8 96 49 4E 54 4F 20 42 |S = MAX...INTO B| 00000890: 55 46 46 45 52 91 38 1F 96 53 54 4F 52 45 20 46 |UFFER.8..STORE F| 000008A0: 49 4C 45 4E 41 4D 45 F0 38 37 96 59 45 53 2E 3D |ILENAME.87.YES.=| 000008B0: 45 4E 44 20 4F 46 20 4E 41 4D 45 2E C9 2A 22 96 |END OF NAME..*".| 000008C0: 4C 41 53 54 20 27 22 27 3F BD 38 23 E8 30 36 D0 |LAST '"'?.8#.06.| 000008D0: 38 34 C9 2A 22 96 20 27 22 27 2E BD 38 23 96 46 |84.*". '"'..8#.F| 000008E0: 49 4E 44 20 54 48 45 20 46 49 52 53 54 E8 30 34 |IND THE FIRST.04| 000008F0: A2 28 FF A0 28 00 30 2B 60 EE 38 2D 30 2F 93 46 |.(..(.0+`.8-0/.F| 00000900: 49 52 53 54 20 4C 49 4E 45 20 3D 20 53 4B 49 50 |IRST LINE = SKIP| 00000910: 2E 60 F0 38 2B C9 2E 47 F0 38 2B C9 2E 52 F0 38 |.`.8+..G.8+..R.8| 00000920: 2B C9 2E 50 92 50 52 47 20 46 49 4C 45 53 20 4F |+..P.PRG FILES O| 00000930: 4E 4C 59 2E 95 54 45 4D 50 2E 20 42 55 46 46 45 |NLY..TEMP. BUFFE| 00000940: 52 BD 38 23 95 47 45 54 20 42 59 54 45 20 46 52 |R.8#.GET BYTE FR| 00000950: 4F 4D F0 38 2F 93 59 45 53 20 3D 20 4E 4F 20 46 |OM.8/.YES = NO F| 00000960: 49 4C 45 4E 41 4D 45 2E 93 41 4E 44 20 49 44 29 |ILENAME..AND ID)| 00000970: AD 38 2D 93 46 49 52 53 54 20 4C 49 4E 45 20 28 |.8-.FIRST LINE (| 00000980: 44 49 53 43 4E 41 4D 45 8D 38 25 93 52 45 53 45 |DISCNAME.8%.RESE| 00000990: 54 20 52 45 47 49 53 54 45 52 A9 28 00 CA CA CA |T REGISTER.(....| 000009A0: CA CA 8E 38 29 93 46 49 4C 45 4E 41 4D 45 20 2B |...8).FILENAME +| 000009B0: 20 49 4E 46 4F AE 38 25 93 4E 55 4D 42 45 52 20 | INFO.8%.NUMBER | 000009C0: 4F 46 20 43 48 41 52 53 20 49 4E 30 27 4C 38 16 |OF CHARS IN0'L8.| 000009D0: 95 43 4C 4F 53 45 20 46 49 4C 45 20 38 14 A9 2A |.CLOSE FILE 8..*| 000009E0: 08 30 1D 4C 38 1E 95 47 45 54 20 4E 45 58 54 20 |.0.L8..GET NEXT | 000009F0: 42 59 54 45 2E EE 38 25 95 42 55 46 46 45 52 2E |BYTE..8%.BUFFER.| 00000A00: 9D 38 23 95 53 54 4F 52 45 20 49 4E 54 4F 20 54 |.8#.STORE INTO T| 00000A10: 45 4D 50 2E AE 38 25 F0 38 1C 94 30 3D 4E 45 58 |EMP..8%.8..0=NEX| 00000A20: 54 20 46 49 4C 45 2E AA 20 38 18 95 47 45 54 20 |T FILE.. 8..GET | 00000A30: 43 48 41 52 2E D0 38 79 95 44 49 53 43 45 52 52 |CHAR..8y.DISCERR| 00000A40: 4F 52 20 3F AD 28 90 30 1E 20 38 18 94 42 4C 4F |OR ?.(.0. 8..BLO| 00000A50: 43 4B 20 48 49 20 38 18 94 42 4C 4F 43 4B 20 4C |CK HI 8..BLOCK L| 00000A60: 4F 57 F0 38 1D 94 44 49 52 45 43 54 4F 52 59 20 |OW.8..DIRECTORY | 00000A70: 45 4E 44 3F AA 20 38 18 20 38 18 30 26 20 38 27 |END?. 8. 8.0& 8'| 00000A80: 30 1C 4C 38 26 20 38 18 93 45 4E 44 20 20 20 41 |0.L8& 8..END A| 00000A90: 44 52 2E 20 2D 2D 2D 2D 20 38 18 93 53 54 41 52 |DR. ---- 8..STAR| 00000AA0: 54 20 41 44 52 2E 55 4E 55 53 45 44 20 38 15 A2 |T ADR.UNUSED 8..| 00000AB0: 28 08 20 38 13 94 4F 50 45 4E 20 46 49 4C 45 20 |(. 8..OPEN FILE | 00000AC0: 38 12 94 53 45 54 20 4E 41 4D 45 A0 44 38 1B A2 |8..SET NAME.D8..| 00000AD0: 45 38 1B A9 2A 02 94 46 49 4C 45 4C 45 4E 20 3D |E8..*..FILELEN =| 00000AE0: 20 32 20 38 11 8C 38 3B 8C 38 30 8C 38 2D 8C 38 | 2 8..8;.80.8-.8| 00000AF0: 25 93 52 45 53 45 54 20 52 45 47 49 53 54 45 52 |%.RESET REGISTER| 00000B00: 53 A0 28 00 8A A2 28 08 93 38 3D 44 49 53 43 44 |S.(...(..8=DISCD| 00000B10: 52 49 56 45 30 1A 95 42 55 46 46 45 52 8D 30 1F |RIVE0..BUFFER.0.| 00000B20: 40 2A 01 95 53 45 54 20 50 4F 49 4E 54 45 52 20 |@*..SET POINTER | 00000B30: 54 4F A9 44 38 21 8D 38 1F A9 45 38 21 20 38 47 |TO.D8!.8..E8! 8G| 00000B40: 95 50 52 49 4E 54 20 4D 45 53 53 41 47 45 53 30 |.PRINT MESSAGES0| 00000B50: 3C 95 52 4F 55 54 49 4E 45 2E 4C 38 72 95 52 45 |<.ROUTINE.L8r.RE| 00000B60: 50 45 41 54 20 57 48 4F 4C 45 30 79 4C 38 4B 98 |PEAT WHOLE0yL8K.| 00000B70: 4C 49 47 48 54 20 43 55 52 53 4F 52 2E 20 38 70 |LIGHT CURSOR. 8p| 00000B80: 98 4D 4F 56 45 20 44 49 53 50 4C 41 59 2E EE 38 |.MOVE DISPLAY..8| 00000B90: 53 98 4D 4F 56 45 20 44 4F 57 4E F0 38 64 95 59 |S.MOVE DOWN.8d.Y| 00000BA0: 45 53 2E CD 38 3B 95 4C 41 53 54 20 4F 4E 45 3F |ES..8;.LAST ONE?| 00000BB0: 69 2A 10 95 4F 46 20 42 55 54 54 4F 4D 20 46 49 |i*..OF BUTTOM FI| 00000BC0: 4C 45 2E 18 95 46 49 4E 44 20 52 45 41 4C 20 4E |LE...FIND REAL N| 00000BD0: 55 4D 42 45 52 AD 38 53 30 6C 4C 38 4B 98 4C 49 |UMBER.8S0lL8K.LI| 00000BE0: 47 48 54 20 43 55 52 53 4F 52 20 38 70 98 4D 4F |GHT CURSOR 8p.MO| 00000BF0: 56 45 20 44 49 53 50 4C 41 59 2E CE 38 53 95 4D |VE DISPLAY..8S.M| 00000C00: 4F 56 45 20 44 49 53 50 4C 41 59 20 55 50 2E F0 |OVE DISPLAY UP..| 00000C10: 38 64 95 59 45 53 2E 95 46 49 4C 45 3F AD 38 53 |8d.YES..FILE?.8S| 00000C20: 95 43 52 53 52 20 41 54 20 56 45 52 59 20 46 49 |.CRSR AT VERY FI| 00000C30: 52 53 54 30 6E 4C 38 4B 96 4C 49 47 48 54 20 4E |RST0nL8K.LIGHT N| 00000C40: 45 57 20 43 52 53 52 2E CE 38 54 96 4D 4F 56 45 |EW CRSR..8T.MOVE| 00000C50: 20 43 52 53 52 2E 20 38 4B 96 43 4C 4F 53 45 20 | CRSR. 8K.CLOSE | 00000C60: 4F 4C 44 20 43 52 53 52 2E F0 38 6E 96 59 45 53 |OLD CRSR..8n.YES| 00000C70: 2E 96 46 49 4C 45 20 49 4E 20 44 49 53 50 4C 41 |..FILE IN DISPLA| 00000C80: 59 3F AD 38 54 96 43 55 52 53 4F 52 20 41 54 20 |Y?.8T.CURSOR AT | 00000C90: 46 49 52 53 54 30 63 4C 38 4B 96 4C 49 47 48 54 |FIRST0cL8K.LIGHT| 00000CA0: 20 4E 45 57 20 43 52 53 52 2E EE 38 54 96 4D 4F | NEW CRSR..8T.MO| 00000CB0: 56 45 20 43 52 53 52 20 31 20 44 4F 57 4E 2E 20 |VE CRSR 1 DOWN. | 00000CC0: 38 4B 96 43 4C 4F 53 45 20 4F 4C 44 20 43 52 53 |8K.CLOSE OLD CRS| 00000CD0: 52 2E 96 4C 45 53 53 20 54 48 41 4E 20 31 36 29 |R..LESS THAN 16)| 00000CE0: 96 28 49 46 20 54 48 45 52 45 20 41 52 45 F0 38 |.(IF THERE ARE.8| 00000CF0: 64 96 46 49 4C 45 53 20 3D 20 43 55 52 53 4F 52 |d.FILES = CURSOR| 00000D00: 50 4F 53 EC 38 54 96 41 52 45 20 4E 55 4D 42 45 |POS.8T.ARE NUMBE| 00000D10: 52 20 4F 46 94 41 54 20 4C 45 41 53 54 20 31 2E |R OF.AT LEAST 1.| 00000D20: 20 2D 31 CA 94 4E 55 4D 42 45 52 20 4F 46 20 46 | -1..NUMBER OF F| 00000D30: 49 4C 45 53 20 41 52 45 AE 38 3B F0 38 6C 96 59 |ILES ARE.8;.8l.Y| 00000D40: 45 53 2E 96 54 48 45 20 42 4F 54 54 4F 4D 2D 50 |ES..THE BOTTOM-P| 00000D50: 4F 53 2E C9 2A 0F 96 49 53 20 54 48 45 20 43 55 |OS..*..IS THE CU| 00000D60: 52 53 4F 52 20 41 54 AD 38 54 D0 38 63 98 53 48 |RSOR AT.8T.8c.SH| 00000D70: 49 46 54 20 50 52 45 53 53 45 44 2E 29 2C 01 AD |IFT PRESSED.),..| 00000D80: 38 60 98 53 48 49 46 54 2D 46 4C 41 47 8D 38 69 |8`.SHIFT-FLAG.8i| 00000D90: 96 44 45 4C 41 59 20 3D 20 32 2F 35 30 20 53 45 |.DELAY = 2/50 SE| 00000DA0: 43 2E A9 2A 02 30 5F 60 30 64 F0 38 91 C9 28 01 |C..*.0_`0d.8..(.| 00000DB0: 97 52 45 54 55 52 4E 2E F0 38 5F C9 28 07 97 43 |.RETURN..8_.(..C| 00000DC0: 52 53 52 20 55 50 2F 44 4F 57 4E AD 2A C5 97 47 |RSR UP/DOWN.*..G| 00000DD0: 45 54 20 4B 45 59 30 6A 60 CE 38 69 F0 38 6A AD |ET KEY0j`.8i.8j.| 00000DE0: 38 69 97 44 45 4C 41 59 20 4B 45 59 50 52 45 53 |8i.DELAY KEYPRES| 00000DF0: 53 2E 8D 29 18 D0 A9 2A 17 97 53 4D 41 4C 4C 20 |S..)...*..SMALL | 00000E00: 4C 45 54 54 45 52 53 2E 20 38 67 97 53 43 41 4E |LETTERS. 8g.SCAN| 00000E10: 20 4B 45 59 42 4F 41 52 44 2E 30 3F 60 8D 38 93 | KEYBOARD.0?`.8.| 00000E20: 97 53 45 54 20 27 44 4F 4E 45 27 2D 46 4C 41 47 |.SET 'DONE'-FLAG| 00000E30: 2E A9 28 01 10 38 92 97 4C 41 42 45 4C 20 27 46 |..(..8..LABEL 'F| 00000E40: 49 4C 45 4E 41 4D 45 27 88 98 4E 41 4D 45 20 49 |ILENAME'..NAME I| 00000E50: 4E 54 4F 20 54 48 45 99 38 8F 98 54 52 41 4E 53 |NTO THE.8..TRANS| 00000E60: 46 45 52 20 46 49 4C 45 2D B1 38 1F 30 92 A0 28 |FER FILE-.8.0..(| 00000E70: 0F 8D 30 1F 40 2A 01 96 50 4F 49 4E 54 45 52 20 |..0.@*..POINTER | 00000E80: 49 4E 54 4F 20 5A 50 69 44 38 21 AD 30 4C 40 2A |INTO ZPiD8!.0L@*| 00000E90: 01 8D 38 1F 69 45 38 21 18 AD 38 4C 96 42 55 46 |..8.iE8!..8L.BUF| 00000EA0: 46 45 52 2E 20 38 4F 96 43 41 4C 43 2E 20 50 4F |FER. 8O.CALC. PO| 00000EB0: 49 4E 54 45 52 20 54 4F 8D 38 4D A9 2A 10 8D 38 |INTER TO.8M.*..8| 00000EC0: 90 96 46 49 4C 45 4E 41 4D 45 BD 38 8D 96 47 45 |..FILENAME.8..GE| 00000ED0: 54 20 4C 45 4E 47 48 54 20 4F 46 AA 8D 38 4E 95 |T LENGHT OF..8N.| 00000EE0: 43 48 4F 4F 53 45 4E 6D 38 54 95 4E 55 4D 42 45 |CHOOSENm8T.NUMBE| 00000EF0: 52 20 4F 46 20 46 49 4C 45 18 AD 38 53 30 91 4C |R OF FILE..8S0.L| 00000F00: 38 00 95 50 45 52 46 4F 52 4D 20 50 52 49 4E 54 |8..PERFORM PRINT| 00000F10: 2E 93 50 52 49 4E 54 2E 8D 38 03 93 4E 55 4D 42 |..PRINT..8..NUMB| 00000F20: 45 52 20 4F 46 20 46 49 4C 45 53 20 54 4F 30 44 |ER OF FILES TO0D| 00000F30: A9 2A 10 93 31 36 20 46 49 4C 45 53 20 41 52 45 |.*..16 FILES ARE| 00000F40: 20 50 52 49 4E 54 45 44 90 38 44 94 4E 4F 2E C9 | PRINTED.8D.NO..| 00000F50: 2A 10 94 20 3D 3E 20 31 36 3F AD 38 3B 94 4E 55 |*.. => 16?.8;.NU| 00000F60: 4D 42 45 52 20 4F 46 20 46 49 4C 45 53 8D 30 04 |MBER OF FILES.0.| 00000F70: 40 2A 01 96 50 4F 53 20 49 4E 54 4F 20 53 4F 55 |@*..POS INTO SOU| 00000F80: 52 43 45 2E 6D 30 4C 40 2A 01 96 43 41 4C 43 55 |RCE.m0L@*..CALCU| 00000F90: 4C 41 54 45 44 20 42 55 46 46 45 52 A9 44 38 21 |LATED BUFFER.D8!| 00000FA0: 8D 38 04 6D 38 4C 18 A9 45 38 21 8D 30 42 40 2A |.8.m8L..E8!.0B@*| 00000FB0: 01 96 57 49 4E 44 4F 57 20 49 4E 54 4F 20 44 45 |..WINDOW INTO DE| 00000FC0: 53 54 2E A9 44 38 41 8D 38 42 A9 45 38 41 20 38 |ST..D8A.8B.E8A 8| 00000FD0: 4F 94 43 55 52 53 2A 31 36 8D 38 4D A9 2A 10 94 |O.CURS*16.8M.*..| 00000FE0: 31 36 43 48 41 52 20 50 45 52 20 46 49 4C 45 8D |16CHAR PER FILE.| 00000FF0: 38 4E AD 38 53 94 43 55 52 53 4F 52 20 50 4F 53 |8N.8S.CURSOR POS| 00001000: 54 49 4F 4E 2E 30 70 20 38 75 97 43 4C 45 41 52 |TION.0p 8u.CLEAR| 00001010: 20 53 43 52 45 45 4E 2E 30 3E 60 93 46 49 4E 49 | SCREEN.0>`.FINI| 00001020: 53 48 20 54 48 49 53 20 52 4F 55 54 49 4E 45 2E |SH THIS ROUTINE.| 00001030: 58 30 94 4C 38 3D 97 4E 4F 2E D0 38 94 97 59 45 |X0.L8=.NO..8..YE| 00001040: 53 2E AD 38 93 97 46 49 4C 45 20 43 48 4F 4F 53 |S..8..FILE CHOOS| 00001050: 45 4E 3F 98 41 4E 44 20 43 48 4F 4F 53 45 20 46 |EN?.AND CHOOSE F| 00001060: 49 4C 45 20 38 3F 98 43 4F 4E 54 52 4F 4C 20 4B |ILE 8?.CONTROL K| 00001070: 45 59 53 D0 38 3D 97 59 45 53 2E 2C 29 11 D0 97 |EYS.8=.YES.,)...| 00001080: 52 41 53 54 45 52 50 4F 53 20 3D 20 32 35 36 3F |RASTERPOS = 256?| 00001090: A9 2C 80 D0 38 3D 97 50 4F 53 20 30 2E AD 29 12 |.,..8=.POS 0..).| 000010A0: D0 97 57 41 49 54 20 46 4F 52 20 52 41 53 54 45 |..WAIT FOR RASTE| 000010B0: 52 2D 78 30 3D 20 38 4B 97 4C 49 47 48 54 20 43 |R-x0= 8K.LIGHT C| 000010C0: 55 52 53 4F 52 2E 97 31 36 20 46 49 4C 45 53 20 |URSOR..16 FILES | 000010D0: 38 3E 97 50 52 49 4E 54 20 54 48 45 20 46 49 52 |8>.PRINT THE FIR| 000010E0: 53 54 81 57 41 4E 54 20 54 4F 20 53 45 54 20 55 |ST.WANT TO SET U| 000010F0: 50 20 41 20 53 43 52 45 45 4E 2E 81 45 4E 54 45 |P A SCREEN..ENTE| 00001100: 52 20 41 20 4A 53 52 20 54 4F 20 59 4F 55 20 4F |R A JSR TO YOU O| 00001110: 57 4E 20 52 4F 55 54 49 4E 45 20 49 46 20 59 4F |WN ROUTINE IF YO| 00001120: 55 F0 38 72 95 41 4C 4C 2E 95 45 52 52 4F 52 29 |U.8r.ALL..ERROR)| 00001130: 20 3D 20 52 45 50 45 41 54 AD 38 3B 95 4E 4F 20 | = REPEAT.8;.NO | 00001140: 46 49 4C 45 53 20 28 4F 52 20 44 49 53 43 2D 20 |FILES (OR DISC- | 00001150: 38 3C 95 53 43 41 4E 20 44 49 52 45 43 54 4F 52 |8<.SCAN DIRECTOR| 00001160: 59 93 41 4E 44 20 50 52 49 4E 54 20 44 49 53 43 |Y.AND PRINT DISC| 00001170: 53 54 41 54 55 53 20 38 73 93 57 41 49 54 20 46 |STATUS 8s.WAIT F| 00001180: 4F 52 20 53 50 41 43 45 93 4C 4F 47 49 43 41 4C |OR SPACE.LOGICAL| 00001190: 20 46 49 4C 45 53 2E 93 50 55 54 20 43 48 41 4E | FILES..PUT CHAN| 000011A0: 4E 45 4C 53 20 41 4E 44 20 38 78 93 52 45 53 45 |NELS AND 8x.RESE| 000011B0: 54 20 C1 CC CC 20 49 4E 50 55 54 2F 4F 55 54 2D |T ... INPUT/OUT-| 000011C0: 8D 38 93 8D 38 54 8D 38 53 93 52 45 53 45 54 20 |.8..8T.8S.RESET | 000011D0: 52 45 47 49 53 54 45 52 53 8D 29 21 D0 8D 29 20 |REGISTERS.)!..) | 000011E0: D0 A9 28 00 93 42 4C 41 43 4B 20 53 43 52 45 45 |..(..BLACK SCREE| 000011F0: 4E 2B 42 4F 52 44 45 52 30 72 8D 28 01 A9 28 37 |N+BORDER0r.(..(7| 00001200: 92 53 57 49 54 43 48 20 49 4E 20 4B 45 52 4E 41 |.SWITCH IN KERNA| 00001210: 4C 06 29 00 10 80 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |L.)...----------| 00001220: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001230: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 30 41 05 |-------------0A.| 00001240: 21 00 04 40 4A 22 06 42 22 28 4B 40 2A 0B 30 60 |!..@J".B"(K@*.0`| 00001250: 05 29 8D 02 30 20 05 28 FD 30 1F 05 28 FB 30 7C |.)..0 .(.0..(.0|| 00001260: 05 29 90 FF 30 7A 05 29 B7 FF 30 19 05 29 D1 BD |.)..0z.)..0..)..| 00001270: 30 78 05 29 E7 FF 30 67 05 29 9F FF 30 18 05 29 |0x.)..0g.)..0..)| 00001280: E4 FF 30 17 05 29 D2 FF 30 16 05 29 CC FF 30 15 |..0..)..0..)..0.| 00001290: 05 29 C6 FF 30 12 05 29 BD FF 30 11 05 29 BA FF |.)..0..)..0..)..| 000012A0: 30 83 05 29 D2 FF 30 82 05 29 AB FF 30 81 05 29 |0..)..0..)..0..)| 000012B0: B4 FF 30 80 05 29 96 FF 30 7F 05 29 A5 FF 30 14 |..0..)..0..)..0.| 000012C0: 05 29 C3 FF 30 13 05 29 C0 FF 30 86 05 29 BD FF |.)..0..)..0..)..| 000012D0: 30 85 05 29 BA FF 30 10 05 28 62 30 0F 05 28 63 |0..)..0..(b0..(c| 000012E0: 80 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.---------------| 000012F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001300: 2D 2D 2D 2D 2D 2D 2D 2D 80 20 20 20 20 20 20 20 |--------. | 00001310: 20 CD 41 44 45 20 49 4E 20 C4 45 4E 4D 41 52 4B | .ADE IN .ENMARK| 00001320: 2E 80 80 20 20 20 20 50 52 4F 47 52 41 4D 4D 45 |... PROGRAMME| 00001330: 44 20 49 4E 20 C1 50 52 49 4C 20 31 39 39 33 2E |D IN .PRIL 1993.| 00001340: 80 80 20 20 20 20 42 59 3A 20 D2 41 53 4D 55 53 |.. BY: .ASMUS| 00001350: 20 27 D2 41 5A 27 20 D7 45 52 4E 45 52 53 53 4F | '.AZ' .ERNERSSO| 00001360: 4E 2E 80 20 20 20 20 46 49 4C 45 20 43 48 4F 4F |N.. FILE CHOO| 00001370: 53 45 52 2E 20 56 31 2E 30 80 2D 2D 2D 2D 2D 2D |SER. V1.0.------| 00001380: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001390: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000013A0: 2D 00 54 55 52 42 4F 28 17 21 01 1E 01 19 28 05 |-.TURBO(.!....(.| 000013B0: 05 06 06 06 06 06 06 06 06 06 06 06 06 06 06 06 |................| 000013C0: 06 06 06 06 06 05 05 06 11 28 04 94 83 02 97 84 |.........(......| 000013D0: 84 93 83 83 00 98 11 0F 92 15 00 92 96 10 88 00 |................| 000013E0: 26 19 00 93 09 91 02 81 95 8A 83 95 88 90 10 91 |&...............| 000013F0: 88 87 02 81 96 02 91 02 93 83 93 83 8B 84 83 84 |................| 00001400: 98 84 81 83 83 84 98 97 00 93 8B 87 98 02 96 07 |................| 00001410: 92 00 02 83 81 92 8B 81 91 8C 83 83 94 08 83 81 |................| 00001420: 84 83 86 84 96 83 02 83 92 8F 94 83 94 81 02 92 |................| 00001430: 92 84 93 83 83 81 02 8B 90 83 8B 83 02 81 02 83 |................| 00001440: 95 8E 83 92 83 94 10 88 83 95 0F 00 91 95 0E 0E |................| 00001450: 93 95 93 02 93 11 88 93 8E 93 02 96 06 88 94 91 |................| 00001460: 90 02 83 92 93 8D 88 8D 91 91 02 90 09 02 92 84 |................| 00001470: 83 84 95 07 02 8F 81 83 93 83 83 83 83 8F 84 84 |................| 00001480: 8C 8D 83 83 94 93 83 02 83 02 83 83 81 92 8D 8C |................| 00001490: 02 83 8F 8D 81 90 83 94 08 83 92 02 83 83 8E 02 |................| 000014A0: 96 93 81 81 81 81 81 83 92 98 08 96 00 91 0D 93 |................| 000014B0: 83 83 83 83 83 81 15 83 81 02 83 83 02 81 92 89 |................| 000014C0: 83 02 81 83 8D 95 92 8D 93 83 90 02 81 8E 91 0A |................| 000014D0: 14 10 02 83 81 83 83 81 8D 02 81 83 91 83 81 83 |................| 000014E0: 83 86 83 9A 0E 83 93 96 8A 8C 92 07 02 90 83 02 |................| 000014F0: 8D 8E 88 92 84 83 8D 84 81 83 02 81 12 81 83 83 |................| 00001500: 83 83 81 83 83 86 86 83 83 86 86 02 83 02 83 8C |................| 00001510: 83 81 83 83 81 83 83 83 86 02 81 83 83 86 02 83 |................| 00001520: 81 83 83 83 86 02 81 83 83 86 02 83 81 83 83 81 |................| 00001530: 83 81 02 83 83 81 02 83 83 83 83 95 83 81 84 94 |................| 00001540: 95 88 86 8C 02 83 93 83 81 83 81 13 81 83 83 83 |................| 00001550: 02 83 83 81 83 02 81 83 02 81 83 86 81 1E 81 8D |................| 00001560: 81 83 84 81 81 81 81 8A 81 83 84 81 02 90 83 02 |................| 00001570: 8E 83 83 83 84 81 83 02 92 83 95 02 92 83 8A 87 |................| 00001580: 81 02 90 8C 91 00 16 11 91 83 00 8E 84 84 83 8F |................| 00001590: 83 92 83 83 96 89 02 8C 8C 83 8B 83 83 83 8F 00 |................| 000015A0: 28 19 19 0D 11 11 00 16 05 05 05 05 0A 05 02 14 |(...............| 000015B0: 05 05 05 05 05 14 05 05 05 05 05 08 05 05 18 09 |................| 000015C0: 03 19 05 03 19 05 20 12 0B 0B 0D 02 11 11 11 11 |...... .........| 000015D0: 28 02 14 02 05 60 0D B2 5B 02 00 00 00 00 00 00 |(....`..[.......| 000015E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 000015F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001600: 00 00 00 00 00 EC ED ED EE EF 00 00 00 00 00 00 |................| 00001610: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001620: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001630: 00 00 00 00 00 42 4C 49 54 54 45 D2 58 C2 45 52 |.....BLITTE.X.ER| 00001640: 52 4F D2 59 C2 53 4F 55 52 43 C5 44 45 53 54 49 |RO.Y.SOURC.DESTI| 00001650: 4E 41 54 49 4F CE 42 4C 49 54 4C 4F 4F 50 B2 42 |NATIO.BLITLOOP.B| 00001660: 4C 49 54 4C 4F 4F D0 53 4D 4F C4 42 4C 49 54 56 |LITLOO.SMO.BLITV| 00001670: B1 42 4C 49 54 56 B3 44 4D 4F C4 42 4C 49 54 56 |.BLITV.DMO.BLITV| 00001680: B2 42 4C 49 54 56 B4 45 52 D2 42 4C 4F 4B 4C CF |.BLITV.ER.BLOKL.| 00001690: 42 4C 4F 4B 48 C9 53 45 54 4C 46 D3 53 45 54 4E |BLOKH.SETLF.SETN| 000016A0: 41 CD 4F 50 45 CE 43 4C 4F 53 C5 43 48 4B 49 CE |A.OPE.CLOS.CHKI.| 000016B0: 43 4C 52 43 48 CE 43 48 52 4F 55 D4 47 45 54 49 |CLRCH.CHROU.GETI| 000016C0: CE 4C 49 4E 4E 55 CD 44 49 52 45 C3 4E 41 4D C5 |.LINNU.DIRE.NAM.| 000016D0: 4E 58 4C 49 CE 45 4E 43 41 D4 4E 58 42 59 D4 5A |NXLI.ENCA.NXBY.Z| 000016E0: 50 B1 5A 50 B2 42 55 46 46 45 D2 44 49 52 4C 45 |P.ZP.BUFFE.DIRLE| 000016F0: CE 42 55 46 46 B2 41 43 C3 47 45 CD 45 4E D4 50 |.BUFF.AC.GE.EN.P| 00001700: 52 49 4E 54 4C 49 4E C5 50 52 4C D0 47 45 4D B2 |RINTLIN.PRL.GEM.| 00001710: 42 55 46 C6 44 4F 50 D2 4C 49 4E 45 4F 55 D4 47 |BUF.DOP.LINEOU.G| 00001720: 45 4D B3 4F 4B 45 58 49 D4 46 49 52 53 D4 59 47 |EM.OKEXI.FIRS.YG| 00001730: 45 CD 42 4C 4F 43 4B 4C CF 42 4C 4F 43 4C CF 42 |E.BLOCKL.BLOCL.B| 00001740: 4C 4B 48 C9 50 52 4C 50 B1 59 45 58 C5 50 52 4C |LKH.PRLP.YEX.PRL| 00001750: 50 B2 46 49 4C 45 46 49 CE 46 49 4E 4C D0 54 5A |P.FILEFI.FINL.TZ| 00001760: D4 54 54 D4 46 49 4C 45 D3 53 43 41 4E 44 49 D2 |.TT.FILE.SCANDI.| 00001770: 4D 41 49 CE 53 45 54 53 43 52 45 45 CE 43 4F 4E |MAI.SETSCREE.CON| 00001780: 54 53 43 52 4F 4C CC 43 4F 4E 52 53 43 52 4F 4C |TSCROL.CONRSCROL| 00001790: CC 57 49 4E 44 4F D7 44 45 53 D4 48 49 4E 55 CD |.WINDO.DES.HINU.| 000017A0: 4C 4F 57 4E 55 CD 59 D0 53 43 41 4E 54 58 D4 4D |LOWNU.Y.SCANTX.M| 000017B0: 45 53 D3 46 49 4E 4D 45 53 D3 4D 45 53 53 4C 4F |ES.FINMES.MESSLO| 000017C0: 4F D0 4D 41 53 CB 4C 49 47 48 54 43 55 D2 52 45 |O.MAS.LIGHTCU.RE| 000017D0: 53 55 4C D4 CD CE 4D 55 4C D4 47 45 4E 54 41 C7 |SUL...MUL.GENTA.| 000017E0: 4E 4F 41 44 C4 52 4F 52 C2 43 55 52 D3 53 43 52 |NOAD.ROR.CUR.SCR| 000017F0: 43 55 52 D3 4C 48 4C 4F 4F D0 53 43 41 4E B2 50 |CUR.LHLOO.SCAN.P| 00001800: 4C 4F 54 48 45 D8 58 43 4F 4F D2 48 45 58 54 41 |LOTHE.XCOO.HEXTA| 00001810: C2 59 43 4F 4F D2 53 43 52 4F 4C 4C B1 53 43 52 |.YCOO.SCROLL.SCR| 00001820: 4F 4C 4C B2 55 50 D4 4C 46 D4 4D 4F 56 45 49 D4 |OLL.UP.LF.MOVEI.| 00001830: 53 48 46 4C C7 55 50 D0 4F D0 4D 4F 56 4F D0 4D |SHFL.UP.O.MOVO.M| 00001840: 4F 56 45 D8 4C 49 47 48 D4 4C 49 47 48 54 43 55 |OVE.LIGH.LIGHTCU| 00001850: 52 D3 53 43 4E 4B 45 D9 4A 4D 50 4D 41 49 CE 4B |R.SCNKE.JMPMAI.K| 00001860: 45 59 44 45 CC 44 4F 49 D4 44 45 4C 41 D9 53 43 |EYDE.DOI.DELA.SC| 00001870: 52 55 D0 53 43 4C 55 D0 53 43 52 44 57 CE 43 55 |RU.SCLU.SCRDW.CU| 00001880: D2 44 55 4D 50 46 49 4C 45 D3 53 44 C3 4F 4D 4D |.DUMPFILE.SD.OMM| 00001890: 45 D2 57 41 49 D4 57 41 49 54 54 45 58 D4 43 4C |E.WAI.WAITTEX.CL| 000018A0: 53 43 D2 57 4C 4F 4F 50 B1 57 45 D8 43 4C 41 4C |SC.WLOOP.WE.CLAL| 000018B0: CC 44 49 53 43 45 52 D2 52 45 41 44 53 D4 4A 53 |.DISCER.READS.JS| 000018C0: D4 53 45 54 4D 53 C7 48 4F 4D C5 45 52 52 4F 52 |.SETMS.HOM.ERROR| 000018D0: 43 C8 49 45 43 49 CE 53 45 43 54 4C CB 54 41 4C |C.IECI.SECTL.TAL| 000018E0: CB 55 4E 54 41 4C CB 42 41 53 4F 55 D4 53 45 54 |.UNTAL.BASOU.SET| 000018F0: 50 41 D2 46 49 4C 50 41 D2 46 49 4C 4E 41 CD 4C |PA.FILPA.FILNA.L| 00001900: 49 53 54 45 CE 53 45 43 4C 53 D4 45 52 52 4C 4F |ISTE.SECLS.ERRLO| 00001910: 4F D0 49 45 43 4F 55 D4 45 52 52 4F 52 43 48 CC |O.IECOU.ERRORCH.| 00001920: 57 45 58 D8 4C 45 4E 54 41 C2 4F 46 46 D3 46 49 |WEX.LENTA.OFF.FI| 00001930: 4C 45 4E 41 4D C5 46 49 4C 45 CC 46 49 4C 45 46 |LENAM.FILE.FILEF| 00001940: 4F 55 4E C4 4E 41 4D 4C 4F 4F D0 44 4F 4E C5 46 |OUN.NAMLOO.DON.F| 00001950: 49 4E 49 53 C8 43 4D D0 49 52 D8 42 45 D7 00 00 |INIS.CM.IR.BE...| 00001960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 |.............. .| 00001970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 000019A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 000019B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 000019C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 000019D0: 00 00 00 00 00 02 FF FF FF FF FF FF FF FF FF FF |................| 000019E0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................| 000019F0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................| 00001A00: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................| 00001A10: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................| 00001A20: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................| 00001A30: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................| 00001A40: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................| 00001A50: FF FF FF FF FF 00 00 00 00 00 00 00 00 00 00 00 |................| 00001A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001AD0: 00 00 00 00 00 3C FF FF |.....<.. |
.J}...-.-.........-.J}.................. ..M...........P.........DIR 0 ION .... ............TEXT " ".. ._3S ..BYTE $00.. ._. DEST . ........................................ ........................................ ..................FIN0!.%@+...MAX 256 FI LES0..------MUST BE THE LAST ONES------- -----.*.*.*.*.*.*.*.*..*.*.*.*.*.*.*.*.. *.*.*.*.*.*.*.*..*.*.*.*.*.*.*.*.0#.*.*. *.*.*.*..(5(6(7(8(9.(0(1(2(3(4.INTO SCRE EN-CODE.0Y.USED FOR CONVERTING HEXNUMBER ..$000V..NUMBER OF PRG FILES: .(... 0F ..SCANNING DIR... .(... SPACE.0T..I NSET DISC AND PRESS0".(.0..(.0.."(A*.0.. (.0..(.0..*.0B.(.0..(.0J.,?.SMALL LETTER S.0;.(.00.(.0-.(.0).(.0%.(..($(0.FOR DIR ECTORY.0.0N.*.0M.*.. M*N0L.*.0T.(.0S.(.0 I.*.0..(..LEN. OF FILENAME.*.*.*.*.*.*.* .*..*.*.*.*.*.*.*.*..STORED HERE.0..THE CHOSEN FILENAME IS0..(..1=ENDS THE ROUTI NE..------------------------------------ ---L8..CLOSE FILE..(. 8..(.P8..FINISH?,( . 8..PRINT IT 8.GET BYTE0. 8..SEND..(O. SEC.ADR FOR FILE 1 8..(. 8..OPEN FILE NO .1 8..(..NO FILENAME 8. (O..(...(..FILEN UMBER.(..(..STATUSFLAG=OK.THE DISC-STATU S.0~.THIS ROUTINE PRINTSL)D..CLEARSCREEN ..+...COLOUR..(..YELLOW CHAR-0U`P8..NO.I *<.SPACE?.*E 8G.SCAN KEYBOARD.0. 8~.PRIN T DISC-STATUS 8..*..PRINT CHR$(13)0WP8V. .)..),?.8WI(..8T.PRINT TEXT0V.(. 8U.CLEA R SCREEN0S`.)...8Y.J.HI-VALUEJJJH.)...8Y .),..LOW VALUEH0W.PLOT HEX-VALUE INTO $0 400,Y`.0L@*.P8PJ0RN8LJ0QM8N..8QN8M0P.(.. 8L.(..0O.M*N INTO RESULT.`.8U..8.I,..TOG GLE REVERSE..8.0U (..16 CHARS.0.@*.ID8A. ZP1.0L@*..OF CURSOR INTO.8..STORE SCREEN -POSIE8A..8L 8O.CALC POS OF CRSR..8M.*(. 8N.8T0K`.8..(.0.`.8.HP8.N8...8 0..0 @*.. 8.M8..0..0 @*..8.M8..8 ..8.0..0.@*..8.M8 ..0..0.@*..8.M8..8..P8.L8.H.8 -8J.MASKIN G..8.0. (.0..0 @*..0B@*..8 .8B.0.@*..0.@ *..8..8.H.8..8..8..8..0..BLITTER ROUTINE `0HL8I..)(.),?. ------.8V.)..),?.SMALL LETTERS..8H.YES.I(..LAST BYTE?.8F.READ TEXT0I.(. 8U.CLEARSCREEN.0G.FILES.L8W.PL OT NUMBER OF *>.$0400+62.8;.FILES..8;.IN CREASE NUMBER OF.8%.RESET REGISTER..(..B UFFER BY 16..0.@*..INCREASE POINTER TOI( ..0.@*..8.I*...8..8..STORE FILELEN.8;.05 ..GET FILELENHP88.*.H.8.08.HAS BEEN USED )..(IN CASE THE BUFFER.FILENAME..( .CLEA R REST OFH.SAVE FILELEN.07L86.(FILELEN=1 6).85.*..16 CHARS = MAX.H.INTO BUFFER.8. .STORE FILENAME.87.YES.=END OF NAME.I*". LAST '"'?.8#.06P84I*". '"'..8#.FIND THE FIRST.04.(. (.0+`.8-0/.FIRST LINE = SKIP .`.8+I.G.8+I.R.8+I.P.PRG FILES ONLY..TEM P. BUFFER.8#.GET BYTE FROM.8/.YES = NO F ILENAME..AND ID).8-.FIRST LINE (DISCNAME .8%.RESET REGISTER.(.JJJJJ.8).FILENAME + INFO.8%.NUMBER OF CHARS IN0'L8..CLOSE F ILE 8..*.0.L8..GET NEXT BYTE..8%.BUFFER. .8#.STORE INTO TEMP..8%.8..0=NEXT FILE.. 8..GET CHAR.P8Y.DISCERROR ?.(.0. 8..BLO CK HI 8..BLOCK LOW.8..DIRECTORY END?. 8. 8.0& 8'0.L8& 8..END ADR. ---- 8..STAR T ADR.UNUSED 8..(. 8..OPEN FILE 8..SET N AME D8..E8..*..FILELEN = 2 8..8;.80.8-.8 %.RESET REGISTERS (...(..8=DISCDRIVE0..B UFFER.0.@*..SET POINTER TO.D8!.8..E8! 8G .PRINT MESSAGES0<.ROUTINE.L8R.REPEAT WHO LE0YL8K.LIGHT CURSOR. 8P.MOVE DISPLAY..8 S.MOVE DOWN.8D.YES.M8;.LAST ONE?I*..OF B UTTOM FILE...FIND REAL NUMBER.8S0LL8K.LI GHT CURSOR 8P.MOVE DISPLAY.N8S.MOVE DISP LAY UP..8D.YES..FILE?.8S.CRSR AT VERY FI RST0NL8K.LIGHT NEW CRSR.N8T.MOVE CRSR. 8 K.CLOSE OLD CRSR..8N.YES..FILE IN DISPLA Y?.8T.CURSOR AT FIRST0CL8K.LIGHT NEW CRS R..8T.MOVE CRSR 1 DOWN. 8K.CLOSE OLD CRS R..LESS THAN 16).(IF THERE ARE.8D.FILES = CURSORPOS.8T.ARE NUMBER OF.AT LEAST 1. -1J.NUMBER OF FILES ARE.8;.8L.YES..THE BOTTOM-POS.I*..IS THE CURSOR AT.8TP8C.SH IFT PRESSED.),..8`.SHIFT-FLAG.8I.DELAY = 2/50 SEC..*.0_`0D.8.I(..RETURN..8_I(..C RSR UP/DOWN.*E.GET KEY0J`N8I.8J.8I.DELAY KEYPRESS..).P.*..SMALL LETTERS. 8G.SCAN KEYBOARD.0?`.8..SET 'DONE'-FLAG..(..8.. LABEL 'FILENAME'..NAME INTO THE.8..TRANS FER FILE-.8.0. (..0.@*..POINTER INTO ZPI D8!.0L@*..8.IE8!..8L.BUFFER. 8O.CALC. PO INTER TO.8M.*..8..FILENAME.8..GET LENGHT OF..8N.CHOOSENM8T.NUMBER OF FILE..8S0.L 8..PERFORM PRINT..PRINT..8..NUMBER OF FI LES TO0D.*..16 FILES ARE PRINTED.8D.NO.I *.. => 16?.8;.NUMBER OF FILES.0.@*..POS INTO SOURCE.M0L@*..CALCULATED BUFFER.D8! .8.M8L..E8!.0B@*..WINDOW INTO DEST..D8A. 8B.E8A 8O.CURS*16.8M.*..16CHAR PER FILE. 8N.8S.CURSOR POSTION.0P 8U.CLEAR SCREEN. 0>`.FINISH THIS ROUTINE.X0.L8=.NO.P8..YE S..8..FILE CHOOSEN?.AND CHOOSE FILE 8?.C ONTROL KEYSP8=.YES.,).P.RASTERPOS = 256? .,.P8=.POS 0..).P.WAIT FOR RASTER-X0= 8K .LIGHT CURSOR..16 FILES 8>.PRINT THE FIR ST.WANT TO SET UP A SCREEN..ENTER A JSR TO YOU OWN ROUTINE IF YOU.8R.ALL..ERROR) = REPEAT.8;.NO FILES (OR DISC- 8<.SCAN DIRECTORY.AND PRINT DISCSTATUS 8S.WAIT F OR SPACE.LOGICAL FILES..PUT CHANNELS AND 8X.RESET ALL INPUT/OUT-.8..8T.8S.RESET REGISTERS.)!P.) P.(..BLACK SCREEN+BORDER 0R.(..(7.SWITCH IN KERNAL.)...---------- -----------------------------0A.!..@J".B "(K@*.0`.)..0 .(.0..(.0|.)..0Z.)..0..)Q. 0X.)..0G.)..0..)..0..)R.0..)L.0..)F.0..) ..0..)..0..)R.0..)..0..)..0..)..0.)..0. .)C.0..)..0..)..0..)..0..(B0..(C.------- --------------------------------. MADE IN DENMARK... PROGRAMMED IN APR IL 1993... BY: RASMUS 'RAZ' WERNERSSO N.. FILE CHOOSER. V1.0.-------------- -------------------------.TURBO(.!....(. .........................(.............. ........&............................... ........................................ ........................................ ........................................ ........................................ ........................................ ........................................ ........................................ ........................................ ........................................ ........................................ ................(....................... .............. .........(....`..[....... ........................................ ........................................ .....BLITTERXBERRORYBSOURCEDESTINATIONBL ITLOOP.BLITLOOPSMODBLITV.BLITV.DMODBLITV .BLITV.ERRBLOKLOBLOKHISETLFSSETNAMOPENCL OSECHKINCLRCHNCHROUTGETINLINNUMDIRECNAME NXLINENCATNXBYTZP.ZP.BUFFERDIRLENBUFF.AC CGEMENTPRINTLINEPRLPGEM.BUFFDOPRLINEOUTG EM.OKEXITFIRSTYGEMBLOCKLOBLOCLOBLKHIPRLP .YEXEPRLP.FILEFINFINLPTZTTTTFILESSCANDIR MAINSETSCREENCONTSCROLLCONRSCROLLWINDOWD ESTHINUMLOWNUMYPSCANTXTMESSFINMESSMESSLO OPMASKLIGHTCURRESULTMNMULTGENTAGNOADDROR BCURSSCRCURSLHLOOPSCAN.PLOTHEXXCOORHEXTA BYCOORSCROLL.SCROLL.UPTLFTMOVEITSHFLGUPP OPMOVOPMOVEXLIGHTLIGHTCURSSCNKEYJMPMAINK EYDELDOITDELAYSCRUPSCLUPSCRDWNCURDUMPFIL ESSDCOMMERWAITWAITTEXTCLSCRWLOOP.WEXCLAL LDISCERRREADSTJSTSETMSGHOMEERRORCHIECINS ECTLKTALKUNTALKBASOUTSETPARFILPARFILNAML ISTENSECLSTERRLOOPIECOUTERRORCHLWEXXLENT ABOFFSFILENAMEFILELFILEFOUNDNAMLOOPDONEF INISHCMPIRXBEW................ ......... ........................................ ........................................ ........................................ ........................................ ........................................ ........................................ ........................................ ........................................ .............................<..
> CLICK IMAGE PREVIEW FOR FULL MODAL