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.
|
- 02000 REM ----------------------------------------------------
- 02010 REM FILENAME: chain1.txt
- 02020 REM PURPOSE: Verify CHAIN <file-name>
- 02030 REM AUTHOR: Howard Wulf AF5NE
- 02040 REM DATE: October 10th, 2014
- 02050 REM ----------------------------------------------------
- 02060 REM This file is chained by "chain1.bas"
- 02070 REM
- 02080 PRINT "Inside E038.CHN"
- 02090 PRINT "X$="; X$
- 02100 if X$ <> "abcdef" then goto TestFailed
- 02110 print "A$="; A$
- 02120 if A$ <> "" then goto TestFailed
- 02130 print "*** TEST #1 PASSED ***"
- 8000 rem ------------------------------------------
- 8010 TestPassed:
- 8020 print "*** ALL TESTS PASSED ***"
- 8030 goto TheEnd
- 8500 rem ------------------------------------------
- 8510 TestFailed:
- 8520 print "*** TEST FAILED ***"
- 8530 goto TheEnd
- 9000 rem ------------------------------------------
- 9010 TheEnd:
- 9999 end
|
Ye Ol' π Shack