1 CLEAR 36999:BORDER 0:PAPER 0:CLS
10 FOR n=60000 TO 60048:READ a:POKE n,a:NEXT n
20 PRINT AT 19,0;INK 0;"  Cargando:                         GOD SAVE                          THE PUNK"
30 INK 4:RANDOMIZE USR 60000
40 INK 0
50 PRINT AT 19,0:LOAD""CODE 37000,3936:PRINT AT 19,0:LOAD""CODE 42048,1080:PRINT AT 19,0:LOAD""CODE 44096,2256:PRINT AT 19,0:LOAD""CODE 46839,3241:PRINT AT 19,0:LOAD""CODE 51000,932
60 RANDOMIZE USR 37000
70 RANDOMIZE USR 39181
100 DATA 6,23,14,16,197,205,206,34,205,20,35,193,183,32,9,62,112,12,185,32,239,16,235,201,197,203,0,120,198,80,71,203,1,62,3,245,197,205,229,34,193,241,12,61,32,245,193,24,222