2000   CD;90;27    CALL $2790          ; [TEST-Z$]
2003   E9          JP HL                
2004   C3;42;24    JP $2442            ; [START]
2007   C3;61;24    JP $2461            ; [PAGE]
200A   C3;7E;24    JP $247E            ; [HRG]
200D   C3;90;24    JP $2490            ; [BASIC]
2010   C3;99;24    JP $2499            ; [CLEAR]
2013   C3;32;24    JP $2432            ; [LOCATE]
2016   C3;FF;24    JP $24FF            ; [PLOT]
2019   C3;08;25    JP $2508            ; [UNPLOT]
201C   C3;0F;25    JP $250F            ; [TEST]
201F   C3;00;26    JP $2600            ; [STARCH]
2022   C3;38;24    JP $2438            ; [SU]
2025   C3;87;24    JP $2487            ; [HRGINV]
2028   C3;1F;26    JP $261F            ; [RU]
202B   C3;65;26    JP $2665            ; [RD]
202E   C3;84;26    JP $2684            ; [SD]
2031   C3;E2;23    JP $23E2            ; [PRINT]
2034   C3;59;23    JP $2359            ; [SKETCH]
2037   C3;5D;23    JP $235D            ; [UNSKETCH]
203A   C3;61;23    JP $2361            ; [INVSKETCH]
203D   C3;D5;22    JP $22D5            ; [SINCH]
2040   C3;3B;21    JP $213B            ; [SL]
2043   C3;D8;20    JP $20D8            ; [LAUNCH]
2046   C3;DD;23    JP $23DD            ; [PRINT1]
2049   C3;AC;20    JP $20AC            ; [BLINE]
204C   C3;C2;20    JP $20C2            ; [WLINE]
204F   C3;9E;21    JP $219E            ; [UNSTRING]
2052   C3;A4;21    JP $21A4            ; [STRING]
2055   C3;5E;20    JP $205E            ; [SR]
2058   C3;07;22    JP $2207            ; [LINE]
205B   C3;22;22    JP $2222            ; [NULL]
205E   CD;98;25    CALL $2598          ; []
2061   CD;DB;25    CALL $25DB          ; []
2064   4F          LD C,A               
2065   04          INC B                
2066   F1          POP AF               
2067   EB          EX DE,HL             
2068   C5          PUSH BC              
2069   F5          PUSH AF              
206A   E5          PUSH HL              
206B   D5          PUSH DE              
206C   CD;7D;20    CALL $207D          ; []
206F   D1          POP DE               
2070   E1          POP HL               
2071   01;21;00    LD BC,$0021          
2074   EB          EX DE,HL             
2075   09          ADD HL,BC            
2076   EB          EX DE,HL             
2077   09          ADD HL,BC            
2078   F1          POP AF               
2079   C1          POP BC               
207A   10;EC       DJNZ $2168           
207C   C9          RET                  
207D   47          LD B,A               
207E   F5          PUSH AF              
207F   CD;F8;25    CALL $25F8          ; []
2082   28;15       JR Z,$2099           
2084   7E          LD A,(HL)            
2085   A0          AND A,B              
2086   47          LD B,A               
2087   F1          POP AF               
2088   78          LD A,B               
2089   CB;1F       RR A                 
208B   F5          PUSH AF              
208C   78          LD A,B               
208D   2F          CPL                  
208E   A6          AND A,(HL)           
208F   47          LD B,A               
2090   F1          POP AF               
2091   F5          PUSH AF              
2092   B0          OR A,B               
2093   77          LD (HL),A            
2094   06;FF       LD B,$FF             
2096   23          INC HL               
2097   18;E6       JR $217F             
2099   79          LD A,C               
209A   A0          AND A,B              
209B   47          LD B,A               
209C   7E          LD A,(HL)            
209D   4F          LD C,A               
209E   F1          POP AF               
209F   79          LD A,C               
20A0   CB;1F       RR A                 
20A2   A0          AND A,B              
20A3   F5          PUSH AF              
20A4   78          LD A,B               
20A5   2F          CPL                  
20A6   A6          AND A,(HL)           
20A7   47          LD B,A               
20A8   F1          POP AF               
20A9   B0          OR A,B               
20AA   77          LD (HL),A            
20AB   C9          RET                  
20AC   CD;E7;24    CALL $24E7          ; []
20AF   C5          PUSH BC              
20B0   CD;AD;24    CALL $24AD          ; []
20B3   AF          XOR A,A              
20B4   37          SCF                  
20B5   17          RLA                  
20B6   10;FD       DJNZ $21B5           
20B8   57          LD D,A               
20B9   C1          POP BC               
20BA   CD;22;21    CALL $2122          ; []
20BD   48          LD C,B               
20BE   06;00       LD B,$00             
20C0   0D          DEC C                
20C1   C9          RET                  
20C2   CD;E7;24    CALL $24E7          ; []
20C5   C5          PUSH BC              
20C6   CD;AD;24    CALL $24AD          ; []
20C9   AF          XOR A,A              
20CA   37          SCF                  
20CB   17          RLA                  
20CC   10;FD       DJNZ $21CB           
20CE   57          LD D,A               
20CF   C1          POP BC               
20D0   CD;07;21    CALL $2107          ; []
20D3   48          LD C,B               
20D4   06;00       LD B,$00             
20D6   0D          DEC C                
20D7   C9          RET                  
20D8   CD;E7;24    CALL $24E7          ; []
20DB   C5          PUSH BC              
20DC   CD;AD;24    CALL $24AD          ; []
20DF   AF          XOR A,A              
20E0   37          SCF                  
20E1   CB;17       RL A                 
20E3   10;FC       DJNZ $21E1           
20E5   57          LD D,A               
20E6   C1          POP BC               
20E7   E5          PUSH HL              
20E8   C5          PUSH BC              
20E9   CD;22;21    CALL $2122          ; []
20EC   7E          LD A,(HL)            
20ED   2F          CPL                  
20EE   B2          OR A,D               
20EF   2F          CPL                  
20F0   77          LD (HL),A            
20F1   C1          POP BC               
20F2   E1          POP HL               
20F3   CD;07;21    CALL $2107          ; []
20F6   78          LD A,B               
20F7   FE;C0       CP $C0               
20F9   20;04       JR NZ,$20FF          
20FB   01;00;00    LD BC,$0000          
20FE   C9          RET                  
20FF   7E          LD A,(HL)            
2100   B2          OR A,D               
2101   77          LD (HL),A            
2102   48          LD C,B               
2103   06;00       LD B,$00             
2105   0D          DEC C                
2106   C9          RET                  
2107   C5          PUSH BC              
2108   7E          LD A,(HL)            
2109   5F          LD E,A               
210A   A2          AND A,D              
210B   28;13       JR Z,$2120           
210D   7B          LD A,E               
210E   2F          CPL                  
210F   B2          OR A,D               
2110   2F          CPL                  
2111   77          LD (HL),A            
2112   01;21;00    LD BC,$0021          
2115   A7          AND A,A              
2116   ED;42       SBC HL,BC            
2118   C1          POP BC               
2119   04          INC B                
211A   78          LD A,B               
211B   FE;C0       CP $C0               
211D   20;E8       JR NZ,$2207          
211F   C5          PUSH BC              
2120   C1          POP BC               
2121   C9          RET                  
2122   C5          PUSH BC              
2123   7E          LD A,(HL)            
2124   5F          LD E,A               
2125   A2          AND A,D              
2126   20;11       JR NZ,$2139          
2128   7B          LD A,E               
2129   B2          OR A,D               
212A   77          LD (HL),A            
212B   01;21;00    LD BC,$0021          
212E   A7          AND A,A              
212F   ED;42       SBC HL,BC            
2131   C1          POP BC               
2132   04          INC B                
2133   78          LD A,B               
2134   FE;C0       CP $C0               
2136   20;EA       JR NZ,$2222          
2138   C5          PUSH BC              
2139   C1          POP BC               
213A   C9          RET                  
213B   CD;98;25    CALL $2598          ; []
213E   CD;DB;25    CALL $25DB          ; []
2141   4F          LD C,A               
2142   04          INC B                
2143   F1          POP AF               
2144   C5          PUSH BC              
2145   F5          PUSH AF              
2146   E5          PUSH HL              
2147   D5          PUSH DE              
2148   CD;59;21    CALL $2159          ; []
214B   D1          POP DE               
214C   E1          POP HL               
214D   01;21;00    LD BC,$0021          
2150   EB          EX DE,HL             
2151   09          ADD HL,BC            
2152   EB          EX DE,HL             
2153   09          ADD HL,BC            
2154   F1          POP AF               
2155   C1          POP BC               
2156   10;EC       DJNZ $2244           
2158   C9          RET                  
2159   41          LD B,C               
215A   4F          LD C,A               
215B   F5          PUSH AF              
215C   CD;F8;25    CALL $25F8          ; []
215F   28;15       JR Z,$2176           
2161   7E          LD A,(HL)            
2162   A0          AND A,B              
2163   47          LD B,A               
2164   F1          POP AF               
2165   78          LD A,B               
2166   CB;17       RL A                 
2168   F5          PUSH AF              
2169   78          LD A,B               
216A   2F          CPL                  
216B   A6          AND A,(HL)           
216C   47          LD B,A               
216D   F1          POP AF               
216E   F5          PUSH AF              
216F   B0          OR A,B               
2170   77          LD (HL),A            
2171   06;FF       LD B,$FF             
2173   2B          DEC HL               
2174   18;E6       JR $225C             
2176   79          LD A,C               
2177   A0          AND A,B              
2178   47          LD B,A               
2179   7E          LD A,(HL)            
217A   4F          LD C,A               
217B   F1          POP AF               
217C   79          LD A,C               
217D   CB;17       RL A                 
217F   A0          AND A,B              
2180   F5          PUSH AF              
2181   78          LD A,B               
2182   2F          CPL                  
2183   A6          AND A,(HL)           
2184   47          LD B,A               
2185   F1          POP AF               
2186   B0          OR A,B               
2187   77          LD (HL),A            
2188   C9          RET                  
2189   CD;75;24    CALL $2475          ; []
218C   E5          PUSH HL              
218D   01;D8;00    LD BC,$00D8          
2190   CD;31;25    CALL $2531          ; []
2193   D1          POP DE               
2194   23          INC HL               
2195   23          INC HL               
2196   23          INC HL               
2197   23          INC HL               
2198   23          INC HL               
2199   23          INC HL               
219A   01;C1;18    LD BC,$18C1          
219D   C9          RET                  
219E   CD;89;21    CALL $2189          ; []
21A1   ED;B0       LDIR                 
21A3   C9          RET                  
21A4   CD;89;21    CALL $2189          ; []
21A7   EB          EX DE,HL             
21A8   ED;B0       LDIR                 
21AA   C9          RET 
                 
21AB   CD;38;24    CALL $2438          ; []
21AE   1E;08       LD E,$08             
21B0   16;00       LD D,$00             
21B2   06;32       LD B,$32             
21B4   0E;32       LD C,$32             
21B6   21;C0;21    LD HL,$21C0          
21B9   CD;E5;22    CALL $22E5          ; []
21BC   CD;87;24    CALL $2487          ; []
21BF   C9          RET 
                 
21C0   32;2A;32    LD ($322A),A         
21C3   34          INC (HL)             
21C4   39          ADD HL,SP            
21C5   2A;28;2D    LD HL,($2D28)        
21C8   C5          PUSH BC              
21C9   D5          PUSH DE              
21CA   E5          PUSH HL              
21CB   01;00;00    LD BC,$0000          
21CE   A7          AND A,A              
21CF   28;1F       JR Z,$21F0           
21D1   57          LD D,A               
21D2   E6;80       AND $80              
21D4   28;08       JR Z,$21DE           
21D6   06;88       LD B,$88             
21D8   7A          LD A,D               
21D9   E6;7F       AND $7F              
21DB   4F          LD C,A               
21DC   18;12       JR $21F0             
21DE   06;87       LD B,$87             
21E0   7A          LD A,D               
21E1   CB;27       SLA A                
21E3   57          LD D,A               
21E4   E6;80       AND $80              
21E6   20;04       JR NZ,$21EC          
21E8   7A          LD A,D               
21E9   05          DEC B                
21EA   18;F4       JR $22E0             
21EC   7A          LD A,D               
21ED   E6;7F       AND $7F              
21EF   4F          LD C,A               
21F0   2A;1C;40    LD HL,($401C)        
21F3   70          LD (HL),B            
21F4   23          INC HL               
21F5   71          LD (HL),C            
21F6   23          INC HL               
21F7   36;00       LD (HL),$00          
21F9   23          INC HL               
21FA   36;00       LD (HL),$00          
21FC   23          INC HL               
21FD   36;00       LD (HL),$00          
21FF   23          INC HL               
2200   22;1C;40    LD ($401C),HL        
2203   E1          POP HL               
2204   D1          POP DE               
2205   C1          POP BC               
2206   C9          RET                  
2207   CD;3D;22    CALL $223D          ; []
220A   14          INC D                
220B   1E;00       LD E,$00             
220D   D5          PUSH DE              
220E   E5          PUSH HL              
220F   C5          PUSH BC              
2210   CD;87;22    CALL $2287          ; []
2213   CD;AD;24    CALL $24AD          ; []
2216   CD;02;25    CALL $2502          ; []
2219   C1          POP BC               
221A   E1          POP HL               
221B   D1          POP DE               
221C   7B          LD A,E               
221D   BA          CP D                 
221E   C8          RET Z                
221F   1C          INC E                
2220   18;EB       JR $230D             
2222   CD;3D;22    CALL $223D          ; []
2225   14          INC D                
2226   1E;00       LD E,$00             
2228   D5          PUSH DE              
2229   E5          PUSH HL              
222A   C5          PUSH BC              
222B   CD;87;22    CALL $2287          ; []
222E   CD;AD;24    CALL $24AD          ; []
2231   CD;0B;25    CALL $250B          ; []
2234   C1          POP BC               
2235   E1          POP HL               
2236   D1          POP DE               
2237   7B          LD A,E               
2238   BA          CP D                 
2239   C8          RET Z                
223A   1C          INC E                
223B   18;EB       JR $2328             
223D   01;76;80    LD BC,$8076          
2240   CD;5C;25    CALL $255C          ; []
2243   0C          INC C                
2244   C5          PUSH BC              
2245   01;75;80    LD BC,$8075          
2248   CD;5C;25    CALL $255C          ; []
224B   E1          POP HL               
224C   45          LD B,L               
224D   C5          PUSH BC              
224E   CD;E7;24    CALL $24E7          ; []
2251   E1          POP HL               
2252   7C          LD A,H               
2253   CD;C8;21    CALL $21C8          ; []
2256   78          LD A,B               
2257   CD;C8;21    CALL $21C8          ; []
225A   7D          LD A,L               
225B   CD;C8;21    CALL $21C8          ; []
225E   79          LD A,C               
225F   CD;C8;21    CALL $21C8          ; []
2262   C5          PUSH BC              
2263   E5          PUSH HL              
2264   EF          RST 28               
2265   03          INC BC               
2266   27          DAA                  
2267   34          INC (HL)             
2268   CD;A7;0E    CALL $0EA7          ; [FIND-INT]
226B   C5          PUSH BC              
226C   EF          RST 28               
226D   03          INC BC               
226E   27          DAA                  
226F   34          INC (HL)             
2270   CD;A7;0E    CALL $0EA7          ; [FIND-INT]
2273   E1          POP HL               
2274   7D          LD A,L               
2275   91          SUB A,C              
2276   38;03       JR C,$227B           
2278   55          LD D,L               
2279   18;01       JR $227C             
227B   51          LD D,C               
227C   E1          POP HL               
227D   C1          POP BC               
227E   C9          RET                  
227F   EF          RST 28               
2280   27          DAA                  
2281   37          SCF                  
2282   26;33       LD H,$33             
2284   39          ADD HL,SP            
2285   34          INC (HL)             
2286   C9          RET                  
2287   78          LD A,B               
2288   E5          PUSH HL              
2289   D5          PUSH DE              
228A   C5          PUSH BC              
228B   CD;C8;21    CALL $21C8          ; []
228E   7B          LD A,E               
228F   CD;C8;21    CALL $21C8          ; []
2292   7C          LD A,H               
2293   CD;C8;21    CALL $21C8          ; []
2296   78          LD A,B               
2297   CD;C8;21    CALL $21C8          ; []
229A   D5          PUSH DE              
229B   EF          RST 28               
229C   03          INC BC               
229D   34          INC (HL)             
229E   D1          POP DE               
229F   7A          LD A,D               
22A0   CD;C8;21    CALL $21C8          ; []
22A3   EF          RST 28               
22A4   05          DEC B                
22A5   04          INC B                
22A6   0F          RRCA                 
22A7   34          INC (HL)             
22A8   CD;A7;0E    CALL $0EA7          ; [FIND-INT]
22AB   79          LD A,C               
22AC   C1          POP BC               
22AD   D1          POP DE               
22AE   E1          POP HL               
22AF   47          LD B,A               
22B0   C5          PUSH BC              
22B1   79          LD A,C               
22B2   CD;C8;21    CALL $21C8          ; []
22B5   7B          LD A,E               
22B6   CD;C8;21    CALL $21C8          ; []
22B9   7D          LD A,L               
22BA   CD;C8;21    CALL $21C8          ; []
22BD   79          LD A,C               
22BE   CD;C8;21    CALL $21C8          ; []
22C1   D5          PUSH DE              
22C2   EF          RST 28               
22C3   03          INC BC               
22C4   34          INC (HL)             
22C5   D1          POP DE               
22C6   7A          LD A,D               
22C7   CD;C8;21    CALL $21C8          ; []
22CA   EF          RST 28               
22CB   05          DEC B                
22CC   04          INC B                
22CD   0F          RRCA                 
22CE   34          INC (HL)             
22CF   CD;A7;0E    CALL $0EA7          ; [FIND-INT]
22D2   E1          POP HL               
22D3   44          LD B,H               
22D4   C9          RET                  
22D5   CD;E7;24    CALL $24E7          ; []
22D8   C5          PUSH BC              
22D9   01;48;00    LD BC,$0048          
22DC   CD;31;25    CALL $2531          ; []
22DF   23          INC HL               
22E0   5E          LD E,(HL)            
22E1   23          INC HL               
22E2   56          LD D,(HL)            
22E3   23          INC HL               
22E4   C1          POP BC               
22E5   D5          PUSH DE              
22E6   D1          POP DE               
22E7   3E;FF       LD A,$FF             
22E9   A2          AND A,D              
22EA   B3          OR A,E               
22EB   C8          RET Z                
22EC   1B          DEC DE               
22ED   D5          PUSH DE              
22EE   E5          PUSH HL              
22EF   C5          PUSH BC              
22F0   7E          LD A,(HL)            
22F1   21;07;1E    LD HL,$1E07          
22F4   16;00       LD D,$00             
22F6   5F          LD E,A               
22F7   CB;23       SLA E                
22F9   CB;12       RL D                 
22FB   CB;23       SLA E                
22FD   CB;12       RL D                 
22FF   CB;23       SLA E                
2301   CB;12       RL D                 
2303   C1          POP BC               
2304   C5          PUSH BC              
2305   CB;52       BIT 2,D              
2307   20;10       JR NZ,$2319          
2309   19          ADD HL,DE            
230A   16;08       LD D,$08             
230C   7E          LD A,(HL)            
230D   CD;37;23    CALL $2337          ; []
2310   C1          POP BC               
2311   04          INC B                
2312   C5          PUSH BC              
2313   2B          DEC HL               
2314   15          DEC D                
2315   20;F5       JR NZ,$240C          
2317   18;11       JR $232A             
2319   CB;92       RES 2,D              
231B   19          ADD HL,DE            
231C   16;08       LD D,$08             
231E   7E          LD A,(HL)            
231F   2F          CPL                  
2320   CD;37;23    CALL $2337          ; []
2323   2B          DEC HL               
2324   C1          POP BC               
2325   04          INC B                
2326   C5          PUSH BC              
2327   15          DEC D                
2328   20;F4       JR NZ,$241E          
232A   C1          POP BC               
232B   79          LD A,C               
232C   C6;08       ADD A,$08            
232E   4F          LD C,A               
232F   78          LD A,B               
2330   D6;08       SUB $08              
2332   47          LD B,A               
2333   E1          POP HL               
2334   23          INC HL               
2335   18;AF       JR $23E6             
2337   E5          PUSH HL              
2338   D5          PUSH DE              
2339   16;08       LD D,$08             
233B   17          RLA                  
233C   C5          PUSH BC              
233D   D5          PUSH DE              
233E   F5          PUSH AF              
233F   38;08       JR C,$2349           
2341   CD;AD;24    CALL $24AD          ; []
2344   CD;0B;25    CALL $250B          ; []
2347   18;06       JR $234F             
2349   CD;AD;24    CALL $24AD          ; []
234C   CD;02;25    CALL $2502          ; []
234F   F1          POP AF               
2350   D1          POP DE               
2351   C1          POP BC               
2352   0C          INC C                
2353   15          DEC D                
2354   20;E5       JR NZ,$243B          
2356   D1          POP DE               
2357   E1          POP HL               
2358   C9          RET                  
2359   16;7F       LD D,$7F             
235B   18;06       JR $2363             
235D   16;00       LD D,$00             
235F   18;02       JR $2363             
2361   16;FF       LD D,$FF             
2363   D5          PUSH DE              
2364   CD;E7;24    CALL $24E7          ; []
2367   C5          PUSH BC              
2368   01;48;00    LD BC,$0048          
236B   CD;31;25    CALL $2531          ; []
236E   23          INC HL               
236F   23          INC HL               
2370   23          INC HL               
2371   C1          POP BC               
2372   D1          POP DE               
2373   C5          PUSH BC              
2374   7E          LD A,(HL)            
2375   FE;1D       CP $1D               
2377   28;22       JR Z,$239B           
2379   FE;1C       CP $1C               
237B   28;33       JR Z,$23B0           
237D   FE;33       CP $33               
237F   28;46       JR Z,$23C7           
2381   FE;38       CP $38               
2383   28;47       JR Z,$23CC           
2385   FE;2A       CP $2A               
2387   28;4D       JR Z,$23D6           
2389   FE;3C       CP $3C               
238B   28;44       JR Z,$23D1           
238D   FE;17       CP $17               
238F   28;32       JR Z,$23C3           
2391   FE;0E       CP $0E               
2393   28;46       JR Z,$23DB           
2395   C1          POP BC               
2396   CD;90;24    CALL $2490          ; []
2399   CF          RST 8                
239A   18;A7       JR $2443             
239C   CB;12       RL D                 
239E   38;15       JR C,$23B5           
23A0   CB;1A       RR D                 
23A2   A2          AND A,D              
23A3   28;12       JR Z,$23B7           
23A5   C5          PUSH BC              
23A6   D5          PUSH DE              
23A7   E5          PUSH HL              
23A8   CD;AD;24    CALL $24AD          ; []
23AB   CD;02;25    CALL $2502          ; []
23AE   18;10       JR $23C0             
23B0   A7          AND A,A              
23B1   CB;12       RL D                 
23B3   38;EB       JR C,$24A0           
23B5   CB;1A       RR D                 
23B7   C5          PUSH BC              
23B8   D5          PUSH DE              
23B9   E5          PUSH HL              
23BA   CD;AD;24    CALL $24AD          ; []
23BD   CD;0B;25    CALL $250B          ; []
23C0   E1          POP HL               
23C1   D1          POP DE               
23C2   C1          POP BC               
23C3   23          INC HL               
23C4   0C          INC C                
23C5   18;AD       JR $2474             
23C7   C1          POP BC               
23C8   04          INC B                
23C9   23          INC HL               
23CA   18;A7       JR $2473             
23CC   C1          POP BC               
23CD   05          DEC B                
23CE   23          INC HL               
23CF   18;A2       JR $2473             
23D1   C1          POP BC               
23D2   0D          DEC C                
23D3   23          INC HL               
23D4   18;9D       JR $2473             
23D6   C1          POP BC               
23D7   0C          INC C                
23D8   23          INC HL               
23D9   18;98       JR $2473             
23DB   C1          POP BC               
23DC   C9          RET                  
23DD   06;01       LD B,$01             
23DF   C5          PUSH BC              
23E0   18;03       JR $23E5             
23E2   06;C0       LD B,$C0             
23E4   C5          PUSH BC              
23E5   CD;75;24    CALL $2475          ; []
23E8   23          INC HL               
23E9   CD;E7;02    CALL $02E7          ; [SET-FAST]
23EC   C1          POP BC               
23ED   AF          XOR A,A              
23EE   D3;FB       OUT ($FB),A          
23F0   DB;FB       IN A,($FB)           
23F2   87          ADD A,A              
23F3   30;FB       JR NC,$24F0          
23F5   C5          PUSH BC              
23F6   CD;0C;24    CALL $240C          ; []
23F9   C1          POP BC               
23FA   AF          XOR A,A              
23FB   D3;FB       OUT ($FB),A          
23FD   DB;FB       IN A,($FB)           
23FF   1F          RRA                  
2400   30;F8       JR NC,$24FA          
2402   10;E9       DJNZ $24ED           
2404   3E;7F       LD A,$7F             
2406   D3;FB       OUT ($FB),A          
2408   CD;07;02    CALL $0207          ; [SLOW/FAST]
240B   C9          RET                  
240C   06;21       LD B,$21             
240E   C5          PUSH BC              
240F   C1          POP BC               
2410   10;06       DJNZ $2418           
2412   3E;00       LD A,$00             
2414   D3;FB       OUT ($FB),A          
2416   23          INC HL               
2417   C9          RET                  
2418   C5          PUSH BC              
2419   4E          LD C,(HL)            
241A   79          LD A,C               
241B   23          INC HL               
241C   E5          PUSH HL              
241D   06;08       LD B,$08             
241F   3E;00       LD A,$00             
2421   CB;01       RLC C                
2423   1F          RRA                  
2424   5F          LD E,A               
2425   DB;FB       IN A,($FB)           
2427   1F          RRA                  
2428   30;FB       JR NC,$2525          
242A   7B          LD A,E               
242B   D3;FB       OUT ($FB),A          
242D   10;F0       DJNZ $251F           
242F   E1          POP HL               
2430   18;DD       JR $250F             
2432   CD;F8;24    CALL $24F8          ; []
2435   44          LD B,H               
2436   4D          LD C,L               
2437   C9          RET                  
2438   CD;42;24    CALL $2442          ; []
243B   CD;7E;24    CALL $247E          ; []
243E   CD;99;24    CALL $2499          ; []
2441   C9          RET  
                
2442   21;00;00    LD HL,$0000          
2445   11;00;00    LD DE,$0000          
2448   01;00;04    LD BC,$0400          
244B   ED;B0       LDIR                 
244D   21;75;00    LD HL,$0075          
2450   36;7B       LD (HL),$7B          
2452   21;7A;02    LD HL,$027A          
2455   36;7B       LD (HL),$7B          
2457   21;40;00    LD HL,$0040          
245A   36;C1       LD (HL),$C1          
245C   21;85;02    LD HL,$0285          
245F   36;C1       LD (HL),$C1          
2461   CD;75;24    CALL $2475          ; []
2464   22;7B;40    LD ($407B),HL        
2467   11;20;00    LD DE,$0020          
246A   06;C1       LD B,$C1             
246C   36;76       LD (HL),$76          
246E   23          INC HL               
246F   36;00       LD (HL),$00          
2471   19          ADD HL,DE            
2472   10;F8       DJNZ $256C           
2474   C9          RET                  
2475   01;7B;80    LD BC,$807B          
2478   CD;5C;25    CALL $255C          ; []
247B   60          LD H,B               
247C   69          LD L,C               
247D   C9          RET
                  
247E   3E;1F       LD A,$1F             
2480   ED;47       LD I,A               
2482   3E;02       LD A,$02             
2484   DB;5F       IN A,($5F)           
2486   C9          RET
                  
2487   3E;1F       LD A,$1F             
2489   ED;47       LD I,A               
248B   3E;03       LD A,$03             
248D   DB;5F       IN A,($5F)           
248F   C9          RET

BASIC:                  
2490   3E;1E       LD A,$1E             
2492   ED;47       LD I,A               
2494   3E;00       LD A,$00             
2496   DB;5F       IN A,($5F)           
2498   C9          RET
                  
2499   CD;75;24    CALL $2475          ; []
249C   0E;C0       LD C,$C0             
249E   23          INC HL               
249F   06;20       LD B,$20             
24A1   36;00       LD (HL),$00          
24A3   23          INC HL               
24A4   10;FB       DJNZ $25A1           
24A6   36;76       LD (HL),$76          
24A8   23          INC HL               
24A9   0D          DEC C                
24AA   20;F3       JR NZ,$259F          
24AC   C9          RET                  
24AD   3E;C0       LD A,$C0             
24AF   90          SUB A,B              
24B0   30;05       JR NC,$24B7          
24B2   CD;90;24    CALL $2490          ; []
24B5   CF          RST 8                
24B6   16;F5       LD D,$F5             
24B8   C5          PUSH BC              
24B9   CD;75;24    CALL $2475          ; []
24BC   C1          POP BC               
24BD   3E;F7       LD A,$F7             
24BF   91          SUB A,C              
24C0   30;05       JR NC,$24C7          
24C2   CD;90;24    CALL $2490          ; []
24C5   CF          RST 8                
24C6   17          RLA                  
24C7   F1          POP AF               
24C8   47          LD B,A               
24C9   28;06       JR Z,$24D1           
24CB   11;21;00    LD DE,$0021          
24CE   19          ADD HL,DE            
24CF   10;FD       DJNZ $25CE           
24D1   23          INC HL               
24D2   23          INC HL               
24D3   0C          INC C                
24D4   11;00;00    LD DE,$0000          
24D7   06;08       LD B,$08             
24D9   0D          DEC C                
24DA   28;05       JR Z,$24E1           
24DC   10;FB       DJNZ $25D9           
24DE   1C          INC E                
24DF   18;F6       JR $25D7             
24E1   7B          LD A,E               
24E2   E6;1F       AND $1F              
24E4   5F          LD E,A               
24E5   19          ADD HL,DE            
24E6   C9          RET                  
24E7   01;7E;80    LD BC,$807E          
24EA   CD;5C;25    CALL $255C          ; []
24ED   0C          INC C                
24EE   C5          PUSH BC              
24EF   01;7D;80    LD BC,$807D          
24F2   CD;5C;25    CALL $255C          ; []
24F5   E1          POP HL               
24F6   45          LD B,L               
24F7   C9          RET                  
24F8   CD;E7;24    CALL $24E7          ; []
24FB   CD;AD;24    CALL $24AD          ; []
24FE   C9          RET                  
24FF   CD;F8;24    CALL $24F8          ; []
2502   0E;FF       LD C,$FF             
2504   CD;21;25    CALL $2521          ; []
2507   C9          RET                  
2508   CD;F8;24    CALL $24F8          ; []
250B   CD;1F;25    CALL $251F          ; []
250E   C9          RET                  
250F   CD;F8;24    CALL $24F8          ; []
2512   7E          LD A,(HL)            
2513   F5          PUSH AF              
2514   CD;1F;25    CALL $251F          ; []
2517   F1          POP AF               
2518   77          LD (HL),A            
2519   A7          AND A,A              
251A   CB;11       RL C                 
251C   CB;11       RL C                 
251E   C9          RET                  
251F   0E;00       LD C,$00             
2521   7E          LD A,(HL)            
2522   50          LD D,B               
2523   0F          RRCA                 
2524   10;FD       DJNZ $2623           
2526   CB;19       RR C                 
2528   CB;17       RL A                 
252A   42          LD B,D               
252B   05          DEC B                
252C   07          RLCA                 
252D   10;FD       DJNZ $262C           
252F   77          LD (HL),A            
2530   C9          RET                  
2531   ED;5B;10    LD DE,($10)          
2534   40          LD B,B               
2535   EB          EX DE,HL             
2536   7E          LD A,(HL)            
2537   B9          CP C                 
2538   C8          RET Z                
2539   80          ADD A,B              
253A   B9          CP C                 
253B   C8          RET Z                
253C   80          ADD A,B              
253D   FE;80       CP $80               
253F   20;05       JR NZ,$2546          
2541   CD;90;24    CALL $2490          ; []
2544   CF          RST 8                
2545   14          INC D                
2546   C5          PUSH BC              
2547   CD;F2;09    CALL $09F2          ; [NEXT-ONE]
254A   C1          POP BC               
254B   18;E8       JR $2635             
254D   23          INC HL               
254E   ED;5B;1C    LD DE,($1C)          
2551   40          LD B,B               
2552   01;05;00    LD BC,$0005          
2555   ED;B0       LDIR                 
2557   ED;53;1C    LD ($1C),DE          
255A   40          LD B,B               
255B   C9          RET                  
255C   CD;31;25    CALL $2531          ; []
255F   CD;4D;25    CALL $254D          ; []
2562   CD;A7;0E    CALL $0EA7          ; [FIND-INT]
2565   C9          RET                  
2566   79          LD A,C               
2567   A6          AND A,(HL)           
2568   EB          EX DE,HL             
2569   47          LD B,A               
256A   79          LD A,C               
256B   2F          CPL                  
256C   A6          AND A,(HL)           
256D   B0          OR A,B               
256E   77          LD (HL),A            
256F   EB          EX DE,HL             
2570   C9          RET                  
2571   C5          PUSH BC              
2572   01;21;00    LD BC,$0021          
2575   54          LD D,H               
2576   5D          LD E,L               
2577   09          ADD HL,BC            
2578   4F          LD C,A               
2579   CD;66;25    CALL $2566          ; []
257C   79          LD A,C               
257D   C1          POP BC               
257E   10;F1       DJNZ $2671           
2580   C9          RET                  
2581   F5          PUSH AF              
2582   4F          LD C,A               
2583   3E;00       LD A,$00             
2585   18;03       JR $258A             
2587   F5          PUSH AF              
2588   4F          LD C,A               
2589   7E          LD A,(HL)            
258A   F5          PUSH AF              
258B   79          LD A,C               
258C   CD;71;25    CALL $2571          ; []
258F   F1          POP AF               
2590   4F          LD C,A               
2591   C1          POP BC               
2592   48          LD C,B               
2593   A1          AND A,C              
2594   CD;69;25    CALL $2569          ; []
2597   C9          RET                  
2598   01;73;80    LD BC,$8073          
259B   CD;5C;25    CALL $255C          ; []
259E   0C          INC C                
259F   C5          PUSH BC              
25A0   01;7C;80    LD BC,$807C          
25A3   CD;5C;25    CALL $255C          ; []
25A6   E1          POP HL               
25A7   45          LD B,L               
25A8   C5          PUSH BC              
25A9   CD;AD;24    CALL $24AD          ; []
25AC   AF          XOR A,A              
25AD   37          SCF                  
25AE   17          RLA                  
25AF   10;FC       DJNZ $26AD           
25B1   C1          POP BC               
25B2   D1          POP DE               
25B3   F5          PUSH AF              
25B4   D5          PUSH DE              
25B5   E5          PUSH HL              
25B6   C5          PUSH BC              
25B7   01;78;80    LD BC,$8078          
25BA   CD;5C;25    CALL $255C          ; []
25BD   0C          INC C                
25BE   C5          PUSH BC              
25BF   01;6A;80    LD BC,$806A          
25C2   CD;5C;25    CALL $255C          ; []
25C5   E1          POP HL               
25C6   45          LD B,L               
25C7   E1          POP HL               
25C8   7C          LD A,H               
25C9   A7          AND A,A              
25CA   90          SUB A,B              
25CB   F5          PUSH AF              
25CC   CD;AD;24    CALL $24AD          ; []
25CF   AF          XOR A,A              
25D0   18;02       JR $25D4             
25D2   37          SCF                  
25D3   17          RLA                  
25D4   10;FC       DJNZ $26D2           
25D6   2F          CPL                  
25D7   C1          POP BC               
25D8   D1          POP DE               
25D9   A7          AND A,A              
25DA   C9          RET                  
25DB   D5          PUSH DE              
25DC   C5          PUSH BC              
25DD   F5          PUSH AF              
25DE   11;21;00    LD DE,$0021          
25E1   ED;52       SBC HL,DE            
25E3   10;F9       DJNZ $26DE           
25E5   F1          POP AF               
25E6   C1          POP BC               
25E7   D1          POP DE               
25E8   C9          RET                  
25E9   C5          PUSH BC              
25EA   F5          PUSH AF              
25EB   EB          EX DE,HL             
25EC   D5          PUSH DE              
25ED   11;21;00    LD DE,$0021          
25F0   19          ADD HL,DE            
25F1   10;FA       DJNZ $26ED           
25F3   EB          EX DE,HL             
25F4   E1          POP HL               
25F5   F1          POP AF               
25F6   C1          POP BC               
25F7   C9          RET                  
25F8   D5          PUSH DE              
25F9   E5          PUSH HL              
25FA   A7          AND A,A              
25FB   ED;52       SBC HL,DE            
25FD   E1          POP HL               
25FE   D1          POP DE               
25FF   C9          RET                  
2600   CD;98;25    CALL $2598          ; []
2603   CD;DB;25    CALL $25DB          ; []
2606   CD;F8;25    CALL $25F8          ; []
2609   28;0E       JR Z,$2619           
260B   E5          PUSH HL              
260C   C5          PUSH BC              
260D   D5          PUSH DE              
260E   CD;81;25    CALL $2581          ; []
2611   3E;FF       LD A,$FF             
2613   D1          POP DE               
2614   C1          POP BC               
2615   E1          POP HL               
2616   2B          DEC HL               
2617   18;ED       JR $2706             
2619   D1          POP DE               
261A   A2          AND A,D              
261B   CD;81;25    CALL $2581          ; []
261E   C9          RET                  
261F   CD;98;25    CALL $2598          ; []
2622   CD;DB;25    CALL $25DB          ; []
2625   CD;F8;25    CALL $25F8          ; []
2628   28;0E       JR Z,$2638           
262A   E5          PUSH HL              
262B   C5          PUSH BC              
262C   D5          PUSH DE              
262D   CD;87;25    CALL $2587          ; []
2630   3E;FF       LD A,$FF             
2632   D1          POP DE               
2633   C1          POP BC               
2634   E1          POP HL               
2635   2B          DEC HL               
2636   18;ED       JR $2725             
2638   D1          POP DE               
2639   A2          AND A,D              
263A   CD;87;25    CALL $2587          ; []
263D   C9          RET                  
263E   C5          PUSH BC              
263F   01;21;00    LD BC,$0021          
2642   54          LD D,H               
2643   5D          LD E,L               
2644   A7          AND A,A              
2645   ED;42       SBC HL,BC            
2647   4F          LD C,A               
2648   CD;66;25    CALL $2566          ; []
264B   79          LD A,C               
264C   C1          POP BC               
264D   10;EF       DJNZ $273E           
264F   C9          RET                  
2650   F5          PUSH AF              
2651   4F          LD C,A               
2652   3E;00       LD A,$00             
2654   18;03       JR $2659             
2656   F5          PUSH AF              
2657   4F          LD C,A               
2658   7E          LD A,(HL)            
2659   F5          PUSH AF              
265A   79          LD A,C               
265B   CD;3E;26    CALL $263E          ; []
265E   F1          POP AF               
265F   C1          POP BC               
2660   48          LD C,B               
2661   CD;69;25    CALL $2569          ; []
2664   C9          RET                  
2665   CD;98;25    CALL $2598          ; []
2668   CD;E9;25    CALL $25E9          ; []
266B   CD;F8;25    CALL $25F8          ; []
266E   28;0E       JR Z,$267E           
2670   E5          PUSH HL              
2671   C5          PUSH BC              
2672   D5          PUSH DE              
2673   CD;50;26    CALL $2650          ; []
2676   3E;FF       LD A,$FF             
2678   D1          POP DE               
2679   C1          POP BC               
267A   E1          POP HL               
267B   2B          DEC HL               
267C   18;ED       JR $276B             
267E   D1          POP DE               
267F   A2          AND A,D              
2680   CD;50;26    CALL $2650          ; []
2683   C9          RET                  
2684   CD;98;25    CALL $2598          ; []
2687   CD;E9;25    CALL $25E9          ; []
268A   CD;F8;25    CALL $25F8          ; []
268D   28;0E       JR Z,$269D           
268F   E5          PUSH HL              
2690   C5          PUSH BC              
2691   D5          PUSH DE              
2692   CD;56;26    CALL $2656          ; []
2695   3E;FF       LD A,$FF             
2697   D1          POP DE               
2698   C1          POP BC               
2699   E1          POP HL               
269A   2B          DEC HL               
269B   18;ED       JR $278A             
269D   D1          POP DE               
269E   A2          AND A,D              
269F   CD;56;26    CALL $2656          ; []
26A2   C9          RET 
26A3   05                         
26A4   38;39;26;37;39            ; "START"
26A9   04;20;06              
26AC   2D;37;2C;2E;33;3B         ; "HRGINV"
26B2   25;20;04                 
26B5   35;26;2C;2A               ; "PAGE"   
26B9   07;20;03                       
26BC   2D;37;2C                  ; "HRG"
26BF   0A;20;05          
26C2   27;26;38;2E;28            ; "BASIC"
26C7   0D;20;05          
26CA   28;31;2A;26;37            ; "CLEAR"
26CF   10;20;06                   
26D2   31;34;28;26;39;2A         ; "LOCATE"
26D8   13;20;04                         
26DB   35;31;34;39               ; "PLOT"
26DF   16;20;06           
26E2   3A;33;35;31;34;39         ; "UNPLOT"
26E8   19;20;04                
26EB   39;2A;38;39               ; "TEST"
26EF   1C;20;02            
26F2   38;3A                     ; "SU"
26F4   1F;20;06             
26F7   38;39;26;37;28;2D         ; "STARCH"
26FD   22;20;02         
2700   37;3A                     ; "RU"
2702   28;20;02           
2705   37;29                     ; "RD"
2707   2E;20;02               
270A   38;29                     ; "SD"
270C   2B;20;06              
270F   38;30;2A;39;28;2D         ; "SKETCH"
2715   34;20;08          
2718   3A;33;38;30;2A;39;28;2D   ; "UNSKETCH"
2720   37;20;09         
2723   2E;33;3B;38;30;2A;39;282D ; "INVSKETCH"
272C   3A;20;05             
272F   38;2E;33;28;2D            ; "SINCH"
2734   3D;20;02                
2737   38;31                     ; "SL"
2739   40;20;06               
273C   31;26;3A;33;28;2D         ; "LAUNCH"
2742   43;20;06 
2745   35;37;2E;33;39:1D         ; "PRINT1"
274B   46;20;05 
274E   35;37;2E;33;39;           ; "PRINT"
2753   31;20;05             
2756   27;31;2E;33;2A            ; "BLINE"
275B   49;20;05          
275E   3C;31;2E;33;2A            ; "WLINE"
2764   4C;20;08             
2766   3A;33;38;39;37;2E;33;2C   ; "UNSTRING"
276E   4F;20;06           
2771   38;39;37;2E;33;2C;        ; "STRING"
2777   52;20;02                 
277A   38;37                     ; "SR"
277C   55;20;04                 
277F   31;2E;33;2A               ; "LINE"
2783   58;20;06        
2786   3A;33;31;2E;33;2A         ; "UNLINE"
278C   5B;20;00
278F   00          NOP

TEST-Z$:                  
2790   01;5F;00    LD BC,$005F          
2793   CD;31;25    CALL $2531          ; []
2796   23          INC HL               
2797   23          INC HL               
2798   23          INC HL               
2799   E5          PUSH HL              
279A   11;A3;26    LD DE,$26A3          
279D   E1          POP HL               
279E   E5          PUSH HL              
279F   1A          LD A,(DE)            
27A0   13          INC DE               
27A1   A7          AND A,A              
27A2   20;06       JR NZ,$27AA          
27A4   CD;90;24    CALL $2490          ; []
27A7   E1          POP HL               
27A8   CF          RST 8                
27A9   15          DEC D                
27AA   06;00       LD B,$00             
27AC   4F          LD C,A               
27AD   1A          LD A,(DE)            
27AE   13          INC DE               
27AF   ED;A1       CPI                  
27B1   20;07       JR NZ,$27BA          
27B3   3E;FF       LD A,$FF             
27B5   A1          AND A,C              
27B6   28;09       JR Z,$27C1           
27B8   18;F3       JR $28AD             
27BA   EB          EX DE,HL             
27BB   09          ADD HL,BC            
27BC   23          INC HL               
27BD   23          INC HL               
27BE   EB          EX DE,HL             
27BF   18;DC       JR $289D             
27C1   EB          EX DE,HL             
27C2   C1          POP BC               
27C3   4E          LD C,(HL)            
27C4   23          INC HL               
27C5   46          LD B,(HL)            
27C6   60          LD H,B               
27C7   69          LD L,C               
27C8   C9          RET                  
27C9   6E          LD L,(HL)            
27CA   1D          DEC E                
27CB   46          LD B,(HL)            
27CC   20;05       JR NZ,$27D3          
27CE   35          DEC (HL)             
27CF   37          SCF                  
27D0   2E;33       LD L,$33             
27D2   39          ADD HL,SP            
27D3   31;20;05    LD SP,$0520          
27D6   27          DAA                  
27D7   31;2E;33    LD SP,$332E          
27DA   2A;49;20    LD HL,($2049)        
27DD   05          DEC B                
27DE   3C          INC A                
27DF   31;2E;33    LD SP,$332E          
27E2   2A;4C;20    LD HL,($204C)        
27E5   08          EX AF,AF'            
27E6   3A;33;38    LD A,($3833)         
27E9   39          ADD HL,SP            
27EA   37          SCF                  
27EB   2E;33       LD L,$33             
27ED   2C          INC L                
27EE   4F          LD C,A               
27EF   20;06       JR NZ,$27F7          
27F1   38;39       JR C,$282C           
27F3   37          SCF                  
27F4   2E;33       LD L,$33             
27F6   2C          INC L                
27F7   52          LD D,D               
27F8   20;02       JR NZ,$27FC          
27FA   38;37       JR C,$2833           
27FC   55          LD D,L               
27FD   20;04       JR NZ,$2803          
27FF   31;00;00    LD SP,$0000          
