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

Text File | 1988-12-02 | 3.2 KB | 105 lines

* CK43.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:CKO
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,35 SAY "`@D    ▓╓ ┐Γ ╣▄ └φ ┴∞ ┴╧ ╡Ñ@A`"
@3,2 SAY NAME
@3,115 SAY "`@I`╡Ñ╬╗:      ╘¬"
@4,1 SAY "⌐│⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╙⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╙⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╙⌐Ñ⌐Ñ⌐Ñ⌐╙⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╙"
@4,63 SAY "⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╙⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╙⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╙⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╙"
@4,117 SAY "⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╙⌐Ñ⌐Ñ⌐Ñ⌐╖"
@5,1 SAY "⌐º▓·╞╖┤·┬δ⌐ª   ▓·  ╞╖  ├√  │╞   ⌐ª╣µ╕±╨═║┼⌐ª╡Ñ  ╬╗⌐ª┴∞╚í╩²┴┐⌐º"
@5,63 SAY "╚δ┐Γ╡Ñ╝█⌐ª ╚δ┐Γ╫▄╝█ ⌐ª┴∞┴╧╚╒╞┌⌐ª  ╔·   ▓·   ╡Ñ   ╬╗ ⌐ª"
@5,117 SAY " ┴∞ ┴╧ ▓┐ ├┼⌐ª╩╒┴╧╚╦⌐º"
@6,1 SAY "⌐─⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α"
@6,63 SAY "⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α"
@6,117 SAY "⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐╠"
S=S+1
ENDIF
R=PROW()+1
@R,1 SAY "⌐º"+C01+"⌐ª"
@R,13 SAY C02+"⌐ª"
@R,35 SAY C03+"⌐ª"
@R,45 SAY C04+"⌐ª"
@R,53 SAY C06 PICT "99999.99"
@R,61 SAY "⌐ª"
@R,63 SAY C07 PICT "99999.99"
@R,71 SAY "⌐ª"
@R,73 SAY C08 PICT "9999999.99"
@R,83 SAY "⌐ª"
@R,85 SAY C14
@R,93 SAY "⌐ª"
@R,95 SAY C11+"⌐ª"
@R,117 SAY C17+"⌐ª"
@R,131 SAY C16+"⌐º"
@R+1,1 SAY "⌐─⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α"
@R+1,63 SAY "⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α"
@R+1,117 SAY "⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐╠"
IF .NOT.EOF()
SKIP
ENDIF
IF S=20
H=PROW()+1
@H,1 SAY "⌐º        ⌐ª                    ⌐ª        ⌐ª      ⌐ª        ⌐ª"
@H,63 SAY "        ⌐ª          ⌐ª        ⌐ª                    ⌐ª"
@H,117 SAY "              ⌐ª      ⌐º"
@H+1,1 SAY "⌐╗⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█"
@H+1,63 SAY "⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█"
@H+1,117 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<21
R1=PROW()+1
@R1,1 SAY "⌐º        ⌐ª                    ⌐ª        ⌐ª      ⌐ª        ⌐ª"
@R1,63 SAY "        ⌐ª          ⌐ª        ⌐ª                    ⌐ª"
@R1,117 SAY "            ⌐ª      ⌐º"
@R1+1,1 SAY "⌐─⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α"
@R1+1,63 SAY "⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α"
@R1+1,117 SAY "⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐╠"
S=S+1
ENDIF
ENDDO
Q=PROW()+1
@Q,1 SAY "⌐º║╧ ╝╞ ╩²⌐ª                    ⌐ª        ⌐ª      ⌐ª        ⌐ª        ⌐ª"
@Q,73 SAY AA PICT "9999999.99"
@Q,83 SAY "⌐ª        ⌐ª                    ⌐ª            ⌐ª      ⌐º"
@Q+1,1 SAY "⌐╗⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█"
@Q+1,63 SAY "⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█"
@Q+1,117 SAY "⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐┐"
@Q+2,15 SAY "`@I`▒α╓╞╚╒╞┌     ─Ω   ╘┬   ╚╒"
@Q+2,90 SAY "▒α╓╞╚╦                               ╕║╘≡╚╦`@A`"
? ' '
F1=F1+1
ENDDO
SET PRINT OFF
SET DEVICE TO SCREEN
RETURN