home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug013.ark / CONVERT.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  1.0 KB  |  34 lines
  1. REM   CONVERT    CONVERTS BASIC PROGRAMS USING EACH LINE HAVING A NUMBER \
  2.      TO CBASIC FORMAT WHERE ONLY ADDRESS LINE NUMBERS ARE REQUIRED \
  3.      THIS IS DONE BY FIRST OUTPUTTING THE CBASIC LIST FILE TO DISK \
  4.      AND THEN ALLOWING CONVERT TO READ THIS FILE.
  5. INPUT "INPUT FILE NAME, LST SUFIX ASSUMED";IN$
  6. INPUT "DO YOU WANT THE INPUT SHOWN ON THE CONSOLE";INP$
  7. INPUT "OUTPUT FILE NAME, FIX SUFIX ASSUMED";OUT$
  8. INPUT "DO YOU WANT THE OUTPUT SHOWN ON THE CONSOLE";OUTP$
  9. PRINT:PRINT
  10. OPEN IN$+".LST" AS 1
  11. IF END #1 THEN 98
  12. READ #1;LINE A$
  13. IF LEFT$(A$,6)<>"CBASIC" THEN \
  14.      PRINT "INPUT FILE INVALID, PROCESSING TERMINATED":GOTO 99
  15. CREATE OUT$+".FIX" AS 2
  16. IF END #2 THEN 98
  17. 10 READ #1;LINE A$
  18. IF INP$="Y" THEN PRINT A$
  19. FOR S=1 TO 80
  20. IF MID$(A$,S,1)="*" THEN GO TO 30
  21. IF MID$(A$,S,1)<>":" THEN NEXT S
  22. A$=RIGHT$(A$,LEN(A$)-(S+1))
  23. GOTO 40
  24. 30 S=S+2
  25. FOR S=S TO 80
  26. IF MID$(A$,S,1)<>" " THEN NEXT S
  27. A$="  "+RIGHT$(A$,LEN(A$)-S)    REM ADD TWO SPACES
  28. 40 IF OUTP$="Y" THEN PRINT A$
  29. PRINT USING "&";#2;A$
  30. GOTO 10
  31. 98 CLOSE 2
  32. 99 CLOSE 1
  33. END
  34.