Advertisement
• •
• •
• •
•
I.
I
• •
• •
• •
• •
• •
• •
• •
Osborne
370 NEXT
J
380 FOR "=1 TO 5:lPRIHT LF$:NEIT "
390 NEXT I
400
END
Figure E-1 is the font styles program (refer to Figure
5-1)
amended for the
Osborne computer.
5
C~R$=CHR$(261
10 PRINT
CLRS:DI~
A'(22,52):X=1:Y=1
15 S$=CHR'(27)+CHP'{blJ
17 DEF FNLS(X,YI=SS+CHRS(X+321+CHRS(Y+32)
20 PRINT CLRS:X=l:Y=1
30 60SUB 150:PRINT FNL$(X,Yl;:
40 BS=INKEYS:IF BS='· THEN 40
50 IF B'=CHRS(S) THEN PRINT CLRS:END
60
IF 8.=CHR.(IB) THEN PRINT CLR$:60SUB
200:6010
20
70
IF 8$=CHR$(16) THEN 60TO
210
80
IF S.=CHR$(131 THEN GOSUB
700:60TO
40
90 IF BS=CHRS(4) THEN 60SUB 130;50TO 40
100 PRINT FNL'(X,Ylj:PRINT B.;:A'(X,YI=BS:Y=Y+!
110 IF Y=50 THEN AS(X,Y)=CHR'(13):PRIHT CHR'(71;:X=X+l:Y=1:60TO 40
120 PRINT FNL$(X,Y)j:PRINT u';:60TO 40
130
PRINT
FNLSIX,Y);:PRINT • ";:Y=Y-l:IF Y=O THEN
Y=l:PRINT
CHR$(7Ij
135
AUX,
y)='.
140 PRINT FNL'(X,Y)j:PRINT ";:RETURN
150 PRINT FNl$(22,2);
160
PRINT
·~P)RINTER
ADIELETE ARlESTART AElXIT"j
190
RETURN
200
PRINT FNL$(10,20)j"PlEASE STAND BY";
205
FOR 1=1 TO X:FOR J=1 TO
50:A$(I,J):··:
206
NEXT J:NEXT I:RETURN
210
REI' !
220
lPRINT CHR'(27);'@"
230 PRINT CLR, :PRINT FNLS(23,2);
235 PRINT 'C)O""AND";:PRINT FNL$(23,11)j
240 PRINT "PIRINT";FNLS(23,181;"R)ETURN";
250 G$=INKEY$:IF 6'=" THEN 250
260 IF 6$="P" THEN 60SUB 310
197
Advertisement
