home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 October / Ahoy_Magazine_88-10_1988_Double_L.d64 / Starting Line (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  714 b   |  15 lines
  1. 10 rem ** starting line **
  2. 20 s=53100:rem change to relocate ml
  3. 30 fori=0to95:reada:pokes+i,a:b=b+a:next
  4. 40 ifb<>10742thenprint"error in data statements!":end
  5. 50 deffnhi(x)=int(x/256):deffnlo(x)=x-fnhi(x)*256
  6. 60 fori=0to4:reada,b:pokes+a,fnlo(s+b):pokes+a+1,fnhi(s+b):next
  7. 70 pokes+18,fnlo(s+48):pokes+23,fnhi(s+48)
  8. 80 print:print"sys"s"to activate or deactivate":print"'*' = active"
  9. 90 data 173,95,19,208,28,173,48,3,141,94,19,173,49,3,141,95,19,169,48,141,48,3
  10. 100 data 169,19,141,49,3,169,42,32,210,255,96,141,49,3,173,94,19,141,48,3,169,0
  11. 110 data 141,95,19,96,72,165,184,72,165,185,72,169,5,168,166,186,32,186,255,32
  12. 120 data 192,255,162,5,32,198,255,32,207,255,170,32,207,255,32,205,189,169,5,32
  13. 130 data 195,255,104,133,185,104,133,184,104,76,0,0
  14. 140 data 1,95,9,94,15,95,37,94,45,95
  15.