home *** CD-ROM | disk | FTP | other *** search
/ Pegasus Graphics Universe / Pegasus_Graphics_Universe.iso / p11 / labeler / bldimage.mac < prev    next >
Text File  |  1992-12-20  |  10KB  |  170 lines
  1. \X PR_LBL\IF #760='5.25"'\JUMP NOFLIPPER\ENDIF
  2. \MOV #300 TO H\MOV #301-2 TO I\MOV #302 TO J\MOV 60 TO L\MOV 401 TO G
  3. \CALL BRDRLINE\BLA 6,14,360,54\BLA 0,61,370,100
  4. \MOV #300 TO H\MOV 101 TO I\MOV #302 TO J\MOV #303 TO L\MOV 401 TO G
  5. \CALL BRDRLINE\BLA 6,107,360,387\CALL BLNKOUT\RETURN
  6. \X NOFLIPPER\MOV #300 TO H\MOV #301 TO I\MOV #302 TO J\MOV #303 TO L\MOV 401 TO G
  7. \CALL BRDRLINE\BLA #300+6,#301+6,#302-6,#303-6\CALL BLNKOUT\RET
  8. \X BLNKOUT\IF LABTYPE='5.25"'\BL 0,#303+1,#302,412\BL 376,#303+1,639,479\BL #302+1,#301,639,479
  9. \ELSE\BLA 0,0,370,7\BLA HIGHXPRN+1,0,#320-1,HIGHYPRN\BL 0,394,#320-1,412\ENDIF\RET
  10. \X BRDRLINE\LINE H,I,J,L,#G,B\ADD 1 TO H\ADD 1 TO I\ADD -1 TO J\ADD -1 TO L
  11. \ADD 1 TO G\IF G<407\JUMP BRDRLINE\ENDIF\RET
  12. \X SHOW_DISKDATA\IF #760='5.25"'\JUMP NOSPINE\ENDIF
  13. \MOV 66 TO #99\CALL RDSMLFON\LOC TXT_LFT,#99\WID 230 DOTS\MOV 1 TO G\X SPINE
  14. \DISP DISK_NAME\IF DISK_VERS<>' '\DISP '       ',DISK_VERS\ENDIF
  15. \ADD FNTY-1 TO #99\LOC TXT_LFT,#99\ADD 1 TO G\IF G<4\JUMP SPINE\ENDIF
  16. \X NOSPINE\MOV #762 TO #99
  17. \LOC TXT_LFT,#99\WID HIGHXPRN-(TXT_LFT+BRDRWIDTH+1) DOTS
  18. \MOV FONT_TYPE TO #200\CALL CURRFNT
  19. \DISP DISK_NAME\MOV #99 TO #89\MOV FNTY TO #86\ADD FNTY TO #99
  20. \CALL RDSMLFON\MOV FNTY TO #85
  21. \IF FONT_TYPE<'3' AND DISK_VERS<>' '\DISP '  ',DISK_VERS\ENDIF
  22. \IF DISK_SUBTITLE<>' '\LOC TXT_LFT,#99
  23. \DISP DISK_SUBTITLE\ADD FNTY TO #99\ELSE\MOV 0 TO #85\ENDIF
  24. \IF FONT_TYPE>'2' AND DISK_VERS<>' '\LOC TXT_LFT,#99\DISP '      ',DISK_VERS\ENDIF
  25. \ADD FNTY TO #99\ADD FNTY TO #99
  26. \LEN DSK5AUTHR\IF A=0\MOV ' ' TO DSK5AUTHR\MOV ' ' TO DSK4AUTHR\ENDIF
  27. \MOV AUTHRFNT TO #200\CALL CURRFNT
  28. \IF AUTHRFNT>'1'\SUB 6 FROM #99\IF AUTHRFNT>3\SUB 6 FROM #99\ENDIF
  29. \CALL TXTUP\DISP DSK1AUTHR\CALL TXTUP\DISP DSK2AUTHR\CALL TXTUP\DISP DSK3AUTHR
  30. \IF AUTHRFNT<'2'\CALL TXTUP\DISP DSK4AUTHR\CALL TXTUP\DISP DSK5AUTHR\ENDIF
  31. \MOV #99 TO #94\CALL BLNKOUT\RET
  32. \X SHOW_LABELINFO\MOV #99 TO #93\IF LABTYPE='5.25"'\JUMP LABINOUT\ENDIF
  33. \LEN INFO1LN\IF A=0\MOV ' ' TO INFO1LN\MOV ' ' TO INFO2LN\MOV ' ' TO INFO3LN
  34. \MOV ' ' TO INFO4LN\MOV ' ' TO INFO5LN\MOV ' ' TO INFO6LN\ENDIF
  35. \MOV BODYFNT TO #200\CALL CURRFNT\CALL TXTUP\DISP INFO1LN\CALL TXTUP\DISP INFO2LN
  36. \IF BODYFNT<'2'\CALL TXTUP\DISP INFO3LN\CALL TXTUP\DISP INFO4LN
  37. \CALL TXTUP\DISP INFO5LN\CALL TXTUP\DISP INFO6LN\CALL TXTUP\DISP INFO7LN\CALL TXTUP\DISP INFO8LN
  38. \ENDIF\X LABINOUT\MOV #99 TO #94\CALL BLNKOUT\RET
  39. \X TXTUP\LOC TXT_LFT,#99\ADD FNTY TO #99\RET
  40. \X CURRFNT\IF #200='2'\READ K:162017PW.FON\MOV 20 TO FNTY\ELSE\IF #200='3'
  41. \READ K:242217PW.FON\MOV 22 TO FNTY\ELSE\IF #200='4'
  42. \READ K:242917PW.FON\MOV 29 TO FNTY\ELSE\CALL RDSMLFON\ENDIF\RET
  43. \X SHOW_COMPANY\MOV #99 TO #93
  44. \MOV CMPNYFNT TO #200\CALL CURRFNT\WID 270 DOTS C\HEI 199
  45. \CALL TXTUP\DISP ADDRINFOLINE\CALL TXTUP\DISP COMPANY
  46. \CALL TXTUP\IF #99>387\JUMP C_OUT\ENDIF\DISP ADDR1LINE\CALL TXTUP\IF #99>387\JUMP C_OUT\ENDIF
  47. \IF #99>387\JUMP C_OUT\ENDIF\IF ADDR2LINE<>' '\DISP ADDR2LINE\CALL TXTUP\ENDIF
  48. \IF #99>387\JUMP C_OUT\ENDIF\IF CITY<>' '\DISP CITY,' ',STATE,' ',ZIP\ENDIF
  49. \IF COUNTRY_PRINT='Y'\DISP '  ',COUNTRY\ENDIF
  50. \CALL TXTUP\IF #99>387\JUMP C_OUT\ENDIF\DISP PHONE
  51. \X C_OUT\CALL RDSMLFON\MOV #99 TO #94\CALL BLNKOUT\RET
  52. \X SHOW_LOGO\IF LOGO_ACTV='N'\JUMP LOGOUT\ENDIF\IF #507='4'\READ (#505)\ELSE
  53. \IF #507='2' OR #507='3'\CALL RD_LOGO\ELSE\READ K:LOGOS.PIC\ENDIF
  54. \FRAME ?\IF A>=#506\SHOW OR=YES W=#501,#502,#503,#504 L=#501,#502 F=#506,#506\ENDIF\X LOGOUT\CALL BLNKOUT\RET
  55. \X RD_LOGO\SAVE SCRE\CLEAR PICS\EXEC DOS>(#505)
  56. \IF A<>-1\FRAME LOGO_XLORIG,LOGO_YLORIG,LOGO_XHORIG-LOGO_XLORIG,LOGO_YHORIG-LOGO_YLORIG\MOV 1 TO LOGO_NMBR\ENDIF\RESTORE SCRE\RET
  57. \X PRINT_SRL\IF SRL_ACTV='Y'\LOC SRL_XPOSI,SRL_YPOSI\CALL RDSMLFON\CALL BLD_SRL\CALL SETSRLXHGH\BLA SRL_XPOSI,SRL_YPOSI,#200,SRL_YPOSI+11\+
  58. \DISP SRL_PRFX,SRL_PR\ENDIF\CALL BLNKOUT\RET
  59. \X SETSRLXHGH\LEN SRL_PRFX\MOV (A*10)+(SRL_LEN*8)+SRL_XPOSI TO #200\IF #200>HIGHXPRN-BRDRWIDTH\MOV HIGHXPRN-BRDRWIDTH TO #200\ENDIF\RET
  60. \X SET_STNDRDS\MOV 6 TO #340\MOV 20 TO #305\MOV 2 TO #311\+
  61. \LEN #114\IF A=0\MOV '1' TO #112\MOV '1' TO #113\MOV '1' TO #114\ENDIF\+
  62. \LEN #760\IF A=0\MOV '3.5"' TO #760\ENDIF\+
  63. \IF #760='5.25"'\MOV 2 TO #310\MOV 12 TO #761\MOV 202 TO #762\+
  64. \MOV 0 TO #300\MOV 194 TO #301\MOV 566 TO #302\MOV 393 TO #303\ELSE\+
  65. \MOV 53 TO #310\MOV 9 TO #761\MOV 110 TO #762\+
  66. \MOV 0 TO #300\MOV 10 TO #301\MOV 366 TO #302\MOV 393 TO #303\ENDIF\+
  67. \LEN #512\IF A=0\MOV 'Y' TO #500\+
  68. \MOV 'LOGOS.PIC' TO #505\MOV '1' TO #507\+
  69. \MOV 0 TO #509\MOV 0 TO #510\MOV 50 TO #511\MOV 50 TO #512\+
  70. \MOV #302 TO #503\MOV #303 TO #504\IF #760='3.5"'\MOV 1 TO #506\+
  71. \MOV 275 TO #501\MOV 302 TO #502\ELSE\MOV 2 TO #506\MOV 375 TO #501\MOV 302 TO #502\ENDIF\+
  72. \LEN #147\IF A=0\MOV ' ' TO #147\ENDIF\+
  73. \LEN #550\IF A=0\MOV ' ' TO #550\MOV ' ' TO #551\MOV ' ' TO #552\MOV ' ' TO #553\ENDIF
  74. \LEN #660\IF A=0\MOV '1' TO #660\ENDIF\LEN #613\IF A=0\MOV 180 TO #613\MOV 149 TO #614\ENDIF\+
  75. \LEN #612\IF A=0\MOV 'N' TO #600\MOV 'Serial #:' TO #601\+
  76. \MOV 9109 TO #602\MOV 2100 TO #603\MOV 0 TO #604\MOV 12 TO #612\+
  77. \MOV 9109 TO #605\MOV 2100 TO #606\MOV 0 TO #607\MOV 'N' TO #611\+
  78. \MOV 'N' TO #608\MOV 1 TO #609\MOV '199110080000' TO #610\ENDIF\+
  79. \MOV #302+10 TO #320\MOV 479 TO #322\+
  80. \IF #760='5.25"'\MOV 0 TO #320\MOV #301-1 TO #322\ENDIF\MOV 639-#320 TO #321\+
  81. \LEN #406\IF A=0\MOV 1 TO #401\MOV 0 TO #402\MOV 0 TO #403\+
  82. \MOV 1 TO #404\MOV 0 TO #405\MOV 0 TO #406\ENDIF\RET
  83. \X RDSMLFON\READ K:081117PW.FON\MOV 11 TO FNTY\RET
  84. \X CRSRUP\BLA #320,#810,639,412\LOC #320,#810\WID #321 DOT\CURS CRSR_XLOC,CRSR_YLOC,80,CRSR_YLOC+4
  85. \ADD 48 TO #810\ADD 3 TO CRSR_YLOC\RET
  86. \X GTFNT\SUB 48 FROM #810\SUB 3 FROM CRSR_YLOC\CALLM CRSRUP
  87. Enter font size (1 to 4) for the next portion of text.  The larger sizes, of course, cannot print as many lines.
  88. \CURS CRSR_XLOC,CRSR_YLOC,80,CRSR_YLOC
  89. \X GET_FONTTYPE\QUES #200,1\IF #200<'1' OR #200>'4'\BEEP 55,77
  90. \LOC #320,#810+70
  91. Font type must be 1, 2, 3, or 4!
  92. \JUMP GET_FONTTYPE\ENDIF\CALL CRSRUP\RET
  93. \X DOSEXIT\CLEAR SCRE\LOC 100,130\WID 420 DOT C\ON KEY 7181\CALL RDSMLFON\KEY NEXT=7181
  94. To exit permanently, press Q (QUIT).
  95. To keep LABELER loaded in RAM so you
  96. can return to it, press <RETURN>.
  97. (Press <F10> to stay in LABELER.)
  98. \"
  99. Thank you for using software from
  100. The Animated Software Company!
  101. \BLA 0,230,639,241\LOC 100,230\ROUN -1 SPEED 20
  102. \IF CHGD_LBL='Y'
  103. NOTE: UNSAVED CHANGES TO YOUR LABEL EXIST!
  104. \"
  105. (That's O.K. if you only "Shell" out temporarily to DOS.
  106. To do that, just press <RETURN>.)
  107. \ELSE
  108. Press Q, <RETURN>, or <F10>!
  109. \"
  110. \"
  111. \"
  112. \ENDIF
  113. \"
  114. If exiting temporarily,
  115. from the DOS prompt type
  116. "EXIT" to return to LABELER.
  117. \"
  118. Your available memory 
  119. (BEFORE exit occurs) is:
  120. \MEMORY ?\MOV A+15 TO #200\CONVERT #200\LOC 256,358\DISP #200,' K bytes.'
  121. \IF A<80\LOC 100,371
  122. EXIT to DOS will fail if there isn't enough RAM.
  123. How much you need depends in part on your DOS version.
  124. \ENDIF\ON KEY 4209 JUMP BYE\ON KEY 4177 JUMP BYE\IF CHGD_LBL<>'Y'\READ K:AS-LOG17.PIC\SHOW 208,20,1,15\ELSE\CALL UNSVD_SND\CALL RSND\ENDIF
  125. \X TEMPDOS\CLEAR PICS\BLA 0,0,619,296\BLA 0,319,639,479\BEEP 184,184\WAIT NOW 884\CLEAR SCR\EXEC DOS>\CLEAR SCR\CLEAR ON KEYS\RET
  126. \X BYE\CLEAR SCR\MOV 'DEL TEMP.DAT' TO #200\EXEC DOS>(#200)\END
  127. \X MAKENM\BUILD LABELNM=HLDFLNM,'.AUX'\RET
  128. \X MOVENO2TEMP\LEN SRL_TEMPRUN\IF A>0\IF SRL_TEMPRUN='Y'\MOV SRL_LST4LOW TO SRL4LOW\MOV SRL_LST4MID TO SRL4MID\MOV SRL_LST4HGH TO SRL4HGH\MOV 'N' TO SRL_TEMPRUN\ENDIF\RET
  129. \X UPSRL\IF SRL4LOW+SRL_INCR<=9999\JUMP ADDUP\ENDIF\IF SRL_LEN=4\CALL OVERSRL\JUMP NO_UP\ENDIF\+
  130. \IF SRL4MID<9999\JUMP ADDUP\ENDIF\IF SRL_LEN=8\CALL OVERSRL\JUMP NO_UP\ENDIF\+
  131. \IF SRL4HGH<9999\JUMP ADDUP\ENDIF\CALL OVERSRL\JUMP NO_UP\+
  132. \X ADDUP\ADD SRL_INCR TO SRL4LOW\IF SRL4LOW>9999\IF SRL_LEN>4\ADD 1 TO SRL4MID\SUB 10000 FROM SRL4LOW\+
  133. \IF SRL4MID>9999\IF SRL_LEN>8\ADD 1 TO SRL4HGH\MOV 0 TO SRL4MID\IF SRL4HGH>9999\MOV 0 TO SRL4HGH\ENDIF\+
  134. \X NO_UP\CALL BLD_SRL\RET\X BLD_SRL
  135. \MOV SRL4LOW TO #200\MOV SRL4MID TO #201\MOV SRL4HGH TO #202\+
  136. \CONVERT #200\CONVERT #201\CONVERT #202\BUILD SRL_PR=#202[3,4],#201[3,4],#200[3,4]\+
  137. \MOV SRL_PR[1,1] TO #200\IF #200=' '\BUILD SRL_PR='0',SRL_PR[2,11]\ENDIF\+
  138. \MOV 2 TO X\X CONVLOOP\MOV SRL_PR[X,1] TO #200\+
  139. \IF #200=' '\BUILD SRL_PR=SRL_PR[1,X-1],'0',SRL_PR[X+1,12-X]\ENDIF\+
  140. \ADD 1 TO X\IF X<12\JUMP CONVLOOP\ENDIF\+
  141. \MOV SRL_PR[12,1] TO #200\IF #200=' '\BUILD SRL_PR=SRL_PR[1,11],'0'\ENDIF\+
  142. \IF SRL_LEN<12\MOV SRL_PR[5,8] TO SRL_PR\IF SRL_LEN<8\MOV SRL_PR[5,4] TO SRL_PR\ENDIF\+
  143. \RET\X RD_TEMPDAT\OPEN TEMP.DAT\MOV 0 TO Z\MOV 0 TO V
  144. \X NEXTDATA\ELIMINATE #700 TO #709\DATA #700,#701,#702,#703,#704,#705,#706,#707,#708,#709\ADD 1 TO V
  145. \ADD 1 TO V\IF V<3\JUMP NEXTDATA\ENDIF\MOV 700 TO G\LEN #G\IF A>0\CALL LOOK4SZ\IF Z=0\JUMP NEXTDATA\ENDIF
  146. \IF V<20 AND Z=0\JUMP NEXTDATA\ENDIF\CLOSE TEMP.DAT\RET
  147. \X LOOK4SZ\LEN #G\IF A>0\CALL FINDFREE\ADD 1 TO G\JUMP LOOK4SZ\ENDIF\RET
  148. \X FINDFREE\MOV #G[A-9,10] TO #200\IF #200=#201\IF #201='BYTES FREE'\CALL FINDBYTES\ENDIF
  149. \IF Z<3\SUB 1 FROM A\IF A>11\JUMP FINDFREE\ENDIF\RET
  150. \X FINDBYTES\MOV 1 TO Z\MOV #G[A-15,1] TO #201\IF #201>='0' AND #201<='9'\ELSE\JUMP BYTESOUT\ENDIF
  151. \IF #201>'1'\MOV 2 TO Z\ENDIF\MOV #G[A-16,1] TO #201\IF #201>='0' AND #201<='9'\MOV 3 TO Z\ENDIF
  152. \X BYTESOUT\RET
  153. \X OVERSRL\LOC #320+50,349\WID 160 DOTS C\CALL RDSMLFON\CALL UNSVD_SND
  154. WARNING!
  155. SERIAL NUMBERS HAVE RUN OUT!!
  156. NO INCREMENTING WILL BE DONE.
  157. \RET
  158. \X DONE_NOISE\BE 12,1207\BE 12,1140\BE 12,1076\BE 12,1016\BE 12,958\BE 12,905
  159. \BE 12,854\BE 12,806\BE 12,761\BE 12,719\BE 12,678\BE 12,1207\BE 12,1140\BE 12,1076
  160. \BE 12,1016\BE 12,958\BE 12,905\BE 12,854\BE 13,806\BE 15,761\BE 28,719
  161. \BE 22,678\WA N 48\RET
  162. \X UNSVD_SND\BE 6,201\BE 6,806\BE 6,3224\BE 6,1612\BE 6,403\BE 6,101\BE 6,201\BE 6,806
  163. \BE 6,3224\BE 6,1612\BE 6,403\BE 6,101\BE 6,201\BE 6,806\BE 6,3224\BE 6,1612\BE 6,403
  164. \BE 6,101\BE 6,201\BE 6,806\BE 6,3224\BE 6,1612\BE 6,403\BE 6,101\BE 6,201\BE 6,806
  165. \BE 6,3224\BE 6,1612\BE 6,403\BE 6,101\BE 6,201\BE 6,806\BE 6,1612\RET
  166. \X RSND\LOC 99,30
  167. LABEL CHANGES EXIST!
  168. \WAIT NOW 99\BL 0,0,639,80\WAIT NOW 99\IF B<>7181\JUMP RSND\ENDIF\RETURN
  169.  
  170.