home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1984 Half 2 / rerun-1984-07-12.d64 / money (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  808b  |  26 lines
  1. 5 print"[147]loading data..."
  2. 10 fori=0to46:reada:poke828+i,a:ck=ck+a:next
  3. 20 ifck<>6871thenprint"error in first 5 data lines":end
  4. 30 sys828
  5. 40 fori=10456to10487:reada:pokei,a:next
  6. 50 fori=10712to10743:reada:pokei,a:next
  7. 60 fori=10960to10991:reada:pokei,a:next
  8. 70 poke157,128:load"moneymod",8
  9. 80 data120,165,1,41,251,133,1,169,0,133
  10. 90 data251,133,253,169,40,133,252,169,208,133
  11. 100 data254,162,8,160,0,177,253,145,251,136
  12. 110 data208,249,230,252,230,254,202,208,240,165
  13. 120 data1,9,4,133,1,88,96
  14. 130 data24,200,126,27,24,63,13,28,24,200
  15. 140 data126,27,24,24,31,57,24,200,126,27
  16. 150 data24,60,55,113,24,200,126,27,60,102
  17. 160 data99,194
  18. 170 data24,19,126,216,24,252,176,56,24,19
  19. 180 data126,216,60,102,198,67,24,19,126,216
  20. 190 data24,60,236,134,24,19,126,216,24,24
  21. 200 data248,156
  22. 210 data28,55,126,240,240,120,31,0,0,28
  23. 220 data119,254,224,127,62,0,0,56,238,127
  24. 230 data7,254,124,0,56,236,126,15,15,30
  25. 240 data252,0
  26.