Програмирование на языке Basic. Федоряка Н.И. - 50 стр.

         LOCATE 10, 15: PRINT "GAME OVER :)"
         END
                LOCATE - перемещает курсор на экране в указанную позицию.
                Пример 4: Идущие часы (входит в состав примеров QBasic 4.5).
                ' *** DRAW_EX.BAS ***
         '
         ' Объявление процедуры.
         DECLARE SUB Face (Min$)
         '
         ' Установка графического режима 640 x 200
         SCREEN 2
         DO
         CLS
         ' Получаем строковое значение количества минут
         Min$ = MID$(TIME$,4,2)
         ' Рисуем изображение часов
         Face Min$
         ' Ждем пока не изменится минута или пока не будет нажата клавиша
         DO
         ' Печатаем время вверху экрана
         LOCATE 2,37
         PRINT TIME$
         ' Проверяем нажатие клавиши
         Test$ = INKEY$
         LOOP WHILE Min$ = MID$(TIME$,4,2) AND Test$ = ""
         ' Конец программы если нажата клавиша
         LOOP WHILE Test$ = ""
         END
         '
         ' Процедура рисования часов
         SUB Face (Min$) STATIC
         LOCATE 23,30
         PRINT "Press any key to end"
         CIRCLE (320,100),175
         ' Преобразовываем строку в число
         Hr = VAL(TIME$)
         Min = VAL(Min$)
         ' Преобразовываем число в угол
         Little = 360 - (30 * Hr + Min/2)
         Big = 360 - (6*Min)
         ' Рисуем стрелки
         DRAW "TA=" + VARPTR$(Little) + "NU40"


         50


PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com