\BLA #320,0,639,479\ON KEY F10 JUMP REDO_ALL
\X NO_CONFIG\BLA #320,0,639,#322
\CALLM PR_LBL\CALLM SHOW_DISKDATA\CALLM SHOW_LABELINFO\CALLM SHOW_COMPANY\CALLM SHOW_LOGO\CALLM PRINT_SRL
\BLA HIGHXPRN+1,LOWYPRN,#320-1,HIGHYPRN\X ASKWRT\LOC #320,0\WID #321 DOT
\BLA #320,0,639,#322\IF CHGD_LBL='Y'\JUMP WANNA_WRT\ENDIF\MOVE 'N' TO #200
\IF SRL_TEMPRUN='Y'\JUMP SKIPPED_WRT\ENDIF\TEXT PLANE=1011
The labels and printer setup information have not been changed.
\"
Do you want to write this label file to disk anyway? (Press Y to write or N not to write)
\CURS CRSR_XLOC,6,80,6\QUES #200,1\IF #200='Y'\JUMP WANNA_WRT\ELSE\IF #200='N'\JUMP SET_NAME\ENDIF
\BEEP 39,39\JUMP ASKWRT
\X SET_NAME\IF FLNAME<>' ' AND FLNAME<>'NEW'\MOVE FLNAME TO HLDFLNM\ENDIF\JUMP SKIPPED_WRT
\X GETNEWDATA\LOC #320,100\TEXT PLANE=0100
Error writing disk label file!
\"
\ERROR ?\IF A=31
Your disk was probably full.
\"
We suggest you press <ALT-Q> NOW to temporarily exit to DOS.  From there, you can erase something.  You need about 4K bytes to save a label file.
\ELSE
DOS did not properly write the label file.  You should run your DOS program called CHKDSK with /F option.  We suggest you press <ALT-1> NOW to exit (PERMANENTLY) to DOS.  Unfortunately you will loose your current file.
\"
The error you got is very rare.
\"
\ENDIF
\ON KEY 4096 JUMP DOSOUT\TEXT PLANE=1101
\WAIT RET -1 "                           Press <RETURN> to continue..."\ON KEY 4096
\X WANNA_WRT\LOC #320,0\WID #321 DOT\TEXT PLANE=1011
\IF CHGD_LBL<>'Y'\ELSE
You have changed information for this label, the bonus labels, or printer setup.  Before printing, this information must be saved to disk.
\ENDIF
\"
Enter a label data file name up to 8 characters for this label.  Do not use the word "NEW":
\LOC #320,118
Press <F10> to change your diskette information.
\"
(Any label file with the same name will be copied to *.bak)
\IF LABTYPE='3.5"'\BLA #320,200,639,#322\ENDIF
\CURS CRSR_XLOC,6,80,6\QUES FLNAME,8,1
\IF FLNAME='NEW'\BLA #320,0,639,#322\BEEP 44,144\JUMP WANNA_WRT\ENDIF
\IF FLNAME=' '\BLA #320,0,639,#322\BEEP 166,122\JUMP WANNA_WRT\ENDIF\CURSOR 0,25,80,25\WAIT LIMIT 1\MOVE ' ' TO #200\QUEST #200,1\WAIT LIM -1
\MOVE FLNAME TO HLDFLNM\CALLM MAKENM\BUILD #200='COPY ',LABELNM,' *.BAK'
\BLA 0,397,639,479\EXEC DOS>(#200)\+
\MOVE '5.14' TO #1000 ;LABELER vers. # Change in LABINTRO too!
\BUILD #10000="LABEL FILE LAST WRITTEN: ",TIME&DATE
\ON ERROR JUMP GETNEWDATA\WRITE (LABELNM)\CLEAR ON ERRORS\MOVE 'N' TO CHGD_LBL
\BLA 0,395,639,479\LOC 50,416\WID 260 DOT\LINE 34,413,306,427,1,B\TEXT PLANE=1101
Press <F10> to restart label routine
\LOC 50,416\WID 260 DOT\LINE 34,413,306,427,1,B\TEXT PLANE=1101
Press <F10> to restart label routine
\LOC #320,112\WID #321 DOTS\BLA #320,111,639,#322\TEXT PLANE=1011
\DISP FLNAME,' has been stored on disk.'
\BLA 0,460,639,479\TEXT PLANE=1101
\WAIT RET -1 "                       PRESS <RETURN> TO CONTINUE..."
\X SKIPPED_WRT\BLA 0,413,639,479
\READ K:PRINT_HP.TXT
\X DOSOUT\ON KEY 4096\CALLM DOSEXIT\READ K:LABWRITE.TXT
\X REDO_ALL\READ K:LAB_DATA.TXT
