/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C128Toolkit / CATALOGER

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 01 1c 28 1c 01 00 3a 3a | 3a 3a 3a 3a 3a 3a 3a 3a |..(...::|::::::::|
|00000010| 3a 3a 3a 3a 3a 3a 3a 3a | 3a 3a 3a 3a 3a 3a 3a 3a |::::::::|::::::::|
|00000020| 3a 3a 3a 3a 3a 3a 3a 3a | 00 2e 1c 02 00 3a 00 53 |::::::::|.....:.S|
|00000030| 1c 03 00 8f 20 20 20 20 | 20 20 20 20 20 20 20 20 |....    |        |
|00000040| 20 20 20 20 20 20 20 20 | 52 41 4e 44 4f 4d 20 46 |        |RANDOM F|
|00000050| 49 4c 45 00 59 1c 04 00 | 3a 00 81 1c 05 00 8f 20 |ILE.Y...|:...... |
|00000060| 54 52 41 50 20 32 30 30 | 30 30 20 20 20 20 52 45 |TRAP 200|00    RE|
|00000070| 4d 20 20 20 20 20 20 4f | 50 45 4e 20 45 52 52 4f |M      O|PEN ERRO|
|00000080| 52 00 9a 1c 06 00 8d 20 | 36 30 30 30 30 3a 20 8f |R...... |60000: .|
|00000090| 20 56 41 52 49 41 42 4c | 45 53 00 be 1c 07 00 e7 | VARIABL|ES......|
|000000a0| 20 35 2c 32 20 20 20 3a | 8f 20 41 53 53 55 4d 45 | 5,2   :|. ASSUME|
|000000b0| 53 20 54 45 58 54 20 47 | 52 50 48 49 43 53 00 c4 |S TEXT G|RPHICS..|
|000000c0| 1c 0a 00 e8 00 d8 1c 14 | 00 8d 20 31 34 30 30 30 |........|.. 14000|
|000000d0| 20 3a 8f 20 4f 50 45 4e | 00 ec 1c 1e 00 8d 20 35 | :. OPEN|...... 5|
|000000e0| 30 30 30 30 20 3a 8f 20 | 4d 45 4e 55 00 f3 1c 3c |0000 :. |MENU...<|
|000000f0| 00 fe 0f 00 f9 1c 63 00 | 80 00 10 1d 60 09 3a 8f |......c.|....`.:.|
|00000100| 20 46 4f 52 4d 41 54 54 | 45 44 20 45 4e 54 52 59 | FORMATT|ED ENTRY|
|00000110| 00 24 1d 6a 09 3a 81 20 | 58 b2 31 20 a4 20 46 49 |.$.j.:. |X.1 . FI|
|00000120| 45 4c 44 53 00 46 1d 74 | 09 3a 20 20 20 20 20 e0 |ELDS.F.t|.:     .|
|00000130| 20 2c 43 28 58 29 2c 52 | 28 58 29 2c 48 45 41 44 | ,C(X),R|(X),HEAD|
|00000140| 24 28 58 29 2c 31 00 4d | 1d 7e 09 3a 82 00 53 1d |$(X),1.M|.~.:..S.|
|00000150| 83 09 3a 00 5a 1d 88 09 | 3a 8e 00 77 1d c4 09 3a |..:.Z...|:..w...:|
|00000160| 8f 20 43 4c 45 41 52 20 | 50 52 45 56 49 4f 55 53 |. CLEAR |PREVIOUS|
|00000170| 20 46 49 45 4c 44 53 00 | 7d 1d c9 09 3a 00 91 1d | FIELDS.|}...:...|
|00000180| ce 09 3a 81 20 58 b2 31 | 20 a4 20 46 49 45 4c 44 |..:. X.1| . FIELD|
|00000190| 53 00 a5 1d d8 09 3a 20 | 20 20 20 20 41 24 28 58 |S.....: |    A$(X|
|000001a0| 29 b2 22 20 22 00 ac 1d | e2 09 3a 82 00 b2 1d e7 |)." "...|..:.....|
|000001b0| 09 3a 00 b9 1d ec 09 3a | 8e 00 e0 1d b8 0b 3a 3a |.:.....:|......::|
|000001c0| 3a 3a 3a 3a 3a 3a 3a 3a | 3a 3a 3a 3a 3a 3a 3a 3a |::::::::|::::::::|
|000001d0| 3a 3a 3a 3a 3a 3a 3a 3a | 3a 3a 3a 3a 3a 3a 3a 3a |::::::::|::::::::|
|000001e0| 00 e6 1d bd 0b e8 00 0b | 1e c2 0b 8f 20 20 20 20 |........|....    |
|000001f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 41 |        |       A|
|00000200| 44 44 20 41 20 52 45 43 | 4f 52 44 00 20 1e c4 0b |DD A REC|ORD. ...|
|00000210| 41 47 41 49 4e b2 ab 31 | 3a 46 52 53 54 b2 ab 31 |AGAIN..1|:FRST..1|
|00000220| 00 26 1e c7 0b 3a 00 36 | 1e cc 0b eb 20 fc 20 a8 |.&...:.6|.... . .|
|00000230| 20 41 47 41 49 4e 00 4a | 1e d1 0b 8b 20 46 52 53 | AGAIN.J|.... FRS|
|00000240| 54 20 a7 20 46 52 53 54 | b2 30 00 75 1e d2 0b 8d |T . FRST|.0.u....|
|00000250| 20 32 34 30 30 3a 8d 20 | 32 35 30 30 20 20 3a 8f | 2400:. |2500  :.|
|00000260| 20 53 48 4f 57 20 46 49 | 45 4c 44 53 2f 43 4c 52 | SHOW FI|ELDS/CLR|
|00000270| 20 44 41 54 41 00 94 1e | d6 0b 41 44 44 b2 ab 31 | DATA...|..ADD..1|
|00000280| 20 20 20 20 3a 20 20 8f | 20 20 20 20 41 44 44 20 |    :  .|    ADD |
|00000290| 46 4c 41 47 00 9a 1e e0 | 0b 3a 00 b7 1e ea 0b 3a |FLAG....|.:.....:|
|000002a0| 20 20 20 8d 34 30 30 30 | 3a 20 8f 20 20 20 49 4e |   .4000|: .   IN|
|000002b0| 50 55 54 20 52 54 4e 00 | bd 1e ec 0b 3a 00 ce 1e |PUT RTN.|....:...|
|000002c0| ef 0b 3a 20 20 8b 20 45 | 53 43 20 a7 20 ed 00 d4 |..:  . E|SC . ...|
|000002d0| 1e f4 0b 3a 00 f9 1e fe | 0b 3a 20 20 20 4e 52 b2 |...:....|.:   NR.|
|000002e0| 4e 52 aa 31 20 20 20 20 | 3a 20 8f 20 42 55 4d 50 |NR.1    |: . BUMP|
|000002f0| 23 20 4f 46 20 52 45 43 | 53 00 07 1f 12 0c 3a 20 |# OF REC|S.....: |
|00000300| 20 52 45 43 b2 4e 52 00 | 0d 1f 1c 0c 3a 00 2f 1f | REC.NR.|....:./.|
|00000310| 26 0c 3a 20 20 20 8d 20 | 31 32 30 30 30 3a 20 8f |&.:   . |12000: .|
|00000320| 20 20 20 57 52 49 54 45 | 20 52 45 43 4f 52 44 00 |   WRITE| RECORD.|
|00000330| 35 1f 2b 0c 3a 00 57 1f | 30 0c 3a 20 20 20 e0 20 |5.+.:.W.|0.:   . |
|00000340| 2c 30 2c 32 33 2c 45 4c | 24 aa 22 41 44 44 20 41 |,0,23,EL|$."ADD A|
|00000350| 4e 4f 54 48 45 52 22 00 | 64 1f 3a 0c 3a 20 20 20 |NOTHER".|d.:.:   |
|00000360| 85 20 59 24 00 6a 1f 3f | 0c 3a 00 9c 1f 44 0c 3a |. Y$.j.?|.:...D.:|
|00000370| 20 20 20 8b 20 d4 28 22 | d9 59 22 2c c8 28 59 24 |   . .("|.Y",.(Y$|
|00000380| 2c 31 29 29 20 b1 30 20 | a7 20 41 47 41 49 4e b2 |,1)) .0 |. AGAIN.|
|00000390| ab 31 3a d5 20 41 47 41 | 49 4e b2 30 00 a2 1f 4e |.1:. AGA|IN.0...N|
|000003a0| 0c ec 00 b7 1f 53 0c 45 | 53 43 b2 30 20 20 20 3a |.....S.E|SC.0   :|
|000003b0| 8f 20 43 4c 45 41 52 00 | bd 1f 58 0c 3a 00 c9 1f |. CLEAR.|..X.:...|
|000003c0| 5d 0c 41 44 44 45 44 b2 | 30 00 cf 1f 62 0c 8e 00 |].ADDED.|0...b...|
|000003d0| f6 1f 48 0d 3a 3a 3a 3a | 3a 3a 3a 3a 3a 3a 3a 3a |..H.::::|::::::::|
|000003e0| 3a 3a 3a 3a 3a 3a 3a 3a | 3a 3a 3a 3a 3a 3a 3a 3a |::::::::|::::::::|
|000003f0| 3a 3a 3a 3a 3a 3a 00 1b | 20 52 0d 8f 20 20 20 20 |::::::..| R..    |
|00000400| 20 20 20 20 20 20 20 20 | 20 20 20 20 43 48 41 4e |        |    CHAN|
|00000410| 47 45 20 41 20 52 45 43 | 4f 52 44 00 28 20 5c 0d |GE A REC|ORD.( \.|
|00000420| 41 47 41 49 4e b2 ab 31 | 00 2e 20 66 0d 3a 00 42 |AGAIN..1|.. f.:.B|
|00000430| 20 70 0d 3a 20 20 20 eb | 20 fc 20 a8 20 41 47 41 | p.:   .| . . AGA|
|00000440| 49 4e 00 4c 20 7a 0d 52 | 45 43 b2 30 00 66 20 84 |IN.L z.R|EC.0.f .|
|00000450| 0d 3a 20 20 eb 20 fc 20 | 52 45 43 b1 30 20 af 20 |.:  . . |REC.0 . |
|00000460| 52 45 43 b3 4e 52 00 81 | 20 8e 0d 3a 20 20 20 e8 |REC.NR..| ..:   .|
|00000470| 3a 85 22 52 45 43 4f 52 | 44 28 23 29 22 3b 52 45 |:."RECOR|D(#)";RE|
|00000480| 43 00 8b 20 98 0d 3a 20 | 20 20 ec 00 ac 20 9d 0d |C.. ..: |  ... ..|
|00000490| 3a 20 20 20 8d 20 33 35 | 30 30 20 20 20 20 20 3a |:   . 35|00     :|
|000004a0| 20 8f 20 20 45 44 49 54 | 20 52 45 43 00 ba 20 9f | .  EDIT| REC.. .|
|000004b0| 0d 8b 20 45 53 43 20 a7 | 20 ed 00 df 20 a2 0d 3a |.. ESC .| ... ..:|
|000004c0| 20 20 20 e0 20 2c 30 2c | 32 33 2c 45 4c 24 aa 22 |   . ,0,|23,EL$."|
|000004d0| 43 48 41 4e 47 45 20 41 | 4e 4f 54 48 45 52 22 00 |CHANGE A|NOTHER".|
|000004e0| eb 20 a3 0d 3a 20 20 20 | 85 59 24 00 1d 21 a4 0d |. ..:   |.Y$..!..|
|000004f0| 3a 20 20 20 8b 20 d4 28 | 22 d9 59 22 2c c8 28 59 |:   . .(|".Y",.(Y|
|00000500| 24 2c 31 29 29 20 b1 30 | 20 a7 20 41 47 41 49 4e |$,1)) .0| . AGAIN|
|00000510| b2 ab 31 3a d5 20 41 47 | 41 49 4e b2 30 00 23 21 |..1:. AG|AIN.0.#!|
|00000520| a6 0d ec 00 37 21 a7 0d | 45 53 43 b2 30 20 20 3a |....7!..|ESC.0  :|
|00000530| 8f 20 43 4c 45 41 52 00 | 3d 21 a8 0d 3a 00 43 21 |. CLEAR.|=!..:.C!|
|00000540| aa 0d 8e 00 6a 21 ac 0d | 3a 3a 3a 3a 3a 3a 3a 3a |....j!..|::::::::|
|00000550| 3a 3a 3a 3a 3a 3a 3a 3a | 3a 3a 3a 3a 3a 3a 3a 3a |::::::::|::::::::|
|00000560| 3a 3a 3a 3a 3a 3a 3a 3a | 3a 3a 00 8f 21 b6 0d 8f |::::::::|::..!...|
|00000570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000580| 20 20 45 44 49 54 20 41 | 20 52 45 43 4f 52 44 00 |  EDIT A| RECORD.|
|00000590| 95 21 c0 0d 3a 00 9b 21 | ca 0d 3a 00 b3 21 d4 0d |.!..:..!|..:..!..|
|000005a0| 8d 20 31 33 30 30 30 3a | 20 8f 20 52 45 41 44 20 |. 13000:| . READ |
|000005b0| 52 45 43 00 b9 21 de 0d | 3a 00 d3 21 e8 0d 8d 20 |REC..!..|:..!... |
|000005c0| 32 34 30 30 3a 20 8f 20 | 44 49 53 50 4c 59 20 44 |2400: . |DISPLY D|
|000005d0| 41 54 41 00 d9 21 f2 0d | 3a 00 ef 21 fc 0d 8d 34 |ATA..!..|:..!...4|
|000005e0| 30 30 30 3a 8f 20 49 4e | 50 55 54 20 52 54 4e 00 |000:. IN|PUT RTN.|
|000005f0| f5 21 fe 0d 3a 00 06 22 | 01 0e 8b 20 45 53 43 20 |.!..:.."|... ESC |
|00000600| a7 20 33 36 34 30 00 0c | 22 06 0e 3a 00 27 22 10 |. 3640..|"..:.'".|
|00000610| 0e 8d 31 32 30 30 30 3a | 8f 20 20 57 52 49 54 45 |..12000:|.  WRITE|
|00000620| 20 52 45 43 4f 52 44 00 | 2d 22 1a 0e 3a 00 33 22 | RECORD.|-"..:.3"|
|00000630| 24 0e 3a 00 39 22 2e 0e | 3a 00 3f 22 38 0e 8e 00 |$.:.9"..|:.?"8...|
|00000640| 66 22 d8 0e 3a 3a 3a 3a | 3a 3a 3a 3a 3a 3a 3a 3a |f"..::::|::::::::|
|00000650| 3a 3a 3a 3a 3a 3a 3a 3a | 3a 3a 3a 3a 3a 3a 3a 3a |::::::::|::::::::|
|00000660| 3a 3a 3a 3a 3a 3a 00 8b | 22 e2 0e 8f 20 20 20 20 |::::::..|"...    |
|00000670| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 44 |        |       D|
|00000680| 49 53 50 4c 41 59 20 44 | 41 54 41 00 91 22 ec 0e |ISPLAY D|ATA.."..|
|00000690| 3a 00 97 22 f1 0e e8 00 | ad 22 f6 0e 81 20 49 54 |:.."....|."... IT|
|000006a0| 45 4d b2 31 20 a4 20 46 | 49 45 4c 44 53 00 d7 22 |EM.1 . F|IELDS.."|
|000006b0| 00 0f 3a 20 20 e0 2c 30 | 2c 49 54 45 4d 2c 48 45 |..:  .,0|,ITEM,HE|
|000006c0| 41 44 24 28 49 54 45 4d | 29 aa 22 20 20 22 aa 41 |AD$(ITEM|)."  ".A|
|000006d0| 24 28 49 54 45 4d 29 00 | dd 22 0a 0f 82 00 e3 22 |$(ITEM).|."....."|
|000006e0| 14 0f 8e 00 01 23 a0 0f | 8f 20 3a 20 4f 56 45 52 |.....#..|. : OVER|
|000006f0| 41 4c 4c 20 49 4e 50 55 | 54 20 52 4f 55 54 49 4e |ALL INPU|T ROUTIN|
|00000700| 45 00 0e 23 aa 0f 3a 4f | 4b 24 b2 22 4e 22 00 1f |E..#..:O|K$."N"..|
|00000710| 23 b4 0f 3a eb 20 fd 20 | 4f 4b 24 b2 22 4e 22 00 |#..:. . |OK$."N".|
|00000720| 44 23 b9 0f 3a 20 20 20 | 8d 20 34 33 30 30 20 20 |D#..:   |. 4300  |
|00000730| 20 3a 8f 20 43 49 52 2f | 44 49 53 50 4c 41 59 20 | :. CIR/|DISPLAY |
|00000740| 44 41 54 41 00 59 23 ba | 0f 3a 20 20 20 49 54 45 |DATA.Y#.|.:   ITE|
|00000750| 4d b2 30 3a 45 53 43 b2 | 30 00 77 23 be 0f 3a 20 |M.0:ESC.|0.w#..: |
|00000760| 20 20 eb 20 fc 20 45 53 | 43 20 b0 20 49 54 45 4d |  . . ES|C . ITEM|
|00000770| b2 46 49 45 4c 44 53 00 | 8f 23 bf 0f 3a 20 20 20 |.FIELDS.|.#..:   |
|00000780| 20 20 20 20 49 54 45 4d | b2 49 54 45 4d aa 31 00 |    ITEM|.ITEM.1.|
|00000790| 95 23 c0 0f 3a 00 b8 23 | c3 0f 3a 20 20 20 20 20 |.#..:..#|..:     |
|000007a0| 20 20 4c 45 b2 4c 45 28 | 49 54 45 4d 29 20 20 3a |  LE.LE(|ITEM)  :|
|000007b0| 8f 20 4c 45 4e 47 54 48 | 00 e4 23 c4 0f 3a 20 20 |. LENGTH|..#..:  |
|000007c0| 20 20 20 20 20 56 b2 52 | 28 49 54 45 4d 29 aa 31 |     V.R|(ITEM).1|
|000007d0| 3a 48 b2 43 28 49 54 45 | 4d 29 3a 8f 20 52 4f 57 |:H.C(ITE|M):. ROW|
|000007e0| 2c 43 4f 4c 00 fe 23 c8 | 0f e0 20 2c 43 28 49 54 |,COL..#.|.. ,C(IT|
|000007f0| 45 4d 29 aa 32 30 2c 52 | 28 49 54 45 4d 29 00 21 |EM).20,R|(ITEM).!|
|00000800| 24 d2 0f 42 47 24 b2 41 | 24 28 49 54 45 4d 29 3a |$..BG$.A|$(ITEM):|
|00000810| 8f 20 42 41 43 4b 47 52 | 4f 55 4e 44 20 44 41 54 |. BACKGR|OUND DAT|
|00000820| 41 00 3d 24 dc 0f 8d 20 | 35 30 30 30 20 3a 8f 20 |A.=$... |5000 :. |
|00000830| 49 4e 50 55 54 20 52 4f | 55 54 49 4e 45 00 78 24 |INPUT RO|UTINE.x$|
|00000840| de 0f 3a 20 20 20 20 20 | 8b 20 49 4e 24 b1 22 20 |..:     |. IN$." |
|00000850| 22 a7 20 41 24 28 49 54 | 45 4d 29 b2 49 4e 24 3a |". A$(IT|EM).IN$:|
|00000860| d5 20 e0 20 2c 48 2c 56 | 2c 41 24 28 49 54 45 4d |. . ,H,V|,A$(ITEM|
|00000870| 29 aa 52 45 53 45 54 24 | 00 8c 24 e1 0f 3a 20 20 |).RESET$|..$..:  |
|00000880| 20 20 20 20 20 20 8d 20 | 34 35 30 30 00 97 24 e6 |      . |4500..$.|
|00000890| 0f 3a 20 20 20 20 ec 00 | aa 24 e8 0f 3a 20 20 20 |.:    ..|.$..:   |
|000008a0| 20 8b 20 45 53 43 20 a7 | 20 ed 00 ca 24 eb 0f 3a | . ESC .| ...$..:|
|000008b0| 20 20 20 20 8d 20 34 33 | 30 30 3a 20 8f 20 44 49 |    . 43|00: . DI|
|000008c0| 53 50 4c 41 59 20 44 41 | 54 41 00 db 24 f0 0f 3a |SPLAY DA|TA..$..:|
|000008d0| 20 20 20 20 e0 20 2c 30 | 2c 32 32 00 f4 24 fa 0f |    . ,0|,22..$..|
|000008e0| 3a 20 20 20 20 85 22 4f | 4b 3f 28 59 2f 4e 29 22 |:    ."O|K?(Y/N)"|
|000008f0| 3b 4f 4b 24 00 1a 25 04 | 10 3a 20 20 20 20 8b 20 |;OK$..%.|.:    . |
|00000900| d4 28 22 d9 59 22 2c c8 | 28 4f 4b 24 2c 31 29 29 |.(".Y",.|(OK$,1))|
|00000910| 20 a7 20 4f 4b 24 b2 22 | 59 22 00 20 25 0e 10 ec | . OK$."|Y". %...|
|00000920| 00 26 25 13 10 3a 00 2c | 25 18 10 8e 00 46 25 cc |.&%..:.,|%....F%.|
|00000930| 10 3a 20 8f 20 20 3a 43 | 4c 45 41 52 20 44 41 54 |.: .  :C|LEAR DAT|
|00000940| 41 20 52 54 4e 3a 00 4c | 25 d1 10 3a 00 63 25 d6 |A RTN:.L|%..:.c%.|
|00000950| 10 3a 81 20 49 54 45 4d | b2 31 20 a4 20 46 49 45 |.:. ITEM|.1 . FIE|
|00000960| 4c 44 53 00 7e 25 dd 10 | 3a 20 20 20 20 20 20 44 |LDS.~%..|:      D|
|00000970| 55 4d b2 c3 28 41 24 28 | 49 54 45 4d 29 29 00 a7 |UM..(A$(|ITEM))..|
|00000980| 25 e0 10 3a 20 20 20 20 | 20 20 e0 20 2c 43 28 49 |%..:    |  . ,C(I|
|00000990| 54 45 4d 29 2c 52 28 49 | 54 45 4d 29 aa 31 2c 41 |TEM),R(I|TEM).1,A|
|000009a0| 24 28 49 54 45 4d 29 00 | bd 25 e2 10 3a 20 20 20 |$(ITEM).|.%..:   |
|000009b0| 20 20 20 8b 20 41 44 44 | 20 a7 20 fe 18 00 f8 25 |   . ADD| . ....%|
|000009c0| e4 10 8b 20 41 44 44 20 | a7 20 e0 20 2c 43 28 49 |... ADD |. . ,C(I|
|000009d0| 54 45 4d 29 aa 44 55 4d | 2c 52 28 49 54 45 4d 29 |TEM).DUM|,R(ITEM)|
|000009e0| aa 31 2c c8 28 55 4c 49 | 4e 24 2c 4c 45 28 49 54 |.1,.(ULI|N$,LE(IT|
|000009f0| 45 4d 29 ab 44 55 4d 29 | 00 36 26 e7 10 8b 20 a8 |EM).DUM)|.6&... .|
|00000a00| 20 41 44 44 20 a7 20 e0 | 20 2c 43 28 49 54 45 4d | ADD . .| ,C(ITEM|
|00000a10| 29 aa 44 55 4d 2c 52 28 | 49 54 45 4d 29 aa 31 2c |).DUM,R(|ITEM).1,|
|00000a20| c8 28 53 50 41 43 45 24 | 2c 4c 45 28 49 54 45 4d |.(SPACE$|,LE(ITEM|
|00000a30| 29 ab 44 55 4d 29 00 41 | 26 e8 10 3a 20 20 20 fe |).DUM).A|&..:   .|
|00000a40| 19 00 47 26 e9 10 3a 00 | 4e 26 ea 10 3a 82 00 54 |..G&..:.|N&..:..T|
|00000a50| 26 ef 10 3a 00 5b 26 f4 | 10 3a 8e 00 8f 26 fe 10 |&..:.[&.|.:...&..|
|00000a60| 3a 20 20 20 20 20 20 e0 | 20 2c 30 2c 32 33 2c 22 |:      .| ,0,23,"|
|00000a70| 49 54 45 4d 20 54 4f 4f | 20 4c 4f 4e 47 2d 2d 50 |ITEM TOO| LONG--P|
|00000a80| 4c 45 41 53 45 20 52 45 | 2d 45 4e 54 45 52 22 00 |LEASE RE|-ENTER".|
|00000a90| a4 26 08 11 3a 20 20 20 | e0 2c 30 2c 49 54 45 4d |.&..:   |.,0,ITEM|
|00000aa0| 2c 45 4c 24 00 cb 26 12 | 11 3a 20 20 20 42 49 47 |,EL$..&.|.:   BIG|
|00000ab0| b2 ab 31 20 20 20 20 20 | 20 20 20 20 3a 8f 20 20 |..1     |    :.  |
|00000ac0| 20 20 20 20 20 20 20 52 | 45 44 4f 00 da 26 1c 11 |       R|EDO..&..|
|00000ad0| fe 19 3a d5 20 42 49 47 | b2 30 00 e0 26 26 11 8e |..:. BIG|.0..&&..|
|00000ae0| 00 e6 26 30 11 3a 00 0d | 27 94 11 3a 3a 3a 3a 3a |..&0.:..|'..:::::|
|00000af0| 3a 3a 3a 3a 3a 3a 3a 3a | 3a 3a 3a 3a 3a 3a 3a 3a |::::::::|::::::::|
|00000b00| 3a 3a 3a 3a 3a 3a 3a 3a | 3a 3a 3a 3a 3a 00 32 27 |::::::::|:::::.2'|
|00000b10| 9e 11 8f 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |...     |        |
|00000b20| 20 20 20 20 20 20 43 48 | 45 43 4b 20 4c 45 4e 47 |      CH|ECK LENG|
|00000b30| 54 48 00 38 27 a8 11 3a | 00 58 27 b2 11 8b 20 c3 |TH.8'..:|.X'... .|
|00000b40| 28 41 24 28 49 54 45 4d | 29 29 b1 4c 45 28 49 54 |(A$(ITEM|)).LE(IT|
|00000b50| 45 4d 29 20 a7 20 fe 18 | 00 6d 27 bc 11 3a 20 20 |EM) . ..|.m'..:  |
|00000b60| 20 20 20 20 fe 04 20 22 | 53 43 45 47 22 00 a2 27 |    .. "|SCEG"..'|
|00000b70| c6 11 3a 20 20 20 20 20 | 20 e0 2c 30 2c 32 33 2c |..:     | .,0,23,|
|00000b80| 22 49 54 45 4d 20 54 4f | 4f 20 4c 4f 4e 47 2d 2d |"ITEM TO|O LONG--|
|00000b90| 50 4c 45 41 53 45 20 52 | 45 2d 20 45 4e 54 45 52 |PLEASE R|E- ENTER|
|00000ba0| 21 22 00 b9 27 d0 11 3a | 20 20 20 20 20 20 e0 2c |!"..'..:|      .,|
|00000bb0| 30 2c 49 54 45 4d 2c 45 | 4c 00 e0 27 da 11 3a 20 |0,ITEM,E|L..'..: |
|00000bc0| 20 20 20 20 20 42 49 47 | b2 ab 31 20 20 20 3a 8f |     BIG|..1   :.|
|00000bd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 52 45 44 4f |        |    REDO|
|00000be0| 00 ef 27 e4 11 fe 19 3a | d5 20 42 49 47 b2 30 00 |..'....:|. BIG.0.|
|00000bf0| f5 27 ee 11 8e 00 fb 27 | f7 11 3a 00 22 28 88 13 |.'.....'|..:."(..|
|00000c00| 3a 3a 3a 3a 3a 3a 3a 3a | 3a 3a 3a 3a 3a 3a 3a 3a |::::::::|::::::::|
|00000c10| 3a 3a 3a 3a 3a 3a 3a 3a | 3a 3a 3a 3a 3a 3a 3a 3a |::::::::|::::::::|
|00000c20| 3a 3a 00 47 28 9c 13 8f | 20 20 20 20 20 20 20 20 |::.G(...|        |
|00000c30| 20 20 20 20 20 20 20 20 | 20 20 49 4e 50 55 54 20 |        |  INPUT |
|00000c40| 52 4f 55 54 49 4e 45 00 | 4d 28 b0 13 3a 00 58 28 |ROUTINE.|M(..:.X(|
|00000c50| ba 13 fe 05 20 32 35 35 | 00 7a 28 c4 13 8d 20 35 |.... 255|.z(... 5|
|00000c60| 39 30 30 20 20 20 20 20 | 20 20 20 20 20 3a 8f 20 |900     |     :. |
|00000c70| 43 4c 52 20 42 55 46 46 | 45 52 00 a1 28 d8 13 49 |CLR BUFF|ER..(..I|
|00000c80| 4e 24 b2 22 20 22 3a 43 | 48 24 b2 22 20 22 3a 42 |N$." ":C|H$." ":B|
|00000c90| 47 24 b2 22 20 22 3a 49 | 4e b2 30 3a 44 55 4e b2 |G$." ":I|N.0:DUN.|
|00000ca0| 30 00 a7 28 dd 13 3a 00 | bd 28 e2 13 8b 20 4c 45 |0..(..:.|.(... LE|
|00000cb0| b1 32 34 30 20 a7 20 4c | 45 b2 32 34 30 00 c3 28 |.240 . L|E.240..(|
|00000cc0| ec 13 3a 00 cf 28 00 14 | eb 20 fc 20 44 55 4e 00 |..:..(..|. . DUN.|
|00000cd0| f2 28 02 14 3a 20 e0 20 | 2c 48 2c 56 2c 43 41 53 |.(..: . |,H,V,CAS|
|00000ce0| 45 24 aa 49 4e 24 aa 43 | 53 52 24 aa 52 45 53 45 |E$.IN$.C|SR$.RESE|
|00000cf0| 54 24 00 0a 29 05 14 3a | 20 43 48 24 b2 22 22 3a |T$..)..:| CH$."":|
|00000d00| eb 20 fd 20 43 48 24 b2 | 22 22 00 28 29 0a 14 3a |. . CH$.|"".()..:|
|00000d10| 20 e0 20 2c 48 2c 56 2c | 43 41 53 45 24 aa 42 47 | . ,H,V,|CASE$.BG|
|00000d20| 24 aa 52 45 53 45 54 24 | 00 4b 29 0c 14 3a 20 e0 |$.RESET$|.K)..: .|
|00000d30| 20 2c 48 2c 56 2c 43 41 | 53 45 24 aa 49 4e 24 aa | ,H,V,CA|SE$.IN$.|
|00000d40| 43 53 52 24 aa 52 45 53 | 45 54 24 00 59 29 14 14 |CSR$.RES|ET$.Y)..|
|00000d50| 3a 20 a1 20 43 48 24 3a | ec 00 69 29 28 14 3a 20 |: . CH$:|..i)(.: |
|00000d60| 43 48 b2 c6 28 43 48 24 | 29 00 87 29 3c 14 3a 8d |CH..(CH$|)..)<.:.|
|00000d70| 20 35 34 30 30 20 20 20 | 20 20 20 3a 8f 20 20 20 | 5400   |   :.   |
|00000d80| 54 45 53 54 20 43 48 00 | 97 29 46 14 3a 20 8b 20 |TEST CH.|.)F.: . |
|00000d90| 44 55 4e 20 a7 20 ed 00 | 9d 29 50 14 3a 00 b8 29 |DUN . ..|.)P.:..)|
|00000da0| 5a 14 3a 20 8b 20 42 4b | 53 20 a7 20 42 4b 53 b2 |Z.: . BK|S . BKS.|
|00000db0| 30 3a 8d 20 35 39 35 30 | 00 fa 29 b4 14 3a 20 8b |0:. 5950|..)..: .|
|00000dc0| 20 49 4e 20 a7 20 49 4e | 24 b2 49 4e 24 aa 43 48 | IN . IN|$.IN$.CH|
|00000dd0| 24 3a 8b 20 a8 20 41 44 | 44 20 a7 20 42 47 24 b2 |$:. . AD|D . BG$.|
|00000de0| 49 4e 24 aa c8 28 55 4c | 49 4e 24 2c 4c 45 ab 4c |IN$..(UL|IN$,LE.L|
|00000df0| 4e aa 28 4c 45 b1 4c 4e | 29 29 00 00 2a 0e 15 ec |N.(LE.LN|))..*...|
|00000e00| 00 23 2a 10 15 3a 20 20 | e0 20 2c 48 2c 56 2c 43 |.#*..:  |. ,H,V,C|
|00000e10| 41 53 45 24 aa 49 4e 24 | aa 22 20 22 aa 52 45 53 |ASE$.IN$|." ".RES|
|00000e20| 45 54 24 00 29 2a 13 15 | 8e 00 2f 2a 18 15 3a 00 |ET$.)*..|../*..:.|
|00000e30| 4b 2a 22 15 44 55 4e b2 | 30 3a 49 4e b2 ab 31 3a |K*".DUN.|0:IN..1:|
|00000e40| 42 4b 53 b2 30 3a 45 53 | 43 b2 30 00 51 2a 27 15 |BKS.0:ES|C.0.Q*'.|
|00000e50| 3a 00 79 2a 2c 15 8f 20 | 20 20 20 20 20 20 20 20 |:.y*,.. |        |
|00000e60| 20 20 20 20 20 20 20 20 | 20 20 20 54 45 53 54 20 |        |   TEST |
|00000e70| 43 48 41 52 41 43 54 45 | 52 00 92 2a 36 15 4c 4e |CHARACTE|R..*6.LN|
|00000e80| b2 c3 28 49 4e 24 29 3a | 20 8f 20 43 55 52 20 4c |..(IN$):| . CUR L|
|00000e90| 45 4e 00 bb 2a 40 15 8b | 20 43 48 b2 31 33 a7 20 |EN..*@..| CH.13. |
|00000ea0| 44 55 4e b2 ab 31 3a 49 | 4e b2 30 3a 8d 20 35 38 |DUN..1:I|N.0:. 58|
|00000eb0| 30 30 3a 20 20 20 20 8f | 20 43 52 00 e4 2a 54 15 |00:    .| CR..*T.|
|00000ec0| 8b 20 43 48 b2 32 37 20 | a7 20 44 55 4e b2 ab 31 |. CH.27 |. DUN..1|
|00000ed0| 3a 49 4e b2 30 3a 45 53 | 43 b2 ab 31 3a 8f 20 20 |:IN.0:ES|C..1:.  |
|00000ee0| 20 45 53 43 00 2b 2b 68 | 15 8b 20 28 43 48 b1 31 | ESC.++h|.. (CH.1|
|00000ef0| 34 34 20 af 20 43 48 b3 | 31 34 39 29 20 b0 20 43 |44 . CH.|149) . C|
|00000f00| 48 b2 31 35 37 20 b0 20 | 43 48 b2 39 35 20 b0 20 |H.157 . |CH.95 . |
|00000f10| 28 43 48 b3 33 32 29 20 | a7 20 42 4b 53 b2 ab 31 |(CH.32) |. BKS..1|
|00000f20| 3a 49 4e b2 30 3a 89 35 | 35 33 30 00 58 2b 7c 15 |:IN.0:.5|530.X+|.|
|00000f30| 8b 20 43 48 b1 39 36 20 | a7 20 43 48 b2 43 48 ab |. CH.96 |. CH.CH.|
|00000f40| 31 32 38 3a 43 48 24 b2 | c7 28 43 48 29 3a 20 20 |128:CH$.|.(CH):  |
|00000f50| 20 20 89 20 35 35 32 30 | 00 8c 2b 81 15 8b 20 4e |  . 5520|..+... N|
|00000f60| 4d 42 52 20 af 20 28 43 | 48 b1 35 37 20 b0 20 43 |MBR . (C|H.57 . C|
|00000f70| 48 b3 34 35 29 20 a7 20 | fe 04 20 42 4c 45 45 50 |H.45) . |.. BLEEP|
|00000f80| 24 3a 49 4e b2 30 3a 89 | 35 35 33 30 00 aa 2b 90 |$:IN.0:.|5530..+.|
|00000f90| 15 8b 20 4c 4e b2 b1 4c | 45 20 a7 20 fe 04 20 42 |.. LN..L|E . .. B|
|00000fa0| 4c 45 45 50 24 3a 49 4e | b2 30 00 b0 2b 9a 15 8e |LEEP$:IN|.0..+...|
|00000fb0| 00 be 2b e0 15 43 54 52 | b2 43 54 52 aa 31 00 c8 |..+..CTR|.CTR.1..|
|00000fc0| 2b e5 15 fe 05 31 30 30 | 00 e3 2b ea 15 fe 04 22 |+....100|..+...."|
|00000fd0| 4f 32 22 aa ca 28 4d 55 | 53 49 43 24 2c 43 54 52 |O2"..(MU|SIC$,CTR|
|00000fe0| 2c 31 29 00 f9 2b f4 15 | 8b 20 43 54 52 b2 4c 4d |,1)..+..|. CTR.LM|
|00000ff0| 54 20 a7 20 43 54 52 b2 | 30 00 04 2c f9 15 fe 05 |T . CTR.|0..,....|
|00001000| 20 32 35 35 00 0a 2c fe | 15 8e 00 31 2c 44 16 3a | 255..,.|...1,D.:|
|00001010| 3a 3a 3a 3a 3a 3a 3a 3a | 3a 3a 3a 3a 3a 3a 3a 3a |::::::::|::::::::|
|00001020| 3a 3a 3a 3a 3a 3a 3a 3a | 3a 3a 3a 3a 3a 3a 3a 3a |::::::::|::::::::|
|00001030| 3a 00 56 2c 4e 16 8f 20 | 20 20 20 20 20 20 20 20 |:.V,N.. |        |
|00001040| 20 20 20 20 20 20 20 20 | 20 20 44 49 53 50 4c 41 |        |  DISPLA|
|00001050| 59 20 54 49 4d 45 00 8a | 2c 58 16 e0 20 2c 30 2c |Y TIME..|,X.. ,0,|
|00001060| 32 34 2c c8 28 54 49 24 | 2c 32 29 aa 22 3a 22 aa |24,.(TI$|,2).":".|
|00001070| ca 28 54 49 24 2c 33 2c | 32 29 20 20 20 aa 22 3a |.(TI$,3,|2)   .":|
|00001080| 22 aa c9 28 54 49 24 2c | 32 29 00 90 2c 62 16 8e |"..(TI$,|2)..,b..|
|00001090| 00 b7 2c a8 16 3a 3a 3a | 3a 3a 3a 3a 3a 3a 3a 3a |..,..:::|::::::::|
|000010a0| 3a 3a 3a 3a 3a 3a 3a 3a | 3a 3a 3a 3a 3a 3a 3a 3a |::::::::|::::::::|
|000010b0| 3a 3a 3a 3a 3a 3a 3a 00 | dc 2c ad 16 8f 20 20 20 |:::::::.|.,...   |
|000010c0| 20 20 20 20 20 20 20 43 | 4c 45 41 52 20 54 4f 20 |       C|LEAR TO |
|000010d0| 45 4e 44 20 4f 46 20 46 | 49 45 4c 44 00 0d 2d b2 |END OF F|IELD..-.|
|000010e0| 16 3a 20 20 e0 20 2c 48 | 2c 56 2c 43 41 53 45 24 |.:  . ,H|,V,CASE$|
|000010f0| aa 49 4e 24 aa c8 28 53 | 50 41 43 45 24 2c 20 20 |.IN$..(S|PACE$,  |
|00001100| 4c 45 ab 4c 4e 29 aa 52 | 45 53 45 54 24 00 13 2d |LE.LN).R|ESET$..-|
|00001110| bc 16 3a 00 19 2d c6 16 | 8e 00 1f 2d 0c 17 3a 00 |..:..-..|...-..:.|
|00001120| 3d 2d 11 17 8f 20 20 20 | 20 20 20 20 20 20 20 20 |=-...   |        |
|00001130| 20 43 4c 45 41 52 20 42 | 55 46 46 45 52 00 54 2d | CLEAR B|UFFER.T-|
|00001140| 16 17 81 5a 5a b2 20 31 | 20 a4 20 38 3a a1 20 43 |...ZZ. 1| . 8:. C|
|00001150| 48 24 3a 82 00 5a 2d 20 | 17 8e 00 60 2d 3e 17 3a |H$:..Z- |...`->.:|
|00001160| 00 7f 2d 48 17 3a 8f 20 | 20 20 20 20 20 20 20 20 |..-H.:. |        |
|00001170| 20 20 42 41 43 4b 53 50 | 41 43 45 20 52 54 4e 00 |  BACKSP|ACE RTN.|
|00001180| b7 2d 52 17 8b 20 4c 4e | b2 30 20 a7 20 fe 05 20 |.-R.. LN|.0 . .. |
|00001190| 32 35 35 3a fe 04 22 53 | 20 56 31 4f 35 20 43 20 |255:.."S| V1O5 C |
|000011a0| 56 32 30 36 20 20 20 20 | 43 20 56 33 4f 34 43 22 |V206    |C V3O4C"|
|000011b0| 3a 89 20 35 39 39 35 00 | cb 2d 5c 17 49 4e 24 b2 |:. 5995.|.-\.IN$.|
|000011c0| c8 28 49 4e 24 2c 4c 4e | ab 31 29 00 d1 2d 6b 17 |.(IN$,LN|.1)..-k.|
|000011d0| 8e 00 f8 2d e0 2e 3a 3a | 3a 3a 3a 3a 3a 3a 3a 3a |...-..::|::::::::|
|000011e0| 3a 3a 3a 3a 3a 3a 3a 3a | 3a 3a 3a 3a 3a 3a 3a 3a |::::::::|::::::::|
|000011f0| 3a 3a 3a 3a 3a 3a 3a 3a | 00 1d 2e ea 2e 8f 20 20 |::::::::|......  |
|00001200| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001210| 57 52 49 54 45 20 54 4f | 20 46 49 4c 45 00 2c 2e |WRITE TO| FILE.,.|
|00001220| ef 2e 52 43 52 44 b2 52 | 45 43 aa 31 00 32 2e f4 |..RCRD.R|EC.1.2..|
|00001230| 2e 3a 00 40 2e fe 2e fe | 12 23 31 2c 52 43 52 44 |.:.@....|.#1,RCRD|
|00001240| 00 56 2e 08 2f 81 20 49 | 54 45 4d b2 31 20 a4 20 |.V../. I|TEM.1 . |
|00001250| 46 49 45 4c 44 53 00 74 | 2e 0d 2f 3a 20 20 20 fe |FIELDS.t|../:   .|
|00001260| 12 23 31 2c 52 43 52 44 | 2c 50 4c 41 43 45 28 49 |.#1,RCRD|,PLACE(I|
|00001270| 54 45 4d 29 00 88 2e 10 | 2f 3a 20 20 20 98 31 2c |TEM)....|/:   .1,|
|00001280| 41 24 28 49 54 45 4d 29 | 00 8e 2e 12 2f 3a 00 94 |A$(ITEM)|..../:..|
|00001290| 2e 30 2f 82 00 aa 2e 3a | 2f 8b 20 41 44 44 45 44 |.0/....:|/. ADDED|
|000012a0| 20 a7 20 8d 20 31 32 33 | 30 30 00 b0 2e 43 2f 8e | . . 123|00...C/.|
|000012b0| 00 d7 2e 0c 30 3a 3a 3a | 3a 3a 3a 3a 3a 3a 3a 3a |....0:::|::::::::|
|000012c0| 3a 3a 3a 3a 3a 3a 3a 3a | 3a 3a 3a 3a 3a 3a 3a 3a |::::::::|::::::::|
|000012d0| 3a 3a 3a 3a 3a 3a 3a 00 | fd 2e 11 30 3a 8f 20 20 |:::::::.|...0:.  |
|000012e0| 20 20 20 20 20 20 20 20 | 20 20 20 57 52 49 54 45 |        |   WRITE|
|000012f0| 20 23 20 4f 46 20 52 45 | 43 4f 52 44 53 00 03 2f | # OF RE|CORDS../|
|00001300| 16 30 3a 00 15 2f 20 30 | fe 12 23 31 2c 31 3a fe |.0:../ 0|..#1,1:.|
|00001310| 12 23 31 2c 31 00 1b 2f | 2a 30 3a 00 25 2f 34 30 |.#1,1../|*0:.%/40|
|00001320| 98 31 2c 4e 52 00 2b 2f | 3e 30 3a 00 31 2f 48 30 |.1,NR.+/|>0:.1/H0|
|00001330| 8e 00 58 2f c8 32 3a 3a | 3a 3a 3a 3a 3a 3a 3a 3a |..X/.2::|::::::::|
|00001340| 3a 3a 3a 3a 3a 3a 3a 3a | 3a 3a 3a 3a 3a 3a 3a 3a |::::::::|::::::::|
|00001350| 3a 3a 3a 3a 3a 3a 3a 3a | 00 7d 2f d2 32 8f 20 20 |::::::::|.}/.2.  |
|00001360| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 52 |        |       R|
|00001370| 45 41 44 20 46 4f 52 4d | 20 46 49 4c 45 00 8c 2f |EAD FORM| FILE../|
|00001380| d7 32 52 43 52 44 b2 52 | 45 43 aa 31 00 92 2f dc |.2RCRD.R|EC.1../.|
|00001390| 32 3a 00 a0 2f e6 32 fe | 12 23 31 2c 52 43 52 44 |2:../.2.|.#1,RCRD|
|000013a0| 00 b5 2f f0 32 81 20 49 | 54 45 4d b2 31 a4 20 46 |../.2. I|TEM.1. F|
|000013b0| 49 45 4c 44 53 00 d3 2f | f5 32 3a 20 20 20 fe 12 |IELDS../|.2:   ..|
|000013c0| 23 31 2c 52 43 52 44 2c | 50 4c 41 43 45 28 49 54 |#1,RCRD,|PLACE(IT|
|000013d0| 45 4d 29 00 e7 2f f8 32 | 3a 20 20 20 84 31 2c 41 |EM)../.2|:   .1,A|
|000013e0| 24 28 49 54 45 4d 29 00 | ed 2f fa 32 3a 00 f3 2f |$(ITEM).|./.2:../|
|000013f0| 18 33 82 00 f9 2f f3 33 | 8e 00 20 30 b0 36 3a 3a |.3.../.3|.. 0.6::|
|00001400| 3a 3a 3a 3a 3a 3a 3a 3a | 3a 3a 3a 3a 3a 3a 3a 3a |::::::::|::::::::|
|00001410| 3a 3a 3a 3a 3a 3a 3a 3a | 3a 3a 3a 3a 3a 3a 3a 3a |::::::::|::::::::|
|00001420| 00 45 30 ba 36 8f 20 20 | 20 20 20 20 20 20 20 20 |.E0.6.  |        |
|00001430| 20 20 20 20 20 20 20 20 | 20 20 4e 4f 52 4d 41 4e |        |  NORMAN|
|00001440| 20 4f 50 45 4e 00 4b 30 | c4 36 3a 00 62 30 ce 36 | OPEN.K0|.6:.b0.6|
|00001450| fe 0d 23 31 2c 28 46 49 | 4c 45 24 29 2c 4c 28 4c |..#1,(FI|LE$),L(L|
|00001460| 52 29 00 68 30 d0 36 3a | 00 8b 30 d3 36 52 43 52 |R).h0.6:|..0.6RCR|
|00001470| 44 b2 32 35 36 ad 4c 52 | aa 31 3a 20 20 20 8f 20 |D.256.LR|.1:   . |
|00001480| 4e 45 58 54 20 53 45 43 | 54 4f 52 00 91 30 d5 36 |NEXT SEC|TOR..0.6|
|00001490| 3a 00 aa 30 d8 36 fe 12 | 23 31 2c 52 43 52 44 3a |:..0.6..|#1,RCRD:|
|000014a0| fe 12 20 23 31 2c 52 43 | 52 44 00 b0 30 e2 36 3a |.. #1,RC|RD..0.6:|
|000014b0| 00 dc 30 ec 36 8b 20 44 | 53 b2 35 30 20 a7 20 8d |..0.6. D|S.50 . .|
|000014c0| 20 31 34 31 30 30 3a e8 | 20 3a 20 8f 20 43 52 45 | 14100:.| : . CRE|
|000014d0| 41 54 45 20 4e 45 57 20 | 46 49 4c 45 00 e2 30 f1 |ATE NEW |FILE..0.|
|000014e0| 36 3a 00 00 31 f6 36 fe | 12 23 31 2c 31 3a fe 12 |6:..1.6.|.#1,1:..|
|000014f0| 23 31 2c 31 3a 8f 20 23 | 20 4f 46 20 52 45 43 53 |#1,1:. #| OF RECS|
|00001500| 00 06 31 fb 36 3a 00 10 | 31 00 37 84 31 2c 4e 52 |..1.6:..|1.7.1,NR|
|00001510| 00 16 31 13 37 8e 00 3d | 31 14 37 3a 3a 3a 3a 3a |..1.7..=|1.7:::::|
|00001520| 3a 3a 3a 3a 3a 3a 3a 3a | 3a 3a 3a 3a 3a 3a 3a 3a |::::::::|::::::::|
|00001530| 3a 3a 3a 3a 3a 3a 3a 3a | 3a 3a 3a 3a 3a 00 62 31 |::::::::|:::::.b1|
|00001540| 1e 37 8f 20 20 20 20 20 | 20 20 20 20 20 20 20 43 |.7.     |       C|
|00001550| 52 45 41 54 45 20 49 46 | 20 4e 4f 54 20 45 58 49 |REATE IF| NOT EXI|
|00001560| 53 54 00 68 31 28 37 3a | 00 94 31 2d 37 e8 3a e0 |ST.h1(7:|..1-7.:.|
|00001570| 20 2c 31 2c 31 32 2c 22 | 43 52 45 41 54 49 4e 47 | ,1,12,"|CREATING|
|00001580| 20 54 48 45 20 22 aa 46 | 49 4c 45 24 aa 22 20 46 | THE ".F|ILE$." F|
|00001590| 49 4c 45 22 00 bc 31 32 | 37 fe 12 23 31 2c 31 30 |ILE"..12|7..#1,10|
|000015a0| 30 3a fe 12 23 31 2c 31 | 30 30 3a 20 20 20 20 8f |0:..#1,1|00:    .|
|000015b0| 20 31 30 30 20 52 45 43 | 4f 52 44 53 00 d9 31 3c | 100 REC|ORDS..1<|
|000015c0| 37 98 31 2c c7 28 32 35 | 35 29 3a 20 8f 20 4e 55 |7.1,.(25|5): . NU|
|000015d0| 4c 4c 20 52 45 43 4f 52 | 44 00 f7 31 41 37 fe 12 |LL RECOR|D..1A7..|
|000015e0| 23 31 2c 31 3a fe 12 23 | 31 2c 31 3a 8f 20 23 20 |#1,1:..#|1,1:. # |
|000015f0| 4f 46 20 52 45 43 53 00 | 11 32 44 37 98 31 2c 30 |OF RECS.|.2D7.1,0|
|00001600| 3a 20 20 8f 20 4e 4f 20 | 52 43 52 44 53 20 59 45 |:  . NO |RCRDS YE|
|00001610| 54 00 1a 32 46 37 fe 0f | 23 31 00 31 32 50 37 fe |T..2F7..|#1.12P7.|
|00001620| 0d 23 31 2c 28 46 49 4c | 45 24 29 2c 4c 28 4c 52 |.#1,(FIL|E$),L(LR|
|00001630| 29 00 37 32 77 37 8e 00 | 55 32 50 c3 3a 20 8f 20 |).72w7..|U2P.: . |
|00001640| 4d 45 4e 55 20 55 53 49 | 4e 47 20 4f 4e 2e 2e 2e |MENU USI|NG ON...|
|00001650| 47 4f 53 55 42 00 74 32 | 51 c3 3a 20 87 20 4e 44 |GOSUB.t2|Q.: . ND|
|00001660| 45 58 24 20 3a 8f 20 49 | 4e 44 45 58 20 54 4f 20 |EX$ :. I|NDEX TO |
|00001670| 4b 45 59 53 00 92 32 52 | c3 3a 20 eb 20 fd 20 53 |KEYS..2R|.: . . S|
|00001680| 45 4c 45 43 54 24 28 43 | 54 52 29 b3 b1 22 23 23 |ELECT$(C|TR).."##|
|00001690| 23 22 00 a5 32 53 c3 3a | 20 20 20 20 43 54 52 b2 |#"..2S.:|    CTR.|
|000016a0| 43 54 52 aa 31 00 cf 32 | 55 c3 3a 20 20 20 20 87 |CTR.1..2|U.:    .|
|000016b0| 20 43 4f 4c 28 43 54 52 | 29 2c 52 4f 57 28 43 54 | COL(CTR|),ROW(CT|
|000016c0| 52 29 2c 53 45 4c 45 43 | 54 24 28 43 54 52 29 00 |R),SELEC|T$(CTR).|
|000016d0| d7 32 56 c3 3a 20 ec 00 | f5 32 57 c3 3a 4e 4f b2 |.2V.: ..|.2W.:NO.|
|000016e0| 43 54 52 ab 31 20 3a 8f | 20 4e 42 52 20 4f 46 20 |CTR.1 :.| NBR OF |
|000016f0| 49 54 45 4d 53 00 03 33 | 59 c3 3a 20 eb 20 fc 20 |ITEMS..3|Y.: . . |
|00001700| 45 53 43 00 28 33 5a c3 | 3a 20 20 e8 3a 8d 20 35 |ESC.(3Z.|:  .:. 5|
|00001710| 32 30 30 30 20 20 20 20 | 20 3a 8f 20 44 49 53 50 |2000    | :. DISP|
|00001720| 4c 41 59 20 46 55 4c 4c | 00 40 33 5c c3 3a 20 20 |LAY FULL|.@3\.:  |
|00001730| 43 48 4f 49 43 45 b2 31 | 3a 4c 41 53 54 b2 4e 4f |CHOICE.1|:LAST.NO|
|00001740| 00 62 33 5f c3 3a 20 20 | 8d 20 35 34 30 30 30 20 |.b3_.:  |. 54000 |
|00001750| 3a 8f 20 44 49 53 50 4c | 41 59 20 48 49 47 48 4c |:. DISPL|AY HIGHL|
|00001760| 47 54 00 78 33 61 c3 3a | 20 20 52 45 54 52 4e 20 |GT.x3a.:|  RETRN |
|00001770| b2 30 3a 45 53 43 b2 30 | 00 8f 33 64 c3 3a 20 20 |.0:ESC.0|..3d.:  |
|00001780| eb 20 fc 20 52 45 54 52 | 4e 20 b0 20 45 53 43 00 |. . RETR|N . ESC.|
|00001790| ab 33 6e c3 3a 20 20 20 | 20 8d 20 35 33 30 30 30 |.3n.:   | . 53000|
|000017a0| 20 3a 8f 20 47 45 54 20 | 4b 45 59 00 cf 33 78 c3 | :. GET |KEY..3x.|
|000017b0| 3a 20 20 20 20 8d 20 35 | 34 30 30 30 20 3a 8f 20 |:    . 5|4000 :. |
|000017c0| 44 49 53 50 4c 41 59 20 | 50 41 52 54 49 41 4c 00 |DISPLAY |PARTIAL.|
|000017d0| d8 33 82 c3 3a 20 20 ec | 00 e4 33 af c3 e0 20 2c |.3..:  .|..3... ,|
|000017e0| 30 2c 32 32 00 01 34 b4 | c3 3a 20 20 20 91 20 43 |0,22..4.|.:   . C|
|000017f0| 48 4f 49 43 45 20 8d 20 | 33 30 30 30 2c 33 34 30 |HOICE . |3000,340|
|00001800| 30 00 1c 34 d4 c3 3a 20 | 20 8b 20 43 48 4f 49 43 |0..4..: | . CHOIC|
|00001810| 45 20 b2 33 20 a7 20 45 | 53 43 b2 31 00 43 34 d5 |E .3 . E|SC.1.C4.|
|00001820| c3 3a 3a 3a 3a 3a 3a 3a | 3a 3a 3a 3a 3a 3a 3a 3a |.:::::::|::::::::|
|00001830| 3a 3a 3a 3a 3a 3a 3a 3a | 3a 3a 3a 3a 3a 3a 3a 3a |::::::::|::::::::|
|00001840| 3a 3a 3a 00 49 34 d7 c3 | ec 00 56 34 dc c3 99 3a |:::.I4..|..V4...:|
|00001850| 99 22 42 59 45 21 00 75 | 34 e6 c3 8e 20 20 3a 8f |."BYE!.u|4...  :.|
|00001860| 20 52 45 54 55 52 4e 20 | 54 4f 20 43 4c 4f 53 45 | RETURN |TO CLOSE|
|00001870| 20 46 49 4c 45 00 7b 34 | f0 c3 3a 00 97 34 20 cb | FILE.{4|..:..4 .|
|00001880| 3a 20 8f 20 44 49 53 50 | 4c 41 59 20 41 4c 4c 20 |: . DISP|LAY ALL |
|00001890| 4f 50 54 49 4f 4e 53 00 | 9d 34 2a cb 3a 00 af 34 |OPTIONS.|.4*.:..4|
|000018a0| 34 cb 3a 81 20 43 54 52 | b2 31 20 a4 20 4e 4f 00 |4.:. CTR|.1 . NO.|
|000018b0| d7 34 3e cb e0 20 2c 43 | 4f 4c 28 43 54 52 29 2c |.4>.. ,C|OL(CTR),|
|000018c0| 52 4f 57 28 43 54 52 29 | 2c 53 45 4c 45 43 54 24 |ROW(CTR)|,SELECT$|
|000018d0| 28 43 54 52 29 2c 30 00 | dd 34 48 cb 82 00 e3 34 |(CTR),0.|.4H....4|
|000018e0| 52 cb 8e 00 e9 34 5c cb | 3a 00 fb 34 08 cf 3a 20 |R....4\.|:..4..: |
|000018f0| 8f 20 20 4b 45 59 50 52 | 45 53 53 00 0c 35 0d cf |.  KEYPR|ESS..5..|
|00001900| 3a 4c 41 53 54 b2 43 48 | 4f 49 43 45 00 17 35 12 |:LAST.CH|OICE..5.|
|00001910| cf 3a a1 f9 20 41 24 00 | 1d 35 14 cf 3a 00 44 35 |.:.. A$.|.5..:.D5|
|00001920| 17 cf 8b 20 d4 28 4e 44 | 45 58 24 2c 41 24 29 20 |... .(ND|EX$,A$) |
|00001930| a7 20 43 48 4f 49 43 45 | b2 d4 28 4e 44 45 58 24 |. CHOICE|..(NDEX$|
|00001940| 2c 41 24 29 00 65 35 1c | cf 3a 20 8b 20 41 24 b2 |,A$).e5.|.: . A$.|
|00001950| 55 50 24 20 a7 20 43 48 | 4f 49 43 45 b2 43 48 4f |UP$ . CH|OICE.CHO|
|00001960| 49 43 45 ab 31 00 87 35 | 26 cf 3a 20 8b 20 41 24 |ICE.1..5|&.: . A$|
|00001970| b2 44 57 4e 24 20 a7 20 | 43 48 4f 49 43 45 b2 43 |.DWN$ . |CHOICE.C|
|00001980| 48 4f 49 43 45 aa 31 00 | a7 35 2b cf 8b 20 41 24 |HOICE.1.|.5+.. A$|
|00001990| b2 45 53 43 24 20 a7 20 | 45 53 43 b2 31 3a 43 48 |.ESC$ . |ESC.1:CH|
|000019a0| 4f 49 43 45 b2 4e 4f 00 | c3 35 30 cf 3a 20 8b 20 |OICE.NO.|.50.: . |
|000019b0| 41 24 b2 52 45 54 52 4e | 24 20 a7 20 52 45 54 52 |A$.RETRN|$ . RETR|
|000019c0| 4e b2 31 00 e0 35 35 cf | 3a 20 8b 20 43 48 4f 49 |N.1..55.|: . CHOI|
|000019d0| 43 45 b3 31 20 a7 20 43 | 48 4f 49 43 45 b2 4e 4f |CE.1 . C|HOICE.NO|
|000019e0| 00 fd 35 37 cf 3a 20 8b | 20 43 48 4f 49 43 45 b1 |..57.: .| CHOICE.|
|000019f0| 4e 4f 20 a7 20 43 48 4f | 49 43 45 b2 31 00 03 36 |NO . CHO|ICE.1..6|
|00001a00| 38 cf 3a 00 0b 36 3a cf | 3a 20 8e 00 11 36 44 cf |8.:..6:.|: ...6D.|
|00001a10| 3a 00 25 36 f0 d2 3a 8f | 20 44 49 53 50 4c 41 59 |:.%6..:.| DISPLAY|
|00001a20| 20 42 41 52 53 00 2b 36 | fa d2 3a 00 56 36 04 d3 | BARS.+6|..:.V6..|
|00001a30| e0 20 2c 43 4f 4c 28 4c | 41 53 54 29 2c 52 4f 57 |. ,COL(L|AST),ROW|
|00001a40| 28 4c 41 53 54 29 2c 53 | 45 4c 45 43 54 24 28 4c |(LAST),S|ELECT$(L|
|00001a50| 41 53 54 29 2c 30 00 87 | 36 0e d3 e0 20 2c 43 4f |AST),0..|6... ,CO|
|00001a60| 4c 28 43 48 4f 49 43 45 | 29 2c 52 4f 57 28 43 48 |L(CHOICE|),ROW(CH|
|00001a70| 4f 49 43 45 29 2c 53 45 | 4c 45 43 54 24 28 43 48 |OICE),SE|LECT$(CH|
|00001a80| 4f 49 43 45 29 2c 31 00 | a0 36 13 d3 e0 20 2c 39 |OICE),1.|.6... ,9|
|00001a90| 2c 32 32 2c 22 45 53 43 | 20 54 4f 20 45 4e 44 22 |,22,"ESC| TO END"|
|00001aa0| 00 a6 36 18 d3 8e 00 ac | 36 22 d3 3a 00 bd 36 d8 |..6.....|6".:..6.|
|00001ab0| d6 3a 8f 20 4d 45 4e 55 | 20 44 41 54 41 00 dc 36 |.:. MENU| DATA..6|
|00001ac0| e7 d6 83 20 22 41 43 45 | 22 20 3a 8f 20 46 49 52 |... "ACE|" :. FIR|
|00001ad0| 53 54 20 4c 54 52 20 49 | 4e 44 45 58 00 fd 36 ec |ST LTR I|NDEX..6.|
|00001ae0| d6 83 20 35 2c 31 30 2c | 22 20 20 20 41 44 44 20 |.. 5,10,|"   ADD |
|00001af0| 41 20 52 45 43 4f 52 44 | 20 20 20 20 22 00 1f 37 |A RECORD|    "..7|
|00001b00| f6 d6 83 20 35 2c 31 31 | 2c 22 20 20 20 43 48 41 |... 5,11|,"   CHA|
|00001b10| 4e 47 45 20 41 20 52 45 | 43 4f 52 44 20 20 22 00 |NGE A RE|CORD  ".|
|00001b20| 42 37 14 d7 83 20 35 2c | 31 32 2c 22 20 20 20 45 |B7... 5,|12,"   E|
|00001b30| 4e 44 20 50 52 4f 47 52 | 41 4d 20 20 20 20 20 20 |ND PROGR|AM      |
|00001b40| 20 22 00 62 37 a0 d7 83 | 20 30 2c 30 2c 22 23 23 | ".b7...| 0,0,"##|
|00001b50| 23 22 20 20 20 3a 20 8f | 20 20 45 4e 44 20 4d 41 |#"   : .|  END MA|
|00001b60| 52 4b 00 89 37 60 ea 3a | 3a 3a 3a 3a 3a 3a 3a 3a |RK..7`.:|::::::::|
|00001b70| 3a 3a 3a 3a 3a 3a 3a 3a | 3a 3a 3a 3a 3a 3a 3a 3a |::::::::|::::::::|
|00001b80| 3a 3a 3a 3a 3a 3a 3a 3a | 3a 00 ad 37 6a ea 8f 20 |::::::::|:..7j.. |
|00001b90| 20 20 20 20 20 20 20 20 | 20 20 4f 50 45 4e 49 4e |        |  OPENIN|
|00001ba0| 47 20 41 53 53 49 47 4e | 4d 45 4e 54 53 00 c3 37 |G ASSIGN|MENTS..7|
|00001bb0| 74 ea 48 45 41 44 24 28 | 31 29 b2 22 44 49 53 4b |t.HEAD$(|1)."DISK|
|00001bc0| 20 23 22 00 dc 37 7e ea | 48 45 41 44 24 28 32 29 | #"..7~.|HEAD$(2)|
|00001bd0| b2 22 44 49 53 4b 20 53 | 49 44 45 22 00 f8 37 88 |."DISK S|IDE"..7.|
|00001be0| ea 48 45 41 44 24 28 33 | 29 b2 22 50 52 4f 47 52 |.HEAD$(3|)."PROGR|
|00001bf0| 41 4d 20 4e 41 4d 45 22 | 00 10 38 92 ea 48 45 41 |AM NAME"|..8..HEA|
|00001c00| 44 24 28 34 29 b2 22 43 | 4f 4d 4d 45 4e 54 53 22 |D$(4)."C|OMMENTS"|
|00001c10| 00 16 38 9c ea 3a 00 30 | 38 a6 ea 50 4c 41 43 45 |..8..:.0|8..PLACE|
|00001c20| 28 31 29 b2 31 20 20 3a | 20 4c 45 28 31 29 b2 34 |(1).1  :| LE(1).4|
|00001c30| 00 4a 38 b0 ea 50 4c 41 | 43 45 28 32 29 b2 36 20 |.J8..PLA|CE(2).6 |
|00001c40| 20 3a 20 4c 45 28 32 29 | b2 32 00 65 38 ba ea 50 | : LE(2)|.2.e8..P|
|00001c50| 4c 41 43 45 28 33 29 b2 | 39 20 20 3a 20 4c 45 28 |LACE(3).|9  : LE(|
|00001c60| 33 29 b2 33 30 00 89 38 | be ea 42 4c 45 45 50 24 |3).30..8|..BLEEP$|
|00001c70| b2 22 53 20 56 31 4f 35 | 20 47 20 56 32 4f 36 20 |."S V1O5| G V2O6 |
|00001c80| 47 20 56 33 30 34 20 47 | 22 00 98 38 bf ea 53 50 |G V304 G|"..8..SP|
|00001c90| 41 43 45 24 b2 22 20 22 | 00 b8 38 c0 ea 53 50 41 |ACE$." "|..8..SPA|
|00001ca0| 43 45 24 b2 53 50 41 43 | 45 24 aa 53 50 41 43 45 |CE$.SPAC|E$.SPACE|
|00001cb0| 24 aa 53 50 41 43 45 24 | 00 c5 38 c1 ea 43 53 52 |$.SPACE$|..8..CSR|
|00001cc0| 24 b2 22 20 22 00 d6 38 | c2 ea 43 41 53 45 24 b2 |$." "..8|..CASE$.|
|00001cd0| c7 28 31 34 32 29 00 eb | 38 c3 ea 52 45 53 45 54 |.(142)..|8..RESET|
|00001ce0| 24 b2 c7 28 32 37 29 aa | 22 43 22 00 06 39 c4 ea |$..(27).|"C"..9..|
|00001cf0| 50 4c 41 43 45 28 34 29 | b2 33 39 20 3a 20 4c 45 |PLACE(4)|.39 : LE|
|00001d00| 28 34 29 b2 32 36 00 0c | 39 ce ea 3a 00 31 39 d8 |(4).26..|9..:.19.|
|00001d10| ea 4c 52 b2 36 34 20 20 | 20 20 20 20 20 3a 20 8f |.LR.64  |     : .|
|00001d20| 20 4c 45 4e 47 54 48 20 | 4f 46 20 52 45 43 4f 52 | LENGTH |OF RECOR|
|00001d30| 44 00 3e 39 dd ea 46 49 | 45 4c 44 53 b2 34 00 54 |D.>9..FI|ELDS.4.T|
|00001d40| 39 ec ea 46 49 4c 45 24 | b2 22 44 49 53 4b 20 4c |9..FILE$|."DISK L|
|00001d50| 49 53 54 22 00 65 39 f1 | ea 51 55 4f 54 45 24 b2 |IST".e9.|.QUOTE$.|
|00001d60| c7 28 33 34 29 00 a4 39 | f3 ea 55 4c 49 4e 24 b2 |.(34)..9|..ULIN$.|
|00001d70| c7 28 31 36 34 29 3a 81 | 58 b2 31 a4 35 3a 55 4c |.(164):.|X.1.5:UL|
|00001d80| 49 4e 24 b2 55 4c 49 4e | 24 aa 55 4c 49 4e 24 3a |IN$.ULIN|$.ULIN$:|
|00001d90| 82 3a 8f 20 43 52 45 41 | 54 45 20 55 4e 44 45 52 |.:. CREA|TE UNDER|
|00001da0| 4c 49 4e 45 00 b6 39 f4 | ea 45 4c 24 b2 c7 28 32 |LINE..9.|.EL$..(2|
|00001db0| 37 29 aa 22 51 22 00 bc | 39 f6 ea 3a 00 c2 39 f8 |7)."Q"..|9..:..9.|
|00001dc0| ea e8 00 d1 39 fb ea 44 | 57 4e 24 b2 c7 28 31 37 |....9..D|WN$..(17|
|00001dd0| 29 00 e0 39 00 eb 55 50 | 24 b2 c7 28 31 34 35 29 |)..9..UP|$..(145)|
|00001de0| 00 f1 39 05 eb 52 45 54 | 52 4e 24 b2 c7 28 31 33 |..9..RET|RN$..(13|
|00001df0| 29 00 00 3a 0a eb 45 53 | 43 24 b2 c7 28 32 37 29 |)..:..ES|C$..(27)|
|00001e00| 00 06 3a 0b eb 3a 00 18 | 3a 0c eb 43 28 31 29 b2 |..:..:..|:..C(1).|
|00001e10| 31 3a 52 28 31 29 b2 31 | 00 2a 3a 0e eb 43 28 32 |1:R(1).1|.*:..C(2|
|00001e20| 29 b2 31 3a 52 28 32 29 | b2 34 00 3c 3a 10 eb 43 |).1:R(2)|.4.<:..C|
|00001e30| 28 33 29 b2 31 3a 52 28 | 33 29 b2 37 00 4f 3a 12 |(3).1:R(|3).7.O:.|
|00001e40| eb 43 28 34 29 b2 31 3a | 52 28 34 29 b2 31 30 00 |.C(4).1:|R(4).10.|
|00001e50| 5b 3a 14 eb 86 20 41 24 | 28 34 29 00 94 3a 16 eb |[:... A$|(4)..:..|
|00001e60| 9f 20 32 2c 30 3a 8f 20 | 4f 50 45 4e 20 4b 45 59 |. 2,0:. |OPEN KEY|
|00001e70| 42 4f 41 52 44 2c 20 41 | 4c 4c 4f 57 49 4e 47 20 |BOARD, A|LLOWING |
|00001e80| 49 4e 50 55 54 20 57 49 | 54 48 4f 55 54 20 3f 20 |INPUT WI|THOUT ? |
|00001e90| 4d 41 52 4b 00 9a 3a 1e | eb 8e 00 a0 3a 27 eb 8e |MARK..:.|....:'..|
|00001ea0| 00 a6 3a 48 ee 8e 00 00 | 00 1a 1a 1a 1a 1a 1a 1a |..:H....|........|
|00001eb0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001ec0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001ed0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001ee0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001ef0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
+--------+-------------------------+-------------------------+--------+--------+