/ Nibble Magazine / nib24b.dsk / BASIC.ASSEMBLER.bas

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 20 20 52 45 4d 20 | 20 20 2a 2a 2a 2a 2a 2a |10  REM |  ******|
|00000010| 2a 2a 31 2e 39 2e 38 35 | 2a 2a 2a 2a 2a 2a 2a 2a |**1.9.85|********|
|00000020| 0a 32 30 20 20 52 45 4d | 20 20 20 2a 20 20 20 42 |.20  REM|   *   B|
|00000030| 41 53 49 43 2e 41 53 53 | 45 4d 42 4c 45 52 20 20 |ASIC.ASS|EMBLER  |
|00000040| 2a 0a 33 30 20 20 52 45 | 4d 20 20 20 2a 20 20 42 |*.30  RE|M   *  B|
|00000050| 59 20 20 4a 4f 48 4e 20 | 57 48 49 54 4e 45 59 20 |Y  JOHN |WHITNEY |
|00000060| 20 2a 0a 34 30 20 20 52 | 45 4d 20 20 20 2a 20 43 | *.40  R|EM   * C|
|00000070| 4f 50 59 52 49 47 48 54 | 20 28 43 29 20 31 39 38 |OPYRIGHT| (C) 198|
|00000080| 34 20 2a 0a 35 30 20 20 | 52 45 4d 20 20 20 2a 20 |4 *.50  |REM   * |
|00000090| 42 59 20 4d 49 43 52 4f | 53 50 41 52 43 2c 20 49 |BY MICRO|SPARC, I|
|000000a0| 4e 43 20 2a 0a 36 30 20 | 20 52 45 4d 20 20 20 2a |NC *.60 | REM   *|
|000000b0| 20 4c 49 4e 43 4f 4c 4e | 2c 20 4d 41 2e 20 30 31 | LINCOLN|, MA. 01|
|000000c0| 37 37 33 20 2a 0a 36 35 | 20 20 52 45 4d 20 20 20 |773 *.65|  REM   |
|000000d0| 2a 20 20 20 42 41 53 49 | 43 2e 41 53 53 45 4d 42 |*   BASI|C.ASSEMB|
|000000e0| 4c 45 52 20 20 2a 0a 36 | 36 20 20 52 45 4d 20 20 |LER  *.6|6  REM  |
|000000f0| 20 2a 20 20 4d 4f 44 49 | 46 49 43 41 54 49 4f 4e | *  MODI|FICATION|
|00000100| 53 20 42 59 20 20 2a 0a | 36 37 20 20 52 45 4d 20 |S BY  *.|67  REM |
|00000110| 20 20 2a 20 20 20 20 41 | 4c 42 45 52 54 20 42 41 |  *    A|LBERT BA|
|00000120| 4b 45 52 20 20 20 20 2a | 0a 37 30 20 20 52 45 4d |KER    *|.70  REM|
|00000130| 20 20 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |   *****|********|
|00000140| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0a 38 30 20 20 44 41 |********|*.80  DA|
|00000150| 54 41 20 20 20 41 44 43 | 2c 30 2c 31 30 39 2c 31 |TA   ADC|,0,109,1|
|00000160| 30 31 2c 31 30 35 2c 31 | 32 35 2c 31 32 31 2c 39 |01,105,1|25,121,9|
|00000170| 37 2c 31 31 33 2c 31 31 | 37 2c 30 2c 30 2c 30 0a |7,113,11|7,0,0,0.|
|00000180| 39 30 20 20 44 41 54 41 | 20 20 20 41 4e 44 2c 30 |90  DATA|   AND,0|
|00000190| 2c 34 35 2c 33 37 2c 34 | 31 2c 36 31 2c 35 37 2c |,45,37,4|1,61,57,|
|000001a0| 33 33 2c 34 39 2c 35 33 | 2c 30 2c 30 2c 30 0a 31 |33,49,53|,0,0,0.1|
|000001b0| 30 30 20 20 44 41 54 41 | 20 20 20 41 53 4c 2c 31 |00  DATA|   ASL,1|
|000001c0| 30 2c 31 34 2c 36 2c 30 | 2c 33 30 2c 30 2c 30 2c |0,14,6,0|,30,0,0,|
|000001d0| 30 2c 32 32 2c 30 2c 30 | 2c 30 0a 31 31 30 20 20 |0,22,0,0|,0.110  |
|000001e0| 44 41 54 41 20 20 20 42 | 43 43 2c 30 2c 30 2c 30 |DATA   B|CC,0,0,0|
|000001f0| 2c 30 2c 30 2c 30 2c 30 | 2c 30 2c 30 2c 30 2c 31 |,0,0,0,0|,0,0,0,1|
|00000200| 34 34 2c 30 0a 31 32 30 | 20 20 44 41 54 41 20 20 |44,0.120|  DATA  |
|00000210| 20 42 43 53 2c 30 2c 30 | 2c 30 2c 30 2c 30 2c 30 | BCS,0,0|,0,0,0,0|
|00000220| 2c 30 2c 30 2c 30 2c 30 | 2c 31 37 36 2c 30 0a 31 |,0,0,0,0|,176,0.1|
|00000230| 33 30 20 20 44 41 54 41 | 20 20 20 42 45 51 2c 30 |30  DATA|   BEQ,0|
|00000240| 2c 30 2c 30 2c 30 2c 30 | 2c 30 2c 30 2c 30 2c 30 |,0,0,0,0|,0,0,0,0|
|00000250| 2c 30 2c 32 34 30 2c 30 | 0a 31 34 30 20 20 44 41 |,0,240,0|.140  DA|
|00000260| 54 41 20 20 20 42 49 54 | 2c 30 2c 34 34 2c 33 36 |TA   BIT|,0,44,36|
|00000270| 2c 30 2c 30 2c 30 2c 30 | 2c 30 2c 30 2c 30 2c 30 |,0,0,0,0|,0,0,0,0|
|00000280| 2c 30 0a 31 35 30 20 20 | 44 41 54 41 20 20 20 42 |,0.150  |DATA   B|
|00000290| 4d 49 2c 30 2c 30 2c 30 | 2c 30 2c 30 2c 30 2c 30 |MI,0,0,0|,0,0,0,0|
|000002a0| 2c 30 2c 30 2c 30 2c 34 | 38 2c 30 0a 31 36 30 20 |,0,0,0,4|8,0.160 |
|000002b0| 20 44 41 54 41 20 20 20 | 42 4e 45 2c 30 2c 30 2c | DATA   |BNE,0,0,|
|000002c0| 30 2c 30 2c 30 2c 30 2c | 30 2c 30 2c 30 2c 30 2c |0,0,0,0,|0,0,0,0,|
|000002d0| 32 30 38 2c 30 0a 31 37 | 30 20 20 44 41 54 41 20 |208,0.17|0  DATA |
|000002e0| 20 20 42 50 4c 2c 30 2c | 30 2c 30 2c 30 2c 30 2c |  BPL,0,|0,0,0,0,|
|000002f0| 30 2c 30 2c 30 2c 30 2c | 30 2c 31 36 2c 30 0a 31 |0,0,0,0,|0,16,0.1|
|00000300| 38 30 20 20 44 41 54 41 | 20 20 20 42 52 4b 2c 30 |80  DATA|   BRK,0|
|00000310| 2c 30 2c 30 2c 30 2c 30 | 2c 30 2c 30 2c 30 2c 30 |,0,0,0,0|,0,0,0,0|
|00000320| 2c 30 2c 30 2c 30 0a 31 | 39 30 20 20 44 41 54 41 |,0,0,0.1|90  DATA|
|00000330| 20 20 20 42 56 43 2c 30 | 2c 30 2c 30 2c 30 2c 30 |   BVC,0|,0,0,0,0|
|00000340| 2c 30 2c 30 2c 30 2c 30 | 2c 30 2c 38 30 2c 30 0a |,0,0,0,0|,0,80,0.|
|00000350| 32 30 30 20 20 44 41 54 | 41 20 20 20 42 56 53 2c |200  DAT|A   BVS,|
|00000360| 30 2c 30 2c 30 2c 30 2c | 30 2c 30 2c 30 2c 30 2c |0,0,0,0,|0,0,0,0,|
|00000370| 30 2c 30 2c 31 31 32 2c | 30 0a 32 31 30 20 20 44 |0,0,112,|0.210  D|
|00000380| 41 54 41 20 20 20 43 4c | 43 2c 32 34 2c 30 2c 30 |ATA   CL|C,24,0,0|
|00000390| 2c 30 2c 30 2c 30 2c 30 | 2c 30 2c 30 2c 30 2c 30 |,0,0,0,0|,0,0,0,0|
|000003a0| 2c 30 0a 32 32 30 20 20 | 44 41 54 41 20 20 20 43 |,0.220  |DATA   C|
|000003b0| 4c 44 2c 32 31 36 2c 30 | 2c 30 2c 30 2c 30 2c 30 |LD,216,0|,0,0,0,0|
|000003c0| 2c 30 2c 30 2c 30 2c 30 | 2c 30 2c 30 0a 32 33 30 |,0,0,0,0|,0,0.230|
|000003d0| 20 20 44 41 54 41 20 20 | 20 43 4c 49 2c 38 38 2c |  DATA  | CLI,88,|
|000003e0| 30 2c 30 2c 30 2c 30 2c | 30 2c 30 2c 30 2c 30 2c |0,0,0,0,|0,0,0,0,|
|000003f0| 30 2c 30 2c 30 0a 32 34 | 30 20 20 44 41 54 41 20 |0,0,0.24|0  DATA |
|00000400| 20 20 43 4c 56 2c 31 38 | 34 2c 30 2c 30 2c 30 2c |  CLV,18|4,0,0,0,|
|00000410| 30 2c 30 2c 30 2c 30 2c | 30 2c 30 2c 30 2c 30 0a |0,0,0,0,|0,0,0,0.|
|00000420| 32 35 30 20 20 44 41 54 | 41 20 20 20 43 4d 50 2c |250  DAT|A   CMP,|
|00000430| 30 2c 32 30 35 2c 31 39 | 37 2c 32 30 31 2c 32 32 |0,205,19|7,201,22|
|00000440| 31 2c 32 31 37 2c 31 39 | 33 2c 32 30 39 2c 32 31 |1,217,19|3,209,21|
|00000450| 33 2c 30 2c 30 2c 30 0a | 32 36 30 20 20 44 41 54 |3,0,0,0.|260  DAT|
|00000460| 41 20 20 20 43 50 58 2c | 30 2c 32 33 36 2c 32 32 |A   CPX,|0,236,22|
|00000470| 38 2c 32 32 34 2c 30 2c | 30 2c 30 2c 30 2c 30 2c |8,224,0,|0,0,0,0,|
|00000480| 30 2c 30 2c 30 0a 32 37 | 30 20 20 44 41 54 41 20 |0,0,0.27|0  DATA |
|00000490| 20 20 43 50 59 2c 30 2c | 32 30 34 2c 31 39 36 2c |  CPY,0,|204,196,|
|000004a0| 31 39 32 2c 30 2c 30 2c | 30 2c 30 2c 30 2c 30 2c |192,0,0,|0,0,0,0,|
|000004b0| 30 2c 30 0a 32 38 30 20 | 20 44 41 54 41 20 20 20 |0,0.280 | DATA   |
|000004c0| 44 45 43 2c 30 2c 32 30 | 36 2c 31 39 38 2c 30 2c |DEC,0,20|6,198,0,|
|000004d0| 32 32 32 2c 30 2c 30 2c | 30 2c 32 31 34 2c 30 2c |222,0,0,|0,214,0,|
|000004e0| 30 2c 30 0a 32 39 30 20 | 20 44 41 54 41 20 20 20 |0,0.290 | DATA   |
|000004f0| 44 45 58 2c 32 30 32 2c | 30 2c 30 2c 30 2c 30 2c |DEX,202,|0,0,0,0,|
|00000500| 30 2c 30 2c 30 2c 30 2c | 30 2c 30 2c 30 0a 33 30 |0,0,0,0,|0,0,0.30|
|00000510| 30 20 20 44 41 54 41 20 | 20 20 44 45 59 2c 31 33 |0  DATA |  DEY,13|
|00000520| 36 2c 30 2c 30 2c 30 2c | 30 2c 30 2c 30 2c 30 2c |6,0,0,0,|0,0,0,0,|
|00000530| 30 2c 30 2c 30 2c 30 0a | 33 31 30 20 20 44 41 54 |0,0,0,0.|310  DAT|
|00000540| 41 20 20 20 45 4f 52 2c | 30 2c 37 37 2c 36 39 2c |A   EOR,|0,77,69,|
|00000550| 37 33 2c 39 33 2c 38 39 | 2c 36 35 2c 38 31 2c 38 |73,93,89|,65,81,8|
|00000560| 35 2c 30 2c 30 2c 30 0a | 33 32 30 20 20 44 41 54 |5,0,0,0.|320  DAT|
|00000570| 41 20 20 20 49 4e 43 2c | 30 2c 32 33 38 2c 32 33 |A   INC,|0,238,23|
|00000580| 30 2c 30 2c 32 35 34 2c | 30 2c 30 2c 30 2c 32 34 |0,0,254,|0,0,0,24|
|00000590| 36 2c 30 2c 30 2c 30 0a | 33 33 30 20 20 44 41 54 |6,0,0,0.|330  DAT|
|000005a0| 41 20 20 20 49 4e 58 2c | 32 33 32 2c 30 2c 30 2c |A   INX,|232,0,0,|
|000005b0| 30 2c 30 2c 30 2c 30 2c | 30 2c 30 2c 30 2c 30 2c |0,0,0,0,|0,0,0,0,|
|000005c0| 30 0a 33 34 30 20 20 44 | 41 54 41 20 20 20 49 4e |0.340  D|ATA   IN|
|000005d0| 59 2c 32 30 30 2c 30 2c | 30 2c 30 2c 30 2c 30 2c |Y,200,0,|0,0,0,0,|
|000005e0| 30 2c 30 2c 30 2c 30 2c | 30 2c 30 0a 33 35 30 20 |0,0,0,0,|0,0.350 |
|000005f0| 20 44 41 54 41 20 20 20 | 4a 4d 50 2c 30 2c 37 36 | DATA   |JMP,0,76|
|00000600| 2c 30 2c 30 2c 30 2c 30 | 2c 30 2c 30 2c 30 2c 30 |,0,0,0,0|,0,0,0,0|
|00000610| 2c 30 2c 31 30 38 0a 33 | 36 30 20 20 44 41 54 41 |,0,108.3|60  DATA|
|00000620| 20 20 20 4a 53 52 2c 30 | 2c 33 32 2c 30 2c 30 2c |   JSR,0|,32,0,0,|
|00000630| 30 2c 30 2c 30 2c 30 2c | 30 2c 30 2c 30 2c 30 0a |0,0,0,0,|0,0,0,0.|
|00000640| 33 37 30 20 20 44 41 54 | 41 20 20 20 4c 44 41 2c |370  DAT|A   LDA,|
|00000650| 30 2c 31 37 33 2c 31 36 | 35 2c 31 36 39 2c 31 38 |0,173,16|5,169,18|
|00000660| 39 2c 31 38 35 2c 31 36 | 31 2c 31 37 37 2c 31 38 |9,185,16|1,177,18|
|00000670| 31 2c 30 2c 30 2c 30 0a | 33 38 30 20 20 44 41 54 |1,0,0,0.|380  DAT|
|00000680| 41 20 20 20 4c 44 58 2c | 30 2c 31 37 34 2c 31 36 |A   LDX,|0,174,16|
|00000690| 36 2c 31 36 32 2c 30 2c | 31 39 30 2c 30 2c 30 2c |6,162,0,|190,0,0,|
|000006a0| 30 2c 31 38 32 2c 30 2c | 30 0a 33 39 30 20 20 44 |0,182,0,|0.390  D|
|000006b0| 41 54 41 20 20 20 4c 44 | 59 2c 30 2c 31 37 32 2c |ATA   LD|Y,0,172,|
|000006c0| 31 36 34 2c 31 36 30 2c | 31 38 38 2c 30 2c 30 2c |164,160,|188,0,0,|
|000006d0| 30 2c 31 38 30 2c 30 2c | 30 2c 30 0a 34 30 30 20 |0,180,0,|0,0.400 |
|000006e0| 20 44 41 54 41 20 20 20 | 4c 53 52 2c 37 34 2c 37 | DATA   |LSR,74,7|
|000006f0| 38 2c 37 30 2c 30 2c 39 | 34 2c 30 2c 30 2c 30 2c |8,70,0,9|4,0,0,0,|
|00000700| 38 36 2c 30 2c 30 2c 30 | 0a 34 31 30 20 20 44 41 |86,0,0,0|.410  DA|
|00000710| 54 41 20 20 20 4e 4f 50 | 2c 32 33 34 2c 30 2c 30 |TA   NOP|,234,0,0|
|00000720| 2c 30 2c 30 2c 30 2c 30 | 2c 30 2c 30 2c 30 2c 30 |,0,0,0,0|,0,0,0,0|
|00000730| 2c 30 0a 34 32 30 20 20 | 44 41 54 41 20 20 20 4f |,0.420  |DATA   O|
|00000740| 52 41 2c 30 2c 31 33 2c | 35 2c 39 2c 32 39 2c 32 |RA,0,13,|5,9,29,2|
|00000750| 35 2c 31 2c 31 37 2c 32 | 31 2c 30 2c 30 2c 30 0a |5,1,17,2|1,0,0,0.|
|00000760| 34 33 30 20 20 44 41 54 | 41 20 20 20 50 48 41 2c |430  DAT|A   PHA,|
|00000770| 37 32 2c 30 2c 30 2c 30 | 2c 30 2c 30 2c 30 2c 30 |72,0,0,0|,0,0,0,0|
|00000780| 2c 30 2c 30 2c 30 2c 30 | 0a 34 34 30 20 20 44 41 |,0,0,0,0|.440  DA|
|00000790| 54 41 20 20 20 50 48 50 | 2c 38 2c 30 2c 30 2c 30 |TA   PHP|,8,0,0,0|
|000007a0| 2c 30 2c 30 2c 30 2c 30 | 2c 30 2c 30 2c 30 2c 30 |,0,0,0,0|,0,0,0,0|
|000007b0| 0a 34 35 30 20 20 44 41 | 54 41 20 20 20 50 4c 41 |.450  DA|TA   PLA|
|000007c0| 2c 31 30 34 2c 30 2c 30 | 2c 30 2c 30 2c 30 2c 30 |,104,0,0|,0,0,0,0|
|000007d0| 2c 30 2c 30 2c 30 2c 30 | 2c 30 0a 34 36 30 20 20 |,0,0,0,0|,0.460  |
|000007e0| 44 41 54 41 20 20 20 50 | 4c 50 2c 30 34 30 2c 30 |DATA   P|LP,040,0|
|000007f0| 2c 30 2c 30 2c 30 2c 30 | 2c 30 2c 30 2c 30 2c 30 |,0,0,0,0|,0,0,0,0|
|00000800| 2c 30 2c 30 0a 34 37 30 | 20 20 44 41 54 41 20 20 |,0,0.470|  DATA  |
|00000810| 20 52 4f 4c 2c 34 32 2c | 34 36 2c 33 38 2c 30 2c | ROL,42,|46,38,0,|
|00000820| 36 32 2c 30 2c 30 2c 30 | 2c 35 34 2c 30 2c 30 2c |62,0,0,0|,54,0,0,|
|00000830| 30 0a 34 38 30 20 20 44 | 41 54 41 20 20 20 52 4f |0.480  D|ATA   RO|
|00000840| 52 2c 31 30 36 2c 31 31 | 30 2c 31 30 32 2c 30 2c |R,106,11|0,102,0,|
|00000850| 31 32 36 2c 30 2c 30 2c | 30 2c 31 31 38 2c 30 2c |126,0,0,|0,118,0,|
|00000860| 30 2c 30 0a 34 39 30 20 | 20 44 41 54 41 20 20 20 |0,0.490 | DATA   |
|00000870| 52 54 49 2c 36 34 2c 30 | 2c 30 2c 30 2c 30 2c 30 |RTI,64,0|,0,0,0,0|
|00000880| 2c 30 2c 30 2c 30 2c 30 | 2c 30 2c 30 0a 35 30 30 |,0,0,0,0|,0,0.500|
|00000890| 20 20 44 41 54 41 20 20 | 20 52 54 53 2c 39 36 2c |  DATA  | RTS,96,|
|000008a0| 30 2c 30 2c 30 2c 30 2c | 30 2c 30 2c 30 2c 30 2c |0,0,0,0,|0,0,0,0,|
|000008b0| 30 2c 30 2c 30 0a 35 31 | 30 20 20 44 41 54 41 20 |0,0,0.51|0  DATA |
|000008c0| 20 20 53 42 43 2c 30 2c | 32 33 37 2c 32 32 39 2c |  SBC,0,|237,229,|
|000008d0| 32 33 33 2c 32 35 33 2c | 32 34 39 2c 32 32 35 2c |233,253,|249,225,|
|000008e0| 32 34 31 2c 32 34 35 2c | 30 2c 30 2c 30 0a 35 32 |241,245,|0,0,0.52|
|000008f0| 30 20 20 44 41 54 41 20 | 20 20 53 45 43 2c 35 36 |0  DATA |  SEC,56|
|00000900| 2c 30 2c 30 2c 30 2c 30 | 2c 30 2c 30 2c 30 2c 30 |,0,0,0,0|,0,0,0,0|
|00000910| 2c 30 2c 30 2c 30 0a 35 | 33 30 20 20 44 41 54 41 |,0,0,0.5|30  DATA|
|00000920| 20 20 20 53 45 44 2c 32 | 34 38 2c 30 2c 30 2c 30 |   SED,2|48,0,0,0|
|00000930| 2c 30 2c 30 2c 30 2c 30 | 2c 30 2c 30 2c 30 2c 30 |,0,0,0,0|,0,0,0,0|
|00000940| 0a 35 34 30 20 20 44 41 | 54 41 20 20 20 53 45 49 |.540  DA|TA   SEI|
|00000950| 2c 31 32 30 2c 30 2c 30 | 2c 30 2c 30 2c 30 2c 30 |,120,0,0|,0,0,0,0|
|00000960| 2c 30 2c 30 2c 30 2c 30 | 2c 30 0a 35 35 30 20 20 |,0,0,0,0|,0.550  |
|00000970| 44 41 54 41 20 20 20 53 | 54 41 2c 30 2c 31 34 31 |DATA   S|TA,0,141|
|00000980| 2c 31 33 33 2c 30 2c 31 | 35 37 2c 31 35 33 2c 31 |,133,0,1|57,153,1|
|00000990| 32 39 2c 31 34 35 2c 31 | 34 39 2c 30 2c 30 2c 30 |29,145,1|49,0,0,0|
|000009a0| 0a 35 36 30 20 20 44 41 | 54 41 20 20 20 53 54 58 |.560  DA|TA   STX|
|000009b0| 2c 30 2c 31 34 32 2c 31 | 33 34 2c 30 2c 30 2c 30 |,0,142,1|34,0,0,0|
|000009c0| 2c 30 2c 30 2c 30 2c 31 | 35 30 2c 30 2c 30 0a 35 |,0,0,0,1|50,0,0.5|
|000009d0| 37 30 20 20 44 41 54 41 | 20 20 20 53 54 59 2c 30 |70  DATA|   STY,0|
|000009e0| 2c 31 34 30 2c 31 33 32 | 2c 30 2c 30 2c 30 2c 30 |,140,132|,0,0,0,0|
|000009f0| 2c 30 2c 31 34 38 2c 30 | 2c 30 2c 30 0a 35 38 30 |,0,148,0|,0,0.580|
|00000a00| 20 20 44 41 54 41 20 20 | 20 54 41 58 2c 31 37 30 |  DATA  | TAX,170|
|00000a10| 2c 30 2c 30 2c 30 2c 30 | 2c 30 2c 30 2c 30 2c 30 |,0,0,0,0|,0,0,0,0|
|00000a20| 2c 30 2c 30 2c 30 0a 35 | 39 30 20 20 44 41 54 41 |,0,0,0.5|90  DATA|
|00000a30| 20 20 20 54 41 59 2c 31 | 36 38 2c 30 2c 30 2c 30 |   TAY,1|68,0,0,0|
|00000a40| 2c 30 2c 30 2c 30 2c 30 | 2c 30 2c 30 2c 30 2c 30 |,0,0,0,0|,0,0,0,0|
|00000a50| 0a 36 30 30 20 20 44 41 | 54 41 20 20 20 54 53 58 |.600  DA|TA   TSX|
|00000a60| 2c 31 38 36 2c 30 2c 30 | 2c 30 2c 30 2c 30 2c 30 |,186,0,0|,0,0,0,0|
|00000a70| 2c 30 2c 30 2c 30 2c 30 | 2c 30 0a 36 31 30 20 20 |,0,0,0,0|,0.610  |
|00000a80| 44 41 54 41 20 20 20 54 | 58 41 2c 31 33 38 2c 30 |DATA   T|XA,138,0|
|00000a90| 2c 30 2c 30 2c 30 2c 30 | 2c 30 2c 30 2c 30 2c 30 |,0,0,0,0|,0,0,0,0|
|00000aa0| 2c 30 2c 30 0a 36 32 30 | 20 20 44 41 54 41 20 20 |,0,0.620|  DATA  |
|00000ab0| 20 54 58 53 2c 31 35 34 | 2c 30 2c 30 2c 30 2c 30 | TXS,154|,0,0,0,0|
|00000ac0| 2c 30 2c 30 2c 30 2c 30 | 2c 30 2c 30 2c 30 0a 36 |,0,0,0,0|,0,0,0.6|
|00000ad0| 33 30 20 20 44 41 54 41 | 20 20 20 54 59 41 2c 31 |30  DATA|   TYA,1|
|00000ae0| 35 32 2c 30 2c 30 2c 30 | 2c 30 2c 30 2c 30 2c 30 |52,0,0,0|,0,0,0,0|
|00000af0| 2c 30 2c 30 2c 30 2c 30 | 0a 36 33 35 20 4c 4f 20 |,0,0,0,0|.635 LO |
|00000b00| 3d 20 20 50 45 45 4b 28 | 31 30 36 29 20 2a 32 35 |=  PEEK(|106) *25|
|00000b10| 36 20 2b 20 50 45 45 4b | 28 31 30 35 29 3a 48 49 |6 + PEEK|(105):HI|
|00000b20| 20 3d 20 20 50 45 45 4b | 28 31 31 36 29 20 2a 32 | =  PEEK|(116) *2|
|00000b30| 35 36 20 2b 20 50 45 45 | 4b 28 31 31 35 29 0a 36 |56 + PEE|K(115).6|
|00000b40| 34 30 20 20 48 4f 4d 45 | 20 3a 20 56 54 41 42 20 |40  HOME| : VTAB |
|00000b50| 32 32 3a 20 50 52 49 4e | 54 20 22 2a 2a 20 43 4f |22: PRIN|T "** CO|
|00000b60| 50 59 52 49 47 48 54 20 | 31 39 38 34 20 42 59 20 |PYRIGHT |1984 BY |
|00000b70| 4d 49 43 52 4f 53 50 41 | 52 43 2c 20 49 4e 43 2e |MICROSPA|RC, INC.|
|00000b80| 20 2a 2a 22 0a 36 35 30 | 20 20 56 54 41 42 20 33 | **".650|  VTAB 3|
|00000b90| 3a 20 49 4e 56 45 52 53 | 45 20 3a 20 50 52 49 4e |: INVERS|E : PRIN|
|00000ba0| 54 20 22 42 41 53 49 43 | 20 41 53 53 45 4d 42 4c |T "BASIC| ASSEMBL|
|00000bb0| 45 52 22 3a 20 4e 4f 52 | 4d 41 4c 20 3a 20 50 52 |ER": NOR|MAL : PR|
|00000bc0| 49 4e 54 20 0a 36 36 30 | 20 20 47 4f 53 55 42 20 |INT .660|  GOSUB |
|00000bd0| 32 33 35 30 0a 36 37 30 | 20 20 43 41 4c 4c 20 20 |2350.670|  CALL  |
|00000be0| 2d 39 35 38 0a 36 38 30 | 20 53 41 20 3d 20 33 36 |-958.680| SA = 36|
|00000bf0| 38 36 34 0a 36 39 30 20 | 20 48 49 4d 45 4d 3a 20 |864.690 | HIMEM: |
|00000c00| 33 35 38 34 30 0a 37 30 | 30 20 44 24 20 3d 20 20 |35840.70|0 D$ =  |
|00000c10| 43 48 52 24 28 34 29 3a | 20 56 54 41 42 20 37 3a |CHR$(4):| VTAB 7:|
|00000c20| 20 43 41 4c 4c 20 20 2d | 39 35 38 3a 20 49 4e 50 | CALL  -|958: INP|
|00000c30| 55 54 20 22 53 4f 55 52 | 43 45 20 46 49 4c 45 20 |UT "SOUR|CE FILE |
|00000c40| 54 4f 20 4c 4f 41 44 3a | 20 22 3b 50 52 24 3a 20 |TO LOAD:| ";PR$: |
|00000c50| 49 46 20 20 4c 45 4e 28 | 50 52 24 29 20 3d 20 30 |IF  LEN(|PR$) = 0|
|00000c60| 20 20 4f 52 20 20 4c 45 | 4e 28 50 52 24 29 20 3e |  OR  LE|N(PR$) >|
|00000c70| 31 35 20 20 4f 52 20 20 | 56 41 4c 28 50 52 24 29 |15  OR  |VAL(PR$)|
|00000c80| 20 3e 30 20 20 54 48 45 | 4e 20 37 30 30 0a 37 31 | >0  THE|N 700.71|
|00000c90| 30 20 20 4f 4e 45 52 52 | 20 20 47 4f 54 4f 20 37 |0  ONERR|  GOTO 7|
|00000ca0| 33 30 0a 37 32 30 20 20 | 50 52 49 4e 54 20 44 24 |30.720  |PRINT D$|
|00000cb0| 22 56 45 52 49 46 59 22 | 3b 50 52 24 3a 20 50 52 |"VERIFY"|;PR$: PR|
|00000cc0| 49 4e 54 20 44 24 22 4f | 50 45 4e 22 3b 50 52 24 |INT D$"O|PEN";PR$|
|00000cd0| 3a 20 50 52 49 4e 54 20 | 44 24 22 52 45 41 44 22 |: PRINT |D$"READ"|
|00000ce0| 3b 50 52 24 3a 20 50 4f | 4b 45 20 32 31 36 2c 30 |;PR$: PO|KE 216,0|
|00000cf0| 3a 20 47 4f 54 4f 20 37 | 34 30 0a 37 33 30 20 20 |: GOTO 7|40.730  |
|00000d00| 50 4f 4b 45 20 32 31 36 | 2c 30 3a 20 50 52 49 4e |POKE 216|,0: PRIN|
|00000d10| 54 20 20 43 48 52 24 28 | 37 29 22 54 48 41 54 20 |T  CHR$(|7)"THAT |
|00000d20| 46 49 4c 45 20 49 53 20 | 4e 4f 54 20 4f 4e 20 54 |FILE IS |NOT ON T|
|00000d30| 48 49 53 20 44 49 53 4b | 2e 22 3a 20 50 52 49 4e |HIS DISK|.": PRIN|
|00000d40| 54 20 22 50 52 45 53 53 | 20 41 4e 59 20 4b 45 59 |T "PRESS| ANY KEY|
|00000d50| 20 54 4f 20 43 4f 4e 54 | 49 4e 55 45 2e 22 3a 20 | TO CONT|INUE.": |
|00000d60| 47 45 54 20 4b 24 3a 20 | 50 52 49 4e 54 20 3a 20 |GET K$: |PRINT : |
|00000d70| 47 4f 54 4f 20 37 30 30 | 0a 37 34 30 20 20 49 4e |GOTO 700|.740  IN|
|00000d80| 50 55 54 20 49 4e 24 3a | 20 49 46 20 20 4d 49 44 |PUT IN$:| IF  MID|
|00000d90| 24 20 28 49 4e 24 2c 31 | 30 2c 33 29 20 3d 20 22 |$ (IN$,1|0,3) = "|
|00000da0| 45 4f 46 22 20 20 54 48 | 45 4e 20 20 50 52 49 4e |EOF"  TH|EN  PRIN|
|00000db0| 54 20 44 24 22 43 4c 4f | 53 45 22 3a 20 47 4f 54 |T D$"CLO|SE": GOT|
|00000dc0| 4f 20 37 38 30 0a 37 35 | 30 20 4e 49 20 3d 20 4e |O 780.75|0 NI = N|
|00000dd0| 49 20 2b 31 0a 37 36 30 | 20 20 49 46 20 20 4c 45 |I +1.760|  IF  LE|
|00000de0| 46 54 24 28 49 4e 24 2c | 38 29 20 3c 20 3e 22 20 |FT$(IN$,|8) < >" |
|00000df0| 20 20 20 20 20 20 20 22 | 20 20 54 48 45 4e 20 4e |       "|  THEN N|
|00000e00| 4c 20 3d 20 4e 4c 20 2b | 31 0a 37 37 30 20 20 47 |L = NL +|1.770  G|
|00000e10| 4f 54 4f 20 37 34 30 0a | 37 38 30 20 20 44 49 4d |OTO 740.|780  DIM|
|00000e20| 20 4f 50 28 35 36 2c 31 | 32 29 2c 4f 50 24 28 35 | OP(56,1|2),OP$(5|
|00000e30| 36 29 0a 37 39 30 20 20 | 44 49 4d 20 49 4e 24 28 |6).790  |DIM IN$(|
|00000e40| 4e 49 29 2c 4d 44 28 4e | 49 29 2c 4c 42 24 28 4e |NI),MD(N|I),LB$(N|
|00000e50| 49 29 2c 54 50 24 28 4e | 49 29 2c 4c 4e 28 4e 49 |I),TP$(N|I),LN(NI|
|00000e60| 29 2c 4c 4f 28 4e 49 20 | 2b 31 29 0a 38 30 30 20 |),LO(NI |+1).800 |
|00000e70| 20 44 49 4d 20 4c 46 24 | 28 4e 4c 29 2c 41 46 28 | DIM LF$|(NL),AF(|
|00000e80| 4e 4c 29 2c 4c 52 24 28 | 4e 4c 29 2c 44 52 28 4e |NL),LR$(|NL),DR(N|
|00000e90| 4c 29 0a 38 31 30 20 20 | 52 45 53 54 4f 52 45 20 |L).810  |RESTORE |
|00000ea0| 0a 38 32 30 20 20 56 54 | 41 42 20 31 32 3a 20 43 |.820  VT|AB 12: C|
|00000eb0| 41 4c 4c 20 20 2d 39 35 | 38 3a 20 50 52 49 4e 54 |ALL  -95|8: PRINT|
|00000ec0| 20 22 46 49 52 53 54 20 | 50 41 53 53 3a 22 0a 38 | "FIRST |PASS:".8|
|00000ed0| 33 30 20 20 50 52 49 4e | 54 20 44 24 22 4f 50 45 |30  PRIN|T D$"OPE|
|00000ee0| 4e 22 50 52 24 3a 20 50 | 52 49 4e 54 20 44 24 22 |N"PR$: P|RINT D$"|
|00000ef0| 52 45 41 44 20 22 50 52 | 24 0a 38 34 30 20 20 49 |READ "PR|$.840  I|
|00000f00| 4e 50 55 54 20 4c 41 24 | 3a 20 49 46 20 20 4d 49 |NPUT LA$|: IF  MI|
|00000f10| 44 24 20 28 4c 41 24 2c | 31 30 2c 33 29 20 3c 20 |D$ (LA$,|10,3) < |
|00000f20| 3e 22 4f 52 47 22 20 20 | 4f 52 20 20 4c 45 4e 28 |>"ORG"  |OR  LEN(|
|00000f30| 4c 41 24 29 20 3c 31 34 | 20 20 54 48 45 4e 20 20 |LA$) <14|  THEN  |
|00000f40| 50 52 49 4e 54 20 3a 20 | 50 52 49 4e 54 20 44 24 |PRINT : |PRINT D$|
|00000f50| 22 43 4c 4f 53 45 20 22 | 50 52 24 3a 20 50 52 49 |"CLOSE "|PR$: PRI|
|00000f60| 4e 54 20 20 43 48 52 24 | 28 37 29 3a 20 50 52 49 |NT  CHR$|(7): PRI|
|00000f70| 4e 54 20 22 53 4f 55 52 | 43 45 20 43 4f 44 45 20 |NT "SOUR|CE CODE |
|00000f80| 4d 55 53 54 20 42 45 47 | 49 4e 20 57 49 54 48 20 |MUST BEG|IN WITH |
|00000f90| 27 4f 52 47 27 22 3a 20 | 47 4f 54 4f 20 32 32 37 |'ORG'": |GOTO 227|
|00000fa0| 30 0a 38 35 30 20 4e 20 | 3d 20 31 3a 48 58 24 20 |0.850 N |= 1:HX$ |
|00000fb0| 3d 20 20 4d 49 44 24 20 | 28 4c 41 24 2c 31 34 29 |=  MID$ |(LA$,14)|
|00000fc0| 3a 20 49 46 20 20 4c 45 | 46 54 24 28 48 58 24 2c |: IF  LE|FT$(HX$,|
|00000fd0| 31 29 20 3d 20 22 24 22 | 20 20 54 48 45 4e 20 20 |1) = "$"|  THEN  |
|00000fe0| 47 4f 53 55 42 20 32 35 | 38 30 3a 4c 41 20 3d 20 |GOSUB 25|80:LA = |
|00000ff0| 44 54 3a 20 47 4f 54 4f | 20 38 37 30 0a 38 36 30 |DT: GOTO| 870.860|
|00001000| 20 4c 41 20 3d 20 20 56 | 41 4c 28 48 58 24 29 0a | LA =  V|AL(HX$).|
|00001010| 38 37 30 20 20 46 4f 52 | 20 4e 20 3d 20 32 20 54 |870  FOR| N = 2 T|
|00001020| 4f 20 4e 49 0a 38 38 30 | 20 20 49 4e 50 55 54 20 |O NI.880|  INPUT |
|00001030| 49 4e 24 3a 49 4e 24 20 | 3d 20 20 4c 45 46 54 24 |IN$:IN$ |=  LEFT$|
|00001040| 28 49 4e 24 2c 32 39 29 | 0a 38 38 32 20 20 56 54 |(IN$,29)|.882  VT|
|00001050| 41 42 20 31 32 3a 20 48 | 54 41 42 20 31 33 3a 20 |AB 12: H|TAB 13: |
|00001060| 50 52 49 4e 54 20 4e 3a | 20 43 41 4c 4c 20 20 2d |PRINT N:| CALL  -|
|00001070| 38 36 38 3a 20 50 52 49 | 4e 54 20 49 4e 24 0a 38 |868: PRI|NT IN$.8|
|00001080| 38 35 20 20 49 46 20 20 | 4c 45 46 54 24 28 49 4e |85  IF  |LEFT$(IN|
|00001090| 24 2c 31 29 20 3d 20 22 | 2a 22 20 20 54 48 45 4e |$,1) = "|*"  THEN|
|000010a0| 20 4c 4f 28 4e 29 20 3d | 20 41 44 3a 49 4e 24 28 | LO(N) =| AD:IN$(|
|000010b0| 4e 29 20 3d 20 22 2a 22 | 3a 20 47 4f 54 4f 20 39 |N) = "*"|: GOTO 9|
|000010c0| 35 30 3a 20 52 45 4d 20 | 20 49 47 4e 4f 52 45 20 |50: REM | IGNORE |
|000010d0| 4c 49 4e 45 53 20 53 54 | 41 52 54 49 4e 47 20 57 |LINES ST|ARTING W|
|000010e0| 49 54 48 20 22 2a 22 0a | 38 39 30 20 20 49 46 20 |ITH "*".|890  IF |
|000010f0| 20 4c 45 4e 28 49 4e 24 | 29 20 3e 31 34 20 20 54 | LEN(IN$|) >14  T|
|00001100| 48 45 4e 20 48 58 24 20 | 3d 20 20 4d 49 44 24 20 |HEN HX$ |=  MID$ |
|00001110| 28 49 4e 24 2c 31 34 29 | 3a 20 47 4f 53 55 42 20 |(IN$,14)|: GOSUB |
|00001120| 32 35 38 30 3a 49 4e 24 | 20 3d 20 20 4c 45 46 54 |2580:IN$| =  LEFT|
|00001130| 24 28 49 4e 24 2c 31 33 | 29 20 2b 48 58 24 0a 39 |$(IN$,13|) +HX$.9|
|00001140| 30 30 20 20 52 45 4d 20 | 20 54 48 49 53 20 4c 49 |00  REM | THIS LI|
|00001150| 4e 45 20 49 4e 54 45 4e | 54 49 4f 4e 41 4c 4c 59 |NE INTEN|TIONALLY|
|00001160| 20 44 45 4c 45 54 45 44 | 0a 39 31 30 20 49 4e 24 | DELETED|.910 IN$|
|00001170| 20 3d 20 20 4c 45 46 54 | 24 28 49 4e 24 20 2b 22 | =  LEFT|$(IN$ +"|
|00001180| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001190| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000011a0| 20 20 20 20 20 20 20 20 | 20 22 2c 34 31 29 0a 39 |        | ",41).9|
|000011b0| 32 30 20 20 52 45 4d 20 | 20 20 54 48 45 20 41 42 |20  REM |  THE AB|
|000011c0| 4f 56 45 20 53 54 41 54 | 45 4d 45 4e 54 20 48 41 |OVE STAT|EMENT HA|
|000011d0| 53 20 34 31 20 53 50 41 | 43 45 53 20 42 45 54 57 |S 41 SPA|CES BETW|
|000011e0| 45 45 4e 20 54 48 45 20 | 51 55 4f 54 45 53 0a 39 |EEN THE |QUOTES.9|
|000011f0| 33 30 20 20 49 46 20 20 | 4c 45 46 54 24 28 49 4e |30  IF  |LEFT$(IN|
|00001200| 24 2c 38 29 20 3c 20 3e | 22 20 20 20 20 20 20 20 |$,8) < >|"       |
|00001210| 20 22 20 20 54 48 45 4e | 20 20 47 4f 53 55 42 20 | "  THEN|  GOSUB |
|00001220| 31 31 31 30 0a 39 34 30 | 20 20 47 4f 53 55 42 20 |1110.940|  GOSUB |
|00001230| 31 32 38 30 0a 39 35 30 | 20 20 4e 45 58 54 20 0a |1280.950|  NEXT .|
|00001240| 39 36 30 20 20 50 52 49 | 4e 54 20 44 24 22 43 4c |960  PRI|NT D$"CL|
|00001250| 4f 53 45 20 22 50 52 24 | 0a 39 37 30 20 4c 4f 28 |OSE "PR$|.970 LO(|
|00001260| 4e 49 20 2b 31 29 20 3d | 20 41 44 0a 39 38 30 20 |NI +1) =| AD.980 |
|00001270| 20 47 4f 53 55 42 20 31 | 36 39 30 0a 39 39 30 20 | GOSUB 1|690.990 |
|00001280| 20 56 54 41 42 20 31 34 | 3a 20 43 41 4c 4c 20 20 | VTAB 14|: CALL  |
|00001290| 2d 39 35 38 3a 20 50 52 | 49 4e 54 20 22 53 45 43 |-958: PR|INT "SEC|
|000012a0| 4f 4e 44 20 50 41 53 53 | 3a 22 0a 31 30 30 30 20 |OND PASS|:".1000 |
|000012b0| 20 46 4f 52 20 4e 20 3d | 20 32 20 54 4f 20 4e 49 | FOR N =| 2 TO NI|
|000012c0| 0a 31 30 31 30 20 20 56 | 54 41 42 20 31 34 3a 20 |.1010  V|TAB 14: |
|000012d0| 48 54 41 42 20 31 33 3a | 20 50 52 49 4e 54 20 4e |HTAB 13:| PRINT N|
|000012e0| 0a 31 30 32 30 20 20 47 | 4f 53 55 42 20 31 37 35 |.1020  G|OSUB 175|
|000012f0| 30 0a 31 30 33 30 20 20 | 4e 45 58 54 20 0a 31 30 |0.1030  |NEXT .10|
|00001300| 34 30 20 20 50 52 49 4e | 54 20 3a 20 50 52 49 4e |40  PRIN|T : PRIN|
|00001310| 54 20 22 41 53 53 45 4d | 42 4c 59 20 43 4f 4d 50 |T "ASSEM|BLY COMP|
|00001320| 4c 45 54 45 22 3a 20 50 | 52 49 4e 54 20 3a 4c 20 |LETE": P|RINT :L |
|00001330| 3d 20 4c 4f 28 4e 20 2d | 31 29 20 2b 4c 4e 28 4e |= LO(N -|1) +LN(N|
|00001340| 20 2d 31 29 0a 31 30 35 | 30 20 20 49 46 20 4c 41 | -1).105|0  IF LA|
|00001350| 20 2b 4c 20 3c 48 49 20 | 20 41 4e 44 20 28 4c 4f | +L <HI | AND (LO|
|00001360| 20 3c 28 4c 41 29 29 20 | 20 54 48 45 4e 20 31 30 | <(LA)) | THEN 10|
|00001370| 39 30 0a 31 30 36 30 20 | 20 49 46 20 4c 41 20 2b |90.1060 | IF LA +|
|00001380| 4c 20 3c 4c 4f 20 20 41 | 4e 44 20 4c 41 20 3e 32 |L <LO  A|ND LA >2|
|00001390| 30 34 39 20 20 54 48 45 | 4e 20 20 50 52 49 4e 54 |049  THE|N  PRINT|
|000013a0| 20 22 4f 42 4a 45 43 54 | 20 43 4f 44 45 20 4d 41 | "OBJECT| CODE MA|
|000013b0| 59 20 4f 56 45 52 4c 41 | 50 20 42 41 53 49 43 20 |Y OVERLA|P BASIC |
|000013c0| 41 53 53 45 4d 42 4c 45 | 52 22 3a 20 50 52 49 4e |ASSEMBLE|R": PRIN|
|000013d0| 54 20 22 42 41 53 49 43 | 20 41 53 53 45 4d 42 4c |T "BASIC| ASSEMBL|
|000013e0| 45 52 20 57 49 4c 4c 20 | 42 45 20 43 4c 45 41 52 |ER WILL |BE CLEAR|
|000013f0| 45 44 2e 22 3a 20 47 4f | 54 4f 20 31 30 39 30 0a |ED.": GO|TO 1090.|
|00001400| 31 30 37 30 20 20 49 46 | 20 4c 41 20 3c 32 30 34 |1070  IF| LA <204|
|00001410| 39 20 20 54 48 45 4e 20 | 31 30 39 30 0a 31 30 38 |9  THEN |1090.108|
|00001420| 30 20 20 50 52 49 4e 54 | 20 22 4f 42 4a 45 43 54 |0  PRINT| "OBJECT|
|00001430| 20 43 4f 44 45 20 4f 56 | 45 52 4c 41 50 53 20 44 | CODE OV|ERLAPS D|
|00001440| 4f 53 2e 20 59 4f 55 20 | 4d 55 53 54 22 3a 20 50 |OS. YOU |MUST": P|
|00001450| 52 49 4e 54 20 22 52 45 | 2d 4c 4f 43 41 54 45 20 |RINT "RE|-LOCATE |
|00001460| 49 54 20 46 52 4f 4d 20 | 54 48 45 20 50 52 45 53 |IT FROM |THE PRES|
|00001470| 45 4e 54 20 4c 4f 43 41 | 54 49 4f 4e 22 3a 20 50 |ENT LOCA|TION": P|
|00001480| 52 49 4e 54 20 22 41 44 | 44 52 45 53 53 3a 20 22 |RINT "AD|DRESS: "|
|00001490| 3b 53 41 3a 20 50 52 49 | 4e 54 20 22 4c 45 4e 47 |;SA: PRI|NT "LENG|
|000014a0| 54 48 3a 20 22 3b 4c 3a | 20 45 4e 44 20 0a 31 30 |TH: ";L:| END .10|
|000014b0| 39 30 20 20 50 52 49 4e | 54 20 22 53 41 56 49 4e |90  PRIN|T "SAVIN|
|000014c0| 47 20 22 3b 50 52 24 3b | 22 2e 4f 42 4a 2c 41 22 |G ";PR$;|".OBJ,A"|
|000014d0| 3b 4c 41 3b 22 2c 4c 22 | 3b 4c 3a 20 50 52 49 4e |;LA;",L"|;L: PRIN|
|000014e0| 54 20 44 24 22 4f 50 45 | 4e 20 42 2e 41 2e 54 45 |T D$"OPE|N B.A.TE|
|000014f0| 4d 50 22 3a 20 50 52 49 | 4e 54 20 44 24 22 43 4c |MP": PRI|NT D$"CL|
|00001500| 4f 53 45 22 3a 20 50 52 | 49 4e 54 20 44 24 22 44 |OSE": PR|INT D$"D|
|00001510| 45 4c 45 54 45 20 42 2e | 41 2e 54 45 4d 50 22 3a |ELETE B.|A.TEMP":|
|00001520| 20 50 52 49 4e 54 20 44 | 24 22 4f 50 45 4e 20 42 | PRINT D|$"OPEN B|
|00001530| 2e 41 2e 54 45 4d 50 22 | 3a 20 50 52 49 4e 54 20 |.A.TEMP"|: PRINT |
|00001540| 44 24 22 57 52 49 54 45 | 20 42 2e 41 2e 54 45 4d |D$"WRITE| B.A.TEM|
|00001550| 50 22 3a 20 50 52 49 4e | 54 20 22 42 53 41 56 45 |P": PRIN|T "BSAVE|
|00001560| 20 22 3b 50 52 24 3b 22 | 2e 4f 42 4a 2c 41 22 3b | ";PR$;"|.OBJ,A";|
|00001570| 53 41 3b 22 2c 4c 22 3b | 4c 0a 31 31 30 30 20 20 |SA;",L";|L.1100  |
|00001580| 50 52 49 4e 54 20 22 42 | 4c 4f 41 44 20 22 3b 50 |PRINT "B|LOAD ";P|
|00001590| 52 24 3b 22 2e 4f 42 4a | 2c 41 22 4c 41 3a 20 50 |R$;".OBJ|,A"LA: P|
|000015a0| 52 49 4e 54 20 22 42 53 | 41 56 45 20 22 3b 50 52 |RINT "BS|AVE ";PR|
|000015b0| 24 3b 22 2e 4f 42 4a 2c | 41 22 3b 4c 41 3b 22 2c |$;".OBJ,|A";LA;",|
|000015c0| 4c 22 3b 4c 0a 31 31 30 | 32 20 20 49 46 20 28 4c |L";L.110|2  IF (L|
|000015d0| 41 20 3e 32 30 34 39 20 | 20 41 4e 44 20 4c 41 20 |A >2049 | AND LA |
|000015e0| 2b 4c 20 3c 4c 4f 29 20 | 20 54 48 45 4e 20 20 50 |+L <LO) | THEN  P|
|000015f0| 52 49 4e 54 20 22 46 50 | 22 0a 31 31 30 35 20 20 |RINT "FP|".1105  |
|00001600| 50 52 49 4e 54 20 44 24 | 22 43 4c 4f 53 45 22 3a |PRINT D$|"CLOSE":|
|00001610| 20 50 52 49 4e 54 20 3a | 20 50 52 49 4e 54 20 22 | PRINT :| PRINT "|
|00001620| 50 52 49 4e 54 20 41 20 | 50 52 4f 47 52 41 4d 20 |PRINT A |PROGRAM |
|00001630| 4c 49 53 54 49 4e 47 3f | 20 28 59 2f 4e 29 20 3d |LISTING?| (Y/N) =|
|00001640| 3d 3e 20 22 3b 3a 20 47 | 45 54 20 49 4e 24 3a 20 |=> ";: G|ET IN$: |
|00001650| 50 52 49 4e 54 20 49 4e | 24 3a 20 49 46 20 49 4e |PRINT IN|$: IF IN|
|00001660| 24 20 3d 20 22 59 22 20 | 20 54 48 45 4e 20 20 47 |$ = "Y" | THEN  G|
|00001670| 4f 53 55 42 20 31 30 30 | 30 30 0a 31 31 30 37 20 |OSUB 100|00.1107 |
|00001680| 20 50 52 49 4e 54 20 44 | 24 22 45 58 45 43 20 42 | PRINT D|$"EXEC B|
|00001690| 2e 41 2e 54 45 4d 50 22 | 3a 20 45 4e 44 20 0a 31 |.A.TEMP"|: END .1|
|000016a0| 31 31 30 20 20 52 45 4d | 20 20 20 50 52 4f 43 45 |110  REM|   PROCE|
|000016b0| 53 53 20 4c 41 42 45 4c | 53 0a 31 31 32 30 20 20 |SS LABEL|S.1120  |
|000016c0| 46 4f 52 20 50 20 3d 20 | 31 20 54 4f 20 38 0a 31 |FOR P = |1 TO 8.1|
|000016d0| 31 33 30 20 20 49 46 20 | 20 4d 49 44 24 20 28 49 |130  IF | MID$ (I|
|000016e0| 4e 24 2c 50 2c 31 29 20 | 3d 20 22 20 22 20 20 54 |N$,P,1) |= " "  T|
|000016f0| 48 45 4e 20 31 31 35 30 | 0a 31 31 34 30 20 20 4e |HEN 1150|.1140  N|
|00001700| 45 58 54 20 0a 31 31 35 | 30 20 50 20 3d 20 50 20 |EXT .115|0 P = P |
|00001710| 2d 31 0a 31 31 36 30 20 | 20 49 46 20 20 4d 49 44 |-1.1160 | IF  MID|
|00001720| 24 20 28 49 4e 24 2c 31 | 30 2c 33 29 20 3c 20 3e |$ (IN$,1|0,3) < >|
|00001730| 22 45 51 55 22 20 20 54 | 48 45 4e 20 31 32 34 30 |"EQU"  T|HEN 1240|
|00001740| 0a 31 31 37 30 20 4e 46 | 20 3d 20 4e 46 20 2b 31 |.1170 NF| = NF +1|
|00001750| 0a 31 31 38 30 20 4c 46 | 24 28 4e 46 29 20 3d 20 |.1180 LF|$(NF) = |
|00001760| 20 4c 45 46 54 24 28 49 | 4e 24 2c 50 29 0a 31 31 | LEFT$(I|N$,P).11|
|00001770| 39 30 20 41 46 28 4e 46 | 29 20 3d 20 20 56 41 4c |90 AF(NF|) =  VAL|
|00001780| 28 20 4d 49 44 24 20 28 | 49 4e 24 2c 31 34 2c 20 |( MID$ (|IN$,14, |
|00001790| 4c 45 4e 28 49 4e 24 29 | 20 2d 31 33 29 29 0a 31 |LEN(IN$)| -13)).1|
|000017a0| 32 30 30 20 58 4c 20 3d | 20 20 4c 45 4e 28 20 53 |200 XL =|  LEN( S|
|000017b0| 54 52 24 28 41 46 28 4e | 46 29 29 29 20 2b 31 34 |TR$(AF(N|F))) +14|
|000017c0| 0a 31 32 31 30 20 20 49 | 46 20 58 4c 20 3e 20 3d |.1210  I|F XL > =|
|000017d0| 20 20 4c 45 4e 28 49 4e | 24 29 20 20 54 48 45 4e |  LEN(IN|$)  THEN|
|000017e0| 20 31 32 37 30 0a 31 32 | 32 30 20 20 49 46 20 20 | 1270.12|20  IF  |
|000017f0| 4d 49 44 24 20 28 49 4e | 24 2c 58 4c 2c 31 29 20 |MID$ (IN|$,XL,1) |
|00001800| 3d 20 22 21 22 20 20 54 | 48 45 4e 20 58 41 20 3d |= "!"  T|HEN XA =|
|00001810| 20 41 46 28 4e 46 29 3a | 20 47 4f 53 55 42 20 32 | AF(NF):| GOSUB 2|
|00001820| 35 30 30 0a 31 32 33 30 | 20 20 47 4f 54 4f 20 31 |500.1230|  GOTO 1|
|00001830| 32 37 30 0a 31 32 34 30 | 20 4e 52 20 3d 20 4e 52 |270.1240| NR = NR|
|00001840| 20 2b 31 0a 31 32 35 30 | 20 4c 52 24 28 4e 52 29 | +1.1250| LR$(NR)|
|00001850| 20 3d 20 20 4c 45 46 54 | 24 28 49 4e 24 2c 50 29 | =  LEFT|$(IN$,P)|
|00001860| 0a 31 32 36 30 20 44 52 | 28 4e 52 29 20 3d 20 41 |.1260 DR|(NR) = A|
|00001870| 44 20 2b 4c 41 0a 31 32 | 37 30 20 20 52 45 54 55 |D +LA.12|70  RETU|
|00001880| 52 4e 20 0a 31 32 38 30 | 20 20 52 45 4d 20 20 20 |RN .1280|  REM   |
|00001890| 50 52 4f 43 45 53 53 20 | 4c 45 4e 47 54 48 0a 31 |PROCESS |LENGTH.1|
|000018a0| 32 39 30 20 50 20 3d 20 | 31 34 0a 31 33 30 30 20 |290 P = |14.1300 |
|000018b0| 49 4e 24 28 4e 29 20 3d | 20 20 4d 49 44 24 20 28 |IN$(N) =|  MID$ (|
|000018c0| 49 4e 24 2c 31 30 2c 33 | 29 0a 31 33 31 30 20 4c |IN$,10,3|).1310 L|
|000018d0| 4f 28 4e 29 20 3d 20 41 | 44 0a 31 33 31 35 20 20 |O(N) = A|D.1315  |
|000018e0| 49 46 20 49 4e 24 28 4e | 29 20 3d 20 22 41 53 43 |IF IN$(N|) = "ASC|
|000018f0| 22 20 20 54 48 45 4e 20 | 20 47 4f 53 55 42 20 32 |"  THEN | GOSUB 2|
|00001900| 38 30 30 3a 20 47 4f 54 | 4f 20 31 36 37 30 0a 31 |800: GOT|O 1670.1|
|00001910| 33 32 30 20 20 49 46 20 | 49 4e 24 28 4e 29 20 3d |320  IF |IN$(N) =|
|00001920| 20 22 45 51 55 22 20 20 | 54 48 45 4e 20 31 36 38 | "EQU"  |THEN 168|
|00001930| 30 0a 31 33 33 30 20 20 | 49 46 20 49 4e 24 28 4e |0.1330  |IF IN$(N|
|00001940| 29 20 3d 20 22 44 52 53 | 22 20 20 54 48 45 4e 20 |) = "DRS|"  THEN |
|00001950| 4c 4e 28 4e 29 20 3d 20 | 20 56 41 4c 28 20 4d 49 |LN(N) = | VAL( MI|
|00001960| 44 24 20 28 49 4e 24 2c | 31 34 29 29 3a 20 47 4f |D$ (IN$,|14)): GO|
|00001970| 53 55 42 20 32 33 30 30 | 3a 20 47 4f 54 4f 20 31 |SUB 2300|: GOTO 1|
|00001980| 36 37 30 0a 31 33 34 30 | 20 20 49 46 20 20 4d 49 |670.1340|  IF  MI|
|00001990| 44 24 20 28 49 4e 24 2c | 31 34 2c 31 29 20 3d 20 |D$ (IN$,|14,1) = |
|000019a0| 22 20 22 20 20 54 48 45 | 4e 20 4d 44 28 4e 29 20 |" "  THE|N MD(N) |
|000019b0| 3d 20 31 3a 20 47 4f 54 | 4f 20 31 34 36 30 0a 31 |= 1: GOT|O 1460.1|
|000019c0| 33 35 30 20 50 20 3d 20 | 31 35 0a 31 33 36 30 20 |350 P = |15.1360 |
|000019d0| 20 49 46 20 20 4d 49 44 | 24 20 28 49 4e 24 2c 50 | IF  MID|$ (IN$,P|
|000019e0| 2c 31 29 20 3c 20 3e 22 | 20 22 20 20 41 4e 44 20 |,1) < >"| "  AND |
|000019f0| 20 4d 49 44 24 20 28 49 | 4e 24 2c 50 2c 31 29 20 | MID$ (I|N$,P,1) |
|00001a00| 3c 20 3e 22 2c 22 20 20 | 41 4e 44 20 20 4d 49 44 |< >","  |AND  MID|
|00001a10| 24 20 28 49 4e 24 2c 50 | 2c 31 29 20 3c 20 3e 22 |$ (IN$,P|,1) < >"|
|00001a20| 29 22 20 20 54 48 45 4e | 20 50 20 3d 20 50 20 2b |)"  THEN| P = P +|
|00001a30| 31 3a 20 47 4f 54 4f 20 | 31 33 36 30 0a 31 33 36 |1: GOTO |1360.136|
|00001a40| 35 20 20 49 46 20 49 4e | 24 28 4e 29 20 3d 20 22 |5  IF IN|$(N) = "|
|00001a50| 48 45 58 22 20 20 54 48 | 45 4e 20 4c 42 24 28 4e |HEX"  TH|EN LB$(N|
|00001a60| 29 20 3d 20 20 4d 49 44 | 24 20 28 49 4e 24 2c 31 |) =  MID|$ (IN$,1|
|00001a70| 34 2c 50 20 2d 31 34 29 | 3a 4c 4e 28 4e 29 20 3d |4,P -14)|:LN(N) =|
|00001a80| 20 28 20 56 41 4c 28 4c | 42 24 28 4e 29 29 20 3c | ( VAL(L|B$(N)) <|
|00001a90| 32 35 36 20 2a 31 29 20 | 2b 28 20 56 41 4c 28 4c |256 *1) |+( VAL(L|
|00001aa0| 42 24 28 4e 29 29 20 3e | 32 35 35 29 20 2a 32 3a |B$(N)) >|255) *2:|
|00001ab0| 20 47 4f 54 4f 20 31 36 | 37 30 0a 31 33 37 30 20 | GOTO 16|70.1370 |
|00001ac0| 20 49 46 20 20 4d 49 44 | 24 20 28 49 4e 24 2c 50 | IF  MID|$ (IN$,P|
|00001ad0| 2c 33 29 20 3d 20 22 2c | 58 20 22 20 20 54 48 45 |,3) = ",|X "  THE|
|00001ae0| 4e 20 4d 44 28 4e 29 20 | 3d 20 35 3a 20 47 4f 54 |N MD(N) |= 5: GOT|
|00001af0| 4f 20 31 34 36 30 0a 31 | 33 38 30 20 20 49 46 20 |O 1460.1|380  IF |
|00001b00| 20 4d 49 44 24 20 28 49 | 4e 24 2c 50 2c 33 29 20 | MID$ (I|N$,P,3) |
|00001b10| 3d 20 22 2c 59 20 22 20 | 20 54 48 45 4e 20 4d 44 |= ",Y " | THEN MD|
|00001b20| 28 4e 29 20 3d 20 36 3a | 20 47 4f 54 4f 20 31 34 |(N) = 6:| GOTO 14|
|00001b30| 36 30 0a 31 33 39 30 20 | 20 49 46 20 20 4d 49 44 |60.1390 | IF  MID|
|00001b40| 24 20 28 49 4e 24 2c 50 | 2c 33 29 20 3d 20 22 2c |$ (IN$,P|,3) = ",|
|00001b50| 58 29 22 20 20 54 48 45 | 4e 20 4d 44 28 4e 29 20 |X)"  THE|N MD(N) |
|00001b60| 3d 20 37 3a 20 47 4f 54 | 4f 20 31 34 36 30 0a 31 |= 7: GOT|O 1460.1|
|00001b70| 34 30 30 20 20 49 46 20 | 20 4d 49 44 24 20 28 49 |400  IF | MID$ (I|
|00001b80| 4e 24 2c 50 2c 33 29 20 | 3d 20 22 29 20 20 22 20 |N$,P,3) |= ")  " |
|00001b90| 20 54 48 45 4e 20 4d 44 | 28 4e 29 20 3d 20 31 32 | THEN MD|(N) = 12|
|00001ba0| 3a 20 47 4f 54 4f 20 31 | 34 36 30 0a 31 34 31 30 |: GOTO 1|460.1410|
|00001bb0| 20 20 49 46 20 20 4d 49 | 44 24 20 28 49 4e 24 2c |  IF  MI|D$ (IN$,|
|00001bc0| 50 2c 33 29 20 3d 20 22 | 29 2c 59 22 20 20 54 48 |P,3) = "|),Y"  TH|
|00001bd0| 45 4e 20 4d 44 28 4e 29 | 20 3d 20 38 3a 20 47 4f |EN MD(N)| = 8: GO|
|00001be0| 54 4f 20 31 34 36 30 0a | 31 34 32 30 20 20 49 46 |TO 1460.|1420  IF|
|00001bf0| 20 20 4d 49 44 24 20 28 | 49 4e 24 2c 31 34 2c 31 |  MID$ (|IN$,14,1|
|00001c00| 29 20 3d 20 22 23 22 20 | 20 54 48 45 4e 20 4d 44 |) = "#" | THEN MD|
|00001c10| 28 4e 29 20 3d 20 34 3a | 20 47 4f 54 4f 20 31 34 |(N) = 4:| GOTO 14|
|00001c20| 36 30 0a 31 34 33 30 20 | 20 49 46 20 20 4d 49 44 |60.1430 | IF  MID|
|00001c30| 24 20 28 49 4e 24 2c 31 | 34 2c 31 29 20 3d 20 22 |$ (IN$,1|4,1) = "|
|00001c40| 3c 22 20 20 54 48 45 4e | 20 4d 44 28 4e 29 20 3d |<"  THEN| MD(N) =|
|00001c50| 20 31 33 3a 20 47 4f 54 | 4f 20 31 34 36 30 0a 31 | 13: GOT|O 1460.1|
|00001c60| 34 34 30 20 20 49 46 20 | 20 4d 49 44 24 20 28 49 |440  IF | MID$ (I|
|00001c70| 4e 24 2c 31 34 2c 31 29 | 20 3d 20 22 3e 22 20 20 |N$,14,1)| = ">"  |
|00001c80| 54 48 45 4e 20 4d 44 28 | 4e 29 20 3d 20 31 34 3a |THEN MD(|N) = 14:|
|00001c90| 20 47 4f 54 4f 20 31 34 | 36 30 0a 31 34 35 30 20 | GOTO 14|60.1450 |
|00001ca0| 4d 44 28 4e 29 20 3d 20 | 32 0a 31 34 36 30 20 20 |MD(N) = |2.1460  |
|00001cb0| 49 46 20 20 4d 49 44 24 | 20 28 49 4e 24 2c 31 30 |IF  MID$| (IN$,10|
|00001cc0| 2c 31 29 20 3d 20 22 42 | 22 20 20 41 4e 44 20 20 |,1) = "B|"  AND  |
|00001cd0| 4d 49 44 24 20 28 49 4e | 24 2c 31 30 2c 33 29 20 |MID$ (IN|$,10,3) |
|00001ce0| 3c 20 3e 22 42 49 54 22 | 20 20 41 4e 44 20 20 4d |< >"BIT"|  AND  M|
|00001cf0| 49 44 24 20 28 49 4e 24 | 2c 31 30 2c 33 29 20 3c |ID$ (IN$|,10,3) <|
|00001d00| 20 3e 22 42 52 4b 22 20 | 20 54 48 45 4e 20 4d 44 | >"BRK" | THEN MD|
|00001d10| 28 4e 29 20 3d 20 31 31 | 3a 4c 42 24 28 4e 29 20 |(N) = 11|:LB$(N) |
|00001d20| 3d 20 20 4d 49 44 24 20 | 28 49 4e 24 2c 31 34 2c |=  MID$ |(IN$,14,|
|00001d30| 50 20 2d 31 34 29 3a 54 | 50 24 28 4e 29 20 3d 20 |P -14):T|P$(N) = |
|00001d40| 22 52 22 3a 20 47 4f 54 | 4f 20 31 36 34 30 0a 31 |"R": GOT|O 1640.1|
|00001d50| 34 37 30 20 20 49 46 20 | 4d 44 28 4e 29 20 3c 20 |470  IF |MD(N) < |
|00001d60| 3e 34 20 20 54 48 45 4e | 20 31 34 38 30 3a 20 52 |>4  THEN| 1480: R|
|00001d70| 45 4d 20 20 46 4f 4c 4c | 4f 57 49 4e 47 20 43 4f |EM  FOLL|OWING CO|
|00001d80| 44 45 20 41 44 44 45 44 | 20 42 59 20 41 4c 20 42 |DE ADDED| BY AL B|
|00001d90| 41 4b 45 52 20 46 4f 52 | 20 49 4e 53 54 52 55 43 |AKER FOR| INSTRUC|
|00001da0| 54 49 4f 4e 53 20 4c 49 | 4b 45 20 4c 44 41 20 23 |TIONS LI|KE LDA #|
|00001db0| 42 45 4c 4c 20 57 49 54 | 48 20 41 20 4c 41 42 45 |BELL WIT|H A LABE|
|00001dc0| 4c 20 41 53 20 41 4e 20 | 49 4d 4d 45 44 49 41 54 |L AS AN |IMMEDIAT|
|00001dd0| 45 20 4f 50 45 52 41 4e | 44 0a 31 34 37 32 20 4c |E OPERAN|D.1472 L|
|00001de0| 42 24 28 4e 29 20 3d 20 | 20 4d 49 44 24 20 28 49 |B$(N) = | MID$ (I|
|00001df0| 4e 24 2c 31 35 2c 50 20 | 2d 31 35 29 3a 54 50 24 |N$,15,P |-15):TP$|
|00001e00| 28 4e 29 20 3d 20 22 46 | 22 3a 20 46 4f 52 20 49 |(N) = "F|": FOR I|
|00001e10| 20 3d 20 31 20 54 4f 20 | 4e 46 3a 20 49 46 20 4c | = 1 TO |NF: IF L|
|00001e20| 46 24 28 49 29 20 3d 20 | 4c 42 24 28 4e 29 20 20 |F$(I) = |LB$(N)  |
|00001e30| 54 48 45 4e 20 31 34 37 | 36 0a 31 34 37 34 20 20 |THEN 147|6.1474  |
|00001e40| 4e 45 58 54 20 3a 20 47 | 4f 54 4f 20 31 36 36 30 |NEXT : G|OTO 1660|
|00001e50| 0a 31 34 37 36 20 20 49 | 46 20 41 46 28 49 29 20 |.1476  I|F AF(I) |
|00001e60| 3e 32 35 35 20 20 54 48 | 45 4e 20 20 50 52 49 4e |>255  TH|EN  PRIN|
|00001e70| 54 20 22 56 41 4c 55 45 | 20 4f 46 20 49 4d 4d 45 |T "VALUE| OF IMME|
|00001e80| 44 49 41 54 45 20 4f 50 | 45 52 41 4e 44 20 3e 32 |DIATE OP|ERAND >2|
|00001e90| 35 35 20 3d 3d 3e 28 23 | 20 22 4e 22 29 22 3a 20 |55 ==>(#| "N")": |
|00001ea0| 47 4f 54 4f 20 32 32 30 | 30 0a 31 34 37 38 20 4c |GOTO 220|0.1478 L|
|00001eb0| 42 24 28 4e 29 20 3d 20 | 20 53 54 52 24 28 41 46 |B$(N) = | STR$(AF|
|00001ec0| 28 49 29 29 3a 20 47 4f | 54 4f 20 31 36 36 30 0a |(I)): GO|TO 1660.|
|00001ed0| 31 34 38 30 20 20 49 46 | 20 4d 44 28 4e 29 20 3d |1480  IF| MD(N) =|
|00001ee0| 20 31 33 20 20 4f 52 20 | 4d 44 28 4e 29 20 3d 20 | 13  OR |MD(N) = |
|00001ef0| 31 34 20 20 54 48 45 4e | 20 4c 42 24 28 4e 29 20 |14  THEN| LB$(N) |
|00001f00| 3d 20 20 4d 49 44 24 20 | 28 49 4e 24 2c 31 35 2c |=  MID$ |(IN$,15,|
|00001f10| 50 20 2d 31 35 29 3a 20 | 47 4f 54 4f 20 31 35 32 |P -15): |GOTO 152|
|00001f20| 30 0a 31 34 39 30 20 20 | 49 46 20 4d 44 28 4e 29 |0.1490  |IF MD(N)|
|00001f30| 20 3d 20 37 20 20 4f 52 | 20 4d 44 28 4e 29 20 3d | = 7  OR| MD(N) =|
|00001f40| 20 38 20 20 4f 52 20 4d | 44 28 4e 29 20 3d 20 31 | 8  OR M|D(N) = 1|
|00001f50| 32 20 20 54 48 45 4e 20 | 4c 42 24 28 4e 29 20 3d |2  THEN |LB$(N) =|
|00001f60| 20 20 4d 49 44 24 20 28 | 49 4e 24 2c 31 35 2c 50 |  MID$ (|IN$,15,P|
|00001f70| 20 2d 31 35 29 3a 20 47 | 4f 54 4f 20 31 35 32 30 | -15): G|OTO 1520|
|00001f80| 0a 31 35 30 30 20 4c 42 | 24 28 4e 29 20 3d 20 20 |.1500 LB|$(N) =  |
|00001f90| 4d 49 44 24 20 28 49 4e | 24 2c 31 34 2c 50 20 2d |MID$ (IN|$,14,P -|
|00001fa0| 31 34 29 0a 31 35 31 30 | 20 20 49 46 20 4d 44 28 |14).1510|  IF MD(|
|00001fb0| 4e 29 20 3d 20 31 20 20 | 54 48 45 4e 20 54 50 24 |N) = 1  |THEN TP$|
|00001fc0| 28 4e 29 20 3d 20 22 46 | 22 3a 20 47 4f 54 4f 20 |(N) = "F|": GOTO |
|00001fd0| 31 36 34 30 0a 31 35 32 | 30 20 20 46 4f 52 20 49 |1640.152|0  FOR I|
|00001fe0| 20 3d 20 31 20 54 4f 20 | 4e 46 0a 31 35 33 30 20 | = 1 TO |NF.1530 |
|00001ff0| 20 49 46 20 4c 46 24 28 | 49 29 20 3d 20 4c 42 24 | IF LF$(|I) = LB$|
|00002000| 28 4e 29 20 20 54 48 45 | 4e 20 54 50 24 28 4e 29 |(N)  THE|N TP$(N)|
|00002010| 20 3d 20 22 46 22 3a 4c | 42 24 28 4e 29 20 3d 20 | = "F":L|B$(N) = |
|00002020| 20 53 54 52 24 28 41 46 | 28 49 29 29 3a 20 47 4f | STR$(AF|(I)): GO|
|00002030| 54 4f 20 31 36 30 30 0a | 31 35 34 30 20 20 4e 45 |TO 1600.|1540  NE|
|00002040| 58 54 20 0a 31 35 35 30 | 20 20 46 4f 52 20 49 20 |XT .1550|  FOR I |
|00002050| 3d 20 31 20 54 4f 20 4e | 52 0a 31 35 36 30 20 20 |= 1 TO N|R.1560  |
|00002060| 49 46 20 4c 52 24 28 49 | 29 20 3d 20 4c 42 24 28 |IF LR$(I|) = LB$(|
|00002070| 4e 29 20 20 54 48 45 4e | 20 54 50 24 28 4e 29 20 |N)  THEN| TP$(N) |
|00002080| 3d 20 22 44 22 3a 4c 42 | 24 28 4e 29 20 3d 20 20 |= "D":LB|$(N) =  |
|00002090| 53 54 52 24 28 44 52 28 | 49 29 29 3a 20 47 4f 54 |STR$(DR(|I)): GOT|
|000020a0| 4f 20 31 36 30 30 0a 31 | 35 37 30 20 20 4e 45 58 |O 1600.1|570  NEX|
|000020b0| 54 20 0a 31 35 38 30 20 | 54 50 24 28 4e 29 20 3d |T .1580 |TP$(N) =|
|000020c0| 20 22 55 22 3a 20 46 4f | 52 20 50 20 3d 20 32 20 | "U": FO|R P = 2 |
|000020d0| 54 4f 20 20 4c 45 4e 28 | 4c 42 24 28 4e 29 29 3a |TO  LEN(|LB$(N)):|
|000020e0| 20 49 46 20 20 4d 49 44 | 24 20 28 4c 42 24 28 4e | IF  MID|$ (LB$(N|
|000020f0| 29 2c 50 2c 31 29 20 3d | 20 22 2b 22 20 20 4f 52 |),P,1) =| "+"  OR|
|00002100| 20 20 4d 49 44 24 20 28 | 4c 42 24 28 4e 29 2c 50 |  MID$ (|LB$(N),P|
|00002110| 2c 31 29 20 3d 20 22 2d | 22 20 20 54 48 45 4e 20 |,1) = "-|"  THEN |
|00002120| 20 47 4f 54 4f 20 31 35 | 38 35 0a 31 35 38 32 20 | GOTO 15|85.1582 |
|00002130| 20 4e 45 58 54 20 3a 20 | 47 4f 54 4f 20 31 36 30 | NEXT : |GOTO 160|
|00002140| 30 0a 31 35 38 35 20 3a | 20 46 4f 52 20 4a 20 3d |0.1585 :| FOR J =|
|00002150| 20 31 20 54 4f 20 4e 46 | 3a 20 49 46 20 4c 46 24 | 1 TO NF|: IF LF$|
|00002160| 28 4a 29 20 3d 20 20 4c | 45 46 54 24 28 4c 42 24 |(J) =  L|EFT$(LB$|
|00002170| 28 4e 29 2c 50 20 2d 31 | 29 20 20 54 48 45 4e 20 |(N),P -1|)  THEN |
|00002180| 54 50 24 28 4e 29 20 3d | 20 22 46 22 3a 4c 42 24 |TP$(N) =| "F":LB$|
|00002190| 28 4e 29 20 3d 20 20 53 | 54 52 24 28 41 46 28 4a |(N) =  S|TR$(AF(J|
|000021a0| 29 20 2b 20 56 41 4c 28 | 20 4d 49 44 24 20 28 4c |) + VAL(| MID$ (L|
|000021b0| 42 24 28 4e 29 2c 50 29 | 29 29 3a 20 4f 4e 20 28 |B$(N),P)|)): ON (|
|000021c0| 20 56 41 4c 28 4c 42 24 | 28 4e 29 29 20 3c 32 35 | VAL(LB$|(N)) <25|
|000021d0| 36 29 20 2a 31 20 2b 28 | 20 56 41 4c 28 4c 42 24 |6) *1 +(| VAL(LB$|
|000021e0| 28 4e 29 29 20 3e 20 3d | 20 32 35 36 29 20 2a 32 |(N)) > =| 256) *2|
|000021f0| 20 47 4f 54 4f 20 31 36 | 31 30 2c 31 36 34 30 0a | GOTO 16|10,1640.|
|00002200| 31 35 39 30 20 20 4e 45 | 58 54 20 0a 31 36 30 30 |1590  NE|XT .1600|
|00002210| 20 20 49 46 20 54 50 24 | 28 4e 29 20 3c 20 3e 22 |  IF TP$|(N) < >"|
|00002220| 46 22 20 20 4f 52 20 41 | 46 28 49 29 20 3e 20 3d |F"  OR A|F(I) > =|
|00002230| 20 32 35 36 20 20 54 48 | 45 4e 20 31 36 34 30 0a | 256  TH|EN 1640.|
|00002240| 31 36 31 30 20 20 49 46 | 20 4d 44 28 4e 29 20 3d |1610  IF| MD(N) =|
|00002250| 20 32 20 20 41 4e 44 20 | 49 4e 24 28 4e 29 20 3c | 2  AND |IN$(N) <|
|00002260| 20 3e 22 4a 4d 50 22 20 | 20 41 4e 44 20 49 4e 24 | >"JMP" | AND IN$|
|00002270| 28 4e 29 20 3c 20 3e 22 | 4a 53 52 22 20 20 54 48 |(N) < >"|JSR"  TH|
|00002280| 45 4e 20 4d 44 28 4e 29 | 20 3d 20 33 0a 31 36 32 |EN MD(N)| = 3.162|
|00002290| 30 20 20 49 46 20 4d 44 | 28 4e 29 20 3d 20 35 20 |0  IF MD|(N) = 5 |
|000022a0| 20 54 48 45 4e 20 4d 44 | 28 4e 29 20 3d 20 39 0a | THEN MD|(N) = 9.|
|000022b0| 31 36 33 30 20 20 49 46 | 20 4d 44 28 4e 29 20 3d |1630  IF| MD(N) =|
|000022c0| 20 36 20 20 41 4e 44 20 | 28 49 4e 24 28 4e 29 20 | 6  AND |(IN$(N) |
|000022d0| 3d 20 22 4c 44 58 22 20 | 20 4f 52 20 49 4e 24 28 |= "LDX" | OR IN$(|
|000022e0| 4e 29 20 3d 20 22 53 54 | 58 22 29 20 20 54 48 45 |N) = "ST|X")  THE|
|000022f0| 4e 20 4d 44 28 4e 29 20 | 3d 20 31 30 0a 31 36 34 |N MD(N) |= 10.164|
|00002300| 30 20 20 49 46 20 4d 44 | 28 4e 29 20 3d 20 31 20 |0  IF MD|(N) = 1 |
|00002310| 20 54 48 45 4e 20 4c 4e | 28 4e 29 20 3d 20 31 3a | THEN LN|(N) = 1:|
|00002320| 20 47 4f 54 4f 20 31 36 | 37 30 0a 31 36 35 30 20 | GOTO 16|70.1650 |
|00002330| 20 49 46 20 4d 44 28 4e | 29 20 3d 20 32 20 20 4f | IF MD(N|) = 2  O|
|00002340| 52 20 4d 44 28 4e 29 20 | 3d 20 35 20 20 4f 52 20 |R MD(N) |= 5  OR |
|00002350| 4d 44 28 4e 29 20 3d 20 | 36 20 20 4f 52 20 4d 44 |MD(N) = |6  OR MD|
|00002360| 28 4e 29 20 3d 20 31 32 | 20 20 54 48 45 4e 20 4c |(N) = 12|  THEN L|
|00002370| 4e 28 4e 29 20 3d 20 33 | 3a 20 47 4f 54 4f 20 31 |N(N) = 3|: GOTO 1|
|00002380| 36 37 30 0a 31 36 36 30 | 20 4c 4e 28 4e 29 20 3d |670.1660| LN(N) =|
|00002390| 20 32 0a 31 36 37 30 20 | 41 44 20 3d 20 41 44 20 | 2.1670 |AD = AD |
|000023a0| 2b 4c 4e 28 4e 29 0a 31 | 36 38 30 20 20 52 45 54 |+LN(N).1|680  RET|
|000023b0| 55 52 4e 20 0a 31 36 39 | 30 20 20 52 45 4d 20 20 |URN .169|0  REM  |
|000023c0| 20 42 55 49 4c 44 20 4f | 50 20 43 4f 44 45 20 54 | BUILD O|P CODE T|
|000023d0| 41 42 4c 45 0a 31 37 30 | 30 20 20 56 54 41 42 20 |ABLE.170|0  VTAB |
|000023e0| 31 33 3a 20 43 41 4c 4c | 20 20 2d 39 35 38 3a 20 |13: CALL|  -958: |
|000023f0| 46 4c 41 53 48 20 3a 20 | 50 52 49 4e 54 20 22 20 |FLASH : |PRINT " |
|00002400| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 22 3b 3a |        |     ";:|
|00002410| 20 52 45 4d 20 20 31 34 | 20 53 50 41 43 45 53 0a | REM  14| SPACES.|
|00002420| 31 37 31 30 20 20 46 4f | 52 20 4e 20 3d 20 31 20 |1710  FO|R N = 1 |
|00002430| 54 4f 20 35 36 3a 20 52 | 45 41 44 20 4f 50 24 28 |TO 56: R|EAD OP$(|
|00002440| 4e 29 3a 20 46 4f 52 20 | 49 20 3d 20 31 20 54 4f |N): FOR |I = 1 TO|
|00002450| 20 31 32 3a 20 52 45 41 | 44 20 4f 50 28 4e 2c 49 | 12: REA|D OP(N,I|
|00002460| 29 3a 20 4e 45 58 54 20 | 3a 20 4e 45 58 54 20 0a |): NEXT |: NEXT .|
|00002470| 31 37 32 30 20 20 50 52 | 49 4e 54 20 0a 31 37 33 |1720  PR|INT .173|
|00002480| 30 20 20 56 54 41 42 20 | 31 33 3a 20 49 4e 56 45 |0  VTAB |13: INVE|
|00002490| 52 53 45 20 3a 20 50 52 | 49 4e 54 20 22 20 20 20 |RSE : PR|INT "   |
|000024a0| 20 20 20 20 20 20 20 20 | 20 20 20 22 3a 20 4e 4f |        |   ": NO|
|000024b0| 52 4d 41 4c 20 0a 31 37 | 34 30 20 20 52 45 54 55 |RMAL .17|40  RETU|
|000024c0| 52 4e 20 0a 31 37 35 30 | 20 20 52 45 4d 20 20 20 |RN .1750|  REM   |
|000024d0| 46 49 4e 44 20 4f 50 20 | 43 4f 44 45 0a 31 37 35 |FIND OP |CODE.175|
|000024e0| 35 20 20 49 46 20 49 4e | 24 28 4e 29 20 3d 20 22 |5  IF IN|$(N) = "|
|000024f0| 2a 22 20 20 54 48 45 4e | 20 32 31 39 30 3a 20 52 |*"  THEN| 2190: R|
|00002500| 45 4d 20 20 49 47 4e 4f | 52 45 20 4c 49 4e 45 53 |EM  IGNO|RE LINES|
|00002510| 20 53 54 41 52 54 49 4e | 47 20 57 49 54 48 20 22 | STARTIN|G WITH "|
|00002520| 2a 22 0a 31 37 36 30 20 | 20 49 46 20 49 4e 24 28 |*".1760 | IF IN$(|
|00002530| 4e 29 20 3d 20 22 44 52 | 53 22 20 20 4f 52 20 49 |N) = "DR|S"  OR I|
|00002540| 4e 24 28 4e 29 20 3d 20 | 22 45 51 55 22 20 20 54 |N$(N) = |"EQU"  T|
|00002550| 48 45 4e 20 32 31 39 30 | 0a 31 37 36 32 20 20 49 |HEN 2190|.1762  I|
|00002560| 46 20 49 4e 24 28 4e 29 | 20 3d 20 22 41 53 43 22 |F IN$(N)| = "ASC"|
|00002570| 20 20 54 48 45 4e 20 20 | 46 4f 52 20 4a 20 3d 20 |  THEN  |FOR J = |
|00002580| 31 20 54 4f 20 4c 4e 28 | 4e 29 3a 20 50 4f 4b 45 |1 TO LN(|N): POKE|
|00002590| 20 4c 4f 28 4e 29 20 2b | 53 41 20 2b 4a 20 2d 31 | LO(N) +|SA +J -1|
|000025a0| 2c 20 41 53 43 28 20 4d | 49 44 24 20 28 4c 42 24 |, ASC( M|ID$ (LB$|
|000025b0| 28 4e 29 2c 4a 2c 31 29 | 29 20 2b 31 32 38 3a 20 |(N),J,1)|) +128: |
|000025c0| 4e 45 58 54 20 4a 3a 20 | 47 4f 54 4f 20 32 31 39 |NEXT J: |GOTO 219|
|000025d0| 30 0a 31 37 36 35 20 20 | 49 46 20 49 4e 24 28 4e |0.1765  |IF IN$(N|
|000025e0| 29 20 3d 20 22 48 45 58 | 22 20 20 41 4e 44 20 4c |) = "HEX|"  AND L|
|000025f0| 4e 28 4e 29 20 3d 20 31 | 20 20 54 48 45 4e 20 20 |N(N) = 1|  THEN  |
|00002600| 50 4f 4b 45 20 4c 4f 28 | 4e 29 20 2b 53 41 2c 20 |POKE LO(|N) +SA, |
|00002610| 56 41 4c 28 4c 42 24 28 | 4e 29 29 3a 20 47 4f 54 |VAL(LB$(|N)): GOT|
|00002620| 4f 20 32 31 39 30 0a 31 | 37 36 37 20 20 49 46 20 |O 2190.1|767  IF |
|00002630| 49 4e 24 28 4e 29 20 3d | 20 22 48 45 58 22 20 20 |IN$(N) =| "HEX"  |
|00002640| 41 4e 44 20 4c 4e 28 4e | 29 20 3d 20 32 20 20 54 |AND LN(N|) = 2  T|
|00002650| 48 45 4e 20 20 50 4f 4b | 45 20 4c 4f 28 4e 29 20 |HEN  POK|E LO(N) |
|00002660| 2b 53 41 2c 20 56 41 4c | 28 4c 42 24 28 4e 29 29 |+SA, VAL|(LB$(N))|
|00002670| 2f 32 35 36 3a 20 50 4f | 4b 45 20 4c 4f 28 4e 29 |/256: PO|KE LO(N)|
|00002680| 20 2b 53 41 20 2b 31 2c | 20 56 41 4c 28 4c 42 24 | +SA +1,| VAL(LB$|
|00002690| 28 4e 29 29 20 2d 28 32 | 35 36 20 2a 20 50 45 45 |(N)) -(2|56 * PEE|
|000026a0| 4b 28 4c 4f 28 4e 29 20 | 2b 53 41 29 29 3a 20 47 |K(LO(N) |+SA)): G|
|000026b0| 4f 54 4f 20 32 31 39 30 | 0a 31 37 37 30 20 20 46 |OTO 2190|.1770  F|
|000026c0| 4f 52 20 49 20 3d 20 31 | 20 54 4f 20 35 36 0a 31 |OR I = 1| TO 56.1|
|000026d0| 37 38 30 20 20 49 46 20 | 4f 50 24 28 49 29 20 3d |780  IF |OP$(I) =|
|000026e0| 20 49 4e 24 28 4e 29 20 | 20 54 48 45 4e 20 31 38 | IN$(N) | THEN 18|
|000026f0| 32 30 0a 31 37 39 30 20 | 20 4e 45 58 54 20 0a 31 |20.1790 | NEXT .1|
|00002700| 38 30 30 20 20 50 52 49 | 4e 54 20 22 49 4e 56 41 |800  PRI|NT "INVA|
|00002710| 4c 49 44 20 49 4e 53 54 | 52 55 43 54 49 4f 4e 20 |LID INST|RUCTION |
|00002720| 3d 3d 3e 20 28 23 20 22 | 4e 22 29 22 0a 31 38 31 |==> (# "|N")".181|
|00002730| 30 20 20 47 4f 54 4f 20 | 32 32 30 30 0a 31 38 32 |0  GOTO |2200.182|
|00002740| 30 20 20 49 46 20 28 4d | 44 28 4e 29 20 3d 20 31 |0  IF (M|D(N) = 1|
|00002750| 33 20 20 4f 52 20 4d 44 | 28 4e 29 20 3d 20 31 34 |3  OR MD|(N) = 14|
|00002760| 29 20 20 41 4e 44 20 4f | 50 28 49 2c 34 29 20 3c |)  AND O|P(I,4) <|
|00002770| 20 3e 30 20 20 54 48 45 | 4e 20 31 38 37 30 0a 31 | >0  THE|N 1870.1|
|00002780| 38 33 30 20 20 49 46 20 | 4f 50 28 49 2c 4d 44 28 |830  IF |OP(I,MD(|
|00002790| 4e 29 29 20 3c 20 3e 30 | 20 20 54 48 45 4e 20 31 |N)) < >0|  THEN 1|
|000027a0| 38 37 30 0a 31 38 34 30 | 20 20 49 46 20 49 4e 24 |870.1840|  IF IN$|
|000027b0| 28 4e 29 20 3d 20 22 42 | 52 4b 22 20 20 41 4e 44 |(N) = "B|RK"  AND|
|000027c0| 20 4d 44 28 4e 29 20 3d | 20 31 20 20 54 48 45 4e | MD(N) =| 1  THEN|
|000027d0| 20 31 38 37 30 0a 31 38 | 35 30 20 20 50 52 49 4e | 1870.18|50  PRIN|
|000027e0| 54 20 22 49 4e 56 41 4c | 49 44 20 41 44 44 52 45 |T "INVAL|ID ADDRE|
|000027f0| 53 53 20 4d 4f 44 45 20 | 3d 3d 3e 20 28 23 20 22 |SS MODE |==> (# "|
|00002800| 4e 22 29 22 0a 31 38 36 | 30 20 20 47 4f 54 4f 20 |N")".186|0  GOTO |
|00002810| 32 32 30 30 0a 31 38 37 | 30 20 20 49 46 20 54 50 |2200.187|0  IF TP|
|00002820| 24 28 4e 29 20 3c 20 3e | 22 55 22 20 20 41 4e 44 |$(N) < >|"U"  AND|
|00002830| 20 54 50 24 28 4e 29 20 | 3c 20 3e 22 52 22 20 20 | TP$(N) |< >"R"  |
|00002840| 54 48 45 4e 20 32 30 31 | 30 0a 31 38 38 30 20 20 |THEN 201|0.1880  |
|00002850| 46 4f 52 20 50 20 3d 20 | 32 20 54 4f 20 20 4c 45 |FOR P = |2 TO  LE|
|00002860| 4e 28 4c 42 24 28 4e 29 | 29 0a 31 38 39 30 20 20 |N(LB$(N)|).1890  |
|00002870| 49 46 20 20 4d 49 44 24 | 20 28 4c 42 24 28 4e 29 |IF  MID$| (LB$(N)|
|00002880| 2c 50 2c 31 29 20 3d 20 | 22 2b 22 20 20 4f 52 20 |,P,1) = |"+"  OR |
|00002890| 20 4d 49 44 24 20 28 4c | 42 24 28 4e 29 2c 50 2c | MID$ (L|B$(N),P,|
|000028a0| 31 29 20 3d 20 22 2d 22 | 20 20 54 48 45 4e 20 31 |1) = "-"|  THEN 1|
|000028b0| 39 32 30 0a 31 39 30 30 | 20 20 4e 45 58 54 20 0a |920.1900|  NEXT .|
|000028c0| 31 39 31 30 20 50 20 3d | 20 50 20 2b 31 0a 31 39 |1910 P =| P +1.19|
|000028d0| 32 30 20 20 49 46 20 54 | 50 24 28 4e 29 20 3d 20 |20  IF T|P$(N) = |
|000028e0| 22 52 22 20 20 54 48 45 | 4e 20 32 30 32 30 0a 31 |"R"  THE|N 2020.1|
|000028f0| 39 33 30 20 20 46 4f 52 | 20 4a 20 3d 20 31 20 54 |930  FOR| J = 1 T|
|00002900| 4f 20 4e 46 0a 31 39 34 | 30 20 20 49 46 20 4c 46 |O NF.194|0  IF LF|
|00002910| 24 28 4a 29 20 3d 20 20 | 4c 45 46 54 24 28 4c 42 |$(J) =  |LEFT$(LB|
|00002920| 24 28 4e 29 2c 50 20 2d | 31 29 20 20 54 48 45 4e |$(N),P -|1)  THEN|
|00002930| 20 54 50 24 28 4e 29 20 | 3d 20 22 46 22 3a 4c 42 | TP$(N) |= "F":LB|
|00002940| 24 28 4e 29 20 3d 20 20 | 53 54 52 24 28 41 46 28 |$(N) =  |STR$(AF(|
|00002950| 4a 29 20 2b 20 56 41 4c | 28 20 4d 49 44 24 20 28 |J) + VAL|( MID$ (|
|00002960| 4c 42 24 28 4e 29 2c 50 | 29 29 29 3a 20 47 4f 54 |LB$(N),P|))): GOT|
|00002970| 4f 20 32 30 38 30 0a 31 | 39 35 30 20 20 4e 45 58 |O 2080.1|950  NEX|
|00002980| 54 20 0a 31 39 36 30 20 | 20 46 4f 52 20 4a 20 3d |T .1960 | FOR J =|
|00002990| 20 31 20 54 4f 20 4e 52 | 0a 31 39 37 30 20 20 49 | 1 TO NR|.1970  I|
|000029a0| 46 20 4c 52 24 28 4a 29 | 20 3d 20 20 4c 45 46 54 |F LR$(J)| =  LEFT|
|000029b0| 24 28 4c 42 24 28 4e 29 | 2c 50 20 2d 31 29 20 20 |$(LB$(N)|,P -1)  |
|000029c0| 54 48 45 4e 20 54 50 24 | 28 4e 29 20 3d 20 22 44 |THEN TP$|(N) = "D|
|000029d0| 22 3a 4c 42 24 28 4e 29 | 20 3d 20 20 53 54 52 24 |":LB$(N)| =  STR$|
|000029e0| 28 44 52 28 4a 29 20 2b | 20 56 41 4c 28 20 4d 49 |(DR(J) +| VAL( MI|
|000029f0| 44 24 20 28 4c 42 24 28 | 4e 29 2c 50 29 29 29 3a |D$ (LB$(|N),P))):|
|00002a00| 20 47 4f 54 4f 20 32 30 | 38 30 0a 31 39 38 30 20 | GOTO 20|80.1980 |
|00002a10| 20 4e 45 58 54 20 0a 31 | 39 39 30 20 20 50 52 49 | NEXT .1|990  PRI|
|00002a20| 4e 54 20 22 49 4e 56 41 | 4c 49 44 20 4c 41 42 45 |NT "INVA|LID LABE|
|00002a30| 4c 20 3d 3d 3e 20 28 23 | 20 22 4e 22 29 22 0a 32 |L ==> (#| "N")".2|
|00002a40| 30 30 30 20 20 47 4f 54 | 4f 20 32 32 30 30 0a 32 |000  GOT|O 2200.2|
|00002a50| 30 31 30 20 20 49 46 20 | 54 50 24 28 4e 29 20 3c |010  IF |TP$(N) <|
|00002a60| 20 3e 22 52 22 20 20 54 | 48 45 4e 20 32 30 38 30 | >"R"  T|HEN 2080|
|00002a70| 0a 32 30 32 30 20 20 46 | 4f 52 20 4a 20 3d 20 31 |.2020  F|OR J = 1|
|00002a80| 20 54 4f 20 4e 52 0a 32 | 30 33 30 20 20 49 46 20 | TO NR.2|030  IF |
|00002a90| 4c 52 24 28 4a 29 20 3d | 20 20 4c 45 46 54 24 28 |LR$(J) =|  LEFT$(|
|00002aa0| 4c 42 24 28 4e 29 2c 50 | 20 2d 31 29 20 20 54 48 |LB$(N),P| -1)  TH|
|00002ab0| 45 4e 20 4c 42 24 28 4e | 29 20 3d 20 20 53 54 52 |EN LB$(N|) =  STR|
|00002ac0| 24 28 44 52 28 4a 29 29 | 20 2b 20 4d 49 44 24 20 |$(DR(J))| + MID$ |
|00002ad0| 28 4c 42 24 28 4e 29 2c | 50 29 3a 20 47 4f 54 4f |(LB$(N),|P): GOTO|
|00002ae0| 20 32 30 36 30 0a 32 30 | 34 30 20 20 4e 45 58 54 | 2060.20|40  NEXT|
|00002af0| 20 0a 32 30 35 30 20 20 | 47 4f 54 4f 20 31 39 39 | .2050  |GOTO 199|
|00002b00| 30 0a 32 30 36 30 20 4c | 42 24 28 4e 29 20 3d 20 |0.2060 L|B$(N) = |
|00002b10| 20 53 54 52 24 28 20 56 | 41 4c 28 4c 42 24 28 4e | STR$( V|AL(LB$(N|
|00002b20| 29 29 20 2d 28 4c 4f 28 | 4e 20 2b 31 29 20 2b 4c |)) -(LO(|N +1) +L|
|00002b30| 41 29 29 0a 32 30 37 30 | 20 20 49 46 20 20 56 41 |A)).2070|  IF  VA|
|00002b40| 4c 28 4c 42 24 28 4e 29 | 29 20 3e 31 32 37 20 20 |L(LB$(N)|) >127  |
|00002b50| 4f 52 20 20 56 41 4c 28 | 4c 42 24 28 4e 29 29 20 |OR  VAL(|LB$(N)) |
|00002b60| 3c 20 2d 31 32 38 20 20 | 54 48 45 4e 20 20 50 52 |< -128  |THEN  PR|
|00002b70| 49 4e 54 20 22 49 4e 56 | 41 4c 49 44 20 52 45 4c |INT "INV|ALID REL|
|00002b80| 41 54 49 56 45 20 41 44 | 44 52 45 53 53 20 3d 3d |ATIVE AD|DRESS ==|
|00002b90| 3e 20 28 23 20 22 4e 22 | 29 22 3a 20 50 52 49 4e |> (# "N"|)": PRIN|
|00002ba0| 54 20 22 3d 20 22 4c 42 | 24 28 4e 29 3a 20 47 4f |T "= "LB|$(N): GO|
|00002bb0| 54 4f 20 32 32 30 30 0a | 32 30 38 30 20 20 49 46 |TO 2200.|2080  IF|
|00002bc0| 20 4d 44 28 4e 29 20 3d | 20 31 33 20 20 54 48 45 | MD(N) =| 13  THE|
|00002bd0| 4e 20 20 50 4f 4b 45 20 | 4c 4f 28 4e 29 20 2b 53 |N  POKE |LO(N) +S|
|00002be0| 41 2c 4f 50 28 49 2c 34 | 29 3a 4c 42 24 28 4e 29 |A,OP(I,4|):LB$(N)|
|00002bf0| 20 3d 20 20 53 54 52 24 | 28 20 49 4e 54 28 20 56 | =  STR$|( INT( V|
|00002c00| 41 4c 28 4c 42 24 28 4e | 29 29 2f 32 35 36 29 29 |AL(LB$(N|))/256))|
|00002c10| 3a 20 47 4f 54 4f 20 32 | 31 32 30 0a 32 30 39 30 |: GOTO 2|120.2090|
|00002c20| 20 20 49 46 20 4d 44 28 | 4e 29 20 3d 20 31 34 20 |  IF MD(|N) = 14 |
|00002c30| 20 54 48 45 4e 20 20 50 | 4f 4b 45 20 4c 4f 28 4e | THEN  P|OKE LO(N|
|00002c40| 29 20 2b 53 41 2c 4f 50 | 28 49 2c 34 29 3a 4c 42 |) +SA,OP|(I,4):LB|
|00002c50| 24 28 4e 29 20 3d 20 20 | 53 54 52 24 28 20 56 41 |$(N) =  |STR$( VA|
|00002c60| 4c 28 4c 42 24 28 4e 29 | 29 20 2d 28 32 35 36 20 |L(LB$(N)|) -(256 |
|00002c70| 2a 20 49 4e 54 28 20 56 | 41 4c 28 4c 42 24 28 4e |* INT( V|AL(LB$(N|
|00002c80| 29 29 2f 32 35 36 29 29 | 29 3a 20 47 4f 54 4f 20 |))/256))|): GOTO |
|00002c90| 32 31 32 30 0a 32 31 30 | 30 20 20 50 4f 4b 45 20 |2120.210|0  POKE |
|00002ca0| 4c 4f 28 4e 29 20 2b 53 | 41 2c 4f 50 28 49 2c 4d |LO(N) +S|A,OP(I,M|
|00002cb0| 44 28 4e 29 29 0a 32 31 | 31 30 20 20 49 46 20 4c |D(N)).21|10  IF L|
|00002cc0| 4e 28 4e 29 20 3d 20 31 | 20 20 54 48 45 4e 20 32 |N(N) = 1|  THEN 2|
|00002cd0| 31 39 30 0a 32 31 32 30 | 20 20 49 46 20 4c 4e 28 |190.2120|  IF LN(|
|00002ce0| 4e 29 20 3d 20 32 20 20 | 41 4e 44 20 20 56 41 4c |N) = 2  |AND  VAL|
|00002cf0| 28 4c 42 24 28 4e 29 29 | 20 3e 32 35 35 20 20 54 |(LB$(N))| >255  T|
|00002d00| 48 45 4e 20 20 50 52 49 | 4e 54 20 22 49 4e 56 41 |HEN  PRI|NT "INVA|
|00002d10| 4c 49 44 20 4c 45 4e 47 | 54 48 2c 20 3e 20 32 35 |LID LENG|TH, > 25|
|00002d20| 35 20 3d 3d 3e 20 28 23 | 20 22 4e 22 29 22 3a 20 |5 ==> (#| "N")": |
|00002d30| 47 4f 54 4f 20 32 32 30 | 30 0a 32 31 33 30 20 20 |GOTO 220|0.2130  |
|00002d40| 49 46 20 20 56 41 4c 28 | 4c 42 24 28 4e 29 29 20 |IF  VAL(|LB$(N)) |
|00002d50| 3e 20 3d 20 30 20 20 54 | 48 45 4e 20 32 31 36 30 |> = 0  T|HEN 2160|
|00002d60| 0a 32 31 34 30 20 4c 42 | 20 3d 20 32 35 36 20 2b |.2140 LB| = 256 +|
|00002d70| 20 56 41 4c 28 4c 42 24 | 28 4e 29 29 0a 32 31 35 | VAL(LB$|(N)).215|
|00002d80| 30 20 4c 42 24 28 4e 29 | 20 3d 20 20 53 54 52 24 |0 LB$(N)| =  STR$|
|00002d90| 28 4c 42 29 0a 32 31 36 | 30 20 20 49 46 20 4c 4e |(LB).216|0  IF LN|
|00002da0| 28 4e 29 20 3d 20 32 20 | 20 54 48 45 4e 20 20 50 |(N) = 2 | THEN  P|
|00002db0| 4f 4b 45 20 4c 4f 28 4e | 29 20 2b 53 41 20 2b 31 |OKE LO(N|) +SA +1|
|00002dc0| 2c 20 56 41 4c 28 4c 42 | 24 28 4e 29 29 3a 20 47 |, VAL(LB|$(N)): G|
|00002dd0| 4f 54 4f 20 32 31 39 30 | 0a 32 31 37 30 20 20 50 |OTO 2190|.2170  P|
|00002de0| 4f 4b 45 20 4c 4f 28 4e | 29 20 2b 53 41 20 2b 32 |OKE LO(N|) +SA +2|
|00002df0| 2c 20 56 41 4c 28 4c 42 | 24 28 4e 29 29 2f 32 35 |, VAL(LB|$(N))/25|
|00002e00| 36 0a 32 31 38 30 20 20 | 50 4f 4b 45 20 4c 4f 28 |6.2180  |POKE LO(|
|00002e10| 4e 29 20 2b 53 41 20 2b | 31 2c 20 56 41 4c 28 4c |N) +SA +|1, VAL(L|
|00002e20| 42 24 28 4e 29 29 20 2d | 28 32 35 36 20 2a 20 50 |B$(N)) -|(256 * P|
|00002e30| 45 45 4b 28 4c 4f 28 4e | 29 20 2b 53 41 20 2b 32 |EEK(LO(N|) +SA +2|
|00002e40| 29 29 0a 32 31 39 30 20 | 20 52 45 54 55 52 4e 20 |)).2190 | RETURN |
|00002e50| 0a 32 32 30 30 20 20 52 | 45 4d 20 20 20 46 49 4e |.2200  R|EM   FIN|
|00002e60| 44 20 53 54 41 54 45 4d | 45 4e 54 20 46 4f 52 20 |D STATEM|ENT FOR |
|00002e70| 45 52 52 4f 52 0a 32 32 | 31 30 20 20 50 52 49 4e |ERROR.22|10  PRIN|
|00002e80| 54 20 44 24 22 4f 50 45 | 4e 20 22 50 52 24 3a 20 |T D$"OPE|N "PR$: |
|00002e90| 50 52 49 4e 54 20 44 24 | 22 52 45 41 44 20 22 50 |PRINT D$|"READ "P|
|00002ea0| 52 24 0a 32 32 32 30 20 | 20 46 4f 52 20 58 20 3d |R$.2220 | FOR X =|
|00002eb0| 20 31 20 54 4f 20 4e 0a | 32 32 33 30 20 20 49 4e | 1 TO N.|2230  IN|
|00002ec0| 50 55 54 20 49 4e 24 0a | 32 32 34 30 20 20 4e 45 |PUT IN$.|2240  NE|
|00002ed0| 58 54 20 0a 32 32 35 30 | 20 20 50 52 49 4e 54 20 |XT .2250|  PRINT |
|00002ee0| 44 24 22 43 4c 4f 53 45 | 20 22 50 52 24 0a 32 32 |D$"CLOSE| "PR$.22|
|00002ef0| 36 30 20 20 50 52 49 4e | 54 20 49 4e 24 0a 32 32 |60  PRIN|T IN$.22|
|00002f00| 37 30 20 20 56 54 41 42 | 20 32 32 3a 20 43 41 4c |70  VTAB| 22: CAL|
|00002f10| 4c 20 20 2d 39 35 38 3a | 20 49 4e 50 55 54 20 22 |L  -958:| INPUT "|
|00002f20| 44 4f 20 59 4f 55 20 57 | 49 53 48 20 54 4f 20 45 |DO YOU W|ISH TO E|
|00002f30| 44 49 54 20 54 48 45 20 | 46 49 4c 45 3f 20 28 59 |DIT THE |FILE? (Y|
|00002f40| 2f 4e 29 22 3b 4b 24 3a | 20 49 46 20 4b 24 20 3d |/N)";K$:| IF K$ =|
|00002f50| 20 22 59 22 20 20 54 48 | 45 4e 20 20 50 52 49 4e | "Y"  TH|EN  PRIN|
|00002f60| 54 20 44 24 22 52 55 4e | 20 53 4f 55 52 43 45 2e |T D$"RUN| SOURCE.|
|00002f70| 45 44 49 54 4f 52 22 0a | 32 32 38 30 20 20 49 46 |EDITOR".|2280  IF|
|00002f80| 20 4b 24 20 3d 20 22 4e | 22 20 20 54 48 45 4e 20 | K$ = "N|"  THEN |
|00002f90| 20 48 4f 4d 45 20 3a 20 | 45 4e 44 20 0a 32 32 39 | HOME : |END .229|
|00002fa0| 30 20 20 50 52 49 4e 54 | 20 20 43 48 52 24 28 37 |0  PRINT|  CHR$(7|
|00002fb0| 29 3a 20 47 4f 54 4f 20 | 32 32 37 30 0a 32 33 30 |): GOTO |2270.230|
|00002fc0| 30 20 20 52 45 4d 20 20 | 20 20 43 48 45 43 4b 20 |0  REM  |  CHECK |
|00002fd0| 44 52 53 20 46 4f 52 20 | 43 4f 4e 53 54 41 4e 54 |DRS FOR |CONSTANT|
|00002fe0| 53 0a 32 33 31 30 20 58 | 4c 20 3d 20 20 4c 45 4e |S.2310 X|L =  LEN|
|00002ff0| 28 20 53 54 52 24 28 4c | 4e 28 4e 29 29 29 20 2b |( STR$(L|N(N))) +|
|00003000| 31 34 0a 32 33 32 30 20 | 20 49 46 20 58 4c 20 3e |14.2320 | IF XL >|
|00003010| 20 3d 20 20 4c 45 4e 28 | 49 4e 24 29 20 20 54 48 | =  LEN(|IN$)  TH|
|00003020| 45 4e 20 20 52 45 54 55 | 52 4e 20 0a 32 33 33 30 |EN  RETU|RN .2330|
|00003030| 20 20 49 46 20 20 4d 49 | 44 24 20 28 49 4e 24 2c |  IF  MI|D$ (IN$,|
|00003040| 58 4c 2c 31 29 20 3d 20 | 22 21 22 20 20 54 48 45 |XL,1) = |"!"  THE|
|00003050| 4e 20 58 41 20 3d 20 4c | 4f 28 4e 29 20 2b 53 41 |N XA = L|O(N) +SA|
|00003060| 3a 20 47 4f 53 55 42 20 | 32 35 30 30 0a 32 33 34 |: GOSUB |2500.234|
|00003070| 30 20 20 52 45 54 55 52 | 4e 20 0a 32 33 35 30 20 |0  RETUR|N .2350 |
|00003080| 20 44 49 4d 20 50 4e 28 | 31 35 29 0a 32 33 36 30 | DIM PN(|15).2360|
|00003090| 20 50 4e 28 31 29 20 3d | 20 36 36 3a 50 4e 28 32 | PN(1) =| 66:PN(2|
|000030a0| 29 20 3d 20 38 39 3a 50 | 4e 28 33 29 20 3d 20 33 |) = 89:P|N(3) = 3|
|000030b0| 32 0a 32 33 37 30 20 50 | 4e 28 34 29 20 3d 20 37 |2.2370 P|N(4) = 7|
|000030c0| 34 3a 50 4e 28 35 29 20 | 3d 20 37 39 3a 50 4e 28 |4:PN(5) |= 79:PN(|
|000030d0| 36 29 20 3d 20 37 32 0a | 32 33 38 30 20 50 4e 28 |6) = 72.|2380 PN(|
|000030e0| 37 29 20 3d 20 37 38 3a | 50 4e 28 38 29 20 3d 20 |7) = 78:|PN(8) = |
|000030f0| 33 32 3a 50 4e 28 39 29 | 20 3d 20 38 37 0a 32 33 |32:PN(9)| = 87.23|
|00003100| 39 30 20 50 4e 28 31 30 | 29 20 3d 20 37 32 3a 50 |90 PN(10|) = 72:P|
|00003110| 4e 28 31 31 29 20 3d 20 | 37 33 3a 50 4e 28 31 32 |N(11) = |73:PN(12|
|00003120| 29 20 3d 20 38 34 0a 32 | 34 30 30 20 50 4e 28 31 |) = 84.2|400 PN(1|
|00003130| 33 29 20 3d 20 37 38 3a | 50 4e 28 31 34 29 20 3d |3) = 78:|PN(14) =|
|00003140| 20 36 39 3a 50 4e 28 31 | 35 29 20 3d 20 38 39 0a | 69:PN(1|5) = 89.|
|00003150| 32 34 31 30 20 20 46 4f | 52 20 56 4e 20 3d 20 31 |2410  FO|R VN = 1|
|00003160| 20 54 4f 20 31 35 0a 32 | 34 32 30 20 20 56 54 41 | TO 15.2|420  VTA|
|00003170| 42 20 35 0a 32 34 33 30 | 20 20 46 4f 52 20 56 4f |B 5.2430|  FOR VO|
|00003180| 20 3d 20 56 4e 20 54 4f | 20 31 20 20 53 54 45 50 | = VN TO| 1  STEP|
|00003190| 20 20 2d 31 0a 32 34 34 | 30 20 20 50 52 49 4e 54 |  -1.244|0  PRINT|
|000031a0| 20 20 43 48 52 24 28 50 | 4e 28 31 36 20 2d 56 4f |  CHR$(P|N(16 -VO|
|000031b0| 29 29 3b 0a 32 34 35 30 | 20 20 4e 45 58 54 20 56 |));.2450|  NEXT V|
|000031c0| 4f 0a 32 34 36 30 20 20 | 50 52 49 4e 54 20 0a 32 |O.2460  |PRINT .2|
|000031d0| 34 37 30 20 20 4e 45 58 | 54 20 56 4e 0a 32 34 38 |470  NEX|T VN.248|
|000031e0| 30 20 20 50 52 49 4e 54 | 20 0a 32 34 39 30 20 20 |0  PRINT| .2490  |
|000031f0| 52 45 54 55 52 4e 20 0a | 32 35 30 30 20 20 52 45 |RETURN .|2500  RE|
|00003200| 4d 20 20 20 20 49 4e 53 | 54 41 4c 4c 20 43 4f 4e |M    INS|TALL CON|
|00003210| 53 54 41 4e 54 53 0a 32 | 35 31 30 20 58 4c 20 3d |STANTS.2|510 XL =|
|00003220| 20 58 4c 20 2b 31 0a 32 | 35 32 30 20 20 49 46 20 | XL +1.2|520  IF |
|00003230| 58 4c 20 3e 20 4c 45 4e | 28 49 4e 24 29 20 20 54 |XL > LEN|(IN$)  T|
|00003240| 48 45 4e 20 20 52 45 54 | 55 52 4e 20 0a 32 35 33 |HEN  RET|URN .253|
|00003250| 30 20 20 49 46 20 20 4d | 49 44 24 20 28 49 4e 24 |0  IF  M|ID$ (IN$|
|00003260| 2c 58 4c 2c 31 29 20 3d | 20 22 21 22 20 20 54 48 |,XL,1) =| "!"  TH|
|00003270| 45 4e 20 20 52 45 54 55 | 52 4e 20 0a 32 35 34 30 |EN  RETU|RN .2540|
|00003280| 20 20 50 4f 4b 45 20 58 | 41 2c 20 41 53 43 28 20 |  POKE X|A, ASC( |
|00003290| 4d 49 44 24 20 28 49 4e | 24 2c 58 4c 2c 31 29 29 |MID$ (IN|$,XL,1))|
|000032a0| 0a 32 35 35 30 20 58 41 | 20 3d 20 58 41 20 2b 31 |.2550 XA| = XA +1|
|000032b0| 0a 32 35 36 30 20 20 47 | 4f 54 4f 20 32 35 30 30 |.2560  G|OTO 2500|
|000032c0| 0a 32 35 37 30 20 20 52 | 45 4d 20 20 48 45 58 20 |.2570  R|EM  HEX |
|000032d0| 43 4f 4e 56 45 52 53 49 | 4f 4e 0a 32 35 38 30 20 |CONVERSI|ON.2580 |
|000032e0| 48 46 20 3d 20 30 3a 44 | 54 20 3d 20 30 0a 32 35 |HF = 0:D|T = 0.25|
|000032f0| 39 30 20 20 46 4f 52 20 | 4b 20 3d 20 31 20 54 4f |90  FOR |K = 1 TO|
|00003300| 20 20 4c 45 4e 28 48 58 | 24 29 0a 32 36 30 30 20 |  LEN(HX|$).2600 |
|00003310| 20 49 46 20 20 4d 49 44 | 24 20 28 48 58 24 2c 4b | IF  MID|$ (HX$,K|
|00003320| 2c 31 29 20 3d 20 22 24 | 22 20 20 54 48 45 4e 20 |,1) = "$|"  THEN |
|00003330| 48 56 24 20 3d 20 20 4d | 49 44 24 20 28 48 58 24 |HV$ =  M|ID$ (HX$|
|00003340| 2c 4b 29 3a 20 49 46 20 | 20 4c 45 4e 28 48 56 24 |,K): IF | LEN(HV$|
|00003350| 29 20 3e 31 20 20 54 48 | 45 4e 20 48 56 24 20 3d |) >1  TH|EN HV$ =|
|00003360| 20 20 4d 49 44 24 20 28 | 48 56 24 2c 32 29 3a 20 |  MID$ (|HV$,2): |
|00003370| 47 4f 54 4f 20 32 36 32 | 30 0a 32 36 31 30 20 20 |GOTO 262|0.2610  |
|00003380| 4e 45 58 54 20 4b 3a 20 | 52 45 54 55 52 4e 20 0a |NEXT K: |RETURN .|
|00003390| 32 36 32 30 20 48 56 24 | 20 3d 20 48 56 24 20 2b |2620 HV$| = HV$ +|
|000033a0| 22 20 22 3a 20 46 4f 52 | 20 4b 32 20 3d 20 31 20 |" ": FOR| K2 = 1 |
|000033b0| 54 4f 20 35 3a 20 49 46 | 20 20 4d 49 44 24 20 28 |TO 5: IF|  MID$ (|
|000033c0| 48 56 24 2c 4b 32 2c 31 | 29 20 3c 20 3e 22 20 22 |HV$,K2,1|) < >" "|
|000033d0| 20 20 41 4e 44 20 20 4d | 49 44 24 20 28 48 56 24 |  AND  M|ID$ (HV$|
|000033e0| 2c 4b 32 2c 31 29 20 3c | 20 3e 22 2e 22 20 20 41 |,K2,1) <| >"."  A|
|000033f0| 4e 44 20 20 4d 49 44 24 | 20 28 48 56 24 2c 4b 32 |ND  MID$| (HV$,K2|
|00003400| 2c 31 29 20 3c 20 3e 22 | 29 22 20 20 54 48 45 4e |,1) < >"|)"  THEN|
|00003410| 20 20 4e 45 58 54 20 3a | 20 47 4f 54 4f 20 32 36 |  NEXT :| GOTO 26|
|00003420| 37 30 3a 20 52 45 4d 20 | 20 4f 50 45 52 41 4e 44 |70: REM | OPERAND|
|00003430| 20 54 4f 4f 20 4c 4f 4e | 47 0a 32 36 32 32 20 20 | TOO LON|G.2622  |
|00003440| 49 46 20 4b 32 20 3d 20 | 31 20 20 54 48 45 4e 20 |IF K2 = |1  THEN |
|00003450| 32 36 37 30 3a 20 52 45 | 4d 20 20 4e 55 4c 4c 20 |2670: RE|M  NULL |
|00003460| 48 45 58 20 53 54 52 49 | 4e 47 0a 32 36 32 35 20 |HEX STRI|NG.2625 |
|00003470| 48 56 24 20 3d 20 20 52 | 49 47 48 54 24 28 22 30 |HV$ =  R|IGHT$("0|
|00003480| 30 30 22 20 2b 48 56 24 | 2c 20 4c 45 4e 28 48 56 |00" +HV$|, LEN(HV|
|00003490| 24 29 20 2b 28 35 20 2d | 4b 32 29 29 0a 32 36 33 |$) +(5 -|K2)).263|
|000034a0| 30 20 20 46 4f 52 20 4b | 31 20 3d 20 31 20 54 4f |0  FOR K|1 = 1 TO|
|000034b0| 20 34 0a 32 36 34 30 20 | 48 44 20 3d 20 20 41 53 | 4.2640 |HD =  AS|
|000034c0| 43 28 20 4d 49 44 24 20 | 28 48 56 24 2c 4b 31 2c |C( MID$ |(HV$,K1,|
|000034d0| 31 29 29 0a 32 36 35 30 | 20 48 44 20 3d 20 48 44 |1)).2650| HD = HD|
|000034e0| 20 2d 34 38 3a 20 49 46 | 20 48 44 20 3e 39 20 20 | -48: IF| HD >9  |
|000034f0| 54 48 45 4e 20 48 44 20 | 3d 20 48 44 20 2d 37 3a |THEN HD |= HD -7:|
|00003500| 20 49 46 20 48 44 20 3e | 20 3d 20 31 30 20 20 41 | IF HD >| = 10  A|
|00003510| 4e 44 20 48 44 20 3c 20 | 3d 20 31 35 20 20 54 48 |ND HD < |= 15  TH|
|00003520| 45 4e 20 32 36 38 30 0a | 32 36 36 30 20 20 49 46 |EN 2680.|2660  IF|
|00003530| 20 48 44 20 3e 20 3d 20 | 30 20 20 41 4e 44 20 48 | HD > = |0  AND H|
|00003540| 44 20 3c 20 3d 20 39 20 | 20 54 48 45 4e 20 32 36 |D < = 9 | THEN 26|
|00003550| 38 30 0a 32 36 37 30 20 | 20 50 52 49 4e 54 20 44 |80.2670 | PRINT D|
|00003560| 24 22 43 4c 4f 53 45 22 | 3a 20 50 52 49 4e 54 20 |$"CLOSE"|: PRINT |
|00003570| 22 4f 50 45 52 41 4e 44 | 20 45 52 52 4f 52 20 49 |"OPERAND| ERROR I|
|00003580| 4e 20 4c 49 4e 45 3a 22 | 3b 4e 3a 20 47 4f 54 4f |N LINE:"|;N: GOTO|
|00003590| 20 32 32 36 30 0a 32 36 | 38 30 20 44 54 20 3d 20 | 2260.26|80 DT = |
|000035a0| 44 54 20 2b 48 44 20 2a | 28 31 36 20 5e 28 34 20 |DT +HD *|(16 ^(4 |
|000035b0| 2d 4b 31 29 29 0a 32 36 | 39 30 20 20 4e 45 58 54 |-K1)).26|90  NEXT|
|000035c0| 20 0a 32 37 30 30 20 20 | 49 46 20 4b 20 3e 31 20 | .2700  |IF K >1 |
|000035d0| 20 54 48 45 4e 20 48 58 | 24 20 3d 20 20 4c 45 46 | THEN HX|$ =  LEF|
|000035e0| 54 24 28 48 58 24 2c 4b | 20 2d 31 29 20 2b 20 53 |T$(HX$,K| -1) + S|
|000035f0| 54 52 24 28 44 54 29 20 | 2b 20 4d 49 44 24 20 28 |TR$(DT) |+ MID$ (|
|00003600| 48 58 24 2c 4b 20 2b 4b | 32 29 3a 20 47 4f 54 4f |HX$,K +K|2): GOTO|
|00003610| 20 32 37 32 30 0a 32 37 | 31 30 20 48 58 24 20 3d | 2720.27|10 HX$ =|
|00003620| 20 20 53 54 52 24 28 44 | 54 29 20 2b 20 4d 49 44 |  STR$(D|T) + MID|
|00003630| 24 20 28 48 58 24 2c 4b | 32 20 2b 31 29 0a 32 37 |$ (HX$,K|2 +1).27|
|00003640| 32 30 20 20 52 45 54 55 | 52 4e 20 0a 32 37 39 39 |20  RETU|RN .2799|
|00003650| 20 3a 0a 32 38 30 30 20 | 20 52 45 4d 20 20 43 48 | :.2800 | REM  CH|
|00003660| 45 43 4b 20 46 4f 52 20 | 41 53 43 20 43 4f 4e 53 |ECK FOR |ASC CONS|
|00003670| 54 41 4e 54 53 0a 32 38 | 30 31 20 3a 0a 32 38 31 |TANTS.28|01 :.281|
|00003680| 30 20 51 24 20 3d 20 22 | 27 22 3a 4c 42 24 28 4e |0 Q$ = "|'":LB$(N|
|00003690| 29 20 3d 20 20 4d 49 44 | 24 20 28 49 4e 24 2c 31 |) =  MID|$ (IN$,1|
|000036a0| 35 2c 31 35 29 3a 20 49 | 46 20 20 4d 49 44 24 20 |5,15): I|F  MID$ |
|000036b0| 28 49 4e 24 2c 31 34 2c | 31 29 20 3c 20 3e 51 24 |(IN$,14,|1) < >Q$|
|000036c0| 20 20 54 48 45 4e 20 32 | 39 30 30 0a 32 38 32 30 |  THEN 2|900.2820|
|000036d0| 20 20 46 4f 52 20 58 4c | 20 3d 20 31 35 20 54 4f |  FOR XL| = 15 TO|
|000036e0| 20 31 20 20 53 54 45 50 | 20 20 2d 31 3a 20 49 46 | 1  STEP|  -1: IF|
|000036f0| 20 20 4d 49 44 24 20 28 | 4c 42 24 28 4e 29 2c 58 |  MID$ (|LB$(N),X|
|00003700| 4c 2c 31 29 20 3c 20 3e | 22 20 22 20 20 54 48 45 |L,1) < >|" "  THE|
|00003710| 4e 20 32 38 34 30 0a 32 | 38 33 30 20 20 4e 45 58 |N 2840.2|830  NEX|
|00003720| 54 20 0a 32 38 34 30 20 | 20 49 46 20 20 4d 49 44 |T .2840 | IF  MID|
|00003730| 24 20 28 4c 42 24 28 4e | 29 2c 58 4c 2c 31 29 20 |$ (LB$(N|),XL,1) |
|00003740| 3c 20 3e 51 24 20 20 54 | 48 45 4e 20 32 39 30 30 |< >Q$  T|HEN 2900|
|00003750| 0a 32 38 35 30 20 4c 42 | 24 28 4e 29 20 3d 20 20 |.2850 LB|$(N) =  |
|00003760| 4c 45 46 54 24 28 4c 42 | 24 28 4e 29 2c 58 4c 20 |LEFT$(LB|$(N),XL |
|00003770| 2d 31 29 3a 4c 4e 28 4e | 29 20 3d 20 58 4c 20 2d |-1):LN(N|) = XL -|
|00003780| 31 3a 20 52 45 54 55 52 | 4e 20 0a 32 39 30 30 20 |1: RETUR|N .2900 |
|00003790| 20 50 52 49 4e 54 20 22 | 4d 49 53 53 49 4e 47 20 | PRINT "|MISSING |
|000037a0| 51 55 4f 54 45 20 49 4e | 20 41 53 43 20 53 54 52 |QUOTE IN| ASC STR|
|000037b0| 49 4e 47 20 3d 3d 3e 20 | 28 23 22 4e 22 29 22 3a |ING ==> |(#"N")":|
|000037c0| 20 50 52 49 4e 54 20 44 | 24 22 43 4c 4f 53 45 22 | PRINT D|$"CLOSE"|
|000037d0| 50 52 24 3a 20 47 4f 54 | 4f 20 32 32 30 30 0a 39 |PR$: GOT|O 2200.9|
|000037e0| 39 37 30 20 3a 0a 39 39 | 38 30 20 20 52 45 4d 20 |970 :.99|80  REM |
|000037f0| 20 50 52 49 4e 54 20 4f | 55 54 20 41 53 53 45 4d | PRINT O|UT ASSEM|
|00003800| 42 4c 45 44 20 4c 49 53 | 54 49 4e 47 0a 39 39 39 |BLED LIS|TING.999|
|00003810| 30 20 3a 0a 31 30 30 30 | 30 20 20 44 45 46 20 20 |0 :.1000|0  DEF  |
|00003820| 46 4e 20 48 58 28 58 29 | 20 3d 20 58 20 2d 20 49 |FN HX(X)| = X - I|
|00003830| 4e 54 28 58 2f 31 36 29 | 20 2a 31 36 0a 31 30 30 |NT(X/16)| *16.100|
|00003840| 31 30 20 20 44 49 4d 20 | 48 44 24 28 31 36 29 0a |10  DIM |HD$(16).|
|00003850| 31 30 30 32 30 20 20 46 | 4f 52 20 49 20 3d 20 30 |10020  F|OR I = 0|
|00003860| 20 54 4f 20 39 3a 48 44 | 24 28 49 29 20 3d 20 20 | TO 9:HD|$(I) =  |
|00003870| 43 48 52 24 28 34 38 20 | 2b 49 29 3a 20 4e 45 58 |CHR$(48 |+I): NEX|
|00003880| 54 20 3a 20 46 4f 52 20 | 49 20 3d 20 31 30 20 54 |T : FOR |I = 10 T|
|00003890| 4f 20 31 35 3a 48 44 24 | 28 49 29 20 3d 20 20 43 |O 15:HD$|(I) =  C|
|000038a0| 48 52 24 28 35 35 20 2b | 49 29 3a 20 4e 45 58 54 |HR$(55 +|I): NEXT|
|000038b0| 20 0a 31 30 30 33 30 20 | 20 50 52 49 4e 54 20 44 | .10030 | PRINT D|
|000038c0| 24 22 50 52 23 31 22 3a | 20 50 52 49 4e 54 20 20 |$"PR#1":| PRINT  |
|000038d0| 43 48 52 24 28 32 37 29 | 22 45 22 0a 31 30 30 34 |CHR$(27)|"E".1004|
|000038e0| 30 20 20 52 45 4d 20 20 | 4c 49 4e 45 20 31 30 30 |0  REM  |LINE 100|
|000038f0| 33 30 20 53 45 54 53 20 | 31 32 20 43 50 49 2c 20 |30 SETS |12 CPI, |
|00003900| 39 36 2d 43 48 41 52 20 | 4c 49 4e 45 20 46 4f 52 |96-CHAR |LINE FOR|
|00003910| 20 43 2e 20 49 54 4f 48 | 20 50 52 4f 57 52 49 54 | C. ITOH| PROWRIT|
|00003920| 45 52 20 26 20 41 50 50 | 4c 45 20 49 4d 41 47 45 |ER & APP|LE IMAGE|
|00003930| 57 52 49 54 45 52 0a 31 | 30 30 35 30 20 20 52 45 |WRITER.1|0050  RE|
|00003940| 4d 20 20 45 50 53 4f 4e | 20 4d 58 2d 38 30 3a 20 |M  EPSON| MX-80: |
|00003950| 27 31 30 30 33 30 20 50 | 52 49 4e 54 20 44 24 22 |'10030 P|RINT D$"|
|00003960| 50 52 23 31 22 3a 50 52 | 49 4e 54 20 43 48 52 24 |PR#1":PR|INT CHR$|
|00003970| 28 31 35 29 27 20 53 45 | 54 53 20 43 4f 4d 50 52 |(15)' SE|TS COMPR|
|00003980| 45 53 53 45 44 20 4d 4f | 44 45 2c 20 31 33 32 20 |ESSED MO|DE, 132 |
|00003990| 43 48 41 52 20 4c 49 4e | 45 0a 31 30 30 36 30 20 |CHAR LIN|E.10060 |
|000039a0| 50 20 3d 20 31 3a 54 4c | 24 20 3d 20 20 4c 45 46 |P = 1:TL|$ =  LEF|
|000039b0| 54 24 28 22 42 41 53 49 | 43 2e 41 53 53 45 4d 42 |T$("BASI|C.ASSEMB|
|000039c0| 4c 45 52 20 46 49 4c 45 | 20 22 20 2b 50 52 24 20 |LER FILE| " +PR$ |
|000039d0| 2b 22 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |+"      |        |
|000039e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000039f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003a00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003a10| 20 20 20 22 2c 38 39 29 | 20 2b 22 50 41 47 45 20 |   ",89)| +"PAGE |
|00003a20| 22 3a 20 47 4f 53 55 42 | 20 31 30 35 35 30 0a 31 |": GOSUB| 10550.1|
|00003a30| 30 30 37 30 20 20 52 45 | 4d 20 20 36 35 20 53 50 |0070  RE|M  65 SP|
|00003a40| 41 43 45 53 20 42 45 54 | 57 45 45 4e 20 51 55 4f |ACES BET|WEEN QUO|
|00003a50| 54 45 53 20 41 42 4f 56 | 45 0a 31 30 30 38 30 20 |TES ABOV|E.10080 |
|00003a60| 20 50 52 49 4e 54 20 44 | 24 22 4f 50 45 4e 20 22 | PRINT D|$"OPEN "|
|00003a70| 50 52 24 0a 31 30 30 39 | 30 20 20 50 52 49 4e 54 |PR$.1009|0  PRINT|
|00003a80| 20 44 24 22 52 45 41 44 | 20 22 50 52 24 0a 31 30 | D$"READ| "PR$.10|
|00003a90| 31 30 30 20 20 46 4f 52 | 20 4e 20 3d 20 31 20 54 |100  FOR| N = 1 T|
|00003aa0| 4f 20 4e 49 0a 31 30 31 | 31 30 20 20 49 4e 50 55 |O NI.101|10  INPU|
|00003ab0| 54 20 49 4e 24 0a 31 30 | 31 32 30 20 20 49 46 20 |T IN$.10|120  IF |
|00003ac0| 49 4e 24 28 4e 29 20 3d | 20 22 41 53 43 22 20 20 |IN$(N) =| "ASC"  |
|00003ad0| 54 48 45 4e 20 31 30 33 | 33 30 0a 31 30 31 33 30 |THEN 103|30.10130|
|00003ae0| 20 58 20 3d 20 4c 4f 28 | 4e 29 20 2b 4c 41 0a 31 | X = LO(|N) +LA.1|
|00003af0| 30 31 34 30 20 50 4c 24 | 20 3d 20 48 44 24 28 20 |0140 PL$| = HD$( |
|00003b00| 46 4e 20 48 58 28 58 2f | 34 30 39 36 29 29 20 2b |FN HX(X/|4096)) +|
|00003b10| 48 44 24 28 20 46 4e 20 | 48 58 28 58 2f 32 35 36 |HD$( FN |HX(X/256|
|00003b20| 29 29 20 2b 48 44 24 28 | 20 46 4e 20 48 58 28 58 |)) +HD$(| FN HX(X|
|00003b30| 2f 31 36 29 29 20 2b 48 | 44 24 28 20 46 4e 20 48 |/16)) +H|D$( FN H|
|00003b40| 58 28 58 29 29 20 2b 22 | 3a 22 0a 31 30 31 35 30 |X(X)) +"|:".10150|
|00003b50| 20 20 49 46 20 4c 4e 28 | 4e 29 20 3d 20 30 20 20 |  IF LN(|N) = 0  |
|00003b60| 54 48 45 4e 20 31 30 32 | 30 30 0a 31 30 31 36 30 |THEN 102|00.10160|
|00003b70| 20 20 46 4f 52 20 49 20 | 3d 20 31 20 54 4f 20 4c |  FOR I |= 1 TO L|
|00003b80| 4e 28 4e 29 0a 31 30 31 | 37 30 20 58 20 3d 20 20 |N(N).101|70 X =  |
|00003b90| 50 45 45 4b 28 4c 4f 28 | 4e 29 20 2b 53 41 20 2b |PEEK(LO(|N) +SA +|
|00003ba0| 28 49 20 2d 31 29 29 0a | 31 30 31 38 30 20 50 4c |(I -1)).|10180 PL|
|00003bb0| 24 20 3d 20 50 4c 24 20 | 2b 48 44 24 28 20 46 4e |$ = PL$ |+HD$( FN|
|00003bc0| 20 48 58 28 58 2f 31 36 | 29 29 20 2b 48 44 24 28 | HX(X/16|)) +HD$(|
|00003bd0| 20 46 4e 20 48 58 28 58 | 29 29 20 2b 22 20 22 0a | FN HX(X|)) +" ".|
|00003be0| 31 30 31 39 30 20 20 4e | 45 58 54 20 49 0a 31 30 |10190  N|EXT I.10|
|00003bf0| 32 30 30 20 50 4c 24 20 | 3d 20 20 4c 45 46 54 24 |200 PL$ |=  LEFT$|
|00003c00| 28 50 4c 24 20 2b 22 20 | 20 20 20 20 20 20 20 20 |(PL$ +" |        |
|00003c10| 20 22 2c 31 34 29 0a 31 | 30 32 31 30 20 20 4f 4e | ",14).1|0210  ON|
|00003c20| 20 20 4c 45 4e 28 20 53 | 54 52 24 28 4e 29 29 20 |  LEN( S|TR$(N)) |
|00003c30| 47 4f 53 55 42 20 31 30 | 32 39 30 2c 31 30 33 30 |GOSUB 10|290,1030|
|00003c40| 30 2c 31 30 33 31 30 0a | 31 30 32 32 30 20 20 50 |0,10310.|10220  P|
|00003c50| 52 49 4e 54 20 50 4c 24 | 20 2b 46 49 4c 24 20 2b |RINT PL$| +FIL$ +|
|00003c60| 20 53 54 52 24 28 4e 29 | 20 2b 22 20 22 20 2b 20 | STR$(N)| +" " + |
|00003c70| 4c 45 46 54 24 28 49 4e | 24 2c 37 38 29 0a 31 30 |LEFT$(IN|$,78).10|
|00003c80| 32 33 30 20 4c 4e 20 3d | 20 4c 4e 20 2b 31 3a 20 |230 LN =| LN +1: |
|00003c90| 49 46 20 4c 4e 20 3d 20 | 35 36 20 20 54 48 45 4e |IF LN = |56  THEN|
|00003ca0| 20 20 47 4f 53 55 42 20 | 31 30 35 34 30 3a 20 52 |  GOSUB |10540: R|
|00003cb0| 45 4d 20 20 50 41 47 45 | 20 48 45 41 44 45 52 0a |EM  PAGE| HEADER.|
|00003cc0| 31 30 32 34 30 20 20 4e | 45 58 54 20 4e 0a 31 30 |10240  N|EXT N.10|
|00003cd0| 32 35 30 20 20 50 52 49 | 4e 54 20 44 24 22 43 4c |250  PRI|NT D$"CL|
|00003ce0| 4f 53 45 22 3a 20 50 52 | 49 4e 54 20 3a 20 50 52 |OSE": PR|INT : PR|
|00003cf0| 49 4e 54 20 22 53 55 43 | 43 45 53 53 46 55 4c 20 |INT "SUC|CESSFUL |
|00003d00| 41 53 53 45 4d 42 4c 59 | 20 2d 2d 20 4e 4f 20 45 |ASSEMBLY| -- NO E|
|00003d10| 52 52 4f 52 53 22 0a 31 | 30 32 36 30 20 20 50 52 |RRORS".1|0260  PR|
|00003d20| 49 4e 54 20 22 41 53 53 | 45 4d 42 4c 45 44 20 4f |INT "ASS|EMBLED O|
|00003d30| 55 54 50 55 54 20 49 4e | 20 46 49 4c 45 20 22 3b |UTPUT IN| FILE ";|
|00003d40| 50 52 24 3b 22 2e 4f 42 | 4a 2c 41 24 22 3b 48 44 |PR$;".OB|J,A$";HD|
|00003d50| 24 28 20 46 4e 20 48 58 | 28 4c 41 2f 34 30 39 36 |$( FN HX|(LA/4096|
|00003d60| 29 29 3b 48 44 24 28 20 | 46 4e 20 48 58 28 4c 41 |));HD$( |FN HX(LA|
|00003d70| 2f 32 35 36 29 29 3b 48 | 44 24 28 20 46 4e 20 48 |/256));H|D$( FN H|
|00003d80| 58 28 4c 41 2f 31 36 29 | 29 3b 48 44 24 28 20 46 |X(LA/16)|);HD$( F|
|00003d90| 4e 20 48 58 28 4c 41 29 | 29 3b 0a 31 30 32 37 30 |N HX(LA)|);.10270|
|00003da0| 20 20 50 52 49 4e 54 20 | 22 2c 4c 24 22 3b 48 44 |  PRINT |",L$";HD|
|00003db0| 24 28 20 46 4e 20 48 58 | 28 4c 2f 34 30 39 36 29 |$( FN HX|(L/4096)|
|00003dc0| 29 3b 48 44 24 28 20 46 | 4e 20 48 58 28 4c 2f 32 |);HD$( F|N HX(L/2|
|00003dd0| 35 36 29 29 3b 48 44 24 | 28 20 46 4e 20 48 58 28 |56));HD$|( FN HX(|
|00003de0| 4c 2f 31 36 29 29 3b 48 | 44 24 28 20 46 4e 20 48 |L/16));H|D$( FN H|
|00003df0| 58 28 4c 29 29 3a 20 50 | 52 49 4e 54 20 20 43 48 |X(L)): P|RINT  CH|
|00003e00| 52 24 28 31 32 29 3a 20 | 50 52 49 4e 54 20 44 24 |R$(12): |PRINT D$|
|00003e10| 22 50 52 23 30 22 0a 31 | 30 32 38 30 20 20 52 45 |"PR#0".1|0280  RE|
|00003e20| 54 55 52 4e 20 0a 31 30 | 32 39 30 20 46 49 4c 24 |TURN .10|290 FIL$|
|00003e30| 20 3d 20 22 20 20 22 3a | 20 52 45 54 55 52 4e 20 | = "  ":| RETURN |
|00003e40| 3a 20 52 45 4d 20 20 31 | 20 44 49 47 49 54 20 4c |: REM  1| DIGIT L|
|00003e50| 49 4e 45 20 4e 55 4d 42 | 45 52 0a 31 30 33 30 30 |INE NUMB|ER.10300|
|00003e60| 20 46 49 4c 24 20 3d 20 | 22 20 22 3a 20 52 45 54 | FIL$ = |" ": RET|
|00003e70| 55 52 4e 20 3a 20 52 45 | 4d 20 20 32 20 44 49 47 |URN : RE|M  2 DIG|
|00003e80| 49 54 20 4c 49 4e 45 20 | 4e 55 4d 42 45 52 0a 31 |IT LINE |NUMBER.1|
|00003e90| 30 33 31 30 20 46 49 4c | 24 20 3d 20 22 22 3a 20 |0310 FIL|$ = "": |
|00003ea0| 52 45 54 55 52 4e 20 3a | 20 52 45 4d 20 20 33 20 |RETURN :| REM  3 |
|00003eb0| 44 49 47 49 54 20 4c 49 | 4e 45 20 4e 55 4d 42 45 |DIGIT LI|NE NUMBE|
|00003ec0| 52 0a 31 30 33 32 30 20 | 3a 0a 31 30 33 33 30 20 |R.10320 |:.10330 |
|00003ed0| 20 52 45 4d 20 20 53 50 | 45 43 49 41 4c 20 43 4f | REM  SP|ECIAL CO|
|00003ee0| 44 45 20 46 4f 52 20 41 | 53 43 0a 31 30 33 34 30 |DE FOR A|SC.10340|
|00003ef0| 20 3a 0a 31 30 33 35 30 | 20 20 46 4f 52 20 43 20 | :.10350|  FOR C |
|00003f00| 3d 20 30 20 54 4f 20 4c | 4e 28 4e 29 20 2d 31 20 |= 0 TO L|N(N) -1 |
|00003f10| 20 53 54 45 50 20 33 0a | 31 30 33 36 30 20 58 20 | STEP 3.|10360 X |
|00003f20| 3d 20 4c 4f 28 4e 29 20 | 2b 43 20 2b 4c 41 0a 31 |= LO(N) |+C +LA.1|
|00003f30| 30 33 37 30 20 50 4c 24 | 20 3d 20 48 44 24 28 20 |0370 PL$| = HD$( |
|00003f40| 46 4e 20 48 58 28 58 2f | 34 30 39 36 29 29 20 2b |FN HX(X/|4096)) +|
|00003f50| 48 44 24 28 20 46 4e 20 | 48 58 28 58 2f 32 35 36 |HD$( FN |HX(X/256|
|00003f60| 29 29 20 2b 48 44 24 28 | 20 46 4e 20 48 58 28 58 |)) +HD$(| FN HX(X|
|00003f70| 2f 31 36 29 29 20 2b 48 | 44 24 28 20 46 4e 20 48 |/16)) +H|D$( FN H|
|00003f80| 58 28 58 29 29 20 2b 22 | 3a 22 0a 31 30 33 38 30 |X(X)) +"|:".10380|
|00003f90| 20 20 46 4f 52 20 49 20 | 3d 20 31 20 54 4f 20 33 |  FOR I |= 1 TO 3|
|00003fa0| 0a 31 30 33 39 30 20 20 | 49 46 20 43 20 2b 49 20 |.10390  |IF C +I |
|00003fb0| 3e 4c 4e 28 4e 29 20 20 | 54 48 45 4e 20 31 30 34 |>LN(N)  |THEN 104|
|00003fc0| 33 30 0a 31 30 34 30 30 | 20 58 20 3d 20 20 50 45 |30.10400| X =  PE|
|00003fd0| 45 4b 28 4c 4f 28 4e 29 | 20 2b 53 41 20 2b 43 20 |EK(LO(N)| +SA +C |
|00003fe0| 2b 28 49 20 2d 31 29 29 | 0a 31 30 34 31 30 20 50 |+(I -1))|.10410 P|
|00003ff0| 4c 24 20 3d 20 50 4c 24 | 20 2b 48 44 24 28 20 46 |L$ = PL$| +HD$( F|
|00004000| 4e 20 48 58 28 58 2f 31 | 36 29 29 20 2b 48 44 24 |N HX(X/1|6)) +HD$|
|00004010| 28 20 46 4e 20 48 58 28 | 58 29 29 20 2b 22 20 22 |( FN HX(|X)) +" "|
|00004020| 0a 31 30 34 32 30 20 20 | 4e 45 58 54 20 49 0a 31 |.10420  |NEXT I.1|
|00004030| 30 34 33 30 20 50 4c 24 | 20 3d 20 20 4c 45 46 54 |0430 PL$| =  LEFT|
|00004040| 24 28 50 4c 24 20 2b 22 | 20 20 20 20 20 20 20 20 |$(PL$ +"|        |
|00004050| 20 20 22 2c 31 34 29 0a | 31 30 34 34 30 20 20 4f |  ",14).|10440  O|
|00004060| 4e 20 20 4c 45 4e 28 20 | 53 54 52 24 28 4e 29 29 |N  LEN( |STR$(N))|
|00004070| 20 47 4f 53 55 42 20 31 | 30 32 39 30 2c 31 30 33 | GOSUB 1|0290,103|
|00004080| 30 30 2c 31 30 33 31 30 | 0a 31 30 34 35 30 20 50 |00,10310|.10450 P|
|00004090| 4c 24 20 3d 20 50 4c 24 | 20 2b 46 49 4c 24 20 2b |L$ = PL$| +FIL$ +|
|000040a0| 20 53 54 52 24 28 4e 29 | 20 2b 22 20 22 0a 31 30 | STR$(N)| +" ".10|
|000040b0| 34 36 30 20 20 49 46 20 | 43 20 3d 20 30 20 20 54 |460  IF |C = 0  T|
|000040c0| 48 45 4e 20 50 4c 24 20 | 3d 20 50 4c 24 20 2b 20 |HEN PL$ |= PL$ + |
|000040d0| 4c 45 46 54 24 28 49 4e | 24 2c 37 38 29 0a 31 30 |LEFT$(IN|$,78).10|
|000040e0| 34 37 30 20 20 50 52 49 | 4e 54 20 50 4c 24 0a 31 |470  PRI|NT PL$.1|
|000040f0| 30 34 38 30 20 4c 4e 20 | 3d 20 4c 4e 20 2b 31 3a |0480 LN |= LN +1:|
|00004100| 20 49 46 20 4c 4e 20 3d | 20 35 36 20 20 54 48 45 | IF LN =| 56  THE|
|00004110| 4e 20 20 47 4f 53 55 42 | 20 31 30 35 34 30 3a 20 |N  GOSUB| 10540: |
|00004120| 52 45 4d 20 20 50 41 47 | 45 20 48 45 41 44 45 52 |REM  PAG|E HEADER|
|00004130| 0a 31 30 34 39 30 20 20 | 4e 45 58 54 20 43 0a 31 |.10490  |NEXT C.1|
|00004140| 30 35 30 30 20 20 47 4f | 54 4f 20 31 30 32 34 30 |0500  GO|TO 10240|
|00004150| 0a 31 30 35 31 30 20 3a | 0a 31 30 35 32 30 20 20 |.10510 :|.10520  |
|00004160| 52 45 4d 20 20 50 52 49 | 4e 54 20 48 45 41 44 45 |REM  PRI|NT HEADE|
|00004170| 52 0a 31 30 35 33 30 20 | 3a 0a 31 30 35 34 30 20 |R.10530 |:.10540 |
|00004180| 20 50 52 49 4e 54 20 20 | 43 48 52 24 28 31 32 29 | PRINT  |CHR$(12)|
|00004190| 0a 31 30 35 35 30 20 20 | 50 52 49 4e 54 20 54 4c |.10550  |PRINT TL|
|000041a0| 24 3b 50 3b 3a 20 50 52 | 49 4e 54 20 3a 50 20 3d |$;P;: PR|INT :P =|
|000041b0| 20 50 20 2b 31 3a 4c 4e | 20 3d 20 30 3a 20 52 45 | P +1:LN| = 0: RE|
|000041c0| 54 55 52 4e 20          |                         |TURN    |        |
+--------+-------------------------+-------------------------+--------+--------+