10 REM     AUTO PROGRAM LOADER FOR
20 REM     USE WITH HI-RES DEMO KIT
30 REM     BY NEIL HIGGINS.
40 REM
50 REM  THIS PROGRAM WRITTEN BY J.FINCH
60 REM
70 REM  (C) COMMODORE DISK USER 1990
80 REM
90 PRINT"[147]ENTER NAME OF HI-RES DEMO FILE":INPUT":";A1$
100 PRINT"AND NAME OF BASIC PROGRAM TO LOAD       ONCE SPACEBAR IS PRESSED"
110 INPUT":";A2$:A1=LEN(A1$):A2=LEN(A2$)
120 IFA1=0 OR A1>16 OR A2=0 OR A2>16 THEN RUN
130 PRINT"PLEASE WAIT...":FORI=0TO195:READA:POKE49152+I,A:NEXT
140 FORI=1TOA1:POKE49179+I,ASC(MID$(A1$,I,1)):NEXT
150 FORI=1TOA2:POKE49195+I,ASC(MID$(A2$,I,1)):NEXT
160 POKE49212,A1:POKE49213,A2:FORI=0TO61:READA:POKE49348+I,A:NEXT
170 PRINT"PRESS ANY KEY TO SAVE NEW DEMO LOADER:"
180 PRINT"EACH TIME YOU WISH TO LOAD THE DEMO THAT";
190 PRINT"YOU HAVE CHOSEN TYPE:":PRINT"LOAD"CHR$(34)"DEMO LOADER"CHR$(34)",8"
195 POKE198,0:WAIT198,1:POKE198,0:SYS49348
200 DATA11,8,198,7,158,50,49,57,54,,,,162,,189,29,8,157,,192,232,224,119
205 DATA208,245,76,34,192,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
210 DATA169,1,162,8,160,255,32,186,255,173,32,192,162,0,160,192,32,189,255,169
215 DATA0,32,213,255,32,32,8,169,1,162,8,160,255,32,186,255,173,33,192,162,16
220 DATA160,192,32,189,255,169,0,162,1,160,8,32,213,255,169,147,162,82,160,85
225 DATA141,119,2,142,120,2,140,121,2,169,78,162,13,141,122,2,142,123,2,169,5
230 DATA133,198,96,173,33,208,141,134,2,169,83,162,89,160,50,141,119,2,142,120,2
235 DATA141,121,2,140,122,2,160,48,162,54,169,49,140,123,2,142,124,2,141,125,2
240 DATA169,13,141,126,2,169,8,133,198,96
250 DATA162,0,189,0,192,157,1,8,232,224,197,208,245,169,1,162,8,160,255,32,186
255 DATA255,169,11,162,247,160,192,32,189,255,169,1,133,251,169,8,133,252,162
260 DATA198,160,8,169,251,32,216,255,76,226,252,68,69,77,79,32,76,79,65,68,69,82