home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / PCMAG / VOL7N18.ZIP / CTRLCAP.BAS < prev    next >
Encoding:
BASIC Source File  |  1988-09-19  |  1.6 KB  |  29 lines
  1. 100 REM - BASIC PROGRAM TO CREATE CTRLCAP.COM 
  2. 110 CLS:PRINT "Creating CTRLCAP.COM ": OPEN "CTRLCAP.COM " AS #1 LEN = 1
  3. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  4. 130 FOR I = 1 TO    10
  5. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "    10 - I ;
  6. 150  FOR J = 1 TO  16: READ BYTE$: BYTE = VAL("&H" + BYTE$)
  7. 160   CHECKSUM# = CHECKSUM# + BYTE: LINESUM# = LINESUM# + BYTE
  8. 170   IF (BYTE < 256) THEN LSET A$=CHR$(BYTE): PUT #1
  9. 180  NEXT J
  10. 190  READ LINETOT$: LINECHECK# = VAL("&H"+LINETOT$)
  11. 200  IF LINECHECK# = LINESUM# THEN GOTO 220
  12. 210  LOCATE 4,2: PRINT "Error in line #"  ;  260 +  10 * I: GOTO 260
  13. 220 NEXT I
  14. 230 CLOSE: READ FILETOT$ : FILECHECK# = VAL(FILETOT$)
  15. 240 IF CHECKSUM# <> FILECHECK# THEN GOTO 260
  16. 250 PRINT: PRINT "CTRLCAP.COM  created successfully": SYSTEM
  17. 260 PRINT: PRINT "CTRLCAP.COM  is not valid!": END
  18. 270 DATA EB, 72, 43, 54, 52, 4C, 43, 41, 50, 20, 31, 2E, 30, 20, 28, 63,   4C0
  19. 280 DATA 29, 20, 31, 39, 38, 38, 2C, 20, 5A, 69, 66, 66, 20, 43, 6F, 6D,   43D
  20. 290 DATA 6D, 75, 6E, 69, 63, 61, 74, 69, 6F, 6E, 73, 20, 43, 6F, 72, 70,   65E
  21. 300 DATA 2E,  D,  A, 50, 43, 20, 4D, 61, 67, 61, 7A, 69, 6E, 65, 20, FE,   542
  22. 310 DATA 20, 52, 6F, 62, 65, 72, 74, 20, 4C, 2E, 20, 48, 75, 6D, 6D, 65,   544
  23. 320 DATA 6C, 9C, 80, FC, 4F, 74,  3, 9D, EB, 15, 9D, 50, 24, 7F, 3C, 1D,   6D0
  24. 330 DATA 75,  5, 58,  4, 1D, EB,  7, 3C, 3A, 58, 75,  2, 2C, 1D, F9, EA,   556
  25. 340 DATA  0,  0,  0,  0, B4,  9, BA,  2,  1, CD, 21, B8, 15, 35, CD, 21,   458
  26. 350 DATA 89, 1E, 70,  1, 8C,  6, 72,  1, B8, 15, 25, BA, 51,  1, CD, 21,   509
  27. 360 DATA B8,  0, 31, BA, 18,  0, CD, 21,  0,  0,  0,  0,  0,  0,  0,  0,   2A9
  28. 370 DATA 12817
  29.