home *** CD-ROM | disk | FTP | other *** search
- 10 SUB=49152:FOR J=SUBTOSUB+76:READN:CS=CS+N:POKEJ,N:NEXT
- 12 DATA 32,253,174,32,139,176,133,251,132,252,32,143,173,160,0,32,207,255
- 13 DATA 201,13,240,6,153,0,2,200,208,243,192,1,208,8,173,0,2,201,32,208,1,136
- 15 DATA 132,253,152,32,125,180,165,99,160,2,145,251,136,165,98,145,251,136
- 17 DATA 165,97,145,251,165,253,240,10,185,0,2,145,98,200,196,253,208,246,96
- 18 PRINT""
- 19 PRINT"[147]":POKE53281,0:POKE53280,0
- 20 PRINTTAB(11)"1526 ADDRESS LABELS"
- 30 PRINT:FOR I=1TO 3000:NEXT
- 40 PRINT"[147]"
- 42 GET Z$:IF Z$="E" THEN 500
- 50 GOSUB 450
- 55 OPEN 4,4,7
- 60 PRINT"[196]O YOU WISH A THREE OR FOUR LINE ADDRESS LABEL?"::PRINT"PRESS 3 OR 4"
- 70 GETLA$:IF LA$=""THEN 70
- 80 IFLA$="3" THEN 130:IF LA$="4" THEN 120
- 85 IF LA$<>"3"ANDLA$<>"4"THEN 60
- 120 PRINT"[147]AGENT'S NAME? ";:SYS SUB,AA$:PRINT
- 130 PRINT"[147]COMPANY NAME?(JUST NAME IF USING 3 LINE LABEL)? ";:SYS SUB,A$:PRINT
- 140 PRINT"[147]STREET ADDRESS? ";:SYS SUB,B$:PRINT
- 150 PRINT"[147]CITY? ";:SYS SUB,C$:PRINT
- 160 PRINT"[147]STATE & ZIP? ";:SYS SUB,D$:PRINT
- 165 IF LA$="4"THEN L=0
- 170 IF LA$="3"THEN L=2:IF LA$="4"THEN L=0
- 180 INPUT"[147]HOW MANY COPIES";C
- 190 PRINT"[147]"
- 200 PRINTTAB(11)"GET PRINTER READY"
- 210 GOSUB 410
- 220 CM$=","
- 230 POKE198,0:WAIT198,1
- 250 PRINT"[147]":PRINTTAB(17)"PRINTING"
- 270 FOR A=1TOC
- 272 IF LA$="4"GOTO 280
- 276 PRINT#4,NS$NT$:PRINT#4," "A$:PRINT#4," "B$:PRINT#4," "C$CM$;:
- 277 PRINT#4," "D$
- 278 GOTO
- 3247 PRINT#4,NS$NT$:PRINT#4," "AA$:PRINT#4," "A$:PRINT#4," "B$:
- 283 PRINT#4," "C$CM$;:PRINT#4," "D$
- 290 FORI=1TOL:PRINT#4:NEXT:NEXT
- 300 PRINT"[147]":PRINTTAB(16)"FINISHED"
- 310 GOSUB410
- 330 GET R$
- 390 IF R$=""THEN330
- 394 PRINT "[147]TYPE [197] TO END"
- 395 PRINT"[208]RESS ANY KEY TO CONTINUE"
- 396 GET Z$:IF Z$=""THEN 396
- 397 IF Z$="E"THEN 500
- 398 IF Z$="[177]"THEN 500
- 400 GOTO60
- 410 FORK=1TO19:PRINT:NEXT
- 420 PRINTTAB(14)"HIT ANY KEY"
- 430 POKE198,0:POKE198,1:RETURN
- 450 NS$=CHR$(15):NT$=""
- 460 RETURN
- 500 PRINT#4:CLOSE4:POKE 53280,14:POKE 53281,6:PRINT"[147][142]":END
-