a &a "BEGINNING DISK FILE TESTING"b "BEGIN DISK FILE OUTPUT TEST"2b "R",,"A:RFILE"Db #, AS N$Wb #,  AS I$fb I wb( N$(,)b2 I$(I)b< #,IbF IbH bK "BEGIN DISK FILE INPUT TEST"bL bM "R",,"A:RFILE"bN #,  AS N$cP I cZ #,I)cd ((N$)I) 1cx Ibc} "DISK FILE TESTING COMPLETED SUCCESSFULLY"lc c "**DISK FILE TEST FAILURE"c ARITHMETIC TESTcc "BEGIN ARITHMETIC TESTING"c "BEGIN INTEGER TESTS"c J%c K%d I% dd K%K%I%&d I%