Liren Large Software Subsidy 6/06.iso/b/b034/gz.img/LYFPB-2.PRG

Text File | 1989-11-08 | 2.0 KB | 60 lines

*└√╚≤╖╓┼Σ╝╞╦π▒φ╫╙│╠╨≥╓«╥╗:LYFPB-1.PRG
set talk off
clear
y=0
@ 10,20 say '╒²╘┌┤≥╙í└√╚≤╖╓┼Σ╝╞╦π▒φ'
@ 11,24 say '╟δ▓╗╥¬░┤╞Σ╦√╜í'
@ 12,21 say '(╫ó:░┤Pause╜í┐╔╘▌═ú┤≥╙í)'
set device to print
set print on
use &qbl52
go top
do while .not. eof()
l=10
y=y+1
@ 002,046 say chr(27)+"I"+"E"+'╣π╓▌╫╘╨╨│╡╢■│º└√╚≤╖╓┼Σ╝╞╦π▒φ'
@ 003,023 say '============================'
@ 005,030 say chr(27)+"I"+"A"+'▓┐├┼:'+w3+'   (▒φ╓«╢■)'
@ 005,060 say mo11+'─Ω'+mo22+'╘┬'+mo33+'╚╒╓╞'+'    ╡┌'+str(y,2,0)+'╥│'
@ 006,005 say '⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤'
@ 007,005 say '⌐ª                  ⌐ª╡Ñ⌐ª ▓·  ╞╖  ▓·  ┴┐ ⌐ª ╧·  ╩█ ⌐ª ╡Ñ  ╬╗ ⌐ª   ╧·  ╩█  ╩╒  ╚δ  ╜≡  ╢ε   ⌐ª   ╧·  ╩█  │╔  ▒╛  ╜≡  ╢ε   ⌐ª'
@ 008,005 say '⌐ª  ╧ε         ─┐   ⌐ª  ⌐└⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐╚        ⌐ª        ⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚'
@ 009,005 say '⌐ª                  ⌐ª╬╗⌐ª▒╛╘┬╩²⌐ª└█ ╝╞ ╩²⌐ª ╝█  ╕± ⌐ª │╔  ▒╛ ⌐ª ▒╛  ╘┬  ╩² ⌐ª └█   ╝╞   ╩² ⌐ª ▒╛  ╘┬  ╩² ⌐ª └█   ╝╞   ╩² ⌐ª'
@ 010,005 say '⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚'
do while (l<=70).and.(.not. eof())
@ l+1,005 say '⌐ª'
@ l+1,007 say ╧ε─┐
@ l+1,025 say '⌐ª'
@ l+1,027 say ╡Ñ╬╗
@ l+1,029 say '⌐ª'
@ l+1,031 say CLBYS picture '@z'
@ l+1,037 say '⌐ª'
@ l+1,039 say CLLJS picture '@z'
@ l+1,047 say '⌐ª'
@ l+1,049 say XSJG picture '@z'
@ l+1,057 say '⌐ª'
@ l+1,059 say DWCB picture '@z'
@ l+1,067 say '⌐ª'
@ l+1,069 say XSSRBYS picture '@z'
@ l+1,081 say '⌐ª'
@ l+1,083 say XSSRLJS picture '@z'
@ l+1,097 say '⌐ª'
@ l+1,099 say XSCBBYS picture '@z'
@ l+1,111 say '⌐ª'
@ l+1,113 say XSCBLJS picture '@z'
@ l+1,127 say '⌐ª'
@ l+2,005 say '⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚'
l=l+2
skip
enddo
enddo
@ l+1,005 say '       '
set device to screen
set print off
use
release all
return