10 ! SPELDEM2.BAC
20 ! Program av Magnus <8042> 1991
30 ! Det {r programet scrollar en barna av typ(.BAN) }t v{nster
40 ! .BAN filerna skapas med SPELEDIT
50 ! Programet {r gjort p} en ABC806
60 ! Programer f}r andv{ndas i egna spel och program
70 INTEGER : NO EXTEND 
80 POKE 65294,54000,SWAP%(54000)
90 DIM B$=0 : POKE VAROOT(B$),50,SWAP%(50),49152,SWAP%(49152),50,SWAP%(50)
100 POKE 55000,229,213,197,62,0,50,47,215,17,0,120,122,50,45,215,123
110 POKE 55016,50,46,215,98,107,35,1,79,0,237,176,33,0,192,58,47
120 POKE 55032,215,79,6,0,9,35,126,211,53,43,126,18,58,45,215,103
130 POKE 55048,58,46,215,111,1,80,0,9,62,127,188,194,32,215,62,208
140 POKE 55064,189,194,32,215,193,209,225,201,84,93,58,47,215,60,60,50
150 POKE 55080,47,215,195,227,214,0,0,0
160 REM Startadress =  55000 
170 OPEN "speldemo.ban" AS FILE 1
180 GET #1,B$ COUNT 50
190 Q=1
200 T$=MID$(B$,Q,1) : F$=MID$(B$,Q+1,1)
210 IF ASCII(F$)=0 AND ASCII(T$)=0 THEN 230
220 FGCTL BLK : Z=CALL(55000) : GOTO 180
230 CLOSE : GOTO 170