home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / MISC / TNH_PC.ZIP / CRS.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-01-14  |  1.4 KB  |  28 lines
  1. 20 'CRS.BAS by John R. Herzfeld, P. O. Box 159, Mercer Island, WA 98040
  2. 40 '
  3. 60 'Creates CRS.COM program which sets the cursor shape to four lines thick,
  4. 80 '  with start value 10, end value 13. At the DOS prompt, type CRS<enter>
  5. 100 ' to set the cursor shape. If you want a different shape, change the DATA
  6. 120 ' in lines 460 and 500, and also the checksum in line 560.
  7. 140 'If you have the graphics display, study the LOCATE statement in the
  8. 160 ' BASIC manual to get the correct values. You will need this program
  9. 180 ' only until you have created the .COM program.
  10. 200 DEFINT C, I, N: FILENAME$= "CRS.COM"  'You may use another name!
  11. 220 PRINT "On which drive do you want the COM file? [RETURN = default drive]"
  12. 240 Q$=INPUT$(1): IF Q$=CHR$(13) THEN DRIVE$="" ELSE DRIVE$= Q$+":"
  13. 260 FILESPEC$= DRIVE$+ FILENAME$: CHECKSUM= 0
  14. 280 FOR I=1 TO 10: READ N: CHECKSUM= CHECKSUM+ N
  15. 300 NEXT: READ N: IF N<>CHECKSUM THEN PRINT "ERROR - VERIFY DATA": STOP
  16. 320 RESTORE: OPEN "R", 1, FILESPEC$, 1
  17. 340 FIELD 1, 1 AS N$
  18. 360 FOR I=1 TO 10: READ N: LSET N$= CHR$(N): PUT 1
  19. 400 NEXT: CLOSE: PRINT FILESPEC$+ " CREATED": END
  20. 420 DATA &HB8, &H00, &H01, &HB9
  21. 440 'The next data line sets the ENDING scan line value - NOTE REVERSE ORDER
  22. 460 DATA &H0D
  23. 480 'The next data line sets the BEGINNING scan line value
  24. 500 DATA &H0A
  25. 520 DATA &HCD, &H10, &HCD, &H20
  26. 540 ' The value in line 560 is the sum of all the values in lines 420 - 520.
  27. 560 DATA &H353
  28.