Atari 8-bit Source code

10DIMTMP$(660),A$(40),DSK$(3),NAME$(18),ST$(110),TXT$(44):A$="":FLG=0
20?CHR$(125),"***PROGRAMLABEL***":GOTO40
30?:?"ENTERDISK#(3)";:INPUTDSK$:?:?"ENTERDISKTOPIC(18)";:INPUTNAME$:RETURN
40?:?"":?:?"**Press[RETURN]whenready"
41?"-OR-":POKE764,255
42?"**TYPEINUPTO44CHARACTERSTOBYPASSTHEDIRECTORY."
43IFPEEK(764)=255THEN43
45IFPEEK(764)=12THENPOKE764,255:POKE559,0:POKE82,1:GOTO60
50INPUTTXT$:IFTXT$=""THENTXT$=""
55FLG=1:POKE559,34:GOSUB30:GOTO170
60CLOSE#1:OPEN#1,6,0,"D:*.*":TMP$=""
70TRAP180:INPUT#1,A$:IFLEN(A$)<17THENTRAP210:X=1:GOTO145
80A$=A$(3,14)
90IFA$(9,9)=""THEN110
100A$(12,12)=A$(11,11):A$(11,11)=A$(10,10):A$(10,10)=A$(9,9):A$(9,9)="."
110FORX=8TO1STEP-1
120IFA$(X,X)=""THENA$(X)=A$(X+1):A$(LEN(A$)+1)=""
130NEXTX:A$(LEN(A$)+1)=""
140TMP$(LEN(TMP$)+1)=A$:GOTO70
145GOSUB29030
151AA=LEN(TMP$)
160IFLEN(TMP$)<650THENTMP$(LEN(TMP$)+1)="":GOTO160
165POKE559,34:?"":POKE752,1:?TMP$:GOSUB30
167IFLEN(NAME$)<18THENNAME$(LEN(NAME$)+1)="":GOTO167
170LPRINTCHR$(27);"8";CHR$(27);"0";CHR$(27);"P";CHR$(27);"EDISK";DSK$;"";NAME$;"F";"";"";A$(1,8)
175LPRINT"----------------------------------------------------------":X=1
176IFFLG=1THEN300
180TRAP190:LPRINTTMP$(X,X+12);TMP$(X+52,X+64);TMP$(X+104,X+116);TMP$(X+156,X+168);TMP$(X+208,X+220)
190X=X+13:IFX>52THENLPRINTTMP$(650):LPRINT:GOTO210
200GOTO180
210RUN
220GOTO170
300LPRINT:LPRINT:LPRINT:LPRINT"E";TXT$:LPRINT:LPRINT:LPRINT:LPRINT:LPRINT:LPRINT
310RUN
29030REMDIMST$(110)
29033ST$="hhhhhi>i="
29034ST$(70)=">Hh`"
29040ST$(58,58)=CHR$(28):ST$(71,71)=CHR$(13):ST$(36,36)=CHR$(13)
29050POKE207,0:POKE208,8
29060X=USR(ADR(ST$),ADR(TMP$),(LEN(TMP$)/13))
29070RETURN	

• Download link 1
• Download link 2