100 REM MINI-TEST F. SURFACE  STK 9/92
105 IFPEEK(50178)+PEEK(50179)*256<>9888THENA=1:LOAD"SURFACE",8,1
107 IFA=1THENSYS49554
110 _COLOR,14,6:PRINT"[147]":DIMB$(40)
120 FORI=0TO40:B$(I)=STR$(I):NEXT
130 _CHARDEF,0,173,1,2,4,8,16,32,64,128
140 _ICOL,8,6,1,0:_ICONS
150 _COLOR,15,2:POKE646,1
160 _FRAME,8,5,31,20,"MINI-TEST"
170 _FRAME,0,0,39,20,"SURFACE"
180 _FRAME,0,20,39,24,"<<RETURN>>"
190 _WINDOW,9,6,30,19:O=5:R=8
200 _SHOW,B$(2),38,O,R,O,R,T
210 IFT=13THEN:_FETCH,1,B$(1+O+R)," ",22,B$(1+O+R):GOTO200
220 _SHUT:_AT,1,22:PRINTB$(1+O+R);
230 FORI=0TO12:_UP,0,12,39,24:_DOWN,0,0,39,12:NEXT
240 _OFF:END