10REM Label-IT - The Label Printer
20REM by David Bradforth
30REM (c) David Bradforth 1995
40:
50REM NOTE!
60REM -> This utility is FREEWARE
70REM in that you are FREE to
80REM WARE it however you like!
90REM (But don't blame me if you
100REM get caught wearing a floppy
110REM disc!)
120REM <- Enjoy it!
130:
140ON ERROR VDU 22,7:HIMEM=&3000:REPOR
T:PRINT " at line ";ERL:END
150PROCsetup
160MODE 7:VDU 23;8202;0;0;0;
170PROCtitle
180PRINTTAB(0,6)"";
190PRINTSPC(2)"1 ... Change COMPANY fi
eld"
200PRINT'SPC(2)"2 ... Change NAME fiel
d"
210PRINT'SPC(2)"3 ... Change ADDRESS 1
field"
220PRINT'SPC(2)"4 ... Change ADDRESS 2
field"
230PRINT'SPC(2)"5 ... Change ADDRESS 3
field"
240PRINT'SPC(2)"6 ... Change POSTCODE
field"
250PRINT'SPC(2)"P ... Print a Label"
260PRINT'SPC(2)"Q ... Quit Label-IT"
270REPEAT
280A$=GET$
290IFA$="p" A$="P"
300IFA$="a" A$="Q"
310IF A$="1" PROCchcomp
320IF A$="2" PROCchname
330IF A$="3" PROCchadd1
340IF A$="4" PROCchadd2
350IF A$="5" PROCchadd3
360IF A$="6" PROCchpcde
370IF A$="P" PROCprintl
380UNTIL A$="Q"
390CLS
400END
410:
420DEFPROCsetup
430company$="Joe Bloggs"
440name$= "Joe Bloggs Enterprises"
450addrssa$="15 Victoria Street"
460addrssb$="Albianshire"
470addrssc$="Cheshire"
480postcde$="AB4 123"
490ENDPROC
500:
510DEFPROCtitle
520FOR N=1 TO 2
530PRINTTAB(4,N)CHR$141;CHR$130;"Label
-IT - The Label Printer"
540NEXT
550PRINTTAB(7,3)CHR$131;"(c) David Bra
dforth 1994"
560ENDPROC
570:
580DEFPROCprintl
590CLS
600PROCtitle
610PRINTTAB(0,6)"";
620PRINT "How many copies would you li
ke?"
630INPUT ":"numcps
640IF numcps=0PRINT:PRINT "Return to t
he Main Menu":PRINT "Press any key to co
ntinue":A$=GET$:RUN
650PRINT "How many spaces between each
label?"
660INPUT ":"numspcs
670PRINT:PRINT "Place paper/labels in
printer, and pressany key to continue."
680A$=GET$
690PRINT:PRINT
700VDU 2
710FORn=1 TO numcps
720PRINTname$
730PRINT company$
740PRINT addrssa$
750PRINT addrssb$
760PRINT addrssc$
770PRINT postcde$
780FOR n=1 TO numspcs
790PRINT
800NEXT
810NEXT
820VDU 3
830CLS:GOTO 170
840ENDPROC
850:
860DEFPROCchcomp
870CLS
880PROCtitle
890PRINTTAB(0,6)"Current COMPANY name
for label:"
900PRINTSPC(7);company$
910PRINT'"New COMPANY name for label:"
920INPUT ":"company$
930IF company$="" THEN company$=" -- -
- -- -- -- "
940CLS:GOTO 170
950ENDPROC
960:
970DEFPROCchname
980CLS
990PROCtitle
1000PRINTTAB(0,6)"Current NAME on label
:"
1010PRINTSPC(7);name$
1020PRINT'"New NAME for label:"
1030INPUT ":"name$
1040IF name$="" THEN VDU 7:PRINT "The l
abel MUST have a name!":GOTO 1020
1050CLS:GOTO 170
1060ENDPROC
1070:
1080DEFPROCchadd1
1090CLS
1100PROCtitle
1110PRINTTAB(0,6)"Current ADDRESS 1 sec
tion on label:"
1120PRINTSPC(7);addrssa$
1130PRINT'"New ADDRESS 1 for label:"
1140INPUT ":"addrssa$
1150IF addrssa$="" THEN VDU 7:PRINT "Th
e label MUST have an address!":GOTO 1130
1160CLS:GOTO 170
1170ENDPROC
1180:
1190DEFPROCchadd2
1200CLS
1210PROCtitle
1220PRINTTAB(0,6)"Current ADDRESS 2 sec
tion on label:"
1230PRINTSPC(7);addrssb$
1240PRINT'"New ADDRESS 2 for label:"
1250INPUT ":"addrssb$
1260IF addrssb$="" THEN VDU 7:PRINT "Th
e label MUST have an address!":GOTO 1240
1270CLS:GOTO 170
1280ENDPROC
1290:
1300DEFPROCchadd3
1310CLS
1320PROCtitle
1330PRINTTAB(0,6)"Current ADDRESS 3 sec
tion on label:"
1340PRINTSPC(7);addrssc$
1350PRINT'"New ADDRESS 3 for label:"
1360INPUT ":"addrssc$
1370IF addrssc$="" THEN VDU 7:PRINT "Th
e label MUST have an address!":GOTO 1350
1380CLS:GOTO 170
1390ENDPROC
1400:
1410DEFPROCchpcde
1420CLS
1430PROCtitle
1440PRINTTAB(0,6)"Current POSTCODE on l
abel:"
1450PRINTSPC(7);postcde$
1460PRINT'"New POSTCODE for label:"
1470INPUT ":"postcde$
1480IF postcde$="" postcde$=" "
1490CLS:GOTO 170
1500ENDPROC