home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 27 / 027.d81 / charge (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  696 b   |  28 lines
  1. 1 rem charge
  2. 2 poke53281,13:poke53280,6:poke646,0
  3. 8 print"[147]"chr$(142)spc(14)"charge..."
  4. 10 :
  5. 15 v=54272:gosub75:pokev+5,85
  6. 20 pokev+6,85:pokev+12,85:pokev+13,85
  7. 25 pokev+24,15:pokev+4,33:pokev+11,17
  8. 30 forj=1to6
  9. 35 :readh1,l1,h2,l2
  10. 40 :pokev+1,h1:pokev,l1
  11. 45 :pokev+8,h2:pokev+7,l2
  12. 50 :ifh1=50thenfort=1to200:next
  13. 55 :fort=1to100:next
  14. 60 nextj
  15. 65 gosub75
  16. 70 goto60000
  17. 75 forj=vtov+23:pokej,0:next:return
  18. 80 data 025,030,018,209,033,135,025,030
  19. 85 data 042,062,031,165,050,060,037,162
  20. 90 data 042,062,031,165,050,060,037,162
  21. 60000 rem re-connect
  22. 60010 print"[147]would you like to hear it again?"
  23. 60012 poke198,0:wait198,1:geta$:ifa$<>"y"anda$<>"n"then60012
  24. 60014 ifa$="y"thenrun
  25. 60020 print"[147]"spc(12)"loading menu..."
  26. 60030 poke646,peek(53281):f$="magic menu"
  27. 60040 print"loadf$,8":print"run":poke631,13:poke632,13:poke198,2:end
  28.