*
* 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