Atari 8-bit Source code

10REMLOAD*ITBYKARLSTIEFVATER
20TRAP1190
30DIMA$(20),B$(6),C$(40),P$(16)
40GOSUB1210:GOSUB1010
50B$="LOAD":SETCOLOR4,7,0:SETCOLOR2,7,4:GOSUB580
60CLOSE#2:OPEN#2,4,0,C$
70GET#2,B1:GET#2,B2:CLOSE#3:CLOSE#2:CLOSE#1
80IFB1=255ANDB2=255THEN870
90IFB1=0ANDB2=0THEN940
100IFB1>47ANDB1<58THEN970
110RUN
120SETCOLOR2,9,4:SETCOLOR4,9,0:B$="RENAME":GOSUB580
130POSITION2,20:?"WhatshouldI":?"renameitas?";:INPUTA$
140FORT=LEN(C$)TO1STEP-1:IFC$(T,T)<>""THENPOP:GOTO160
150NEXTT
160C$(T+1)=",":C$(T+2)=A$
170POSITION2,20:?"Renaming!":CLOSE#3:XIO32,#3,0,0,C$:RUN
180B$="DELETE":SETCOLOR2,4,4:SETCOLOR4,4,0:GOSUB580
190POSITION2,20:?"Delete";C$:?"areyousure?";:GOSUB840
200Q=1^1:Q=1^1:IFNOTANTHENRUN
210POSITION2,20:?"";"Deleting";C$
220CLOSE#3:XIO33,#3,0,0,C$:RUN
230GRAPHICS0:SETCOLOR0,0,15:SETCOLOR2,14,4:SETCOLOR4,14,4:POKEDL+8,7:POKEDL+9,6:POSITION6,3:?"FORMAT!"
240SETCOLOR1,0,15:?"WARNING:Thiswillerasealldataonthisdisk!"
250?:?"Areyoupositive?";:GOSUB840
260Q=1^1:Q=1^1:IFNOTANTHENRUN
270CLOSE#3:XIO254,#3,0,0,"D:*.*"
280RUN
290SETCOLOR2,8,4:SETCOLOR4,8,4:?"create"
300?:?"InsertthenewLoad*Itdiskand":?"press":GET#1,Y
310?:?"Formatthisdisk?";:GOSUB840:IFANTHENCLOSE#3:XIO254,#3,0,0,"D:*.*"
320?:?"Analyzingdisk...":CLOSE#3:OPEN#3,6,0,"D:*.SYS"
330INPUT#3,C$:IFC$(2,2)<>""THEN360
340IFC$(3,5)="DOS"THENDS=1
350GOTO330
360IFNOTDSTHEN?"WriteDOStothisdisk?";:GOSUB840:IFNOTANTHENDS=1
370SEC=VAL(C$(1,3)):IFSEC>94-DS*39THEN420
380?"Sorry,Load*Itneeds";94-DS*32;"sectors"
390IFNOTDSTHEN?"withDOS";
400?"Thisdiskonlyhas";SEC;"sectors":FORT=1TO900:NEXTT:RUN
410END
420TRAP460
430CLOSE#3:OPEN#3,4,0,"D:AUTORUN.SYS"
440?:?"ThisdiskalreadyhasanAUTORUN.SYSonit.ShouldIwriteoverit?";:GOSUB840:IFANTHEN460
450FORT=1TO500:NEXTT:RUN
460TRAP490:CLOSE#3:OPEN#3,4,0,"D:LOADIT.BAS"
470?:?"ThisdiskalreadyhasaLOADIT.BASonit.ShouldIuseitanyway?";:GOSUB840:IFANTHEN490
480FORT=1TO500:NEXTT:RUN
490TRAP1190:?:?"Beginningthewrite..."
500IFNOTDSTHEN?"WritingDOS.SYS":CLOSE#3:OPEN#3,8,0,"D:DOS.SYS":CLOSE#3
510?"WritingtheAUTORUN.SYS":CLOSE#3:OPEN#3,8,0,"D:AUTORUN.SYS":RESTORE550
520READA:IFA=-1THEN540
530PUT#3,A:GOTO520
540?"Writingmainprogram...":CLOSE#3:SAVE"D:LOADIT.BAS":RUN
550DATA255,255,0,6,81,6,216,24,173,48,2,105,4,133,204,173,49,2,105,0,133,205,24,160,0,177,204,105,162,133,212
560DATA160,1,177,204,105,0,133,213,160,32,185,49,6,145,212,136,208,248,169,13,141,74,3,96,0,48,47,43,37,0,24
570DATA20,18,12,17,18,26,50,53,46,0,2,36,17,26,44,47,33,36,41,52,14,34,33,51,2,0,226,2,227,2,0,6,-1
580MY=0:L=0:TRAP1190:?"";:?"";B$:POSITION2,2
590CLOSE#1:OPEN#1,6,0,"D:*.*"
600INPUT#1,A$:IFA$(4,5)="F"THEN630
610MY=MY+1:?A$;"";:INPUT#1,A$:IFA$(4,5)="F"THEN630
620?A$:GOTO600
630POSITION10,20:?A$:POSITION0,21:?"=";B$;"=NEWDISK=ABORT=LCK/UNLCK":POSITION0,2:?"->"
640Y=2:X=0:XX=X:YY=Y:CLOSE#1:OPEN#1,4,0,"K"
650GET#1,C:Y=Y+(C=61)-(C=45)
660IFY<2THENY=MY+1:X=1-X
670IFY>MY+1THENY=2:X=1-X
680IFY<>YYORX<>XXTHENPOSITIONX*20,Y:?"->":POSITIONXX*20,YY:?"";:YY=Y:XX=X
690IFC=78THENGOTO580
700IFC=65THENRUN
710IFC=42THEN740
720IFC=43THENL=1:GOTO740
730GOTO650
740FORB=X*20+1TOX*20+15
750LOCATEB,Y,Z:A$(B-X*20)=CHR$(Z):NEXTB
760C$="D:":C$(3)=A$(4,11)
770FORB=10TO4STEP-1:IFC$(B,B)<>""THENPOP:GOTO790
780NEXTB
790C$(B+1)=".":C$(B+2)=A$(12)
800IFC$(3,3)=""ANDC$(5,5)=""THEN650
810IFNOTLTHENRETURN
820TRAP830:CLOSE#3:OPEN#3,12,0,C$:CLOSE#3:XIO35,#3,0,0,C$:GOTO580
830CLOSE#3:XIO36,#3,0,0,C$:GOTO580
840CLOSE#1:OPEN#1,4,0,"K":GET#1,Y:IFY=78THEN?"No!":AN=0:RETURN
850IFY=89THEN?"Yes!":AN=1:RETURN
860GOTO840
870GRAPHICS0:SETCOLOR2,7,2:SETCOLOR0,0,15:SETCOLOR4,7,2:POKEDL+9,7:POKEDL+11,6:POSITION0,4
880?"BINARYLOADING":POSITION31-LEN(C$)/2,5:?C$;
890?:?:?"TurnoffBASIC?(XL/XEonly!)";:GOSUB840
900CLOSE#1:OPEN#1,4,0,C$
910IFANTHEN930
920X=USR(5576):RUN
930X=USR(ADR(P$)):RUN
940GRAPHICS0:SETCOLOR2,7,2:SETCOLOR0,0,15:SETCOLOR4,7,2:POKEDL+9,7:POKEDL+11,6:POSITION6,4:?"LOADING"
950POSITION31-LEN(C$)/2,5:?C$;
960RUNC$
970GRAPHICS0:SETCOLOR2,7,2:SETCOLOR0,0,15:SETCOLOR4,7,2:POKEDL+9,7:POKEDL+11,6:POSITION6,4:?"ENTERING"
980SETCOLOR1,0,2:POSITION31-LEN(C$)/2,5:?C$;
990POSITION2,8:?"NEW":?:?:?:?"ENTER";CHR$(34);C$:?:?:?:?"GR.0:POKE842,12:RUN"
1000POSITION2,6:POKE842,13:STOP
1010GRAPHICS0:POKE752,1:DL=PEEK(560)+PEEK(561)*256
1020SETCOLOR2,0,0:SETCOLOR4,0,0:SETCOLOR1,0,15:SETCOLOR0,0,15
1030POKEDL+3,64+7:POKEDL+6,6:POKEDL+26,48
1040POSITION6,0:?"loadit"
1050?"ByKarlStiefvater":?:?:?:?
1060?""
1070?"|Load!|"
1080?"|Rename!|"
1090?"|Delete!|"
1100?"|Format!|"
1110?"|Createa|"
1120?"|Load*It|"
1130?"|Disk!|"
1140?""
1150?:?:?"Chooseone:"
1160CLOSE#1:OPEN#1,4,0,"K":GET#1,Y
1170IFY<49ORY>53THEN1160
1180ONY-48GOTO50,120,180,230,290
1190GRAPHICS0:?"Systemerror";PEEK(195)
1200END
1210RESTORE1220:FORX=1TO16:READA:P$(X)=CHR$(A):NEXTX:RETURN
1220DATA104,169,255,141,1,211,24,165,106,105,32,133,106,76,200,21	

• Download link 1

• Download link 1