home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol7n10.zip / INFO.BAS < prev    next >
BASIC Source File  |  1988-05-31  |  2KB  |  28 lines
  1. 100 ' Program to create INFO.COM -- by Hal Shearer
  2. 110 CLS:PRINT "Checking DATA; please wait..."
  3. 120 FOR B=1 TO 18:FOR C=1 TO 16:READ A$:T=T+VAL("&H"+A$):NEXT
  4. 130 READ S:IF S<>T THEN PRINT "ERROR IN LINE";B*10+180:END
  5. 140 T=0:NEXT:RESTORE
  6. 150 OPEN "INFO.COM" AS #1 LEN=1:FIELD #1,1 AS D$
  7. 160 FOR B=1 TO 18:FOR C=1 TO 16:READ A$
  8. 170 LSET D$=CHR$(VAL("&H"+A$)):PUT #1:NEXT:READ DUMMY$:NEXT
  9. 180 CLOSE:PRINT "INFO.COM CREATED"
  10. 190 DATA EB,7C,90,00,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,1055
  11. 200 DATA 2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,736
  12. 210 DATA 2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,52,65,73,70,962
  13. 220 DATA 6F,6E,73,65,20,6E,65,65,64,65,64,3A,20,50,52,45,1403
  14. 230 DATA 53,53,20,41,4E,59,20,4B,45,59,20,54,4F,20,41,44,1055
  15. 240 DATA 56,41,4E,43,45,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,871
  16. 250 DATA 2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,736
  17. 260 DATA 2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,24,56,57,807
  18. 270 DATA BE,80,00,FC,E8,60,00,80,3C,0D,74,14,B9,28,00,8D,1601
  19. 280 DATA 3E,2C,01,AC,3C,0D,74,03,AA,E2,F8,41,B0,2E,F3,AA,1815
  20. 290 DATA 5F,5E,B4,01,B9,00,0F,CD,10,B4,02,B6,18,B2,13,CD,1581
  21. 300 DATA 10,C6,06,03,01,FF,80,06,03,01,01,8A,1E,03,01,B7,973
  22. 310 DATA 00,B9,27,00,E8,27,00,8A,87,04,01,B4,0E,CD,10,43,1255
  23. 320 DATA E8,26,00,B4,01,CD,16,74,03,EB,26,90,E2,E9,80,BF,1992
  24. 330 DATA 04,01,24,74,CC,EB,CF,46,80,3C,20,74,FA,C3,53,B4,1917
  25. 340 DATA 02,B6,18,B2,13,CD,10,5B,C3,51,B9,58,02,E2,FE,59,1837
  26. 350 DATA C3,E8,EA,FF,B9,4F,00,B0,20,B4,0E,CD,10,E2,F8,B4,2457
  27. 360 DATA 01,B5,0B,B1,0C,CD,10,CD,20,00,00,00,00,00,00,00,840
  28.