100 ! RXB SAMS LOADER DEMO
110 ! NO ASSEMBLY USED
120 ! PAGE 16 TO 36 USED
130 FOR A=1 TO 20
140 CALL SAMS(2,A+16)
150 CALL PLOAD(2,"DSK1.SCRN"&STR$(A))
160 CALL MOVES("RV",2079,8192,0)
170 NEXT A
180 FOR A=1 TO 20
190 CALL SAMS(2,A+16)
200 CALL MOVES("RV",2079,8192,0)
210 NEXT A
220 GOTO 180