home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 15 / 015.d81 / bacteriolab (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  50 lines
  1. 1 ifx=0thenx=1:load"ml bacteriolab",8,1
  2. 5 dimc%(1000):poke53280,11:poke53281,0
  3. 10 c=55296:print"[147]"chr$(142);:sys 49600   :poke 650,128
  4. 12 forx=ctoc+1000:pokex,0:c%(x-55296)=0:   next
  5. 20 get a$:a=peek(c+k):pokec+k,             not(aand1)and(aor1)
  6. 25 ifa$="k"then1000
  7. 27 ifa$="l"then2000
  8. 28 ifa$="_"then63000
  9. 29 ifa$="[147]"then10
  10. 30 if a$="*" then s=1:d=1:goto 150
  11. 40 if a$=chr$(13) then200
  12. 50 if a$="" then d=1:goto 150
  13. 60 if a$="[157]" then d=-1:goto 150
  14. 70 if a$="" then d=40:goto 150
  15. 80 if a$="[145]" then d=-40:goto 150
  16. 90 if a$=" " then s=0:d=1:goto 150
  17. 100 for i=1 to 100:next:goto20
  18. 150 poke c+k,s:c%(c+k-55296)=sand15:        k=k+d:ifk>999ork<0thenk=k-d
  19. 160 s=peek(c+k):goto 20
  20. 200 poke c+k,s:sys 49310:goto3000
  21. 900 :
  22. 1000 rem    save a file  added by l.s.
  23. 1010 print"[147] save [146]"
  24. 1020 print"filename (x=exit)";
  25. 1030 inputf$:iff$="x"then3000
  26. 1040 open2,8,2,f$+",s,w"
  27. 1050 forx=0to999:print#2,                    mid$(str$(c%(x)),2);:next
  28. 1060 print" done [146]":fordl=1to800:next:         goto3000
  29. 1070 :
  30. 2000 rem   load a file   added by l.s.
  31. 2010 print"[147] load [146]"
  32. 2020 print"filename (x=exit)";
  33. 2030 inputf$:iff$="x"then3000
  34. 2040 open15,8,15
  35. 2060 open2,8,2,f$
  36. 2070 input#15,er,er$
  37. 2080 ifer<19then2100
  38. 2090 print"[147] error !":                print"code :"er;er$
  39. 2095 fordl=1to800:next:goto3000
  40. 2100 forx=0to999:get#2,c$:c%(x)=val(c$):     next
  41. 2110 print" done [146]":fordl=1to800:next:          goto3000
  42. 2200 :
  43. 3000 rem   reset screen   added by l.s.
  44. 3005 close2:close15
  45. 3010 sys49600:forx=ctoc+1000:poke53280,    x-(int(x/256)*256):pokex,c%(x-c):next
  46. 3020 goto20
  47. 63000 rem   connect to l.s.
  48. 63010 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  49. 63020 poke631,13:poke632,13:poke198,2:        end
  50.