Жил – был веселый карандаш. Стало ему скучно жить и решил он освоить компьютер, чтобы создавать рисунки с помощью программы Qbasic.
-С ЧЕГО ЖЕ НАЧАТЬ? – ПОДУМАЛ КАРАНДАШ. -СКОРО ЛЕТО, ХОЧЕТСЯ НА МОРЕ… И СОСТАВИЛ КАРАНДАШ ПРОГРАММУ С ПОМОЩЬЮ ОПЕРАТОРОВ LINE,COLOR,PAINT,LINE,CIRCLE,DRAW,PRESET 10 SCREEN 7 11 COLOR 2, 1 12 PRESET (50, 100) 14 DRAW "c6e60c6f60" 15 PRESET (130, 60) 16 DRAW "c6e40c6f40" 17 PRESET (162, 110) 18 DRAW "c6e70c6f75" 19 PRESET (85, 67) 20 DRAW "c6f20c6e10c6r5c6e13" 21 PRESET (140, 50) 22 DRAW "c6f15c6r15c6e23" 23 PRESET (206, 65) 24 DRAW "c6f19c6e25" 25 CIRCLE (30, 35), 15, 1426 PAINT (30, 35), CIRCLE (160, 150), 150, 9,,,.2 28 PAINT (160, 150), 9 29 CIRCLE (25, 140), 25, 2 30 PAINT (25, 140), 2 31 LINE (20, 150)-(30, 200), 6, BF 32 CIRCLE (70, 30), 1, CIRCLE (110, 25), 1, CIRCLE (130, 40), 1, CIRCLE (150, 19), 1, CIRCLE (168, 5), 1, CIRCLE (190, 20), 1, CIRCLE (128, 15), 1, CIRCLE (80, 20), 1, CIRCLE (220, 30), 1, CIRCLE (195, 10), 1, CIRCLE (240, 32), 1, CIRCLE (260, 50), 1, CIRCLE (290, 15), 1, CIRCLE (269, 19), 1, CIRCLE (240, 15), 1, CIRCLE (300, 43), 1, PRESET (25, 65) 49 DRAW "c15e3c15f6c15e6c15f3" 50 PRESET (12, 74) 51 DRAW "c15e2c15f5c15e5c15f2" 52 PRESET (33, 78) 53 DRAW "c15e2c15f4c15e4c15f2" 54 PRESET (130, 115) 55 DRAW "c8r35c8e15c8151c8d15" 56 PRESET (140, 140) 57 DRAW "c12u30c12f25c12125" 58 CIRCLE (135, 148), 3, CIRCLE (163, 148), 3, CIRCLE (149, 148), 3, 12
-А ЕЩЕ Я ЛЮБЛЮ ОТДЫХАТЬ В ДЕРЕВНЕ У БАБУШКИ,-РАЗМЕЧТАЛСЯ КАРАНДАШ. И ОН ИЗМЕНИЛ КООРДИНАТЫ. ПОЛУЧИЛОСЬ: 10 SCREEN 7 11 COLOR 2, 3 12 LINE (170, 120)-(240, 200), 5, BF 13 LINE (170, 120)-(206, 70), 8 14 LINE (206, 70)-(240, 120), 8 15 LINE (206, 70)-(206, 60), 8 16 LINE (206, 60)-(220, 60), 8 17 LINE (220, 60)-(220, 90), 8 18 LINE (200, 150)-(220, 170), 10, BF 19 LINE (210, 150)-(210, 170), 0 20 LINE (200, 160)-(220, 160), 0 21 LINE (170, 170)-(160, 180), 5, BF 22 LINE (170, 180)-(150, 190), 5, BF 23 CIRCLE (70, 60), 30, PAINT (70, 60), CIRCLE (70, 140), 15, 2 26 PAINT (70, 140), 2 27 LINE (65, 153)-(75, 200), 6, BF 28 CIRCLE (60, 155), 15, 2 29 PAINT (60, 155), 2 30 CIRCLE (80, 160), 15, 2 31 PAINT (80, 160), 2 32 CIRCLE (90, 70), 18, 9
-ХОРОШО БЫ ОТДОХНУТЬ С ДРУГОМ,-ВСПОМНИЛ КАРАНДАШ ПРО ЛЮБИМУЮ ЧЕРЕПАХУ. И НАРИСОВАЛ ЕЁ. LINE (160, 80)-(160, 40), 8 LINE (160, 40)-(150, 10), 8 LINE (160, 40)-(130, 40), 8 LINE (160, 40)-(180, 40), 8 LINE (180, 40)-(180, 20), 8 LINE (180, 40)-(200, 70), 8 LINE (200, 70)-(210, 50), 8 LINE (200, 70)-(190, 80), 8 LINE (190, 80)-(180, 90), 8 LINE (180, 90)-(160, 80), 8 LINE (180, 90)-(180, 100), 8 LINE (190, 80)-(210, 90), 8 LINE (210, 90)-(180, 100), 8 LINE (210, 90)-(220, 80), 8 LINE (220, 80)-(200, 70), 8 LINE (200, 70)-(220, 80), 8 LINE (220, 80)-(220, 60), 8 LINE (239, 74)-(239, 76) LINE (239, 76)-(241, 76) LINE (241, 76)-(241, 74) LINE (241, 74)-(239, 74) PRESET (240, 75), 8 LINE (50, 60)-(70, 70), 8 LINE (70, 70)-(50, 90), 8 LINE (70, 70)-(90, 80), 8 LINE (90, 80)-(70, 100), 8 LINE (70, 100)-(80, 100) LINE (80, 100)-(100, 100) LINE (100, 100)-(90, 80), 8 LINE (90, 80)-(90, 40), 8 LINE (90, 80)-(130, 80), 8 LINE (90, 40)-(70, 30), 8 LINE (90, 40)-(110, 30), 8 LINE (110, 30)-(110, 10), 8 LINE (110, 30)-(130, 40), 8 LINE (130, 40)-(130, 80), 8 LINE (130, 80)-(120, 90), 8 LINE (120, 90)-(120, 100), 8 LINE (130, 80)-(140, 80), 8 LINE (140, 80)-(140, 100), 8 LINE (140, 80)-(160, 80), 8 LINE (160, 80)-(170, 100), 8 LINE (220, 90)-(240, 90) LINE (240, 90)-(250, 80) LINE (250, 80)-(250, 70) LINE (250, 70)-(240, 60) LINE (240, 60)-(220, 60) LINE (220, 60)-(210, 50) LINE (210, 50)-(200, 40) LINE (200, 40)-(190, 30) LINE (190, 30)-(180, 20) LINE (180, 20)-(160, 10) LINE (160, 10)-(100, 10) LINE (100, 10)-(80, 20) LINE (80, 20)-(70, 30) LINE (70, 30)-(60, 40) LINE (60, 40)-(50, 50) LINE (50, 50)-(40, 60) LINE (40, 60)-(30, 70) LINE (40, 80)-(50, 60), 8 LINE (50, 60)-(40, 60), 8 LINE (50, 60)-(70, 30), 8 SCREEN 7 COLOR 6, 14 LINE (30, 70)-(40, 80) LINE (40, 80)-(50, 90) LINE (50, 90)-(70, 100) LINE (70, 100)-(80, 100) LINE (80, 100)-(80, 110) LINE (80, 110)-(90, 120) LINE (90, 120)-(100, 120) LINE (100, 120)-(100, 110) LINE (100, 110)-(100, 100) LINE (100, 100)-(180, 100) LINE (180, 100)-(190, 100) LINE (190, 100)-(180, 110) LINE (180, 110)-(170, 120) LINE (170, 120)-(180, 120) LINE (180, 120)-(200, 120) LINE (200, 120)-(210, 110) LINE (210, 110)-(220, 100) LINE (220, 100)-(220, 90)
ПОДУМАЛ ЕЩЕ ЧУТЬ-ЧУТЬ И НАРИСОВАЛ БАБУШКИНУ ЛЮБИМУЮ КОШКУ МУРКУ. SCREEN 7 LINE (130, 10)-(130, 70), 6 LINE (180, 10)-(180, 70), 6 LINE (130, 10)-(150, 30), 6 LINE (180, 10)-(160, 30), 6 LINE (140, 30)-(170, 30), 6 LINE (140, 30)-(130, 40), 6 LINE (170, 30)-(180, 40), 6 LINE (140, 45)-(150, 45), 2 LINE (160, 45)-(170, 45), 2 LINE (140, 45)-(140, 55), 2 LINE (150, 45)-(150, 55), 2 LINE (160, 45)-(160, 55), 2 LINE (140, 55)-(150, 55), 2 LINE (160, 55)-(170, 55), 2 LINE (170, 45)-(170, 55), 2 LINE (150, 60)-(160, 60), 12 LINE (160, 60)-(155, 70), 12 LINE (150, 60)-(155, 70), 12 LINE (145, 65)-(120, 60), 8 LINE (145, 65)-(120, 65), 8 LINE (145, 65)-(120, 70), 8 LINE (165, 65)-(190, 60), 8 LINE (165, 65)-(190, 65), 8 LINE (165, 65)-(190, 70), 8 LINE (155, 70)-(150, 75), 4 LINE (150, 75)-(145, 75), 4 LINE (155, 70)-(160, 75), 4 LINE (160, 75)-(165, 75), 4 LINE (130, 70)-(140, 80), 6 LINE (180, 70)-(170, 80), 6 LINE (140, 80)-(170, 80), 6 LINE (140, 80)-(120, 100), 6 LINE (170, 80)-(190, 100), 6 LINE (120, 100)-(120, 170), 6 LINE (190, 100)-(190, 170), 6 LINE (190, 170)-(200, 180), 6 LINE (120, 170)-(110, 180), 6 LINE (110, 180)-(120, 190), 6 LINE (200, 180)-(190, 190), 6 LINE (120, 190)-(140, 190), 6 LINE (190, 190)-(170, 190), 6 LINE (140, 190)-(150, 170), 6 LINE (170, 190)-(160, 170), 6 LINE (150, 170)-(160, 170), 6 LINE (160, 170)-(160, 130), 6 LINE (150, 170)-(150, 130), 6 LINE (120, 130)-(110, 140), 6 LINE (110, 140)-(110, 180), 6 LINE (200, 140)-(200, 180), 6 LINE (140, 80)-(140, 90), 15 LINE (170, 80)-(170, 90), 15 LINE (140, 90)-(130, 100), 15 LINE (170, 90)-(180, 100), 15 LINE (130, 100)-(140, 110), 15 LINE (180, 100)-(170, 110), 15 LINE (140, 110)-(130, 120), 15 LINE (170, 110)-(180, 120), 15 LINE (140, 120)-(130, 120), 15 LINE (170, 120)-(160, 130), 15 LINE (200, 140)-(210, 130), 6 LINE (200, 170)-(240, 130), 6 LINE (210, 130)-(210, 70), 6 LINE (240, 130)-(240, 80), 6 LINE (240, 80)-(250, 70), 15 LINE (250, 70)-(250, 50), 15 LINE (250, 50)-(230, 50), 15 LINE (230, 50)-(220, 60), 15 LINE (220, 70)-(230, 70), 15 LINE (220, 60)-(210, 70), 6 LINE (230, 80)-(240, 80), 15LINE (200, 140)-(190, 130), 6 LINE (230, 70)-(230, 80), 15 LINE (130, 100)-(140, 110), 15 LINE (180, 100)-(170, 110), 15 LINE (140, 110)-(130, 120), 15 LINE (170, 110)-(180, 120), 15 LINE (140, 120)-(130, 120), 15 LINE (170, 120)-(160, 130), 15 LINE (200, 140)-(210, 130), 6 LINE (200, 170)-(240, 130), 6 LINE (210, 130)-(210, 70), 6 LINE (240, 130)-(240, 80), 6 LINE (240, 80)-(250, 70), 15 LINE (250, 70)-(250, 50), 15 LINE (250, 50)-(230, 50), 15 LINE (230, 50)-(220, 60), 15 LINE (220, 70)-(230, 70), 15 LINE (220, 60)-(210, 70), 6 LINE (230, 80)-(240, 80), 15LINE (220, 70)-(220, 60), 15 LINE (150, 130)-(160, 130), 15 LINE (150, 130)-(140, 120), 15 LINE (180, 120)-(170, 120), 15
-ЕСЛИ БЫ У МЕНЯ БЫЛА МАШИНА, Я БЫ ДОЕХАЛ БЫСТРО-БЫСТРО,-ЗАДУМАЛСЯ КАРАНДАШ. ВЗЯЛ И СОСТАВИЛ ПРОГРАММУ. 0 SCREEN 9 10 COLOR 1, LINE (130, 140)-(20, 150) 30 LINE (10, 230)-(10, 250) 40 LINE (15, 160)-(15, 230) 50 LINE (10, 250)-(30, 250) 60 LINE (30, 250)-(30, 240) 70 LINE (10, 230)-(25, 230) 80 LINE (25, 230)-(30, 240) 90 LINE (15, 165)-(20, 150) 100 LINE (20, 230)-(20, 190) 120 LINE (30, 185)-(90, 185) 130 LINE (130, 150)-(130, 260) 140 LINE (25, 230)-(40, 200) 150 LINE (40, 200)-(80, 200) 160 LINE (80, 200)-(120, 240) 170 LINE (120, 240)-(130, 240) 180 LINE (90, 185)-(130, 230) 190 LINE (20, 150)-(130, 150) 200 LINE (130, 150)-(170, 80) 210 LINE (130, 220)-(270, 220) 220 LINE (130, 260)-(250, 260) 230 LINE (250, 220)-(250, 260) 240 LINE (170, 220)-(170, 240) 250 LINE (170, 240)-(210, 240) 260 LINE (210, 220)-(210, 240) 270 LINE (140, 230)-(150, 230) 280 LINE (140, 230)-(140, 260) 290 LINE (150, 230)-(150, 260) 300 LINE (230, 230)-(240, 230) 310 LINE (230, 230)-(230, 260) 320 LINE (240, 230)-(240, 260) 330 LINE (170, 80)-(280, 80) 340 LINE (280, 80)-(280, 210) 350 LINE (250, 250)-(270, 250) 360 LINE (270, 220)-(280, 210) 370 LINE (170, 80)-(170, 200) 380 LINE (170, 200)-(180, 210) 390 LINE (180, 210)-(260, 210) 400 LINE (260, 210)-(260, 85) 410 LINE (260, 85)-(180, 85) 420 LINE (180, 85)-(170, 90) 430 LINE (180, 90)-(180, 150) 440 LINE (30, 185)-(20, 190) 450 LINE (180, 90)-(240, 90) 460 LINE (240, 90)-(240, 150) 470 LINE (180, 150)-(240, 150) 480 LINE (270, 220)-(270, 250) 490 LINE (230, 160)-(250, 160) 500 LINE (230, 160)-(230, 165) 510 LINE (250, 160)-(250, 165) 520 LINE (230, 165)-(250, 165) 530 LINE (130, 150)-(160, 150) 540 LINE (160, 150)-(170, 145) 550 LINE (245, 100)-(255, 100) 560 LINE (245, 130)-(255, 130) 570 LINE (245, 100)-(245, 130) 580 LINE (255, 100)-(255, 130) 590 LINE (130, 210)-(280, 210) 600 LINE (290, 60)-(300, 60) 610 LINE (290, 60)-(290, 210) 620 LINE (300, 60)-(300, 90) 630 LINE (300, 110)-(300, 200)
640 LINE (300, 110)-(340, 110) 650 LINE (340, 110)-(340, 200) 670 LINE (300, 200)-(340, 200) 680 LINE (370, 215)-(275, 215) 690 LINE (370, 215)-(370, 260) 700 LINE (370, 260)-(270, 260) 710 LINE (310, 240)-(330, 240) 720 LINE (310, 240)-(310, 245) 730 LINE (330, 240)-(330, 245) 740 LINE (330, 245)-(310, 245) 750 LINE (350, 110)-(350, 200) 760 LINE (330, 245)-(310, 245) 770 LINE (350, 110)-(350, 200) 780 LINE (350, 110)-(390, 110) 790 LINE (350, 200)-(390, 200) 800 LINE (390, 110)-(390, 200) 810 LINE (290, 210)-(390, 210) 820 LINE (300, 90)-(390, 90) 830 LINE (370, 250)-(390, 250) 840 LINE (30, 170)-(130, 170) 850 LINE (270, 260)-(270, 250) 860 LINE (30, 170)-(20, 160) 870 CIRCLE (70, 245), 40, CIRCLE (70, 245), 25, LINE (300, 90)-(530, 90) 900 LINE (290, 210)-(600, 210) 910 LINE (480, 250)-(490, 250) 920 LINE (570, 250)-(600, 250) 930 LINE (530, 90)-(530, 80) 940 LINE (530, 80)-(550, 80) 950 LINE (600, 230)-(600, 250) 960 LINE (600, 230)-(610, 230) 970 LINE (610, 230)-(610, 220) 980 LINE (410, 110)-(450, 110) 990 LINE (410, 200)-(410, 110) 1000 LINE (410, 200)-(450, 200) 1010 LINE (450, 110)-(450, 200) 1020 LINE (460, 110)-(500, 110) 1030 LINE (460, 110)-(460, 200) 1040 LINE (460, 200)-(500, 200) 1050 LINE (500, 110)-(500, 200) 1060 LINE (510, 110)-(510, 200) 1070 LINE (510, 110)-(550, 110) 1080 LINE (510, 200)-(550, 200) 1090 LINE (550, 110)-(550, 200) 1100 LINE (600, 210)-(630, 240) 1110 LINE (550, 80)-(630, 240) 1120 CIRCLE (440, 250), 40, CIRCLE (440, 250), 25, CIRCLE (530, 250), 40, CIRCLE (530, 250), 25, 1 Какая большая программа!
-ЕСЛИ НЕ ПОЕДУ НА МОРЕ, ОБЯЗАТЕЛЬНО ПОДНИМУСЬ В ГОРЫ… 30 LINE (50, 60)-(60, 50), LINE (60, 50)-(80, 70), LINE (80, 70)-(90, 50), LINE (90, 50)-(100, 60), LINE (100, 60)-(100, 50), LINE (170, 40)-(170, 50), LINE (170, 50)-(180, 40), LINE (180, 40)-(190, 60), LINE (190, 60)-(200, 40), LINE (200, 40)-(210, 50), LINE (210, 50)-(220, 40), LINE (220, 40)-(230, 60), LINE (230, 60)-(240, 40), LINE (270, 40)-(270, 50), LINE (270, 50)-(280, 40), LINE (280, 40)-(290, 60), LINE (290, 60)-(300, 40), LINE (300, 40)-(310, 50), LINE (310, 50)-(320, 40), LINE (0, 100)-(320, 200), 2, BF 10 SCREEN 7 12 COLOR 2, 8 13 PRESET (0, 90) 14 LINE (0, 90)-(20, 70), 7 15 LINE (20, 70)-(80, 30), 7 16 LINE (80, 30)-(100, 50), 7 17 LINE (100, 50)-(110, 70), 7 18 LINE (110, 70)-(130, 100), 7 19 LINE (110, 70)-(130, 60), 7 20 LINE (130, 60)-(170, 40), 7 21 LINE (170, 40)-(210, 10), 7 22 LINE (210, 10)-(240, 40), 7 23 LINE (240, 40)-(260, 50), 7 24 LINE (220, 100)-(240, 80), 7 25 LINE (240, 80)-(250, 60), 7 26 LINE (250, 60)-(270, 40), 7 27 LINE (270, 40)-(300, 20), 7 28 LINE (300, 20)-(320, 40), 7 29 LINE (50, 50)-(50, 60), 15
НАПУТСТВИЯ КАРАНДАША: «КАК ХОРОШО ЗНАТЬ ЯЗЫКИ ПРОГРАММИРОВАНИЯ. НУЖНО БУДЕТ ОСВОИТЬ ДРУГИЕ ЯЗЫКИ: ФОРТРАН, ПАСКАЛЬ… А ВЫ, РЕБЯТА, НАБЕРИТЕ ЭТИ ОПЕРАТОРЫ САМИ И ПОСМОТРИТЕ, КАКИЕ РИСУНКИ ПОЛУЧИЛИСЬ.» (Мечтать карандашу помогала учитель информатики Куличкова А.Г.)