1 CLS:PRINT "THIS basic PROGRAM WAS AUTOMATICALLY CREATED BY CONVERT.BAS"
2 PRINT"Copyright 1982 ,Rich Schinnell Rockville,MD. Not for Sale."
3 PRINT "This program will automatically generate you a .COM program named DM.COM":PRINT 
4 ON ERROR GOTO 5000
6 INPUT "PLACE the disk to write the file in Drive A: and then Strike any key "; SCHINNELL$
9 PRINT:PRINT " Now reading the data statements, wait!"
10 RESTORE:READ T:FOR I = 1 TO T:READ N:X#=X#+N:NEXT I
20 READ TOT# :IF TOT#<>X# THEN 5000
22 CLS:LOCATE 12,5:PRINT "Now writing file NAMED DM.COM standby please "
30 RESTORE
40 OPEN "R", #1,"DM.COM",1 
50 FIELD #1, 1 AS N$
60 READ N
70 FOR I = 1 TO N
80 READ N:LSET N$=CHR$(N):
92 PUT #1 :NEXT I:CLOSE
94 PRINT "DM.COM CREATED * *":GOTO 5010
99 DATA  64
1000 DATA 30,43,192,80,142,216,191,8,4,184,188,3
1011 DATA 80,143,5,131,199,2,184,120,3,80,143,5,203
1012 DATA 0,0,0,0,0,0,0,83,84,65,67,75,32
1013 DATA 32,32,83,84,65,67,75,32,32,32,83,84,65
1014 DATA 67,75,32,32,32,83,84,65,67,75,32,32,32
1015 DATA  4459
5000 PRINT "* * ERROR VERIFY DATA * * * "
5010 CLOSE:END