Atari 8-bit Source code

3Q1=1:Q2=0:Q4=2:Q5=5:Q6=6:Q7=3:Q8=8:Q9=9:Q10=10:Q11=11:Q12=12:Q13=13:Q14=14:Q16=40000:Q17=4:Q18=7:Q20=20:Q25=25:Q30=30:Q36=36
4Q40=40:Q50=50:Q60=60:Q87=87:Q130=130:Q560=560:Q561=561:Q752=752:Q755=755:Z=Q1:GOSUB10000
5POKEQ752,Z:GOSUBQ8:GOTOQ10
8FORJW=15TOQ2STEP-0.5:FORJ=Q4TOQ2STEP-Z:SOUNDQ2,N+Q13-J,Q10,JW:NEXTJ:NEXTJW:RETURN
10DIMBL$(Q25),X$(Q40),L$(Q20),A$(Q40),P$(400),N$(Q4):OPEN#Z,Q6,Q2,"D:*.*"
12POKEQ87,Q2:POSITIONQ4,Q4:?""
13BL$="":GOTOQ30
20IFA$(Q5,Q8)="FREE"THENGOTOQ87
21N=N+Z:X$=A$(Q7,Q10):X$(Q9,Q9)=".":X$(Q10,Q12)=A$(Q11,Q13):L$="|":L$(LEN(L$)+Z)=X$:P$(LEN(P$)+Z)=X$
24L$(Q14,Q14)="(":FORI=ZTOLEN(L$):IFL$(I,I)=""THENL$(I,I)="."
25NEXTI:N$=STR$(N):IFN<Q10THENN$(Q4,Q4)=N$(Z,Z):N$(Z,Z)="0"
28RETURN
30TRAP90:INPUT#Z,A$:TRAPQ16:IFA$(Q7,Q5)="DUP"ORA$(Q7,Q5)="MEM"ORA$(Q7,Q5)="AUT"THENGOTOQ30
40IFA$(Q11,Q13)="DAT"THENGOTOQ30
50GOSUBQ20:?#Q6;L$;N$;")";
60TRAPQ87:INPUT#Z,A$:TRAPQ16:IFA$(Q7,Q5)="DUP"ORA$(Q7,Q5)="MEM"ORA$(Q7,Q5)="AUT"THENGOTOQ60
70IFA$(Q11,Q13)="DAT"THENGOTOQ60
80GOSUBQ20:?#Q6;L$(Q4,Q14);N$;")|":GOTOQ30
87POSITIONQ36,(N/Q4)+Q7:PRINT#Q6;"|":POSITIONQ4,(N/Q4)+Q7:?#Q6;"|":POSITIONQ36,(N/Q4)+Q4:?#Q6;"|"
90?#Q6;"||":?#Q6;"|";A$;"|"
92?#Q6;"":POKEQ752,Q1:?#Q6:?#Q6;"NOTE:DATAFILESNOTLISTED."
130POSITIONQ8,Q20:?#Q6;BL$:POSITIONQ13,Q20:?#Q6;"";
132FORJW=ZTOQ7:POKEQ755,Q7:FORJY=ZTOQ50:NEXTJY:POKEQ755,Q4:FORJY=ZTOQ50:NEXTJY:NEXTJW
133TRAPQ130:INPUTX:TRAPQ16:IFX<>INT(X)THENGOTOQ130
135IFX=ZTHENX$=P$(Z,Q12):GOTO145
140TRAPQ130:X$=P$((X-Z)*Q12+Z,(X-Z)*Q12+Q12):TRAPQ16:IFX$(Q11,Q11)=""THENX$=X$(Z,Q8)
145IFX$(Z,Q7)="DOS"THENDOS
146A$="":FORI=ZTOLEN(X$):IFX$(I,I)=""THEN148
147A$(LEN(A$)+Z)=X$(I,I)
148NEXTI:X$=A$
149POSITIONQ10,Q20:?BL$
150A$="D1:":A$(LEN(A$)+Z)=X$:POSITIONZ,Q20:?#Q6;"LOADING";X$:TRAP200:RUNA$
200POSITIONZ,Q20:?#Q6;"CANNOTRUN";X$:TRAPQ16
210FORJW=150TO250:SOUNDQ2,JW,Q10,JW/Q50:NEXTJW:GOSUBQ8:GOTOQ130
10000GRAPHICSQ2:BEGIN=PEEK(Q560)+PEEK(Q561)*256+Q17:POKEBEGIN-Q1,71:POKEBEGIN+Q4,Q18
10050POKEBEGIN+24,65:POKEBEGIN+Q25,PEEK(Q560):POKEBEGIN+26,PEEK(Q561)
10060SETCOLORQ4,Q18,Q4:SETCOLORQ17,Q18,Q4:SETCOLORQ1,Q2,Q10:SETCOLORQ2,Q18,Q14
10080POKEQ87,Q4:?#Q6;"":?#Q6;"PUBLICDOMAIN"
10090?#Q6;"":RETURN	

• Download link 1

• Download link 1