* * LAB/TES 8/23/83 BY R. SHIPP (460-9353) SET MARGIN TO 1 ERASE ? '===============================================' ? ? 'IS A TEST RUN NEEDED ?' ? '----------------------' ? ? 'This program will run a test run to check' ? 'the centering of the printing on the label' ? 'paper.' ? ? 'Load the printer with two up label paper at' ? 'this time.' ? ? ' 1 = TEST RUN' ? ? ' 2 = NO TEST RUN NEEDED' ? ? 'ENTER ONE OF THE ABOVE' ? ? '=============================================' WAIT TO TEST IF TEST = '1' STORE T TO TESTRUN DO WHILE TESTRUN SET PRINT ON ? LN1+' '+LN1 ? LN2+' '+LN2 ? LN3+' '+LN3 ? LN4+' '+LN4 ? ? ? LN1+' '+LN1 ? LN2+' '+LN2 ? LN3+' '+LN3 ? LN4+' '+LN4 ? ? SET PRINT OFF ERASE ? '==============================================' ? ? 'Check to see if printing is centering and' ? 'you do not need another test run.' ? ? ' 1 = FOR ANOTHER TEST RUN' ? ? ' 2 = FOR ALL IS O.K.' ? ? 'ENTER ONE OF THE ABOVE NUMBERS' ? ? '=============================================' WAIT TO TEST IF TEST = '1' STORE T TO TESTRUN LOOP ELSE STORE F TO TESTRUN LOOP ENDIF ENDIF ENDDO RETURN *THE END -- LAB/TES *  continue with this progris progrwith this progr with this progr 1 = To continus progr 1 = To continu 1 = To continue with this progr= To continue with this progr progr 1 = To continus progr 1 = To continu 1 = To continue with this progrthis progr 1 = To continuhis progrEM1 Te with this progrREM1 Te with this progr with this progr 1 = To continuprogr with this progr 1 = To continu Te with this progrEM1 Te with this progrREM1 Te with this progr withth this progr 1 = To continus progr 1 = To continu 1 = To continue with this progr/TES 2/18/83 BY R. SHIPP (460-9353) * COPYRIGHTED BY EARL-DEE COMPUTER CO. STORE '* RALPH E SHIPP *' TO LN1 STORE '* Home phone 460-9353 *' TO LN2 STORE '* 2820 BLUE SPRUCE LANE *' TO LN3 STORE '* SILVER SPRING , MD 20906 *' TO LN4 STORE 'T' TO TESTRUN DO WHILE TESTRUN ERASE ? '===============================================' ? ? 'IS A TEST RUN NEEDED ?' ? '----------------------' ? ? LN3+' '+LN3 ? LN4+' '+LN4 ? ? ? LN1+' '+LN1 ? LN2+' '+LN2 ? LN3+' '+LN3 ? LN4+' '+LN4 ? ? SET PRINT OFF ERASE ? '==============================================' ? ? 'CO LN1