home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol073 / command.bas < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  919 b   |  35 lines
  1. 100 'TEST PROGRAM FOR CP/M COMMAND LINE FETCHING MODULE
  2. 110 '***** CAUTION ****** THIS WILL ONLY RUN PROPERLY WHEN COMPILED *****
  3. 120 '
  4. 130 'By Bill Bolton, Software Tools, P.O. Box 80, Newport Beach, NSW 2106
  5. 140 '26/Jan/1981
  6. 150 '
  7. 160 B$="ANYTHING"
  8. 170 PRINT
  9. 180 INPUT "Please type a short message : ";ASK$
  10. 190 LET A$=STRING$(15,32)
  11. 200 CALL CMD(A$)
  12. 210 PRINT
  13. 220 PRINT "*** THE NEXT LINE IS THE CP/M COMMAND LINE ***" 
  14. 230 PRINT
  15. 240 PRINT A$
  16. 250 COPY$=A$
  17. 260 PRINT
  18. 270 PRINT "*** THE NEXT LINE IS A FIXED STRING ***"
  19. 280 PRINT 
  20. 290 PRINT B$
  21. 300 PRINT
  22. 310 PRINT "*** THE NEXT LINE IS THE SHORT MESSAGE ***"
  23. 320 PRINT
  24. 330 PRINT ASK$
  25. 340 A$="SHORT STRING"
  26. 350 PRINT
  27. 360 PRINT "*** THE NEXT LINE IS THE ORGINAL COMMMAND LINE STRING REASSIGNED ***"
  28. 370 PRINT
  29. 380 PRINT A$
  30. 390 PRINT
  31. 400 PRINT "*** THE NEXT LINE IS A COPY STRING OF THE COMMAND LINE ***"
  32. 410 PRINT
  33. 420 PRINT COPY$
  34. 430 END
  35.