dgrigorev/gw-basic-cpp: Переписанный на современный лад интерпретатор GW-BASIC

examples/easter.bas
142 строки3 KB
dagrigorev
first commit
21 апр 2026, 23:47
21 апр 2026, 23:47514b2f2
10 SCREEN 2: CLS
20 KEY OFF: COLOR 15, 0

30 REM BACKGROUND
40 LINE (0,0)-(639,199), 1, BF

50 REM SNOW GROUND
60 LINE (0,150)-(639,199), 15, BF

70 REM TITLE
80 LOCATE 2, 28: PRINT "HAPPY EASTER!"
90 LOCATE 4, 20: PRINT "Peace, warmth, light and spring"

100 REM EASTER EGGS
110 GOSUB 1000
120 GOSUB 1100
130 GOSUB 1200

140 REM CANDLES
150 GOSUB 2000
160 GOSUB 2200
170 GOSUB 2400

180 REM SNOWMAN
190 GOSUB 3000

200 REM STARS / SNOW
210 FOR I = 1 TO 50
220 X = INT(RND * 640)
230 Y = INT(RND * 140)
240 PSET (X,Y), 15
250 NEXT I

260 LOCATE 24, 24: PRINT "GW-BASIC Easter Card"
270 END

1000 REM EGG 1
1010 CIRCLE (140,135), 14, 4
1020 PAINT (140,135), 4, 4
1030 LINE (132,128)-(148,128), 14
1040 LINE (132,135)-(148,135), 14
1050 LINE (132,142)-(148,142), 14
1060 RETURN

1100 REM EGG 2
1110 CIRCLE (180,138), 14, 13
1120 PAINT (180,138), 13, 13
1130 CIRCLE (180,132), 4, 15
1140 PAINT (180,132), 15, 15
1150 CIRCLE (174,140), 3, 10
1160 PAINT (174,140), 10, 10
1170 CIRCLE (186,140), 3, 10
1180 PAINT (186,140), 10, 10
1190 RETURN

1200 REM EGG 3
1210 CIRCLE (220,135), 14, 12
1220 PAINT (220,135), 12, 12
1230 LINE (212,126)-(228,144), 15
1240 LINE (228,126)-(212,144), 15
1250 RETURN

2000 REM CANDLE 1 BODY
2010 LINE (300,105)-(314,150), 15, BF
2020 LINE (300,105)-(314,150), 8, B
2030 REM FLAME
2040 CIRCLE (307,98), 5, 14
2050 PAINT (307,98), 14, 14
2060 CIRCLE (307,100), 2, 4
2070 PAINT (307,100), 4, 4
2080 RETURN

2200 REM CANDLE 2 BODY
2210 LINE (330,95)-(344,150), 12, BF
2220 LINE (330,95)-(344,150), 8, B
2230 REM FLAME
2240 CIRCLE (337,88), 5, 14
2250 PAINT (337,88), 14, 14
2260 CIRCLE (337,90), 2, 4
2270 PAINT (337,90), 4, 4
2280 RETURN

2400 REM CANDLE 3 BODY
2410 LINE (360,110)-(374,150), 10, BF
2420 LINE (360,110)-(374,150), 8, B
2430 REM FLAME
2440 CIRCLE (367,103), 5, 14
2450 PAINT (367,103), 14, 14
2460 CIRCLE (367,105), 2, 4
2470 PAINT (367,105), 4, 4
2480 RETURN

3000 REM SNOWMAN
3010 REM LOWER BODY
3020 CIRCLE (500,145), 26, 15
3030 PAINT (500,145), 15, 15

3040 REM MIDDLE BODY
3050 CIRCLE (500,112), 20, 15
3060 PAINT (500,112), 15, 15

3070 REM HEAD
3080 CIRCLE (500,85), 15, 15
3090 PAINT (500,85), 15, 15

3100 REM EYES
3110 CIRCLE (494,82), 1, 0
3120 PAINT (494,82), 0, 0
3130 CIRCLE (506,82), 1, 0
3140 PAINT (506,82), 0, 0

3150 REM NOSE
3160 LINE (500,86)-(510,89), 4
3170 LINE (500,87)-(510,89), 4

3180 REM MOUTH
3190 PSET (495,92), 0
3200 PSET (498,94), 0
3210 PSET (502,94), 0
3220 PSET (505,92), 0

3230 REM BUTTONS
3240 CIRCLE (500,108), 2, 0
3250 PAINT (500,108), 0, 0
3260 CIRCLE (500,118), 2, 0
3270 PAINT (500,118), 0, 0
3280 CIRCLE (500,145), 2, 0
3290 PAINT (500,145), 0, 0

3300 REM ARMS
3310 LINE (480,112)-(450,95), 6
3320 LINE (520,112)-(548,95), 6
3330 LINE (450,95)-(442,88), 6
3340 LINE (450,95)-(440,98), 6
3350 LINE (548,95)-(556,88), 6
3360 LINE (548,95)-(558,99), 6

3370 REM HAT
3380 LINE (486,63)-(514,74), 0, BF
3390 LINE (480,74)-(520,78), 0, BF

3400 RETURN