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


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




[91]

375 if в 3 then gosub

шо:х = 43:y = 67: gosub

1120:x = 84: gosub 11 20

380 if b = 4 then gosub

ui5:x = 43:y - 69: gosub

1140:x - 84: gosub 11 40

385 if A < > 0 then poke

*c010,0: goto 400 390 if b - 5 then 400 392 gosub 1000:b - В + 1 395 goto 360 400 rem

410 print : print chr* (

4);"run ten.mod" 1000 rem ----------------

1001rem *** слово - tenn is ***

1002rem ----------------

1005 for c = 1 to 4

loio color= c:y = 46: gosub

1060

1015 y = 47: gosub 1060: plot 60,y: plot 70,y: plot

82 ,Y

1020 color- с + 8:y - 48: gosub 1065: plot 60, Y to 61,Y: plot 70,Y to 71 ,Y

1025 Y = 49: gosub 1065: plot 60,Y to 62,Y: plot 70 ,Y-to 72 , Y

1030 color= с + l:Y - 50: gosub 1065: plot 61,

Y to 63,Y: plot 71,Y to 73, Y

1035 Y « 51: gosub 1070: plot 62,Y to 63,Y: plot 72 ,Y to 73,Y: plot B2,Y

1040 color- с + 9:Y - 52: gosub 1070: plot 63, Y: plot 73,y: plot 89

,v

1045 Y - 53: gosub 1075: color-с + 2:Y- 54: gosub 1075IY = 55: gosub 1075 1050 color- с + 10:Y - 56

: gosub iobo: plot B9 ,y:y - 57: gosub iobo

1055 next c: return

1060 plot 38,Y to 45,Yl plot 4B,Y to 55,Y: plot 58 ,Y to 59,Y: plot 64,Y

to 65,Y: plot 68,Y to 69,Y: plot 74,Y to 75 ,Y: plot 7B,Y to 79,Y : plot 83,Y to 89,Y

1062 return

1065 plot 41,y to 42-,y: plot 48,y to 49,Y: plot 58 ,y to 59,y: plot 64,y

to 65,Y: plot 6b,Y to 69,y: plot 74,y to 75 ,y: plot 78,Y to 79,y : plot b2,Y to 83,y 1067 return

1070 plot 41,y to 42,y: plot 48,y to 53,Y: plot 58 ,y to 59,y: plot 64,y

to 65,y: plot 68,y to 69,y: plot 74,y to 75 ,y: plot 78,y to 79,y : plot 83,y to 89,y

1072 return

1075 plot 41,Y to 42,y: plot 48,y to 49,y: plot 58 ,y to 59,y: plot 64,Y to 65,y: plot 68,y to 69,y: plot 74,y to 75 ,y: plot 78,y to 79,y : plot 88,y to 89,y 1077 return

1080 plot 41,y to 42,y: plot 4b,Y to 55,Y: plot 58 ,Y to b9,y: plot 64,Y to 65-,y: plot 6b,y to 69, Y: plot 74,y to 75 ,y: plot 78,y to 79,y : plot 82,y to 88,y

1082 return

1085 rem ----------------

1090 rem *** фыннкции выб

opa *** 1095 rem--------------

1100 DEF FN LI(O) - ( I NT ( PDL (0) / 4)): DEF FN RI(Q) - (y + INT ( RND (1) * 6)): RETURN

1105 DEF FN LI(P) - (y + INT ( RND (1) * 6)): DEF FN RI(P) - ( INT ( PDL (1) / 4)): RETURN

1110 DEF FN Ll(P) - ( INT ( PDL (0) / 4)): DEF FN RI(P) - ( INT ( PDL (1) / 4)): RETURN 1115 DEF FN LI(P) - (y + INT ( RND (1) * 6)): DEF FN RI(P) - (y + INT ( RND (1) * 6)): RETURN

1120 COLOR- 0: FOR s - X -4 TO X + 4: PLOT s,y TO s,y + 12: NEXT s

1123 COLOR- 5

10*

275


1125 PLOT X,Y TO X,Y + 7 TO X-2.Y+9T0X-2,

Y+ 12: PLOT X + 2,Y + 12 TO X + 2,Y + 9 TO X,Y + 7: PLOT X - 4,Y

t 6 TO X - 2,Y * t TO X+2.Y+4T0X+4,

Y+ 6: PLOT X - 1,Y TO X - 1 ,Y + 2: PLOT X ♦

1 ,Y TO X + 1,Y + 2 1130 RETURN

1140 COLOR- 0: FOR S - X -4 TO X + 4: PLOT S,Y -2 TO S,Y + 12: NEXT S

1145 COLOR- l: PLOT X - 3 ,YT0X+3,YT0X+ 3,Y+4TOX-3,Y+ 4 TO X - 3,Y: PLOT X -4,Y+6T0X*4,Y+ 6T0X+4.Y+9T0X

- 4 ,Y + 9 TO X - 4,Y

♦ 6

1150 RETURN

Программа "Болгарский вальс

5 HOME

10 RIBBON- 3

17 VTAB (12)! HTAB (9)! PRINT

БОЛГАРСКИЙ ВАЛЬС" 20 DIM UU40) ,P(140) 30 DATA 173,4В,192,136,

20B ,3,206,1,3,240,9,2

02,20В,245,174,0,3,76

,2,3,96,,0 40 FOR X - 770 TO 792 50 READ Y 60 POKE X,Y 70 NEXT X 80 REM ВЫСОТА 90 DATA 128,102,B5,64,51 ,

42,45,42,45,42,64,51 100 DATA B5,85,76,6В,64,

57,51,57,48,51,57,64 110 DATA 68,42,45,48,51,

54,57,60,64,68,72,76 120 DATA 76,B5,92,85,76,В

5,6B,76,85,96,102,114 130 DATA 12B,102,B5,64,5

1,42,45,42,45,46,64,5

1

140 DATA 85,85,76,68,64,5 7,51,57,4В,51,57,64

150 DATA 6B,42,45,48,51,5 4,57,60,64,6В,72,76

160 DA*A 76,B5,92,B5,76,B 5,6B, 76,B5,96,102,114

170 DATA 12B,102,B5,64,5 1 ,42,48,57,68,B5,96,1 14

180 DATA 128,102,B5,64,51 ,42,48,57,6B,B5,96 ,11 4

190 DATA 12B,102,B5,64,51 ,42,32,64,42,85,51,10 2,64,1,25,1,64

200 REM ПРОДОЛЖИТЕЛЬНОСТЬ 210 DATA 50,50,50,50,50, 50,50,50,50,50,50,50, 50 ,50 ,50 ,50 ,50 ,50 ,50 , 50

220 DATA 50,50,50,50,50,5 0,50,50,50,50,50,50,5 0 ,50 ,50 ,50 ,50 ,50 ,50 ,5

0

230 DATA 50,50,50,50,50, 50,50,50,50,50,50 ,50 , 50 ,50,50 ,50 ,50,50 ,50 , 50

240 DATA50,50,50,50,

50,50,50,50,50,50,50, 50,50,50,50,50,50,50, 50,50

250 DATA 50,50,50,50,5 0,50,50,50,50,50,50,5 0,50,50,50,50,50,50,5 0,50

253 DATA50,50,50,50,

50,50,50,50,50,50,50, 50,50,50,50,50,50,50, 50,50

256 DATA 50,50,50,50,50,5 0,50,50,50,50,50 ,50 ,1 BO,100,1 BO,100,254

260 FOR N - 1 TO 137

270 READ WIN)

280 NEXT N

290 FOR N - 1 TO 137

300 READ PIN)

310 NEXT N

320 FOR N - 1 TO 137

330 POKE 768,WIN)

340 POKE 769,PIN)

350 CALL 770

360 NEXT N

365 WAIT 1000,255

370 RUN


5D*» CHR* <4): PRINT CHR* <4)"CATALOG":В = PEEK <37> - 2: IF В 5 22 THEN В - 22

90 PRINT CHR* <4))"MAXFI

LES I" 95 ONERR GOTO 90 100 TEXT= 10: PRINT CHR* ( 12)

105 0* - CHR* <4>: PRINT

CHR* <4)"CATALOG":В -PEEK <37) - 2: IF В > 22 THEN В » 22 110 T • 0:H = -4: FOR V « 4 TO 30: GOSUB 1000: IF E < > 32 THEN POKE P - 2,219: POKE P,T + 193: POKE P + 2,221:T

-T + 1:S - V 115 RIBBON" 2

120 NEXT V: VTAB 32:A* "RUN LOAD 1 L0CK2 UNLO CK3 DEL4..." 130 B* = "RUN": HTAB 1: PRINT LEFT* (A*,38)}:A* « MID* <A*,2> + LEFT* (A*,1):K = PEEK < -16384): IF К < 128 THEN FOR К = 1 TO 75: NEXT К:К = FRE < 0): GOTO 130

140 POKE - 1636B,0:K « К

-176: IF К < 1 OR K > 6 THEN 300

200 HTAB 1: CALL - 868: IF К = 6 THEN END

210 PRINT "PRESSLETTERY OU WISH TO "I: IF К = 1 THEN B* = "LOAD"

220 IF К « 2 THEN B* - "L OCK"

230 IF К 3 THEN B* - "U NLOCK"

240 IF К = 4 THEN B* - "D

ELETE": FLASH 245 IF K = 5 THEN NORMAL

: RUN

250 PRINT B*J: GET К*:K =

ASC <K*> - 48 300 IF К < 17 OR К) H ♦

16 THEN 130 305 NORMAL*

310 H « 1IV - S - T ♦ K -

16: GOSUB 1000: IF F = 194 AND <B* = "RUN" OR B* = "LOAD") THEN B* = "B" ♦ B* 320 FOR H = 8.TO 58 STEP 2: GOSUB 1000:B* = B* ♦ CHR* <E): NEXT H: HTAB 1: CALL - 868: PRINT B*i PRINT D*$B

*: GOTO 100

1000 С = INT <V / 8):Q =

V:P = 20480 + 64 * 0 + 64*l+H:P=P+4: E « PEEK <P):F = PEEK <P - 3):

1005 POKE <P + 1),*29

1010 RETURN



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