From: gids.rs@sasktel.net   
      
   Do it in Applesoft   
      
   10 D$=CHR$(4)   
   15 ?D$”PR#3”   
   20 HGR:POKE49246,0:POKE49237,0:CALL62454:POKE4936,0:TEXT   
   25INPUT”Enter Dbl Hi-res file to view: “;NF$   
   30 IF NF$=“” THEN TEXT:END   
   40POKE49237,0: ?D$ “BLOAD “NF$”,A$2000,L$2000”   
   50POKE49236,0: ?D$ “BLOAD “NF$”,A$2000,L$2000,B$2000”   
   60 CALL -3100: GET A$: TEXT : GOTO 25   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)