Advertisement
302 PRINT @It64+J.AS(I,J)::NEXT J:NEXT I:RETURN
310 FOR 1=0 TO X:FOR J=O TO 62:LPRINT AS(I,J);
312 NEXT J:NEXT I:RETURN
320 PRINT @15'64+2.STRIN6S(50,· oJ;
330 PRINT @15l64+2,· EJ ESC
C) CHRS
0)
END COMMAND
hi
340 STS=··
360 6$=INKEY$:IF 6,='0 THEN 360
370 IF 6$="E" THEN 60sue 420:60TO 400
3BO IF 6$:"C' THEN 60sue 530:60TO 400
390 IF G$="C" THEN GOTO 410
400 60TO 360
410
RETURN
420 I=O:PRINT @13'64+3,uEsc ';
430 G$=INKEY':IF 6'=·' THEN 430
440 IF 6S=CHR'(13) THEN 490
450
PRINT 6$;"
Hi
470
S'(I)=6$:1=1+1:60TO
430
Gemini User's Manual
4BO IF 1)2 THEN FOR J=1 TO I:D$=D$+S'!J):NEXT J:ST$=CHR'(27)+S'(OJ+CHP$(VAL!D')) :0$=":
490 IF 1=2 THEN 5TS=CHR'(27)+S'(0)+CHRS(VAL(S$(I))):
500 IF 1=1 THEN STS=CHR$(27)+S$(O)
510 LPRINT ST,:ST$=":FOR J=1 TO I:S$(J)=u':NEXT J:I=O
520 PRINT @13'64+2,STRING$(20,· ");:RETURN
530 PRINT @13l64+3,· CHR$ ';:ST'=o.
540 6S=INKEY':IF 6,="0 THEN 540
550 IF 6'=CHR$(13) THEN 570
560 PRINT 6$;:5T'=5T'+6$:60TO 540
570 PRINT @13t64+2,STRIN6S(20,'
')i
SBO LPR1NT CHR$(VALISTS));:ST$=·o:RETURN
Figure F-2 is the word processing program (refer to Figure 5-4) amended
for the TRS-80.
10 LPRINT TAB(30);"HIGH RESOLUTION VERTICAL SPACINE •
15 LPRIHT TAB(30);"USING THE ESC
3
N CONTROL CODE
I
20 FOR
I
=
I
TO
30
25 IF 1=12 THEN 110
30
IF
I : 13
THEN 60TO
I~O
40 "
= INT(144/(6'1»: IF " ( 2 THEN" = 2
50 lPRINT CHR$(27);CHR${Sl);CHR$(Il;
60 FOR
J :
0 TO "
210
• •
•
•
• •
• •
•
• •
• •
• •
•
• •
•
•
•
• •
Advertisement
