home *** CD-ROM | disk | FTP | other *** search
/ Pegasus Graphics Universe / Pegasus_Graphics_Universe.iso / p11 / labeler / lab_data.txt < prev    next >
Text File  |  1992-10-29  |  9KB  |  201 lines
  1. \X REDO_DISK\ON KEY F6\CALLM RDSMLFON\KEY NEXT=
  2. \CALL PUTF10UP
  3. \LOC 90,440\WID 180 DOTS\LINE 82,437,272,452,1,B
  4. PRESS <F3> TO EXIT TO DOS
  5. \BLA #320,0,639,412\ON KEY F10 JUMP REDO_DISK\ON KEY F3 JUMP DOSOUT\BLA 376,413,639,479
  6. \LOC 376,0\WID 260 DOT
  7. Enter the name of the disk you will be working with, or spaces.
  8. \X DSKFL2
  9. Enter the word NEW if new.
  10. \"
  11. \"
  12. \"
  13. \"
  14. Press <F6> to view a list of available label setup files.
  15. \"
  16. \"
  17. \LOC 20,0\BLA 0,0,376,412\WID 300 DOTS
  18. 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.)
  19. To create your own standard label format change the fields and save the file to whatever name you like.
  20. \LOC 60,140\WID 540 DOTS
  21. Keys for editing:
  22. \"
  23. <CTRL>+END....................blanks to end of line.
  24. <INS>..............................toggles INSERT mode and OVERSTRIKE mode.
  25. <HOME>...........................start of line.
  26. <END>.............................last character.
  27. <LEFT,RIGHT ARROWS>....move cursor left, right.
  28. <DEL>.............................Delete character, shift rest of line left.
  29. <BACKSPACE>..................Delete left character, don't shift line.
  30. \IF HLDFLNM<>" " AND HLDFLNM<>'NEW'\MOVE HLDFLNM TO FLNAME\ENDIF
  31. \X LISTFLS\ON KEY F6 JUMP LISTFILES
  32. \CURS 56,3,80,3\QUES FLNAME,8\ON KEY F3\BLA 82,437,272,452\ON KEY F6\BLA 0,0,639,120
  33. \IF FLNAME=' '\CALL SETLABTYPE\JUMP DONTRD\ENDIF
  34. \JUMP GOODNM\X BADAUX\LOC #320,0\BEEP 133,133
  35. \CALLM RDSMLFON
  36. Disk data file not found!
  37. \MOVE ' ' TO HLDFLNM
  38. \JUMP DSKFL2
  39. \X GOODNM\IF HLDFLNM=FLNAME\JUMP NAME_SAME\ENDIF
  40. \IF CHGD_LBL='Y'\LOC #320,0\WID #321 DOTS
  41. 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.)
  42. \"
  43. \"
  44. \"
  45. \"
  46. \"
  47. \MOVE 'N' TO #200\CURS CRSR_XLOC,4\QUES #200,1\IF #200='Y'\JUMP READIT\ELSE\JUMP REDO_DISK\ENDIF
  48. \IF FLNAME='NEW'\JUMP FORCEREAD\ELSE\JUMP READIT\ENDIF
  49. \X NAME_SAME\LOC #320,0\IF FLNAME<>'NEW'
  50. That is the name of the current file.
  51. \ELSE
  52. \"
  53. \ENDIF
  54. \IF CHGD_LBL<>'Y'\JUMP NOTCHGD\ENDIF\WID 270 DOTS
  55. \"
  56. The current file has changes which have not been written.  Do you want to continue to edit this file (Y on N)?
  57. \"
  58. \"
  59. \"
  60. \"
  61. \"
  62. \MOVE 'Y' TO #200\CURS CRSR_XLOC,6\QUES #200,1\IF #200='Y'\CALL SETLABTYPE\JUMP DONTRD\ELSE\IF #200='N'
  63. \IF HLDFLNM='NEW' AND FLNAME='NEW'\JUMP FORCEREAD\ELSE\JUMP REDO_DISK\ENDIF\BEEP 59,94\JUMP NAME_SAME
  64. \X NOTCHGD
  65. \"
  66. \"
  67. \"
  68. \"
  69. \"
  70. \IF FLNAME='NEW'\CALL SETLABTYPE\JUMP DONTRD\ENDIF\WID 270 DOTS
  71. \"
  72. \"
  73. The current file is unchanged and cannot be reread.  Press <RETURN> to continue.
  74. \"
  75. \MOVE ' ' TO #200\CURS CRSR_XLOC,4\QUES #200,1\IF #200<>'Y'\JUMP DONTRD\ENDIF\JUMP READIT\X FORCEREAD\ON ERROR JUMP READIT
  76. \READ K:SAMPLE.AUX\READ K:NEW.AUX\CLEAR ON ERROR\CALL SETLABTYPE\JUMP ALRDYREAD
  77. \X READIT
  78. \IF FLNAME<>' ' AND FLNAME<>'NEW'\MOVE FLNAME TO HLDFLNM\MOVE ' ' TO FLNAME\ENDIF
  79. \CALLM MAKENM\ON ERROR JUMP BADAUX\READ (LABELNM)\CLEAR ON ERROR\CALLM SET_STNDRDS
  80. \X ALRDYREAD\MOVE FLNAME TO HLDFLNM\MOVE 'N' TO #10001\CALLM RDSMLFON\CALLM MOVENO2TEMP
  81. \X DONTRD\JUMP ISDISKOKAY
  82. \X NEWDISKINFO\BLA #320,0,639,#322\MOVE 'Y' TO CHGD_LBL
  83. \MOVE 2 TO #810\MOVE 2 TO CRSR_YLOC\CALLM CRSRUP
  84. \MOVE FONT_TYPE TO #200\CALLM GTFNT\MOVE #200 TO FONT_TYPE
  85. What is the title of this disk?
  86. \QUES DISK_NAME,60,1,L\CALLM CRSRUP
  87. Enter a version number, if desired:
  88. \QUES DISK_VERS,15,1,L\CALLM CRSRUP
  89. Enter a subtitle, if desired:
  90. \QUES DISK_SUBTITLE,78,1,L\IF LABTYPE='5.25"'\BLA 0,#301,639,412\ENDIF
  91. \CALLM CRSRUP\MOVE AUTHRFNT TO #200\CALLM GTFNT\MOVE #200 TO AUTHRFNT
  92. Enter the first authorship line, if any:
  93. \QUES DSK1AUTHR,78,1,L\CALLM CRSRUP
  94. Enter the second authorship line, if any:
  95. \QUES DSK2AUTHR,78,1,L\CALLM CRSRUP
  96. Enter the third authorship line, if any:
  97. \QUES DSK3AUTHR,78,1,L\IF AUTHRFNT>'1'\JUMP ISDISKOKAY\ENDIF
  98. \CALL MOVEF10MSG\CALLM CRSRUP
  99. Enter the fourth authorship line, if any:
  100. \QUES DSK4AUTHR,78,1,L\CALLM CRSRUP
  101. Enter the fifth and final authorship line, if any:
  102. \QUES DSK5AUTHR,78,1,L
  103. \CALL PUTF10UP
  104. \X ISDISKOKAY\CALLM PR_LBL\CALLM SHOW_DISKDATA\BLA #320,0,639,#322\LOC #320,4\WID #321 DOT\CALLM RDSMLFON
  105. Is the DISKETTE information shown correct (Enter Y or N):
  106. \"
  107. \"
  108. \"
  109. \IF CHGD_LBL<>'Y'
  110. Press <F8> to go directly to printing this label...
  111. \ON KEY F8 JUMP GOPRNT\ENDIF
  112. \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
  113. \IF #200='N'\JUMP NEWDISKINFO\ENDIF\MOVE #99 TO #93\IF LABTYPE='5.25"'\JUMP COMPANY2IN\ENDIF\JUMP INFORIGHT
  114. \X GETDISKINFO\BLA #320,0,639,#322
  115. \MOVE 'Y' TO CHGD_LBL
  116. \MOVE 2 TO #810\WID #321 DOT\MOVE 2 TO CRSR_YLOC\CALLM CRSRUP
  117. \MOVE BODYFNT TO #200\CALLM GTFNT\MOVE #200 TO BODYFNT
  118. Enter information line 1:
  119. \QUES INFO1LN,78,1,L\CALLM CRSRUP
  120. Enter information line 2:
  121. \QUES INFO2LN,78,1,L\CALLM CRSRUP\IF BODYFNT>'1'\JUMP INFORIGHT\ENDIF
  122. Enter information line 3:
  123. \QUES INFO3LN,78,1,L\CALLM CRSRUP
  124. Enter information line 4:
  125. \QUES INFO4LN,78,1,L\CALLM CRSRUP
  126. Enter information line 5:
  127. \QUES INFO5LN,78,1,L\CALLM CRSRUP
  128. Enter information line 6:
  129. \QUES INFO6LN,78,1,L\CALLM CRSRUP
  130. Enter information line 7:
  131. \QUES INFO7LN,78,1,L\CALLM CRSRUP
  132. Enter the final information line, 8:
  133. \QUES INFO8LN,78,1,L\MOVE 'Y' TO #200
  134. \X INFORIGHT\MOVE #93 TO #99\CALLM PR_LBL\CALLM SHOW_LABELINFO\CALLM RDSMLFON
  135. \BLA #320,0,639,#322\LOC #320,0\WID #321 DOT\MOVE 'Y' TO #200
  136. Is the ADDITIONAL information on the left correct (enter Y or N):
  137. \CURS CRSR_XLOC,2,80,2\QUES #200,1\IF #200<>'Y' AND #200<>'N'\BEEP 59,59\JUMP INFORIGHT\ENDIF
  138. \IF #200='N'\JUMP GETDISKINFO\ENDIF\MOVE #99 TO #93
  139. \X COMPANY2IN\MOVE #93 TO #99\CALLM PR_LBL\CALLM SHOW_COMPANY\CALLM RDSMLFON
  140. \BLA #320,0,639,#322\LOC #320,0\WID #321 DOT
  141. Displayed is your company data.  Is it correct (Y or N)?
  142. \MOVE 'Y' TO #200
  143. \CURS CRSR_XLOC,3,80,3\QUES #200,1\IF #200<>"N" AND #200<>"Y"\BEEP 99,99\JUMP COMPANY2IN\ENDIF
  144. \IF #200='Y'\JUMP DO_BRDR\ENDIF\JUMP GET_DISKINFO
  145. \X GET_DISKINFO\BLA #320,0,639,#322
  146. \MOVE 'Y' TO CHGD_LBL
  147. \MOVE 2 TO #810\WID #321 DOT\MOVE 2 TO CRSR_YLOC\CALLM CRSRUP
  148. \MOVE CMPNYFNT TO #200\CALLM GTFNT\MOVE #200 TO CMPNYFNT
  149. Enter a company info line (such as "For more information, contact:")
  150. \QUES #100,78,1,L\CALLM CRSRUP
  151. Enter the name of your company:
  152. \QUES COMPANY,78,1,L\CALLM CRSRUP
  153. Enter the First Address line (or press <RETURN>):
  154. \QUES ADDR1LINE,78,1,L\CALLM CRSRUP
  155. Enter the 2nd Address Line (or <RETURN>) (This line won't skip a line if left blank.)
  156. \QUES ADDR2LINE,78,1,L\CALLM CRSRUP
  157. Enter the City (up to 30 characters):
  158. \QUES CITY,30,1,L\CALLM CRSRUP
  159. Enter the State or Province, etc. (up to 20 characters):
  160. \QUES STATE,20,1,L\CALLM CRSRUP
  161. Enter the zip or postal code up to 14 characters, including format chars.:
  162. \QUES ZIP,14,1,L\CALL MOVEF10MSG\CALLM CRSRUP
  163. \LOC #320,386\MOVE "USA" TO COUNTRY
  164. Enter your country:
  165. \X GET_COUNTRY
  166. \CURS CRSR_XLOC,26,80,26\QUES COUNTRY,40,1
  167. \IF COUNTRY=" "\BEEP 54,204\LOC #320,444
  168. You MUST enter a country (you will be asked if you want it printed):
  169. \JUMP GET_COUNTRY
  170. \ENDIF
  171. \X PRINT_COUNTRY\LOC #320,386
  172. \IF LABTYPE='3.5"'\BLAN #320,#322-35,639,#322\ENDIF
  173. Do you want the country printed? (Y or N)
  174. \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
  175. \LOC #320,426
  176. Enter a phone line (example: Phone (800) 551-2726):
  177. \CURS CRSR_XLOC,28,80,29\QUES PHONE,50,1,L
  178. \CALL PUTF10UP
  179. \JUMP COMPANY2IN
  180. \X DO_BRDR\READ K:LABDATA2.TXT
  181. \X DOSOUT\CALLM DOSEXIT\LOC #320,0\+
  182. \X START\READ K:LABINTRO.TXT
  183. \X LISTFILES\BEEP 18,65
  184. \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
  185. \JUMP LISTFLS
  186. \X PUTF10UP\LOC 50,416\WID 260 DOT\BLA 0,413,376,479\LINE 34,413,306,427,1,B
  187. Press <F10> to restart label routine
  188. \RETURN                                                                                                                                                                                                                                              LN\NAME
  189. \X MOVEF10MSG\IF LABTYPE='5.25"'\BLANK 0,413,639,479
  190. \LOC 350,26\WID 260 DOT\LINE 334,23,606,37,1,B
  191. Press <F10> to restart label routine
  192. \ENDIF\RETURN
  193. \X SETLABTYPE
  194. \LOC #320,0\BLA #320,0,639,150\MOVE 'NEW' TO FLNAME\WID 260 DOT
  195. 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.)
  196. \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
  197. \IF #501>#503\MOVE #503 TO #501\BE 155,155\ENDIF\IF #502>#504\MOV #504 TO #502\ENDIF\+
  198. \RETURN
  199. \X GOPRNT\BLANK 0,407,639,479\CALL DSPL_LBL\READ PRINT_HP.TXT
  200. \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
  201.