home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib34b.dsk / DEC.HEX.TO.TEXT.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  27 lines
  1. 10  REM  ***************************
  2. 20  REM  * DEC.HEX.TO.TEXT         *
  3. 30  REM  * BY EDWARD H. CABANISS   *
  4. 40  REM  * COPYRIGHT(C) 1988       *
  5. 50  REM  * MICROSPARC, INC.        *
  6. 60  REM  * CONCORD, MA 01742       *
  7. 70  REM  ***************************
  8. 80 FL$ = "DECTOHEX"
  9. 90 D$ =  CHR$(4): PRINT 
  10. 100  PRINT D$"OPEN "FL$
  11. 110  PRINT D$"CLOSE "FL$
  12. 120  PRINT D$"DELETE "FL$
  13. 130  PRINT D$"OPEN "FL$
  14. 140  PRINT D$"WRITE "FL$
  15. 150 C = 3: IF FL$ = "HEXTODEC"  THEN C = 2
  16. 160  FOR I = 1 TO C: READ A$
  17. 170  FOR J = 1 TO  LEN(A$): IF  MID$ (A$,J,1) < >"'"  THEN  NEXT J: GOTO 190
  18. 180 A$ =  MID$ (A$,1,J -1) + CHR$(34) + MID$ (A$,J +1): NEXT J
  19. 190  PRINT A$: NEXT I
  20. 200  PRINT D$"CLOSE "FL$
  21. 210  IF FL$ = "HEXTODEC"  THEN  END 
  22. 220 FL$ = "HEXTODEC": GOTO 90
  23. 230  DATA "HEX$ ='':X = DEC: FOR I = 1 TO 10:X = X / 16: IF X = > 1 THEN NEXT I" 
  24. 240  DATA   "J = I: FOR I = 1 TO J:A =INT (16 * X):X = 16 * X - A:HEX$ = HEX$ + CHR$ (A + 48 + 7 * (A > 9)): NEXT I: IF HEX$ < > '0' THEN PRINT '     HEX$ = ';HEX$" 
  25. 250  DATA  "IF HEX$ = '0' THEN PRINT 'ENTER': PRINT: PRINT '     DEC = 1958': PRINT : PRINT ' FOR EXAMPLE. THEN EXEC DECTOHEX'"
  26. 260  DATA   "DEC = 0: IF HEX$ < > ''THEN FOR I = 1 TO LEN (HEX$):X$ = MID$ (HEX$,I,1):X = ASC(X$) - 48 - 7 * (X$ > '9'): DEC = 16 * DEC + X: NEXT I: PRINT '     DEC = ';DEC"  
  27. 270  DATA "IF HEX$ = ''THEN PRINT 'ENTER': PRINT: PRINT '     HEX$ = 'CHR$(34)'7A6' CHR$(34): PRINT: PRINT 'FOR EXAMPLE. THEN EXEC HEXTODEC'"