SPECTRUM-РАЗДЕЛ
M ill
АПРЕЛЬ
" S C R ^ E M P t "
1 0
R
E
M
- i n
i t
-
2 0
B O R D E R
0 :
P A P E R ' O :
I N K
6 :
C L E A R
3 4 9 9 9
3 0
L E T
m
a i n = 1 0 0 :
L E T
v i e
w
=
3 0
0 :
L E T
c o n v = 4 0 0 :
L E T
c o p y
- 7
0
0
:
L E T
d
r i v
=
8
0
0
:
L E T
e
x
i t =
9
0
0
4 0
L E T
e
r r =
1
0
0
0
:
L E T
l o a d = 1 1 0 0
5 0
L E T
d
o
s - 1
5
6
1
9 :
L E T
d $ = " A "
6 0
L E T
e - U S R
d o s :
R E M :
L O A D
" s c r t o b m
p " C
O
D
E
7 0
I F
e < >
0
T H E N
G O
S U B
e
r r :
G O
T O
e
x
i t
1 0 0
R E M
- m
a i n
-
1 1 0
C L S
1 2 0
P R I N T
T A B
4
/ " S C R E E N
t o
. B M P
C
o
n
v e
r t e
r "
1 3 0
P R I N T
A T
2
, 7
;
" b y
M
i c
r o
b
y
t e
' 2 0 0 1 "
1 4 0
P R I N T
# 0 ; A
T
0
, 8
; " E
x t e n
d e d
v
e
r s
i o
n
" ; A
T
1 , 4 ;
" L
a s t
e
d
i t i o
n
:
0
8
. 1
1
. 2
0
0
1
"
1 5 0
P R I N T
A T
6 , 0
; " 1
V
i e w
s c r e
e
n
"
1 6 0
P R I N T
A T
8 , 0 , - " 2
C
o
n
v
e
r t i n
g
s c r e e
n "
1 7 0
P R I N T
A T
1
0
, 0 ; " 3
P
r i n
t
c a
t a
l o
g
u
e
"
1 8 0
P R I N T
A T
1
2
, 0
; "
4
P
r i n
t
s c r e e
n "
1 9 0
P R I N T
A T
1
4
, 0
; "
5
C h a n g e
d
r i v
e
" ;
I N V E R S E
1
,
' d
$
;
2 0 0
P R I N T
A T
1
6
, 0
; "
6
E
x
i t
t o
D O S "
2 1 0
B E E P
. 1 , 1 0
2 2 0
L E T
0 5 - I N
K E Y 5
2 3 0
I F
o $ = " l "
T H E N B E E P
. 1
, 1
0
:
G O T O v i e
w
2 4 0
I F
o $ = " 2 "
T H E N B E E P
. 1
, 1
0
:
G O T O c o n v
2 5 0
I F
o $ = " 3 "
T H E N
B E E P
. 1
, 1
0
:
R A N D O M I Z E
U S R
d o s :
R E M
:
C A T
# 3
2 6 0
I F
o $ = " 4 " T H E N
B E E P
. 1
, 1
0
:
G O
T O
c o p y
2 7 0
I F
o $ = " 5 "
T H E N B E E P
. 1
, 1
0
:
G O T O d
r i v
2 8 0
I F
o $ - " b "
T H E N B E E P
. 1
, 1
0
:
G O T O e
x
i t
2 9 0
G O
T O
2 2 0
3 0 0
R
E
M
- v i e w
-
3 1 0
G O
S U B
l o
a
d
3 2 0
I F
e < >
0
T H E N
G O
S U B
e
r r :
G O
T O
3 4 0
3 3 0
P A U S E
0
3 4 0
G O
T O
m
a i n
4 0 0
R E M
- c o n v
-
4 1 0
G O
S U B
l o
a
d
4 2 0
I F
e < >
0
T H E N
G O
S U B
e
r r :
G O
T O
5 7 0
4 3 0
P A U S E
0 :
B E E P
. 1 , 1 0
4 4 0
R A N D O M I Z E
U S R
3 5 0 0 0
4 5 0
I F
L E N
n $ > 4
T H E N
L E T
n
$
- n
$
( l
T O
4 )
4 6 0
L E T
n $ = n $ + " . b m
p "
4 7 0
P R I N T
#
0
; P A P E R
4 ; I N K
1 ; " S
a
v
i n
g
. . . " ;
4 8 0
L E T
e = U S R
d o s :
R E M
:
S A V E
n $
C O D E
4 0 7 0 4 , 2 4 6 9 4
4 9 0
I F
e < >
0
T H E N
G O
S U B
e
r r :
G O
T O
5 7 0
5 0 0
P R I N T
# 0 ;
A T
1
, 6
;
P A P E R
4 ;
I N K
1
;
"
O
. K
. "
5 1 0
P A U S E
1 0 0
5 2 0
P R I N T
#
0
; A T
1
, 0
; P A P E R
4
; I N K
1
; " V
e
r i f у
i n
g
. .
. " ;
5 3 0
L E T
e = U S R
d o s :
R E M
:
V E R I F Y
n $
C O D E
5 4 0
I F
e < >
0
T H E N
G O
S U B
e
r r
5 5 0
P R I N T
#
0
; A T
1 , 9
/ P A P E R
4 ;
I N K
1 ; "
O
. K
. "
5 6 0
P A U S E
1 0 0
5 7 0
G O
T O
m
a i n
7 0 0
R
E M
- c o p y
-
7 1 0
G O
S U B
l o
a
d
7 2 0
I F
e < >
0
T H E N
G O
S U B
e
r r :
G O
T O
7 5 0
7 3 0
P A U S E
0
7 4 0
C O P Y
7 5 0
G O
T O
m
a i n
8 0 0
R
E
M
- d
r i v
-
8 1 0
P O K E
2 3
6 5 8
, 8 :
P R I N T
A T
1 4 , 1 7 ; F L A
S
H
1 , - O V E R
1 ; "
"
8 2 0
L E T
d $ = I N
K E Y $
8 3 0
I F
d $ < >
" A "
A N D
d $ < >
"B "
A N D
d $ < >
" C "
A N D
d $ < >
" D "
T H E N
G O
T O
8 2 0
8 4 0
P R I N T
A T
1 4 , 1 7 ; d $ ;
"
LET
e = U S R
d o s :
R E M
:
* d $ + " : "
8 5 0
I F
e < >
0
T H E N
G O
S U B
e
r r :
G O
T O
8 7 0
8 6 0
P R I N T
A T
1 4 , 1 7 , - F L A S H
0 ;
d
$
; " : "
8 7 0
P O K E
2 3
6 5 8
, 0 :
G O
T O
m
a i n
9 0 0
R
E
M
- e
x i t
9 1 0
C L E A R
6 5 3 6 7
9 2 0
R A N D O M I Z E
U S R
1 5 6 1 9 :
R E M
:
R U N
1 0 0 0
R
E
M
- e r r
-
l o
i o
P R I N T
# 0 ; A T
1
, 0
; P A P E R
2 ; F L A S H
l ; " E
r r o
r
N
" ; e
; " :
" ;
1 0 2 0
I F
e = l
T H E N
P R I N T
# 0 ; P A P E R
2
; F L A S H
l ; " N
o
f
i l e
! "
1 0 3 0
I F
e = 2
T H E N
P R I N T
# 0 , - P A P E R
2
; F L A S H
l ; "
F
i l e
e
x
i s
t s
! "
1 0 4 0
I F
e < 3
T H E N
P R I N T
# 0 , - P A P E R
2 , - F L A S H
l ; " D
i s
k
f
u
l l ! "
1 0 5 0
I F
e = 4
T H E N
P R I N T
# 0 , - P A P E R
2 , - F L A S H
l ; " C
a
t a
l o
g
u
e
f u
l l ! "
1 0 9 0
B E E P
1 , 1 :
P A U S E
1 0 0 :
R E T U R N
1 1 0 0
R
E
M
- l o a d
-
1 1 1 0
R A N D O M I Z E
U S R
d o e
:
R E M
:
C A T
1 1 2 0
I N P U T
" S C R E E N
f
i l e
n a m e
?
" ;
n $
1 1 3 0
I F
n $ = " "
T H E N
G O
T O
l o
a
d
1 1 4 0
L E T
e = U S R
d o s :
R E M
:
L O A D
n $
C O D E
1 6 3 8 4 , 6 9 1 2
1 1 5 0
R E T U R N
Lprint III, а система ком анд сам ого прин-
тера совм естим а с EPSO N.
П ер е д ко н в е р ти р о в а н и е м ка р ти н ки
программа ожидает нажатия любой клави-
ши (кром е <B R E A K >, естественно). Эту
паузу можно использовать, например, что-
бы сменить диск в дисководе.
Имя вы ходного ф айла перед записью
на диск получается из названия исходного,
причем берутся первые несколько симво-
лов (не более четырех), к которым добав-
ляю тся символы “ .bm p” . Такая структура
имени облегчает перенос ф айла в другие
дисковы е системы - M S-DOS или IS-DOS.
Упрощ енны й вариант этого интерф ей-
са был опубликован в журнале 'Р адиолю -
битель. Ваш компью тер” N8/2001 г. Пользо-
ваться названной публикацией не рекомен-
дуется, поскольку при подготовке в ней д о -
пущены ош ибки, делаю щ ие программу не-
работоспособной.
Отдельная благодарность за идеи, советы,
помощь и критику при подготовке статьи А. Куб-
раку, А. Ланиной, А. Карныгину, А. Прахову.
ИЗДАНИЕ ДЛЯ ПОКЛОННИКОВ
КОМПЬЮТЕРА ZX-SPECTRUM
Если Вы считаете себя человеком , увлеченны м Э р е с ^ и т ’ом, и Вам небезразлич-
на судьба этого ком пью тера, то Вы должны хотя бы раз прочесть эту газету. На стра-
ницах газеты мы стараемся освещ ать различны е темы, касаю щ иеся Э р е с ^ и т ’а. Здесь
присутствую т статьи о програм м ном обеспечении, схем отехнике, многие читатели
делятся своим и мы слями и идеями. Если Вы увлечены Ваш им ком пью тером и Вам
есть что сказать, пиш ите нам. Наши страницы откры ты для всех.
“А бз@ ц” вы пускается в Вологде с октября 2000 г. Тираж пока небольш ой - всего
100 экзем пляров, но уже сейчас нас читаю т более чем в 50 точках России и СНГ, и
даже за рубежом . Несом ненно, эта газета будет расти и соверш енствоваться. Но для
этого нам необходим а ваш а поддержка.
Наш адрес: Р о сси я , 160035, а/я 136. Ш у ш ко в у А л е кс а н д р у Д м и тр и е в и ч у .
Р .в . Если мы и не произвели какой-то там револю ции, то, по крайней мере, вписа-
ли в историю 5 р е с1 ги т’а хоть небольш ой, но свой “А бз@ ц” .
V _______
4/2002
предыдущая страница 25 Радиолюбитель 2002-04 читать онлайн следующая страница 27 Радиолюбитель 2002-04 читать онлайн Домой Выключить/включить текст