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