home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ENTERPRS / C64 / GFX / PSPD.ARC / DECODER (.txt) < prev    next >
Commodore BASIC  |  2000-06-30  |  494b  |  18 lines
  1. 1 REM     **********************
  2. 2 REM     * COMMODARES  COLUMN *
  3. 3 REM     * AHOY!  9/84   P.76 *
  4. 4 REM     **********************
  5. 5 :
  6. 6 :
  7. 9 PRINT"[153]PLEASE WAIT A MOMENT"
  8. 10 CLR:K=.:DIM A(511):X=7:Y=.
  9. 20 POKE 56334,PEEK(56334)AND 254
  10. 30 POKE 1,PEEK(1)AND 251
  11. 40 FOR I=0 TO 511:A(I)=PEEK(I+53248):NEXT
  12. 50 FOR I=X TO Y STEP-1:POKE 12288+K,A(I):K=K+1:NEXT:X=X+8:Y=Y+8:IFX>=512THEN100
  13. 60 GOTO 50
  14. 100 POKE 1,PEEK(1)OR 4
  15. 110 POKE 56334,PEEK(56334)OR 1
  16. 120 POKE 53272,(PEEK(53272)AND 240)+12
  17. 130 PRINT"GET A MIRROR AND LOOK IN IT, UPSIDE DOWN "
  18.