home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol7n08.zip / MEM512.BAS < prev    next >
BASIC Source File  |  1988-04-26  |  1KB  |  25 lines
  1. 100 ' MEM512.BAS program to create MEM512.COM -- Barry Herbert
  2. 110 E=4:CLS:PRINT "Checking DATA; please wait..."
  3. 120 FOR B=1 TO 15: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:OPEN "MEM512.COM" AS #1 LEN=1
  6. 150 FIELD #1,1 AS D$:FOR B=1 TO 15:FOR C=1 TO 16:READ A$
  7. 160 LSET D$=CHR$(VAL("&H"+A$)):PUT #1:IF B=15 AND C=E THEN 180
  8. 170 NEXT:READ F$:NEXT
  9. 180 CLOSE:PRINT "MEM512.COM CREATED"
  10. 190 DATA BA,9E,01,B4,09,CD,21,BB,40,00,8E,DB,BB,13,00,8B,1729
  11. 200 DATA 07,3D,00,02,76,1A,C7,07,00,02,0E,1F,BA,50,01,B4,914
  12. 210 DATA 09,CD,21,B0,05,B9,FF,FF,E2,FE,FE,C8,75,F7,CD,19,2651
  13. 220 DATA 0E,1F,F6,36,E3,01,80,CC,30,88,26,99,01,D4,0A,0D,1516
  14. 230 DATA 30,30,86,E0,A3,97,01,BA,77,01,B4,09,CD,21,CD,20,1739
  15. 240 DATA 52,65,62,6F,6F,74,69,6E,67,20,74,6F,20,73,65,74,1560
  16. 250 DATA 20,6D,65,6D,6F,72,79,20,73,69,7A,65,20,74,6F,20,1463
  17. 260 DATA 35,31,32,4B,0D,0A,24,53,79,73,74,65,6D,20,6D,65,1173
  18. 270 DATA 6D,6F,72,79,20,73,69,7A,65,20,69,73,20,63,75,72,1544
  19. 280 DATA 72,65,6E,74,6C,79,20,30,30,30,4B,0D,0A,24,0A,0D,1003
  20. 290 DATA 4D,45,4D,2D,35,31,32,20,74,72,69,63,6B,73,20,44,1208
  21. 300 DATA 4F,53,20,69,6E,74,6F,20,74,68,69,6E,6B,69,6E,67,1528
  22. 310 DATA 20,73,79,73,74,65,6D,20,68,61,73,20,35,31,32,4B,1316
  23. 320 DATA 20,6F,72,20,6C,65,73,73,20,6F,66,20,52,41,4D,2E,1275
  24. 330 DATA 0D,0A,24,0A,00,00,00,00,00,00,00,00,00,00,00,00,69
  25.