1250 | IF HID$(I$,2,1)="p" |
| THEN | QUA=2 | ELSE |
| QUA=0 |
|
| ||||||||
1260 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
1270 | I$=INPUT$(P,#l) |
|
|
|
|
|
|
|
|
|
|
|
|
| |||
1280 | IF RIGHT$(I$,l)="T" |
| THEN | SCR=O | :GOTO | 1300 |
|
| |||||||||
1290 | I$=INPUT$(l,#l) |
|
|
|
|
|
|
|
|
|
| ||||||
1300 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
1310 ;$=INPUT$(S,#l) |
|
|
|
|
|
|
|
|
|
|
|
|
| ||||
1320 | IF LEFT$(I$,l)=E$ | THEN IBM=0 ELSE |
|
|
| ||||||||||||
1330 |
| ||||||||||||||||
1340 I$=INPUT$(3,#i) |
|
|
|
|
|
|
|
|
|
|
|
|
| ||||
1350 | IF I$=E$+"$l" |
| THEN | 1440 |
|
|
|
|
|
|
|
| |||||
1360 | I$=INPUT$(l,#l) |
| :J$=INPUTQ(l,#l) |
|
|
|
|
|
| ||||||||
1370 | CC=ASC(I$) :IF CC>126 | THEN 1440 |
|
|
|
|
| ||||||||||
1380 | AQ(CC)=INPUT$(3,#1) | :A(CC)=ASC(MID$(A$(CC),2,1)) |
|
| |||||||||||||
1390 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
1400 | IF NOT | SCR THEN | 1420 |
|
|
|
|
|
|
|
|
|
| ||||
1410 | P$(CC)=INPUT$(A(CC)'2,#1) |
| :GOTO | 1430 |
|
|
|
|
| ||||||||
1420 | P$(CC)=INPUT$(A(CC)'3,#1) |
|
|
|
|
|
|
|
|
| |||||||
1430 | IF NOT EOF(1) THEN 1330 |
|
|
|
|
|
|
|
|
| |||||||
1440 | CLOSE #l |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
1450 | I====== | START | DEFINITION | ================I======================= |
| ||||||||||||
1460 |
| ||||||||||||||||
1470 | #______ | Select |
| Std./IBM |
| ||||||||||||
1480 | LOCATE 6.1 :PRINT "SELECT MODE" |
|
|
|
|
|
| ||||||||||
1490 | SO$="Standard |
| mode | (DIP SW. |
|
|
|
| |||||||||
1500 | Sl$="IBM | mode |
|
| (DIP SW. |
|
|
|
| ||||||||
1510 | S=O :PX=7 :PY=l :GOSUB 2820 :IBM=S |
|
|
|
|
| |||||||||||
1520 | IF IBM THEN HD$=F$+":" +STRING$(3,0) | ELSE | HD$=E$+":"+STRING$(3,0) |
| |||||||||||||
1530 | mode |
| |||||||||||||||
1540 | LOCATE 9,l :PRINT "SELECT STYLE" |
|
|
|
|
| |||||||||||
1550 | SO$="Normal |
|
|
| (24dot)" | :Sl$="Super/subscript | (lbdot)" |
| |||||||||
1560 | S=O :PX=lO :PY=l :GOSUB 2820 :SCR=S |
|
|
|
|
| |||||||||||
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 | 1______ | Select |
| Quality |
|
|
| ||||||||||
1610 | LOCATE | 12,l | "SELECT | QUALITY" | :S=O |
|
|
| |||||||||
1620 | LOCATE | 13,l | " |
| Letter |
| quality" |
|
|
| |||||||
1630 | LOCATE | 14,l | * |
| Draft | quality" |
|
|
| ||||||||
1640 | LOCATE | 15,l | v |
| Proportional" |
|
|
|
|
| |||||||
1650 | LOCATE 13+S,l :PRINT "==>" :S$=INPUT$(l) | :QUA=ASC(S$) |
| ||||||||||||||
1660 | IF QUA=13 | THEN |
| QUA=S |
| :GOTO | 1680 | ELSE |
| LOCATE 13+S,l | :PRINT w | I' | |||||
1670 | S=((S+l) | MOD | 3) | :GOTO | 1650 |
|
|
|
|
|
|
|
| ||||
16.30IF QUA=0 THEN HD$=E$+"xl"+HD$ :W=36 :A=23 ELSE 1700
1630 IF NOT SCR THEN 1740 ELSE 1860
1700 IF QUA=2 THEN 1720 ELSE HD$=E$+"xO"+HD$ :W=12
1710 IF SCR THEN A=7 :GOTO 1860 ELSE A=9 :GOTO 1860 1720 HD$=E$+"pl"+HDQ :W=42
1730 IF SCR THEN
1740 | select character | pitcb | |||||
1750 | |||||||
|
|
|
|
| |||
1760 | LOCATE | 12,l | "Print pitch | ||||
1770 | LOCATE | 13,,1 :PRINT | * | 'I | |||
1780 | LOCATE | 14,l | " | 11 | |||
1790 | LOCATE | 15,l | 11 | II | |||
1800 | LOCATE | 13+S,l | :PRINT "==>" :S$=INPUT$(l) | :PT=ASC(S$) |
| |||||
1810 | IF PT=13 | THEN | PT=S | :GOTO 1830 | ELSE LOCATE | 13+S,l :PRINT ' | ' | |||
1820 | S=((S+l) | MOD | 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 |
|
|
|
|
|
|
|
|
|
|
1860 | CC=33 | :CH$="!" |
|
|
|
|
|
| ||
~ 1870 | Select | cont~nue,Start | over |
| ||||||
1880 | LOCATE | 16,l :PRINT | "CONTINUE?" |
|
|
| ||||
