Table of Contents
Advertisement
Program 2. Bit I mage Pattern with I MAG E/P Command
[Program List]
100 A$=CHR$($CO)+CHR$($CO):B$=CHR$($FO)+CHR$($FO)
110
D$=CHR$($FC)+CHR$($FC)~E$=CHR$($CF)+CHR$($CF)
120
F$=CHR$
(~f;~:'C) +CHf~$
($3C) :
(3$:::::CHR$
(SFF)
+CHR$
($FF)
130 H$=CHR$($3F)+CHR$($3F):I$=CHR$($OF)+CHR$($OF)
140 J$=CHR$($33)+CHR$($33)=K$=CHR$($03)+CHR$($03)
150 L$=CHR$($C3)+CHR$($C3):M$=CHR$($OO)+CHR$($OO)
200
Il$=M$+M$+A$+B$+D$+E$+D$+D$+D$+E$+D$+B$+A$+M$+M$+M$+M$
210 12$=M$+M$+H$+A$+I$+J$+J$+K$+J$+J$+I$+A$+H$+M$+M$+M$+M$
220
13$=M$+M$+B$+D$+F$+F$+G$+G$+G$+F$+F$+D$+B$+M$+M$+M$+M$
:2:::::0
14$":;:::I"'1$+1"1~;+L_$+\.J$+"I"-I$+
I
$+I<$+"r<$+I<$+
I
$+H$+J$+L$+M$+I'1$+M$+M$
240
PRINT/P CHR$(17)
:
"
2 :)0
FOh: 11==:(1 TI] 5
~
I 1'1P1GE /F' I
1
$+"
1
::::;~*i+
I
1
~p+"
I
:2:;$+
I
1
$+
I 3$+" I :l
$
260 IMAGE/P 12$+14$+12$+14$+12$+14$+12$
:
2 70 F'H 11"'-IT
/F':
NE X"r
2UO" END
[Execution Resu It]
~~~~~~~
~~~)~~~~
~~~~~~~
~~~~~~~
~~~~~~~
~~~~~~~
36
Advertisement
Table of Contents
