Liren Large Software Subsidy 6/06.iso/b/b077/1.img/SBGL.ZIP/QTF.PRG

Text File | 1979-12-31 | 511 b | 26 lines

STORE 'y' TO C
k1='     '
k2=000.0
k3=000.0
k4=000.0
k5=000.0
k6=000.0
k7=000.0
USE DE
DO WHILE .NOT. C='n'
CLEAR
@ 2,10 SAY '╔Φ▒╕╨═║┼' GET k1
@ 2,40 SAY 'ú╞╞≡╓╪' GET k3 pict '###.#'
@ 3,10 SAY 'ú╞║╕' GET k4 pict '###.#'
@ 3,40 SAY 'ú╞╣▄' GET k5 pict '###.#'
@ 4,10 SAY 'ú╞╗·╝╙' GET k6 pict '###.#'
@ 4,40 SAY 'ú╞╞Σ╦ⁿ' GET k7 pict '###.#'
READ
APPE BLAN
REPL DE1 WITH K1,DE5 WITH K3,DE6 WITH K4,DE7 WITH K5,DE8 WITH ì
K6,DE11 WITH K7
@ 8,25 SAY '╗╣╝╠╨°╩Σ╚δ┬≡ ?' GET C
READ
ENDDO
RETURN