1 REM ++++++++++++++++++++++++++++++++ 2 REM ! Program .... SNOOPY 3 REM ! Utg}va 1.0 76-05-08 4 REM ! av PER LINDBERG 7 REM ! Minne 16 Kbytes och printer 8 REM ! Ins{nt av 816 9 REM ++++++++++++++++++++++++++++++++ 10 REM 11 REM Screened by C R LERIN. 12 REM 60 F%=1% 70 OPEN "PR:" ASFILE F% 80 PRINT #F% 90 PRINT #F%" @@@@@@@@ @@@@@" 100 PRINT #F%" @@@@@@@@@@@ @@@@@@@" 110 PRINT #F%" @@@CCCCCCC@@@@@@CCC@@@@" 120 PRINT #F%" @@@CCCCCCC@@@@@@@CCCC@@@" 130 PRINT #F%" @@@@CCCCCC@@@@@@@ @@@CC@@@" 140 PRINT #F%" ***@@@CCC@@@@ @@@@@@" 150 PRINT #F%" ****@@@@@@@@ *@@" 160 PRINT #F%" ****@@***@@ **" 170 PRINT #F%" ****@@**** ** *" 180 PRINT #F%" ***@@@**** ****** ** **** ***" 190 PRINT #F%" ****@@***** * * * ****************" 200 PRINT #F%" ***@@@**** * * O * O * ***" 210 PRINT #F%" *MMMMMM*** * * * * **" 220 PRINT #F%" MMMMMMMM** * * * ** * * **" 230 PRINT #F%" MMMMMMMMMM * * * **** * *" 240 PRINT #F%" MMMMMMMMMM * *** * *" 250 PRINT #F%" MMMMMMMMMM * * *** *" 260 PRINT #F%" MMMMMMMMMM **** *" 270 PRINT #F%" MMMMMMMMMM *" 280 PRINT #F%" MMMMMMMM* *" 290 PRINT #F%" *MMMMMM*** @@@@@@ *" 300 PRINT #F%" ********** @@@@@@@@@ *" 310 PRINT #F%" ********** @@@@@@@@@ *" 320 PRINT #F%" ********** @@@@@@@@ *" 330 PRINT #F%" ********** @@@ *" 340 PRINT #F%" ********** ***** *" 350 PRINT #F%" ********* * *** ****** *" 360 PRINT #F%" ********* * ******** * *" 370 PRINT #F%" ******** * * **" 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%"* **************** *------------I" 800 PRINT #F%" ** *** ************ ** I" 810 PRINT #F%" ****** ******* I" 820 PRINT #F%" I" 830 PRINT #F%" @ I" 840 PRINT #F%" I" 850 PRINT #F%" I" 860 PRINT #F%" @ @ I" 870 PRINT #F%" I" 880 PRINT #F%" I" 890 PRINT #F%" \ I" 900 PRINT #F%" O) I" 910 PRINT #F%" / \ @ I" 920 PRINT #F%" O) 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%" O) I" 1030 PRINT #F%" / I" 1040 PRINT #F%" @ @ I" 1050 FOR X=1 TO 3 1060 PRINT #F%" I" 1070 NEXT X 1080 PRINT #F%" @ I" 1090 PRINT #F%"====================================================================I" 1100 FOR X=1 TO 15 1110 PRINT #F%" I" 1120 NEXT X 1130 PRINT #F% 1140 PRINT #F%"***********************************************************************" 1150 PRINT #F% 1160 PRINT #F%" - RODE BARONEN AR KLOK... /" 1170 PRINT #F%" HAN SVIRAR INTE BORT NATTERNA MED" 1180 PRINT #F%" ATT DANSA OCH DRICKA SOCKERDRICKA !" 1190 PRINT #F% 1200 PRINT #F%"***********************************************************************" 1210 PRINT #F%" P.L.-76" 1215 CLOSE F% 1220 END