10 PRINT"Pop-Up Loader -- Version 1":PRINT"by Walter Young  [70506,1606]"
20 PRINT:PRINT"The machine language program will be"
25 PRINT"loaded in the addresses 58000-58366."
30 INPUT"Is this ok";OK$
40 IFLEFT$(OK$,1)<>"Y"ANDLEFT$(OK$,1)<>"y"THENEND
50 CLEAR256,58000:T!=0:PRINT"LOADING";
60 FORA%=0TO366:READD%:POKEA%+58000,D%:T!=T!+D%:IFA%MOD10=0THENPRINT".";
70 NEXTA%:IFT!<>39002THEN90
80 PRINT"Successful Load!":SAVEM"POP-UP",58000,58366,58000:END
90 BEEP:PRINT"Checksum Error!":PRINT"Check data and try again":END
100 DATA 33,193,226,205,88,90,58,255,245,254,201,194,172,226,33,18,227,34,0,246
110 DATA 62,195,50,255,245,195,183,226,62,201,50,255,245,33,245,226,205,88,90
120 DATA 33,250,226,205,88,90,205,203,18,201,80,111,112,45,85,112,32,98,121,32
130 DATA 87,97,108,116,101,114,32,89,111,117,110,103,32,32,86,101,114,115,105
140 DATA 111,110,32,49,10,13,10,13,80,111,112,45,85,112,32,105,115,32,110,111
150 DATA 119,32,0,78,79,84,32,0,97,99,116,105,118,101,46,10,13,80,114,101,115
160 DATA 115,32,97,110,121,32,107,101,121,46,0,245,62,13,48,58,162,255,254,12
170 DATA 202,32,227,241,201,34,52,227,241,225,34,54,227,33,56,227,229,42,54,227
180 DATA 229,42,52,227,201,0,0,0,0,245,197,213,229,62,201,50,255,245,42,57,246
190 DATA 229,33,0,254,17,214,227,1,40,0,205,219,107,205,105,66,205,102,227,205
200 DATA 116,227,205,126,227,205,219,19,194,157,227,195,87,227,33,57,246,54,1
210 DATA 33,58,246,54,25,205,172,126,201,205,136,227,205,143,227,205,150,227
220 DATA 201,205,45,66,33,189,227,205,88,90,201,33,203,227,205,15,25,201,33
230 DATA 194,227,205,47,25,201,33,189,227,205,98,25,201,205,203,18,205,110,66
240 DATA 205,45,66,33,214,227,205,88,90,225,34,57,246,62,0,231,62,195,50,255
250 DATA 245,241,193,209,225,201,32,32,32,46,32,32,32,32,32,32,32,32,32,32,32
260 DATA 32,32,32,32,32,32,32,32,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
270 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0