10 !*************************** LABELS ROUTINE ***************************** %INCLUDE "DEF_EXT_SUBPROGRAMS.BAS" %INCLUDE "DEF_VARIABLES.BAS" TEST_CHAR1$ = ESC + "P1;3;1;0;0;2;12{1?????????___ooW/????EEFFDCCCFFF" TEST_CHAR1$ = TEST_CHAR1$ + ESC + "\" + ESC + "[A" TEST_CHAR2$ = ESC + "P1;4;1;0;0;2;12{1GgcSSSS?kK[{www/BCCGJJGKCB?FFFF" TEST_CHAR2$ = TEST_CHAR2$ + ESC + "\" + ESC + "[A" TEST_CHAR3$ = ESC + "P1;5;1;0;0;2;12{1owwcccqqqpppppp/FFFFFFFFFFFFFFF" TEST_CHAR3$ = TEST_CHAR3$ + ESC + "\" + ESC + "[A" TEST_CHAR4$ = ESC + "P1;6;1;0;0;2;12{1ppppxx||~~}}}}]/FFFFFFFFFFFFFF?" TEST_CHAR4$ = TEST_CHAR4$ + ESC + "\" + ESC + "[A" TEST_CHAR5$ = ESC + "P1;7;1;0;0;2;12{1Mm?SSSScKGWoooo/BCCGJJGAAB?FFFF" TEST_CHAR5$ = TEST_CHAR5$ + ESC + "\" + ESC + "[A" TEST_CHAR6$ = ESC + "P1;8;1;0;0;2;12{1o____??????????/FFAAB??????????" TEST_CHAR6$ = TEST_CHAR6$ + ESC + "\" + ESC + "[A" TEST_CHAR_OUT$ = BOLD$ + ESC + ")1" + SO TEST_CHAR_IN$ = ESC + ")1" + SI + NRM$ ! ************************ DEFINE FUNCTIONS ******************************** %INCLUDE "DEF_FUNCTIONS.BAS" WHEN ERROR USE error_handler GOSUB IO ! INITIAL OPERATION GOTO FINISH ! SAVE DATA IO: PRINT TEST_CHAR1$; PRINT TEST_CHAR2$; PRINT TEST_CHAR3$; PRINT TEST_CHAR4$; PRINT TEST_CHAR5$; PRINT TEST_CHAR6$; PRINT CLS$;DOWN$;SV$; FOR X = 80 TO 1 STEP -1 PRINT ESC;"[";STR$(X);"C";ESC;"[0K"; PRINT TEST_CHAR_OUT$; SELECT X CASE 80 PRINT ""; CASE 79 PRINT "#"; CASE 78 PRINT "#$"; CASE 77 PRINT "#$%"; CASE 76 PRINT "#$%&"; CASE 75 PRINT "#$%&'"; CASE ELSE PRINT "#$%&'("; END SELECT PRINT TEST_CHAR_IN$;RS$; NEXT X PRINT UP$ END WHEN HANDLER error_handler PRINT BEL;MSGLN$;"UNEXPECTED ERROR >> #";ERR;" ";ERT$(ERR); PRINT " IN MODULE ";ERN$;CLL$; PRINT BEL;CMDLN$;"NOTE ERROR - "; PRINT "Press '";INV$;"RETURN";NRM$;"' To Continue";CLL$; SET NO PROMPT INPUT A$ SET PROMPT PRINT CMDLN$;EL$; PRINT MSGLN$;EL$; CONTINUE END HANDLER FINISH: END