*DIR :0
*CDIR   !Artisan
*BASIC
LOAD"Art5"
   85HIMEM=PAGE+(150*1024):REM BBB
20140IFRES%=1 MODE12:OSCLI"FX4":OSCLI"FX200":QUIT:REM BBB
20150MODE12:OSCLI"FX4":P%=LOMEM:[:OPT 2:MOV R0,#&C8:MOV R1,#&03:MOV R2,#&00:SWI "XOS_Byte":MOV R0,#&03800000:LDR R1,[R0]:STR R1,[R1,-R1]:SWI "XOS_EnterOS":TEQP PC,#&FC000003:MOV PC,#0:]:CALLLOMEM

SAVE"Art5"
LOAD"Art4"
RENUMBER
 105 END=(HIMEM-(32*1024)):REM BBB
 2950 REM BBB
 2960 W%=PAGE+(150*1024):!W%=&6880:REM BBB

SAVE"Art4"
*RENAME !Run          !Artisan.!Run
*RENAME !Palette      !Artisan.!palette
*RENAME Art4          !Artisan.Art4
*RENAME Art5          !Artisan.Art5
*RENAME Art6          !Artisan.Art6
*RENAME Articons      !Artisan.Articons
*RENAME CursorDefs    !Artisan.CursorDefs
QUIT
QUIT
