home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 27 / 027.d81 / lampman (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  38 lines
  1. 1 rem lampman
  2. 10 print chr$(142)"[147]       c= lampman - robin bowness"
  3. 15 poke53280,0:poke53281,0
  4. 20 fors=832to895:pokes,255:next:v=53248
  5. 25 fors=896to1023:readt:pokes,t:next
  6. 30 poke2040,13:poke2041,14:poke2042,15
  7. 35 pokev+39,0:pokev+40,5:pokev+41,7
  8. 40 pokev+21,7:pokev+28,2:pokev+37,7
  9. 45 pokev+38,10:pokev+3,120:pokev+4,172
  10. 50 pokev,150:pokev+1,120:pokev+2,150
  11. 55 pokev+29,4:forj=1to20:print:next
  12. 60 pokev+5,133:ford=1to50:next:fors=895to832step-1:pokes,0:ford=1to50:next:next
  13. 61 data001,085,000,005,253,064,007,051
  14. 62 data064,023,255,080,031,207,208,015
  15. 63 data255,195,043,003,015,043,003,138
  16. 64 data170,206,170,042,170,168,010,170
  17. 65 data160,042,138,160,010,170,160,002
  18. 66 data162,160,002,170,160,000,168,160
  19. 67 data000,170,160,000,042,168,000,010
  20. 68 data168,000,042,168,000,000,010,223
  21. 69 data000,000,000,000,000,000,000,000
  22. 70 data000,000,000,000,000,000,000,000
  23. 71 data000,000,000,000,000,192,000,000
  24. 72 data224,000,012,048,060,030,028,126
  25. 73 data051,015,255,195,007,255,195,007
  26. 74 data255,195,001,255,102,000,254,060
  27. 75 data000,254,024,000,124,000,000,056
  28. 76 data000,001,255,000,007,255,192,007
  29. 80 data133,186,076,237,245,010
  30. 90 :
  31. 60000 rem re-connect
  32. 60010 print" would you like to see him form again?"
  33. 60012 poke198,0:wait198,1:geta$:ifa$<>"y"anda$<>"n"then60012
  34. 60014 ifa$="y"thenpokev+21,0:run
  35. 60020 print"[147]"spc(12)"loading menu..."
  36. 60030 pokev+21,0:poke646,peek(53281):f$="magic menu"
  37. 60040 print"loadf$,8":print"run":poke631,13:poke632,13:poke198,2:end
  38.