1250 IF HID$(I$,2,l)="p" THEN QUA=2 ELSE QUA=0 1260 '
1270 I$=INPUT$(2,#1)
1280 IF RIGHT$(I$,l)="T" THEN SCR=O :GOTO 1300 1290
1300 '
1310 I$=INPUT$(5,#1)
1320 IF LEPT$(I$,l)=E$ THEN IBN=O ELSE
1330
1340 I$=INPUT$(3,#i)
1350 IF I$=E$+"%l" THEN 1440
1360 I$=INPUT$(l,#l) :J$=INPUT$(l,#l)
1370 CC=ASC(I$) :IF CC>126 THEN 1440
1380 A$(CC)=INPUT$(3,Cl) :A(CC)=ASC(NID$(A$(Cc),a,l))
1390 '
1400 IF NOT SCR THEN 1420
1410 P$(CC)=INPUT$(A(CC)'z,tl) :GOTO 1430
1420 P$(CC)=INPUT$(A(CC)"3,#1)
1430 IF NOT EOF(1) THEN 1330
1440 CLOSE #l
1450 '
1460 I====== START DEFINITION *~I===**=SE*~EIE~il******~~==~=~*=***~****
1470 | |||||||
1480 | LOCATE 6,l :PRINT "SELECT MODE" |
| |||||
1490 | SO$= "Standard | mode | (DIP | SW. |
| ||
1500 | Sl$="IBN | mode | (DIP | SW. |
| ||
1510 | S=O :PX=7 :PY=l :GOSUB 2820 :IBN=S |
| |||||
1520 | IF IBM THEN HD$=F$+" | :"+STRING$(3,0) ELSE HD$=E$+":"+STRING$(3,0) | |||||
1530 | Sal,,& | ,.hara,..ar | ,,,,,da |
| |||
1540 | LOCATE 9,l :PRINT "SELECT STYLE" |
| |||||
1550 | SO$="Normal |
| (24dot)" | :Sl$="Super/subrcript | (lbdot)" | ||
1560 |
| ||||||
1570 IF SCR THEN 1580 ELSE 1590 |
|
| |||||
1580 | HD$=CHR$(27)+"SO"+HD$ | :HI=16 :GOTO 1600 |
| ||||
1590 | HD$=CHR$(27)+"T"+HD$ | :HI=24 |
| ||||
1600 | Select | Quality |
|
| |||
1610 LOCATE 12,l :PRINT "SBLECT QUALITY" :S=O |
| ||||||
1620 | LOCATE | 13,l | w | Letter | quality" |
| |
1630 | LOCATE | 14,l | II | Draft | quality" |
| |
1640 | LOCATE | 15,l | II | Proportional" |
| ||
1650 | LOCATE | 13+S,l | :PRINT "==>" :S$=INPUT$(l) |
| :QUA=ASC(S$) |
| ||||||||||||
1660 | IF | QUA=13 | THEN |
| QUA=S | :GOTO | 16EO | ELSE | LOCATE 13+S,l :PRINT ' | w | ||||||||
1670 | S=((S+l) | NOD | 3) | :GOTO | 1650 |
|
|
|
|
|
|
|
| |||||
1680 | IF | QUA=0 | THEN | HD$=E$+"xl"+HD$ | :W=36 | :A=23 | ELSE | 1700 |
| |||||||||
1690 IF NOT SCR THEN 1740 ELSE 1860 |
|
|
|
|
|
| ||||||||||||
1700 | IF | QUA=2 | THEN | 1720 ELSE HD$=E$+"xO"+HD$ | :U=l2 |
|
| |||||||||||
1710 IF SCR THEN A=7 :GOTO 1860 ELSE A=9 :GOTO 1860 |
|
| ||||||||||||||||
1720 | HD$=E$+"pl"+HD$ |
| :W=42 |
|
|
|
|
|
|
|
|
|
| |||||
1730 IF SCR THEN A=23 :GOTO 1860 ELSE A=37 :GOTO 1660 |
|
| ||||||||||||||||
1740 | ’ |
| Sal*& |
| charact.r | pitch | ||||||||||||
1750 |
| |||||||||||||||||
1760 | LOCATE 12,l :PRINT "Print pitch |
| II :s=o |
|
| |||||||||||||
1770 | LOCATE | 13,l | ' |
| w |
|
|
|
| |||||||||
1780 | LOCATE | 14,l | v |
| ' |
|
|
|
| |||||||||
1790 | LOCATE | 15,l | e, |
| ' |
|
|
|
| |||||||||
1800 | LOCATE | 13+S,l | "==)" | :S$=INPUTQ(l) |
| :PT=ASC(S$) |
| |||||||||||
1810 | IF | PT=13 | THEN | PT=S | :GOTO | 1830 | ELSE LOCATE | 13+S,l :PRINT w | II | |||||||||
lS20 | S=((S+l) | NOD | 3) | :GOTO | 1800 |
|
|
|
|
|
|
|
| |||||
1830 | HD$=E$+"xl"+HD$ |
| :W=36 | :A=29 |
|
|
|
|
|
|
|
| ||||||
1840 | IF | PT=l | THEN | W=30 | :A=23 | ELSE |
| IF | PT=2 | THEN | W=24 | :A=15 |
| |||||
1850 | ' |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
1660 | CC=33 :CH$="!* | continu*,start |
|
|
| Ovar |
|
| ||||||||||
1670 |
| Sal*& |
|
|
|
|
|
| ||||||||||
1880 LOCATE 16,l :PRINT "CONTINUB?"
93
