5 ! SNOOP800.GRF - ritar Snobben p} Epson.
10 REM ++++++++++++++++++++++++++++++++
20 REM ! Program ....   SNOOPY
30 REM ! Utg}va  1.0    76-05-08
40 REM ! av  PER LINDBERG
50 REM ! Minne 16 Kbytes och printer
60 REM ! Ins{nt av 816
70 REM ++++++++++++++++++++++++++++++++
80 REM 
85 INTEGER : NO EXTEND 
90 REM L{tt bearbetad med ny text av 
95 REM Bertil M}rtensson Word & Music Lund.
100 REM 
110 F=1
120 OPEN "PR:VSA30B72.55A" AS FILE F
130 ; #F CHR$(27,70) "";
140 ; CHR$(15) "";
150 ; CHR$(27,65,8) "";
160 PRINT #F
170 PRINT #F "              @@@@@@@@    @@@@@"
180 PRINT #F "             @@@@@@@@@@@  @@@@@@@"
190 PRINT #F "            @@@CCCCCCC@@@@@@CCC@@@@"
200 PRINT #F "            @@@CCCCCCC@@@@@@@CCCC@@@"
210 PRINT #F "           @@@@CCCCCC@@@@@@@ @@@CC@@@"
220 PRINT #F "          ***@@@CCC@@@@        @@@@@@"
230 PRINT #F "         ****@@@@@@@@            *@@"
240 PRINT #F "        ****@@***@@              **"
250 PRINT #F "       ****@@****                ** *"
260 PRINT #F "      ***@@@****        @@@@@@ ** @@@@"
270 PRINT #F "     ****@@*****       *      *      * ****************"
280 PRINT #F "     ***@@@****     *  *   '  *    '  *                ***"
290 PRINT #F "     *MMMMMM***     * *    0      0   * *                 **"
300 PRINT #F "     MMMMMMMM**     * *     *   **    * *                  **"
310 PRINT #F "    MMMMMMMMMM       * *   *      ****  *                    *"
320 PRINT #F "    MMMMMMMMMM       *  ***            *                       *"
330 PRINT #F "    MMMMMMMMMM        *    *        ***                         *"
340 PRINT #F "    MMMMMMMMMM         ****                                      *"
350 PRINT #F "    MMMMMMMMMM                                                   *"
360 PRINT #F "     MMMMMMMM*                                                    *"
370 PRINT #F "     *MMMMMM***                                     @@@@@@        *"
380 PRINT #F "     **********                                    @@@@@@@@@      *"
390 PRINT #F "     **********                                    @@@@@@@@@       *"
400 PRINT #F "      **********                                    @@@@@@@@       *"
410 PRINT #F "      **********                                       @@@         *"
420 PRINT #F "       **********         *****                                    *"
430 PRINT #F "        *********        *     ***        ******                  *"
440 PRINT #F "         *********       *        ********      *                 *"
450 PRINT #F "           ********       *                      *              **"
460 PRINT #F "              ******                           ******         **"
470 PRINT #F "                ///////   ********       ******      *********"
480 PRINT #F "              ////////////        *******"
490 PRINT #F "  /////////////////////////"
500 PRINT #F "///////////////////////////"
510 PRINT #F "/////////////////  ////////"
520 PRINT #F "///////////////    *  ////                          ****"
530 PRINT #F "/////////////      *      **                       *    *"
540 PRINT #F "/////              *      * ************************ ****"
550 PRINT #F "////               *       ********                **    **"
560 PRINT #F "                   *               **********     *       *"
570 PRINT #F "                   *                         ******       *"
580 PRINT #F "                  *                                      **"
590 PRINT #F "                  *                                        *"
600 PRINT #F "                  *                                       **"
610 PRINT #F "                  *                                      *"
620 PRINT #F "                 *         ************************       *"
630 PRINT #F "                 *                  *   *****     **      *"
640 PRINT #F "                *                    ***     **    **     *"
650 PRINT #F "                *                    *         ****  *****"
660 PRINT #F "               *                     *          *  *"
670 PRINT #F "               @                    *     *******   *"
680 PRINT #F "              @@                    *           **   *"
690 PRINT #F "             @@@                   *       **    *   *"
700 PRINT #F "            @@@@                   *         *****   *"
710 PRINT #F "           @@@@                   *             *    *"
720 PRINT #F "          @@@@                    *             *    *"
730 PRINT #F "         @@@@                     *             *   *"
740 PRINT #F "        @@                        *            *    *"
750 PRINT #F "       *                          *            *    *"
760 PRINT #F "      *                            *           *   *"
770 PRINT #F "      *                            *           *   *"
780 PRINT #F "     *                             *           *   *"
790 PRINT #F "     *                             *           *    *"
800 PRINT #F "     *                             *           *    *"
810 PRINT #F "     *               ************   *          *    *"
820 PRINT #F "     *           ****            *****          *    *"
830 PRINT #F "     *                                          *    *"
840 PRINT #F "      *                                         *     *"
850 PRINT #F "       *                                        *     *"
860 PRINT #F " ********                                        *  **"
870 PRINT #F "*           ****************                     *------------I"
880 PRINT #F "                                                              I"
890 PRINT #F "   ******                               *******                I"
900 PRINT #F "                                                   @           I"
910 PRINT #F "                                                               I"
920 PRINT #F "                                                                I"
930 PRINT #F "                                                                I"
940 PRINT #F "                                                                I"
950 PRINT #F "                                                                 I"
960 PRINT #F "                                                                 I"
970 PRINT #F "                                                                 I"
980 PRINT #F "------------------------------------------------------------------I"
990 PRINT #F "                                                                  I"
1000 PRINT #F "                                                                  I"
1010 PRINT #F "                                                                   I"
1020 PRINT #F "                                                                   I"
1030 PRINT #F "                                                                   I"
1040 FOR X=1 TO 3
1050   PRINT #F "                                                                    I"
1060 NEXT X 
1070 PRINT #F "                                                                   I"
1080 PRINT #F "====================================================================I"
1090 PRINT #F "                                                                    I"
1100 PRINT #F "   - NOG [R DET FANTASTISKT ATT FLICKOR GILLAR ATT MAN K\R FORT!    I"
1110 PRINT #F "                                                                    I"
1120 PRINT #F "                                                                    I"
1130 PRINT #F
1140 PRINT #F "                                            BM Word & Music efter P.L.-76"
1150 CLOSE F
1160 END