home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_23_1988_Transactor_Publishing.d64 / greatassign64 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  633b  |  17 lines
  1. 100 rem "[199]reat [193]ssignment" for the c64
  2. 110 for x=49152 to 49232: read a
  3. 120 poke x,a: check=check+a: next
  4. 130 data  176,   8, 224,  22, 208,   4,  36,  13
  5. 140 data  048,   3,  76, 139, 227, 169,   0, 133
  6. 150 data  053, 169,   2, 133,  54, 165, 100, 133
  7. 160 data  111, 165, 101, 133, 112,  32, 122, 182
  8. 170 data  170, 177, 111, 208,   6, 169,  48, 157
  9. 180 data  000,   2, 232, 152, 157,   0,   2, 165
  10. 190 data  122, 164, 123, 133,  61, 132,  62, 169
  11. 200 data  000, 160,   2, 133, 122, 132, 123,  32
  12. 210 data  121, 165,  32, 115,   0,  32, 158, 173
  13. 220 data  104, 104, 104,  32, 114, 171,  76, 208
  14. 230 data  187
  15. 240 if check<>8575 then print"[217]ou goofed!":end
  16. 250 poke768,0: poke769,192: print"[207][203]!"
  17.