home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 April / 64er_Magazin_93-04_1993_Markt__Technik_de_Side_A.d64 / scanny.bas (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  71 lines
  1. 100 if peek(2047)=22then 130
  2. 110 q=q+1:ifq=1thenload"scanny.ass",8,1
  3. 120 poke2047,22:ifq=2thenload"scanny.cen",8,1
  4. 130 f1=1:f4=0:open1,8,0,"werte":input#1,g1,g2,g3,z,zl,x,v:close1
  5. 140 poke53281,0:poke53280,0:poke56325,60:poke650,127
  6. 150 print"[147]      (1) probescann"
  7. 160 print"      (2) datenneueingabe"
  8. 170 print"      (3) grafik betrachten"
  9. 180 print"      (4) einscannen"
  10. 190 print"      (5) bild abspeichern"
  11. 200 print"      (6) farbengrenzen aendern"
  12. 210 print"      (7) farben aendern"
  13. 230 get a$:ifa$="1"then670
  14. 240 ifa$="2"then310
  15. 250 ifa$="3"then600
  16. 260 ifa$="4"then420
  17. 270 ifa$="5"then540
  18. 280 ifa$="6"then630
  19. 290 ifa$="7"then730
  20. 300 goto230
  21. 310 print"[147][152]   obergrenze    (max. 255)   "g1;:input"[157][157][157][157][157][157]";g1
  22. 320 print"[155]   mittelgrenze  (max."g1"[157])    "g2;:input"[157][157][157][157][157][157]";g2
  23. 330 print"   untergrenze   (max."g2"[157])     "g3;:input"[157][157][157][157][157][157]";g3
  24. 340 print"   zeilenabstand     (um 5)   "z;:input"[157][157][157][157]";z
  25. 350 print"   zeilenlaenge     (um 55)   "zl;:input"[157][157][157][157][157]";zl
  26. 360 print"   einlesegeschw. (um 3000)   "x;:input"[157][157][157][157][157][157][157]";x
  27. 370 print"   linker rand    (max. 99)   "v;:input"[157][157][157][157][157]";v
  28. 380 print"   werte speicher (j/n)"
  29. 390 get a$:ifa$="j"then580
  30. 400 ifa$="n"then140
  31. 410 goto390
  32. 420 poke53281,f1:poke53270,216
  33. 430 poke49330,g1:poke49334,g2:poke49338,g3
  34. 440 poke646,f4:print"[147]":y=int(x/256):poke49280,y:poke49285,(x-y*256)
  35. 445 sys49152
  36. 450 sys52224
  37. 452 open1,5
  38. 465 print#1,chr$(27)chr$(51)chr$(z)
  39. 468 print#1,chr$(27)chr$(196)chr$(zl)chr$(0)
  40. 470 print#1,chr$(9)".":print#1,"."
  41. 480 print#1,chr$(9)"."
  42. 490 fory=1tov:next:poke709,0
  43. 500 print#1,"."
  44. 510 print#1,chr$(10)
  45. 520 ifpeek(708)=0then480
  46. 530 poke53265,27:poke53272,21:close1:goto140
  47. 540 input"[147]    filename";na$
  48. 550 a$="[129]pic "+na$:fory=0to14-len(a$):a$=a$+" ":nexty
  49. 560 poke49529,f4:sys49487:poke26384,f1:sys57812a$,8
  50. 570 poke193,0:poke194,64:poke174,17:poke175,103:sys62957:goto140
  51. 580 open1,8,1,"@:werte":print#1,g1,",",g2,",",g3,",",z
  52. 590 print#1,zl,",",x,",",v:close1:goto140
  53. 600 poke646,f4:print"[147]":poke198,0:sys49546
  54. 610 poke53281,f1:wait198,1:poke53270,200:goto530
  55. 630 print"[147][152]   obergrenze    (max. 255)    "g1;:input"[157][157][157][157][157][157]";g1
  56. 640 print"[155]   mittelgrenze  (max."g1"[157])     "g2;:input"[157][157][157][157][157][157]";g2
  57. 650 print"   untergrenze   (max."g2"[157])      "g3;:input"[157][157][157][157][157][157]";g3
  58. 660 poke49631,g1:poke49635,g2:poke49639,g3:sys49773:sys49581:goto600
  59. 670 print"[147] helles & dunkles papier"
  60. 680 print" vor den scanner halten. (taste)"
  61. 690 a=0:fork=1to10:a=a+peek(54297):next:a=a/10
  62. 700 print" wert :    [157][157][157][157]"int(a)
  63. 710 geta$:ifa$=""then690
  64. 720 goto140
  65. 730 input"[147]  farbe1   (schwarz)";f4
  66. 740 input"  farbe2 (dkl. grau)";f2
  67. 750 input"  farbe3  (hellgrau)";f3
  68. 760 input"  farbe4     (weiss)";f1
  69. 770 poke49189,f3*16+f2:poke49547,f3*16+f2:poke49510,f3*16+f2
  70. 780 goto600
  71.