;ÔïÂïâ®ÃÍÄ  Ôèéó ÃÍÄ ÷éìì ôáëå á›;æòåóèìù  ãïíðéìåä ÃÍÄ ôèáô ÷áó ›;÷òéôôåî éî ÁÃÔÉÏΡ áîä ôáëå    ›;éô§ó ÒÕΠÁääòåóó ¨ìáóô ² âùôåó©›;áîä éîóåòô ôèåí éîôï ôèå ²îä ¦ ›;³òä ðïóéôéïîó ïæ ôèå Èåáäåò    ›;áòòáù âåìï÷¬ áìïîç ÷éôè áî     ›;Áâóïìõôå ÊÕÍРéîóôòõãôéïî ¨¤´Ã©›;             ÷ï÷               ››Set $B5 = $53E3; This is dependent›               ; on your sytem's›               ; Low mem.  ››Byte array Header = [ 0 0 0 $10 12 08 91]››Include "D:RUNTIME.ACT"›››Module›››       CARD RESULT›       BYTE x›       BYTE cError›       BYTE Array CHESS = " ¼ÔïÂïâ®ÃÍľ   ¨ã©±¹¹± Àéòãõìáò Ìïçéã "›       BYTE Array Buffy(4010)››INCLUDE "D:EQUATES.BBS"; & ROUTINES.BBS›MODULE››PROC MY_ERROR (byte eCD)›      cERROR = eCD›      MIOSUSPEND()›      CLOSE(2)›      MIORESUME()›      cR_LF()›      ECHOS("CODE: ")›      ECHOBE(eCD)›RETURN››››PROC COPYRIGHT()››       For Result = 1 to 11›        DO›         Cr_Lf()›        OD››       EchosE(Chess)›       CR_Lf()›       echose("          __F_R_E_E__W_A_R_E__")››       For Result = 1 to 7›        DO›         Cr_Lf()›        OD›RETURN›››PROC BadCompile()›      CARD c›››    Close(2)›    MIOresume()›    Cr_Lf()›    echose("Not compiled for the $7000 Window!")›    Cr_Lf()››RETURN›››PROC INFO()››    Cr_Lf()›    Cr_Lf()›    echose("ToBob.CMD FREEWARE from @ircular Logic")›    Cr_Lf()›    echose("Õóáçåº Set DOSSHELL to correct Path")›    echose(" Ôèåîº TOBOB filename.CMD")›    Cr_Lf()››RETURN›››PROC Do_It()›     Byte x, JMP1, JMP2, JMP0, CL›››     IF (PARM1(0) < 1) OR›        (PARM1(0) > 15) THEN›        INFO()›        RETURN›     FI››     CL = 0››     echose("Extracting RUN Address (last 2 bytes)")››     File_Stat(Parm1)››     Cerror=0›     MIOsuspend()›     Close(2)›     Open(2,Parm1,4,0)›     If Cerror #0 Then›        RETURN›     FI››     x=0›     DO›      Result = BlockRead(2,Buffy,4000)›      If x = 0 then›         If Buffy(2) # 0 Then›            BadCompile()›            RETURN›         FI›         If Buffy(3) # $70 Then›            BadCompile()›            RETURN›         Fi›         If Buffy(13) = 0 Then›            If Buffy(14)= '@ Then›               CL='Y›            FI›         FI›      fi›      x==+1›     until Result < 4000›     OD›››     If Result < 2 Then›      Close(2)›      Open(2,Parm1,4,0)›      DO›       Result = BlockRead(2,Buffy,3990)›      until Result < 3990›      OD›     FI››     Close(2)›     Open(2,Parm1,12,0)››     JMP0= $4C ; Jump Absolute›     JMP1= Buffy(result-2) ; 1/2 Run Address›     JMP2= Buffy(result-1) ; 1/2 Run Address››     Point(2,6,0)›       PutD(2,JMP0)›     Point(2,7,0)›       PutD(2,JMP1)›     Point(2,8,0)›       PutD(2,JMP2)››     Close(2)›     MIOresume()›     echose("Ready to roll!")›     If CL='Y then›        echose("This CMD is DatDrive Compatible")›     FI›     ›RETURN››››PROC Main()›››      ERROR= MY_ERROR›››      If invoker = $D0 THEN›       File_Stat(Chess)›       Do_It()›       If Rand(5)=0 then›          CopyRight()›       FI›      Fi››RETURN››