98 | Delta User’s Manual |
790FOR I=20 TO 23:LOCATE 1,S:PRINT STRING$(55,32);:NEXT
800IF SH=l THEN SH=16 ELSE SH=0
810Nl=AS:N2=PR+SH
820FOR I=1 TO ll:MM$=MM$+CHR$(MM(I)):NEXT
830LPRINT
CHR$(27);"*";CHR$(l);CHR$(Nl);CHR$(N2);MM$
840IF AN$="N" THEN LPRINT CHR$(27);"$";CHR$(l) :GOTO 860
850LPRINT CHR$(27);"X";CHR$(l)
860FOR I=1 TO 20:LPRINTCHR$(Nl);"";:NEXT 1:LPRINT
870LPRINT CHR$(14);:FORI=1 TO l@:LPRINTCHR$(Nl);" _ ";:NEXT 1:LPRINT CHR$(20)
880 LPRINT
890 IF AN$="N" THEN LPRINT CHR$(27);"$";CHR$(@):GOTO
910
900 LPRINT CHR$(27);"X";CHR$(g)
910LPRINT CHR$(~~);"@":MM$="":RETURN:REM **** END OF PRINT MODE ****
92j2iIF z(G,H)=~ THEN LOCATE x+4,Y+l@:pRINT" '1;
930 IF Z(G,H)=l THEN LOCATE X+L,Y+l@:COLOR7,g:PRINT SC$;
940 RETURN
950IF Z(G,H)=l THEN COLOR 31,l: LOCATE X+4,Y+la:PRINTCS$;: COLOR 7,0
960 IF Z(G,H)=e,THEN COLOR 7,0: LOCATE |
|
|
|
| |||||||
| X+4,Y+lg:PRINT CS$;: | COLOR 7,0 |
|
|
|
| - | ||||
970 RETURN |
|
|
|
|
|
|
|
| |||
|
|
|
|
|
|
|
|
| |||
|
|
|
|
|
|
|
|
|
|
| |
Summary |
|
|
|
|
|
|
|
|
|
| |
Control | code | Function |
|
|
|
|
|
|
|
| |
(ESC) | “*” | CHR$(l) nl | n2 ml . . . ml1 |
|
|
|
|
|
| ||
|
|
| Defines | download | character | into | RAM | ||||
(ESC) | I‘*” | CHR$(O) | Copies | fonts in | ROM | into | download | ||||
|
|
| RAM |
|
|
|
|
|
|
|
|
(ESC) | “X” | CHR$(l) | Selects | the | download | character | set | and | |||
|
|
| uses proportional | spacing |
|
|
| ||||
(ESC) | “X” | CHR$(O) | Cancels | proportional | download | charac- | |||||
|
|
| ter set |
|
|
|
|
|
|
|
|
(ESC) | “$” CHR$(l) | Selects | the | download | character | set | and | ||||
|
|
| uses normal | spacing |
|
|
|
|
| ||
(ESC) | “$” CHR$(O) | Cancels | normal | download | character | set | |||||