Liren Large Software Subsidy 6/06.iso/b/b034/ck.img/S5/CK41.PRG

Text File | 1988-12-02 | 3.5 KB | 111 lines

* CK41.PRG ┤≥╙í 2.13A╧╡═│
USE &P0:CK0
NAME=NAM
USE
CLEAR
@4,14 SAY "========================================"
@5,25 SAY "┤≥╙í▓╓┐Γ╣▄└φ┐Γ┤µ▒¿▒φ"
@6,14 SAY "========================================"
INPUT "             ┤≥╙í╝╕╖▌ú¿╚τú▒ú░ú⌐----" TO FEN
WAIT "        ╟δ╜½┤≥╙í╗·╫╝▒╕║├,░┤╚╬╥╗╝ⁿ╝╠╨° !"
CLEAR
@6,18 SAY "╒²╘┌┤≥╙í,╟δ╔╘║≥ !"
F1=0
USE &P0:CK88
SUM ALL C08 TO AA
DO WHILE F1<FEN
SET DEVICE TO PRINT
SET PRINT ON
S=0
GO TOP
DO WHILE .NOT.EOF()
IF S=0
@1,55 SAY "`@D   ▓╓ ┐Γ ╣▄ └φ ┐Γ ┤µ ▒¿ ▒φ@A`"
@3,2 SAY NAME
@3,135 SAY "`@I`╡Ñ╬╗:      ╘¬"
@4,1 SAY "⌐│⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╙⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╙⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╙⌐Ñ⌐Ñ⌐Ñ⌐╙⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╙"
@4,53 SAY "⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╙⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╙⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╙⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╙⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╙"
@4,113 SAY "⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╙⌐Ñ⌐Ñ⌐Ñ⌐╙⌐Ñ⌐Ñ⌐Ñ⌐╙⌐Ñ⌐Ñ⌐Ñ⌐╙⌐Ñ⌐Ñ⌐Ñ⌐╖"
@5,1 SAY "⌐º▓·╞╖┤·┬δ⌐ª ▓·╞╖├√│╞ ⌐ª╣µ╕±╨═║┼⌐ª╡Ñ  ╬╗⌐ª╚δ┐Γ╩²┴┐⌐º"
@5,53 SAY "╚δ┐Γ╡Ñ╝█⌐ª ╚δ┐Γ╫▄╝█ ⌐ª╚δ┐Γ╚╒╞┌⌐ª ╔·  ▓·  ╡Ñ  ╬╗ ⌐ª╗⌡ ╬╗ ║┼⌐ª"
@5,113 SAY "│÷│º╚╒╞┌⌐ª▒ú╣▄╘▒⌐ª╝∞╤Θ╘▒⌐ª║╧╕±╖±⌐ª╩╒┴╧╚╦⌐º"
@6,1 SAY "⌐─⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α"
@6,53 SAY "⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α"
@6,113 SAY "⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐╠"
S=S+1
ENDIF
R=PROW()+1
@R,1 SAY "⌐º"+C01+"⌐ª"
@R,13 SAY C02+"⌐ª"
@R,25 SAY C03+"⌐ª"
@R,35 SAY C04+"⌐ª"
@R,43 SAY C06 PICT "99999.99"
@R,51 SAY "⌐ª"
@R,53 SAY C07 PICT "99999.99"
@R,61 SAY "⌐ª"
@R,63 SAY C08 PICT "9999999.99"
@R,73 SAY "⌐ª"
@R,75 SAY C09
@R,83 SAY "⌐ª"
@R,85 SAY C11+"⌐ª"
@R,103 SAY C10+"⌐ª"
@R,113 SAY C14
@R,121 SAY "⌐ª"
@R,123 SAY C17+"⌐ª"
@R,131 SAY C18+"⌐ª"
@R,139 SAY C19+"⌐ª"
@R,147 SAY C16+"⌐º"
@R+1,1 SAY "⌐─⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α"
@R+1,53 SAY "⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α"
@R+1,113 SAY "⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐╠"
IF .NOT.EOF()
SKIP
ENDIF
IF S=12
H=PROW()+1
@H,1 SAY "⌐º        ⌐ª          ⌐ª        ⌐ª      ⌐ª        ⌐ª"
@H,53 SAY "        ⌐ª          ⌐ª        ⌐ª                ⌐ª        ⌐ª"
@H,113 SAY "        ⌐ª      ⌐ª      ⌐ª      ⌐ª      ⌐º"
@H+1,1 SAY "⌐╗⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█"
@H+1,53 SAY "⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█"
@H+1,113 SAY "⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐┐"
@H+2,15 SAY "`@I`▒α╓╞╚╒╞┌     ─Ω   ╘┬   ╚╒"
@H+2,90 SAY "▒α╓╞╚╦                               ╕║╘≡╚╦`@A`"
? " "
S=0
SET PRINT OFF
SET DEVICE TO SCREEN
WAIT "          ╜½┤≥╙í╓╜╫╝▒╕║├,░┤╚╬╥╗╝ⁿ╝╠╨° !"
ELSE
S=S+1
ENDIF
ENDDO
IF S>0
DO WHILE S<13
R1=PROW()+1
@R1,1 SAY "⌐º        ⌐ª          ⌐ª        ⌐ª      ⌐ª        ⌐ª"
@R1,53 SAY "        ⌐ª          ⌐ª        ⌐ª                ⌐ª        ⌐ª"
@R1,113 SAY "        ⌐ª      ⌐ª      ⌐ª      ⌐ª      ⌐º"
@R1+1,1 SAY "⌐─⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α"
@R1+1,53 SAY "⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α"
@R1+1,113 SAY "⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐╠"
S=S+1
ENDIF
ENDDO
Q=PROW()+1
@Q,1 SAY "⌐º║╧ ╝╞ ╩²⌐ª          ⌐ª        ⌐ª      ⌐ª        ⌐ª        ⌐ª"
@Q,63 SAY AA PICT "9999999.99"
@Q,73 SAY "⌐ª        ⌐ª                ⌐ª        ⌐ª        ⌐ª      ⌐ª"
@Q,137 SAY "⌐ª      ⌐ª      ⌐º"
@Q+1,1 SAY "⌐╗⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█"
@Q+1,53 SAY "⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█"
@Q+1,113 SAY "⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐┐"
@Q+2,15 SAY "`@I`▒α╓╞╚╒╞┌     ─Ω   ╘┬   ╚╒"
@Q+2,90 SAY "▒α╓╞╚╦                               ╕║╘≡╚╦`@A`"
? ' '
F1=F1+1
ENDDO
SET PRINT OFF
SET DEVICE TO SCREEN
RETURN