10 DATACD,58,42,21,2D,F0,CD,62,14,CD,AA,47,D8,CD,60,42,21,A1,F5,11,78,FB,06,06
20 DATA7E,FE,2E,CA,89,EF,FE,00,CA,A2,EF,12,23,13,05,C2,74,EF,C3,91,EF,3E,20,12,13,05
30 DATAC2,8B,EF,06,02,23,7E,B7,CA,A2,EF,12,13,05,C2,93,EF,3E,20,12,CD,3A,23,CD
40 DATA9B,22,CA,5C,EF,EB,2B,16,00,1E,00,7B,FE,40,CA,FB,EF,23,7E,FE,1A,CA,1D,F0,FE,09
50 DATACA,E6,EF,FE,0D,CA,F4,EF,FE,20,CA,DB,EF,FA,F0,EF,E5,D5,CD,D0,74,D1,E1,14
60 DATAC3,B1,EF,E5,D5,CD,D1,74,D1,E1,14,C3,B1,EF,23,F5,7A,C6,08,57,F1,C3,B1,EF,23,C3
70 DATAB1,EF,23,16,00,1C,C3,B1,EF,1E,00,E5,D5,21,72,F0,CD,62,14,21,77,F0,CD,62
80 DATA14,3A,7C,F0,3C,32,7C,F0,CD,4D,17,CD,60,42,D1,E1,C3,B1,EF,21,72,F0,CD,62,14,21
90 DATA7E,F0,CD,62,14,CD,4D,17,C9,42,59,3A,47,45,52,41,4C,44,20,4B,20,54,53,55
100 DATA49,20,20,43,49,53,20,49,44,3A,20,37,34,37,31,36,2C,33,35,35,37,0A,0D,45,6E,74
110 DATA65,72,20,46,69,6C,65,6E,61,6D,65,3A,00,1B,59,2C,47,09,3B,20,41,54,20,33
120 DATA39,2C,37,00,1B,59,23,38,00,50,41,47,45,3A,31,00,45,4E,44,20,20,20,00
130 CLEAR256,61276!
150 FORX= 61276! TO 61572! 
170 READH$:GOSUB 210 :POKEX,H:NEXTX
190 BSAVE "PLOT  ", 61276! , 297 , 61279! :STOP
210 H=0:H1$=LEFT$(H$,1):GOSUB 250 
230 H=H*16:H1$=RIGHT$(H$,1)
250 H1=ASC(H1$):H=H+H1+32*(H1>95)+7*(H1>63)-48:RETURN
270 END
1000 REM THIS IS A TEXTPLOT PROGRAM WRITTEN IN ASSEMBLER 
1010 REM FOR USE WHEN THE CRT ADAPTER IS ATTACHED