10 REM SAVE PAUSBIRD.GRF 20 REM 30 REM ************************ 40 REM * PAUSF]GEL F\R ABC-80 * 50 REM * AV FERDINAND MICAN * 60 REM * TEL. 0510-623 36 * 70 REM * REV. 820326-1 * 80 REM ************************ 90 REM 100 ; INP(3);CHR$(12%) 110 FOR I%=0% TO 23% 120 ; CUR(I%,0%);CHR$(151%); 130 NEXT I% 140 ; CUR(1%,21%);"p,l8f'" 150 ; CUR(2%,20%);"6" 160 ; CUR(2%,22%);"|`,!" 170 ; CUR(3%,19%);":" 180 SETDOT 9%,47% : SETDOT 9%,48% : SETDOT 9%,49% : SETDOT 9%,50% : SETDOT 9%,51% 190 SETDOT 10%,52% : SETDOT 10%,53% 200 SETDOT 11%,51% : SETDOT 11%,52% : SETDOT 11%,53% : SETDOT 11%,54% : SETDOT 11%,55% 210 SETDOT 12%,38% : SETDOT 12%,50% 220 SETDOT 13%,38% : SETDOT 13%,50% 230 SETDOT 14%,38% : SETDOT 14%,50% 240 SETDOT 15%,38% : SETDOT 15%,49% 250 SETDOT 16,37 : SETDOT 16,49 260 SETDOT 17,37 : SETDOT 17,49 270 SETDOT 18,37 : SETDOT 18,50 280 SETDOT 19,36 : SETDOT 19,50 290 SETDOT 20,36 : SETDOT 20,50 300 SETDOT 21,35 : SETDOT 21,42 : SETDOT 21,51 310 SETDOT 22,35 : SETDOT 22,42 : SETDOT 22,51 320 SETDOT 23,34 : SETDOT 23,41 : SETDOT 23,51 330 SETDOT 24,33 : SETDOT 24,40 : SETDOT 24,51 340 SETDOT 25,33 : SETDOT 25,40 : SETDOT 25,51 350 R%=26% 360 SETDOT R%,32 : SETDOT R%,33 : SETDOT R%,42 : SETDOT R%,44 : SETDOT R%,50 365 SETDOT R%,51 370 SETDOT 27,32 : SETDOT 27,41 : SETDOT 27,44 : SETDOT 27,50 380 SETDOT 28,31 : SETDOT 28,41 : SETDOT 28,43 : SETDOT 28,50 390 SETDOT 29,31 : SETDOT 29,41 : SETDOT 29,43 : SETDOT 29,50 400 SETDOT 30,30 : SETDOT 30,43 : SETDOT 30,49 : SETDOT 30,50 410 SETDOT 31,30 : SETDOT 31,42 : SETDOT 31,43 : SETDOT 31,49 420 SETDOT 32,29 : SETDOT 32,42 : SETDOT 32,48 : SETDOT 32,51 : SETDOT 32,52 425 SETDOT 32,53 : SETDOT 32,54 : SETDOT 32,55 430 SETDOT 33,29 : SETDOT 33,41 : SETDOT 33,48 : SETDOT 33,50 : SETDOT 33,55 435 SETDOT 33,56 440 SETDOT 34,28 : SETDOT 34,41 : SETDOT 34,47 : SETDOT 34,49 : SETDOT 34,54 450 SETDOT 35,28 : SETDOT 35,40 : SETDOT 35,48 : SETDOT 35,53 460 SETDOT 36,28 : SETDOT 36,39 : SETDOT 36,48 : SETDOT 36,52 470 SETDOT 37,27 : SETDOT 37,38 : SETDOT 37,45 : SETDOT 37,47 : SETDOT 37,52 480 SETDOT 38,27 : SETDOT 38,38 : SETDOT 38,44 : SETDOT 38,45 : SETDOT 38,47 485 SETDOT 38,51 490 SETDOT 39,26 : SETDOT 39,37 : SETDOT 39,43 : SETDOT 39,45 : SETDOT 39,47 495 SETDOT 39,46 : SETDOT 39,50 500 SETDOT 40,26 : SETDOT 40,36 : SETDOT 40,42 : SETDOT 40,45 : SETDOT 40,46 505 SETDOT 40,48 : SETDOT 40,49 510 SETDOT 41,26 : SETDOT 41,36 : SETDOT 41,41 : SETDOT 41,45 : SETDOT 41,47 515 SETDOT 41,48 520 SETDOT 42,26 : SETDOT 42,35 : SETDOT 42,40 : SETDOT 42,44 : SETDOT 42,47 525 SETDOT 42,48 530 SETDOT 43,26 : SETDOT 43,34 : SETDOT 43,39 : SETDOT 43,44 : SETDOT 43,47 535 SETDOT 43,48 540 SETDOT 44,26 : SETDOT 44,33 : SETDOT 44,38 : SETDOT 44,44 : SETDOT 44,47 550 SETDOT 45,25 : SETDOT 45,32 : SETDOT 45,37 : SETDOT 45,44 : SETDOT 45,46 560 SETDOT 46,25 : SETDOT 46,32 : SETDOT 46,37 : SETDOT 46,43 : SETDOT 46,46 570 SETDOT 47,25 : SETDOT 47,30 : SETDOT 47,31 : SETDOT 47,34 : SETDOT 47,35 575 SETDOT 47,36 : SETDOT 47,43 : SETDOT 47,46 580 SETDOT 48,24 : SETDOT 48,29 : SETDOT 48,34 : SETDOT 48,35 : SETDOT 48,36 585 SETDOT 48,46 : SETDOT 48,43 590 SETDOT 49,24 : SETDOT 49,29 : SETDOT 49,33 : SETDOT 49,35 : SETDOT 49,36 595 SETDOT 49,42 : SETDOT 49,45 600 SETDOT 50,23 : SETDOT 50,28 : SETDOT 50,32 : SETDOT 50,35 : SETDOT 50,36 605 SETDOT 50,42 : SETDOT 50,45 610 SETDOT 51,22 : SETDOT 51,23 : SETDOT 51,27 : SETDOT 51,31 : SETDOT 51,36 615 SETDOT 51,42 : SETDOT 51,45 620 SETDOT 52,22 : SETDOT 52,26 : SETDOT 52,27 : SETDOT 52,31 : SETDOT 52,36 625 SETDOT 52,37 : SETDOT 52,42 : SETDOT 52,45 630 SETDOT 53,22 : SETDOT 53,25 : SETDOT 53,27 : SETDOT 53,30 : SETDOT 53,37 635 SETDOT 53,41 : SETDOT 53,45 640 SETDOT 54,22 : SETDOT 54,23 : SETDOT 54,24 : SETDOT 54,25 : SETDOT 54,27 645 SETDOT 54,30 : SETDOT 54,37 : SETDOT 54,38 650 SETDOT 54,41 : SETDOT 54,44 660 READ R,K : SETDOT R,K 670 DATA 55,24,55,26,55,30,55,38,55,40,55,44 680 DATA 56,26,56,29,56,30,56,38,56,39,56,40,56,44 690 DATA 57,25,57,29,57,39,57,43 700 DATA 58,25,58,29,58,39,58,40,58,43 710 DATA 59,25,59,29,59,39,59,40,59,41,59,42 720 DATA 60,25,60,29,60,39,60,42 730 DATA 61,24,61,29,61,39,61,40,61,42 740 DATA 62,24,62,28,62,29,62,38,62,40,62,41 750 DATA 63,23,63,28,63,29,63,38,63,40,63,41 760 DATA 64,23,64,28,64,29,64,37,64,38,64,40,64,41 770 DATA 65,23,65,28,65,29,65,37,65,38,65,40,65,41 780 DATA 66,23,66,28,66,37,66,40 790 DATA 67,24,67,27,67,28,67,37,67,40 800 DATA 68,24,68,25,68,26,68,36,68,39 810 DATA 69,36,69,39,70,36,70,39 820 SETDOT 70,36 : SETDOT 70,39 830 ONERRORGOTO 860 840 DATA 71,35,71,36,71,38,71 850 GOTO 660 860 REM ******************************** 870 REM * KVITTER OCH R\RELSER * 880 FOR K=100*RND TO 100*RND 890 OUT 6,5 900 REM 910 REM \VERN[BBEN-\VRE L[GE TAS BORT 920 CLRDOT 4,49 : CLRDOT 4,50 : CLRDOT 3,51 930 CLRDOT 3,52 : CLRDOT 4,52 : CLRDOT 5,51 940 CLRDOT 6,50 : CLRDOT 7,49 : CLRDOT 7,48 950 CLRDOT 5,50 : CLRDOT 3,53 : CLRDOT 3,51 960 REM 970 REM \VERN[BBEN-NEDRE L[GE S[TTS 980 SETDOT 5,49 : SETDOT 5,50 990 SETDOT 5,51 : SETDOT 5,52 : SETDOT 5,53 : SETDOT 5,54 : SETDOT 6,53 995 SETDOT 6,52 : SETDOT 6,53 1000 SETDOT 6,52 : SETDOT 7,49 : SETDOT 7,51 : SETDOT 7,51 : SETDOT 7,50 1005 SETDOT 8,48 1010 REM 1020 REM NEDRE N[BBEN-NEDRE L[GE TAS BORT 1030 CLRDOT 11,52 : CLRDOT 11,53 : CLRDOT 11,54 : CLRDOT 11,55 1040 REM 1050 REM NEDRE N[BBEN-\VRE L[GE S[TTS 1060 SETDOT 9,52 : SETDOT 9,53 : SETDOT 10,54 : SETDOT 9,54 : SETDOT 9,55 1070 FOR I=O TO K : NEXT I 1080 OUT 6,0 1090 FOR I=O TO K : NEXT I 1100 REM 1110 REM \VERN[BBEN-NEDRE L[GE TAS BORT 1120 CLRDOT 5,49 1130 CLRDOT 5,51 : CLRDOT 5,52 : CLRDOT 5,53 1140 CLRDOT 5,54 : CLRDOT 6,53 : CLRDOT 6,52 1150 CLRDOT 7,50 : CLRDOT 7,51 : CLRDOT 8,48 1160 REM 1170 REM \VERN[BBEN-\VRE L[GE S[TTS 1180 SETDOT 4,49 : SETDOT 4,50 : SETDOT 3,51 : SETDOT 3,52 : SETDOT 4,52 1185 SETDOT 3,53 : SETDOT 5,51 1190 SETDOT 6,50 : SETDOT 7,49 : SETDOT 7,48 : SETDOT 5,50 1200 REM 1210 REM NEDRE N[BBEN-\VRE L[GE TAS BORT 1220 CLRDOT 9,52 : CLRDOT 9,53 : CLRDOT 10,54 : CLRDOT 9,54 : CLRDOT 9,55 1230 REM 1240 REM NEDRE N[BBEN-NEDRE L[GE S[TTS 1250 SETDOT 11,52 : SETDOT 11,53 : SETDOT 11,54 : SETDOT 11,55 1260 NEXT K 1270 GOTO 880