home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / USCX / DOSUT-17.ZIP / SIZER.BAS < prev    next >
BASIC Source File  |  1983-12-13  |  2KB  |  42 lines
  1.   1 CLS:PRINT "THIS basic PROGRAM WAS AUTOMATICALLY CREATED BY CONVERT.BAS"
  2.   2 PRINT"Copyright 1982 ,Rich Schinnell Rockville,MD. Not for Sale."
  3.   3 PRINT "This program will automatically generate you a .COM program named sizer.com":PRINT 
  4.   4 ON ERROR GOTO 5000
  5.   6 INPUT "PLACE the disk to write the file TO in Default Drive (A: Usually) HIT <ENTER> "; SCHINNELL$
  6.   9 PRINT:PRINT " Now reading the data statements, wait!"
  7.  10 RESTORE:READ T:FOR I = 1 TO T:READ N:X#=X#+N:NEXT I
  8.  20 READ TOT# :IF TOT#<>X# THEN 5000
  9.  22 CLS:LOCATE 12,5:PRINT "Now writing file NAMED sizer.com standby please  ASCII COUNT IS ";TOT#
  10.  30 RESTORE
  11.  40 OPEN "R", #1,"sizer.com",1 
  12.  50 FIELD #1, 1 AS N$
  13.  60 READ N
  14.  70 FOR I = 1 TO N
  15.  80 READ N:LSET N$=CHR$(N):
  16.  92 PUT #1 :NEXT I:CLOSE
  17.  94 PRINT "sizer.com CREATED * *":GOTO 5010
  18.  99 DATA  257
  19. 1000 DATA 180,48,205,33,60,0,117,3,235,63,144,14
  20. 1011 DATA 31,141,22,141,1,184,0,61,205,33,115,3,235
  21. 1012 DATA 65,144,139,216,184,2,66,51,201,51,210,205,33
  22. 1013 DATA 115,3,235,49,144,131,250,0,116,3,235,86,144
  23. 1014 DATA 61,115,0,116,3,235,78,144,180,62,205,33,115
  24. 1015 DATA 3,235,18,144,184,0,76,205,33,141,22,148,1
  25. 1016 DATA 180,9,205,33,51,192,205,33,80,180,62,205,33
  26. 1017 DATA 88,80,141,22,185,1,180,9,205,33,90,128,250
  27. 1018 DATA 9,126,11,82,178,49,180,2,205,33,90,128,234
  28. 1019 DATA 10,128,194,48,180,2,205,33,178,13,180,2,205
  29. 1020 DATA 33,178,10,180,2,205,33,184,1,76,205,33,69
  30. 1021 DATA 82,82,76,79,71,0,83,73,90,69,82,32,114
  31. 1022 DATA 101,113,117,105,114,101,115,32,68,79,83,32,50
  32. 1023 DATA 46,48,32,111,114,32,103,114,101,97,116,101,114
  33. 1024 DATA 46,13,10,36,70,105,108,101,32,97,99,99,101
  34. 1025 DATA 115,115,32,101,114,114,111,114,32,45,45,32,115
  35. 1026 DATA 116,97,116,117,115,58,32,36,83,73,90,69,82
  36. 1027 DATA 32,45,45,32,67,111,112,121,114,105,103,104,116
  37. 1028 DATA 32,40,67,41,32,49,57,56,51,32,84,111,110
  38. 1029 DATA 121,32,65,108,97,110,32,82,104,101,97
  39. 1030 DATA  23779
  40. 5000 PRINT "* * ERROR VERIFY DATA * * * "
  41. 5010 CLOSE:END
  42.