10 REM .  SAVE RULLE
100 REM ======================
110 REM 1985-12-02
120 REM David Andersson
130 REM Medl. <5201>
140 REM Modifierat av <5201> 85-12-05
150 REM F|r ABC80 utan extra
160 REM utrustning.
170 REM 
180 REM Programmet ger ljud i
190 REM h|gtalaren och en grafik-
200 REM bild p} sk{rmen.
210 REM (Man skulle kunna s{ga
220 REM att det pratar)
230 REM ======================
240 REM 
250 REM 
260 REM 
500 REM RULLE
510 GOSUB 1000 : REM LADDA MSK
520 GOSUB 2000 : REM TEXT
530 GOSUB 3000 : REM LADDA LJUD
540 GOSUB 4000 : REM BILD
600 REM PLAY IT
601 OUT 6%,121%
610 FOR T%=0% TO 2000% : NEXT T%
620 POKE 65338%,A%(0%),SWAP%(A%(0%)),A%(1%),SWAP%(A%(1%))
630 Z%=CALL(65342%)
640 FOR X%=1% TO 3% : GOSUB 5000 : NEXT X%
650 FOR T%=0% TO 2000% : NEXT T%
660 POKE 65338%,A%(1%),SWAP%(A%(1%)),A%(2%),SWAP%(A%(2%))
670 Z%=CALL(65342%)
680 FOR X%=1% TO 3% : GOSUB 5000 : NEXT X%
690 FOR T%=0% TO 2000% : NEXT T%
693 OUT 6%,121%
700 POKE 65338%,A%(2%),SWAP%(A%(2%)),A%(3%),SWAP%(A%(3%))
710 Z%=CALL(65342%)
720 FOR X%=1% TO 2% : GOSUB 5000 : NEXT X%
730 FOR T%=0% TO 2000% : NEXT T%
740 Z%=CALL(65356%)
750 GOSUB 6000 : REM SCROLLA
760 END 
1000 REM LADDA MASKINKOD I POKEAREAN
1020 POKE 65332%,103%,255%,148%,5%,1%,1%
1030 POKE 65342%,33%,93%,255%,237%,87%,254%,255%,40%,3%,50%,102%,255%,24%,4%,243%,33%
1040 POKE 65358%,98%,255%,197%,1%,57%,4%,243%,237%,179%,126%,237%,71%,251%,193%,201%,79%
1050 POKE 65374%,135%,135%,135%,255%,207%,255%,183%,127%,0%,245%,229%,33%,56%,255%,203%,22%
1060 POKE 65390%,48%,3%,175%,211%,6%,35%,53%,32%,39%,54%,8%,42%,58%,255%,126%,50%
1070 POKE 65406%,56%,255%,35%,58%,61%,255%,188%,32%,6%,58%,60%,255%,189%,40%,12%,34%
1080 POKE 65422%,58%,255%,62%,121%,211%,6%,225%,241%,251%,237%,77%,205%,76%,255%,24%,242%
1081 POKE 65438%,126%,42%,58%,255%,126%,58%,56%,255%,35%,58%,61%,255%,188%,195%,144%,255%
1090 RETURN 
2000 REM START TEXT
2010 Z%=INP(3%) : REM 40 TKN
2020 ; CHR$(12%);CUR(8%,0%);
2030 ; '         V}rt k{ra troll'
2040 FOR T%=0% TO 4000% : NEXT T%
2050 ; 
2060 ; '                    '
2070 ; '                       '
2080 ; '                    '
2090 ; '                     '
2100 ; '           '
2110 ; 
2120 FOR T%=0% TO 4000% : NEXT T%
2130 ; '           har n}got som'
2140 ; '        han vill s{ga oss....'
2150 FOR T%=0% TO 2000% : NEXT T%
2160 RETURN 
3000 REM LADDA LJUD P] ADDRESS A%
3010 A%=PEEK(65056%)+SWAP%(PEEK(65057%))+1024% : REM HEAP+1024
3020 RESTORE 3000
3030 A1%=0% : A%(A1%)=A% : A1%=A1%+1%
3040 READ A2% : IF A2%>=0% POKE A%,A2% : A%=A%+1% : GOTO 3040
3050 IF A2%=-1% A%(A1%)=A% : A1%=A1%+1% : GOTO 3040
3060 RETURN 
3070 DATA 0,1,224,0,0,0
3080 DATA 3,248,134,0,0,0,31,192,56,0,0,1,254,33,192,0,0,15,241,46,192,0,16
3090 DATA 31,192,118,0,0,1,254,7,240,32,0,31,228,63,2,0,1,248,128,224,72,32
3100 DATA 254,1,62,18,64,127,0,59,128,36,127,0,159,0,144,254,64,62,0,3,249
3110 DATA 19,184,0,31,216,25,192,1,255,0,57,0,127,224,74,0,39,240,32,16,5,249
3120 DATA 17,0,17,249,129,0,17,220,129,0,1,249,129,0,3,253,0,0,7,250,4,146
3130 DATA 79,248,9,36,63,208,0,0,126,64,4,3,249,0,0,6,228,0,0,63,208,0,9,255
3140 DATA 128,0,7,240,0,0,63,128,0,1,248,0,0,159,192,0,15,252,1,36,191,128
3150 DATA 0,91,252,0,146,255,128,1,47,248,0,131,255,0,0,191,32,0,15,228,0,1
3160 DATA 254,0,0,15,224,0,0,126,1,0,15,226,24,0,191,0,192,33,248,70,1,7,97
3170 DATA 156,0,61,195,48,0,123,142,96,0,121,7,130,0,120,22,2,0,56,15,193
3180 DATA 96,30,1,192,48,3,200,60,10,0,241,15,0,196,7,16,240,12,0,120,7,0
3190 DATA 96,9,224,60,5,128,7,128,120,10,0,31,16,248,4,2,79,9,240,16,0,15
3200 DATA 0,254,8,0,15,128,63,4,0,1,254,0,0,0,0,31,224,0,0,0,3,254,0,0,0,0
3210 DATA 31,224,0,0,0,0,57,0,0,0,0,0,255,128,0,0,0,0,247,0,0,0,0,0,123,128
3220 DATA 0,0,0,0,15,240,0,0,0,0,1,239,16,56,0,0,0,62,0,252,9,228,128,0,242
3230 DATA 15,128,94,9,0,9,224,30,0,112,2,0,3,225,62,2,112,2,0,1,224,15,18
3240 DATA 112,0,0,0,240,7,130,92,0,0,0,62,36,240,3,0,0,0,7,193,47,0,0,0,0
3250 DATA 0,126,0,152,0,0,0,0,1,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
3260 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
3270 DATA 0,0,0,0,0,0,0,0,0,0,3,192,0,240,0,0,0,31,128,15,128,188,0,0,0,126
3280 DATA 3,126,3,224,0,0,1,248,15,48,15,0,0,0,1,248,30,48,30,0,0,0,1,248
3290 DATA 30,16,46,0,0,0,1,248,30,0,30,0,0,0,0,248,15,0,15,0,0,0,0,124,15
3300 DATA 128,7,0,0,0,0,63,7,192,3,192,0,0,0,31,1,224,11,192,64,0,0,7,192
3310 DATA 240,2,224,48,0,0,1,240,60,0,184,12,0,0,0,124,15,0,28,6,0,0,0,31
3320 DATA 5,128,6,1,128,0,0,1,224,176,0,0,0,0,0,0,62,16,0,0,0,0,0,0,7,128
3330 DATA 0,0,0,0,0,0,0,224,0,0,0,0,0,0,0,28,0
3340 DATA -1
3420 DATA 0,24,0,0,0,0,0,0,240,0,0,0
3430 DATA 0,0,0,3,128,16,0,0,0,0,0,112,6,0,0,0,0,0,3,128,49,0,16,0,0,0,28
3440 DATA 1,136,0,128,0,0,0,230,32,192,0,0,0,0,14,96,12,0,0,0,0,0,255,0,192
3450 DATA 0,0,0,0,15,240,0,0,0,0,0,0,127,0,0,0,0,0,0,15,240,0,0,0,0,0,3,252
3460 DATA 0,0,0,0,0,1,254,0,0,0,0,0,3,248,0,8,0,0,0,59,152,72,192,0,0,3,115
3470 DATA 1,28,0,0,0,156,192,71,0,0,0,206,96,35,128,0,0,206,98,65,192,0,0
3480 DATA 204,64,1,128,0,3,152,192,19,0,0,6,112,0,0,0,0,0,0,0,0,0,0,0,0,0
3490 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
3500 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
3510 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,252,0,0,15,224,16
3520 DATA 0,15,248,8,0,7,248,0,16,7,252,2,0,3,254,33,128,0,255,16,66,0,127
3530 DATA 128,57,0,63,192,60,128,15,240,15,0,7,252,3,192,0,127,4,176,0,63
3540 DATA 226,30,0,3,252,0,0,0,39,192,0,0,0,0,0,0,0,0,12,0,0,0,0,112,0,0,0
3550 DATA 127,128,0,0,7,252,0,0,0,127,192,65,192,3,252,0,254,0,79,240,7,144
3560 DATA 33,63,224,31,0,1,63,192,79,0,2,31,224,159,0,65,15,240,3,192,0,131
3570 DATA 252,9,240,2,0,127,128,63,0,0,7,252,37,240,4,0,63,192,15,128,64,1
3580 DATA 255,0,127,128,128,3,254,2,254,2,24,7,252,1,248,4,16,7,248,1,240
3590 DATA 4,32,7,248,3,248,2,240,3,252,5,248,2,208,1,254,1,124,1,108,0,255
3600 DATA 128,63,0,63,0,191,224,47,192,1,194,15,248,5,240,8,56,19,254,4,191
3610 DATA 129,38,0,191,192,0,8,0,0,3,254,0,0,0,0,0,255,128,0,0,0,0,255,192
3620 DATA 0,0,0,0,255,128,0,0,0,1,254,0,0,0,0,15,252,0,0,0,0,31,240,0,0,0
3630 DATA 0,255,0,0,0,0,23,244,0,0,0,1,255,0,0,0,0,127,192,0,0,0,7,224,0,0
3640 DATA 0,11,240,0,0,0,3,240,0,0,0,3,240,0,0,0,3,192,0,0,0,47,192,0,0,0
3650 DATA 255,32,0,0,2,248,0,0,0,11,224,0,0,7,252,0,128,4,255,128,28,0,15
3660 DATA 240,43,137,36,127,1,16,130,79,248,41,130,9,63,193,92,0,0,255,0,241
3670 DATA 36,19,254,1,224,8,1,254,9,224,8,0,255,0,120,2,0,15,240,15,128,128
3680 DATA 0,63,192,62,18,192,0,63,66,158,32,224,8,0,238,8,241,7,48,0,0,125
3690 DATA 136,56,1,136,0,0,0,120,0,56,0,0,0,0,7,192,3,0,0,0,0,0,0,0,0,0,0
3700 DATA 0,96,0
3710 DATA -1
3830 DATA 0,112,0,0,0,14,226,24,0,0,14
3840 DATA 194,56,0,0,29,196,56,0,0,59,136,178,0,0,239,1,228,64,1,188,7,144
3850 DATA 0,14,226,14,64,18,119,128,122,0,1,188,1,240,0,13,192,95,128,0,254
3860 DATA 0,248,4,157,224,11,128,1,220,2,240,0,95,128,70,0,79,240,37,160,9
3870 DATA 188,137,12,0,95,65,32,0,167,240,1,0,83,248,8,0,0,252,0,0,0,123,0
3880 DATA 0,0,61,128,0,0,15,224,0,0,3,248,0,0,8,254,0,0,0,29,192,0,0,3,248
3890 DATA 0,0,0,59,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
3900 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,204,0,2,0,39,254,0,95,0,144,63,224
3910 DATA 10,112,4,0,255,0,63,128,144,7,248,2,248,2,0,63,224,39,192,6,0,255
3920 DATA 0,127,1,8,7,240,3,248,16,0,63,128,31,0,48,1,248,1,248,4,128,31,128
3930 DATA 15,128,64,1,248,4,248,8,0,31,128,47,128,32,0,248,1,124,16,0,47,128
3940 DATA 151,129,0,3,248,33,248,8,0,31,1,47,130,0,7,224,37,240,64,0,252,18
3950 DATA 124,16,0,95,1,47,0
3960 DATA -1
3970 DATA -2
4000 REM RITA BILDEN
4010 RESTORE 4000
4020 ; CHR$(12%)CUR(23%,0%);
4030 FOR X%=1% TO 23%
4040 FOR T%=0% TO 100% : NEXT T%
4050 READ A$
4060 ; CHR$(23%);TAB(6%)A$
4070 NEXT X%
4080 RETURN 
4090 DATA '            j  4   0
4100 DATA '          4 *0h!  6   `
4110 DATA '     `    *0 5j  6  `8!
4120 DATA '      #d   i %5 6  8!  `8
4130 DATA '        #d  eh!6 8& `8&!
4140 DATA '   "#,,pp0#$""" &`8&!`8,#
4150 DATA '        `r3`0  p ! ,#appp0
4160 DATA '  (,&###!  "!  # "###!
4170 DATA '       0`&  h}  "d")d0
4180 DATA '   `8,# j `  #! ` j   ")$
4190 DATA '  "!    *0 )p `8! :
4200 DATA '         )0  #!  8!
4210 DATA '          2,ppp8&0
4220 DATA '        `&       "d
4230 DATA '       `%          i
4240 DATA '       6     6i     e
4250 DATA '       5     "!     j    }0
4260 DATA '       5     8d     j    o
4270 DATA '       5     )&     j     +0
4280 DATA '       5            j      i
4290 DATA '       *0          `%0     j
4300 DATA '        )0        `& "d0  p%
4310 DATA '         "dpppppp8!    "##
5000 REM R\R P] MUNNEN
5010 ; CUR(10%,18%)'<#)<'
5020 ; CUR(11%,18%)'",& '
5030 FOR T%=0% TO 500% : NEXT T%
5040 ; CUR(10%,18%)'p `8'
5050 ; CUR(11%,18%)' #! '
5060 FOR T%=0% TO 250% : NEXT T%
5070 RETURN 
6000 REM RULLA BORT BILD
6010 ; CUR(23%,0%);
6020 FOR X%=0% TO 23%
6030 FOR T%=0% TO 100% : NEXT T%
6040 ; 
6050 NEXT X%
6060 ; CUR(0%,0%)
6070 RETURN