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


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




[92]

10 print chr* (4)"bl0ad dsk"

20 text" 15: inverse ! home

30inverse

40input "v?"v

50input "r,w?"n

60input "t?"t

70input "s?"s

200poke 3712,«30

210poke 3713,1

220poke 3714,v

230poke 3715,t

240poke 3716,s

250poke 3717.n

260 if n - 2 then 280

270for i - *2000 to *20f f

271poke 1,255

272next

2b0call *f00

290if n - 2 then 30

300for a - «2000 to »20f f

310c - peek (a)

320 if c < - 31 then 330

321if c > - 32 and c <

-127 then 340

322if с > - 12b and c <

-159 then 350

323if c > - 160 then 36 0

330 с с + 64: normal : ribbon"

l: goto 370 340 normal : ribbon" 7: goto 370

350 c - c - 64: inverse : ribbon"

l: goto 370 360 с - c - 12b: inverse :

ribbon- 7! goto 370 370 print chr* (с)i 3b0 next

390 print : print 399 goto 30


7000-

А9

00

LDA

«•00

7002-

8D

80

70

STA

•7080

7005-

8D

81

70

STA

•7081

7008-

BD

B2

70

STA

•7082

700В-

8D

83

70

STA

•7083

700Е-

А9

4C

LDA

«*4C

7010-

8D

FB

оз

STA

•03FB

7013-

А9

32

LDA

«•32

7015-

8D

FC

03

STA

•03FC

7018-

А9

70

LDA

«•70

701А-

BD

FD

03

STA

•03FD

701D-

BD

50

CO

STA

•C050

7020-

A9

OE

LDA

««0E

7022-

8D

F2

03

STA

•03F2

7025-

A9

70

LDA

«•70

7027-

8D

F3

03

STA

•03F3

702А-

49

A5

EOR

«*A5

702С-

BD

F4

03

STA

•03F4

702F-

4C

CF

D7

JMP

•D7CF

7032-

4B

PHA

7033-

EE

BO

70

INC

•7080

7036-

AD

80

70

LDA

•7080

7039-

C9

32

CMP

«•32

703В-

DO

35

BNE

•7072

703D-

A9

00

LDA

«•00

703F-

BD

BO

70

STA

•70B0

7042-

EE

Bl

70

INC

•70B1

7045-

AD

Bl

70

LDA

•7081

*L

704B-

C9

3C

CMP

««3C

704A-

DO

26

BNE

•7072

704C-

A9

00

LDA

«•00

704E-

BD

81

70

STA

•70B1

7051-

EE

82

70

INC

•70B2

7054-

AD

B2

70

LDA

•70B2

7057-

C9

3C

CMP

««3C

7059-

DO

17

BNE

•7072

705B-

A9

00

LDA

«•00

705D-

BD

B2

70

STA

•70 B2

7060-

EE

83

70

INC

•70B3

7063-

AD

83

70

LDA

•70B3

7066-

C9

IB

CMP

««1B

706B-

DO

08

BNE

•7072

706A-

A9

00

LDA

«•00

706C-

BD

83

70

STA

•70B3

706F-

20

B4

FC

JSR

•FCB4

7072-

68

>LA

7073-

40

RTI

7074-

00

BRK

7075-

00

BRK

7076-

FF

???

7077-

FF

???

7078-

00

BRK

7079-

00

BRK

707A-

FF

???

707B-

FF

???

707C-

00

BRK


•1 DIM 0Х<6> 5 INVERSE 20 HOME 25 VTAB 6

30 PRINT "ВВЕДИТЕ ТЕКУЩЕЕ

ВРЕМЯ" 40 PRINT

50 INPUT "<ЧЧ,ММ,СС> "I HH У., ММХ, SSX

54GR= 3: FOR I = 1 ТО 6:

ОХ<1> • 77: NEXT

55C0L0R= 4

57FOR I = 00 TO 20: PLOT

0,I TO 64,I: NEXT

58FOR 1 •» 45 TO 64: PLOT

0,1 TO 64,I: NEXT 60 FOR N = HH/. TO 23:A = N

65 H = 5:BV: = 2:V = 30: GOSUB 2000

70 FOR M = MMX TO 59:A = M

75 H = 25:B>: = 4:V = 30: GOSUB 2000

80 FOR S = SSI-; TO 59.-A -S

81H = 45:BX - 6:V = 30: GOSUB

2000

82HTAB 16

90 FOR IN = 1 TO 600: NEXT

1 10 NEXT : SSX = 0 120 NEXT : MMX = 0 130 NEXT : HHY. = 0 140 GOTO 60 2000 COLOR= 00

2002NCX = <N + M + S) / 7: UCV. = N + M + S -

НС/. * 7 + 1 : ЫСУ. = INT < RND <999) * 7 + 1): COLOR= NCX.

2003PLOT 21,31 TO 21.32s PLOT 2Г, 35 TO 21 ,36: COLOR= 8 - ЫСУ.

2004PLOT 41,31 TO 41,32: PLOT 41 ,35 TO 41,36: COLOR- 0

2005IX = A / 10:JX - A -10 * V/.

2010 H •» H + 6:C - ОХ(ВУ.>!

GOSUB 3630 2020 COLOR= NCX:C = JX:0 УЛЪУ.У - JX: GOSUB 363



[стр.Начало] [стр.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]