Atari 8-bit Source code

0GRAPHICS2+16:SETCOLOR0,253,170
1?#6;"":?#6;"MENUMAKER":?#6;"":?#6;"FOR":?#6;"":?#6;"BINARYLOADFILES"
6FORI=1TO1000:NEXTI
10REM8/12/82
20?""
90DIMM$(757),DESC$(17),FN$(12),TITLE$(36),T$(36):M$(1)="":M$(757)="":M$(2)=M$
100M$(1,90)="@B@`DAET@A@BuDAEHAT]DBE"
101M$(91,180)="@>AA@A0:/eipiB"
102M$(181,270)=":D)@L`@B0HV`HpBVpBBDAEJhKVp`"
103M$(271,360)="H9eh8`hhh`iS:SK"
105GRAPHICS0:?:?:?"INPUTAFOURCHARACTERDISKID#":INPUTTITLE$:X=LEN(TITLE$):IFX<>4THEN105
106M$(397,400)=TITLE$
107FORX=1TO36:T$(X,X)="":TITLE$(X,X)="":NEXTX
110GRAPHICS0:?:?"SELECT":?:?:?"1.ADVENTURES":?"2.UTILITIES":?"3.ARCADEGAMES"
111?"4.WORDPROCESSORS":?"5.Iwouldrathermakemyowntitle."
120TRAP120:INPUTANSWER:IFANSWER<1ORANSWER>5THEN120
125ONANSWERGOTO130,140,150,160,170
130M$(361,396)="ADVENTURESMENUFORDISK#":GOTO195
140M$(361,396)="UTILITIESMENUFORDISK#":GOTO195
150M$(361,396)="ARCADEGAMESMENUFORDISK#":GOTO195
160M$(361,396)="WORDPROCESSORSMENUFORDISK#":GOTO195
170GRAPHICS0:POSITION9,2:?"TITLE":POSITION3,3:?"1234567890123456"
171TRAP171:INPUTTITLE$:X=LEN(TITLE$):IFX>16THEN171
172X=LEN(TITLE$):Y=(20-X)/2:Y=INT(Y):T$(Y,Y+X)=TITLE$
175FORA=1TOY-1:T$(A,A)="":NEXTA:T$(20,36)="MENUFORDISK#"
180M$(361,396)=T$:GOTO195
195M$(612,629)="SELECTNUMBER?"
197M$(751,757)="@"
198M$(331,331)=CHR$(155):M$(379,379)=CHR$(155):M$(630,630)=CHR$(155)
199FORI=380TO611STEP21:M$(I,I)=CHR$(155):NEXTI
200GRAPHICS0:POKE752,1:POSITION7,1:?"PROGRAM":POSITION7,3:?"DESCRIPTION";:POSITION26,3:?"FILENAME"
210POSITION6,6:?"12345678901234567123456789012"
220FORI=1TO9:POSITION2,I+7:?I;".":NEXTI
230POSITION2,17:?"0.":POSITION7,20:?"Enter'*'toend."
290POKE752,0
300FORP=1TO9:POSITION5,7+P:INPUTDESC$:IFDESC$="*"THEN600
310SP=21*P+381:M$(SP,SP)=STR$(P):M$(SP+1,SP+1)=".":M$(SP+3,SP+19)=DESC$
400POSITION25,7+P:INPUTFN$:M$(631+P*12,631+P*12+11)=FN$
490NEXTP
500POSITION5,17:INPUTDESC$:IFDESC$="*"THEN600
510M$(591,592)="0.":M$(594,610)=DESC$
550POSITION25,17:INPUTFN$:M$(631,642)=FN$
600POSITION4,22:?""
610CLOSE#1:OPEN#1,8,0,"D:AUTORUN.SYS"
620?#1;M$
630CLOSE#1
690?""
700?"HITRETURNTORUNAGAIN":INPUTT$:RUN	

• Download link 1

• Download link 1