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

Text File | 1988-12-02 | 2.4 KB | 90 lines

* CK44.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:CKK88
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,15 SAY "`@D  ▓╓ ┐Γ ╣▄ └φ ═│ ╝╞ ▒¿ ▒φ@A`"
@3,2 SAY NAME
@3,75 SAY "`@I`╡Ñ╬╗:      ╘¬"
@4,1 SAY "⌐│⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╙⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╙⌐Ñ⌐Ñ⌐Ñ⌐╙⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╙"
@4,53 SAY "⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╙⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╙⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╖"
@5,1 SAY "⌐º   ▓·  ╞╖  ├√  │╞   ⌐ª╣µ╕±╨═║┼⌐ª╡Ñ  ╬╗⌐ª╚δ┐Γ╩²┴┐⌐º"
@5,53 SAY "╚δ┐Γ╡Ñ╝█⌐ª ╚δ┐Γ╫▄╝█ ⌐ª  ▒╕    ╫ó  ⌐º"
@6,1 SAY "⌐─⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α"
@6,53 SAY "⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╠"
S=S+1
ENDIF
R=PROW()+1
@R,1 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+1,1 SAY "⌐─⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α"
@R+1,53 SAY "⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╠"
IF .NOT.EOF()
SKIP
ENDIF
IF S=8
H=PROW()+1
@H,1 SAY "⌐º                    ⌐ª        ⌐ª      ⌐ª        ⌐ª"
@H,53 SAY "        ⌐ª          ⌐ª            ⌐º"
@H+1,1 SAY "⌐╗⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█"
@H+1,53 SAY "⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐┐"
@H+2,10 SAY "`@I`▒α╓╞╚╒╞┌     ─Ω   ╘┬   ╚╒"
@H+2,50 SAY "▒α╓╞╚╦              ╕║╘≡╚╦`@A`"
? " "
S=0
SET PRINT OFF
SET DEVICE TO SCREEN
WAIT "          ╜½┤≥╙í╓╜╫╝▒╕║├,░┤╚╬╥╗╝ⁿ╝╠╨° !"
ELSE
S=S+1
ENDIF
ENDDO
IF S>0
DO WHILE S<9
R1=PROW()+1
@R1,1 SAY "⌐º                    ⌐ª        ⌐ª      ⌐ª        ⌐ª"
@R1,53 SAY "        ⌐ª          ⌐ª            ⌐º"
@R1+1,1 SAY "⌐─⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α"
@R1+1,53 SAY "⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╠"
S=S+1
ENDIF
ENDDO
Q=PROW()+1
@Q,1 SAY    "⌐º    ║╧   ╝╞   ╩²    ⌐ª        ⌐ª      ⌐ª        ⌐ª        ⌐ª"
@Q,63 SAY AA PICT "9999999.99"
@Q,73 SAY "⌐ª            ⌐º"
@Q+1,1 SAY "⌐╗⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█"
@Q+1,53 SAY "⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐┐"
@Q+2,10 SAY "`@I`▒α╓╞╚╒╞┌     ─Ω   ╘┬   ╚╒"
@Q+2,50 SAY "▒α╓╞╚╦              ╕║╘≡╚╦`@A`"
? ' '
F1=F1+1
ENDDO
SET PRINT OFF
SET DEVICE TO SCREEN
RETURN