home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / emulator / model1_b.zip / CONVERT.BAS next >
BASIC Source File  |  1993-06-29  |  443b  |  17 lines
  1. 10 CLS:PRINT"Convert ROM and Disk files for use by the emulator.":PRINT
  2. 20 INPUT"Input file";F$
  3. 30 INPUT"Output file";NF$
  4. 40 H$="0123456789ABCDEF"
  5. 50 OPEN"I",1,F$
  6. 60 OPEN"O",2,NF$
  7. 70 WHILE NOT EOF(1)
  8. 80 LINE INPUT#1,X$
  9. 90 IF LEFT$(X$,1)="*"THEN 140
  10. 100 FOR X=10 TO 41 STEP 2
  11. 110 N=INSTR(H$,MID$(X$,X,1))*16+INSTR(H$,MID$(X$,X+1,1))-17
  12. 120 IF N>=0 THEN PRINT#2,CHR$(N);
  13. 130 NEXT X
  14. 140 WEND
  15. 150 CLOSE
  16. 160 BEEP:PRINT"Converted."
  17.