Atari 8-bit Source code

5REM.VERSILABEL1.2
6REM.byBillCummings2/83
8REM
9REM.PRINTSDISKETTEMENUONANYSIZELABELINANYOF
10REM.128DIFFERENTFORMATS
11REM
12DIMCOMP$(2),NORM$(2):LETCOMP$="":NORM$="":REMCOMPRESSEDANDNORMALPRINTERFORMATCODESFOROKIDATA
13COL=80:REMNUMBEROFPRINTCOLUMNS
14REM
15REMALTERTHEABOVETOSATISFYYOURPRINTER
16REM
17LF=1:REMNUMBEROFLINEFEEDSBETWEENLABELS
18REM
20DIMA$(18),T$(18),SFX$(3),N$(72),SEC$(4):CLOSE#5:OPEN#5,4,0,"K"
21ERL=21:TRAP3000:CLOSE#7:OPEN#7,8,0,"P":?#7;COMP$
25?""
26?"byBillCummings"
27POSITION2,3:TRAP27:?"WIDTHOFLABELININCHES";:INPUTWIDTH:WIDTH=INT(WIDTH*16):IFWIDTH>84THENWIDTH=84
29POSITION2,4:TRAP28:?"HEIGHTOFLABEL";:INPUTHEIGHT:HEIGHT=INT(HEIGHT*6):IFHEIGHT>11THENHEIGHT=11
30?"DRAWLINEATTOPANDBOTTOM?";:GOSUB4000:BORD=YN
31NF=0:?"SHOULDTHELABELINDICATE:"
32?"LENGTHOFEACHFILE?";:L=14:GOSUB4000:SECS=YN:IFYNTHENL=18
35?"WHETHERFILEISLOCKED?";:GOSUB4000:LOCK=YN:IFNOTLOCKTHENL=L-1
38PER=INT(WIDTH/L):SP=INT((COL*1.6500000000000001-PER*L+1)/2):IFPERTHEN40
39?:?"LABELTOOSMALL":GOTO27
40?"'.SYS'FILES?";:GOSUB4000:SYS=YN
50?"'.DAT'FILES?";:GOSUB4000:LETDAT=YN
60H=HEIGHT+1:?"FREESECTORS?";:GOSUB4000:F=YN
62GOSUB6000:IFNFTHEN?:?NF;"FILESDIDN'TFITONLABEL":?:NF=0
65?"ENTERDISKTITLEORFORNONE":INPUTN$:H=HEIGHT+1-F-2*BORD:IFN$=""THEN67
66H=H-1:IFPER*L<LEN(N$)THEN?:?"TITLETOOLONG":GOTO65
67IFH<1THEN39
68MAX=PER*H:IFMAX<40THEN?:?"AMAXIMUMOF";MAX;"FILENAMESWILLFIT":?"ONALABELUSINGTHESEPARAMETERS"
69?:?"CENTERLABELINPRINTER,"
70?"INSERTDISKETTE,ANDHIT:":?"TOPRINT,":?"TOCHANGEPARAMETERS,OR":?"TOQUIT";
72GET#5,X:IFX=155THEN80
75IFX=ASC("P")THEN25
76IFX=ASC("Q")THEN?#7;NORM$:TRAP40000:END
77GOTO72
80FEED=0:IFBORDTHENGOSUB1000:FEED=1
90ERL=90:TRAP3000:IFLEN(N$)THENGOSUB5000:?#7;"TITLE:";N$;:FEED=1
100TRAP2000:CLOSE#2:OPEN#2,6,0,"D:*.*":TRAP40000:E=-1:FP=0:MESS=0
110TRAP2000:INPUT#2,T$:IFLEN(T$)<17THEN300
111A$(1)=T$(1,1):A$(2)=T$(3):IFNOTLOCKTHENT$(1,1)="":REMKILLSPACEAFTER*
112FORS=2TO9:IFA$(S,S)<>""THENNEXTS
115SFX$=A$(10,12):IFSFX$<>""THENA$(S)=".":A$(S+1)=SFX$:S=S+4
120IFNOTDATANDSFX$="DAT"THEN110
130IFNOTSYSANDSFX$="SYS"THEN110
140FORYN=STO14:A$(YN)="":NEXTYN
150IFSECSTHENA$(14)=T$(14):A$(18)=""
170IFFP=MAXTHENNF=NF+1:GOTO110
200E=E+1:IFINT(E/PER)=E/PERTHEN?#7:GOSUB5000:FEED=FEED+1
210T$=A$:IFNOTLOCKTHENT$=A$(2)
250?#7;T$;:FP=FP+1:GOTO110
300CLOSE#2:?#7:GOSUB5000:IFFTHEN?#7;T$:FEED=FEED+1
310FEED=H-FEED:IFFEED>0THENFORYN=1TOFEED:ERL=310:?#7:NEXTYN
320ERL=320:IFBORDTHENGOSUB1000
330IFLFTHENFORI=1TOLF:?#7:NEXTI
340GOTO62
1000GOSUB5000:FORI=1TOPER*L:?#7;"_";:NEXTI:?#7:RETURN
2000?:?"CAN'TACCESSDIRECTORY":GOTO70
3000?:?"PRINTERNOTOPERATIONAL":?"FIXANDHIT"
3010GET#5,YN:IFYN<>155THEN3010
3020CLOSE#7:OPEN#7,8,0,"P":GOTOERL
4000POKE764,255:GET#5,YN:IFYN<>ASC("Y")ANDYN<>ASC("N")THEN4000
4010IFYN-ASC("N")THENYN=1:?"YES":RETURN
4020YN=0:?"NO":RETURN
5000TRAP3000:ERL=5000:FORI=1TOSP:?#7;"";:NEXTI
5010RETURN
6000POSITION2,12:?"";:RETURN	

• Download link 1
• Download link 2