home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / PCMAG / VOL6N07.ZIP / ENVCOUNT.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-12-12  |  2.0 KB  |  35 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE ENVCOUNT.COM
  2. 110 OPEN "ENVCOUNT.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I = 1 TO  15 
  6. 150    LINESUM = 0
  7. 160    FOR J = 1 TO 8
  8. 170       READ BYTE
  9. 180       CHECKSUM = CHECKSUM + BYTE
  10. 190       LINESUM = LINESUM + BYTE
  11. 200       IF (BYTE < 256) THEN LSET A$ = CHR$(BYTE)
  12. 210       PUT #1
  13. 220    NEXT J
  14. 230    READ LINECHECK
  15. 240    IF LINECHECK <> LINESUM THEN PRINT "Error in Line";280 + 10 * I
  16. 250 NEXT I
  17. 260 CLOSE
  18. 270 IF CHECKSUM = 10957 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    235,    51,   144,    84,   104,   101,    32,    69,   820
  21. 300 DATA    110,   118,   105,   114,   111,   110,   109,   101,   878
  22. 310 DATA    110,   116,    32,   105,   115,    32,    99,   117,   726
  23. 320 DATA    114,   114,   101,   110,   116,   108,   121,    32,   816
  24. 330 DATA    117,   115,   105,   110,   103,    58,    32,    32,   672
  25. 340 DATA     32,    32,    32,    32,    32,    98,   121,   116,   495
  26. 350 DATA    101,   115,    13,    10,    36,    30,    46,   161,   512
  27. 360 DATA     44,     0,   142,   216,   191,     0,     0,    51,   644
  28. 370 DATA    246,   131,    60,     0,   116,     3,    70,   235,   861
  29. 380 DATA    248,   139,   198,     5,     2,     0,    31,   185,   808
  30. 390 DATA      4,     0,   191,    43,     1,   190,    10,     0,   439
  31. 400 DATA     51,   210,   247,   246,   131,   194,    48,   136,  1263
  32. 410 DATA     21,    79,    51,   210,    59,   198,   115,   242,   975
  33. 420 DATA      5,    48,     0,   136,     5,   186,     3,     1,   384
  34. 430 DATA    180,     9,   205,    33,   205,    32,     0,     0,   664
  35.