Category : Files from Magazines
Archive   : N7V11.ZIP
Filename : PRNBYL.BAS

100 ' PRNBYLIN.BAS program to create PRNBYLIN.COM -- R. Powell
110 E=5:CLS:PRINT "Checking DATA; please wait..."
120 FOR B=1 TO 21: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:OPEN "PRNBYLIN.COM" AS #1 LEN=1
150 FIELD #1,1 AS D$:FOR B=1 TO 21:FOR C=1 TO 16:READ A$
160 LSET D$=CHR$(VAL("&H"+A$)):PUT #1:IF B=21 AND C=E THEN 180
170 NEXT:READ F$:NEXT
180 CLOSE:PRINT "PRNBYLIN.COM CREATED"
190 DATA E9,28,01,00,00,00,00,00,00,52,50,53,51,1E,9C,0E,800
200 DATA 1F,B8,50,00,8E,C0,26,80,3E,00,00,01,74,0E,26,C6,1224
210 DATA 06,00,00,01,B4,0F,CD,10,3C,03,7E,0A,9D,1F,59,5B,990
220 DATA 58,5A,FF,26,01,01,B4,03,CD,10,89,16,07,01,33,C9,1296
230 DATA 8B,D1,B4,02,CD,10,E8,8E,00,32,E4,CD,16,80,FC,1C,2038
240 DATA 74,24,80,FC,4A,74,2F,80,FC,01,74,76,80,FC,4E,75,1959
250 DATA E8,80,F9,18,74,E3,3A,E9,75,05,E8,6A,00,FE,C5,FE,2432
260 DATA C1,E8,63,00,EB,D3,3A,E9,75,2C,80,F9,18,74,27,FE,2232
270 DATA C1,E8,53,00,EB,C3,80,F9,00,74,BE,E8,49,00,3A,E9,2217
280 DATA 75,07,FE,CD,FE,C9,EB,09,90,FE,C9,3A,CD,75,AA,FE,2685
290 DATA C1,E8,33,00,EB,A3,8A,F5,2A,CD,32,ED,41,51,8A,CE,2281
300 DATA E8,24,00,E8,45,00,FE,C1,8A,F1,59,E2,F0,8B,16,07,2118
310 DATA 01,B4,02,CD,10,26,C6,06,00,00,00,9D,1F,59,5B,58,1102
320 DATA 5A,CF,E8,02,00,EB,E6,51,8A,F1,32,D2,B9,50,00,51,2062
330 DATA B4,02,CD,10,B4,08,CD,10,80,F4,7F,8A,DC,B4,09,B9,2043
340 DATA 01,00,CD,10,FE,C2,59,E2,E6,59,C3,51,8A,F1,32,D2,2219
350 DATA B9,50,00,51,B4,02,CD,10,B4,08,CD,10,52,33,D2,32,1551
360 DATA E4,CD,17,5A,FE,C2,59,E2,EA,52,33,D2,B8,0D,00,CD,2288
370 DATA 17,33,D2,B8,0A,00,CD,17,5A,59,C3,B8,05,35,CD,21,1560
380 DATA 89,1E,03,01,8C,06,05,01,BA,09,01,B8,05,25,CD,21,983
390 DATA BA,2B,02,CD,27,00,00,00,00,00,00,00,00,00,00,00,475