50 POKE53280,11:POKE53281,0:POKE646,15
100 A$="TARGETPROGRAM"
110 PA$=":PARTITIONNAME":REM OR DIR PATH
112 JD=1:SR=0: REM JIFFY DOS?: SELF-RUN?
120 PN=0:REM PARTITION NUMBER
130 DV=PEEK(186):Q$=CHR$(34)
140 OPEN15,DV,15
150 REM: PRINT#15,"C[208]"+CHR$(PN):REM HD PARTITION
160 REM: PRINT#15,"I":FORT=1TO700:NEXT:REM 81 ROOT
170 REM: PRINT#15,"/"+PA$:FORT=1TO700:NEXT:REM 81 PARTITION
180 REM: PRINT#15,"CD"+PA$:REM HD DIR PATH
190 CLOSE15:IFJDTHEN @#DV
195 :
200 PRINT"[147]LOAD"Q$A$Q$","DV
210 PRINT:PRINT:PRINT:PRINT:PRINT"RUN"
212 Z8=3:IFSRTHENZ8=2
220 POKE631,19:POKE632,13:POKE633,13
230 POKE198,Z8:NEW