home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / xref / xmaker.bas < prev    next >
Encoding:
BASIC Source File  |  1984-09-07  |  896 b   |  19 lines
  1. 10 DEFINT A-Z:CLS:KEY OFF:DEF FNHEX(X$)=VAL("&h"+X$)
  2. 20 LOCATE 3,1:PRINT "X-Maker":READ F$
  3. 30 LOCATE 5,1,1:PRINT "Now testing for data errors...please wait";
  4. 40 SUM=0:READ LN:IF LN<0 THEN 80
  5. 50 READ H$:IF VAL(H$)<0 THEN 70
  6. 60 SUM=(SUM+FNHEX(H$))*2:SUM=(SUM\256)+(SUM MOD 256):GOTO 50
  7. 70 READ CKSUM$:IF SUM=FNHEX(CKSUM$) THEN 40 ELSE GOTO 170
  8. 80 RESTORE:CLS:LOCATE 3,1:PRINT "X-Maker":READ F$
  9. 90 LOCATE 5,1,1: PRINT "Press any key to create ";F$;": ";
  10. 100 A$=INPUT$(1):PRINT:IF A$=CHR$(27) THEN END
  11. 110 LOCATE 6,1:PRINT "Working...";
  12. 120 OPEN F$ AS #1 LEN=1:FIELD #1,1 AS BYTE$
  13. 130 READ LN: IF LN<0 THEN 160
  14. 140 READ H$:IF VAL(H$)<0 THEN READ CKSUM$: GOTO 130
  15. 150 LSET BYTE$=CHR$(FNHEX(H$)):PUT #1:GOTO 140
  16. 160 CLOSE:PRINT:PRINT F$;" has now been created.":END
  17. 170 PRINT:PRINT "Error in data line";STR$(LN);". ";
  18. 180 PRINT "Check your work.":BEEP:END
  19.