100 POKE55,000:POKE56,128:CLR:PRINTCHR$(8)CHR$(142):POKE53276,0
101 POKE50257,24:IFPEEK(10815)<>0THEN103
102 POKE 10815,1:SYS10752
103 SYS 10816
104 SYS18176,0:SYS18356:POKE50258,000
107 DIMAD(2,2):AM=050259
108 AD(1,1)=16640 :AD(1,2)=17232
109 AD(2,1)=17408 :AD(2,2)=18178
110 DEMO=0:SP=.5
120 SI=54272:FORI=0TO24:POKESI+I,0:NEXT
130 POKESI+24,15:POKESI+1,8:POKESI+6,10*16+14:SF=1
140 POKESI+4,65:POKESI+12,13:POKESI+8,4:POKESI+19,11:F=16
150 V=53248:V1=V+17:RZ=V+18:AB=20472:NAZ=2:POKEV+39,1:POKEV,0:POKEV+16,0
160 SEN=V+21:L$="                                        ":DIMN$(NAZ),F$(1)
170 N$(1)="RAHMENSPRITE":POKESEN,0
171 G$(1)="[210]AHMENSPRITE":POKESEN,0
180 N$(2)="JOYSPRITE"
182 G$(2)="[202]OYSPRITE":EN=251:HI=250:CT=252:POKEEN,0
190 HF=12:POKE53280,HF:POKE53281,HF
200 POKEV1,11:GOTO2400
210 PRINT"[147]DEMONSTRATION FUER :"
220 FORI=1TONAZ
230 PRINT""TAB(10)"[153]"I"[157] [146] [151]"N$(I)
240 NEXTI:POKEV1,27
250 PRINT""TAB(10)"[153]"I"[157] [146] [151]MIT CTRL-S KANN NUN"
260 PRINT""TAB(14)"[153]"N$(SF)
270 PRINT""TAB(14)"[151]ABGESPEICHERT WERDEN"
275 PRINT"DAS INPUT-BETRIEBSSYSTEM IST NUR AUF    DIESER SEITE ERREICHBAR
280 [161]A$:N[178][197](A$):[145]N[137]300,1860,2380
290 [137]280
300 [151]50258,127:[158]18176,0:[151]32767,255:[151]CT,[194](CT)[175][168]16:[151]HI,0
310 [151]53281,2:[151]53280,0
320 [153]"LOADSTOP";:PZ[178]9:[141]1800
330 S$[178]"BALLUS":B[178]0:VB[178]1:[141]1590
340 [151]EN,1:[151]V[170]1,0:[151]V,24:[151]AB,0:[151]CT,27:X[178]24:[139]DEMO[167]510
350 F1$[178]" OHNE "[170]N$(N)[170]" WAIT"
360 L2$[178][200](L$,(40[171][195](F1$))[173]2)
370 F$(1)[178]L2$[170]F1$:F$(0)[178]L$
380 [151]CT,27:BZ[178]255:Z[178]0
390 [129]I[178]1[164]2
400 [129]O[178][171]10[164]9.8[169]SP:[141]1730:[130]:[130]
410 F1$[178]" MIT "[170]N$(N)[170]" WAIT":[151]EN,1:[151]HI,0
420 L2$[178][200](L$,(40[171][195](F1$))[173]2)
430 F$(1)[178]L2$[170]F1$:F$(0)[178]L$
440 Z[178]0:[151]53281,5
450 F[178]24:[129]O[178][171]10[164]12.6[169]SP:[141]1730
460 [139]O[177][178]1[175]O[179][178]8[167][151]32767,2[174](8[171][181](O))[171]1
470 [130]:[141]1820:[141]1510
480 F[178]32:[129]O[178][171]12.6[164]12.6[169]SP:[141]1730:[130]:[141]1820
490 [151]SI[170]4,64
500 [129]I[178]1[164]2000:[130]
510 [151]32767,0:[151]53281,15
520 [153]""G$(N)" ERWEITERT DEN SICHTBAREN"
530 [153]"Y-(null)OORDINATENBEREICH FUER (null)PRITES VON"
540 [153]"BISHER 50 - 249 AUF 0 - 311, INDEM ES"
550 [153]"OBEN UND UNTEN DEN (null)AHMEN ABSCHALTET."
560 KK$[178]"FOR (null) WAIT POKE(null)VALRIGHT$(null)VAL(null) FOR VAL WAIT POKEVAL(null)STR$VAL":[153]KK$;
570 [141]1530
580 [153]"CHR$EHANDHABT WIRD DIESES (null)OOL MIT DREI "
590 [153]"(null)(null)(null)-ATNUFRUFEN.  STR$ER ERSTE ATNUFRUF DIENT"
600 [153]"ZUM ATNKTIVIEREN DES (null)OOLS. VALS WIRD DIE"
610 [153]"GESAMTE CHR$RAFIKORGANISATION GEAENDERT."
620 [153] KK$;
630 [141]1530
640 [153]"STR$ER (null)ERT NACH DEM (null)OMMA GIBT AN, OB  "
650 [153]"DER (null)EICHENSATZ INS (null)ATN(null) KOPIERT      "
660 [153]"WERDEN SOLL. 0 FUER KOPIEREN,        "
670 [153]"             1 FUER NICHT KOPIEREN.  "
680 [153]">(null)(null)(null) ATNSTR$(null)VAL(null)(null)VAL1,(null)VAL(null)(null)<                    "
690 [153] KK$;
700 [141]1530
710 [153]"STR$ER ZWEITE (null)(null)(null)-ATNUFRUF DEFINIERT DEN  "
720 [153]"(null)EICHENSATZ UM. (null)ERT IST HIER DER    "
730 [153]"PEEKILDSCHIRMCODE DES (null)EICHENS. VALS      "
740 [153]"FOLGEN DIE (null)ERTE FUER DAS PEEKITMUSTER. "
750 [153]">(null)(null)(null) ATNSTR$(null)VAL(null)(null)VAL2,(null)VAL(null)(null),ATN,PEEK,LEN,STR$,VAL,ASC,CHR$,LEFT$<"
760 [153] KK$;
770 [141]1530
780 [153]"ATNLS PEEKEISPIEL WIRD DER (null)TERN (*) UMDE-"
790 [153]"FINIERT (PEEKILDSCHIRM-LENODE 42)         "
800 [153]"LEFT$IERZU DRUECKEN SIE BITTE WAIT (null)         "
810 [153]"     * * * * * * * * * * * * * *     "
820 [153]">(null)(null)(null) ATNSTR$(null)VAL(null)(null)VAL2,42,1,2,4,8,16,32,64,128<"
830 [153] KK$;
840 [141]1530
850 [158]18579,42[170]128,254,253,251,255[171]8,255[171]16,255[171]32,255[171]64,127
860 [153]"(null)O SIEHT DER (null)TERN NACH DEM          "
870 [153]"(null)(null)(null)-ATNUFRUF AUS :                     "
880 [153]"                                     "
890 [153]"     * * * * * * * * * * * * * *     "
900 [153]">(null)(null)(null) ATNSTR$(null)VAL(null)(null)VAL2,42,1,2,4,8,16,32,64,128<"
910 [153]KK$;
920 [141]1530:[158]18176,0:[151]EN,0:[151]HI,1
930 [153]"STR$ER LETZTE SYS-ATNUFRUF DIENT ZUM ATNB-  "
940 [153]"SCHALTEN DES (null)OOLS. (null)IE HABEN DANN   "
950 [153]"WIEDER DEN GANZ NORMALEN PEEKILDSCHIRM  "
960 [153]"VOR SICH.                            "
970 [153]">(null)(null)(null) ATNSTR$(null)VAL(null)(null)VAL3<                         ":[151]32767,255
980 [153] KK$;
990 [141]1530
1000 [151]32767,0:[153]"STOP";:PZ[178]15:[141]1800:[153]"";
1010 [153]"(null)UN ZU DER (null)PRITE-(null)OSITIONIERUNG: (null)IE"
1020 [153]"(null)IE ES VON DER (null)-(null)OSITION KENNEN,    "
1030 [153]"MUESSEN (null)IE JETZT AUCH FUER (null)-(null)OSI-  "
1040 [153]"TIONEN GROESSER 255 EIN ZWEITES PEEKYTE "
1050 [153]"BENUTZEN. (null)IE KENNEN DIES SCHON VON  "
1060 [153]"(null)RIGHT$LEN-(null)EGISTER 16 FUER DIE (null)-(null)OSITION. "
1070 [153]">STR$IE (null)(null)(null)VAL-ATNDRESSE LAUTET 250<         "
1080 [153] KK$"STOP";:PZ[178]19
1090 [141]1530
1100 [141]1800:[153]" WAIT(null)RIGHT$LENLEFT$(null)RIGHT$CHR$: ATNUS TECHNISCHEN CHR$RUENDEN   "
1110 [153]"MUSSTEN ZWEI (null)RIGHT$LEN-(null)EGISTER SOWIE DER  "
1120 [153]"PEEKILDSCHIRMSPEICHER VERLEGT WERDEN.   "
1130 [153]"LEFT$IERDURCH VERSCHIEBEN SICH AUCH DIE  "
1140 [153]"(null)PRITEPOINTER.                       "
1150 [153]"PEEKILDSCHIRMSPEICHER :                 "
1160 [153]"ALT: 1024-2023 , NEU: 52224-53223    "
1170 [153]"(null)PRITEPOINTER      :                 "
1180 [153]"ALT: 2040-2047 , NEU: 53240-53247    "
1190 [153] KK$;:[141]1530
1200 [153]"STR$IE BEIDEN 'VERSCHOBENEN' (null)EGISTER : "
1210 [153]" ALT      NEU     ASCUNKTION           "
1220 [153]"53265     252    (null)RIGHT$LEN-(null)ONTROLLREGISTER"
1230 [153]"53270     251    (null)PRITES AN/AUS      "
1240 [153]"STR$IE ALTEN (null)EGISTER DUERFEN NICHT MEHR"
1250 [153]"BENUTZT WERDEN !                     "
1260 [153]"VALS FOLGT DIE GEAENDERTE (null)PEICHERAUF- "
1270 [153]"TEILUNG AUF EINEN PEEKLICK.             "
1280 [153]"                                     "
1290 [153] KK$;:[141]1530
1300 [153]"$0400-$07FF FREI                     "
1310 [153]"$C000-$C750 FREI FUER (null)PRITES ODER   "
1320 [153]"            (null)UPERTAPE                "
1330 [153]"$C751-$CBFF BELEGT VOM (null)OOL          "
1340 [153]"$CC00-$CFE7 NEUER PEEKILDSCHIRMSPEICHER "
1350 [153]"$CFF8-$CFFF NEUE  (null)PRITEPOINTER      "
1360 [153]"$D000-$DFFF (null)EICHENSATZ IM (null)ATN(null)       "
1370 [153]"$E000-$FFBF FREI FUER (null)PRITES ODER   "
1380 [153]"            HOCHAUFLOES. CHR$RAFIK      "
1390 [153] KK$;:[141]1530
1400 [153]"STR$IE NORMALEN (null)PRITE-PEEKLOECKE SIND NUN "
1410 [153]"FUER DEN (null)IDEO-LENHIP NICHT MEHR ER-   "
1420 [153]"REICHBAR. STR$IE NEUEN LIEGEN WIE FOLGT:"
1430 [153]"   PEEKLOCK     ATNDRESSE    PEEKERECHNUNG   "
1440 [153]"     0        49152     0*64+49152   "
1450 [153]"     1        49216     1*64+49152   "
1460 [153]"     2        49380     2*64+49152   "
1470 [153]"     3        49344     3*64+49152   "
1480 [153]"        U.S.W.                       "
1490 [153] KK$;:[141]1530
1500 [138]
1510 [153]""F$(BZ[175]1):BZ[178]255[171]BZ:[151]SI[170]18,32:[151]SI[170]18,33
1520 [151]SI[170]15,F:[142]
1530 [161]A$:[139]A$[179][177]"E"[175]A$[179][177]"W"[167]1530
1540 [139]A$[178]"E"[167][138]
1550 [142]
1560 [128]
1570 [139][185](0)[179][177]40[167][153]" ";:[137]1570
1580 [142]
1590 [140]
1600 [135]Q$:[139]Q$[179][177]S$[167]1600
1610 [129]I[178]64[172]B[170]16384[172]VB[164]I[170]63:[135]Q:[151]I,Q:[130]
1620 [142]
1630 [131]BALLUS
1640 [131]120,0,0,252,0,0,252,0,0,252,0,0,252,0,0,120
1650 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1660 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1670 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255
1680 [131]JOYDEM
1690 [131]120,0,0,180,0,0,252,0,0,132,0,0,204,0,0,120
1700 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1710 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1720 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255
1730 Z[178]Z[170]1:[139]Z[178]10[167][141]1510:Z[178]0
1740 [139]O[178][171]10[170]SP[167][141]1820
1750 Y[178]144[170]O[174]2:X[178]X[170]1.7:[151]SI[170]2,(Y[171]140)[175]255:[137]1770
1760 [129]I[178]1[164]3000:[130]:[151]EN,0
1770 [151]V,X[175]255:[151]V[170]16,X[173]256
1780 [151]V[170]1,Y[175]255:[151]HI,Y[173]256
1790 [151]EN,1:[142]
1800 [129]ZH[178]1[164]PZ:[153]"                                        WAIT";:[130]
1810 [142]
1820 [151]SI[170]11,32:[151]SI[170]11,33:[142]
1830 [159]1,8,15
1840 [161]#1,A$:[153]A$;:[139]ST[179][177]64[167]1840
1850 [160]1
1860 [151]50258,127:[153]"LOAD";
1870 S$[178]"JOYDE1":B[178]11:VB[178]0:[141]1590
1880 S$[178]"JOYDE2":B[178]13:VB[178]0:[141]1600
1890 [129]I[178]0[164]3:[151]V[170]I,145[170]I[172]12:[130]
1900 [151]V[170]21,3:[151]V[170]39,6:[151]V[170]40,1:[151]V[170]37,2:[151]V[170]38,0
1910 [151]2040,11:[151]2041,13
1920 [151]V[170]28,3:[137]2030
1930 [131]JOYDE1
1940 [131]2,160,0,10,160,0,42,160,0,40,10,160,160,10,128,160
1950 [131]10,0,160,0,0,160,0,0,160,5,0,160,5,64,40,5
1960 [131]80,42,160,0,10,160,0,2,160,0,0,0,0,0,0,2
1970 [131]0,0,2,0,0,2,0,0,2,0,0,2,0,0,2,255
1980 [131]JOYDE2
1990 [131]0,255,192,3,255,128,15,255,128,63,248,128,255,248,0,255
2000 [131]136,0,255,128,0,32,128,0,0,0,0,0,0,0,0,0
2010 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,34
2020 [131]0,0,34,0,0,34,0,0,34,0,0,34,0,0,34,255
2030 [151]53280,12:[151]53281,12
2040 [153]"LOADVERIFY "G$(2)" ERMOEGLICHT ES, UNAB-    "
2050 [153]" HAENGIG VON AKTIVEN PEEKASIC-(null)RO-   "
2060 [153]" GRAMMEN (null)PRITES MIT DEN MID$OY-   "
2070 [153]" STICKS AUF DEM PEEKILDSCHIRM    "
2080 [153]" SU BEWEGEN.                "
2090 [153]" (null)ERSUCHEN (null)IE ES JETZT GLEICH EINMAL ! STOP"
2100 [158]18720,1,0,4,24,50,295,175
2110 [158]18720,2,1,4,24,50,295,175
2120 K$[178]" (null) WAIT (null)VALRIGHT$(null)VAL(null)             ONON"
2130 [153]K$
2140 [151]646,1[171][194](646):[161]A$:[139]A$[179][177]"W"[167][129]I[178]1[164]100:[130]:[137]2130
2150 [153]"LOADVERIFY STR$ER ATNUFRUF ERFOLGT DURCH: "
2160 [153]"(null)(null)(null) ATNSTR$(null)VAL(null)(null)VAL,(null),(null),CHR$,(null),(null),PEEK,LEFT$"
2170 [153]"(null) STEHT FUER DEN LENONTROL-(null)ORT (1-2) "
2180 [153]"(null) FUER DIE (null)PRITE-(null)UMMER (0-7) "
2190 [153]"CHR$ FUER DIE CHR$ESCHWINDIGKEIT (0-15) "
2200 [153]"STR$IE NAECHSTEN VIER (null)ERTE GEBEN "
2210 [153]"DEN PEEKEREICH AN, IN DEM DER (null)PRITE "
2220 [153]"BEWEGT WERDEN KANN. "
2230 [153]" (null) UND (null) BESTIMMEN DEN OBEREN "
2240 [153]" LINKEN (null)UNKT. "
2250 [153]""
2260 [153]" PEEK IST DIE PEEKREITE UND "
2270 [153]" LEFT$ DIE LEFT$OEHE. "
2280 [153]"VERIFY"K$
2290 [161]A$:[139]A$[179][177]"W"[175]A$[179][177]"E"[167]2290
2300 [153]"LOADATNUSSCHALTEN KOENNEN (null)IE DAS LEFT$ILFS-  "
2301 [153]"(null)ROGRAMM FUER DEN ENTSPRECHENDEN "
2302 [153]"(null)ORT MIT "
2310 [153]"(null)(null)(null) ATNSTR$(null)VAL(null)(null)VAL,(null)(null)(null)(null)VERIFY"
2320 [153]K$:[141]1530
2330 [153]"LOADVERIFY ATNUSSERHALB VON RIGHT$(null)(null)(null)(null) 64 KANN "G$(2)
2340 [153]" AUCH MIT "G$(1)" ZUSAMMENARBEITEN"
2350 [153]" "G$(1)" MUSS DANN ZUERST "
2360 [153]" GESTARTET WERDEN. "
2370 [153]" VAL WAIT VAL(null)STR$VAL":[141]1530:[138]
2380 [139]SF[178]1[167]SF[178]2:[137]2400
2390 SF[178]1
2400 [151]AM[170]0,AD(SF,1)[175]255
2410 [151]AM[170]1,AD(SF,1)[173]256
2420 [151]AM[170]2,AD(SF,2)[175]255
2430 [151]AM[170]3,AD(SF,2)[173]256
2440 [137]210