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

Text File | 1989-11-08 | 1.2 KB | 41 lines

*└√╚≤╖╓┼Σ╝╞╦π▒φ╫╙│╠╨≥╓«╥╗:LYFPB-1.PRG
set talk off
clear
y=1
@ 10,20 say '╒²╘┌┤≥╙í└√╚≤╖╓┼Σ╝╞╦π▒φ'
@ 11,24 say '╟δ▓╗╥¬░┤╞Σ╦√╜í'
@ 12,21 say '(╫ó:░┤Pause╜í┐╔╘▌═ú┤≥╙í)'
set device to print
set print on
@ 002,046 say chr(27)+"I"+"E"+'╣π╓▌╫╘╨╨│╡╢■│º└√╚≤╖╓┼Σ╝╞╦π▒φ'
@ 003,023 say '============================'
@ 005,020 say chr(27)+"I"+"A"+'▓┐├┼:'+w3+'   (▒φ╓«╥╗)'
@ 005,045 say mo11+'─Ω'+mo22+'╘┬'+mo33+'╚╒╓╞'
@ 006,045 say '⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤'
@ 007,045 say '⌐ª                      ⌐ª      ╜≡           ╢ε       ⌐ª'
@ 008,045 say '⌐ª    ╧ε         ─┐     ⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚'
@ 009,045 say '⌐ª                      ⌐ª ▒╛  ╘┬  ╩² ⌐ª └█   ╝╞   ╩² ⌐ª'
@ 010,045 say '⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚'
use &qbl51
l=10
go top
do while .not. eof()
@ l+1,045 say '⌐ª'
@ l+1,048 say ╧ε─┐
@ l+1,069 say '⌐ª'
@ l+1,071 say ▒╛╘┬╩² picture '@z'
@ l+1,083 say '⌐ª'
@ l+1,085 say └█╝╞╩² picture '@z'
@ l+1,099 say '⌐ª'
@ l+2,045 say '⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚'
l=l+2
skip
enddo
@ l+1,025 say '       '
set device to screen
set print off
use
release all
return