\CALL NAMEALL\CLEAR MACROS\READ K:BLDIMAGE.MAC\LENGTH #212\IF A>0\JUMP VALUES_SET\ENDIF
\ON ERROR JUMP BADSOBAD\READ K:NEW.AUX\CLEAR ON ERROR\MOVE 'NEW' TO #121\CALLM MOVENO2TEMP
\MOVE G TO #212\MOVE H TO #213\MOVE I TO #214\MOVE J TO #215
\MOVE K TO #216\MOVE L TO #217\MOVE M TO #218
\MOVE N TO #239\MOVE '4.22' TO #1000 ;version number of LABELER
\MOVE 'LABINTRO' TO #999\MOVE 'N' TO #10001
\MEMORY ?\MOVE A TO #221\MOVE Q TO #741\MOVE O TO #748 
\MOVE #221 TO #211
\LENGTH #211\IF A=2\CONVERT #211\ENDIF
\LENGTH #212\IF A=2\CONVERT #212\ENDIF
\LENGTH #213\IF A=2\CONVERT #213\ENDIF
\LENGTH #214\IF A=2\CONVERT #214\ENDIF
\LENGTH #215\IF A=2\CONVERT #215\ENDIF
\LENGTH #217\IF A=2\CONVERT #217\ENDIF
\MOVE #213[6,1] TO #200\IF #200='1' OR #200='3'\KEY END=-1\ELSE
\IF #200='5' OR #200='7'\KEY END=-1\ELSE
\IF #200='9'\KEY END=-1\ENDIF
\MOVE 139 TO J  ;MENU CHOICE COUNTER
\IF #97>2
\MOVE #97 TO #94\MOVE #97 TO #93
\ELSE
\MOVE 1 TO #93\MOVE 2 TO #94
\ENDIF
\MOVE #213[5,1] TO #220
\IF #220=' '\BUILD #213=#213[1,4],'0',#213[6,1]\ENDIF
\MOVE #215[5,1] TO #220
\IF #220=' '\BUILD #215=#215[1,4],'0',#215[6,1]\ENDIF
\MOVE " NO" TO #220
\MOUSE ?
\IF A=2 \MOVE "YES" TO #220 \ENDIF
\BUILD #211=#211[2,5],'K'
\BUILD #217=#217[2,5]
\BUILD #215=#214[2,6],'.',#215[5,2]
\BUILD #213=#212[2,6],'.',#213[5,2]
\IF #218=255\MOVE '    PC   ' TO #219\ELSE
\IF #218=254\MOVE '    PC/XT' TO #219\ELSE
\IF #218=253\MOVE '    PCjr ' TO #219\ELSE
\IF #218=252\MOVE '    PC/AT' TO #219\ELSE
\IF #218=249\MOVE ' PC Conv.' TO #219\ELSE
\MOVE '    N/A  ' TO #219\ENDIF
\MOVE "NEW" TO #120  ;FLNAME
\MOVE "NEW" TO #121
\MOVE "USA" TO #107  ;COUNTRY
\MOVE "N" TO #108    ;COUNTRY_PRINT
\MOVE '4' TO #350    ;FONT_TYPE
\MOVE 'N' TO #10001  ;CHGD_LBL
\X VALUES_SET\CALLM SET_STNDRDS\CALLM MOVENO2TEMP
\ON ERROR JUMP BAD_SCREEN_MODE
\SCREEN 0,0,17\ON ERROR JUMP NOFONTS\READ K:081117PW.FON\CLEAR ON ERROR\MOVE 11 TO FNTY
\ON ERROR JUMP EVENWORSE\EXEC DOS>DIR NEW.AUX>TEMP.DAT\IF A=-1\JUMP EVENWORSE\ENDIF\CLEAR ON ERROR
\CLEAR SCREEN\LOC 0,7\WID 300 DOTS CENTERED\HEI 479\OVE 0
Welcome to LABELER!
\"
No warrantee is written or implied.
Be sure the labels you use are
compatible with your laser printer!
This program is produced by:
The Animated Software Co.
America Online:RUSSELL DH
CompuServe:71333,721
Phone:(800) 551-2726
Copyright (c) 1991-1992 by R. D. Hoffman.
\LOCATE 102,18\DISPLAY "Version: ",#1000
\LOCATE 10,128\WIDTH 290 DOTS
\"
\LINE 2,3,285,130,1,B\LINE 0,0,287,133,1,B
\BLANK 0,134,319,479
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.
\"
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.)
\"
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.
\"
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!
\"
Press F2 now to print a registration coupon.  (Don't print one if you have diskette labels in your print tray!)
\ON KEY F2 JUMP PR_REGISTRATION
\"
This menu appears between each label.
\LOCATE 200,469\"PRESS <RETURN> TO CONTINUE...
\CLEAR PICS\BLANK 376,0,639,409
\LOCATE 399,300\WIDTH 180 DOTS BOTH
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.
\ROUNDS -1 SPEED 24\READ K:AS-LOG17.PIC\CLEAR ON ERROR
\X TESTROOM\CLEAR ON KEYS\+
\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
ERROR!
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.
\"
SEE YOU IN A WHILE!
\"
THANKS!
\LINE 350,3,607,125,1,B\ELSE\ON KEY 7181 JUMP RESTART\ENDIF
\ON KEY F3 JUMP DOSOUT\ON KEY F2 JUMP PR_REGISTRATION
\LOCATE 424,398\WIDTH 118 DOTS\LINE 410,392,540,414,1,B
F3: EXIT TO DOS
\READ K:AS-LOG17.PIC\SHOW 390,163,1,15
\X RESTART\IF Z<2\JUMP START\ENDIF\ON KEY F2\BLA 200,470,639,479
\BLA 0,137,292,479\READ K:LAB_DATA.TXT
\"
\X PR_REGISTRATION\CLEAR ON KEYS\CLEAR SCREEN
\LOC 0,200\WIDTH 639 DOT C
---PRINTING A REGISTRATION COUPON---
\"
THANK YOU!!!
\MOVE 'DEL TEMP.AUX' TO #200\EXEC DOS>(#200)\+
\WRITE TEMP.AUX\ON ERROR JUMP NEWREGIS\READ K:PR_REGIS.AUX\CLEAR ON ERRORS\CLEAR MACROS\+
\READ K:PR_REGIS.MAC\CALLM PRINT_REGISTRATION\CLEAR MACROS\READ K:BLDIMAGE.MAC\IF Q=1\CALLM UPSRL\WRITE PR_REGIS.AUX\ENDIF\+
\READ K:TEMP.AUX\JUMP START
\X DOSOUT\ON KEY F10 JUMP START\CALLM DOSEXIT\LOC #320,0\+
\BUILD #200=K,':AS-LOG17.PIC'\ON ERROR JUMP START\READ (#200)\CLEAR ON ERROR
\X START\READ K:LABINTRO.TXT
\X BADSOBAD\MOVE 'COPY SAMPLE.AUX NEW.AUX' TO #200
\EXEC DOS>(#200)
\IF A<>-1 AND Z=0\MOVE 1 TO Z\READ K:LABINTRO.TXT\ENDIF
\LOCATE 0,0\WIDTH 319 DOTS CENTERED\HEIGHT 199\OVERLAY 0\WAIT NOW 111
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.
\X WAITOUT
\WAIT RET 99 'PRESS <RETURN> TO EXIT TO DOS'
\END
\X EVENWORSE
\WAIT RET 99 'Unable to perform internal DOS commands. You may be short of RAM.              Press <RETURN>...'
\JUMP WAITOUT
\X BAD_SCREEN_MODE
\END
\WAIT RET 99 'Unable to set up VGA screen mode 17,      640 BY 480, 2-colors. Press <RETURN>...'
\JUMP WAITOUT
\X NOFONTS
\WAIT RET 99 'CANNOT FIND FONT FILE "081117PW.FON"... PRESS <RETURN> TO EXIT TO DOS...'\END
\X NAMEALL\CLEAR NAMES
\NAME #100=ADDRINFOLINE\NAME #101=COMPANY\NAME #102=ADDR1LINE
\NAME #103=ADDR2LINE\NAME #104=CITY\NAME #105=STATE\NAME #106=ZIP
\NAME #107=COUNTRY\NAME #108=COUNTRY_PRINT\NAME #109=PHONE
\NAME #120=FLNAME
\NAME #901=DRVPATH\NAME #121=HLDFLNM\NAME #127=LABELNM
\NAME #111=FNTY\NAME #112=AUTHRFNT\NAME #113=BODYFNT\NAME #114=CMPNYFNT
\NAME #130=DISK_NAME\NAME #131=DSK1AUTHR\NAME #132=DSK2AUTHR
\NAME #133=DSK3AUTHR\NAME #136=DSK4AUTHR\NAME #137=DSK5AUTHR
\NAME #134=DISK_VERS\NAME #135=DISK_SUBTITLE
\NAME #140=INFO1LN\NAME #141=INFO2LN\NAME #142=INFO3LN\NAME #143=INFO4LN\NAME #144=INFO5LN\NAME #145=INFO6LN\NAME #146=INFO7LN\NAME #147=INFO8LN
\NAME #300=LOWXPRN\NAME #301=LOWYPRN\NAME #302=HIGHXPRN\NAME #303=HIGHYPRN\NAME #304=CURR_LBL\NAME #340=BRDRWIDTH
\NAME #305=TXT_LFT\NAME #310=CRSR_XLOC\NAME #311=CRSR_YLOC
\NAME #350=FONT_TYPE
\NAME #500=LOGO_ACTV\NAME #501=LOGOXLOW\NAME #502=LOGOYLOW\NAME #503=LOGOXHGH\NAME #504=LOGOYHGH
\NAME #505=LOGO_RD_CMD\NAME #506=LOGO_NMBR\NAME #507=LOGO_FORGN\NAME #508=FLIP_LOGO
\NAME #509=LOGO_XLORIG\NAME #510=LOGO_YLORIG\NAME #511=LOGO_XHORIG\NAME #512=LOGO_YHORIG
\NAME #600=SRL_ACTV\NAME #601=SRL_PRFX
\NAME #602=SRL4HGH\NAME #603=SRL4MID\NAME #604=SRL4LOW
\NAME #605=SRL_LST4HGH\NAME #606=SRL_LST4MID\NAME #607=SRL_LST4LOW
\NAME #608=SRL_TEMPRUN\NAME #609=SRL_INCR\NAME #610=SRL_PR
\NAME #611=SRL_STOPPER\NAME #612=SRL_LEN\NAME #613=SRL_XPOSI\NAME #614=SRL_YPOSI
\NAME #660=PRT_LOC\NAME #10001=CHGD_LBL\NAME #1010=RESOLUTION
\NAME #760=LABTYPE\NAME #761=LABSPERPG\NAME #762=FRSTLN
\RETURN
\X NEWREGIS\MOVE 'COPY SAMPLE.AUX PR_REGIS.AUX' TO #200\EXEC DOS>(#200)\READ K:TEMP.AUX\JUMP PR_REGISTRATION
\END