\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 '5.14' TO #1000 ;LABELER Vers. # appears in LABWRITE too! Change in both places!
\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,18\ON ERROR JUMP NOFONTS\READ K:081118PW.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\TEXT PLANE=0101
\HUE C=0,0 S=0,0,24
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-93 Russell D. Hoffman
\LOCATE 102,18\TEXT PLANE=1110\DISPLAY "Version: ",#1000
\LOCATE 0,127\WIDTH 290 DOTS
\"
\LINE 2,3,285,130,9,B\LINE 0,0,287,133,9,B
\BLANK 0,134,319,479\TEXT PLANE=0111\WIDTH 290 DOTS BOTH
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 may not 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 receive 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\TEXT PLANE=1101\"PRESS <RETURN> TO CONTINUE...
\CLEAR PICS\BLANK 376,0,639,409
\LOCATE 399,300\WIDTH 180 DOTS BOTH\TEXT PLANE=1110
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 REVERSIBLE\READ K:AS-LOG18.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\TEXT PLANE=0100
\LINE 350,3,607,125,4,B
ERROR!
You must have AT LEAST 20,000 BYTES available on the disk to run this program!  Press <ALT-Q> now, exit to DOS and erase enough stuff to free AT LEAST 20,000 BYTES.
\"
SEE YOU IN A WHILE!
\"
THANKS!
\ELSE\ON KEY 7181 JUMP RESTART\ENDIF
\ON KEY 4096 JUMP DOSOUT\ON KEY F2 JUMP PR_REGISTRATION
\LOCATE 416,398\WIDTH 148 DOTS\LINE 400,392,564,414,STD_LNCLR,B\TEXT PLANE=1101
<ALT-Q>: EXIT TO DOS
\IF Z>2\READ K:LB-LOG18.PIC\SHOW 388,10,1\SHOW 400,18,2\ENDIF
\READ K:AS-LOG18.PIC\KEYS MINUS=19200 PLUS=19712 REVERSE=18688 FORWARD=20736 INCREASE=18432 DECREASE=20480\SHOW 390,163,1,15
\X RESTART\CLEAR KEYS\IF Z<2\JUMP START\ENDIF\ON KEY F2\BLA 200,470,639,479
\BLA 0,137,294,479\READ K:LAB_DATA.TXT
\"
\X PR_REGISTRATION\CLEAR ON KEYS\CLEAR SCREEN
\LOC 0,220\WIDTH 639 DOT C\TEXT PLANE=1011
Which printer (LPT#) will you be using
to print a registration coupon?
(Press 1, 2, or 3 and then <RETURN>):
\"
\"
\"
\"
\TEXT PLANE=1110
THANK YOU!!!
\"
\"
\"
\TEXT PLANE=1100
Next time you see the galloping horse,
try these keys:

Forward: Right arrow
Reverse: Left arrow
Faster: Up arrow
Slower: Down arrow
Single Step: PG UP, PG DN


\X RST_F2PTR\CURSOR 36,17\QUESTION P,0\IF P=0\MOVE 1 TO P\ENDIF
\IF P<1 OR P>3\BEEP 35,33\BEEP 24,615\JUMP RST_F2PTR\ENDIF
\X PR_REGIS2\LOC 0,200\TEXT PLANE=1110
---PRINTING A REGISTRATION COUPON---
\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-LOG18.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\TEXT PLANE=0100
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 "Can't perform DOS functions.  Might need more free RAM (480K).  Press <RETURN>"
\JUMP WAITOUT
\X BAD_SCREEN_MODE\TEXT PLANE=0100
\WAIT RET 99 'Unable to set up VGA screen mode 18, 640 BY 480, 16-colors. Press <RETURN>'
\JUMP WAITOUT
\X NOFONTS\TEXT PLANE=0100
\WAIT RET 99 "CAN'T LOAD '081118PW.FON' (SHORT ON RAM?)... 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
\NAME #881=TEXT_BOX_COLOR\MOVE 14 TO TEXT_BOX_COLOR
\NAME #882=TEXT_COLOR\MOVE 7 TO TEXT_COLOR
\NAME #883=IMAGE_COLOR\MOVE 14 TO IMAGE_COLOR
\NAME #884=STD_LNCLR\MOVE 12 TO STD_LNCLR
\RETURN
\X NEWREGIS\MOVE 'COPY SAMPLE.AUX PR_REGIS.AUX' TO #200\EXEC DOS>(#200)\READ K:TEMP.AUX\JUMP PR_REGIS2
\END


