Atari 8-bit Source code

10SETCOLOR2,7,0:PRINTCHR$(125):POKE752,1:POSITION2,2:?""
20?:?"[Printsa4by1&7/16inchlabel][Prints36filesperlabelmaximum]"
24POSITION2,7:?""
25POSITION2,8:?"TURNON1025PRINTERANDALIGNLABEL"
26FORLABEL=1TO6
27POSITION27,8:?"":FORDELAY=1TO50:NEXTDELAY:POSITION27,8:?"ALIGNLABEL"
28FORDELAY=1TO50:NEXTDELAY:NEXTLABEL
30POSITION2,11:?"[]DISKTITLE:"
35POSITION1,13:?CHR$(34);"<<BELLCOMPUBLICDOMAINSOFTWARE>>";CHR$(34):?
40?"[]ENTERYOUROWNDISKTITLE":?
45?"[]DISKTITLEONLABEL"
50IFPEEK(53279)=5THENT=0:GOTO100
60IFPEEK(53279)=6THENT=1:GOTO100
65IFPEEK(53279)=3THENT=2:GOTO100
70GOTO50
100REM
110REM
120REM
125REM
130REM
134REM
135REM
136REM
137REM
138REM
139REM.
140GRAPHICS0:SETCOLOR2,4,0
160DIMT$(55),IN$(20),OUT$(66)
180OPEN#7,8,0,"P:"
185IFT=0THENGOSUB10000
186IFT=1THENGOSUB20000
195OPEN#1,6,0,"D:*.*"
200GOSUB1000
210STRT=1:REMStart1spacefromleftmargin.
220OUT$=""
230FORINDX=1TO3:REMThreecolumnsacross.
235IN$=""
240TRAP300
250INPUT#1,IN$
260TRAP40000
270IFLEN(IN$)<17THEN375
280FORPI=3TO10:IFIN$(PI,PI)<>""THENNEXTPI
290PO=STRT+PI-3
300OUT$(STRT,PO)=IN$(3,PI-1)
310IFIN$(11,13)<>""THENOUT$(PO,PO)=".":PO=PO+1:OUT$(PO,PO+3)=IN$(11,13)
315PO=STRT+13
320OUT$(PO,PO)="("
330OUT$(PO+1,PO+3)=IN$(15,17)
340OUT$(PO+4,PO+4)=")"
350STRT=STRT+19:REMIncrease'19'toincreasespacebetweencolumns.
360NEXTINDX
365PRINT#7;"8";
370PRINT#7;OUT$
372OUT$=""
373GOTO210
375IFOUT$<>""THENPRINT#7;OUT$;"2"
380PRINT#7;"";IN$
420CLOSE#1
499POKE752,0
500CLOSE#7
550CLR:?"":RUN
1000IFT<>2THENPRINT#7;"6";"";T$;:PRINT#7;"":REMChange''to''forlargerprintdisktitle
1100IFT=2THEN?"":?:?"PRINTING..."
1200RETURN
10000?"":?
10010?""
10020?"|MAXIMUMOFCHARACTERS|"
10030?"":?
10040POSITION2,9:?"":POSITION1,8
10050POKE764,255:INPUTT$:?:?"PRINTING..."
10100RETURN
20000?"":?:?"PRINTING..."
20010T$="<<BELLCOMPUBLICDOMAINSOFTWARE>>":REMMaychangetodesireddiskettetitle
20020RETURN	

• Download link 1
• Download link 2