ChipMaster
/
bwBASIC
1
0
Fork 0
Code Issues 22 Pull Requests 0 Releases 17 Wiki Activity
ChipMaster's bwBASIC This also includes history going back to v2.10. *WARN* some binary files might have been corrupted by CRLF.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
10 Commits
3 Branches
4.5 MiB
 
 
 
 
 
 
Tree: 2272355008
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '2272355008'
${ noResults }
bwBASIC/NBS2/E043.BAS

31 lines
992 B
Raw Blame History 

  1. 00100 REM ----------------------------------------------------

  2. 00110 REM FILENAME:  merge1.bas

  3. 00120 REM  PURPOSE:  Verify MERGE <file-name>

  4. 00130 REM   AUTHOR:  Howard Wulf AF5NE

  5. 00140 REM     DATE:  October 10th, 2014

  6. 00160 REM ----------------------------------------------------

  7. 01000 let f$ = "E043.MRG"

  8. 01010 delete 2000-2090

  9. 01020 merge f$

  10. 01030 REM ----------------------------------------------------

  11. 01040 REM Lines 02000 thru 02090 are replaced by the merged file

  12. 01050 REM ----------------------------------------------------

  13. 02000 ERROR 1

  14. 02010 ERROR 1

  15. 02020 ERROR 1

  16. 02030 ERROR 1

  17. 02040 ERROR 1

  18. 02050 ERROR 1

  19. 02060 ERROR 1

  20. 02070 ERROR 1

  21. 02080 ERROR 1

  22. 02090 ERROR 1

  23. 03000 REM ----------------------------------------------------

  24. 03010 REM If we get to here, then the merge failed

  25. 03020 REM ----------------------------------------------------

  26. 03030 ERROR 1

  27. 03040 STOP

  28. 09900 REM ----------------------------------------------------

  29. 09910 PRINT "*** ALL TESTS PASSED ***"

  30. 09920 END