1  'OSGRAF.BAS  MBASIC 5.2 OSBORNE-1
2  '06/24/82  TOM MCCORMICK
3  'OSBORNE-1 CRT GRAPHICS EXAMPLES
6 GOTO 90
7 SAVE "OSGRAF.BAS":STOP
90 CLR$=CHR$(26)  'OS-1 CLEAR SCREEN
100 E$=CHR$(27)   'ESCAPE CHARACTER 
200 G$=CHR$(103)  'ENTER GRAPHICS
500 X$=CHR$(71)	  'EXIT GRAPHICS
600 PRINT CLR$
700 PRINT:PRINT
800 PRINT "SEE PAGE  8-32  OF OS-1 USERS GUIDE:"
900 PRINT "  HERE COME THE GRAPHICS CHARACTERS:"
1000 FOR I=0 TO 32 STEP 1
1200 PRINT E$;G$;CHR$(I);E$;X$;
1300 FOR J=1 TO 200:NEXT J 'DELAY
1400 NEXT I
1500 PRINT:PRINT
1600 PRINT " ";E$;"l";"THIS IS UNDERLINED";E$;"m";
1700 PRINT " and this is not."
1800 PRINT
1900 PRINT E$;")";" THIS IS HALF INTENSITY.";
2000 PRINT E$;"(";
2100 PRINT " THIS IS FULL INTENSITY."
2200 PRINT
2300 STOP
00 PRINT E$;")";" THIS IS HALF INTENSITY.";
2000 PRINT E$;"(";
2100 PRINT " THIS IS FULL INTENSITY."
2200 PRINT
2300 STOP