2 GOTO40
3 PRINT"[147]":POKE53280,9:POKE53281,7:POKE646,9
4 PRINT "        GO-LISTER INSTALLED...."
5 END:NEW
10 REM *** "GO-LISTER" BY JOHN K.LUNDE ***
20 REM ** TGT.PROGRAM MUST START AT NORMAL START-OF-BASIC ADDRESS (2049) **
30 REM ** USES FILE#1 TO DEVICE#4:CLOSE MANUALLY IF EXECUTION IS HALTED **
40 FORX=49152TO49472:READZ:POKEX,Z:NEXT:GOTO 3
49152 DATA169,1,162,4,160,255
49158 DATA32,186,255,169,0,32
49164 DATA189,255,32,192,255,162
49170 DATA1,32,201,255,160,8
49176 DATA132,70,160,1,132,69
49182 DATA76,135,192,160,0,177
49188 DATA251,201,0,240,65,201
49194 DATA34,208,6,169,1,69
49200 DATA67,133,67,165,67,201
49206 DATA1,240,18,177,251,201
49212 DATA137,240,40,201,141,240
49218 DATA36,201,167,240,32,201
49224 DATA203,240,28,160,1,32
49230 DATA83,192,76,35,192,192
49236 DATA0,240,15,169,1,24
49242 DATA101,251,144,2,230,252
49248 DATA133,251,136,76,83,192
49254 DATA96,76,207,192,160,2
49260 DATA177,251,201,0,240,20
49266 DATA160,3,177,251,133,253
49272 DATA200,177,251,133,254,200
49278 DATA32,83,192,132,67,76
49284 DATA35,192,136,177,69,201
49290 DATA0,240,52,200,177,69
49296 DATA133,61,200,177,69,133
49302 DATA62,160,0,177,69,170
49308 DATA200,177,69,133,70,138
49314 DATA133,69,169,0,133,251
49320 DATA169,8,133,252,169,13
49326 DATA32,210,255,165,61,170
49332 DATA165,62,32,205,189,169
49338 DATA58,32,210,255,76,114
49344 DATA192,169,13,32,210,255
49350 DATA32,204,255,169,1,32
49356 DATA195,255,96,160,0,132
49362 DATA20,132,21,200,177,251
49368 DATA201,32,240,249,201,160
49374 DATA240,245,201,164,240,241
49380 DATA201,48,48,50,201,58
49386 DATA16,46,233,47,133,7
49392 DATA165,21,133,34,165,20
49398 DATA10,38,34,10,38,34
49404 DATA101,20,133,20,165,34
49410 DATA101,21,133,21,6,20
49416 DATA38,21,165,20,101,7
49422 DATA133,20,144,2,230,21
49428 DATA200,177,251,76,228,192
49434 DATA32,83,192,165,61,197
49440 DATA20,208,19,165,62,197
49446 DATA21,208,13,169,32,32
49452 DATA210,255,165,253,170,165
49458 DATA254,32,205,189,160,0
49464 DATA177,251,201,44,240,145
49470 DATA76,35,192