Подпрограмма рисования слона - QBasic

'AUTHOR=VELVET1545@MAIL.RU++89083857555
'CODENAME=WORK00B5.BAS
'USERNAME=SLONIC2
'MAKETIME=27052011/14.32
'REMAKETIME=01062011/15.00 [258 - 264]
 
SCREEN 9'or 12
I = 2
 
258 n8 = 8: VR = 0
259 var% = 1''or var=2 or luboi nomer cveta nprmr 7 or 8
260 ''registrbi palitrbi cerez portbi vvoda\vbivoda
261 OUT &H3C8, VR
262 OUT &H3C9, &HFE
263 OUT &H3C9, &H1F
264 OUT &H3C9, &H8F
 
J: U$ = INKEY$
CLS
J = INT(RND * 444)
K = INT(RND * 155)
GOSUB DRWSLONIC
SLEEP 1
IF U$ = "" THEN GOTO J
 
 
SLEEP 99
SYSTEM
 
DRWSLONIC:
 
CIRCLE (61 + J, 87 + K), 87 - 36, I, 0, 6.28, 1
PAINT (61 + J, 87 + K), n8, 2
 
CIRCLE (118 + J, 69 + K), 67 - 31, I, 0, 6.28, 1
PAINT (118 + J, 87 + K), 7, 2
 
CIRCLE (152 + J, 67 + K), 67 - 31, I, 0, 6.28, 1
PAINT (162 + J, 67 + K), n8, 2
 
LINE (16 + J, 72 + K)-(8 + J, 82 + K), I
LINE (8 + J, 82 + K)-(7 + J, 92 + K), I
LINE (7 + J, 92 + K)-(2 + J, 101 + K), I
 
FOR XX = 1 TO 8
CIRCLE (171 + J, 57 + K), XX, 0, 0, 6.28, 1
NEXT XX
 
LINE (166 + J, 45 + K)-(174 + J, 46 + K), 1
LINE (175 + J, 53 + K)-(173 + J, 63 + K), 1
 
CIRCLE (161 + J, 100 + K), 20, I, 4.7, 1.6, 1
CIRCLE (163 + J, 118 + K), 20, I, 1.6, 4.7, 1
LINE (161 + J, 80 + K)-(161 + J, 138 + K), I
PAINT (161 + 5 + J, 100 + 15 + K), 7, 2
PAINT (163 - 5 + J, 118 - 15 + K), 7, 2
 
 
CIRCLE (44 + J, 133 + K), 25, I, 0, 6.28, 1
CIRCLE (99 + J, 130 + K), 25, I, 0, 6.28, 1
PAINT (44 + 5 + J, 133 + 15 + K), 7, 2
PAINT (99 - 5 + J, 130 + 15 + K), 7, 2
 
CIRCLE (44 + J, 158 + K), 25, I, 6.1, 3.35, 1
CIRCLE (99 + J, 158 + K), 25, I, 6.1, 3.35, 1
LINE (20 + J, 163 + K)-(67 + J, 163 + K), I
LINE (74 + J, 163 + K)-(122 + J, 163 + K), I
 
PAINT (44 + J, 158 + 3 + K), n8, 2
CIRCLE (99 + J, 158 + 3 + K), 1
PAINT (99 + J, 158 + 3 + K), n8, 2
 
RETURN