Примеры программ на языке QBASIC

REM Летающая тарелка
DEFINT A-Z
DIM TARELKA(300)
X = 320: Y = 240
SCREEN 12
'Построение тарелки
CIRCLE (100, 50), 20, 15, , , .4
PAINT (100, 50), 4, 15
CIRCLE (100, 46), 20, 15, 3.3, 0, .3
LINE (107, 44)-(110, 38), 15
CIRCLE (110, 38), 2, 15
LINE (93, 44)-(90, 38), 15
CIRCLE (90, 38), 2, 15
'Запомнили образ
GET (79, 36)-(121, 59), TARELKA
'Стерли
PUT (79, 36), TARELKA, XOR
'Построение звездного неба
FOR I = 0 TO 1000
  PSET (INT(RND * 639) + 1, INT(RND * 479) + 1), INT(RND * 15) + 1
NEXT I
DO WHILE INKEY$ = ""
  PUT (X, Y), TARELKA, XOR
  SOUND 32767, 4.92
  PUT (X, Y), TARELKA, XOR
  DX = INT(RND * 60) + 1: IF DX MOD 2 = 1 THEN DX = -DX
  X = X + DX
  IF X > 590 THEN X = 590
  IF X < 0 THEN X = 0
  DY = INT(RND * 40) + 1: IF DY MOD 2 = 1 THEN DY = -DY
  Y = Y + DY
  IF Y > 450 THEN Y = 450
  IF Y < 0 THEN Y = 0
LOOP
END