1 PRINT
2 PRINT
3 PRINT
4 PRINT
5 PRINT
6 PRINT
7 PRINT
8 PRINT
9 PRINT
10 PRINT
11 PRINT
12 PRINT
13 PRINT
14 PRINT
15 PRINT
20 PRINT" TYPE STYLES AVAILABLE:"
21 PRINT
22 PRINT
23 PRINT
30 PRINT"	TYPE		CPI		STYLE #"
31 PRINT
32 PRINT
40 PRINT"	PICA		10		1"
50 PRINT"	ELITE		12		2"
60 PRINT"	CONDENSED	17.1		3"
61 PRINT
70 PRINT"	DOUBLE:"
80 PRINT"	  PICA		 5		4"
90 PRINT"	  ELITE		 6		5"
100 PRINT"	  CONDENSED	 8.6		6"
101 PRINT
102 PRINT
110 INPUT"     SELECT TYPE STYLE:";A
111 PRINT
112 PRINT
113 PRINT
120 IF A=1 OR A=2 OR A=4 OR A=5 THEN GOTO 520
130 IF A=3 THEN LPRINT CHR$(29);"CONDENSED MODE AT 17.1 CPI"
140 IF A=6 THEN LPRINT CHR$(29);CHR$(31);"DOUBLE CONDENSED MODE AT 8.6 CPI"
150 GOTO 590
520 IF A=1 THEN LPRINT CHR$(30);"PICA MODE AT 10 CPI"
530 IF A=2 THEN LPRINT CHR$(28);"ELITE MODE AT 12 CPI"
540 IF A=4 THEN LPRINT CHR$(30);CHR$(31);"DOUBLE PICA MODE AT 5 CPI"
550 IF A=5 THEN LPRINT CHR$(28);CHR$(31);"DOUBLE ELITE MODE AT 6 CPI"
560 INPUT" ACTIVATE CORRESPONDENCE MODE: YES = 1, NO = 2";B
561 PRINT
580 IF B=1 THEN LPRINT CHR$(27);CHR$(49);"CORRESPONDENCE MODE IS ACTIVE"
581 IF B=1 THEN GOTO 8999
590 INPUT" ACTIVATE BOLD MODE: YES = 1, NO = 2";C
600 IF C=1 THEN LPRINT CHR$(27);CHR$(84);CHR$(27);CHR$(72);"BOLD MODE IS ACTIVE"
610 GOTO 8999
8999 PRINT
9000 INPUT" EXIT TO SYSTEM: YES = 1, NO = 2";D
9010 IF D=1 GOTO 9500
9020 IF D=2 GOTO 1
9500 SYSTEM
GOTO 8999
8999 PRINT
9000 INPUT" EXIT TO SYSTEM: YES = 1, NO = 2";D
9010 IF D=1 GOTO 9500
9020 IF