home *** CD-ROM | disk | FTP | other *** search
/ Light / Light_Vol.1_August_1992_Datasphere_Publications_Disk_1_of_2_Side_A.d64 / m_code.saver (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  580b  |  13 lines
  1. 1 fora=832to900:readb:pokea,b:next:rem m/code saver in tape buffer
  2. 2 data162,0,181,43,157,144,3,232,224
  3. 3 data16,208,246,96,169,160,133,187,169,3,133,188,169,7,133,183,169
  4. 4 data8,133,186,169,1,133,185,169,0,133,10,169,0,133,193,169,192,133
  5. 5 data194,169,69,133,174,169,192,133,175,32,237,245,162,0,189,144,3
  6. 6 data149,43,232,224,16,208,246,96
  7. 9 sys832:rem store pos
  8. 10 a$="text fx prog/ v1":fora=1to16:b=asc(mid$(a$,a,a)):pokea+927,b:next
  9. 20 poke854,16:rem length of filename
  10. 21 poke870,0:poke874,192:rem low and high for start of save
  11. 22 poke878,128:poke882,196:rem low and high for end of save
  12. 30 sys845:rem save + repoke pos
  13.