home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib03.dsk / NIFFUM.int < prev    next >
Text File  |  2023-02-26  |  1KB  |  36 lines
  1. 0 REM  **** THIS IS NIFFUM ****
  2. 1 REM  WHICH CREATES AN EXEC FILE
  3. 2 REM  WHICH BLOADS THE DOS 3.2
  4. 3 REM  FILE AFTER IT HAS BEEN
  5. 4 REM  MUFFINED FROM THE DOS 3.2
  6. 5 REM  DISK TO THIS DOS 3.3 DISK
  7. 6 REM  AFTER LOADING YOUR INTEGER
  8. 7 REM  BASIC FILE TO BE NIFFUMED
  9. 8 REM  TO THE DOS 3.2 DISK WHICH
  10. 9 REM  YOU HAVE WAITING - RIGHT?
  11. 10 REM 
  12. 20 TEXT :CALL -936
  13. 50 DIM NA$(30),FI$(10)
  14. 60 FI$="DOS.E"
  15. 70 D$="<CTRL-D>":REM  CTRL-D
  16. 80 C$="<CTRL-C>":REM  CTRL-C
  17. 90 PRINT D$;"MON C,I,O"
  18. 100 INPUT "NAME OF INTEGER BASIC PROGRAM:",NA$
  19. 120 PRINT "***** WHEN ALL THE ACTION STOPS, ENTER"
  20. 140 PRINT "A CTRL-C. THEN 'SAVE' THE BASIC PROGRAM"
  21. 145 PRINT "TO A DOS 3.2 FORMATTED DISKETTE.*****"
  22. 147 PRINT "======================================="
  23. 148  POKE 34,4:VTAB 6
  24. 150 PRINT D$;"OPEN";FI$
  25. 160 PRINT D$;"DELETE";FI$
  26. 170 PRINT D$;"OPEN";FI$
  27. 180 PRINT D$;"WRITE";FI$
  28. 200 PRINT "LOAD";NA$
  29. 210 PRINT "BLOAD DOS 3.2 BFILE"
  30. 220 PRINT "CALL -151"
  31. 230 PRINT "9600<800.31FFM"
  32. 260 PRINT D$;"CLOSE";FI$
  33. 280 PRINT D$;"NOMON C,I,O"
  34. 300 PRINT D$;"EXEC";FI$
  35. 500 END :REM 
  36.