home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / MusGraph / SCREEN-DUMP-64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.0 KB  |  42 lines

  1. 10 SA=33000:PRINT"ô"
  2. 20 A$="╙├╥┼┼╬á─╒═╨á64":GOSUB500
  3. 22 A$="BY ╥.╫. ┬OB K7 ╦OBER":GOSUB500
  4. 25 FORD=SATOD+219:READY:POKED,Y:NEXT
  5. 30 FORI=1TO40:PRINT"-";:FORJ=1TO20:NEXT:NEXT:PRINT
  6. 40 A$="┼NTER               ╞OR  ":GOSUB500
  7. 50 A$="úúúúúúú             úúúúú  ":GOSUB500
  8. 60 A$=" ├╘╥╠  ╚        ╒PPER/╟RAPHICS":GOSUB500
  9. 70 A$="   ├╘╥╠  ╠       ╒PPER/╠OWER ├ASE":GOSUB500
  10. 80 A$="╥╒╬/╙╘╧╨           ─ISABLE":GOSUB500
  11. 90 A$="  ╥┼╙╘╧╥┼         ╙CREEN ─UMP64":GOSUB500
  12. 100 A$="  ╙┘╙33000        ┴CTIVATE ─UMP":GOSUB500
  13. 110 PRINT:FORI=1TO40:PRINT"-";:FORJ=1TO20:NEXT:NEXT:PRINT
  14. 120 PRINT"æ╨RESS F1 TO SAVE THE OBJECT CODE TO DISK"
  15. 130 PRINT"╨RESS F3 TO RETURN TO ┬┴╙╔├ WITH ╙CREEN"
  16. 140 PRINT"─UMP64 ACTIVATED."
  17. 150 PRINT"╨RESS F5 TO RETURN TO ┬┴╙╔├ WITH ╙CREEN"
  18. 160 PRINT"─UMP64 DE-ACTIVATED."
  19. 170 GETA$:IFA$<"à"ORA$>"ç"THEN170
  20. 180 IFA$="å"THENPRINT"ô"CHR$(142)"SCREEN DUMP64 IS ACTIVE":END
  21. 190 IFA$="ç"THENSYS65126
  22. 192 PRINT" ╙AVING ╙├╥╬ ─╒═╨64.╙╥├"
  23. 200 POKE43,232:POKE44,128:POKE45,196:POKE46,129
  24. 210 SAVE"SCRN DUMP64.SRC",8,1
  25. 220 POKE43,1:POKE44,8:POKE 45,2:POKE 46,15:CLR
  26. 230 PRINT"┴LL ─ONE.":END
  27. 490 END
  28. 500 PRINTTAB(20-LEN(A$)/2)A$:RETURN
  29. 1000 DATA173,144,2,201,129,240,22,120,173,143,2,133,178,173,144,2,133
  30. 1001 DATA179,169,6,141,143,2,169,129,141,144,2,88,96,165,145,201,251
  31. 1002 DATA208,20,165,197,201,30,208,4,169,0,240,6,201,42,20    
  32. 1003 DATA7,133,150,16,3,108,178,0,169,1,133,204,32,204,255,169,4
  33. 1004 DATA170,164,150,32,186,255,160,0,32,189,255,32,192,255,162,4,32
  34. 1005 DATA201,255,169,4,133,252,160,0,132,251,132,253,132,254,132,155,177
  35. 1006 DATA251,201,128,144,7,41,127,72,169,18,208,3,72,169,146,32,210
  36. 1007 DATA255,104,201,32,176,4,9,64,208,18,201,63,144,14,201,96,176
  37. 1008 DATA4,9,32,208,6,201,128,176,2,9,128,201,34,208,2,169,39
  38. 1009 DATA32,210,255,165,145,16,44,200,208,2,230,252,230,253,165,253,201
  39. 1010 DATA250,208,12,169,0,133,253,230,254,165,254,201,4,240,    
  40. 1011 DATA165,155,201,40,208,9,169,0,133,155,169,13,32,210,255,208,153
  41. 1012 DATA169,13,32,210,255,32,204,255,169,4,32,195,255,76,131,164
  42.