home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / PCMAG / VOL4N23.ZIP / PSET.BAS < prev   
Encoding:
BASIC Source File  |  1987-12-13  |  2.0 KB  |  30 lines
  1. 100 ' Program for creating PSET.COM
  2. 110 CLS:PRINT "Checking DATA; please wait..."
  3. 120 FOR B=1 TO 5
  4. 130 FOR C=1 TO 17
  5. 140 READ A$:IF C<17 THEN 160
  6. 150 Z#=Z#+VAL(A$)
  7. 160 NEXT:NEXT
  8. 170 IF Z#=8979 THEN RESTORE:GOTO 200
  9. 180 PRINT "ERROR:  CHECK THE LAST NUMBER IN"
  10. 190 PRINT "EACH DATA STATEMENT--THEN REDO":END
  11. 200 FOR B=1 TO 5
  12. 210 FOR C=1 TO 16
  13. 220 READ A$:TTL=TTL+VAL("&H"+A$)
  14. 230 NEXT
  15. 240 READ S:IF S=TTL THEN 270
  16. 250 PRINT "DATA ERROR IN LINE";B*10+330
  17. 260 PRINT "CHECK FIGURES AND REDO":END
  18. 270 TTL=0:NEXT:RESTORE
  19. 280 OPEN "PSET.COM" AS #1 LEN=1:FIELD #1,1 AS D$
  20. 290 FOR B=1 TO 5
  21. 300 FOR C=1 TO 16
  22. 310 READ A$:LSET D$=CHR$(VAL("&H"+A$))
  23. 320 PUT #1:NEXT:READ DUMMY$:NEXT:CLOSE
  24. 330 PRINT "PSET.COM CREATED"
  25. 340 DATA BE,80,00,FC,AC,98,8B,C8,49,03,F1,FD,BA,34,12,E8,2291
  26. 350 DATA 2C,00,AC,3C,20,75,05,E8,24,00,E2,F6,2C,30,F6,E3,1735
  27. 360 DATA 02,D0,8A,C3,B3,0A,F6,E3,8A,D8,E2,E6,E8,0F,00,5A,2352
  28. 370 DATA 81,FA,34,12,74,06,B4,05,CD,21,EB,F3,CD,20,5B,52,1882
  29. 380 DATA 53,B3,01,33,D2,C3,00,00,00,00,00,00,00,00,00,00,719
  30.