home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / USCX / DOSUT-17.ZIP / NORESET.BAS < prev    next >
BASIC Source File  |  1984-10-12  |  2KB  |  36 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 NORESET.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 NORESET.COM standby please  ASCII COUNT IS ";TOT#
  10.  30 RESTORE
  11.  40 OPEN "R", #1,"NORESET.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 "NORESET.COM CREATED * *":GOTO 5010
  18.  99 DATA  170
  19. 1000 DATA 235,115,0,0,0,0,80,30,184,64,0,142
  20. 1011 DATA 216,246,6,23,0,4,116,12,246,6,23,0,8
  21. 1012 DATA 116,5,128,38,23,0,243,31,88,46,255,46,2
  22. 1013 DATA 1,78,79,82,69,83,69,84,58,32,73,110,99
  23. 1014 DATA 111,114,114,101,99,116,32,68,79,83,32,118,101
  24. 1015 DATA 114,115,105,111,110,46,13,10,36,78,79,82,69
  25. 1016 DATA 83,69,84,58,32,60,67,116,114,108,62,60,65
  26. 1017 DATA 108,116,62,60,68,101,108,62,32,114,101,115,101
  27. 1018 DATA 116,32,100,105,115,97,98,108,101,100,46,13,10
  28. 1019 DATA 36,180,48,205,33,60,0,117,10,141,22,39,1
  29. 1020 DATA 180,9,205,33,205,32,184,9,53,205,33,140,6
  30. 1021 DATA 4,1,137,30,2,1,186,6,1,184,9,37,205
  31. 1022 DATA 33,141,22,73,1,180,9,205,33,141,22,40,1
  32. 1023 DATA 205,39
  33. 1024 DATA  13131
  34. 5000 PRINT "* * ERROR VERIFY DATA * * * "
  35. 5010 CLOSE:END
  36.