Atari 8-bit Source code

30000CONSOL=53279:NAME=30160:LINE=30170:KEY=764:V=3:H=0:R=0:K=0
30005GRAPHICS0:POKE709,10:POKE710,0:POKE712,40:POKE82,2:POKE752,1:POKE65,0:POKEKEY,255
30010DIMFA$(17),FB$(28),A$(16),C$(39):FORI=1TO39:C$(I,I)="":NEXTI
30015FB$="D1:":?"":POSITION13,0:?"":?:?
30020OPEN#1,6,0,"D1:*.*"
30025TRAP30060:IFR=40THEN30070
30030INPUT#1,FA$:IFFA$(5,8)="FREE"THENPOSITION12,1:?FA$;:POSITIONH,V:GOTO30060
30035?FA$(1,1);:FORI=3TO10:IFFA$(I,I)<>""THEN?FA$(I,I);:NEXTI
30040IFFA$(11,11)<>""THEN?".";:?FA$(11,13);:FORI=ITO(LEN(FA$)-6):?"";:NEXTI:?FA$(15,17):GOTO30050
30045FORI=ITOLEN(FA$)-2:?"";:NEXTI:?FA$(15,17)
30050R=R+1:IFR>19THENPOKE85,22:POKE84,R-17
30055GOTO30025
30060K=1:CLOSE#1:GOTO30070
30070TRAP30180:POKE752,0:POSITION1,23:?"";
30075FORLOOP=0TO0STEP0:IFV>22ANDH=0THENH=20:V=3
30080IFR>19THENIFV>=R-17ANDH=20THENV=3:H=0
30085IFR<=19THENIFV>=R+3THENV=3:H=0
30090POSITIONH,V:?"";:IFPEEK(CONSOL)=5THENV=V+1:FORI=1TO50:NEXTI
30095IFPEEK(CONSOL)=6THENGOSUBNAME:GOTO30135
30100IFPEEK(CONSOL)=3ANDR=40THENFORI=2TO22:POSITION0,I:?C$:NEXTI:R=0:POSITION2,3:GOTO30025
30105IFPEEK(CONSOL)=3ANDK=1THENRUN
30110IFPEEK(KEY)=186THENGOSUBNAME:A$="":P=8:GOSUBLINE:XIO33,#1,0,0,FB$:RUN
30115IFPEEK(KEY)=128THENGOSUBNAME:A$="":P=8:GOSUBLINE:XIO35,#1,0,0,FB$:RUN
30120IFPEEK(KEY)=139THENGOSUBNAME:A$="":P=8:GOSUBLINE:XIO36,#1,0,0,FB$:RUN
30125IFPEEK(KEY)=168THENGOSUBNAME:A$="":P=0:GOSUBLINE:GOSUB30175:XIO32,#1,0,0,FB$:RUN
30130NEXTLOOP
30135IFFB$(4,6)="DOS"ORFB$(4,6)="DUP"THENDOS
30140IFFB$(4,4)=""THENRUN
30145FORI=4TOLEN(FB$):FB$(I,I)=CHR$(ASC(FB$(I,I))+128):NEXTI
30150POSITION0,23:?"";FB$(4,LEN(FB$));:FORI=LEN(FB$)TO15:?"";:NEXTI:?"";:POSITIONH,V
30155FORI=4TOLEN(FB$):FB$(I,I)=CHR$(ASC(FB$(I,I))-128):NEXTI:RUNFB$
30160FORH=H+3TOH+14:LOCATEH,V,X:IFX<>32THENFB$(LEN(FB$)+1)=CHR$(X):NEXTH
30165POSITIONH,V:PUT#6,X:RETURN
30170POKE752,1:POSITION0,23:?C$;:POSITIONP,23:?A$;FB$(4,LEN(FB$));:POKEKEY,255:FORI=1TO500:NEXTI:RETURN
30175?"";:INPUTA$:?"":FB$(LEN(FB$)+1)=",":FB$(LEN(FB$)+1)=A$:RETURN
30180POKE752,1:?"":POSITION17,10:?"":POSITION5,12:?"UNABLETOFOLLOWINSTRUCTIONS..."
30185POSITION2,14:?"PLEASECHECKDRIVEAND/ORFILESPECSTHENPRESSFORMENU."
30190IFPEEK(CONSOL)<>3THEN30190
30195RUN	

• Download link 1

• Download link 1