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

Text File | 1980-01-01 | 1.7 KB | 74 lines

clear
set talk off
set device to screen
clos data
use xs
a1=.t.
do while a1
clear
a=' '
b='  '
@ 3,10 say "╟δ╩Σ╚δú║"
@ 4,10 say "╨▐└φ└α▒≡ú¿┤≤╨▐ú▒ú¼╓╨╨▐ú▓ú¼╨í╨▐ú│ú¼╢■▒úú┤ú⌐" get a
@ 5,10 say "╔Φ▒╕└α╩⌠║┼" get b
read
loca for xs17=a .and. xs16=b
k1=xs17
k2=xs16
k3=xs1
k4=xs2
k5=xs3
k6=xs4
k7=xs5
k8=xs6
k9=xs7
k10=xs8
k11=xs10
k12=xs11
k13=xs12
k14=xs13
k15=xs14
k16=xs15
k17=xs9
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'
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