Table of Contents
Advertisement
1 7 0 0
' ----------- K e y e x p l a n a t i o n s
1 7 1 0 LOCATE 1 0 , 4 0
: P R IN T " F I :
1 7 2 0 LOCATE 1 1 , 4 0
.•PR IN T "F 2 :
1 7 3 0 LOCATE 1 2 , 4 0
: P R IN T " F 3 :
1 7 4 0 LOCATE 1 3 , 4 0
: P R IN T
1 7 5 0 LOCATE 1 4 , 4 0
: P R IN T
1 7 6 0 LOCATE 1 5 , 4 0
.•PR IN T " F 6 :
1 7 7 0 LOCATE 1 6 , 4 0
: P R IN T
1 7 8 0
' ---------- G e t c h a r a c t e r --------------------------------------------------------------------------------------
1 7 9 0
I F
A ( C C ) < 0 THEN GOSUB 3 2 2 0
1 8 0 0
I F
NLQ THEN 1 8 7 0
1 8 1 0
' --------- D r a f t
c h a r a c t e r
1 8 2 0 FOR Y - l TO
11
1 8 3 0 I F
( P ( C C .Y )
AND W T )= 0 THEN 1 8 5 0
1 8 4 0 D T ( X , Y ) - 1
: D T ( X , Y + l ) = 2
1 8 5 0 W T -.5 * W T
.-NEXT X ,Y
I 8 6 0
' ---------NLQ c h a r a c t e r
1 8 7 0 FOR Y - l
TO
2 3
1 8 8 0
I F
( P ( C C .Y )
AND W T ) - 0 THEN GOTO 1 9 0 0
1 8 9 0 D T ( X , Y ) - 1
; D T ( X , Y + l ) - 2
1 9 0 0
I F
( Q ( C C .Y )
AND W T ) - 0 THEN GOTO 1 9 2 0
1 9 1 0 D T ( X ♦ 1 . Y ) - 1
: D T ( X + l , Y + l ) - 2
1 9 2 0 W T - . 5*W T
iN E X T X .Y
1 9 3 0
'
M o d i f y & p l o t
1 9 4 0 X - l
i Y - l
1 9 5 0 FOR Z - 1 0
TO 12
1 9 6 0 S T -2
iLOCA'I'l-: 1 1 , IH
1 9 7 0
' ----------
D r a f t
c h a r a c t a r
1 9 8 0
I F
D T ( X . Y ) - 2
TIIKN C M I - C H R I ( 2 ) + "
1 9 9 0
I F
I) 1 ( X . Y ) - ()
I III M
2 0 0 0
I F
S T -1
THEN f ) T ( X . Y ) - l )
2 0 1 0 C S S - S T R IN G I( 3 . 2 ) ♦ "
2 0 2 0
I F
ST< 3 THEN C fll-M T H I N(J I (
2 0 3 0
I F
D T (X , Y« 1 ) - l
2 0 4 0 D T ( X , Y ) - 1
: D T ( X . Y * 1 ) « |
2 0 5 0 GOSUB 3 6 8 0
2 0 6 0 S S -S T
: B X -X
: B Y -Y
2 0 7 0
I F
S T >3 THEN 2 1 0 0
2 0 8 0 FOR Z - 1 0
TO 12
2 0 9 0 LOCATE 9 + S T . 3 8
2 1 0 0
I F
S T - 4 THEN GOSUB 3 2 2 0
2 1 1 0
I F
S T - 5 THEN GOSUB 3 2 2 0
2 1 2 0
I F
S T - 6 THEN 2 4 1 0
2 1 3 0
I F
S T - 7 THEN 3 2 6 0
2 1 4 0
I F
D T (B X , B Y ) - 2
2 1 5 0
I F
D T ( B X , B Y ) - 1
2 1 6 0
I F
D T ( B X ,B Y ) - 0
AND D T (B X , B Y ♦ 1 ) - 0 THEN C B * - "
2 1 7 0 GOSUB 3 7 0 0
:GOTO 1 9 8 0
2 1 8 0
' -----------NLQ c h a r a c t e r
2 1 9 0
I F
D T ( X , Y ) - 2 THEN C S $ -C H R $ (2 )
2 2 0 0 I F
D T ( X , Y ) - 0 THEN 2 2 3 0
2 2 1 0
I F
S T -1 THEN D T ( X , Y ) - 0
2 2 2 0 C S $ -S T R IN G $ ( 2 , 2 )
2 2 3 0
I F
S T < 3 THEN C S $ -C H R $ ( 1 )
2 2 4 0
I F
D T ( X , Y + 1 ) - 1
THEN C S $ -C H R $ (1 )
2 2 5 0 D T ( X , Y ) - 1
: D T ( X , Y + l ) - 2
2 2 6 0 GOSUB 3 7 2 0
2 2 7 0 S S -S T
: B X -X
: B Y -Y
2 2 8 0
1
2 2 9 0
I F
S T >3 THEN 2 3 2 0
2 3 0 0 FOR Z - 1 0 TO 12
2 3 1 0 LOCATE 9 + S T , 3 8
2 3 2 0 I F
S T - 4 THEN GOSUB 3 2 2 0
2 3 3 0
I F
S T - 5 THEN GOSUB 3 2 2 0
2 3 4 0
I F
S T - 6 THEN 2 4 1 0
2 3 5 0
I F
S T - 7 THEN 3 2 6 0
2 3 6 0
'
2 3 7 0
I F
D T (B X ,B Y ) - 2
THEN C S $ - " # "
2 3 8 0
I F
D T (B X , B Y ) - 1
THEN C S $ - " # # "
2 3 9 0
I F
D T (B X ,B Y + 1 ) - 0
96
C l e a r d o t "
P a s s o v e r "
S e t d o t "
" F 4 :
C l e a r a l 1 d o t s "
" F 5 . -
S k i p
c h a r a c t e r "
E n d "
"R ET
R e c o r d c h a r a c t e r "
:GOTO 1 9 5 0
:W T = 128 :FOR X - l TO
: B X -X
: B Y -Y
:C S $ = " # # # "
: GOTO 1 9 4 0
:W T -1 2 8 : FOR X - l TO
15 STEP 2
:B X -X
: B Y -Y
: C S $ = " # # "
:B X -X + 1
: B Y -Y
c h a r a c t e r
iLOCATE
Z . 3 8
: P R IN T " "
r P R IN T........
: I F
NLQ THEN 2 1 8 0
"
iOOTO 2 0 5 0
l ) T ( X , Y U ) - 0 i C 9 I-S T R IN G S ( 3 , 1 ) + " "
"
iOOTO 2 0 9 0
/
I )
« lo |0
I M IN ' :m -M I MI N u | i
| |
i 'n * - n I II I N U f (
.UOflUh
H I D
IT
flfl-H I
i LOCATE Z Ml
I'M IN I
: P R IN I........ iOOTO IWHO
iQOTO 1 » 5 0
iOOTO 192 0
THEN C S $ - " #
" iOOTO 2 1 7 0
THEN C S $ - " # # #
" iOOTO
«GOTO
: D T ( X , Y + l ) - 0 iC S f - M T H I N O I
:GOTO
2 2 6 0
:GOTO 2 2 6 0
:GOTO 2 2 6 0
: C S $ -S T R IN G $ ( 2 , 2 )
.-GOSUB 3 1 1 0
: I F
S S -S T THEN
: LOCATE
Z , 3 8
: P R IN T " " : NEXT Z
.-P R IN T " "
.-GOTO 2 1 8 0
:GOTO 1 9 5 0
.-GOTO 1 5 2 0
.-GOTO 2 4 0 0
:GOTO 2 4 0 0
THEN C S $ - "
" ELSE C S $ - "
8
:GOSUB 3 7 0 0
:GOSUB 3 7 3 0
: C S $ - " # # "
:GOSUB 3 7 3 0
:N E X T Z
1
j
) * " "
I1IKN -'141)
Nr X I
2 1 7 0
• '
1
'
( J
I I
m i.ill JJftO
2
»r.I)
"
'
.GOTO 2 0 5 0
i I
<1
=
! «
=
4
=
9
t m
* *
=
•!
I *
*1 *
9
H
.'()^()
iln 'I'u , 'in i ) *
mu
# |
* *
Ti»
mi
2 2 6 0
f r i
1
r
Advertisement
Table of Contents
