10 REM Auto program loader
20 REM From Amstrad NC100 Advanced User Guide
30 CLEAR: DIM MC% 22 REM code plus buffer bytes
40 PROCasm
50 CALL MC%
60 IF buffer?0 = 0 THEN CLS:PRINT "Press FN-B for menu.":PRINT:END
70 R$=""
80 FOR J%=0 TO 11
90   IF buffer?J% THEN R$=R$+CHR$(buffer?J%) ELSE J%=12
100 NEXT
110 E$=RIGHT$(R$,4)
120 IF E$<>".LIS" AND E$<>".lis" AND E$<>".TXT" AND E$<>".txt" THEN 180
130 PRINT "This is a text file. Press STOP at the menu to enter Basic"
140 PRINT "and use *exec """+R$+""" to load the file."
150 PRINT "Press any key to continue"
160 K$=GET$
170 GOTO 50
180 IF E$<>".BAS" AND E$<>".bas" THEN 50
190 CHAIN R$
200 DEF PROCasm
210 FOR PASS=0 TO 2 STEP 2
220   P%=MC%
230   [
240   OPT PASS
250   CALL &B8C3
260   LD DE,buffer
270   JR C,found
280   LD A,0
290   LD (DE),A
300   RET
310   .found LD B,12
320   .loop  LD A,(HL)
330   LD (DE),A
340   INC HL
350   INC DE
360   DJNZ loop
370   RET
380   .buffer
390   ]
400 NEXT
410 ENDPROC