home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 August / 64er_Magazin_88-08_1988_Markt__Technik_de_Side_A.d64 / snapshot (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  1.4 KB  |  51 lines
  1. 5 poke53280,2:poke53281,2:poke646,14
  2. 10 print"[147][211]napshot 1":print:print
  3. 15 print"[205]it diesem [208]rogramm lassen sich von":print
  4. 16 print"beliebigen, dem [194]etriebssytem zugaeng-":print
  5. 17 print"lichen [211]peicherbereichen [205]omentaufnah-":print
  6. 18 print"men anfertigen, die dann ohne ein [208]ro-":print
  7. 19 print"blem im freien [210][193][205] abgelegt werden und":print
  8. 20 print"jederzeit austauschbar sind, wie [211]ie":print
  9. 21 print"sehen (hier: die [203]onstanten des [214][201][195]":print
  10. 22 print"mit den in [218]eile 5 eingestellten [215]erten)":print
  11. 24 print:print,,"[212]aste druecken"
  12. 25 zi=53248:qu=60601:an=46
  13. 30 s1$="":s2$=""
  14. 40 n1=83:s1=0:n2=49:s2=128:gosub2000
  15. 50 z=qu:gosub2200:pokead,an:pokead+1,lo:pokead+2,hi:s1$=s1$+""
  16. 60 n1=83:s1=0:n2=50:s2=128:gosub2000
  17. 70 z=zi:gosub2200:pokead,an:pokead+1,lo:pokead+2,hi:s2$=s2$+""
  18. 80 :
  19. 100 n1=83:s1=0:n2=49:s2=128:gosub2000
  20. 110 qu=peek(ad+1)+256*peek(ad+2):gosub2100
  21. 120 fori=1to1000:next
  22. 150 n1=83:s1=0:n2=50:s2=128:gosub2000
  23. 160 qu=peek(ad+1)+256*peek(ad+2):gosub2100
  24. 170 fori=1to1000:next
  25. 180 getx$:ifx$=""then100
  26. 190 :
  27. 200 print"[147][211]napshot 2":print
  28. 210 qu=41118:an=255:s1$=""
  29. 220 n1=83:s1=0:n2=49:s2=128:gosub2000
  30. 230 z=qu:gosub2200:pokead,an:pokead+1,lo:pokead+2,hi:s1$=s1$+""
  31. 240 print"[196]ie [194]asicbefehlsworte :":print
  32. 250 prints1$:print
  33. 260 qu=41374:an=255:s2$=""
  34. 270 n1=83:s1=0:n2=50:s2=128:gosub2000
  35. 280 z=qu:gosub2200:pokead,an:pokead+1,lo:pokead+2,hi:s2$=s2$+""
  36. 290 print"[197]inige [198]ehlermeldungen:":print
  37. 300 prints2$
  38. 999 end
  39. 2000 poke180,n1ors1:poke181,n2ors2
  40. 2010 poke69,peek(180):poke70,peek(181):sys45287
  41. 2020 ad=peek(780)+256*peek(782)
  42. 2030 return
  43. 2100 z=zi:gosub2200:poke53,lo:poke54,hi
  44. 2105 z=qu:gosub2200:poke781,lo:poke782,hi
  45. 2110 poke780,an+1:sys46728
  46. 2120 return
  47. 2130 :
  48. 2200 hi=int(z/256):lo=z-hi*256
  49. 2210 return
  50. 2220 :
  51.