10 OPEN15,8,15
20 OPEN5,8,5,"#"
30 PRINT#15,"B-P:"5;0
40 PRINT#5,CHR$(67);CHR$(66);CHR$(77); : REM  * CBM CODE *
50 PRINT#5,CHR$(0);CHR$(0);CHR$(0);CHR$(0);
60 PRINT"[147]ENTER BOOT MESSAGE":GOSUB1000
70 PRINT#5,CHR$(0);
80 PRINT#5,"128-64.BIN";
90 PRINT#5,CHR$(0);CHR$(76);CHR$(75);CHR$(226);CHR$(0);
100 PRINT#15,"U2:"5;0;1;0
110 CLOSE5:CLOSE15
120 END
1000 PRINT"  USE '_' WHEN DONE."
1005 R$="":POKE212,1
1020 GETG$:IFG$=""THEN1020
1030 IFG$=CHR$(95)THEN1050
1040 R$=R$+G$:POKE216,1:PRINTG$;:GOTO1020
1050 POKE212,0:PRINT#5,R$;
1060 RETURN