Р а з д е л 2
«1111
Т А Р Е ’” “ А . V E R IF Y
Т А Р Е ’” “ В . T R -D O S
С А Т ’” “ С . SU M
B U FF” ” “D . K 155R E 3” ’“ E. K 5 5 6 R T 4 ”
35 GO SUB 2200
40 LET o$-IN K E Y $: IF o $ - “ ” T H E N G O T O 40
50 B E E P .1,30
60 LET L $-1N K EY $: IF L$<>“ ” T H E N G O T O 60
80 IF o $ - “ l ” T H E N G O T O 4600
90 IF o $ - “2 ” T H E N G O SUB 1000: G O T O 20
100 IF o $ - “ 3 ” T H E N G O T O 4900
110 IF o $ - “4 ” T H E N G O T O 5000
120 IF o $ - “5 ” T H E N G O T O 2400
130 IF :>$-“ 6 ” T H E N G O T O 2500
140 I F o $ - “7 ” T H E N G O T O 2600
150 I F o S - “8 ” T H E N G O T O 2700
160 IF o $ - “9 ” T H E N GO T O 2800
170 IF o $ - “A” O R o $ - “a ” T H E N G O T O 2900
180 IF o $ - “B” O R O S -“ b ” T H E N G O T O 3000
190 IF o $ - “ C ” O R oS“ “c ” T H E N G O T O 4500
200 IF o $ - “D ” O R 0 $ - “ d ” T H E N G O SU B 2000: G O SUB 2200
210 IF o $ - “E ” O R o $ - “e ” T H E N G O SU B 2100: G O SUB 2200
220 G O T O 40
1000 REM W R IT E PRO M P R O G
3010 CLS : P R IN T TA B 7; F L A S H 1; “ W R IT E P R O M M O D E
F L A S H
0 ” “ P R O M
...........................
” ; F ’ “ N A M E
D A T A
F IL E
...
” ;N S’“A D D R ESS B U F F E R .
.. ’’.A D D R
1 0 2 0 P R IN T
P re s s < E N T E R > to W R IT E P R O M ” 'T A B
1 5;“o r”’TAB 7 ;“an y key to R E T U R N ”
1030 LET s$-IN K E Y $: IF s $ - “ ” T H E N G O TO 1030
1040 LET L $-IN K E Y $: IF LS<>“ ” T H E N G O T O 1040
1050 IF C O D E s$<>13 T H E N R E T U R N
1060 FO R Z -7 T O 9: PR IN T AT Z ,0 ;“
": N'EX Г Z
1 0 6 5 P R IN T A T 8 , 0 ; “ A D D R E S S
........................
’’’“ A T T E M P T
..................
” ” FLA SH I N O P R E S S B R EA K !
FLA SH 0
1070 REM W R IT E
1 0 8 0 F O R X -A D D R T O A D D R + L E G H T : L E T P - 1 : P R IN T AT
8,19;X -A D D R
1070 O U T 1 2 7 ,1 2 8 : O U T 3 1 ,X -A D D R : O U T 6 3 ,2 5 5 -P E E K X: GO
SUB 2300
1100 PR IN T A T 9 ,1 9 ;P : F O R F -O T O I: O U T 9 5 ,F: O U T 127,7: OUT
127,6: PA U SE 1: N E X T F
1110 O U T 127,130: O U T 95,16: O U T 3 1 ,x -ADDR
1120 LET V—IN 63: IF P E E K X <>V T H E N L E T P - P + ] : G O T O 1140
1130 GO T O 1250
1140 IF P<5 T H E N G O T O 1090
J 150 P R IN T A T 15,0; P A P E R 2; IN K 9; FLA SH 1
WRITE E RRO R
1
F L A S H 0: P R IN T “ A D D R E S S .
...............
” ;X -A D D R ’“ W R IT E
.............
(P E E K X ) - Q ' “ R E A D .
.........................
V -Q ’ “ P re ss < E N T E R > to
C O N T IN U E ”
1160 LET P -1 : B E E P .2 ,-2 0 : B E E P .2 ,-2 0 : B E E P .2 ,-2 0 : B E E P .6 ,-
25
1170 LET sS=IN K EY $: IF s $ - “ ” T H E N G O TO 1170
1180 LET L S-IN K EY S: IF L$<>“ ” T H E N G O T O 1180
1190 FO R L -1 4 T O 19: P R IN T A T L ,0 ;“
’’: N E X T L
1200 IF S $ -C H R $ 13 T H E N G O T O 1090
1210 GO T O 20
1250 N E X T X
1260 >PR IN T A T 1 1 ,0 ;“
” ;:0;T A B 8 ;“W R IT E C O M P L E T E
!’” TAB 3 ;“ P ress a n y key to R E T U R N .” :PA U SE 0:G O T O 20
1998 N EX T X
1999 ST O P
2000 REM S E T K 155R E 3
2010 L E T q-O : L E T 1-7: L E T A D D R -3 2 7 6 8 : L E T P $ - “K 1 5 5 R E 3 ” :
L E T L E G H T -3 I: R E T U R N
2100 REM S E T K 556R T 4
2110 L ET q -2 4 0 : L E T 1-3: L E T A D D R -3 2 7 6 8 : L ET P $ - “ K 556R T 4” :
L E T L E G H T -2 5 5 : R E TU R N
8
Радиолюбитель 12/94
к о т П Ь Ю Т Е Р Н А М Т Ш Щ Н К А <
2200 REM P R IN T T Y P E PR O M
2210 P R IN T AT 1 ,2 0 ;“T Y P E P R O M ” ;A T 2 ,2 0 ; FLA SH 1;“ ” ;P $ ;“ ” ;
FLA SH 0: R E T U R N
2300 R E M B O R D E R
2310 L E T B -B + I: IF B>7 T H E N L E T B -0
2320 O U T 2 5 4 ,B: R E TU R N
2400 REM W R IT E DISK
2 4 1 0
P R IN T A T
2 1 , 0 ; “ W R IT E
D I S K .” :
G O
S U B 4 0 0 0 :
R A N D O M IZ E USR 15619: REM : SAVE N S C O D E A D D R ,L E G H T +1
2420 G O T O 20
2500 R E M RE A D DISK
2510 P R IN T AT 2 1 ,0 ;“RE A D D IS K .” : G O SUB 4000: RA N D O M IZE
U SR 15619: REM : LOAD N SC O D E A D D R .L E G H T + l
2520 G O T O 20
2600 REM V E R IFY DISK
2 6 1 0 P R IN T A T 2 1 , 0 ; “ V E R IF Y D I S K .” :
G O SU B 4 0 0 0 :
R A N D O M IZE U SR 15619: REM : V E R IFY N $C O D E A D D R .L E G H T + l
2620 G O T O 20
2700 REM W R IT E T A PE
2 7 1 0 P R IN T A T 2 1 ,0 ; “ W R IT E T A P E .” : G O S U B 4 0 0 0 : SA V E
N SC O D E A D D R .L E G H T + l: G O T O 20
2800 REM REA D T A PE
2 7 1 0 P R IN T A T 2 1 , 0 ; “ R E A D T A P E ” : G O S U B 4 0 0 0 : LO A D
N SC O D E A D D R ,L E G H T + 1: G O T O 20
2900 REM V E R IFY T A PE
2 9 1 0 P R IN T A T 2 1 ,0 ;“ V E R IF Y T A P E .” : G O SUB 4 000: V E R IFY
N SC O D E A D D R .L E G H T + I: G O T O 20
3000 R E M T R -D O S CAT
3010 CLS : R A N D O M IZE U SR 15619: R E M : CAT
3020 PA U SE 0: G O T O 20
4000 REM IN P U T NAM E FIL E
4010 IN P U T “ E N T E R NAM E FIL E :” ;N$
4020 IF N $ -“ ” O R LEN N$>8 T H E N B E E P .1 ,-1 0 : G O T O 4010
4030 R E T U R N
4500 REM SUM B U FF
4510 CLS : P R IN T “ C O N T R O L S U M -” ;: L ET S -0
4520 F O R X -A D D R T O A D D R + L E G H T
4530 G O SUB 2300: L E T S -S + (P E E K X )-Q : N E X T X : P R IN T S
4540 B O R D E R 7: P R IN T ’“ P ress an y key to R E T U R N ” : PA U SE 0:
G O T O 20
4600 REM T E S T PRO M
4610 O U T 127,130: O U T 95,16: L E T H -0
4620 CLS : P R IN T “T E S T PR O M ” ;PS
4630 F O R X -A D D R T O A D D R + L E G H T : G O SUB 2300
4 6 4 0 O U T 3 1 ,X -A D D R : IF IN 63<>Q T H E N L E T H - H + l : P R IN T
“A D D R E S S -” ;X -A D D R ;“ D A T A -” ;IN 6 3 -q
4650 N E X T X
4660 IF H - 0 T H E N P R IN T ’“
O K A ’Y !”
4670 P R IN T “P ress an y k ey to R E T U R N ” : PA U SE 0: GO T O 20
4900 REM RE A D PRO M
4 9 0 5 P R IN T A T 2 1 ,0 ;“R E A D P R O M ” ;P $ : O U T 1 2 7 ,1 3 0 : O U T
9 5,16
4910 F O R X -A D D R T O A D D R + L E G H T
4920 O U T 3 1,X -A D D R : P O K E X ,IN 63: G O SUB 2300: N E X T X
4930 B O R D E R 7: G O T O 20
5 0 0 0 REM V E R IFY PRO M
5 0 1 0 L E T H -0 : CLS : P R IN T “V E R IFY PR O M ” ;P $: O U T 127,130:
O U T 9 5,16
5020 F O R X -A D D R TO A D D R + L E G H T
5030 O U T 3 1 ,X -A D D R : G O SUB 2300
.5 0 4 0
IF
IN
6 3 0 P E E K
X
T H E N
L E T
H - H + l :
P R IN T
“A D D R E S S -” ;X -A D D R ; “ D A T A -” ; (P E E K x ) - q ;“
B A D -” ;IN 63-Q
5050 N E X T X
5060 IF H - 0 T H E N P R IN T ’“
O K A ’Y !”
5070 B O R D E R 7: P R IN T “P ress an y key to R E T U R N ” : PA U SE 0: GO
T O 20
предыдущая страница 9 Радиолюбитель 1994-12 читать онлайн следующая страница 11 Радиолюбитель 1994-12 читать онлайн Домой Выключить/включить текст