home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug054.ark / SNOOPY.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  3.4 KB  |  62 lines
  1. 10 INPUT "ENTER YOUR NAME";A9$
  2. 20 A9=INSTR(A9$,"/")
  3. 25 INPUT "DO YOU WANT TO USE THE LINEPRINTER";LP$
  4. 30 IF LP$="YES" THEN L=2:POKE &7FB1,&69:POKE &7FB2,&90 ELSE L=0
  5. 40 IF A9 THEN A$=RIGHT(A9$,A9+1):A9$=LEFT(A9$,A9-1)
  6. 50 OPEN #L,"O"
  7. 60 PRINT#L," 
  8. 70 PRINT#L," 
  9. 80 PRINT#L," 
  10. 90 PRINT#L,"                      XXXX"
  11. 100 PRINT#L,"                     X    XX"
  12. 110 PRINT#L,"                    X  ***  X                XXXXX"
  13. 120 PRINT#L,"                   X  *****  X            XXX     XX"
  14. 130 PRINT#L,"                XXXX ******* XXX      XXXX          XX"
  15. 140 PRINT#L,"              XX   X ******  XXXXXXXXX                XX XXX"
  16. 150 PRINT#L,"            XX      X ****  X                           X** X"
  17. 160 PRINT#L,"           X        XX    XX     X                      X***X"
  18. 170 PRINT#L,"          X         //XXXX       X                      XXXX"
  19. 180 PRINT#L,"         X         //   X                             XX"
  20. 190 PRINT#L,"        X         //    X          XXXXXXXXXXXXXXXXXX/"
  21. 200 PRINT#L,"        X     XXX//    X          X"
  22. 210 PRINT#L,"        X    X   X     X         X"
  23. 220 PRINT#L,"        X    X    X    X        X"
  24. 230 PRINT#L,"         X   X    X    X        X                    XX"
  25. 240 PRINT#L,"         X    X   X    X        X                 XXX  XX"
  26. 250 PRINT#L,"          X    XXX      X        X               X  X X  X"
  27. 260 PRINT#L,"          X             X         X              XX X  XXXX"
  28. 270 PRINT#L,"           X             X         XXXXXXXX\     XX   XX  X"
  29. 280 PRINT#L,"            XX            XX              X     X    X  XX"
  30. 290 PRINT#L,"              XX            XXXX   XXXXXX/     X     XXXX"
  31. 300 PRINT#L,"                XXX             XX***         X     X"
  32. 310 PRINT#L,"                   XXXXXXXXXXXXX *   *       X     X"
  33. 320 PRINT#L,"                                *---* X     X     X"
  34. 330 PRINT#L,"                               *-* *   XXX X     X"
  35. 340 PRINT#L,"                               *- *       XXX   X"
  36. 350 PRINT#L,"                              *- *X          XXX"
  37. 360 PRINT#L,"                              *- *X  X          XXX"
  38. 370 PRINT#L,"                             *- *X    X            XX"
  39. 380 PRINT#L,"                             *- *XX    X             X"
  40. 390 PRINT#L,"                            *  *X* X    X             X"
  41. 400 PRINT#L,"                            *  *X * X    X             X"
  42. 410 PRINT#L,"                           *  * X**  X   XXXX          X"
  43. 420 PRINT#L,"                           *  * X**  XX     X          X"
  44. 430 PRINT#L,"                          *  ** X** X     XX          X"
  45. 440 PRINT#L,"                          *  **  X*  XXX   X         X"
  46. 450 PRINT#L,"                         *  **    XX   XXXX       XXX"
  47. 460 PRINT#L,"                        *  * *      XXXX      X     X"
  48. 470 PRINT#L,"                       *   * *          X     X     X"
  49. 480 PRINT#L,"         =======*******   * *           X     X      XXXXXXXX\"
  50. 490 PRINT#L,"                *         * *      /XXXXX      XXXXXXXX\      )"
  51. 500 PRINT#L,"           =====**********  *     X                     )  \  )"
  52. 510 PRINT#L,"             ====*         *     X               \  \   )XXXXX"
  53. 520 PRINT#L,"        =========**********       XXXXXXXXXXXXXXXXXXXXXX"
  54. 530 PRINT#L," 
  55. 540 PRINT#L," 
  56. 550 PRINT #L,,"COMPLIMENTS OF RUF DATA SYSTEMS"
  57. 560 PRINT #L," 
  58. 570 PRINT #L, "BEST REGARDS FROM ";A9$
  59. 580 PRINT#L," 
  60. 590 CLOSE #L
  61. 600 END
  62.