\X REDO_DISK\ON KEY F6\CALLM RDSMLFON\KEY NEXT=
\CALL PUTF10UP
\LOC 74,440\WID 208 DOTS\LINE 66,437,280,452,STD_LNCLR,B\TEXT PLANE=1101
PRESS <ALT-Q> TO EXIT TO DOS
\BLA #320,0,639,412\ON KEY F10 JUMP REDO_DISK\ON KEY 4096 JUMP DOSOUT\BLA 376,413,639,479
\LOC 376,0\WID 260 DOT\TEXT PLANE=1011
Enter the name of the disk you will be working with, or spaces.
\X DSKFL2\TEXT PLANE=1011
Enter the word NEW if new.
\"
\"
\"
\"
Press <F6> to view a list of available label setup files.
\"
\"
\LOC 20,0\BLA 0,0,376,412\WID 300 DOTS\TEXT PLANE=1011
The "NEW" option will fill the label fields with LABELER's own label format, or the format of your last label.  Enter SPACES here if you wish to use the current label data on a new label (you will be able to actually pick a name to store it later.)
To create your own standard label format change the fields and save the file to whatever name you like.
\LOC 60,140\WID 540 DOTS\TEXT PLANE=1010
Keys for editing:
\"
<CTRL>+END....................blanks to end of line.
<INS>..............................toggles INSERT mode and OVERSTRIKE mode.
<HOME>...........................start of line.
<END>.............................last character.
<LEFT, RIGHT ARROWS>...move cursor left, right.
<DEL>.............................Delete character, shift rest of line left.
<BACKSPACE>..................Delete left character, don't shift line.
\IF HLDFLNM<>" " AND HLDFLNM<>'NEW'\MOVE HLDFLNM TO FLNAME\ENDIF
\X LISTFLS\ON KEY F6 JUMP LISTFILES
\CURS 56,3,80,3\QUES FLNAME,8\ON KEY 4096\BLA 66,437,280,452\ON KEY F6\BLA 0,0,639,120
\IF FLNAME=' '\CALL SETLABTYPE\JUMP DONTRD\ENDIF
\JUMP GOODNM\X BADAUX\LOC #320,0\BEEP 133,133
\CALLM RDSMLFON\TEXT PLANE=1011
Disk data file not found!
\MOVE ' ' TO HLDFLNM
\JUMP DSKFL2
\X GOODNM\IF HLDFLNM=FLNAME\JUMP NAME_SAME\ENDIF
\IF CHGD_LBL='Y'\LOC #320,0\WID #321 DOTS\TEXT PLANE=1011
The current file has changes which will be overlaid! (Press Y to destroy the current changes, or press N not to destroy your current work.)
\"
\"
\"
\"
\"
\MOVE 'N' TO #200\CURS CRSR_XLOC,4\QUES #200,1\IF #200='Y'\JUMP READIT\ELSE\JUMP REDO_DISK\ENDIF
\IF FLNAME='NEW'\JUMP FORCEREAD\ELSE\JUMP READIT\ENDIF
\X NAME_SAME\LOC #320,0\IF FLNAME<>'NEW'\TEXT PLANE=1011
That is the name of the current file.
\ELSE
\"
\ENDIF
\IF CHGD_LBL<>'Y'\JUMP NOTCHGD\ENDIF\WID 270 DOTS\TEXT PLANE=1011
\"
The current file has changes which have not been written.  Do you want to continue to edit this file (Y on N)?
\"
\"
\"
\"
\"
\MOVE 'Y' TO #200\CURS CRSR_XLOC,6\QUES #200,1\IF #200='Y'\CALL SETLABTYPE\JUMP DONTRD\ELSE\IF #200='N'
\IF HLDFLNM='NEW' AND FLNAME='NEW'\JUMP FORCEREAD\ELSE\JUMP REDO_DISK\ENDIF\BEEP 59,94\JUMP NAME_SAME
\X NOTCHGD
\"
\"
\"
\"
\"
\IF FLNAME='NEW'\CALL SETLABTYPE\JUMP DONTRD\ENDIF\WID 270 DOTS\TEXT PLANE=1011
\"
\"
The current file is unchanged and cannot be reread.  Press <RETURN> to continue.
\"
\MOVE ' ' TO #200\CURS CRSR_XLOC,4\QUES #200,1\IF #200<>'Y'\JUMP DONTRD\ENDIF\JUMP READIT\X FORCEREAD\ON ERROR JUMP READIT
\READ K:SAMPLE.AUX\READ K:NEW.AUX\CLEAR ON ERROR\CALL SETLABTYPE\JUMP ALRDYREAD
\X READIT
\IF FLNAME<>' ' AND FLNAME<>'NEW'\MOVE FLNAME TO HLDFLNM\MOVE ' ' TO FLNAME\ENDIF
\CALLM MAKENM\ON ERROR JUMP BADAUX\READ (LABELNM)\CLEAR ON ERROR\CALLM SET_STNDRDS
\X ALRDYREAD\MOVE FLNAME TO HLDFLNM\MOVE 'N' TO #10001\CALLM RDSMLFON\CALLM MOVENO2TEMP
\X DONTRD\JUMP ISDISKOKAY
\X NEWDISKINFO\BLA #320,0,639,#322\MOVE 'Y' TO CHGD_LBL
\MOVE 2 TO #810\MOVE 2 TO CRSR_YLOC\CALLM CRSRUP
\MOVE FONT_TYPE TO #200\CALLM GTFNT\MOVE #200 TO FONT_TYPE\TEXT PLANE=1011
What is the title of this disk?
\QUES DISK_NAME,60,1,L\CALLM CRSRUP\TEXT PLANE=1011
Enter a version number, if desired:
\QUES DISK_VERS,15,1,L\CALLM CRSRUP\TEXT PLANE=1011
Enter a subtitle, if desired:
\QUES DISK_SUBTITLE,78,1,L\IF LABTYPE='5.25"'\BLA 0,#301,639,412\ENDIF
\CALLM CRSRUP\MOVE AUTHRFNT TO #200\CALLM GTFNT\MOVE #200 TO AUTHRFNT\TEXT PLANE=1011
Enter the first authorship line, if any:
\QUES DSK1AUTHR,78,1,L\CALLM CRSRUP\TEXT PLANE=1011
Enter the second authorship line, if any:
\QUES DSK2AUTHR,78,1,L\CALLM CRSRUP\TEXT PLANE=1011
Enter the third authorship line, if any:
\QUES DSK3AUTHR,78,1,L\IF AUTHRFNT>'1'\JUMP ISDISKOKAY\ENDIF
\CALL MOVEF10MSG\CALLM CRSRUP\TEXT PLANE=1011
Enter the fourth authorship line, if any:
\QUES DSK4AUTHR,78,1,L\CALLM CRSRUP\TEXT PLANE=1011
Enter the fifth and final authorship line, if any:
\QUES DSK5AUTHR,78,1,L
\CALL PUTF10UP
\X ISDISKOKAY\CALLM PR_LBL\CALLM SHOW_DISKDATA\BLA #320,0,639,#322\LOC #320,4\WID #321 DOT\CALLM RDSMLFON\TEXT PLANE=1011
Is the DISKETTE information shown correct (Enter Y or N):
\"
\"
\"
\IF CHGD_LBL<>'Y'
Press <F8> to go directly to printing this label...
\ON KEY F8 JUMP GOPRNT\ENDIF
\MOVE 'Y' TO #200\CURS CRSR_XLOC,2,80,2\QUES #200,1\IF #200<>'Y' AND #200<>"N"\BEEP 199,199\JUMP ISDISKOKAY\ENDIF\ON KEY F8
\IF #200='N'\JUMP NEWDISKINFO\ENDIF\MOVE #99 TO #93\IF LABTYPE='5.25"'\JUMP COMPANY2IN\ENDIF\JUMP INFORIGHT
\X GETDISKINFO\BLA #320,0,639,#322
\MOVE 'Y' TO CHGD_LBL
\MOVE 2 TO #810\WID #321 DOT\MOVE 2 TO CRSR_YLOC\CALLM CRSRUP
\MOVE BODYFNT TO #200\CALLM GTFNT\MOVE #200 TO BODYFNT
Enter information line 1:
\QUES INFO1LN,78,1,L\CALLM CRSRUP
Enter information line 2:
\QUES INFO2LN,78,1,L\CALLM CRSRUP\IF BODYFNT>'1'\JUMP INFORIGHT\ENDIF
Enter information line 3:
\QUES INFO3LN,78,1,L\CALLM CRSRUP
Enter information line 4:
\QUES INFO4LN,78,1,L\CALLM CRSRUP
Enter information line 5:
\QUES INFO5LN,78,1,L\CALLM CRSRUP
Enter information line 6:
\QUES INFO6LN,78,1,L\CALLM CRSRUP
Enter information line 7:
\QUES INFO7LN,78,1,L\CALLM CRSRUP
Enter the final information line, 8:
\QUES INFO8LN,78,1,L\MOVE 'Y' TO #200
\X INFORIGHT\MOVE #93 TO #99\CALLM PR_LBL\CALLM SHOW_LABELINFO\CALLM RDSMLFON
\BLA #320,0,639,#322\LOC #320,0\WID #321 DOT\MOVE 'Y' TO #200\TEXT PLANE=1011
Is the ADDITIONAL information on the left correct (enter Y or N):
\CURS CRSR_XLOC,2,80,2\QUES #200,1\IF #200<>'Y' AND #200<>'N'\BEEP 59,59\JUMP INFORIGHT\ENDIF
\IF #200='N'\JUMP GETDISKINFO\ENDIF\MOVE #99 TO #93
\X COMPANY2IN\MOVE #93 TO #99\CALLM PR_LBL\CALLM SHOW_COMPANY\CALLM RDSMLFON
\BLA #320,0,639,#322\LOC #320,0\WID #321 DOT\TEXT PLANE=1011
Displayed is your company data.  Is it correct (Y or N)?
\MOVE 'Y' TO #200
\CURS CRSR_XLOC,3,80,3\QUES #200,1\IF #200<>"N" AND #200<>"Y"\BEEP 99,99\JUMP COMPANY2IN\ENDIF
\IF #200='Y'\JUMP DO_BRDR\ENDIF\JUMP GET_DISKINFO
\X GET_DISKINFO\BLA #320,0,639,#322
\MOVE 'Y' TO CHGD_LBL
\MOVE 2 TO #810\WID #321 DOT\MOVE 2 TO CRSR_YLOC\CALLM CRSRUP
\MOVE CMPNYFNT TO #200\CALLM GTFNT\MOVE #200 TO CMPNYFNT
Enter a company info line (such as "For more information, contact:")
\QUES #100,78,1,L\CALLM CRSRUP\TEXT PLANE=1011
Enter the name of your company:
\QUES COMPANY,78,1,L\CALLM CRSRUP\TEXT PLANE=1011
Enter the First Address line (or press <RETURN>):
\QUES ADDR1LINE,78,1,L\CALLM CRSRUP\TEXT PLANE=1011
Enter the 2nd Address Line (or <RETURN>) (This line won't skip a line if left blank.)
\QUES ADDR2LINE,78,1,L\CALLM CRSRUP\TEXT PLANE=1011
Enter the City (up to 30 characters):
\QUES CITY,30,1,L\CALLM CRSRUP\TEXT PLANE=1011
Enter the State or Province, etc. (up to 20 characters):
\QUES STATE,20,1,L\CALLM CRSRUP\TEXT PLANE=1011
Enter the zip or postal code up to 14 characters, including format chars.:
\QUES ZIP,14,1,L\CALL MOVEF10MSG\CALLM CRSRUP\TEXT PLANE=1011
\LOC #320,386\MOVE "USA" TO COUNTRY
Enter your country:
\X GET_COUNTRY
\CURS CRSR_XLOC,26,80,26\QUES COUNTRY,40,1
\IF COUNTRY=" "\BEEP 54,204\LOC #320,444\TEXT PLANE=1011
You MUST enter a country (you will be asked if you want it printed):
\JUMP GET_COUNTRY
\ENDIF
\X PRINT_COUNTRY\LOC #320,386
\IF LABTYPE='3.5"'\BLAN #320,#322-35,639,#322\ENDIF\TEXT PLANE=1011
Do you want the country printed? (Y or N)
\CURS CRSR_XLOC,26,80,26\QUES COUNTRY_PRINT,40\IF COUNTRY_PRINT <>"Y" AND COUNTRY_PRINT<>"N"\BEEP 88,88\JUMP PRINT_COUNTRY\ENDIF
\LOC #320,426\TEXT PLANE=1011
Enter a phone line (example: Phone (800) 551-2726):
\CURS CRSR_XLOC,28,80,29\QUES PHONE,50,1,L
\CALL PUTF10UP
\JUMP COMPANY2IN
\X DO_BRDR\READ K:LABDATA2.TXT
\X DOSOUT\CALLM DOSEXIT\LOC #320,0\+
\X START\READ K:LABINTRO.TXT
\X LISTFILES\BEEP 18,65
\MOVE "DIR *.AUX /W" TO #800\CURS 0,6\WAIT LIM 1\QUES A\BLA 0,100,639,394\EXEC DOS>(#800)\WAIT LIM -1
\JUMP LISTFLS
\X PUTF10UP\LOC 50,416\WID 260 DOT\BLA 0,413,376,479\LINE 34,414,306,427,STD_LNCLR,B\TEXT PLANE=1101
Press <F10> to restart label routine
\RETURN                                                                                                                                                                                                                                              LN\NAME
\X MOVEF10MSG\IF LABTYPE='5.25"'\BLANK 0,413,639,479
\LOC 350,26\WID 260 DOT\LINE 334,23,606,37,STD_LNCLR,B\TEXT PLANE=1101
Press <F10> to restart label routine
\ENDIF\RETURN
\X SETLABTYPE
\LOC #320,0\BLA #320,0,639,150\MOVE 'NEW' TO FLNAME\WID 260 DOT\TEXT PLANE=1011
Is this a 3.5" diskette label or a 5.25" label? (Enter a 3 for a 3.5" label, or 5 for a 5.25" label.)
\MOVE '5' TO #200\IF LABTYPE='3.5"'\MOVE '3' TO #200\ENDIF\CURSO CRSR_XLOC,4,80,4\QUEST #200,1\IF #200<'4'\MOVE '3.5"' TO LABTYPE\ELSE\MOVE '5.25"' TO LABTYPE\ENDIF\CALLM SET_STNDRDS
\IF #501>#503\MOVE #503 TO #501\BE 155,155\ENDIF\IF #502>#504\MOV #504 TO #502\ENDIF\+
\RETURN
\X GOPRNT\BLANK 0,407,639,479\CALL DSPL_LBL\READ PRINT_HP.TXT
\X DSPL_LBL\CALLM PR_LBL\CALLM SHOW_DISKDATA\CALLM SHOW_LABELINFO\CALLM SHOW_COMPANY\CALLM SHOW_LOGO\CALLM PRINT_SRL\WID #321 DOTS\RETURN
