1 :' Nomad - disk
2 :' by J.P. Garner
10 CLS
20 DATA 06,0b,11,00,c0,21
30 DATA 40,01,cd,77,bc,21
40 DATA 40,00,cd,83,bc,cd
50 DATA 7a,bc,c9,end
60 a=&70
70 READ b$
80 IF b$="end" THEN GOTO 110
90 POKE a,VAL("&"+b$):a=a+1
100 GOTO 70
110 a$="NOMLOAD.BIN"   
120 FOR a=1 TO LEN(a$)
130 q$=MID$(a$,a,1)
140 POKE &13F+a,VAL(q$)
150 CALL &70
160 POKE &71,&F4
170 DATA cd,7f,0,3e,a7
180 DATA 32,3a,22,c9
190 FOR a=&F4 TO &FC
200 READ b$
210 POKE a,VAL("&"+b$)
220 NEXT