/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / c128 / utils / sequtl.prg

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 01 1c 27 1c 0a 00 8f 20 | 50 52 4f 47 52 41 4d 20 |..'.... |PROGRAM |
|00000010| 53 45 51 55 45 4e 54 49 | 41 4c 20 46 49 4c 45 20 |SEQUENTI|AL FILE |
|00000020| 55 54 49 4c 49 54 59 00 | 3a 1c 14 00 8f 20 28 53 |UTILITY.|:.... (S|
|00000030| 45 51 55 54 4c 2e 49 4d | 47 29 00 40 1c 1e 00 8f |EQUTL.IM|G).@....|
|00000040| 00 68 1c 28 00 8f 20 54 | 48 49 53 20 53 55 42 52 |.h.(.. T|HIS SUBR|
|00000050| 4f 55 54 49 4e 45 20 43 | 52 45 41 54 45 53 2c 20 |OUTINE C|REATES, |
|00000060| 41 50 50 45 4e 44 53 2c | 00 90 1c 32 00 8f 20 45 |APPENDS,|...2.. E|
|00000070| 44 49 54 53 2c 20 41 4e | 44 20 50 52 49 4e 54 53 |DITS, AN|D PRINTS|
|00000080| 20 54 48 45 20 43 4f 4e | 54 45 4e 54 53 20 4f 46 | THE CON|TENTS OF|
|00000090| 00 b7 1c 3c 00 8f 20 53 | 45 51 55 45 4e 54 49 41 |...<.. S|EQUENTIA|
|000000a0| 4c 20 46 49 4c 45 53 20 | 55 53 49 4e 47 20 42 41 |L FILES |USING BA|
|000000b0| 53 49 43 20 37 2e 30 00 | de 1c 46 00 8f 20 43 4f |SIC 7.0.|..F.. CO|
|000000c0| 4d 4d 41 4e 44 53 2e 20 | 49 54 20 44 4f 45 53 20 |MMANDS. |IT DOES |
|000000d0| 4e 4f 54 20 48 41 4e 44 | 4c 45 20 2c 27 53 00 f8 |NOT HAND|LE ,'S..|
|000000e0| 1c 50 00 8f 20 49 4e 20 | 54 48 45 20 49 4e 50 55 |.P.. IN |THE INPU|
|000000f0| 54 20 4c 49 4e 45 53 2e | 00 1e 1d 5a 00 8f 20 28 |T LINES.|...Z.. (|
|00000100| 49 27 4d 20 4f 50 45 4e | 20 54 4f 20 53 55 47 47 |I'M OPEN| TO SUGG|
|00000110| 45 53 54 49 4f 4e 53 20 | 4f 4e 20 48 4f 57 00 39 |ESTIONS |ON HOW.9|
|00000120| 1d 64 00 8f 20 54 4f 20 | 46 49 58 20 54 48 41 54 |.d.. TO |FIX THAT|
|00000130| 20 50 52 4f 42 4c 45 4d | 29 00 5a 1d 6e 00 8f 20 | PROBLEM|).Z.n.. |
|00000140| 57 52 49 54 54 45 4e 20 | 42 59 3a 20 44 41 56 49 |WRITTEN |BY: DAVI|
|00000150| 44 20 4c 2e 20 45 4c 4c | 49 53 00 77 1d 78 00 8f |D L. ELL|IS.w.x..|
|00000160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 37 35 31 |        |     751|
|00000170| 31 36 2c 33 33 34 37 00 | 7d 1d 82 00 8f 00 8d 1d |16,3347.|}.......|
|00000180| 8c 00 8f 20 56 41 52 49 | 41 42 4c 45 53 00 af 1d |... VARI|ABLES...|
|00000190| 96 00 8f 20 20 20 41 24 | 2e 2e 2e 2e 4e 55 4c 4c |...   A$|....NULL|
|000001a0| 20 45 4e 54 52 59 20 56 | 41 52 49 41 42 4c 45 00 | ENTRY V|ARIABLE.|
|000001b0| c7 1d a0 00 8f 20 20 20 | 46 24 2e 2e 2e 2e 46 49 |.....   |F$....FI|
|000001c0| 4c 45 20 4e 41 4d 45 00 | ee 1d aa 00 8f 20 20 20 |LE NAME.|.....   |
|000001d0| 48 24 2e 2e 2e 2e 48 41 | 52 44 20 43 4f 50 59 20 |H$....HA|RD COPY |
|000001e0| 56 41 52 49 41 42 4c 45 | 20 28 59 2f 4e 29 00 0f |VARIABLE| (Y/N)..|
|000001f0| 1e b4 00 8f 20 20 20 4c | 24 2e 2e 2e 2e 28 4f 4c |....   L|$....(OL|
|00000200| 44 29 20 4c 49 4e 45 20 | 4f 46 20 54 45 58 54 00 |D) LINE |OF TEXT.|
|00000210| 2e 1e be 00 8f 20 20 20 | 4c 4e 24 2e 2e 2e 4e 45 |.....   |LN$...NE|
|00000220| 57 20 4c 49 4e 45 20 4f | 46 20 54 45 58 54 00 4c |W LINE O|F TEXT.L|
|00000230| 1e c8 00 8f 20 20 20 4f | 50 2e 2e 2e 2e 4f 50 54 |....   O|P....OPT|
|00000240| 49 4f 4e 20 53 45 4c 45 | 43 54 45 44 00 52 1e d2 |ION SELE|CTED.R..|
|00000250| 00 8f 00 6b 1e dc 00 8f | 20 4d 41 49 4e 20 4f 50 |...k....| MAIN OP|
|00000260| 54 49 4f 4e 20 53 43 52 | 45 45 4e 00 a6 1e e6 00 |TION SCR|EEN.....|
|00000270| 99 22 93 22 3a 99 22 11 | 11 11 11 11 44 4f 20 59 |.".":.".|....DO Y|
|00000280| 4f 55 20 57 41 4e 54 20 | 54 4f 3a 22 3a 99 22 11 |OU WANT |TO:":.".|
|00000290| 20 20 20 31 2e 20 4f 50 | 45 4e 20 41 20 4e 45 57 |   1. OP|EN A NEW|
|000002a0| 20 46 49 4c 45 22 00 e5 | 1e f0 00 99 22 11 20 20 | FILE"..|....".  |
|000002b0| 20 32 2e 20 41 50 50 45 | 4e 44 20 54 4f 20 41 4e | 2. APPE|ND TO AN|
|000002c0| 20 4f 4c 44 20 46 49 4c | 45 22 3a 99 22 11 20 20 | OLD FIL|E":.".  |
|000002d0| 20 33 2e 20 45 44 49 54 | 20 41 4e 20 4f 4c 44 20 | 3. EDIT| AN OLD |
|000002e0| 46 49 4c 45 22 00 22 1f | fa 00 99 22 11 20 20 20 |FILE".".|...".   |
|000002f0| 34 2e 20 50 52 49 4e 54 | 20 46 49 4c 45 20 43 4f |4. PRINT| FILE CO|
|00000300| 4e 54 45 4e 54 53 22 3a | 99 22 11 20 20 20 35 2e |NTENTS":|.".   5.|
|00000310| 20 53 43 52 41 54 43 48 | 20 4f 4c 44 20 46 49 4c | SCRATCH| OLD FIL|
|00000320| 45 22 00 34 1f 04 01 99 | 22 11 20 20 20 36 2e 20 |E".4....|".   6. |
|00000330| 45 4e 44 22 00 56 1f 0e | 01 8f 20 45 4e 54 45 52 |END".V..|.. ENTER|
|00000340| 20 44 45 53 49 52 45 44 | 20 4f 50 54 49 4f 4e 20 | DESIRED| OPTION |
|00000350| 4e 55 4d 42 45 52 00 80 | 1f 18 01 85 22 11 11 11 |NUMBER..|...."...|
|00000360| 45 4e 54 45 52 20 4e 55 | 4d 42 45 52 20 4f 46 20 |ENTER NU|MBER OF |
|00000370| 4f 50 54 49 4f 4e 20 28 | 31 2d 36 29 22 3b 4f 50 |OPTION (|1-6)";OP|
|00000380| 00 a2 1f 22 01 8f 20 47 | 4f 20 54 4f 20 54 48 45 |...".. G|O TO THE|
|00000390| 20 50 52 4f 50 45 52 20 | 53 55 42 52 4f 55 54 49 | PROPER |SUBROUTI|
|000003a0| 4e 45 00 c5 1f 2c 01 91 | 4f 50 8d 33 36 30 2c 35 |NE...,..|OP.360,5|
|000003b0| 37 30 2c 37 38 30 2c 31 | 31 39 30 2c 31 36 36 30 |70,780,1|190,1660|
|000003c0| 2c 31 36 32 30 00 ec 1f | 36 01 8f 20 52 45 54 55 |,1620...|6.. RETU|
|000003d0| 52 4e 20 54 4f 20 54 48 | 45 20 4d 41 49 4e 20 4f |RN TO TH|E MAIN O|
|000003e0| 50 54 49 4f 4e 20 53 43 | 52 45 45 4e 00 f5 1f 40 |PTION SC|REEN...@|
|000003f0| 01 89 32 32 30 00 fb 1f | 4a 01 8f 00 01 20 54 01 |..220...|J.... T.|
|00000400| 8f 00 07 20 5e 01 8f 00 | 23 20 68 01 8f 20 43 52 |... ^...|# h.. CR|
|00000410| 45 41 54 45 20 41 20 4e | 45 57 20 53 45 51 20 46 |EATE A N|EW SEQ F|
|00000420| 49 4c 45 00 29 20 72 01 | 8f 00 58 20 7c 01 8f 20 |ILE.) r.|..X |.. |
|00000430| 45 4e 54 45 52 20 54 48 | 45 20 4e 41 4d 45 20 4f |ENTER TH|E NAME O|
|00000440| 46 20 54 48 45 20 46 49 | 4c 45 20 54 4f 20 42 45 |F THE FI|LE TO BE|
|00000450| 20 43 52 45 41 54 45 44 | 00 6d 20 86 01 85 22 93 | CREATED|.m ...".|
|00000460| 46 49 4c 45 20 4e 41 4d | 45 22 3b 46 24 00 81 20 |FILE NAM|E";F$.. |
|00000470| 90 01 8f 20 4f 50 45 4e | 20 54 48 45 20 46 49 4c |... OPEN| THE FIL|
|00000480| 45 00 97 20 9a 01 fe 0d | 23 31 2c 28 46 24 29 2c |E.. ....|#1,(F$),|
|00000490| 44 30 2c 55 38 2c 57 00 | b2 20 a4 01 8f 20 43 48 |D0,U8,W.|. ... CH|
|000004a0| 45 43 4b 20 46 4f 52 20 | 44 49 53 4b 20 45 52 52 |ECK FOR |DISK ERR|
|000004b0| 4f 52 00 bc 20 ae 01 8d | 31 35 34 30 00 d9 20 b8 |OR.. ...|1540.. .|
|000004c0| 01 8f 20 53 45 54 20 49 | 4e 50 55 54 20 4c 49 4e |.. SET I|NPUT LIN|
|000004d0| 45 20 54 4f 20 4e 55 4c | 4c 00 e3 20 c2 01 4c 24 |E TO NUL|L.. ..L$|
|000004e0| b2 22 22 00 00 21 cc 01 | 8f 20 45 4e 54 45 52 20 |.""..!..|. ENTER |
|000004f0| 54 48 45 20 4c 49 4e 45 | 20 4f 46 20 49 4e 46 4f |THE LINE| OF INFO|
|00000500| 00 08 21 d6 01 85 4c 24 | 00 42 21 e0 01 8f 20 49 |..!...L$|.B!... I|
|00000510| 46 20 54 48 45 20 49 4e | 50 55 54 20 4c 49 4e 45 |F THE IN|PUT LINE|
|00000520| 20 49 53 20 4e 4f 54 20 | 4e 55 4c 4c 2c 20 57 52 | IS NOT |NULL, WR|
|00000530| 49 54 45 20 49 54 20 54 | 4f 20 54 48 45 20 44 49 |ITE IT T|O THE DI|
|00000540| 53 4b 00 54 21 ea 01 8b | 4c 24 b3 b1 22 22 a7 98 |SK.T!...|L$..""..|
|00000550| 31 2c 4c 24 00 9c 21 f4 | 01 8f 20 49 46 20 49 4e |1,L$..!.|.. IF IN|
|00000560| 50 55 54 20 4c 49 4e 45 | 20 49 53 20 41 20 4e 55 |PUT LINE| IS A NU|
|00000570| 4c 4c 2c 20 45 4e 46 20 | 54 48 45 20 49 4e 50 55 |LL, ENF |THE INPU|
|00000580| 54 20 4f 46 20 44 41 54 | 41 20 41 4e 44 20 43 4c |T OF DAT|A AND CL|
|00000590| 4f 53 45 20 54 48 45 20 | 46 49 4c 45 00 ae 21 fe |OSE THE |FILE..!.|
|000005a0| 01 8b 4c 24 b2 22 22 a7 | fe 0f 23 31 3a 8e 00 cf |..L$."".|..#1:...|
|000005b0| 21 08 02 8f 20 41 44 44 | 20 4d 4f 52 45 20 4c 49 |!... ADD| MORE LI|
|000005c0| 4e 45 53 20 54 4f 20 54 | 48 45 20 46 49 4c 45 00 |NES TO T|HE FILE.|
|000005d0| d8 21 12 02 89 34 35 30 | 00 de 21 1c 02 8f 00 e4 |.!...450|..!.....|
|000005e0| 21 26 02 8f 00 ea 21 30 | 02 8f 00 12 22 3a 02 8f |!&....!0|....":..|
|000005f0| 20 54 48 49 53 20 53 55 | 42 52 4f 55 54 49 4e 45 | THIS SU|BROUTINE|
|00000600| 20 41 50 50 45 4e 44 53 | 20 53 45 51 20 46 49 4c | APPENDS| SEQ FIL|
|00000610| 45 53 00 18 22 44 02 8f | 00 3b 22 4e 02 8f 20 45 |ES.."D..|.;"N.. E|
|00000620| 4e 54 45 52 20 46 49 4c | 45 20 54 4f 20 42 45 20 |NTER FIL|E TO BE |
|00000630| 41 50 50 45 4e 44 45 44 | 20 54 4f 00 50 22 58 02 |APPENDED| TO.P"X.|
|00000640| 85 22 93 46 49 4c 45 20 | 4e 41 4d 45 22 3b 46 24 |.".FILE |NAME";F$|
|00000650| 00 73 22 62 02 8f 20 4f | 50 45 4e 20 54 48 45 20 |.s"b.. O|PEN THE |
|00000660| 46 49 4c 45 20 54 4f 20 | 42 45 20 41 50 50 45 4e |FILE TO |BE APPEN|
|00000670| 44 45 44 00 87 22 6c 02 | fe 0e 23 31 2c 28 46 24 |DED.."l.|..#1,(F$|
|00000680| 29 2c 44 30 2c 55 38 00 | a3 22 76 02 8f 20 43 48 |),D0,U8.|."v.. CH|
|00000690| 45 43 4b 20 46 4f 52 20 | 44 49 53 43 20 45 52 52 |ECK FOR |DISC ERR|
|000006a0| 4f 52 53 00 ad 22 80 02 | 8d 31 35 34 30 00 d0 22 |ORS.."..|.1540.."|
|000006b0| 8a 02 8f 20 53 45 54 20 | 49 4e 50 55 54 20 4c 49 |... SET |INPUT LI|
|000006c0| 4e 45 20 56 41 4c 55 45 | 20 54 4f 20 4e 55 4c 4c |NE VALUE| TO NULL|
|000006d0| 00 da 22 94 02 4c 24 b2 | 22 22 00 fc 22 9e 02 8f |.."..L$.|"".."...|
|000006e0| 20 49 4e 50 55 54 20 54 | 48 45 20 49 4e 46 4f 20 | INPUT T|HE INFO |
|000006f0| 46 4f 52 20 54 48 45 20 | 4c 49 4e 45 00 04 23 a8 |FOR THE |LINE..#.|
|00000700| 02 85 4c 24 00 40 23 b2 | 02 8f 20 49 46 20 54 48 |..L$.@#.|.. IF TH|
|00000710| 45 20 44 41 54 41 20 4c | 49 4e 45 20 49 53 20 4e |E DATA L|INE IS N|
|00000720| 4f 54 20 41 20 4e 55 4c | 4c 2c 20 41 50 50 45 4e |OT A NUL|L, APPEN|
|00000730| 44 20 49 54 20 54 4f 20 | 54 48 45 20 46 49 4c 45 |D IT TO |THE FILE|
|00000740| 00 52 23 bc 02 8b 4c 24 | b3 b1 22 22 a7 98 31 2c |.R#...L$|..""..1,|
|00000750| 4c 24 00 84 23 c6 02 8f | 20 49 46 20 54 48 45 20 |L$..#...| IF THE |
|00000760| 49 4e 50 55 54 20 4c 49 | 4e 45 20 49 53 20 41 20 |INPUT LI|NE IS A |
|00000770| 4e 55 4c 4c 2c 20 43 4c | 4f 53 45 20 54 48 45 20 |NULL, CL|OSE THE |
|00000780| 46 49 4c 45 00 96 23 d0 | 02 8b 4c 24 b2 22 22 a7 |FILE..#.|..L$."".|
|00000790| fe 0f 23 31 3a 8e 00 ab | 23 da 02 8f 20 41 44 44 |..#1:...|#... ADD|
|000007a0| 20 4d 4f 52 45 20 4c 49 | 4e 45 53 00 b4 23 e4 02 | MORE LI|NES..#..|
|000007b0| 89 36 36 30 00 ba 23 ee | 02 8f 00 c0 23 f8 02 8f |.660..#.|....#...|
|000007c0| 00 c6 23 02 03 8f 00 ed | 23 0c 03 8f 20 54 48 49 |..#.....|#... THI|
|000007d0| 53 20 53 55 42 52 4f 55 | 54 49 4e 45 20 45 44 49 |S SUBROU|TINE EDI|
|000007e0| 54 53 20 41 20 53 45 51 | 20 46 49 4c 45 00 f3 23 |TS A SEQ| FILE..#|
|000007f0| 16 03 8f 00 19 24 20 03 | 8f 20 45 4e 54 45 52 20 |.....$ .|. ENTER |
|00000800| 4e 41 4d 45 20 4f 46 20 | 46 49 4c 45 20 54 4f 20 |NAME OF |FILE TO |
|00000810| 42 45 20 45 44 49 54 45 | 44 00 2e 24 2a 03 85 22 |BE EDITE|D..$*.."|
|00000820| 93 46 49 4c 45 20 4e 41 | 4d 45 22 3b 46 24 00 42 |.FILE NA|ME";F$.B|
|00000830| 24 34 03 8f 20 4f 50 45 | 4e 20 54 48 45 20 46 49 |$4.. OPE|N THE FI|
|00000840| 4c 45 00 56 24 3e 03 fe | 0d 23 31 2c 28 46 24 29 |LE.V$>..|.#1,(F$)|
|00000850| 2c 44 30 2c 55 38 00 72 | 24 48 03 8f 20 43 48 45 |,D0,U8.r|$H.. CHE|
|00000860| 43 4b 20 46 4f 52 20 44 | 49 53 43 20 45 52 52 4f |CK FOR D|ISC ERRO|
|00000870| 52 53 00 7c 24 52 03 8d | 31 35 34 30 00 a9 24 5c |RS.|$R..|1540..$\|
|00000880| 03 8f 20 4f 50 45 4e 20 | 41 20 54 45 4d 50 4f 52 |.. OPEN |A TEMPOR|
|00000890| 41 52 59 20 46 49 4c 45 | 20 46 4f 52 20 54 48 45 |ARY FILE| FOR THE|
|000008a0| 20 4e 45 57 20 44 41 54 | 41 00 c0 24 66 03 fe 0d | NEW DAT|A..$f...|
|000008b0| 23 32 2c 22 54 45 4d 50 | 4f 52 41 52 59 22 2c 57 |#2,"TEMP|ORARY",W|
|000008c0| 00 dc 24 70 03 8f 20 43 | 48 45 43 4b 20 46 4f 52 |..$p.. C|HECK FOR|
|000008d0| 20 44 49 53 43 20 45 52 | 52 4f 52 53 00 e6 24 7a | DISC ER|RORS..$z|
|000008e0| 03 8d 31 35 34 30 00 fe | 24 84 03 8f 20 53 45 54 |..1540..|$... SET|
|000008f0| 20 4c 49 4e 45 53 20 54 | 4f 20 4e 55 4c 4c 00 0f | LINES T|O NULL..|
|00000900| 25 8e 03 4c 24 b2 22 22 | 3a 4c 4e 24 b2 22 22 00 |%..L$.""|:LN$."".|
|00000910| 26 25 98 03 8f 20 52 45 | 41 44 20 49 4e 20 4f 4c |&%... RE|AD IN OL|
|00000920| 44 20 4c 49 4e 45 00 30 | 25 a2 03 84 31 2c 4c 24 |D LINE.0|%...1,L$|
|00000930| 00 40 25 ac 03 8b 4c 24 | b2 22 22 a7 31 30 33 30 |.@%...L$|."".1030|
|00000940| 00 59 25 b6 03 8f 20 50 | 52 49 4e 54 20 54 48 45 |.Y%... P|RINT THE|
|00000950| 20 4f 4c 44 20 4c 49 4e | 45 00 66 25 c0 03 99 22 | OLD LIN|E.f%..."|
|00000960| 1d 1d 22 3b 4c 24 00 8d | 25 ca 03 8f 20 49 4e 50 |..";L$..|%... INP|
|00000970| 55 54 20 54 48 45 20 4e | 45 57 20 4c 49 4e 45 20 |UT THE N|EW LINE |
|00000980| 41 46 54 45 52 20 45 44 | 49 54 49 4e 47 00 9a 25 |AFTER ED|ITING..%|
|00000990| d4 03 85 22 91 22 3b 4c | 4e 24 00 c0 25 de 03 8f |...".";L|N$..%...|
|000009a0| 20 50 52 49 4e 54 20 54 | 48 45 20 4e 45 57 20 4c | PRINT T|HE NEW L|
|000009b0| 49 4e 45 20 54 4f 20 54 | 45 4d 50 20 46 49 4c 45 |INE TO T|EMP FILE|
|000009c0| 00 cb 25 e8 03 98 32 2c | 4c 4e 24 00 e5 25 f2 03 |..%...2,|LN$..%..|
|000009d0| 8f 20 4c 4f 4f 50 20 42 | 41 43 4b 20 54 4f 20 49 |. LOOP B|ACK TO I|
|000009e0| 4e 50 55 54 53 00 ee 25 | fc 03 89 39 31 30 00 05 |NPUTS..%|...910..|
|000009f0| 26 06 04 8f 20 43 4c 4f | 53 45 20 42 4f 54 48 20 |&... CLO|SE BOTH |
|00000a00| 46 49 4c 45 53 00 13 26 | 10 04 fe 0f 23 31 3a fe |FILES..&|....#1:.|
|00000a10| 0f 23 32 00 2e 26 1a 04 | 8f 20 53 43 52 41 54 43 |.#2..&..|. SCRATC|
|00000a20| 48 20 54 48 45 20 4f 4c | 44 20 46 49 4c 45 00 38 |H THE OL|D FILE.8|
|00000a30| 26 24 04 f2 28 46 24 29 | 00 4a 26 2e 04 8b 44 53 |&$..(F$)|.J&...DS|
|00000a40| b3 b1 31 a7 99 44 53 24 | 3a 90 00 75 26 38 04 8f |..1..DS$|:..u&8..|
|00000a50| 20 52 45 4e 41 4d 45 20 | 54 48 45 20 54 45 4d 50 | RENAME |THE TEMP|
|00000a60| 20 46 49 4c 45 20 54 4f | 20 54 48 45 20 4f 4c 44 | FILE TO| THE OLD|
|00000a70| 20 46 49 4c 45 00 8b 26 | 42 04 f5 22 54 45 4d 50 | FILE..&|B.."TEMP|
|00000a80| 4f 52 41 52 59 22 a4 28 | 46 24 29 00 a7 26 4c 04 |ORARY".(|F$)..&L.|
|00000a90| 8f 20 43 48 45 43 4b 20 | 46 4f 52 20 44 49 53 43 |. CHECK |FOR DISC|
|00000aa0| 20 45 52 52 4f 52 53 00 | b2 26 56 04 8d 20 31 35 | ERRORS.|.&V.. 15|
|00000ab0| 34 30 00 dc 26 60 04 8f | 20 49 46 20 4e 4f 20 45 |40..&`..| IF NO E|
|00000ac0| 52 52 4f 52 53 2c 20 53 | 43 52 41 54 43 48 20 54 |RRORS, S|CRATCH T|
|00000ad0| 48 45 20 54 45 4d 50 20 | 46 49 4c 45 00 ed 26 6a |HE TEMP |FILE..&j|
|00000ae0| 04 f2 22 54 45 4d 50 4f | 52 41 52 59 22 00 ff 26 |.."TEMPO|RARY"..&|
|00000af0| 74 04 8b 44 53 b3 b1 31 | a7 99 44 53 24 3a 90 00 |t..DS..1|..DS$:..|
|00000b00| 05 27 7e 04 8e 00 0b 27 | 88 04 8f 00 11 27 92 04 |.'~....'|.....'..|
|00000b10| 8f 00 17 27 9c 04 8f 00 | 44 27 a6 04 8f 20 54 48 |...'....|D'... TH|
|00000b20| 49 53 20 53 55 52 4f 55 | 54 49 4e 45 20 50 52 49 |IS SUROU|TINE PRI|
|00000b30| 4e 54 53 20 41 20 46 49 | 4c 45 53 20 43 4f 4e 54 |NTS A FI|LES CONT|
|00000b40| 45 4e 54 53 00 4a 27 b0 | 04 8f 00 5f 27 ba 04 85 |ENTS.J'.|..._'...|
|00000b50| 22 93 46 49 4c 45 20 4e | 41 4d 45 22 3b 46 24 00 |".FILE N|AME";F$.|
|00000b60| 79 27 c4 04 85 22 48 41 | 52 44 20 43 4f 50 59 20 |y'..."HA|RD COPY |
|00000b70| 28 59 2f 4e 29 22 3b 48 | 24 00 8a 27 ce 04 8b 48 |(Y/N)";H|$..'...H|
|00000b80| 24 b2 22 59 22 a7 9f 34 | 2c 34 00 98 27 d8 04 fe |$."Y"..4|,4..'...|
|00000b90| 0d 23 31 2c 28 46 24 29 | 00 a2 27 e2 04 8d 31 35 |.#1,(F$)|..'...15|
|00000ba0| 34 30 00 c1 27 ec 04 8f | 20 53 45 54 20 4c 49 4e |40..'...| SET LIN|
|00000bb0| 45 20 43 4f 55 4e 54 45 | 52 20 4c 49 20 54 4f 20 |E COUNTE|R LI TO |
|00000bc0| 30 00 ca 27 f6 04 4c 49 | b2 30 00 eb 27 00 05 8f |0..'..LI|.0..'...|
|00000bd0| 20 53 45 54 20 49 4e 50 | 55 54 20 56 41 52 49 41 | SET INP|UT VARIA|
|00000be0| 42 4c 45 20 54 4f 20 4e | 55 4c 4c 00 f5 27 0a 05 |BLE TO N|ULL..'..|
|00000bf0| 4c 24 b2 22 22 00 17 28 | 14 05 8f 20 49 4e 43 52 |L$.""..(|... INCR|
|00000c00| 45 4d 45 4e 54 20 4c 49 | 4e 45 20 43 4f 55 4e 54 |EMENT LI|NE COUNT|
|00000c10| 45 52 20 42 59 20 31 00 | 23 28 1e 05 4c 49 b2 4c |ER BY 1.|#(..LI.L|
|00000c20| 49 aa 31 00 3e 28 28 05 | 8f 20 49 4e 50 55 54 20 |I.1.>((.|. INPUT |
|00000c30| 4c 49 4e 45 20 46 52 4f | 4d 20 46 49 4c 45 00 48 |LINE FRO|M FILE.H|
|00000c40| 28 32 05 84 31 2c 4c 24 | 00 59 28 3c 05 8f 20 50 |(2..1,L$|.Y(<.. P|
|00000c50| 52 49 4e 54 20 4c 49 4e | 45 00 61 28 46 05 99 4c |RINT LIN|E.a(F..L|
|00000c60| 24 00 8e 28 50 05 8f 20 | 49 46 20 48 41 52 44 20 |$..(P.. |IF HARD |
|00000c70| 43 4f 50 59 20 57 41 4e | 54 45 44 2c 20 50 52 49 |COPY WAN|TED, PRI|
|00000c80| 4e 54 20 41 20 48 41 52 | 44 20 43 4f 50 59 00 a0 |NT A HAR|D COPY..|
|00000c90| 28 5a 05 8b 48 24 b2 22 | 59 22 a7 98 34 2c 4c 24 |(Z..H$."|Y"..4,L$|
|00000ca0| 00 e8 28 64 05 8f 20 53 | 54 4f 50 20 4f 55 54 50 |..(d.. S|TOP OUTP|
|00000cb0| 55 54 20 54 4f 20 53 43 | 52 45 45 4e 20 49 46 20 |UT TO SC|REEN IF |
|00000cc0| 32 30 20 4c 49 4e 45 53 | 20 48 41 56 45 20 42 45 |20 LINES| HAVE BE|
|00000cd0| 45 4e 20 50 52 49 4e 54 | 45 44 20 4f 55 54 20 54 |EN PRINT|ED OUT T|
|00000ce0| 4f 20 53 43 52 45 45 4e | 00 21 29 6e 05 8b 4c 49 |O SCREEN|.!)n..LI|
|00000cf0| b2 32 30 af 48 24 b2 22 | 4e 22 a7 99 22 12 48 49 |.20.H$."|N"..".HI|
|00000d00| 54 20 41 4e 59 20 4b 45 | 59 20 54 4f 20 43 4f 4e |T ANY KE|Y TO CON|
|00000d10| 54 49 4e 55 45 92 22 3a | a1 f9 41 24 3a 4c 49 b2 |TINUE.":|..A$:LI.|
|00000d20| 30 00 6d 29 78 05 8f 20 | 49 46 20 54 48 45 52 45 |0.m)x.. |IF THERE|
|00000d30| 20 49 53 20 4d 4f 52 45 | 20 49 4e 20 54 48 45 20 | IS MORE| IN THE |
|00000d40| 46 49 4c 45 20 28 53 54 | 3c 3e 36 34 29 20 54 48 |FILE (ST|<>64) TH|
|00000d50| 45 4e 20 47 4f 20 42 41 | 43 4b 20 41 4e 44 20 52 |EN GO BA|CK AND R|
|00000d60| 45 41 44 20 4d 4f 52 45 | 20 44 41 54 41 00 7f 29 |EAD MORE| DATA..)|
|00000d70| 82 05 8b 4c 24 b3 b1 22 | 22 a7 89 31 32 39 30 00 |...L$.."|"..1290.|
|00000d80| c3 29 8c 05 8f 20 49 46 | 20 54 48 45 20 45 4e 44 |.)... IF| THE END|
|00000d90| 20 4f 46 20 46 49 4c 45 | 20 48 41 53 20 42 45 45 | OF FILE| HAS BEE|
|00000da0| 4e 20 52 45 41 43 48 45 | 44 2c 20 54 41 4b 45 20 |N REACHE|D, TAKE |
|00000db0| 43 41 52 45 20 4f 46 20 | 43 4c 45 41 4e 49 4e 47 |CARE OF |CLEANING|
|00000dc0| 20 55 50 00 d8 29 96 05 | 8f 20 43 4c 4f 53 45 20 | UP..)..|. CLOSE |
|00000dd0| 54 48 45 20 46 49 4c 45 | 00 e1 29 a0 05 fe 0f 23 |THE FILE|..)....#|
|00000de0| 31 00 2c 2a aa 05 8f 20 | 43 4c 4f 53 45 20 50 52 |1.,*... |CLOSE PR|
|00000df0| 49 4e 54 45 52 20 43 48 | 41 4e 4e 45 4c 20 41 54 |INTER CH|ANNEL AT|
|00000e00| 20 54 48 45 20 45 4e 44 | 20 4f 46 20 54 48 45 20 | THE END| OF THE |
|00000e10| 46 49 4c 45 20 49 46 20 | 54 48 45 52 45 20 49 53 |FILE IF |THERE IS|
|00000e20| 20 41 20 48 41 52 44 20 | 43 4f 50 59 00 40 2a b4 | A HARD |COPY.@*.|
|00000e30| 05 8b 48 24 b2 22 59 22 | a7 98 34 3a a0 34 3a 8e |..H$."Y"|..4:.4:.|
|00000e40| 00 87 2a be 05 8f 20 57 | 41 49 54 20 46 4f 52 20 |..*... W|AIT FOR |
|00000e50| 54 48 45 20 55 53 45 52 | 20 54 4f 20 46 49 4e 49 |THE USER| TO FINI|
|00000e60| 53 48 20 52 45 41 44 49 | 4e 47 20 54 48 45 20 53 |SH READI|NG THE S|
|00000e70| 43 52 45 45 4e 20 41 4e | 44 20 54 48 45 4e 20 43 |CREEN AN|D THEN C|
|00000e80| 4f 4e 54 49 4e 55 45 00 | af 2a c8 05 99 22 12 48 |ONTINUE.|.*...".H|
|00000e90| 49 54 20 41 4e 59 20 4b | 45 59 20 54 4f 20 43 4f |IT ANY K|EY TO CO|
|00000ea0| 4e 54 49 4e 55 45 92 22 | 3a a1 f9 41 24 3a 8e 00 |NTINUE."|:..A$:..|
|00000eb0| b5 2a d2 05 8f 00 bb 2a | dc 05 8f 00 c1 2a e6 05 |.*.....*|.....*..|
|00000ec0| 8f 00 ee 2a f0 05 8f 20 | 54 48 49 53 20 53 55 42 |...*... |THIS SUB|
|00000ed0| 52 4f 55 54 49 4e 45 20 | 43 48 45 43 4b 53 20 46 |ROUTINE |CHECKS F|
|00000ee0| 4f 52 20 44 49 53 43 20 | 45 52 52 4f 52 53 00 f4 |OR DISC |ERRORS..|
|00000ef0| 2a fa 05 8f 00 05 2b 04 | 06 8b 44 53 b1 30 a7 99 |*.....+.|..DS.0..|
|00000f00| 44 53 24 3a 90 00 0b 2b | 0e 06 8e 00 11 2b 18 06 |DS$:...+|.....+..|
|00000f10| 8f 00 17 2b 22 06 8f 00 | 1d 2b 2c 06 8f 00 3e 2b |...+"...|.+,...>+|
|00000f20| 36 06 8f 20 54 48 49 53 | 20 53 55 42 52 4f 55 54 |6.. THIS| SUBROUT|
|00000f30| 49 4e 45 20 43 4c 4f 53 | 45 53 20 41 4e 59 00 5d |INE CLOS|ES ANY.]|
|00000f40| 2b 40 06 8f 20 4c 45 46 | 54 20 4f 56 45 52 20 46 |+@.. LEF|T OVER F|
|00000f50| 49 4c 45 53 20 41 4e 44 | 20 45 4e 44 53 00 63 2b |ILES AND| ENDS.c+|
|00000f60| 4a 06 8f 00 6c 2b 54 06 | fe 0f 3a 80 00 72 2b 5e |J...l+T.|..:..r+^|
|00000f70| 06 8f 00 78 2b 68 06 8f | 00 7e 2b 72 06 8f 00 a2 |...x+h..|.~+r....|
|00000f80| 2b 7c 06 8f 20 54 48 49 | 53 20 53 55 42 52 4f 55 |+|.. THI|S SUBROU|
|00000f90| 54 49 4e 45 20 41 4c 4c | 4f 57 53 20 41 20 46 49 |TINE ALL|OWS A FI|
|00000fa0| 4c 45 00 c1 2b 86 06 8f | 20 54 4f 20 42 45 20 53 |LE..+...| TO BE S|
|00000fb0| 43 52 41 54 43 48 45 44 | 20 46 52 4f 4d 20 54 48 |CRATCHED| FROM TH|
|00000fc0| 45 00 cf 2b 90 06 8f 20 | 50 52 4f 47 52 41 4d 00 |E..+... |PROGRAM.|
|00000fd0| d5 2b 9a 06 8f 00 eb 2b | a4 06 8f 20 45 4e 54 45 |.+.....+|... ENTE|
|00000fe0| 52 20 46 49 4c 45 20 4e | 41 4d 45 00 0b 2c ae 06 |R FILE N|AME..,..|
|00000ff0| 85 22 93 46 49 4c 45 20 | 54 4f 20 42 45 20 53 43 |.".FILE |TO BE SC|
|00001000| 52 41 54 43 48 45 44 22 | 3b 46 24 00 15 2c b8 06 |RATCHED"|;F$..,..|
|00001010| f2 28 46 24 29 00 32 2c | c2 06 8f 20 43 48 45 43 |.(F$).2,|... CHEC|
|00001020| 4b 20 46 4f 52 20 41 20 | 44 49 53 4b 20 45 52 52 |K FOR A |DISK ERR|
|00001030| 4f 52 00 44 2c cc 06 8b | 44 53 b3 b1 31 a7 99 44 |OR.D,...|DS..1..D|
|00001040| 53 24 3a 90 00 4a 2c d6 | 06 8e 00 00 00 1a 1a 1a |S$:..J,.|........|
|00001050| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001060| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001070| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
+--------+-------------------------+-------------------------+--------+--------+