Atari 8-bit Source code

0POKE82,2:POKE83,39:GOSUB900:GOTO110
1GOTO80
80TRAP90:XIO33,#1,0,0,"D:DISKLABL.BAK"
90TRAP100:XIO32,#1,0,0,"D:DISKLABL.EPS,DISKLABL.BAK"
100SAVE"D:DISKLABL.EPS":TRAPOFF:STOP
110OFF=34567
120DIMA$(25),ARRAY$(64*17),SORT$(126),DATE$(8),B$(25)
130GRAPHICS0:POKE710,178
140SORT$="hhhhhei,"
150SORT$(64)="Hh`"
170?:?:?:?"TURNONPRINTER/850INTERFACEUNIT.":?
175?"ENTERDATE(MM/DD/YY):";:INPUTDATE$
180?"INSERTDISKETTEINTODRIVE#1.":?
190?"TYPEWHENREADY.":?
200INPUTA$
210TRAP650
230OPEN#7,8,0,"P:":TRAPOFF
260?#7;CHR$(27);"0"
264?#7;CHR$(27);"E"
270?"ENTERDISKETTENAME(toQuit)":INPUTA$:B$=A$
280X=0:IFA$=""THENEND
290ARRAY$="":ARRAY$(64*17)="":ARRAY$(2)=ARRAY$
340OPEN#2,6,0,"D:*.*":TRAP400
350FORI=1TO64
360INPUT#2,A$
365?A$
370ARRAY$(I*17-16,I*17)=A$:II=I
380NEXTI
400NUMREC=II-1
410CLOSE#2:TRAPOFF
411?"CONTINUEPRINTINGORDONEXTONE?(1=CONT)";:INPUTB
412IFB=1THEN435
430GOTO270
435?#7;CHR$(15);"DISK=";B$;"";DATE$
440POKE203,2:POKE204,16
460POKE205,17:POKE206,0
480A=USR(ADR(SORT$),ADR(ARRAY$),NUMREC)
490NUMREC=NUMREC+1
510ROWS=1+INT((NUMREC-1)/3)
520X=-1
521Z=1
540FORROW=1TOROWS
550LAST=ROW+ROWS*3
571X=X+1:IFX>10THENX=0
580FORK=ROWTOLASTSTEPROWS
590?#7;ARRAY$(K*17-16,K*17);"";
600NEXTK
601Z=Z+1:IFZ=11THEN?#7
602IFZ=22THEN?#7
610?#7
620NEXTROW
621GOSUB800
630GOTO270
650TRAPOFF:IFPEEK(195)=138THEN160
660?"ERROR#";PEEK(195);"ATLINE30.":STOP
800REMADVANCETONEXTLABEL
810REM
820IFZ<=11THENY=11-Z:FORQ=1TOY+1:?#7:NEXTQ:RETURN
830IFZ<=22THENY=22-Z:FORQ=1TOY+1:?#7:NEXTQ:RETURN
840RETURN
900REMSTARTUPSCREEN
910REM
920?CHR$(125)
925?:?"********PROGRAMDESCRIPTION********":?
930?"Thisprogramwillallowyoutoprintdirectorylistingsonaddresslabels.Itwillsortthe";
940?"directoryandprintitoutonthelabelswith3listingsperline."
945?
950?"ThisprogramusestheGemini10XwithAveryTabulabeladdresslabels(#4146)--4inchesx";
960?"17/16inches.Itwillprint11linesperlabel,includ-ingoneforthedisktitle&date."
965?
970?"ThisprogramisamodificationofonewrittenbyRickGroszkiewiczon02/12/84"
980?:?"********BILLDEBRUIN*******"
990?"74035,212"
993?"........5/18/85.........."
995FORQQ=1TO2000:NEXTQQ
999RETURN	

• Download link 1
• Download link 2