home *** CD-ROM | disk | FTP | other *** search
/ Pegasus Graphics Universe / Pegasus_Graphics_Universe.iso / p11 / labeler / labintro.txt < prev    next >
Text File  |  1992-12-20  |  8KB  |  159 lines
  1. \CALL NAMEALL\CLEAR MACROS\READ K:BLDIMAGE.MAC\LENGTH #212\IF A>0\JUMP VALUES_SET\ENDIF
  2. \ON ERROR JUMP BADSOBAD\READ K:NEW.AUX\CLEAR ON ERROR\MOVE 'NEW' TO #121\CALLM MOVENO2TEMP
  3. \MOVE G TO #212\MOVE H TO #213\MOVE I TO #214\MOVE J TO #215
  4. \MOVE K TO #216\MOVE L TO #217\MOVE M TO #218
  5. \MOVE N TO #239\MOVE '4.22' TO #1000 ;version number of LABELER
  6. \MOVE 'LABINTRO' TO #999\MOVE 'N' TO #10001
  7. \MEMORY ?\MOVE A TO #221\MOVE Q TO #741\MOVE O TO #748 
  8. \MOVE #221 TO #211
  9. \LENGTH #211\IF A=2\CONVERT #211\ENDIF
  10. \LENGTH #212\IF A=2\CONVERT #212\ENDIF
  11. \LENGTH #213\IF A=2\CONVERT #213\ENDIF
  12. \LENGTH #214\IF A=2\CONVERT #214\ENDIF
  13. \LENGTH #215\IF A=2\CONVERT #215\ENDIF
  14. \LENGTH #217\IF A=2\CONVERT #217\ENDIF
  15. \MOVE #213[6,1] TO #200\IF #200='1' OR #200='3'\KEY END=-1\ELSE
  16. \IF #200='5' OR #200='7'\KEY END=-1\ELSE
  17. \IF #200='9'\KEY END=-1\ENDIF
  18. \MOVE 139 TO J  ;MENU CHOICE COUNTER
  19. \IF #97>2
  20. \MOVE #97 TO #94\MOVE #97 TO #93
  21. \ELSE
  22. \MOVE 1 TO #93\MOVE 2 TO #94
  23. \ENDIF
  24. \MOVE #213[5,1] TO #220
  25. \IF #220=' '\BUILD #213=#213[1,4],'0',#213[6,1]\ENDIF
  26. \MOVE #215[5,1] TO #220
  27. \IF #220=' '\BUILD #215=#215[1,4],'0',#215[6,1]\ENDIF
  28. \MOVE " NO" TO #220
  29. \MOUSE ?
  30. \IF A=2 \MOVE "YES" TO #220 \ENDIF
  31. \BUILD #211=#211[2,5],'K'
  32. \BUILD #217=#217[2,5]
  33. \BUILD #215=#214[2,6],'.',#215[5,2]
  34. \BUILD #213=#212[2,6],'.',#213[5,2]
  35. \IF #218=255\MOVE '    PC   ' TO #219\ELSE
  36. \IF #218=254\MOVE '    PC/XT' TO #219\ELSE
  37. \IF #218=253\MOVE '    PCjr ' TO #219\ELSE
  38. \IF #218=252\MOVE '    PC/AT' TO #219\ELSE
  39. \IF #218=249\MOVE ' PC Conv.' TO #219\ELSE
  40. \MOVE '    N/A  ' TO #219\ENDIF
  41. \MOVE "NEW" TO #120  ;FLNAME
  42. \MOVE "NEW" TO #121
  43. \MOVE "USA" TO #107  ;COUNTRY
  44. \MOVE "N" TO #108    ;COUNTRY_PRINT
  45. \MOVE '4' TO #350    ;FONT_TYPE
  46. \MOVE 'N' TO #10001  ;CHGD_LBL
  47. \X VALUES_SET\CALLM SET_STNDRDS\CALLM MOVENO2TEMP
  48. \ON ERROR JUMP BAD_SCREEN_MODE
  49. \SCREEN 0,0,17\ON ERROR JUMP NOFONTS\READ K:081117PW.FON\CLEAR ON ERROR\MOVE 11 TO FNTY
  50. \ON ERROR JUMP EVENWORSE\EXEC DOS>DIR NEW.AUX>TEMP.DAT\IF A=-1\JUMP EVENWORSE\ENDIF\CLEAR ON ERROR
  51. \CLEAR SCREEN\LOC 0,7\WID 300 DOTS CENTERED\HEI 479\OVE 0
  52. Welcome to LABELER!
  53. \"
  54. No warrantee is written or implied.
  55. Be sure the labels you use are
  56. compatible with your laser printer!
  57. This program is produced by:
  58. The Animated Software Co.
  59. America Online:RUSSELL DH
  60. CompuServe:71333,721
  61. Phone:(800) 551-2726
  62. Copyright (c) 1991-1992 by R. D. Hoffman.
  63. \LOCATE 102,18\DISPLAY "Version: ",#1000
  64. \LOCATE 10,128\WIDTH 290 DOTS
  65. \"
  66. \LINE 2,3,285,130,1,B\LINE 0,0,287,133,1,B
  67. \BLANK 0,134,319,479
  68. This program is designed specifically to work with AVERY 5196 laser 3.5" labels, AVERY 5197 laser 5.25" labels, and an HP Laserjet printer with enough RAM for full-page, 150 D.P.I. graphics.  It also requires VGA graphics capabilities.
  69. \"
  70. Do not use ANSI.SYS in your CONFIG.SYS program when running LABELER (you won't be able to see the text you type if you use ANSI.SYS, but you won't break anything.)
  71. \"
  72. Registering the program will support the author directly, and you will recieve the program's current version and a brochure about our many exciting animated software products.
  73. \"
  74. Please feel free to give this program to anyone!  Please do NOT, UNDER ANY CIRCUMSTANCES, change it and give away changed copies!  This is copyrighted material and very valuable to it's author!
  75. \"
  76. Press F2 now to print a registration coupon.  (Don't print one if you have diskette labels in your print tray!)
  77. \ON KEY F2 JUMP PR_REGISTRATION
  78. \"
  79. This menu appears between each label.
  80. \LOCATE 200,469\"PRESS <RETURN> TO CONTINUE...
  81. \CLEAR PICS\BLANK 376,0,639,409
  82. \LOCATE 399,300\WIDTH 180 DOTS BOTH
  83. FIRST-TIME USERS: You can print a single sample page by just pressing the <RETURN> key at each prompt until you get back to this galloping horse.
  84. \ROUNDS -1 SPEED 24\READ K:AS-LOG17.PIC\CLEAR ON ERROR
  85. \X TESTROOM\CLEAR ON KEYS\+
  86. \MOVE 'bytes free' TO #201\CALLM RD_TEMPDAT\X NOROOM\IF Z<2\LOC 360,10\WID 240 DOTS C\ON KEY 7181 JUMP NOROOM\BLA 350,3,607,125\CALLM UNSVD_SND
  87. ERROR!
  88. You must have AT LEAST 20,000 BYTES available on the disk to run this program!  Press <F3> now and exit to DOS and erase enough stuff to free AT LEAST 20,000 BYTES.
  89. \"
  90. SEE YOU IN A WHILE!
  91. \"
  92. THANKS!
  93. \LINE 350,3,607,125,1,B\ELSE\ON KEY 7181 JUMP RESTART\ENDIF
  94. \ON KEY F3 JUMP DOSOUT\ON KEY F2 JUMP PR_REGISTRATION
  95. \LOCATE 424,398\WIDTH 118 DOTS\LINE 410,392,540,414,1,B
  96. F3: EXIT TO DOS
  97. \READ K:AS-LOG17.PIC\SHOW 390,163,1,15
  98. \X RESTART\IF Z<2\JUMP START\ENDIF\ON KEY F2\BLA 200,470,639,479
  99. \BLA 0,137,292,479\READ K:LAB_DATA.TXT
  100. \"
  101. \X PR_REGISTRATION\CLEAR ON KEYS\CLEAR SCREEN
  102. \LOC 0,200\WIDTH 639 DOT C
  103. ---PRINTING A REGISTRATION COUPON---
  104. \"
  105. THANK YOU!!!
  106. \MOVE 'DEL TEMP.AUX' TO #200\EXEC DOS>(#200)\+
  107. \WRITE TEMP.AUX\ON ERROR JUMP NEWREGIS\READ K:PR_REGIS.AUX\CLEAR ON ERRORS\CLEAR MACROS\+
  108. \READ K:PR_REGIS.MAC\CALLM PRINT_REGISTRATION\CLEAR MACROS\READ K:BLDIMAGE.MAC\IF Q=1\CALLM UPSRL\WRITE PR_REGIS.AUX\ENDIF\+
  109. \READ K:TEMP.AUX\JUMP START
  110. \X DOSOUT\ON KEY F10 JUMP START\CALLM DOSEXIT\LOC #320,0\+
  111. \BUILD #200=K,':AS-LOG17.PIC'\ON ERROR JUMP START\READ (#200)\CLEAR ON ERROR
  112. \X START\READ K:LABINTRO.TXT
  113. \X BADSOBAD\MOVE 'COPY SAMPLE.AUX NEW.AUX' TO #200
  114. \EXEC DOS>(#200)
  115. \IF A<>-1 AND Z=0\MOVE 1 TO Z\READ K:LABINTRO.TXT\ENDIF
  116. \LOCATE 0,0\WIDTH 319 DOTS CENTERED\HEIGHT 199\OVERLAY 0\WAIT NOW 111
  117. You are missing NEW.AUX and we could not recreate it from SAMPLE.AUX.  Both these files are needed for LABELER to run properly.  Exit to DOS,  REName some other .AUX file as SAMPLE.AUX and rerun this program.
  118. \X WAITOUT
  119. \WAIT RET 99 'PRESS <RETURN> TO EXIT TO DOS'
  120. \END
  121. \X EVENWORSE
  122. \WAIT RET 99 'Unable to perform internal DOS commands. You may be short of RAM.              Press <RETURN>...'
  123. \JUMP WAITOUT
  124. \X BAD_SCREEN_MODE
  125. \END
  126. \WAIT RET 99 'Unable to set up VGA screen mode 17,      640 BY 480, 2-colors. Press <RETURN>...'
  127. \JUMP WAITOUT
  128. \X NOFONTS
  129. \WAIT RET 99 'CANNOT FIND FONT FILE "081117PW.FON"... PRESS <RETURN> TO EXIT TO DOS...'\END
  130. \X NAMEALL\CLEAR NAMES
  131. \NAME #100=ADDRINFOLINE\NAME #101=COMPANY\NAME #102=ADDR1LINE
  132. \NAME #103=ADDR2LINE\NAME #104=CITY\NAME #105=STATE\NAME #106=ZIP
  133. \NAME #107=COUNTRY\NAME #108=COUNTRY_PRINT\NAME #109=PHONE
  134. \NAME #120=FLNAME
  135. \NAME #901=DRVPATH\NAME #121=HLDFLNM\NAME #127=LABELNM
  136. \NAME #111=FNTY\NAME #112=AUTHRFNT\NAME #113=BODYFNT\NAME #114=CMPNYFNT
  137. \NAME #130=DISK_NAME\NAME #131=DSK1AUTHR\NAME #132=DSK2AUTHR
  138. \NAME #133=DSK3AUTHR\NAME #136=DSK4AUTHR\NAME #137=DSK5AUTHR
  139. \NAME #134=DISK_VERS\NAME #135=DISK_SUBTITLE
  140. \NAME #140=INFO1LN\NAME #141=INFO2LN\NAME #142=INFO3LN\NAME #143=INFO4LN\NAME #144=INFO5LN\NAME #145=INFO6LN\NAME #146=INFO7LN\NAME #147=INFO8LN
  141. \NAME #300=LOWXPRN\NAME #301=LOWYPRN\NAME #302=HIGHXPRN\NAME #303=HIGHYPRN\NAME #304=CURR_LBL\NAME #340=BRDRWIDTH
  142. \NAME #305=TXT_LFT\NAME #310=CRSR_XLOC\NAME #311=CRSR_YLOC
  143. \NAME #350=FONT_TYPE
  144. \NAME #500=LOGO_ACTV\NAME #501=LOGOXLOW\NAME #502=LOGOYLOW\NAME #503=LOGOXHGH\NAME #504=LOGOYHGH
  145. \NAME #505=LOGO_RD_CMD\NAME #506=LOGO_NMBR\NAME #507=LOGO_FORGN\NAME #508=FLIP_LOGO
  146. \NAME #509=LOGO_XLORIG\NAME #510=LOGO_YLORIG\NAME #511=LOGO_XHORIG\NAME #512=LOGO_YHORIG
  147. \NAME #600=SRL_ACTV\NAME #601=SRL_PRFX
  148. \NAME #602=SRL4HGH\NAME #603=SRL4MID\NAME #604=SRL4LOW
  149. \NAME #605=SRL_LST4HGH\NAME #606=SRL_LST4MID\NAME #607=SRL_LST4LOW
  150. \NAME #608=SRL_TEMPRUN\NAME #609=SRL_INCR\NAME #610=SRL_PR
  151. \NAME #611=SRL_STOPPER\NAME #612=SRL_LEN\NAME #613=SRL_XPOSI\NAME #614=SRL_YPOSI
  152. \NAME #660=PRT_LOC\NAME #10001=CHGD_LBL\NAME #1010=RESOLUTION
  153. \NAME #760=LABTYPE\NAME #761=LABSPERPG\NAME #762=FRSTLN
  154. \RETURN
  155. \X NEWREGIS\MOVE 'COPY SAMPLE.AUX PR_REGIS.AUX' TO #200\EXEC DOS>(#200)\READ K:TEMP.AUX\JUMP PR_REGISTRATION
  156. \END
  157.  
  158.  
  159.