Atari 8-bit Source code

1REM>JAXATARICOMPUTERENTHUSIASTS
2REM
3POKE82,2:POKE83,39
4Z=1:GOSUB10000:REMD1:MENUMODIFIEDBYJERRYWHITEANDRUSSELLGROKETT
5POKE752,Z:GOTO10
8FORJW=15TO0STEP-0.8:FORJ=2TO0STEP-0.2:SOUND0,N+13-J,10,JW:NEXTJ:NEXTJW:RETURN
10DIMBL$(25),X$(40),L$(20),A$(40),P$(400),N$(2):OPEN#Z,6,0,"D:*.*"
12POKE87,0:POSITION15,2:?"Presents":GOSUB8
16POSITION2,4:?""
18BL$="":GOTO30
20IFA$(5,8)="FREE"THEN87
21N=N+Z:X$=A$(3,10):X$(9,9)=".":X$(10,12)=A$(11,13)
22L$="|":L$(LEN(L$)+Z)=X$:P$(LEN(P$)+Z)=X$
24L$(14,14)="(":FORI=Z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$(Z,Z):N$(Z,Z)="0"
28RETURN
30TRAP90:INPUT#Z,A$:TRAP40000
32REMIFA$(3,5)="MEN"ORA$(3,5)="VAR"THEN30
40IFA$(11,13)="SYS"THEN30
50GOSUB20:?#6;L$;N$;")";
60TRAP87:INPUT#Z,A$:TRAP40000
62REMIFA$(3,5)="MEN"ORA$(3,5)="VAR"THEN60
70IFA$(11,13)="SYS"THEN60
80GOSUB20:?#6;L$(2,14);N$;")|":GOTO30
87POSITION36,(N/2)+5:PRINT#6;"|"
88POSITION2,(N/2)+5:?#6;"|"
89POSITION36,(N/2)+4:?#6;"|"
90?#6;"||"
91REM?#6;"|";A$;"|"
92?#6;"":POKE752,1
100?#6:?#6:?#6;"************"
102?#6;"**"
104?#6;"************"
130POSITION8,20:?#6;BL$
131FORJW=1TO12:POSITION14,20:?#6;"SLCIN":FORJY=ZTO10:NEXTJY
132POSITION14,20:?#6;"EETO":FORJY=ZTO10:NEXTJY:NEXTJW
133POSITION14,20:?#6;"";:TRAP130:INPUTX:TRAP40000
134IFX<>INT(X)THEN130
135IFX=ZTHENX$=P$(Z,12):GOTO145
140TRAP130:X$=P$((X-Z)*12+Z,(X-Z)*12+12):TRAP40000
141IFX$(11,11)=""THENX$=X$(Z,8):GOTO145
142IFX$(10,12)="OBJ"ORX$(10,12)="AUT"ORX$(10,12)="DOC"THENGRAPHICS0:?"---REMOVEBASICCARTRIDGE---":END
145IFX$(Z,3)="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$
150A$="D1:":A$(LEN(A$)+Z)=X$
155POSITIONZ,20:?#6;"LOADING";X$
160TRAP200:RUNA$:TRAP40000
200POSITIONZ,20:?#6;"CANNOTRUN";X$:TRAP40000
210FORJW=150TO250:SOUND0,JW,10,JW/50:NEXTJW:GOSUB8:GOTO130
10000GRAPHICS0
10010BEGIN=PEEK(560)+PEEK(561)*256+4
10020POKEBEGIN-1,71
10030POKEBEGIN+2,7
10050POKEBEGIN+24,65:POKEBEGIN+25,PEEK(560):POKEBEGIN+26,PEEK(561)
10060SETCOLOR1,1,10:SETCOLOR2,7,4:SETCOLOR4,7,4
10070SETCOLOR3,3,8
10080POKE87,2:?#6;"":RETURN	

• Download link 1

• Download link 1