home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib03.dsk / NIFFUM.FP.bas < prev    next >
BASIC Source File  |  2023-02-26  |  709b  |  23 lines
  1. 20  TEXT : CALL  -936
  2. 60 FI$ = "DOS.E"
  3. 70 CD$ =  CHR$(4):D$ =  CHR$(13) +CD$
  4. 80 C$ = "<CTRL-C>": REM  CTRL-C
  5. 90  PRINT D$;"MON C,I,O"
  6. 100  INPUT "NAME OF APPLESOFT BASIC PROGRAM :";NA$
  7. 120  TEXT : CALL  -936
  8. 130  PRINT "***** WHEN ALL THE ACTION STOPS, ENTER "
  9. 140  PRINT "A CTRL-C. THEN 'SAVE' THE BASIC PROGRAM"
  10. 147  PRINT "========================================"
  11. 148  POKE 34,4: VTAB 6
  12. 150  PRINT D$;"OPEN";FI$
  13. 160  PRINT D$;"DELETE";FI$
  14. 170  PRINT D$;"OPEN  ";FI$
  15. 180  PRINT D$;"WRITE ";FI$
  16. 200  PRINT "LOAD";NA$
  17. 210  PRINT "BLOAD DOS 3.2 BFILE.FP,A$6C00"
  18. 220  PRINT "CALL -151"
  19. 230  PRINT "9600<6C00.95FFM"
  20. 260  PRINT CD$;"CLOSE";FI$
  21. 280  PRINT D$;"NOMON C,I,O"
  22. 300  PRINT D$;"EXEC";FI$
  23. 500  END : REM