#LOAD M.VIRTUAL
#DEF  YELLOW = CHR$131
#DEF  CYAN   = CHR$134
#DEF  RED    = CHR$129
#DEF  WAIT   = TIME=0:REP.U.TIME>%0%
05 VIRTUAL_POOL 2000
10 MODE 7
20 P.YELLOW;"This is a demonstration of virtual"
25 P.YELLOW;"program paging."
30 P.CYAN;"We will now load in a routine to"
35 P.CYAN;"display various colours."
40 DO COLOR,131,133,0,0,0,0
50 P.RED;"Now we will call it again using" 
55 P.RED;"other colours."
60 DO COLOR,134,129,0,0,0,0
65 WAIT 500
70 P.YELLOW;"Now we will roll it out of memory"
75 P.YELLOW;"and call in another virtual segment"
80 P.YELLOW;"to display pictures on the screen."
90 WAIT 300
95 MODE 4
100 DO PICTURE,"GIRL","BECKMAN",0,0,0,0
110 P."Now do some other pictures as well."
120 DO PICTURE,"DRAGON","LADY2",0,0,0,0
140 P."Isn't she pretty? Now we will page in"
145 P."another routine to draw persian rugs."
155 WAIT 300
160 MODE 1
170 DO PERSIAN,0,0,0,0,0,0
180 WAIT 500
190 MODE 7
200P.YELLOW;"Those routines were examples of how"
205 P.YELLOW;"your machine can use virtual memory"
210 P.YELLOW;"to load in only certain segments"
220 P.YELLOW;"of a program at a time, or invoke"
225 P.YELLOW;"system-supplied utilities with little"
230 P.YELLOW;"user effort, therefore allowing you"
235 P.YELLOW;"to now be able to code programs of"
240 P.YELLOW;"unlimited sizes, without having to"
250 P.YELLOW;"worry too much about the constraints"
255 P.YELLOW;"of memory on your BBC machine!"
260 P.'CYAN;"SOLIDISK TECHNOLOGY LIMITED 1984"
270 END