68 lines
1.3 KiB
Plaintext
68 lines
1.3 KiB
Plaintext
'BEGIN' 'INTEGER' IN,OUT,C;
|
||
|
||
|
||
'COMMENT' THIS PROGRAM CONVERTS FROM
|
||
THE UPPER/LOWER CASE CONVENTION TO
|
||
THE UPPER CASE IN QUOTES CONVENTION;
|
||
|
||
'PROCEDURE' SETO(A);
|
||
'VALUE' A; 'INTEGER' A; IOC(31);
|
||
|
||
'INTEGER' 'PROCEDURE' SWLIST;
|
||
IOC(39);
|
||
|
||
'PROCEDURE' GETC;
|
||
'BEGIN' C:=CHIN(IN);
|
||
'IF' C<0 'OR' C=&^Z 'THEN' 'GOTO' FIN
|
||
'END' ;
|
||
|
||
|
||
'PROCEDURE' UOUT;
|
||
'IF' C>=97 'AND' C<=122 'THEN' CHOUT(OUT,C-32)
|
||
'ELSE' CHOUT(OUT,C);
|
||
|
||
|
||
SETO(SWLIST+13);
|
||
TEXT(10,"ALG"); {DEFAULT EXTENSION}
|
||
A1: IOC(2); IN:=INPUT;
|
||
'IF' IN<1 'THEN' 'GOTO' A1;
|
||
OUT:=OUTPUT;
|
||
'IF' OUT<1 'THEN'
|
||
'BEGIN' CLOSE(IN); 'GOTO' A1;
|
||
'END' ;
|
||
|
||
LOOP: GETC;
|
||
'IF' C=&" 'THEN'
|
||
'BEGIN' UOUT;
|
||
A2: GETC; UOUT;
|
||
'IF' C=&** 'THEN'
|
||
'BEGIN' GETC; UOUT;
|
||
'END' 'ELSE'
|
||
'IF' C=&" 'THEN' 'GOTO' LOOP;
|
||
'GOTO' A2;
|
||
'END' 'ELSE'
|
||
'IF' C=&*C 'THEN'
|
||
'BEGIN' UOUT; 'GOTO' LOOP 'END' 'ELSE'
|
||
'IF' C=&& 'THEN'
|
||
'BEGIN' UOUT; GETC; UOUT;
|
||
'IF' C=&** 'OR' C=&*^ 'THEN'
|
||
'BEGIN' GETC; UOUT
|
||
'END' ;
|
||
'GOTO' LOOP;
|
||
'END' 'ELSE'
|
||
'IF' C>=&A 'AND' C<=&Z 'THEN'
|
||
'BEGIN' CHOUT(OUT,&'); UOUT;
|
||
A3: GETC;
|
||
'IF' C>=&A 'AND' C<=&Z 'THEN'
|
||
'BEGIN' UOUT; 'GOTO' A3
|
||
'END' ;
|
||
CHOUT(OUT,&'); UOUT;
|
||
'GOTO' LOOP;
|
||
'END' 'ELSE' UOUT;
|
||
'GOTO' LOOP;
|
||
|
||
FIN: CHOUT(OUT,&^Z); CLOSE(OUT);
|
||
CLOSE(IN); 'GOTO' A1
|
||
'END'
|
||
'FINISH'
|
||
|
||
|