home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1987 January & February / rerun-1987-01-02.d64 / notepad 2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  1.0 KB  |  26 lines
  1. 117 rem
  2. 118 rem 64 notepad patch #2
  3. 119 rem print notepad <f3>
  4. 120 rem full screen dump <f5>
  5. 121 rem
  6. 122 print"wait...":mem=50448:a=50704:fori=0to185:read by
  7. 123 if by >255 then print"error in line:"peek(63)+peek(64)*256:end
  8. 124 poke mem+i,by:ct=ct+by:next
  9. 125 if ct <> 23649 then print"checksum bad, check all data.":end
  10. 126 poke a,76:poke a+1,16:poke a+2,197
  11. 127 rem
  12. 128 data 32,11,202,169,54,133,1,165,197,201,5,208,8,162
  13. 129 data 64,160,5,169,17,208,19,201,6,208,18,162,0,160
  14. 130 data 4,169,8,32,66,197,162,64,160,177,169,17,32,66
  15. 131 data 197,234,234,234,234,76,71,200,234,134,170,132,171,141
  16. 132 data 201,197,169,4,32,195,255,160,255,173,24,208,201,21
  17. 133 data 240,2,160,7,169,4,170,32,186,255,169,0,32,189
  18. 134 data 255,32,192,255,176,43,162,4,32,201,255,176,36,160
  19. 135 data 0,177,170,170,32,158,197,200,192,40,208,245,169,13
  20. 136 data 32,210,255,160,0,165,170,24,105,40,133,170,144,2
  21. 137 data 230,171,206,201,197,208,222,32,204,255,169,4,32,195
  22. 138 data 255,96,192,0,208,15,169,16,32,210,255,169,50,32
  23. 139 data 210,255,169,48,32,210,255,138,41,127,201,32,144,9
  24. 140 data 201,64,144,9,201,96,144,3,24,105,32,105,32,32
  25. 141 data 210,255,96,0
  26.