Inhoudsopgave
Advertenties
Dit
is
het programma
waarmee
u
die
vlinder
kunt laten
afdrukken:
10 z-10000:
G0SUB
1000
20 z:10100:
G0SUB
1000
30
z=10200:
G0SUB 1000
40 z-10300:
c0SuB
1000
50
z=10400:
G0SUB
1000
60
Z=10
5
00:
c0sUB'1000
99
END
1000
0PEN
11,8,0"Pr"
1010 LSB=0: rSB=0:
RESI0RE
Z
1020
REA0
A: IF A:-1
THEN
1040
1030
LSB=LSB+
1
:
G0T0 1020
1040
IF
LSB:255
THEN
I'lSB=1
:
LSB:LSB-256
1050 PRINI #1rcHR$(27)rcHR$(57);
CHRS(27)i
CHR$(65); CHR$(flSB)i CHR$(LSB);
I060
RESTORE
Z
1070
F0R
x=l
T0
LSB+(ilSB*256)
1O8O
READ
A
1090
PRINT
#1i
CHRS(A)i
1
100
NEXT
X
1110 PRINI
#1
1120
CL0SE
#1
1130
RETURN
10000
DATA
O,63
,',\2? ,',\27
,127
,',t27 ,',t27
,127
,',t21.121,62.
63
,63 .31 ,15 ,7 ,3
,',t
,O ,O ,O
,O,O,O,O,O
,O ,O .O
,O,O,O,O,O,O,O
.
o,1 ,3 ,7
10010
DATA
15,31,63,63,62,124,124,127,1?7,127,127,',t?7,
't27
,63,O,-1
10100
DATA
O,112,120,124,126,',\?7,127,127,31.15,7,3,65,
9
6
,112
,'.t 20
,12
4
,',l26
,127 ,63 ,31 ,15
,7',t
,67 ,48 ,12 ,3
,O
,3 ,12
,
48,67
10't10
DATA
71,15.3',1,63,127,126,',t24,',t20,112,96,65,3,7,
't
5,3 1,
1
27,',t
27,
1
27,
1 2
6,
1
2
1.
1
20.
1 1
2,O,
-',l
'10200
DATA
o,o,0
,o ,o
,o,'124,126,'t27
,127 ,127 ,127
,',!27 ,',t27
,
63
,31 ,15 t7 ,3 ,65 ,97
,',l',l3
,121 ,125 ,127 ,63 ,95 ,63 ,9
5
,',\27
,
125
10210
DATA
121
,113,97,65,3,7.',t5,31
,63,',t27 ,127 ,127
,',t27
,
127
.127 ,126 .12
4
,O ,O ,O ,O
.O,O,-1
1
0300
DATA
O,O.0.o.o,O,O,o,O,64,65,
67,7
1,7
9,95,',126,124,
120
,1O4 .9
6
,96 ,97 ,99 ,',l03
,',l',l1
,127 ,12
4
,126 ,12
4
,127
,
111
,',t03
,99
10310
DATA
97,96,96,',\04,120,124,126,95,79,71,67,65,64,
o,o .0 ,o ,o ,o ,o
,o,o,-1
10400
DArA
o,o,o,0 ,o,0,o,o .o.o,124,126,'t27
,127 ,15 ,7 ,7
,
15
,3',l
,63 ,',l27 .127 .127
.',\27 .',l27
,126 ,0
,O
,0 ,126 ,12? ,127 ,127
,
127
10410 DArA
127,63,31,15,7.7,15,127,',\27,126,'.t21,O,O.O,O,
o.o,0,o,o,o,-1
'11
0500 DArA
o,o,o,o,o,o,o,o,o,o,o,0,0,64,9
6,
1
1
2,
1
1
2,1
1
2,
1
12
,1',l2
,',\',\2
,',l12
,9
6
,61 ,0
,O ,O ,O ,O ,O ,O
,61
,9
6
,',\',\2
,',l1?
,112
,
112
1
05
10
DArA
1
1
2,1 12.1
I
2,9
6, 64,O,O,O,O,O,O,O,O,O,O,O.O,
o,-1
Advertenties
Inhoudsopgave
