1 'This software Copyright, 1983 NEC Corporation
2 'LINE{(x0,y0)}-(x1,y1),{,c}{,B{F}}
3 DATA193,254,244,235,42,250,243,235,196,118
4 DATA31,213,207,244,205,118,31,213,17,208
5 DATA116,202,234,242,213,207,44,254,44,209
6 DATA202,232,242,213,205,227,19,209,15,218
7 DATA232,242,17,209,116,43,215,235,34,102
8 DATA243,235,202,40,243,207,44,207,66,202
9 DATA 18,243,207,70,209,227,123,149,210,5
10 DATA243,47,60,107,71,4,93,205,47,243
11 DATA44,5,194,7,243,225,201,209,227,213
12 DATA93,205,47,243,209,213,84,205,47,243
13 DATA209,229,98,205,47,243,225,107,1,209
14 DATA227,205,47,243,225,201,229,213,197,125
15 DATA147,210,58,243,235,47,60,71,14,20
16 DATA124,146,210,69,243,47,60,12,184,218
17 DATA80,243,103,104,62,28,195,85,243,111
18 DATA96,121,14,28,50,120,243,121,50,107
19 DATA243,68,4,124,167,31,79,229,213,197
20 DATA205,209,116,193,209,225,20,121,133,79
21 DATA218,118,243,188,218,121,243,148,79,28
22 DATA5,194,98,243,195,94,25
23 CLEAR256,62138!
24 FORX=62139!TO62335!:READA:POKEX,A:NEXTX
25 POKE 64082!,187:POKE 64083!,242
26 LINE(0,0)-(239,63),1,BF
27 LINE(239,0)-(0,63),0
28 LINE(10,10)-(229,53),0,B
29 LINE(20,20)-(219,43),,BF
30 LINE -(0,0),0,B
31 LINE -(239,63),1,BF
32 BSAVE"LINE",62138!,197
33 END
34 ' Downloaded from NEC-HE's BBS
35 ' BSAVE on line 32 added by Gary Weber