Liren Large Software Subsidy 13/13.iso/p/p190/4.ddi/PRG/DYIN.PRG

Text File | 1980-01-01 | 1.8 KB | 59 lines

SET TALK OFF
STOR .T. TO WW
DO WHIL WW
CLEAR
?"              *****************************"
?"              *  ╟δ╜╙═¿┤≥╙í╗·╡τ╘┤┐¬╣╪úí   *"
?"              *****************************"
STOR " " TO KG
@ 6,20 SAY "┐¬╣╪┤≥┐¬╖±ú¿ú┘ú»ú╬ú⌐ú┐" GET KG
READ
IF UPPER(KG)="N" .OR. UPPER(KG)<>"Y"
? CHR(7),CHR(7)
LOOP
ENDIF
IF UPPER(KG)="Y"
?"                  *****************************"
?"                  *      ░┤╚╬╥Γ╝ⁿ╝┤┐╔┤≥╙í     *"
?"                  *****************************"
WAIT " "
ENDIF
CLEAR
@ 3,32 SAY " *****************************"
@ 4,32 SAY " * ╒²╘┌┤≥╙í╓╨ú¼╟δ╬≡╢»úíúíúí  *"
@ 5,32 SAY " *****************************"
SET PRINT ON
SET DEVICE TO PRINT
? CHR(27)+CHR(73)+CHR(74)
USE SS
STOR 1 TO M
@ M,1 SAY "⌐│⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╙⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╙⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╙⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╙⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╖"
@ M+1,1 SAY "⌐º╗·╨╡╡τ╫╙╣ñ╥╡▓┐⌐ª                  ⌐ª          ⌐ª        ⌐ª  ╡┌    ╥│  ⌐º"
? CHR(27)+CHR(73)+CHR(73)
@ M+2,1 SAY "⌐º              ⌐ª  ▒Ω  ╫╝  ╝■  ▒φ  ⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╠"
? CHR(27)+CHR(73)+CHR(74)
@ M+3,1 SAY "⌐º▒▒╛⌐╗·┤▓╤╨╛┐╦∙⌐ª                  ⌐ª                    ⌐ª  ╣▓    ╥│  ⌐º"
@ M+4,1 SAY "⌐─⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐╪⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐╪⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐╨⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐╠"
@ M+5,1 SAY "⌐º ╣·  ▒Ω   ⌐ª╨═ ║┼ ⌐ª  ├√  │╞  ⌐ª ╣µ  ╕± ⌐ª▓─┴╧⌐ª╩²┴┐⌐ª ┼Σ ╝■ ║┼ ⌐ª▒╕╫ó⌐º"
@ M+6,1 SAY "⌐─⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐╠"
@ M+7,1 SAY "⌐º"+╣·▒Ω+"  ⌐ª"+╨═║┼+"⌐"+├√│╞+"  ⌐"
DO WHIL .T.
SKIP
IF EOF().OR. K=30
@ 1,1 SAY "⌐╗⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐█⌐Ñ⌐Ñ⌐┐"
EXIT
ENDIF
ENDDO
STOR " " TO JX
@ 6,20 SAY "╝╠╨°┤≥╙í╖±ú¿ú┘ú»ú╬ú⌐ú┐" GET JX
READ
IF UPPER(JX)="N" .OR. UPPER(JX)<>"Y"
EXIT
SET PRINT OFF
SET DEVI TO SCRE
ENDIF
ENDDO
RETURN