Category : Files from Magazines
Archive   : VOL7N10.ZIP
Filename : RHCTRL.BAS

100 ' Program to create RHCTRL.COM -- by Johnny Y. Chin
110 CLS:PRINT "Checking DATA; please wait..."
120 FOR B=1 TO 22:FOR C=1 TO 16:READ A$:T=T+VAL("&H"+A$):NEXT
130 READ S:IF S<>T THEN PRINT "ERROR IN LINE";B*10+180:END
140 T=0:NEXT:RESTORE
150 OPEN "RHCTRL.COM" AS #1 LEN=1:FIELD #1,1 AS D$
160 FOR B=1 TO 22:FOR C=1 TO 16:READ A$
170 LSET D$=CHR$(VAL("&H"+A$)):PUT #1:NEXT:READ DUMMY$:NEXT
180 CLOSE:PRINT "RHCTRL.COM CREATED"
190 DATA E9,86,00,59,00,00,00,00,00,9C,50,1E,B8,40,00,8E,1112
200 DATA D8,8A,26,17,00,E4,60,3C,4C,75,18,F6,C4,08,75,3E,1645
210 DATA 2E,80,3E,08,01,01,74,21,80,CC,04,2E,C6,06,08,01,990
220 DATA 01,EB,12,3C,CC,75,27,F6,C4,08,75,22,80,E4,FB,2E,1928
230 DATA C6,06,08,01,00,88,26,17,00,E4,61,8A,E0,0C,80,E6,1467
240 DATA 61,86,E0,E6,61,FA,B0,20,E6,20,1F,58,9D,CF,1F,58,2104
250 DATA 9D,2E,FF,2E,04,01,51,8A,E0,B1,04,D2,E8,3C,09,77,1763
260 DATA 04,04,30,EB,02,04,37,80,E4,0F,80,FC,09,77,05,80,1364
270 DATA C4,30,EB,03,80,C4,37,59,C3,EB,7C,90,0A,0D,4E,75,1866
280 DATA 6D,65,72,69,63,20,70,61,64,2D,35,20,69,73,20,6E,1361
290 DATA 6F,77,20,72,69,67,68,74,2D,68,61,6E,64,20,43,74,1475
300 DATA 72,6C,20,6B,65,79,0A,0D,52,48,43,54,52,4C,20,56,1187
310 DATA 65,72,20,31,2E,30,20,2D,2D,20,42,79,20,4A,6F,68,1052
320 DATA 6E,6E,79,20,59,2E,20,43,68,69,6E,20,20,0A,0D,24,1049
330 DATA 0A,0D,52,48,43,54,52,4C,20,69,73,20,61,6C,72,65,1190
340 DATA 61,64,79,20,72,65,73,69,64,65,6E,74,20,61,74,20,1489
350 DATA 3F,3F,3F,3F,0A,0D,24,8C,C8,8E,D8,B8,09,35,CD,21,1493
360 DATA 89,1E,04,01,8C,06,06,01,26,A0,03,01,3A,06,03,01,595
370 DATA 74,15,BA,09,01,B8,09,25,CD,21,B4,09,8D,16,8C,01,1294
380 DATA CD,21,BA,89,01,CD,27,8C,C0,E8,2A,FF,A3,02,02,8C,1974
390 DATA C0,86,E0,E8,20,FF,A3,00,02,8D,16,E0,01,B4,09,CD,2016
400 DATA 21,CD,20,00,00,00,00,00,00,00,00,00,00,00,00,00,270