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 / PSUTIL.ARC / PS.SWITCH (.txt) < prev    next >
Commodore BASIC  |  2000-06-30  |  1KB  |  37 lines
  1. 1 POKE53281,0:POKE53280,0:PRINT"[147][154]PRINT SHOP GRAPHIC'S REVERSER
  2. 2 [153]"BY: ALAN TAKSERAAS - 1986
  3. 3 PRINT"THIS UTILITY WILL REVERSE THE DIRECTION
  4. 4 [153]"OF P.S. GRAPHICS - WHAT'S LEFT WILL
  5. 5 PRINT"BE RIGHT.
  6. 6 [153]"INSERT PS GRAPHIC DISK AND ENTER
  7. 10 IFA=2 THEN 100
  8. 20 IFA=0THENA=1:FORI=0TO79:READB:POKE49152+I,B:NEXT
  9. 30 IFA=1THENA=2:INPUT"GRAPHIC'S TITLE:";F$:LOADF$,8,1
  10. 100 POKE55,00:POKE56,88:CLR:DIMA%(770):SYS49152
  11. 110 FORI=49408 TO 50177:A%(I-49408)=PEEK(I):PRINT"+";:NEXT:PRINT
  12. 120 FORI=22528 TO 23297STEP11
  13. 130 FORX=10TO0 STEP -1:POKEI+IN,A%(X+(I-22528)):PRINT"*";
  14. 135 IN=IN+1::NEXT:IFIN=11THEN IN=0
  15. 140 NEXT:PRINT
  16. 145 PRINT"REMOVE GRAPHIC DISK AND INSERT ","TAKE UP DISK"
  17. 146 PRINT"PRESS ANY KEY TO SAVE REVERSED PICTURE"
  18. 147 GETA$:IFA$=""THEN147
  19. 150 POKE251,PEEK(43):POKE252,PEEK(44):POKE253,PEEK(45):POKE254,PEEK(46)
  20. 160 POKE43,0:POKE44,88:POKE45,80:POKE46,90
  21. 170 SAVE"REVERSED",08
  22. 180 POKE43,PEEK(251):POKE44,PEEK(252):POKE45,PEEK(253):POKE46,PEEK(254)
  23. 185 O$="REVERSED":PRINT
  24. 190 INPUT"NEW NAME OF GRAPHIC";N$:A$="R0:"+N$+"="+O$
  25. 200 OPEN15,8,15,A$:CLOSE15
  26. 210 END
  27. 49152 DATA169,3,133,2,169,0,133,251
  28. 49160 DATA133,253,169,193,133,254,169,88
  29. 49168 DATA133,252,160,0,169,0,141,80
  30. 49176 DATA192,141,81,192,177,251,162,0
  31. 49184 DATA141,80,192,14,80,192,110,81
  32. 49192 DATA192,232,224,8,208,245,173,81
  33. 49200 DATA192,145,253,200,192,0,208,220
  34. 49208 DATA198,2,208,1,96,24,230,252
  35. 49216 DATA230,254,76,18,192,2,198,72
  36. 49224 DATA173,65,198,40,96,173,66,198
  37.