Advertisement
• •
• •
• •
• •
• •
• •
• •
• •
• •
• •
• •
I
Apple" Plus
5 BlS
= •
7 LIS: "---------------------------------------"
10 HOME: DIM A$(22,40)
20
HOME:X
=
l:Y :
!
30
GOSUB
150: VTAB X:
HTAB V: PRINT
no;
40
GET BS
50 IF BS: CHRS (5) THEN HOME: END
60 IF 8S
=
CHRS (IS) THEN HOME: 60SU8 200: GO TO 20
70 IF BS = CHRS (16) THEN GoTO 210
80 IF 8S
=
CHRS (13) THEN A$(X,Y) = BS: VTAB X: MTAB V: PRINT
.o:X :
X
+
I:V = 1: VTAB X: HTAB V: PRINT
.0;:
GOTO 40
90 IF as = CHRS (4) THEN 60SUB 130: GOTO
40
100 VTAB X: HTAB V: PRINT Bt;:ASIX,Y) = BS:V
=
Y
+
1
110 IF Y
=
40 THEN ASIX,Y)
=
CHRS (13): PRINT CHRS (7);:1
=
X
+
I:Y:
!
I
GOTo 40
120 UTAB
Xl
HTAB V: PRINT
.0;:
GoTO 40
130 VTAB X: HTAS V: PRINT •
IllY:
Y - 1: IF Y : 0 THEN Y
=
1: PRINT CHR$
m;
135 As(X,YI: '"
140 VTA8 XI HTAB VI PRINT "',: RETURN
150 VTAB 24: HTA8 1: INVERSE: PRINT" APIRINT";
160 VTAB 24: HTAB 10: PRINT "ADIElETE";
170 VTA8 24: HTAB 19: PRINT HARIESTART";
180 VTAB 24: HTAB 29: PRINT
·"ElXIT ";
185 NORMAL
187 VTAB
221
HTAB I: PRINT LIS;
190 RETURN
200 VTAB
101
HTAS 10: PRINT ' P LEASE STAND BV";: FOR I = 1 TO X: FOR J = 1
TO
~OIAS(!,Jl
=
I.:
NEXT
J:
NEXT
II
RETURN
210 REM
220
PRill
PRINT CHRt 1271;"0", PRIO
230 HOME
I
VTAB 24: HTAB
11
INVERSE: PRINT ·C)OMMAND"' I HTA8 10: PRINT
N
PIRINP;
240 HTAB 17: PRINT "R)ETURN";: NORMAL
250 6ET GS
260 IF 6S = ·P· THEN GOSUB 310
270 IF 6$
=
·C· THEN GOSUB 320: 60TO 230
280
IF 6$ = HR" THEN GOSUB 300: 60TO 30
290 60TO 250
300 HOME
I
FOR I
=
1 TO X: FOR
J
= 1 TO 40, VTAI II HTAB
JI
PRINT AS(I,JI
;1
NEXT J, NEXT I: RETURN
310 PRJ 1
155
Advertisement
