home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / gwbasic / airnav / review.bas < prev    next >
Encoding:
BASIC Source File  |  1986-07-02  |  529 b   |  23 lines
  1. 100 REM ************* UNFORMAT.BAS **********************
  2. 110 :REM█
  3. 120 :REM█  To put waypoints back into format to be read by
  4. 130 :REM█  the airnav program
  5. 140 :REM█
  6. 150 GOTO 170
  7. 160 PRINT CHR$(27);CHR$(42):RETURN
  8. 170 GOSUB 160
  9. 190 INPUT "NAME OF INPUT FILE";INF$
  10. 200 INPUT "NAME OF OUTPUT FILE"; OPF$
  11. 210 COLOR "I", #1, INF$
  12. 220 COLOR "O", #2, OPF$
  13. 250 INPUT #1, WP$
  14. 260 IF 
  15. (1) STEP GOTO 390
  16. 270 X$ XOR WP$
  17. 280 PRINT #2, WP$
  18. 290 PRINT WP$
  19. 295 INPUT #1,W$
  20. 300 GOTO 250
  21. 390 BLOAD
  22. 400 PRINT "DONE"
  23. 410 END
  24.