100 IF PEEK(2047)=22THEN 130
110 Q=Q+1:IFQ=1THENLOAD"SCANNY.ASS",8,1
120 POKE2047,22:IFQ=2THENLOAD"SCANNY.CEN",8,1
130 F1=1:F4=0:OPEN1,8,0,"WERTE":INPUT#1,G1,G2,G3,Z,ZL,X,V:CLOSE1
140 POKE53281,0:POKE53280,0:POKE56325,60:POKE650,127
150 PRINT"[147]      (1) PROBESCANN"
160 PRINT"      (2) DATENNEUEINGABE"
170 PRINT"      (3) GRAFIK BETRACHTEN"
180 PRINT"      (4) EINSCANNEN"
190 PRINT"      (5) BILD ABSPEICHERN"
200 PRINT"      (6) FARBENGRENZEN AENDERN"
210 PRINT"      (7) FARBEN AENDERN"
230 GET A$:IFA$="1"THEN670
240 IFA$="2"THEN310
250 IFA$="3"THEN600
260 IFA$="4"THEN420
270 IFA$="5"THEN540
280 IFA$="6"THEN630
290 IFA$="7"THEN730
300 GOTO230
310 PRINT"[147][152]   OBERGRENZE    (MAX. 255)   "G1;:INPUT"[157][157][157][157][157][157]";G1
320 PRINT"[155]   MITTELGRENZE  (MAX."G1"[157])    "G2;:INPUT"[157][157][157][157][157][157]";G2
330 PRINT"   UNTERGRENZE   (MAX."G2"[157])     "G3;:INPUT"[157][157][157][157][157][157]";G3
340 PRINT"   ZEILENABSTAND     (UM 5)   "Z;:INPUT"[157][157][157][157]";Z
350 PRINT"   ZEILENLAENGE     (UM 55)   "ZL;:INPUT"[157][157][157][157][157]";ZL
360 PRINT"   EINLESEGESCHW. (UM 3000)   "X;:INPUT"[157][157][157][157][157][157][157]";X
370 PRINT"   LINKER RAND    (MAX. 99)   "V;:INPUT"[157][157][157][157][157]";V
380 PRINT"   WERTE SPEICHER (J/N)"
390 GET A$:IFA$="J"THEN580
400 IFA$="N"THEN140
410 GOTO390
420 POKE53281,F1:POKE53270,216
430 POKE49330,G1:POKE49334,G2:POKE49338,G3
440 POKE646,F4:PRINT"[147]":Y=INT(X/256):POKE49280,Y:POKE49285,(X-Y*256)
445 SYS49152
450 SYS52224
452 OPEN1,5
465 PRINT#1,CHR$(27)CHR$(51)CHR$(Z)
468 PRINT#1,CHR$(27)CHR$(196)CHR$(ZL)CHR$(0)
470 PRINT#1,CHR$(9)".":PRINT#1,"."
480 PRINT#1,CHR$(9)"."
490 FORY=1TOV:NEXT:POKE709,0
500 PRINT#1,"."
510 PRINT#1,CHR$(10)
520 IFPEEK(708)=0THEN480
530 POKE53265,27:POKE53272,21:CLOSE1:GOTO140
540 INPUT"[147]    FILENAME";NA$
550 A$="[129]PIC "+NA$:FORY=0TO14-LEN(A$):A$=A$+" ":NEXTY
560 POKE49529,F4:SYS49487:POKE26384,F1:SYS57812A$,8
570 POKE193,0:POKE194,64:POKE174,17:POKE175,103:SYS62957:GOTO140
580 OPEN1,8,1,"@:WERTE":PRINT#1,G1,",",G2,",",G3,",",Z
590 PRINT#1,ZL,",",X,",",V:CLOSE1:GOTO140
600 POKE646,F4:PRINT"[147]":POKE198,0:SYS49546
610 POKE53281,F1:WAIT198,1:POKE53270,200:GOTO530
630 PRINT"[147][152]   OBERGRENZE    (MAX. 255)    "G1;:INPUT"[157][157][157][157][157][157]";G1
640 PRINT"[155]   MITTELGRENZE  (MAX."G1"[157])     "G2;:INPUT"[157][157][157][157][157][157]";G2
650 PRINT"   UNTERGRENZE   (MAX."G2"[157])      "G3;:INPUT"[157][157][157][157][157][157]";G3
660 POKE49631,G1:POKE49635,G2:POKE49639,G3:SYS49773:SYS49581:GOTO600
670 PRINT"[147] HELLES & DUNKLES PAPIER"
680 PRINT" VOR DEN SCANNER HALTEN. (TASTE)"
690 A=0:FORK=1TO10:A=A+PEEK(54297):NEXT:A=A/10
700 PRINT" WERT :    [157][157][157][157]"INT(A)
710 GETA$:IFA$=""THEN690
720 GOTO140
730 INPUT"[147]  FARBE1   (SCHWARZ)";F4
740 INPUT"  FARBE2 (DKL. GRAU)";F2
750 INPUT"  FARBE3  (HELLGRAU)";F3
760 INPUT"  FARBE4     (WEISS)";F1
770 POKE49189,F3*16+F2:POKE49547,F3*16+F2:POKE49510,F3*16+F2
780 GOTO600