Advertisement
fi ________________________________
G_e_m_in_i_US_e_"_S_M_a_nU __ al
311 PRINT CHRt (9);
"40NU
312 FOR! = 1
TO
X: FOR
J :
1 TO 40
313 PRINT AS(I,J);
I
NEXT
J:
NEXT I
314 PRt
0
315
VTAB
24:
HTAB
30
317 RETURN
320 VTAS 24: HTAB 1: PRINT BLS;
330
REM
340 VTAB 24: HTAB 1: INVERSE: PRINT WE) ESC";:
350 HTAB
a:
PRINT HC) CHRS·,: HTAB
16:
PRINT
"Q)
END COMMANO";
355
NORMAL
360
GET 6S
370 IF G' : "E" THEN 60SUB 420: 60TO 400
380 IF GS : ·C· THEN 60SUB 530: 60TO 400
390 IF 6. :
"Q"
THEN 60TO
410
400 60TO 360
410 RETURN
420 I = 01 VTAB 22: HTAB 4: PRINT "ESC ";
430
6ET GS
440
IF
6$
=
CHRS (13)
THEN
480
450 PRINT 6S;
455
IF
I
>
0
THEN 470
460 PRINT
I
";
470
SSII)
=
6S:1
= I
+
11 60TO 430
490 IF I
>
2 THEN FOR J
=
1 TO IIOS • OS
+
S'(J): NEXT J:ST'
=
CHRS (27
) +
SSIO)
+
CHR. ( VAL 10')):OS •••
490 IF I • 2 THEN ST. = CHR. (27) + SS(O)
+
CHR. ( VAL (SS(I)))
500 IF
I
=
1 THEN STS
=
CHR. (27)
+
5'(0)
510 PRt
1:
PRINT CHR. (9);"40N", PRINT STS,STt
=
.1,
PRt 0: FOR
J •
1
TO
I:
SS
(J)
=
01,
NEXT
J
1
I
:I
0
~20
VTAB 221 HTAB 4: PRINT BLS;: RETURN
530 VTAB 22: HTAB 2: PRINT ·CHRS ";:STS
~
.1
540 6ET GS
550 IF 6s· CHRS (13) THEN 570
560 PRINT 6'I,ST$ • ST.
+
6', 60TO 540
570 VTAS 221 HTAB 2: PRINT BLS;:
580 PRt 11 PRINT CHR$ (9);"40N"
590 PRINT CHRs ( VAL (ST'))IIST. •
.0,
PRI 0: RETURN
Figure A-2 is the word processing program (refer to Figure 5-4) amended
for the Apple 1/ computer.
156
• •
• •
• •
• •
• •
• •
• •
• •
•
I
I
• •
•
I
Advertisement
