s2dumpv1.bas

10 SCREEN 2:CLS
20 FOR I=0 TO 128 STEP 16
30 CIRCLE(128, 96),I
40 NEXT I
50 BSAVE "test.sc2",0,&H3FFF,S
60 BEEP
70 SCREEN 0: CLS
110 SCREEN 2:CLS
120 BLOAD "test.sc2",S
130 BEEP
140 A$=INPUT$(1)
150 SCREEN 0
160 END