Atari 8-bit Source code

0REM
3DIMCIO$(7):CIO$="hV`":REMPLA/LDX#$10/JSRCIO/RTS
5DIMFILE$(17),BUF$(24000),OLD$(15)
10DIMARRAY$(528),HELP$(17),NAME$(20):FF=1
11DIMDISK$(3)
15POKE82,2:POKE83,39
20GRAPHICS17:POSITION5,1:PRINT#6;""
22?#6:?#6;"":?#6;"":?#6;""
25?#6:?#6;"ISDISKYOU":?#6;"WANTBACKEDUP":?#6;"INDRIVEONE?"
30?#6:?#6;"iscassetteunit":?#6;"settorecord"
35?#6:?#6;"":?#6:?#6;""
40IFPEEK(764)<>12THEN40
45GRAPHICS0
50DISK$="D1:"
60NAME$=DISK$
70NAME$(LEN(NAME$)+1)="*.*"
80K=1
119OPEN#2,6,0,"D1:*.*"
121FILE$=""
123FORX=1TOK
125INPUT#2,FILE$
135IFFILE$(11,13)="SYS"THENGOTO121
136IFFILE$(3,6)="MENU"THEN121
210NEXTX:CLOSE#2:K=K+1
220NAME$(1,8)=FILE$(3,10)
230NAME$(10,12)=FILE$(11,13)
320GOSUB1000
400ARRAY$(LEN(ARRAY$)+1)=NAME$
410GOTO119
500END
1000REM
1120BUF$=""
1121FORI=1TO480:BUF$(LEN(BUF$)+1)="":NEXTI
1125BUFLEN=24000
1200REMSTARTUPCOPY
1310INDEX=1
1415HELP$="D1:":HELP$(LEN(HELP$)+1)=FILE$(3,13)
1418IFHELP$(13,13)<>""THENHELP$(13,15)=FILE$(11,13):HELP$(12,12)="."
1419FILE$="":FORLL=1TOLEN(HELP$):IFHELP$(LL,LL)<>""THENFILE$(LEN(FILE$)+1)=HELP$(LL,LL)
1420NEXTLL
1421AUX2=0:IFFILE$="C:"THENAUX2=128:REMSHORTRECORDGAP
1422TRAP40000:TRAP1424:GOTO1430
1424?"":END
1430OPEN#1,4,AUX2,FILE$
1450?"NOWREADING";FILE$(4,LEN(FILE$))
1500REMCOPYFILETOMEMORY
1510GOSUB11000:REMREADCHARACTERSINTOBUF$
1520IFISTAT=136THEN1600
1530IFINDEX>BUFLEN+1THEN?"READERROR":STOP
1540IFISTAT<=1THEN1700
1550?"ERROR-";ISTAT
1560STOP
1600REMEND-OF-FILE
1620CLOSE#1
1900PRINT"COPYINGFILE";FILE$(3,LEN(FILE$));"TOCASSETTE"
2000FILE$="C:"
2005AUX2=0:IFFILE$="C:"THENAUX2=128:REMSHORTRECORDGAPS
2010TRAP40000
2020TRAP2070
2030LPRINT
2070POKE764,12
2080OPEN#1,8,AUX2,FILE$
2200REMCOPYFILES
2210OUTIND=1
2220GOSUB12000:REMWRITEOUTFILE
2260CLOSE#1
5000REMDONE
5010?"Copycomplete."
5020RETURN
11000REMREADINTOBUF$
11010POKE850,7:REMREADCHARACTERS
11020I=ADR(BUF$(INDEX))
11030POKE852,I-256*INT(I/256):POKE853,INT(I/256)
11040I=BUFLEN+1-INDEX
11050POKE856,I-256*INT(I/256):POKE857,INT(I/256)
11060I=USR(ADR(CIO$))
11070I=PEEK(856)+256*PEEK(857)
11075ISTAT=PEEK(851):IFISTAT>1ANDISTAT<>136THENRETURN
11080LENG=I
11090INDEX=INDEX+I
11110RETURN
12000REMWRITEFROMBUF$
12010POKE850,11:REMWRITECHARACTERS
12020I=ADR(BUF$(OUTIND))
12030POKE852,I-256*INT(I/256):POKE853,INT(I/256)
12040I=LENG
12050POKE856,I-256*INT(I/256):POKE857,INT(I/256)
12060I=USR(ADR(CIO$))
12070IFPEEK(851)>1THEN?"WRITEERROR:";ISTAT:STOP
12090RETURN	

• Download link 1

• Download link 1