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

Text File | 1979-12-31 | 1.8 KB | 83 lines

clear
set talk off
set device to screen
clos data
use xs
a1=.t.
do while a1
clear
k1=' '
k2='  '
k3='     '
k4='     '
k5='     '
k6='     '
k7='     '
k8='     '
k9='     '
k10='        '
k11='        '
k12='        '
k13='        '
k14='        '
k15='        '
k16='        '
k17='     '
a2=.t.
do while a2
clear
@ 0,1 say "╨▐└φ└α▒≡(┤≤╨▐ú▒ú¼╓╨╨▐ú▓ú¼╨í╨▐ú│ú¼╢■▒úú┤)" get k1
@ 0,50 say "╔Φ▒╕└α╩⌠" get k2
@ 1,1 say "╟»╣ñ╣ñ╩▒ú»ú╞╗·" get k3 pict '##.##'
@ 1,50 say "╡τ╣ñ╣ñ╩▒ú»ú╞╡τ" get k4 pict '##.##'
@ 2,1 say "╞≡╓╪╣ñ╩▒ú»ú╞╞≡╓╪" get k5 pict '##.##'
@ 2,50 say "║╕╣ñ╣ñ╩▒ú»ú╞║╕" get k6 pict '##.##'
@ 3,1 say "╣▄╣ñ╣ñ╩▒ú»ú╞╣▄"get k7 pict '##.##'
@ 3,50 say "╗·╝╙╣ñ╣ñ╩▒ú»ú╞╗·╝╙" get k8 pict '##.##'
@ 4,1 say "╞Σ╦ⁿ╣ñ╩▒ú»ú╞╞Σ╦ⁿ" get k9 pict '##.##'
@ 4,50 say "═ú╨¬╠∞╩²ú»ú╞╗·" get k17 pict '###.#'
@ 5,1 say "╘¬ú»ú╞╗·" get k10 pict '#####.##'
@ 5,50 say "╘¬ú»ú╞╡τ" get k11 pict '#####.##'
@ 6,1 say "╘¬ú»ú╞╞≡╓╪" get k12 pict '#####.##'
@ 6,50 say "╘¬ú»ú╞║╕" get k13 pict '#####.##'
@ 7,1 say "╘¬ú»ú╞╣▄" get k14 pict '#####.##'
@ 7,50 say "╘¬ú»ú╞╗·╝╙" get k15 pict '#####.##'
@ 8,1 say "╘¬ú»ú╞╞Σ╦ⁿ" get k16 pict '#####.##'
read
wait "╩Σ╚δ╡─╩²╛▌ú║╒²╚╖ú┌ú¼╓╪╨▐╕─ú╪ú¼╖╡╗╪ú╥ú║" to w
do case
case w='r'
retu
case w='x'
loop
case w='z'
k3=val(k3)
k4=val(k4)
k5=val(k5)
k6=val(k6)
k7=val(k7)
k8=val(k8)
k9=val(k9)
k10=val(k10)
k11=val(k11)
k12=val(k12)
k13=val(k13)
k14=val(k14)
k15=val(k15)
k16=val(k16)
k17=val(k17)
appe blank
repl xs17 with k1,xs16 with k2,xs1 with k3,xs2 with k4,xs3 with ì
k5,xs4 with k6,xs5 with k7,xs6 with k8,xs7 with k9,xs8 with k10
repl xs10 with k11,xs11 with k12,xs12 with k13,xs13 with k14,xs14 ì
with k15,xs15 with k16,xs9 with k17
endcase
exit
enddo a2
wait '╗╣╩Σ╚δ┬≡ú¿ú┘ú»ú╬ú⌐' to w
if w<>'y'
clos data
retu
endif
enddo a1