home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 16 / 16.iso / t / t183 / 1.img / DEMO2.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-04-13  |  2.1 KB  |  36 lines
  1. 10 REM ┤≥╙í╓«╟░,╟δ░┤ú├ú╘ú╥ú╠ú½ú╞ú▒ú░ú¼╤í╘±╓╜┐φ╬¬ú▒ú│ú╢ú¼╖±╘≥▒φ╕±┤≥▓╗╡╜═╖ú«
  2. 100 WIDTH "LPT1:",255
  3. 110 LPRINT CHR$(27)+"IC"+"                                                  ▒φ  ╕±  ┤≥  ╙í  ╩╡  └²":LPRINT
  4. 120 A$= "ª─ªñªñªñªαªñªñªαªñªñªαªñªñªñªαªñªñªñªñªñªñªñªñªñªñªñªñªñªñªαªñªñªñªñªñªñªñªñªñªαªñªñªαªñªñªñªñªñªñªñªñª╠"
  5. 130 B$= "ªº      ªª    ªª    ªª      ªª                            ªª                  ªª    ªª                ªº"
  6. 140 N=0
  7. 150 LPRINT CHR$(27)+"IC"; '╤í╘±ú├╫╓╠σ
  8. 160 LPRINT "                                              ú╔ú┬ú═ú¡ú╨ú├  ╤º ╧░ ░α ═¿ ╤╢ ┬╝"
  9. 170 LPRINT CHR$(27)+"IA"; '╤í╘±ú┴╫╓╠σ
  10. 180 LPRINT CHR$(7); '╓╞▒φ┐¬╩╝
  11. 190 LPRINT "ª│ªÑªÑªÑª╙ªÑªÑª╙ªÑªÑª╙ªÑªÑªÑª╙ªÑªÑªÑªÑªÑªÑªÑªÑªÑªÑªÑªÑªÑªÑª╙ªÑªÑªÑªÑªÑªÑªÑªÑªÑª╙ªÑªÑª╙ªÑªÑªÑªÑªÑªÑªÑªÑª╖"
  12. 200 LPRINT "ªº╨╒  ├√ªª╨╘▒≡ªª─Ω┴媪╓░  │╞ªª        ╣ñ ╫≈ ╡Ñ ╬╗         ªª    ╙╡ ╙╨ ╗· ╨═   ªª╠¿╩²ªª ┤≥ ╙í ╗· ╨═ ║┼ ªº"
  13. 210 LPRINT A$
  14. 220 LPRINT "ªº═⌡╢■├±ªª ─╨ ªªú╡ú░ªª╣ñ│╠╩ªªª    ╕╓╠·╔Φ╝╞╤╨╛┐╘║╝╞╦π╒╛    ªªú╔ú┬ú═ú¡ú╨ú├ú»ú╪ú╘ªª ú│ ªª ú═ú¡ú▓ú░ú▓ú┤   ªº"
  15. 230 LPRINT A$
  16. 240 LPRINT "ªº╕▀╨í└≥ªª ┼« ªªú▓ú╡ªª╝╝╩⌡╘▒ªª    ╠╟│º╫╘╢»╗»┐╞            ªªú╔ú┬ú═ú¡ú╨ú├ú»ú╪ú╘ªª ú▒ ªªú╔ú┬ú═ú╕ú░ú├ú╨ú╙ªº"
  17. 250 LPRINT A$
  18. 260 LPRINT "ªº╘°╫╙╨┬ªª ─╨ ªªú│ú┤ªª╓·  ╣ñªª    ╡┌╥╗╚╚╡τ│º╔·▓·╝╞╗«┐╞    ªª│ñ│╟ú¡ú░ú╡ú▓ú░ú┴  ªª ú▒ ªªú╘ú╚ú¡ú│ú░ú╖ú░  ªº"
  19. 270 LPRINT A$
  20. 280 LPRINT "ªº▓╠╡┬╣·ªª ─╨ ªªú▓ú╖ªª▓╬  ─▒ªª┐╒╛ⁿú╕ú▓ú│ú│ú▒▓┐╢╙╫≈╤╡┐╞    ªª┤≤┴ª╔±╬ó╗·        ªª ú▒ ªªú═ú¡ú▓ú░ú▓ú┤    ªº"
  21. 290 LPRINT A$
  22. 300 LPRINT "ªº╬║╡┬╕úªª ─╨ ªªú│ú╕ªª╓·  ╣ñªª▒°╞≈▓┐ú╡ú▓ú╖ú╢│º┐╞╤╨┤ª      ªª╠¿═σ▓·ú╔ú┬ú═╝µ╚▌╗·ªª ú▒ ªªú╞ú╪ú¡ú▒ú░ú░    ªº"
  23. 310 LPRINT A$
  24. 320 LPRINT "ªº╬Σ╬─╕╒ªª ─╨ ªªú│ú│ªª╓·  ╣ñªª    ╩╨╗╖╛│▒ú╗ñ╛╓            ªª│ñ│╟ú¡ú░ú╡ú▓ú░ú┴  ªª ú▒ ªªú╣ú┤ú░ú░        ªº"
  25. 330 LPRINT A$
  26. 340 LPRINT "ªº┴║╬τ╗¬ªª ┼« ªªú│ú╡ªª╓·  ╣ñªª    ╩╨┐╞╝╝╟Θ▒¿╤╨╛┐╦∙        ªªú╔ú┬ú═ú¡ú╨ú├ú»ú╪ú╘ªª ú▒ ªªú╘ú╚ú¡ú▓ú▒ú░ú░  ªº"
  27. 350 LPRINT A$
  28. 360 LPRINT "ªº╕╩╠⌐╜¡ªª ─╨ ªªú┤ú╖ªª╣ñ│╠╩ªªª    ╩╨╜≡╩⌠▓─┴╧╤╨╛┐╦∙        ªªú╔ú┬ú═ú¡ú╨ú├      ªª ú▒ ªªú╞ú╪ú¡ú▒ú░ú░    ªº"
  29. 370 LPRINT A$
  30. 380 FOR I=1 TO 2:LPRINT B$:LPRINT A$:NEXT
  31. 390 LPRINT B$
  32. 400 LPRINT "ª╗ªÑªÑªÑª█ªÑªÑª█ªÑªÑª█ªÑªÑªÑª█ªÑªÑªÑªÑªÑªÑªÑªÑªÑªÑªÑªÑªÑªÑª█ªÑªÑªÑªÑªÑªÑªÑªÑªÑª█ªÑªÑª█ªÑªÑªÑªÑªÑªÑªÑªÑª┐"
  33. 410 LPRINT
  34. 420 LPRINT CHR$(7)
  35. 430 END
  36.