Atari 8-bit Source code

10POKE82,2:POKE83,39
20OFF=34567
30DIMA$(35),ARRAY$(64*17),SORT$(126)
40GRAPHICS0:POKE710,0:CLOSE#1:OPEN#1,4,0,"K:"
50SORT$="hhhhhei,"
60SORT$(64)="Hh`"
70?:?:?:?"THISPROGRAMPRINTSDISKMENUS"
80?"ALPHABETIZEDINCOLUMNS"
90?"ONTHEATARI1020PLOTTER"
100?:?:?:?"TURNONYOUR1020.":?
110?"INSERTDISKETTEINTODRIVE#1.":?
120?"TYPEWHENREADY.";
130GET#1,A:?
140TRAP520
150CLOSE#7:OPEN#7,8,0,"P:":TRAPOFF
160?#7;"";
170?"ENTERDISKETTENAME(toQuit)":INPUTA$
180X=0:IFA$=""THENEND
190ARRAY$="":ARRAY$(64*17)="":ARRAY$(2)=ARRAY$
200?#7;"Diskname=";A$;""
210REM
220OPEN#2,6,0,"D:*.*":TRAP280
230FORI=1TO64
240INPUT#2,A$
250ARRAY$(I*17-16,I*17)=A$:II=I
260NEXTI
270REM
280NUMREC=II-1
290CLOSE#2:TRAPOFF
300REM
310REM
320POKE203,2:POKE204,16
330REM
340POKE205,17:POKE206,0
350REM
360A=USR(ADR(SORT$),ADR(ARRAY$),NUMREC)
370NUMREC=NUMREC+1
380REM
390ROWS=1+INT((NUMREC-1)/4)
400X=-1
410REM
420FORROW=1TOROWS
430LAST=ROW+ROWS*3
440X=X+1:IFX>7THENX=0:?#7;"CONTINUEDONOTHERSIDE":?#7
450FORK=ROWTOLASTSTEPROWS
460?#7;ARRAY$(K*17-16,K*17);"";
470NEXTK
480?#7
490NEXTROW
500GOTO160
510REM
520TRAPOFF:IFPEEK(195)=138THEN70
530?"ERROR#";PEEK(195);"ATLINE30.":STOP	

• Download link 1
• Download link 2