home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / USCX / DOSUT-08.ZIP / CRL.BAS < prev    next >
BASIC Source File  |  1984-03-13  |  3KB  |  54 lines
  1. 10 'CRL.BAS by John R. Herzfeld, P. O. Box 159, Mercer Island, WA 98040
  2. 20 '
  3. 30 'BASIC program to create CRL.COM to change cursor shape in DOS. (If in
  4. 40 '  BASIC, use the LOCATE instruction.)  If you type CRL<enter> or CRL.COM
  5. 50 '  <enter>, you get its default shape, a cursor twice as thick as
  6. 60 '  the normal shape (start=10, end=13). If you want a different
  7. 70 '  shape, type CRL or CRL.COM, then a / or a space, then the decimal start
  8. 80 '  value, then any noncontrol alpha character (space ok) as separator,
  9. 90 '  then the decimal end value, followed by <enter>. If you omit the end
  10. 100 ' value, you'll get the default end value (13). The values to be used
  11. 110 ' are the same as for the LOCATE command in BASIC. For example, if you
  12. 120 ' have the monochrome display and type CRL 12 1<enter>, you will get a
  13. 130 ' two-line cursor at the bottom and another two-line cursor at the top.
  14. 140 ' The programmed default values are for the monochrome display; different
  15. 150 ' ones are needed with the color adapter. To
  16. 160 ' change the default values in the program, change the bytes in line 1020
  17. 170 ' AND in line 1040. On each line, the FIRST value is the END value, and
  18. 180 ' the SECOND value is the START value. The reversed positions are due
  19. 190 ' to the way the IBM PC stores data in memory. If you change a
  20. 200 ' default value, you must also recompute the checksum (the total of all
  21. 210 ' 102 byte values) and change it in line 1150.
  22. 220 'After you have created the CRL.COM file, you need this BASIC program
  23. 230 ' only as reference or to create additional files with other default
  24. 240 ' values. The program is very tolerant and ignores excess separator
  25. 250 ' characters or an excess number of value entries. CRL 12 1 and
  26. 260 ' CRL 12TTTgg00001x9y produce the same result.
  27. 270 '
  28. 300 DEFINT A-Z: FILENAME$= "CRL.COM"  'You may use another name!
  29. 320 PRINT "On which drive do you want the COM file? [RETURN = default drive]"
  30. 340 Q$=INPUT$(1): IF Q$=CHR$(13) THEN DRIVE$="" ELSE DRIVE$= Q$+":"
  31. 360 FILESPEC$= DRIVE$+ FILENAME$: CHECKSUM= 0
  32. 380 FOR I= 1 TO 102: READ N: CHECKSUM= CHECKSUM+ N: NEXT
  33. 400 READ N: IF N<>CHECKSUM THEN PRINT "ERROR - VERIFY DATA": STOP
  34. 420 'Last item in list is the sum of the 102 bytes to be put into the file
  35. 440 RESTORE: OPEN "R", 1, FILESPEC$, 1
  36. 460 FIELD 1, 1 AS N$: FOR I= 1 TO 102: READ N: LSET N$ = CHR$(N): PUT 1
  37. 480 NEXT: CLOSE: PRINT FILESPEC$ + " CREATED": END
  38. 1000 DATA &H31,&HC9,&H8A,&H0E,&H80,&H00,&H80,&HF1
  39. 1010 DATA &H00,&H75,&H0C,&HB8,&H00,&H01,&HB9
  40. 1020 DATA &H0D,&H0A
  41. 1030 DATA &HCD,&H10,&HCD,&H20
  42. 1040 DATA &H0D,&H0A
  43. 1050 DATA &HBF,&H16,&H01,&HBE,&H80,&H00,&HBA,&H0A,&H0A
  44. 1060 DATA &H31,&HC0,&H31,&HDB,&H46,&H8A,&H1C,&H80
  45. 1070 DATA &HEB,&H30,&H78,&H23,&H80,&HFB,&H0A,&H7D
  46. 1080 DATA &H1E,&HF6,&HE2,&H00,&HD8,&H88,&HDE,&HE2
  47. 1090 DATA &HE9,&H38,&HD6,&H74,&H03,&HE8,&H18,&H00
  48. 1100 DATA &H8A,&H2E,&H16,&H01,&H8A,&H0E,&H15,&H01
  49. 1110 DATA &HB8,&H00,&H01,&HCD,&H10,&HCD,&H20,&H38
  50. 1120 DATA &HD6,&H74,&HE4,&HE8,&H02,&H00,&HEB,&HDF
  51. 1130 DATA &H88,&H05,&H4F,&H81,&HFF,&H14,&H01,&H74
  52. 1140 DATA &HDF,&H31,&HC0,&H88,&HD6,&HC3
  53. 1150 DATA &H29E5
  54.