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

Text File | 1980-01-01 | 3.6 KB | 167 lines

* ╣·╝╥╛¡╬»╔Φ▒╕╞└╙┼▒φ
CLEAR
ACCEPT '          ╩╟╖±╓╪╨┬╩Σ╚δ╩²╛▌(Y/N)? :' TO GY
IF GY='Y'.OR.GY='y'
USE JSJ2
CLEAR
@ 1,17 SAY '╟δ ╩Σ ╚δ ╧┬ ┴╨ ╩² ╛▌ :'
@ 3,6 SAY '╜¿ │º ╩▒ ╝Σ     :' GET PY1
@ 4,6 SAY '╚½│º╓░╣ñ╫▄╚╦╩²  :' GET PY2
@ 5,6 SAY '╚½│º╔·▓·╣ñ╚╦╩²  :' GET PY3
@ 6,6 SAY '╚½│º╬¼╨▐╣ñ╚╦╩²  :' GET PY4
@ 7,6 SAY '╬¼╨▐╣ñ╚╦╞╜╛∙╡╚╝╢:' GET PY5
@ 3,42 SAY '╔Φ▒╕╣▄└φ(╗·╢»)╧╡═│ :'
@ 4,46 SAY '╫▄ ╚╦ ╩²  :' GET PY6
@ 5,46 SAY '┤ª┐╞╩╥╚╦╩²:' GET PY7
@ 6,46 SAY '╣ñ│╠╩ª╚╦╩²:' GET PY8
READ
S1='                                                      '
S2=S1
S3=S1
S4=S1
S5=S1
S6=S1
S7=S1
S8=S1
SET FORMAT TO JSSR1
READ
USE JSJ3
A=1
B=2
DO WHILE A<=8
DO WHILE B<=3
C='LD'+STR(B,1)
D='S'+STR(A,1)
REPL &C WITH &D
A=A+1
B=B+1
ENDDO
B=2
SKIP
ENDDO
CLOSE FORMAT
DO GJPYS
ENDIF
SET DEVICE TO PRINT
P=1
@ P,0 SAY CHR(27)+'I'+CHR(68)
@ P+1,44 SAY '╞≤ ╥╡ ╕┼ ┐÷ ║═ ╔Φ ▒╕ ╗∙ ▒╛ ╟Θ ┐÷ '
@ P+2,41 SAY '--------------------------------------'
@ P+3,0 SAY CHR(27)+'I'+CHR(66)
P=P+5
RESTORE FROM CM ADDITIVE
@ P,4 SAY '╠ε▒¿╡Ñ╬╗ : '+QYM
@ P,109 SAY '╠ε▒¿╚╒╞┌ : '+P100
P=P+1
@ P+1,1 SAY ì
'|ú■ú■ú■ú■ú■ú■ú■ú■|ú■ú■ú■ú■ú■ú■ú■ú■|ú■ú■ú■ú■ú■ú■ú■ú■|ú■ú■ú■ú■ú■ú■ì
ú■ú■|ú■ú■ú■ú■ú■ú■ú■ú■|ú■ú■ú■ú■ú■ú■ú■ú■ú■ú■ú■ú■ú■ú■ú■ú■ú■ú■ú■ú■ú■ú■ì
|'
@ P+2,1 SAY '|                |                |                | ì
               |                |     ▒╛ ╞≤ ╥╡ ╔Φ ▒╕ ╣▄ └φ (╗· ì
╢») ╧╡ ═│     |'
@ P+3,1 SAY '|  ╜¿ │º ╩▒ ╝Σ   | ╚½│º╓░╣ñ╫▄╚╦╩² | ╚½│º╔·▓·╣ñ╚╦╩² | ì
╚½│º╬¼╨▐╣ñ╚╦╩² ì
|╬¼╨▐╣ñ╚╦╞╜╛∙╡╚╝╢|--------------------------------------------|'
@ P+4,1 SAY '|                |                |                | ì
               |                |   ╫▄ ╚╦ ╩²   |  ┤ª┐╞╩╥╚╦╩²  |  ì
╣ñ│╠╩ª╚╦╩²  |'
@ P+5,1 SAY ì
'|----------------|----------------|----------------|-------------ì
---|----------------|--------------|--------------|--------------|ì
'
P=P+6
USE JSJ2
L=1
A=1
@ P,L SAY '|'
DO WHILE A<=8
AA='PY'+STR(A,1)
@ P,L+5 SAY &AA
IF A>5
L=L+15
ELSE
L=L+17
ENDIF
@ P,L SAY '|'
A=A+1
ENDDO
@ P+1,1 SAY ì
'|________________|________________|________________|_____________ì
___|________________|______________|______________|______________|ì
'
P=P+2
USE JSJ3
DO WHILE .NOT.EOF()
@ P,1 SAY '|'
@ P,3 SAY LD1
@ P,18 SAY '|'
@ P,21 SAY LD2
@ P,75 SAY LD3
@ P,131 SAY '|'
SKIP
P=P+1
ENDDO
A=2
@ P,1 SAY ì
'|----------------------------------------------------------------ì
-----------------------------------------------------------------|ì
'
@ P+1,1 SAY '|        ╣╠ ╢¿ ╫╩ ▓· ╟Θ ┐÷ ╧ε ─┐ ─┌ ╚▌        |    '
RESTORE FROM KH ADDITIVE
QJN='╟░ ╚² ─Ω ('+STR(NH,2)+')'
NH=NH+1
@ P+1,52 SAY QJN
@ P+1,68 SAY '|'
QJN='╟░ ╢■ ─Ω ('+STR(NH,2)+')'
NH=NH+1
@ P+1,73 SAY QJN
@ P+1,89 SAY '|'
QJN='╟░ ╥╗ ─Ω ('+STR(NH,2)+')'
NH=NH+1
@ P+1,94 SAY QJN
@ P+1,110 SAY '|'
QJN='╡▒    ─Ω ('+STR(NH,2)+')'
@ P+1,115 SAY QJN
@ P+1,131 SAY '|'
P=P+2
USE JSJ4
DO WHILE .NOT.EOF()
@ P,1 SAY ì
'|---------------------------------------------|------------------ì
--|--------------------|--------------------|--------------------|ì
'
@ P+1,1 SAY '|'
@ P+1,8 SAY SN1
@ P+1,47 SAY '|'
IF RECNO()=11.OR.RECNO()=12.OR.RECNO()=14
@ P+1,50 SAY INT(SN2)
@ P+1,68 SAY '|'
@ P+1,71 SAY INT(SN3)
@ P+1,89 SAY '|'
@ P+1,92 SAY INT(SN4)
@ P+1,110 SAY '|'
@ P+1,113 SAY INT(SN5)
ELSE
@ P+1,52 SAY SN2
@ P+1,68 SAY '|'
@ P+1,73 SAY SN3
@ P+1,89 SAY '|'
@ P+1,94 SAY SN4
@ P+1,110 SAY '|'
@ P+1,115 SAY SN5
ENDIF
@ P+1,131 SAY '|'
SKIP
P=P+2
ENDDO
@ P,1 SAY ì
'|_____________________________________________|__________________ì
__|____________________|____________________|____________________|ì
'
@ P+1,1 SAY '  '
P=0
SET DEVICE TO SCREEN
RETURN