0 PRINT""
1 POKE198,15:POKE631,19:POKE632,13:POKE633,19:POKE634,17:POKE635,13:POKE636,19
2 POKE637,29:POKE638,29:POKE639,29:POKE640,42:POKE641,13:POKE642,82
3 POKE643,213:POKE644,54:POKE645,13
4 PRINT"[147]L[207]"CHR$(34)"$"CHR$(34)",8
5 [153]"LIST1-":[128]
6 X$[178]"                           "
7 [153]"DISK LOADER":[153]X$
8 [153]"CRSRWAIT TO DESIRED PROGRAM, PRESS RETURNWAIT.
9 PRINTX$:PRINT"*    "CHR$(34):PRINT"*  "
10 POKE198,5:POKE631,157:POKE632,157:POKE633,32:POKE634,17:POKE635,157
11 INPUTF$:IFF$=""THENEND
12 IFMID$(F$,7+N,1)=CHR$(34)THEN14
13 N=N+1:GOTO12
14 IFLEFT$(F$,1)="L"THENPOKE198,2:POKE631,19:POKE632,13:GOTO16
15 POKE198,6:POKE631,19:POKE632,13:POKE633,82:POKE634,85:POKE635,78:POKE636,13
16 PRINT"[147]LOAD"CHR$(34)"0:"MID$(F$,7,N)CHR$(34)",8,1":END