Ремонт принтеров, сканнеров, факсов и остальной офисной техники


назад Оглавление вперед




[93]

2030 IF ОУЛВУ. - 1> « IX. THEN COLOR= 0:4 « 65:H « H - 6: GOSUB 3630! GOSUB 3630: GOTO 2050

2039С m oy.iBX - 1)

2040OX.CBX. - 1) = IX.: COLOR-0:H = H - 6:4 = 30: GOSUB 3630: COLOR" NCX:C -

IX.: GOSUB 3630 2050 RETURN

3630 ON С GOTO 3680,3710,

375П,3790,3820,3850,3

880,3910,3950 3640 PLOT H + 4,V TO H t

2,V TO H * 1 ,4 + 1 TO

H + 1 ,4 + 5 3650 PLOT H + 2,4 + 6 TO

H + 4,4 + 6 TO H + 5,

4 + 5 TO H + 5,4 + 1 3660 PLOT H t 4,V ♦ 2 TO

H + 2,4 + 4 3670 RETURN

3680 PLOT H + 2,4 + 1 TO H + 3,4 TO H * 3,4 + 6

3690 PLOT H ♦ 2,V ♦ 4 TO

H + 4,4 + 6 3700 RETURN

3710 PLOT H + 1 ,4 + 1 TO H 2,4 TO H + 4,4 TO H ♦ 5,4 + I TO H t 5,

4+2

3720 PLOT H + 4,4 + 3 TO H + 3,4 + 3 TO H + 1, 4 + 5

3730 PLOT H + l,V ( 4 TO

H + 5, 4 + 6 374 0 RETURN " 3750 PLOT H + 1,V TO H t

5,4 TO H + 5,4 + 1 TO

H + 3,4 + 3 3760 PLOT H + 4,4 + 3 TO

H + 5,4 ♦ 4 TO H t 5,

V + 5

3770 PLOT H ♦ 4,V t 4 TO H+ 2,4 + 6 TO H t 1, 4+5

3780 RETURN

3790 PLOT H + 4,4 + 6 TO H + 4,V TO H ♦ 1,4 +

3

3800 PLOT H + l,W ♦ 4 TO

H + 5,4 + 4 3810 RETURN

3820 PLOT H + 5,4 TO H ♦ 1,4 TO H ♦ 1,4 + 2 TO H + 4,4 + 2

3830 PLOT H + 5,4 + 3 TO H + 5,4 + 5 TO H + 4, 4+6 TO H + 4,4 + 6 TO H + 2,4 + 6 TO H + 1, 4+5

3840 RETURN

3850 PLOT H + 5,4 TO H + 3,4 TO H + 1,4 + 2 TO H + 1 ,V + 5

3860 PLOT H + 2,4 ♦ 6 TO H + 4,4 + 6 TO H + 5, 4+5 TO H + 5,4 ♦ 4 TO H + 4,4 + 3 TO H + 2, 4+3

3870 RETURN

3880 PLOT H + 1,4 TO H + 5,4

3890 PLOT H + 5,4+ 1 TO H + 2,4 + 4 TO H + 2, 4+6

3900 RETURN

3910 PLOT H ♦ 1,4 + 2 TO H + 1,4 + 1 TO H + 2, 4 TO H + 4,4 TO H + 5 ,4 + 1 TO И + 5,4 + 2

3920 PLOT H + 4,4 + 3 TO H+2.4+3T0H+1, 4+4 T,0 H + 1 ,4 + 5

3930 PLOT H + 2,4 + 6 TO H + 4,4 + 6 TO H + 5, 4+5 TO H + 5,4 + 4

394 0 RETURN

3950 PLOT H + 4,4 + 3 TO H+2.4+3T0H+ 1, 4+2 TO H + 1,4 + 1 TO H + 2,4 TO H + 4,4

3960 PLOT H + 5,4 + 1 TO H + 5,4 + 4 TO H + 3, 4+6TOH+ 1,4+6

3970 RETURN


НОМЕ # S500:

vkl:sta«c200 lda etalon + 1 sta«fffa lda etalon + 2 sta«fffb lda etalon + 4 sta«fffe lda etalon + 5 sta«ffff sta«c220 cli

sta«c050 ldam2s sta34 sta37 lda32 sta36 rts

etalon:jmp nmi jmp irq mop nop nop

ppa:brk ppx:brk pqa:Brk

pqx:brk

stc:*00 set:*oo ska:*31 skb:*3E skc:«3C

MMI:sta«c040 sta ppa stx ppx lda set sta stc inc stc ! ldx ska ! lda«c700,x 130 : ldam25 sta34 ldx ppx lda ppa

140

150

160

170

180

190

200

210 220 230 240 250 260 270 280 290 300 310 320 330 340

STASC050 RTI

IRQ:STA PQA STX PQX PLA PHA ASL ASL

ASL

BPL MTA LDA PQA JMP*E53D

MTA:DEC STC BNE MTB LDX SKB LDA«C700,X INC- STC

MTB:LDX PQX LDA PQA RTI

VIKL:STA«C040 SEI

LDX SKC LDA«C700,X .LDAMO STA 34 JMPSFC3D

REM «SET-КОЛИЧЕСТВО REM «СТРОК,SKA И SKB REM «СТРАНИЦЫ ГРАФИК .REM «ИЛИ ТЕКСТА.CALL REM #VKL:ВКЛЮЧЕНИЕ REM #CALL VIKL:BH-REM ВКЛЮЧЕНИЕ. REM «СТРАНИЦЫ: REM #GR:»<N#4> REM *MGR:-((N*16)+l) REM #TEXT:-((N#4)+2) REM #HGR:-((N*16)«-3> REM «ПРИМЕР: REM «РОКЕ SKA ,N


5 LOMEM: «2000: HIMEM: «3 ООО: PRINT : REM CHR* (4)i"BLOADDSBIN"

10 GOSUB 3000

20 CV = 25

50 GOSUB 2000

100 POKE 36,0: VTAB CV

102 PRINT CHR* (*9D)I

105 PRINT SLOT - "i

110 GOSUB 1000

115 S = X

12C IF S < 1 OR S > 7 THEN 100

130 IF INT (S) < > S THEN 100

140 POKE 36,32: VTAB cv:

PRINT CHR* (*9D) 145 PRINT "DRIVE - "t 150 GOSUB 1000:D « X 160 IF D < 1 OR D > 2 THEN 140

180 POKE 251,S * 16". POKE

252,D - 1 185 PRINT : PRINT 190 PRINT "DISK SPEED » MS"

200 CALL 3328

220 IF PEEK (255) « 0 THEN 10

230 GOSUB 3000

240 PRINT : PRINT " bDISK

ETTE IS WRITE PROTECT

ED! ! "

250 PRINT "PRESS RETURN T

0 CONTINUE." 260 IF PEEK ( - 16384) <

127 THEN 260 270 POKE - 16368,0: GOTO

10

300 REM 123456 1000 X = PEEK ( - 16384): IF X < 127 THEN 1000

1010 POKE - 16368,0

1013 IF X = *9B THEN HOME

: NEW : END 1015 IF X > *9F THEN PRINT

CHR* (X) 1017 IF X < *B0 OR X > *B

9 THEN X « *80 1020 X « VAL •( CHR* (X -

«80) )



[стр.Начало] [стр.1] [стр.2] [стр.3] [стр.4] [стр.5] [стр.6] [стр.7] [стр.8] [стр.9] [стр.10] [стр.11] [стр.12] [стр.13] [стр.14] [стр.15] [стр.16] [стр.17] [стр.18] [стр.19] [стр.20] [стр.21] [стр.22] [стр.23] [стр.24] [стр.25] [стр.26] [стр.27] [стр.28] [стр.29] [стр.30] [стр.31] [стр.32] [стр.33] [стр.34] [стр.35] [стр.36] [стр.37] [стр.38] [стр.39] [стр.40] [стр.41] [стр.42] [стр.43] [стр.44] [стр.45] [стр.46] [стр.47] [стр.48] [стр.49] [стр.50] [стр.51] [стр.52] [стр.53] [стр.54] [стр.55] [стр.56] [стр.57] [стр.58] [стр.59] [стр.60] [стр.61] [стр.62] [стр.63] [стр.64] [стр.65] [стр.66] [стр.67] [стр.68] [стр.69] [стр.70] [стр.71] [стр.72] [стр.73] [стр.74] [стр.75] [стр.76] [стр.77] [стр.78] [стр.79] [стр.80] [стр.81] [стр.82] [стр.83] [стр.84] [стр.85] [стр.86] [стр.87] [стр.88] [стр.89] [стр.90] [стр.91] [стр.92] [стр.93] [стр.94] [стр.95] [стр.96] [стр.97] [стр.98]