Atari 8-bit Source code

0GRAPHICS0:POKE764,255
1SETCOLOR2,14,4:SETCOLOR1,0,14:SETCOLOR4,14,4:POKE82,2:POKE83,37:?"":POKE752,1
2?""
3?"|ATARIPUBLICDOMAINLIBRARY|"
4?""
5?""
6GOTO9
8FORI=1TO1000:NEXTI:RETURN
9DIMX$(40),L$(20),A$(40),P$(400),N$(2),B0$(40)
10REM"D1:MENU"
11OPEN#1,6,0,"D:*.*"
12B0$="":GOTO30
20N=N+1:X$=A$(3,10):X$(9,9)=".":X$(10,12)=A$(11,13)
22L$="|":L$(LEN(L$)+1)=X$:P$(LEN(P$)+1)=X$
24L$(14,14)="(":FORI=1TOLEN(L$):IFL$(I,I)=""THENL$(I,I)="."
25NEXTI:N$=STR$(N):IFN<10THENN$(2,2)=N$(1,1):N$(1,1)="0"
27RETURN
30INPUT#1,A$
40IFA$(5,8)="FREE"THEN90
45GOSUB20
50?L$;N$;")";
60INPUT#1,A$
70IFA$(5,8)="FREE"THEN87
75GOSUB20
80?L$(2,14);N$;")|"
85GOTO30
87POSITION36,(N/2)+4:PRINT"|"
90?"||"
91?"|";A$;"|"
92?""
120POKE752,0
130POKE83,39:POSITION1,22:?"SELECTION";:TRAP130:INPUTX:TRAP40000
131IFX<>INT(X)THEN130
135IFX=1THENX$=P$(1,12):GOTO145
140X$=P$((X-1)*12+1,(X-1)*12+12):TRAP40000
141IFX$(10,10)=""THENX$=X$(1,8)
145IFX$(1,3)="DOS"THENDOS
146A$="":FORI=1TOLEN(X$):IFX$(I,I)=""THEN148
147A$(LEN(A$)+1)=X$(I,I)
148NEXTI:X$=A$
150A$="D1:":A$(LEN(A$)+1)=X$
155POKE752,3:POSITION1,22:PRINT"LOADING";X$
160TRAP200:POKE83,39:POKE82,2:RUNA$:TRAP40000
200POSITION1,22:PRINT"CANNOTRUN";X$:GOSUB8:TRAP40000:GOTO130	

• Download link 1

• Download link 1