PCjs Machines

Home of the original IBM PC emulator for browsers.

Logo

PC-SIG Diskette Library (Disk #157)

[PCjs Machine "ibm5160"]

Waiting for machine "ibm5160" to load....

Information about “IBM USERS GROUP #2”

File Descriptions:

???????  NL   Data files (24 files).
AUTOEXEC BAT  Batch file to automatically start the program.
CRL      BAS  Basic program to change cursor size.
CRL      COM  Program to change cursor size.
CRS      COM  Program to change cursor size.
???????  PIC  Picture data files (9 files).
MASTHEAD      Information file.
NEWS     EXE  Main program.
PCUGNEWS TOC  Information file.

CRC.TXT

PC-SIG Disk No. #157, version v1

The following is a list of the file checksums which should be produced by
the CRCK4 program on disk #9 (and others).  If the CRC numbers do not match
you may have a bad file.  To use type:  CRCK4 <filespec>

CRCK4 output for this disk:


CRCK ver 4.2B (MS DOS VERSION )
CTL-S pauses, CTL-C aborts

--> FILE:  AUTOEXEC.BAT         CRC = 67 E7

--> FILE:  MASTHEAD.            CRC = D7 6C

--> FILE:  CRL     .COM         CRC = 8A 4B

--> FILE:  CRS     .COM         CRC = 9F D8

--> FILE:  NEWS    .EXE         CRC = 0D 7E

--> FILE:  PCUGNEWS.TOC         CRC = 3E 9A

--> FILE:  EDITOR  .PIC         CRC = 49 FD

--> FILE:  UGOS    .PIC         CRC = B7 0C

--> FILE:  NPANN   .PIC         CRC = 86 A0

--> FILE:  VANDR   .PIC         CRC = 23 5D

--> FILE:  TANDT   .PIC         CRC = F4 5F

--> FILE:  FONS    .PIC         CRC = 29 20

--> FILE:  UGASK   .PIC         CRC = B2 09

--> FILE:  CURUGS  .PIC         CRC = 7D 9B

--> FILE:  NEWSLOGO.PIC         CRC = B4 A6

--> FILE:  EDTORIAL.NL          CRC = 15 85

--> FILE:  PASCAL  .NL          CRC = 4D BC

--> FILE:  FORTRAN .NL          CRC = 05 7D

--> FILE:  COBRUN  .NL          CRC = 3E B8

--> FILE:  SORT    .NL          CRC = 84 B4

--> FILE:  BASRUN  .NL          CRC = BF 9C

--> FILE:  SORTREDI.NL          CRC = A1 EF

--> FILE:  PLANNER .NL          CRC = 70 60

--> FILE:  COMM    .NL          CRC = 06 3E

--> FILE:  ROHDE   .NL          CRC = CA EA

--> FILE:  SCHNELL .NL          CRC = 8E C4

--> FILE:  YOUNG   .NL          CRC = E0 51

--> FILE:  ADDRESS .NL          CRC = 71 BF

--> FILE:  WEBER   .NL          CRC = B3 16

--> FILE:  SCHNELL1.NL          CRC = 02 41

--> FILE:  JEWELL  .NL          CRC = 32 C7

--> FILE:  WATKINS .NL          CRC = A1 CD

--> FILE:  METZGER .NL          CRC = 45 F2

--> FILE:  CORTESI .NL          CRC = 6B 1D

--> FILE:  HERZFELD.NL          CRC = 70 D7

--> FILE:  PUPGRADE.NL          CRC = B9 9F

--> FILE:  JORDAN  .NL          CRC = D9 AE

--> FILE:  NIEHOFF .NL          CRC = 17 24

--> FILE:  CRL     .BAS         CRC = 2B ED

--> FILE:  FUPGRADE.NL          CRC = A5 AA

 ---------------------> SUM OF CRCS = 3A 47

DONE

These and other Public Domain and user-supported programs from:

PC Software Interest Group
1125 Stewart Ct  Suite G
Sunnyvale, CA 94086
(408) 730-9291

CRL.BAS

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

Directory of PC-SIG Library Disk #0157

 Volume in drive A has no label
 Directory of A:\

ADDRESS  NL       9216   4-27-84   3:14p
AUTOEXEC BAT       128   4-27-84   3:06p
BASRUN   NL       2048   4-27-84   3:15p
COBRUN   NL       2048   4-27-84   3:15p
COMM     NL       2048   4-27-84   3:14p
CORTESI  NL       3072   4-27-84   3:12p
CRC      TXT      2439  11-14-84  11:30a
CRCK4    COM      1536  10-21-82   7:54p
CRL      BAS      3200   4-27-84   3:11p
CRL      COM       128   4-27-84   3:07p
CRS      COM       128   4-27-84   3:07p
CURUGS   PIC      2944   4-27-84   3:16p
EDITOR   PIC      3200   4-27-84   3:18p
EDTORIAL NL       2048   4-27-84   3:16p
FONS     PIC      2688   4-27-84   3:17p
FORTRAN  NL       4096   4-27-84   3:16p
FUPGRADE NL       2048   4-27-84   3:11p
HERZFELD NL       4096   4-27-84   3:12p
JEWELL   NL       3072   4-27-84   3:13p
JORDAN   NL       8192   4-27-84   3:12p
MASTHEAD          1536   4-27-84   3:07p
METZGER  NL       6144   4-27-84   3:13p
NEWS     EXE     74880   4-27-84   3:18p
NEWSLOGO PIC     16512   4-27-84   3:16p
NIEHOFF  NL       8192   4-27-84   3:12p
NPANN    PIC      4352   4-27-84   3:17p
PASCAL   NL       3072   4-27-84   3:16p
PCUGNEWS TOC      1664   4-27-84   3:18p
PLANNER  NL       3072   4-27-84   3:15p
PUPGRADE NL       2048   4-27-84   3:12p
ROHDE    NL       5120   4-27-84   3:14p
SCHNELL  NL       7168   4-27-84   3:14p
SCHNELL1 NL       6144   4-27-84   3:13p
SORT     NL       2048   4-27-84   3:15p
SORTREDI NL       2048   4-27-84   3:15p
TANDT    PIC      2048   4-27-84   3:17p
UGASK    PIC      2432   4-27-84   3:17p
UGOS     PIC      2816   4-27-84   3:17p
VANDR    PIC      3328   4-27-84   3:17p
WATKINS  NL       3072   4-27-84   3:13p
WEBER    NL       4096   4-27-84   3:13p
YOUNG    NL       3072   4-27-84   3:14p
       42 file(s)     223239 bytes
                       88064 bytes free