Advertisement
• •
•
•
•
•
• •
• •
• •
•
•
•
•
•
•
• •
•
•
•
TRS·80
350 IF J=4 THEN LPRINT E$j"A"jCHRSI8l;LF$jC"$;"
PlPHASIZED";
360 lPRINT PSt
370 IF
J=2
THEN LPRINT LFS;
375 NEXT
J
380 FOR "=1 TO 3:LPRINT :NEXT M
390 NEXT I
400 END
I
Figure F-1 is the font styles program (refer to Figure
5-1)
amended for the
TRS-80.
5 CLEAR 200('
7 C$=CHR$(179l
10 CLS:DIK
ASllb~62!
20 CLS:X=O:Y=O
30 60SUB 150:PRINT @X*64+Y,C$j
40 B$=INKEYS:IF BS=·· THEN 40
50 IF B$=CHR$(b4) THEN CLS:END
bO IF BS=CHR$(31) THEN CLS:60SUB 200:60TO 20
70 IF B$=CHR$(9) THEN 60TO 210
80 IF af=CHR$(13l THEN AS(X,Y)=BS:PRINT @XSb4+Y," ":X=X+l:Y=OIPRINT @X'b4+Y,CS;:60TO 40
90 IF B$=CHR$(B) THEN 60SUB 130:60TO 40
100 PRINT @X.b4+Y,B$;:AS(X,Y'=BS:Y=Y+l:
110 IF Y=62 THEN A$IX,Y)=CHR$(13':X=X+l:Y=0:60TO 40
120 PRINT @X.b4+Y,CSj:60TO 40
130 PRINT @Xl64+Y,· ";:Y=Y-l:IF Y(O THEN Y=O:
140
A$(X~Y'=··:PRINT
@X.64+Y,C$j:RETURN
150 PRINT @IS*64+0,· (-- BACK SPCAE
--) PRINT
(CLEAR)RESTART
@
EXIT"j:RETURN
200 PRINT @7'64+20,'PLEASE STAND BY";
20S FOR 1=0 TO X:FOR J=O TO 62:A$(I,J)=":NEXT J:NEXT I
20b
RETURN
210 REr
220 LPRINT CHR$(27);R@'
230 ClS:PRINT @lSl64+2,'C)O""ANO P)RINT
R)ETURN"j
250 6$=INKEVf:IF 6$=" THEN 250
260 IF 6$="P" THEN 60SUB 310
270 IF 6$='C· THEN 60SUB 320:60TO 230
2BO IF 6$=RR" THEN GO SUB 300:60TO 30
' 2 90 60TO 250
300 CLS:FOR 1=0 TO X:FOR J=O TO 62
209
Advertisement
