home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 16 / 16.iso / t / t183 / 1.img / DEMO1.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-04-13  |  713 b   |  22 lines

  1. 3 GOTO 100
  2. 5 FOR I=0 TO 9
  3. 7 T$="I"+CHR$(65+I)
  4. 10 T1$="I"+CHR$(66+I)
  5. 15 LPRINT CHR$(27);T$;"ESC+I+";RIGHT$(T$,1);"  ";
  6. 20 LPRINT "ú╣ú╨ú▒ú╢╩╟╨┬╥╗┤·ú╣╒δ┤≥╙í╗·╩Σ│÷╚φ╝■.╗╢╙¡╩╣╙├!"CHR$(27);T1$
  7. 25 NEXT
  8. 30 END
  9. 100 LPRINT "  ";CHR$(27);"ID"
  10. 110 LPRINT "              ╫ε ╨┬ ╛┼ ╒δ ┤≥ ╙í ╗· ╩Σ │÷ ╧╡ ═│ ";CHR$(27);"IC"
  11. 115 LPRINT
  12. 120 LPRINT "                                      ╨┬ ╖╜ ╩╜"
  13. 130 LPRINT "                                                 ╨┬ ╕┼ ─ε"
  14. 140 LPRINT "                                                            ╨┬ ╫╓ ┐Γ";CHR$(27);"IB"
  15. 145 LPRINT
  16. 150 LPRINT "            ▓· ╔· ╫ε ╨┬ ╙í ╧≤ ; ╩╣ ─· ╔═ ╨─ ╘├ ─┐ ! ";CHR$(27);"IA"
  17. 151 LPRINT
  18. 152 LPRINT
  19. 153 LPRINT
  20. 155 LPRINT
  21. 160 GOTO 5
  22.