10 REM p171

20 REM Язык GW-Basic
30 REM Живи, Бейсик!
40 REM No input
50 DIM A, B, C
100 REM 171.1.1
110 PRINT "1. Здравствуй, мир!"
120 REM 42.1.2
130 A = 1996
140 PRINT "2. Сейчас" A "год."
150 REM 47.5.3
160 A = 5
170 B = 3.1415926# * 2 * A
180 PRINT "3. Длина окружности радиуса" A "равна" B
190 REM 54.8.4
200 A = 60000!
210 PRINT "4. A =" A
220 REM 69.12.5
230 A = 101 <= 105
240 B = 101 > 105
250 PRINT "5. true " A ", false " B
260 REM 80.1.6
270 FOR A = 0 TO 10000
280 NEXT
290 REM 205.3.7 Текстовый режим
300 INPUT A
310 SCREEN 0
320 CLS
330 C = 0
340 FOR A = 1 TO 2
350 FOR B = 0 TO 24
360 LOCATE A, B * 3 + 1
370 PRINT C
380 C = C + 2
390 NEXT: NEXT
400 REM 210.3.8 Линия -
410 FOR A = 1 TO 80
420 LOCATE 4, A
430 PRINT "-"
440 NEXT
450 REM 50.7.9
460 B = 10
470 FOR A = 0 TO 10
480 LOCATE 6, A * 3 + 1
490 PRINT B
500 B = B - 1
510 NEXT
520 REM 79.1.10
530 FOR A = 0 TO 10
540 LOCATE 7, A * 3 + 1
550 PRINT A
560 NEXT
570 END