Star Micronics 10X User Manual page 178

Gemini User's Manual
1 _ _ _ _ _ _ _ _
620 OPEN 14,8,0,'P'
630 PRINT 14,CHR$(L)
640 CLOSE
14
650 RETURN
100 RE"
710 PRINT ' E NTER YOUR ESC CODE";
120 INPUT ES
725 J=1
130 FOR 1=1 TO LEN(ES)
132 X=ASCIE$(I»:lF X=32 THEN 740
135 S(J)=X:J=J+I
740 NEXT 1
750 OPEN 14,8,0,·P·
751 IF J=2 THEN 760
752 AS=2
155 K=VALIE$IAS,J-I)
760 PRINT 14;CHR$(27)jCHRt(S(1»;
770 PRINT 14jCHR$(Kl
780 CLOSE 14
790 RETURN
800 RE"
803 IF N=1 THEN 870
805 OPEN 14,8,O,·P·
810 FOR 1=1 TO N-l
820 FOR J=1 TO
ell)
930 PRINT t4;CHR$IB(I,J»;
840 NEXT
J
850 PRINT
14
860
NEXT I
965 CLOSE
t4
870 RETURN
1000 RE"
1010 FOR J=I TO LEN(AS)
1020 B(N,J)=ASC(A$(J)
1030 NEXT
J
1040 C(NI=LEN(A$)
1045 N=N+l
1050 RETURN
2000 RE"
2010 PRINT ' Y OU CAN TYPE UP TO 22 STRINGS AND •
2020 PRINT "EACH STRING CAN BE 80 CHARACTERS·
2030 PRINT ' L ONG. TYPE 'CO"' TO 60TO CO""AND'
170
• •
• •
• •
• •
• •
• •
• •
• •
• •
•
• •
• •