›;ACTION! BINARY LOADER, APRIL 1984›;WARREN K. SMALL 71076,407››;NOTE!!! REQUIRES ATARI DOS 2.0S››SET $E=$5000    ›SET $491=$5000›DEFINE DISPLAY_OFF="0",›       DISPLAY_ON="34",›       BOOT="1" ›BYTE KEY=764,›     COLDST=580,›     FILE_COUNT=[0],›     CHOICE,ROW,COL›CHAR ARRAY FILE_NAME(25),›           LOAD_NAME(15)›BYTE ARRAY FILES(120),›           LOGO=[›$00$00$00$00$00$00$00$00$00$00$00$00$00$03$F0$00$00$00$00$00$00$00$00$00$00$00›$00$00$00$00$00$00$00$00$00$00$00$00$00$0F$F0$00$00$00$00$00$00$00$00$00$00$00›$00$00$00$00$00$00$00$00$00$07$FF$FF$FF$FF$FF$C0$00$00$00$00$00$00$00$00$00$00›$00$00$00$00$00$00$00$00$00$0F$FF$FF$FF$FF$FF$FF$F0$00$00$00$00$00$00$07$D9$80›$00$00$00$00$00$00$00$00$F8$0F$FF$FF$FF$FF$FF$FF$FF$FE$00$00$00$00$00$03$1F$80›$00$00$00$00$00$00$00$0F$F8$00$00$00$0F$F8$01$FF$FF$FF$FC$00$00$00$00$03$19$80›$00$00$00$00$00$00$00$7F$F0$00$00$00$3F$C0$00$01$FF$FF$FF$F0$00$00$00$03$19$80›$00$00$00$00$00$00$07$FF$F0$00$00$00$FF$00$7E$00$00$FF$FF$F8$00$00$00$00$00$00›$00$00$00$00$00$00$7F$FF$E0$00$00$03$FC$01$FF$80$00$00$3F$F0$00$00$00$00$07$E0›$00$00$00$00$00$03$FF$FF$C0$7E$00$07$F8$00$FE$00$00$00$00$00$00$00$00$00$3F$E0›$00$00$00$00$00$0F$FF$FF$81$FF$80$1F$E0$00$00$01$F8$00$00$00$00$00$00$00$FF$C0›$00$00$00$00$00$3F$F8$FF$07$FF$80$7F$80$3E$00$1F$FC$03$FF$C0$00$00$00$03$FF$80›$00$00$00$00$00$FF$E1$FE$1F$FF$80$FF$00$FE$00$FF$FC$7F$FF$E0$00$00$00$1F$FF$00›$00$00$00$00$03$FF$87$FC$3F$1F$83$FC$01$FC$07$F0$FF$FF$FF$E7$F0$00$00$7F$FC$00›$00$00$00$00$0F$FE$0F$F0$FC$06$07$F8$03$F8$3F$C0$FF$FF$FF$FF$FC$00$03$FF$F0$00›$00$00$00$00$3F$F8$3F$E1$F8$00$1F$F0$0F$E0$FF$03$FF$C1$FF$FF$FE$00$0F$FF$80$00›$00$00$00$00$FF$FF$FF$C7$E0$00$3F$C0$3F$81$FC$0F$F8$07$FF$FF$FC$00$3F$FC$00$00›$00$00$0F$FF$FF$FF$FF$8F$C0$00$7F$80$7F$03$F8$3F$80$1F$FE$3F$F8$00$FF$E0$00$00›$00$00$1F$FF$FF$FF$FF$1F$00$00$FF$01$FE$0F$C0$FE$00$7F$F0$7F$F0$03$FF$00$00$00›$00$00$3F$FF$FF$FF$FE$3E$01$C1$FE$03$F8$1F$83$F8$01$FF$C1$FF$C0$1F$FC$00$00$00›$00$00$00$3F$F0$0F$F8$7C$07$C3$FC$0F$F0$3F$87$E0$03$FF$03$FF$00$FF$F0$00$00$00›$00$00$00$FF$C0$1F$F0$7C$3F$87$F8$1F$E0$7F$FF$80$0F$FC$0F$FE$01$FF$80$00$00$00›$00$00$03$FF$00$3F$E0$7F$FE$0F$F0$3F$80$FF$FC$00$3F$F0$3F$F8$0F$FE$00$00$00$00›$00$00$0F$FC$00$3F$C0$7F$F8$0F$80$3F$00$FF$F0$00$7F$C0$7F$E0$1F$F8$00$00$00$00›$00$00$3F$F0$00$3F$80$3F$E0$00$00$3E$00$FF$80$00$FF$00$FF$80$FF$C0$00$00$00$00›$00$00$FF$C0$00$1F$00$00$00$00$00$00$00$FC$00$00$7E$01$FE$00$FF$00$00$00$00$00›$00$03$FF$00$00$00$00$00$00$00$00$00$00$00$00$00$00$01$F0$00$F0$00$00$00$00$00›$00$0F$FE$00$00$00$00$00$00$00$00$00$00$00$00$00$00$00$00$1C$00$00$00$00$00$00›$00$1F$F8$00$00$00$00$00$00$00$00$00$00$00$00$00$00$00$00$7F$00$00$00$00$00$00›$00$3F$E0$00$00$00$00$01$FF$FF$FF$FF$FF$FF$C0$00$00$00$00$FF$00$00$00$00$00$00›$00$7F$80$00$00$00$03$FF$FF$FF$FF$FF$FF$FF$FF$F0$00$00$00$FE$00$00$00$00$00$00›$00$FF$00$00$00$0F$FF$FF$FF$FF$FF$FF$FF$FF$FF$FF$FC$00$00$1C$00$00$00$00$00$00›$00$FC$00$00$03$FF$FF$F0$00$00$00$00$0F$FF$FF$FF$FF$FF$00$00$00$00$00$00$00$00›$00$00$00$01$FF$FF$F0$00$00$00$00$00$00$00$00$0F$FF$FF$F0$00$00$00$00$00$00$00›$00$00$00$0F$FF$E0$00$00$00$00$00$00$00$00$00$00$00$FF$FC$00$00$00$00$00$00$00›$00$00$00$0F$F8$00$00$00$00$00$00$00$00$00$00$00$00$00$FF$00$00$00$00$00$00$00›]››;--------------------------››PROC PLOT_CHAR(BYTE CH) ;PLOT LETTERS ON GR.8 SCREEN›BYTE CHBASE=756›CARD OFFSET,INC,SCREEN=88›BYTE POINTER BIT_MAP,CHARSET,SCR›  CHARSET=CHBASE*256›  CH==&127  ;MASK INVERSE VIDEO›     IF CH>31 AND CH<96 THEN›       OFFSET=(CH-32)*8›     ELSEIF CH>=0 AND CH<32 THEN›       OFFSET=(CH+64)*8›     ELSE OFFSET=CH*8›    FI›  BIT_MAP=CHARSET+OFFSET››  FOR INC=0 TO 7›     DO  ›        SCR=SCREEN+COL+(ROW+INC)*40›        SCR^=BIT_MAP^       ›        BIT_MAP==+1›     OD›RETURN ;END PLOT_CHAR()› ›;------------------------------›   ›PROC CONVERT_NAME() ;INSERTS PERIOD BETWEEN FILENAME & EXTENSION›  BYTE INC=[14]›     WHILE INC>11›        DO›           LOAD_NAME(INC)=LOAD_NAME(INC-1)›           INC==-1›        OD›  LOAD_NAME(11)='.›  LOAD_NAME(0)=14›RETURN ;END CONVERT_NAME()››;------------------------------››PROC LOAD_FILE()›  LOAD_NAME(0)=2›  LOAD_NAME(1)='D LOAD_NAME(2)=':›  SASSIGN(LOAD_NAME,FILES+CHOICE*12,3,13)›  CONVERT_NAME()›  CLOSE(1)›  OPEN(1,LOAD_NAME,4,0)›  [$4C $15C8]  ;ATARI DOS 2.0S›               ;BINARY LOAD ROUTINE›RETURN ;END LOAD_FILE()››;------------------------------››PROC READ_DIRECTORY()›BYTE LOCK,NEXT›  ZERO(FILES,120)›  CLOSE(3)›  OPEN(3,"D:*.*",6,0)›     DO›        LOCK=GETD(3) NEXT=GETD(3)›        INPUTMD(3,FILE_NAME,18)      ›        FILE_NAME(0)=11›        IF LOCK='* THEN›           SCOPY(FILES+FILE_COUNT*12,FILE_NAME)›           FILE_COUNT==+1›           IF FILE_COUNT>9 THEN EXIT FI›        ›        ELSEIF FILE_NAME(1)>='0 AND›           FILE_NAME(1)<='9 THEN›               EXIT ›        FI  ››     OD      ›  CLOSE(3)›RETURN ;END READ_DIRECTORY()››;------------------------------››PROC DISPLAY_CHOICE()   ›BYTE POS›CHAR ARRAY LOAD="loading =>"›   COL=2 ROW=80+CHOICE*8›   FOR POS=1 TO LOAD(0)›       DO›           PLOT_CHAR(LOAD(POS))›           COL==+1›       OD›RETURN ;END DISPLAY_CHOICE()› ›;------------------------------› ›PROC DISPLAY_FILES()›BYTE FILENUM,POS›CHAR ARRAY TITLE="disk directory",›           PROMPT="select"›  ROW=64 COL=12›  FOR POS=1 TO TITLE(0)     ›       DO›           PLOT_CHAR(TITLE(POS))›           COL==+1›       OD››  ROW=80›  FOR FILENUM=0 TO FILE_COUNT-1›       DO›         COL=13›           PLOT_CHAR(FILENUM+48)›           COL==+2››           FOR POS=FILENUM*12+1 TO FILENUM*12+11›               DO›                  PLOT_CHAR(FILES(POS))›                  COL==+1›               OD›           ROW==+8›           IF ROW>152 THEN›               EXIT›           FI›        OD›  ›  COL=16 ROW=176›  FOR POS=1 TO PROMPT(0)›       DO›           PLOT_CHAR(PROMPT(POS))›           COL==+1›       OD›RETURN ;END DISPLAY_FILES()››;------------------------------››PROC SCROLL_COLORS()››       BYTE WSYNC=54282,›            VCOUNT=54283,›            COLR=53274,›            COUNTER,CHANGECOLR=[0],›            INCCOLR,›            CURSOR=752››  OPEN(3,"K:",4,0)›  KEY=255›  DO          ›     WHILE KEY=255›        DO›            FOR COUNTER=1 TO 10›               DO›                  INCCOLR=CHANGECOLR›                    DO›                      WSYNC=0›                      COLR=INCCOLR›                      INCCOLR==-1 ›                      UNTIL VCOUNT&128›                    OD›               OD›            CHANGECOLR==+1›       OD›    CHOICE=GETD(3)›    IF CHOICE>47 AND CHOICE<FILE_COUNT+48 THEN›       EXIT›    FI›  OD›  CLOSE(3)›  CHOICE==-48›RETURN ;END SCROLL_COLORS()››;------------------------------››PROC CHAR_SET()›BYTE CHBASE=756,BYT      ›BYTE ARRAY›      HAND=[$00$01$03$6F$6F$6F$6F$00›            $00$00$00$FF$F0$E0$C0$00],›         A=[$7C$FE$E6$E6$E6$FE$E6$E6],›       CDE=[$78$FC$E6$E0$E0$E6$FC$78›            $70$F8$EC$E6$E6$EC$F8$70›            $7C$FE$E0$F8$F8$E0$FE$7C],›         G=[$7C$FE$E0$E0$EE$E6$FE$7C],›         I=[$7C$FE$38$38$38$38$FE$7C],›        KL=[$E6$E6$EC$F8$F8$EC$E6$E6›            $60$E0$E0$E0$E0$E0$FE$FC],›        NO=[$66$F6$F6$FE$FE$EE$EE$E6›            $7C$FE$E6$E6$E6$E6$FE$7C],›       RST=[$7C$FE$E6$E6$FC$F8$EC$E6›            $7C$FE$E0$FC$7E$0E$FE$7C›            $7C$FE$38$38$38$38$38$38],›         Y=[$EE$EE$6C$6C$7C$38$38$38]››  MOVEBLOCK($7000,CHBASE*256,1024)›  CHBASE=$70›  MOVEBLOCK($70E8,HAND,16)     ;=>›  MOVEBLOCK($7308,A,8)         ;a›  MOVEBLOCK($7318,CDE,24)      ;cde›  MOVEBLOCK($7338,G,8)         ;g›  MOVEBLOCK($7348,I,8)         ;i›  MOVEBLOCK($7358,KL,16)       ;kl›  MOVEBLOCK($7370,NO,16)       ;no›  MOVEBLOCK($7390,RST,24)      ;rst›  MOVEBLOCK($73C8,Y,8)         ;y››RETURN ;END CHAR_SET()››;------------------------------››PROC PLOT_LOGO()›BYTE LINE,BYT›CARD START,NEXTLYN,SCREEN=88›BYTE POINTER SCR›› START=12*40+7   ;OFFSET TO START OF LOGO DATA› NEXTLYN=40      ;INC TO NEXT LINE› FOR LINE=0 TO 35›   DO›      FOR BYT=0 TO 25›         DO›             IF LOGO(LINE*26+BYT)<>0 THEN›                SCR=SCREEN+START+BYT›                SCR^=LOGO(LINE*26+BYT)&$55 ›             FI›         OD›          START==+NEXTLYN›   OD›RETURN ;END PLOT_LOGO()››;------------------------------››PROC MAIN()›BYTE DMA=559› DEVICE=0› POKEC($9B,$600)› COLDST=BOOT    ;COLDSTART ON RESET› GRAPHICS(24)› DMA=DISPLAY_OFF› CHAR_SET()› COLOR=1› SETCOLOR(1,1,0)› SETCOLOR(2,1,12)› SETCOLOR(4,8,5)›READ_DIRECTORY()›PLOT_LOGO()›DISPLAY_FILES()› DMA=DISPLAY_ON›DO›  SCROLL_COLORS()›  DISPLAY_CHOICE()›  LOAD_FILE()›OD›