Liren Large Software Subsidy 6/06.iso/b/b077/1.img/SBGL.ZIP/QQQ.PRG

Text File | 1979-12-31 | 377 b | 19 lines

clear
set devi to print
set print on
? chr(27)+"ID"
@ prow()+1,8 say "╔Φ▒╕╣▄└φ╙δ╬¼╨▐╨┼╧ó╧╡═│"
@ prow()+1,1 say "         "
@ prow()+1,1 say "         "
@ prow()+1,14 say "▓╦╡Ñ╙δ┬╖╛╢"
wait "      "
@ prow()+1,8 say "╔┬╬≈╩í╔Φ▒╕╣▄└φ╨¡╗ß"
@ prow()+1,29 say "┴¬║╧╤╨╓╞"
@ prow()+1,8 say "╓╨╣·╔Φ▒╕╣▄└φ┼α╤╡╓╨╨─"
? chr(13)
set print off
set device to screen
retu