\X REDO_DISK\ON KEY F6\CALLM RDSMLFON\KEY NEXT= \CALL PUTF10UP \LOC 90,440\WID 180 DOTS\LINE 82,437,272,452,1,B PRESS TO EXIT TO DOS \BLA #320,0,639,412\ON KEY F10 JUMP REDO_DISK\ON KEY F3 JUMP DOSOUT\BLA 376,413,639,479 \LOC 376,0\WID 260 DOT Enter the name of the disk you will be working with, or spaces. \X DSKFL2 Enter the word NEW if new. \" \" \" \" Press to view a list of available label setup files. \" \" \LOC 20,0\BLA 0,0,376,412\WID 300 DOTS 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 Keys for editing: \" +END....................blanks to end of line. ..............................toggles INSERT mode and OVERSTRIKE mode. ...........................start of line. .............................last character. ....move cursor left, right. .............................Delete character, shift rest of line left. ..................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 F3\BLA 82,437,272,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 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 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' That is the name of the current file. \ELSE \" \ENDIF \IF CHGD_LBL<>'Y'\JUMP NOTCHGD\ENDIF\WID 270 DOTS \" 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 \" \" The current file is unchanged and cannot be reread. Press 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 What is the title of this disk? \QUES DISK_NAME,60,1,L\CALLM CRSRUP Enter a version number, if desired: \QUES DISK_VERS,15,1,L\CALLM CRSRUP 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 Enter the first authorship line, if any: \QUES DSK1AUTHR,78,1,L\CALLM CRSRUP Enter the second authorship line, if any: \QUES DSK2AUTHR,78,1,L\CALLM CRSRUP Enter the third authorship line, if any: \QUES DSK3AUTHR,78,1,L\IF AUTHRFNT>'1'\JUMP ISDISKOKAY\ENDIF \CALL MOVEF10MSG\CALLM CRSRUP Enter the fourth authorship line, if any: \QUES DSK4AUTHR,78,1,L\CALLM CRSRUP 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 Is the DISKETTE information shown correct (Enter Y or N): \" \" \" \IF CHGD_LBL<>'Y' Press 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 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 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 Enter the name of your company: \QUES COMPANY,78,1,L\CALLM CRSRUP Enter the First Address line (or press ): \QUES ADDR1LINE,78,1,L\CALLM CRSRUP Enter the 2nd Address Line (or ) (This line won't skip a line if left blank.) \QUES ADDR2LINE,78,1,L\CALLM CRSRUP Enter the City (up to 30 characters): \QUES CITY,30,1,L\CALLM CRSRUP Enter the State or Province, etc. (up to 20 characters): \QUES STATE,20,1,L\CALLM CRSRUP Enter the zip or postal code up to 14 characters, including format chars.: \QUES ZIP,14,1,L\CALL MOVEF10MSG\CALLM CRSRUP \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 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 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 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,413,306,427,1,B Press 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,1,B Press to restart label routine \ENDIF\RETURN \X SETLABTYPE \LOC #320,0\BLA #320,0,639,150\MOVE 'NEW' TO FLNAME\WID 260 DOT 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