2D3A | FD22B70C | 0500 | | LD (£0CB7), IY | ; END OF TEXT |
2D3E | FD22BB0C | 0510 | | LD (£0CBB), IY | ; END OF ARRAYS |
2D44 | C9 | 0520 | | RET | |
| | 0530 | ; |
| | 0540 | ; @@@@@@@@@@@@@@@@@@@@ |
| | 0550 | ; @@ STRING$(NN,CC) @@ |
| | 0560 | ; @@@@@@@@@@@@@@@@@@@@ |
| | 0570 | ; |
| | 0580 | ; CREATES A STRING OF NN CHARACTERS |
| | 0590 | ; WITH AN ASCII CODE CC |
| | 0600 | ; |
2D43 | E1 | 0610 | STRING | POP HL | |
2D44 | 23 | 0620 | | INC HL | |
2D45 | CD5022 | 0630 | | CALL IN255 | ; GET NUMBER 0-255 |
2D48 | F5 | 0640 | | PUSH AF | |
2D49 | CD4C15 | 0650 | | CALL TSTCOM | ; GET COMMA |
2D4C | CD5022 | 0660 | | CALL IN255 | ; GET CHAR. CODE |
2D4F | F5 | 0670 | | PUSH AF | ; SASVE CHARACTER |
2D50 | CD5115 | 0680 | | CALL TSTCHR | ; TEST FOR |
2D53 | 29 | 0690 | | DEFB ") | ; CLOSING BRACKET |
2D54 | F1 | 0700 | | POP AF | ; RECOVER CHAR. |
2D55 | 47 | 0710 | | LD B,A | ; PUT IN B |
2D56 | F1 | 0720 | | POP AF | ; RECOVER NUMBER |
2D57 | E5 | 0730 | | PUSH HL | ; SAVE TEXT POINTER |
2D58 | 4F | 0740 | | LD C, A | ; PUT NUMBER IN C |
2D59 | 79 | 0750 | | LD A, C | |
2D5A | C5 | 0760 | | PUSH BC | ; SAVE BC |
2D5B | CDAB1F | 0770 | | CALL ASNSTR | ; CREATE NEW STRING |
2D5E | C1 | 0780 | | POP BC | ; RECOVER BC |
2D5F | EB | 0790 | | EX DE, HL | ; SET HL TO START |
2D60 | 70 | 0800 | ST1 | LD (HL), B | ; COPY CHARACTER |
2D61 | 23 | 0810 | | INC HL | ; INCREMENT POINTER |
2D62 | 0D | 0820 | | DEC C | |
2D63 | 20FB | 0830 | | JR NZ, ST1 | ; LOOP |
2D65 | C3D91F | 0840 | | JP STREND | ; RETURN TO BASIC |
| | 0850 | ; |
| | 0860 | ; @@@@@@@@@@@@@@@@@@@@@@@@@@@ |
| | 0870 | ; @@ CONVERT TO LOWER CASE @@ |
| | 0880 | ; @@@@@@@@@@@@@@@@@@@@@@@@@@@ |
| | 0890 | ; |
2D68 | 3E4C | 0900 | LOWER | LD A, "L | ; SET FLAG TO |
2D6A | 32FE2D | 0910 | | LD (CONV), A | ; LOWER CASE |
2D6D | 180C | 0920 | | JR CONVRT | |
| | 0930 | ; |
| | 0940 | ; @@@@@@@@@@@@@@@@@@@@@@@@@@@ |
| | 0950 | ; @@ CONVERT TO UPPER CASE @@ |
| | 0960 | ; @@@@@@@@@@@@@@@@@@@@@@@@@@@ |
| | 0970 | ; |
2D6F | 3E55 | 0980 | UPPER | LD A, "U | ; SET FLAG TO |
2D71 | 32FE2D | 0990 | | LD (CONV), A | ; UPPER CASE |
2D74 | 1805 | 1000 | | JR CONVRT | |
| | 1010 | ; |
| | 1020 | ; @@@@@@@@@@@@@@@@@@@@ |
| | 1030 | ; @@ REVERSE STRING @@ |
| | 1040 | ; @@@@@@@@@@@@@@@@@@@@ |
| | 1050 | ; |
2D76 | 3E52 | 1060 | REVRSE | LD A, "R | ; SET FLAG TO |