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

Text File | 1980-01-01 | 2.9 KB | 131 lines

* ╣·╝╥╛¡╬»┐╝║╦╓╕▒Ω▒¿▒φ φ
CLEAR
N='  '
@ 3,11 SAY '╟δ╩Σ╚δ─Ω╢╚:' GET N PICT '99'
READ
NN=N+'─Ω '
ACCEPT '       ╩╟╖±╓╪╨┬╩Σ╚δ╩²╛▌(Y/N)? :' TO GY
IF GY='Y'.OR.GY='y'
S1='         '
S2='         '
S3='         '
S4='         '
S5='         '
S6='         '
SET FORMAT TO JSSR
READ
s1=val(s1)
s2=val(s2)
s3=val(s3)
s4=val(s4)
s5=val(s5)
s6=val(s6)
USE JSJ
A=1
DO WHILE .NOT. EOF()
B='S'+STR(A,1)
REPL SJ WITH &B
SKIP
A=A+1
ENDDO
CLOSE FORMAT
DO GJKHS
ENDIF
SET DEVICE TO PRINT
P=1
@ P,0 SAY CHR(27)+'I'+CHR(68)
@ P+1,35 SAY NN+'╕≈ ╧ε ╛¡ ╝├ ╝╝ ╩⌡ ╓╕ ▒Ω ╫█ ║╧ ▒¿ ▒φ '
@ P+2,32 SAY ì
'--------------------------------------------------------'
@ P+3,0 SAY CHR(27)+'I'+CHR(74)
P=P+5
RESTORE FROM CM ADDITIVE
@ P,7 SAY '╠ε▒¿╡Ñ╬╗ : '+QYM
@ P,107 SAY '╠ε▒¿╚╒╞┌ : '+p100
P=P+1
@ P+1,4 SAY ì
'|ú■ú■ú■ú■ú■ú■ú■ú■ú■ú■ú■ú■|ú■ú■ú■ú■ú■ú■ú■ú■ú■ú■ú■ú■|ú■ú■ú■ú■ú■ú■ú■ì
ú■ú■ú■ú■ú■|ú■ú■ú■ú■ú■ú■ú■ú■ú■ú■ú■ú■|ú■ú■ú■ú■ú■ú■ú■ú■ú■ú■ú■ú■|'
@ P+2,4 SAY '|  ╣ñ ╥╡ ╫▄ ▓· ╓╡ (═≥╘¬) |   ╔╧ ╜╔ └√ ╦░ (═≥╘¬)   ì
|╚½╘▒└═╢»╔·▓·┬╩(╘¬ú»╚╦─Ω)|  ─Ω│⌡╔Φ▒╕╘¡╓╡  (═≥╘¬)  |  ─Ω─⌐╔Φ▒╕╘¡╓╡ ì
 (═≥╘¬)  |'
@ P+3,4 SAY ì
'|------------------------|------------------------|--------------ì
----------|------------------------|------------------------|'
USE JSJ
L=4
@ P+4,L SAY '|'
DO WHILE .NOT.EOF()
@ P+4,L+9 SAY SJ
L=L+25
@ P+4,L SAY '|'
SKIP
ENDDO
@ P+5,4 SAY ì
'|________________________|________________________|______________ì
__________|________________________|________________________|'
@ P+6,4 SAY '|                          |                         ì
                             |                        |           ì
      |'
@ P+7,4 SAY '|        ╧ε      ─┐        |                    ╣½   ì
       ╩╜                    |        ╩²    ╛▌        |   ╓╕ ▒Ω ì
(úÑ)    |'
P=P+8
USE JSJ1
I=1
DO WHILE .NOT.EOF()
@ P,4 SAY '|                          |                           ì
                           |                        |             ì
    |'
@ P+1,4 SAY ì
'|--------------------------|-------------------------------------ì
-----------------|------------------------|-----------------|'
@ P+2,4 SAY '|                          |                         ì
                             |                        |           ì
      |'
@ P+3,4 SAY SJ1
IF I<>5
IF I=3.OR.I=4
@ P+3,93 SAY INT(SJ2)
ELSE
@ P+3,95 SAY SJ2
ENDIF
ELSE
STORE STR(SJ2,9,2) TO J0
GO BOTTOM
STORE J0+' +'+STR(SJ2,9,2) TO J1
SKIP-3
@ P+3,89 SAY J1
ENDIF
@ P+3,111 SAY '|'
@ P+3,129 SAY '|'
SKIP
@ P+4,4 SAY SJ1
@ P+4,89 SAY '--------------------'
@ P+4,111 SAY '|'
@ P+4,115 SAY SJ2
@ P+4,129 SAY '|'
SKIP
@ P+5,4 SAY SJ1
IF I=3.OR.I=4
@ P+5,93 SAY INT(SJ2)
ELSE
@ P+5,95 SAY SJ2
ENDIF
@ P+5,111 SAY '|'
@ P+5,129 SAY '|'
IF I<>5
SKIP
ELSE
SKIP+2
ENDIF
P=P+6
I=I+1
ENDDO
@ P,4 SAY ì
'|__________________________|_____________________________________ì
_________________|________________________|_________________|'
@ P+1,0 SAY ' '
SET DEVICE TO SCREEN
RETURN