1 POKE50257,16 10 POKE53280,14:POKE53281,6:PRINT"[154]":PRINT"[147]";:PRINTCHR$(142); 20 PRINT"R E S E T" 30 FORW=1TO1000:NEXT 40 V=53248 50 POKEV+22,PEEK(V+22)AND(255-8)OR7:POKE649,0 60 FORI=0TO2500:NEXT 70 POKE53280,14:POKE53281,6:POKE780,115:POKE782,228:SYS43806:PRINTCHR$(142) 80 PRINT""TAB(17)"KAUM BASIC-BYTES FREI" 90 POKEV+22,(PEEK(V+22)OR8)AND(255-7):POKE198,0:POKE649,10 100 PRINT:PRINT"READY." 110 FORI=1TO15:PRINT" [146]";"[157]";:FORI1=1TO300:NEXT:PRINT" ";"[157]"; 120 GETA$:IFA$<>""THEN140 130 FORI1=1TO300:NEXT:NEXT 140 PRINT"[147]" 150 PRINTCHR$(14):POKE53280,7:POKE53281,0:PRINT"[158]" 160 PRINT" [196]ER [210]ESET-[212]ASTER" 170 PRINT" ================" 180 PRINT"[215]IE OFT HAT MAN SCHON VOR DEM [208]ROBLEM" 190 PRINT"GESTANDEN, DASS DER [210]ECHNER BEIM [193]US-" 200 PRINT"TESTEN EINES [208]ROGRAMMES DURCH IRGEND-" 210 PRINT"WELCHE [198]EHLER ABGESTUERZT IST." 220 PRINT"[196]IE EINZIGE [205]OEGLICHKEIT WAR,DASS MAN" 230 PRINT"DEN [210]ECHNER AUS- UND EINGESCHALTET HAT." 240 PRINT"[196]ABEI HAT SICH DAS [208]ROGRAMM AUF NIMMER-" 250 PRINT"WIEDERSEHEN IN [204]UFT AUFGELOEST." 260 PRINT"[213]M DIESES ZU VERHINDERN, GIBT ES EINE" 270 PRINT"ELEGANTE [205]OEGLICHKEIT. [196]EN [210][197][211][197][212]-[212]ASTER." 280 PRINT"[197]R ERMOEGLICHT EINEN [211]YSTEM-[210]ESET, WOBEI"; 290 PRINT"DER [210]ECHNER IN EINEN AEHNLICHEN [218]USTAND" 300 PRINT"WIE NACH DEM [197]INSCHALTEN VERSETZT WIRD." 310 ZW=24:SW=2 320 GOSUB1650 330 PRINT"[147]" 340 PRINT"[193]LLE [208]ROGRAMME SIND NOCH IM [210][193][205] UND" 350 PRINT"KOENNEN WIEDERGEFUNDEN WERDEN." 360 PRINT"[215]IE? [199]ANZ EINFACH!!" 370 PRINT"[197]IN [194][193][211][201][195]-[208]ROGRAMM KANN MIT DER":PRINTCHR$(34); 380 PRINT"[210][197]-[206][197][215]";:PRINTCHR$(34);" [210]OUTINE AUS [201][206][208][213][212]64[146]" 390 PRINT"[193]USGABE 1/85 WIEDER ZUM [204]EBEN ERWECKT" 400 PRINT"WERDEN." 410 PRINT"[205]ASCHINENPROGRAMME SIND SOWIESO AUCH" 420 PRINT"OHNE ";CHR$(34);"[210][197]-[206][197][215]";CHR$(34);" NOCH IN [207]RDNUNG." 430 ZW=24:SW=2 440 GOSUB1650 450 PRINT"[147]" 460 PRINT" [215]IE FUNKTIONIERT DER [212]ASTER?" 470 PRINT"[201]N DEM [205]OMENT, DA DER [210]ECHNER EINGE-" 480 PRINT"SCHALTET WIRD,LEGT DER [212]IMER [206][197] 556" 490 PRINT"EINE ";CHR$(34);"0";CHR$(34);" AUF DIE [210][197][211][197][212]-[204]EITUNG, WODURCH" 500 PRINT"DIE [195][208][213] IN EINEN [210]UHEZUSTAND VERSETZT" 510 PRINT"WIRD." 520 PRINT"[196]ANACH FOLGT EIN [213]EBERGANG VON ";CHR$(34);"0";CHR$(34) 530 PRINT"NACH ";CHR$(34);"1";CHR$(34);", UND DER [210]ECHNER WIRD VERAN-" 540 PRINT"LASST ZUM [201]NHALT DER [193]DRESSEN $[198][198][198][195] " 550 PRINT"UND $[198][198][198][196] ZU SPRINGEN ([210][197][211][197][212]-[210]OUTINE)." 560 PRINT"[206]ACH EINEM SOLCHEN [213]EBERGANG ALSO," 570 PRINT"SPRINGT DER [210]ECHNER IMMER DIESE [210]OUTINE" 580 PRINT"AN UND WIRD IN EINEN DEFINIERTEN" 590 PRINT"[193]NFANGSZUSTAND GESETZT." 600 ZW=24:SW=2:GOSUB1650 610 PRINT"[147]" 620 PRINT"[205]IT DEM IM FOLGENDEN BESCHRIEBENEN" 630 PRINT"[210][197][211][197][212]-[212]ASTER KANN MAN DEN [211]PRUNG ZUR" 640 PRINT"[210][197][211][197][212]-[210]OUTINE KUENSTLICH ERZEUGEN." 650 PRINT"[215]ENN DER [212]ASTER MIT DER [210][197][211][197][212]-[204]EITUNG" " 660 [153]"UND MIT DER (null)ASSE-(null)EITUNG (CHR$(null)STR$) VER-" 670 [153]"BUNDEN UND ANSCHLIESSEND BETAETIGT" 680 [153]"WIRD, FINDET ZWANGSWEISE EIN ";[199](34);"0 1";[199](34) 690 [153]"(null)EBERGANG STATT." 700 [141]1580 710 [141]1150 720 [141]1650 730 [151]53281,15 740 [153]"LOAD"; 750 [153][199](142) 760 [153]"CONTWAIT "; 770 [153]" "; 780 [153]" RESET-TASTERCONT "; 790 [153]" "; 800 [153]" "; 810 [153]" "; 820 [153]" "; 830 [153]" "; 840 [153]" SYS(null)KERBECONT "; 850 [153]" SYSDER TASTERCONT "; 860 [153]"STOPNEWSYS(null)STOP*NEWCONT SYS SICHT AUF DIECONT "; 870 [153]" STOPNEWNEWCONTWAIT STOPLOGCOSCONT STOPNEWWAITNEWCONT "; 880 [153]" SYSWIRD ANCONT "; 890 [153]" STOPSINCONTWAIT STOPSINCONT SYSLOETPUNKTE"; 900 [153]" DESCONT STOPSINCONTWAIT 5 1"; 910 [153]" STOPSINCONT SYSPIN "; 920 [153]"6 STOP*COSCONT STOPLOG CONT 6 STOPCOSCONT STOPLOGRNDCONT SYSSTEC"; 930 [153]"KERS.CONT STOPGETCONTWAIT "; 940 [153]" STOPRNDCONT STOPGETCONT "; 950 [153]" SYSUND CONT STOPGETCONT 4 2 STOPGETCONTWAIT "; 960 [153]" "; 970 [153]"STOPSINCONT STOP*CONT STOPRNDCONT STOPSINCONTWAIT SYSPIN 6: RE"; 980 [153]"SETCONT SYSPIN 2 CONT STOPGETCONTWAIT 3 "; 990 [153]" STOPGETCONT "; 1000 [153]" STOPGETCONT STOPRNDCONT STOPGETCONTWAIT SYSPIN "; 1010 [153]"2: GNDCONT SYS CONT SYSGELOETET.CONT STOPLOGRNDCONT "; 1020 [153]" STOP*COSCONT "; 1030 [153]" STOPLOGNEWCONT STOPNEWCOSCONT "; 1040 [153]" "; 1050 [153]" STOPNEWWAITNEWNEWNEWNEWNEWCONTWAIT "; 1060 [153]" "; 1070 [153]" "; 1080 [153]" "; 1090 [153]" "; 1100 [153]" "; 1110 [153]" "; 1120 [153]" "; 1130 ZW[178]24:SW[178]2:[141]1730 1140 [137]1190 1150 [153]:[153] 1160 [153]"STR$AS ATNNSCHLIESSEN DES (null)ASTERS SEHEN (null)IE" 1170 [153]"IM NAECHSTEN PEEKILD." 1180 [142] 1190 [153]"LOAD":[153][199](142); 1200 [153]"CONTWAIT "; 1210 [153]" STECKER MIT TASTERCONT "; 1220 [153]" "; 1230 [153]" "; 1240 [153]" "; 1250 [153]" "; 1260 [153]" "; 1270 [153]" "; 1280 [153]" SYSSTECKERCONT "; 1290 [153]" SYS(null)CONT "; 1300 [153]" "; 1310 [153]" SYS(null)CONT "; 1320 [153]" STOPORTANTANTANTANTANTANTANTANTANSYS(null)STOPTANTANTANTANTANRIGHT$"; 1330 [153]"CONT STOPTANTANTAN=>="; 1340 [153]"TANTANTANTANTANTANTANSYS(null)CONT STOP(null)CONT "; 1350 [153]" STOPTANTAN=>TANTANTANTANTANTANTANEXPCONT SYS(null)CONT STOP(null)CONT "; 1460 [153]" STOP/TANTANTANTANTANTAN"; 1470 [153]"TANTANTANTANTANTANTANSYS(null)STOPTAN(null)CONT "; 1480 [153]" SYS(null)CONT "; 1490 [153]" SYSSO WIRD DER TA"; 1500 [153]"STER AMCONT SYS(null)CONT "; 1510 [153]" "; 1520 [153]" SYSTASTERCONT SYSSTECKER A"; 1530 [153]"NGELOETET.CONT "; 1540 [153]" "; 1550 ZW[178]24:SW[178]2:[141]1730 1560 [141]1810 1570 [153]"CONT";:[137]40 1580 [153]:[153]"(null)UM PEEKAUEN DES (null)VAL(null)VAL(null)-(null)ATN(null)(null)VAL(null)S BENOETIGT" 1590 [153]"MAN EINEN 6-POLIGEN STR$RIGHT$(null) (null)TECKER UND" 1600 [153]"EINEN (null)ASTER ((null)CHLIESSER). 1610 PRINT:PRINT"[196]ER FERTIGE [212]ASTER WIRD IN DEN SERIELLEN"; 1620 PRINT"[194][213][211] GESTECKT UND KANN DANN BENUTZT " 1630 PRINT"WERDEN." 1640 RETURN 1650 PRINTCHR$(14) 1660 POKE214,ZW:POKE211,SW:SYS58640 1670 PRINT"[215][197][201][212][197][210][160][205][201][212][160][215] "; 1680 GETX$:POKE204,0:IFX$=""THEN1680 1690 IFPEEK(207)THEN1690 1700 POKE204,1 1710 IFX$="W"THENRETURN 1720 GOTO1680 1730 PRINTCHR$(142); 1740 POKE214,ZW:POKE211,SW:SYS58640 1750 PRINT"WEITER MIT W "; 1760 GETX$:POKE204,0:IFX$=""THEN1760 1770 IFPEEK(207)THEN1770 1780 POKE204,1 1790 IFX$="W"THENRETURN 1800 GOTO1760 1810 PRINT"[147]":POKE53280,7:POKE53281,0:PRINTCHR$(14):PRINT"[158]" 1820 PRINT"[206]ACHDEM [211]IE DEN [210][197][211][197][212]-[212]ASTER BETAETIGT" 1830 PRINT"HABEN, ERSCHEINT FOLGENDES [194]ILD:" 1840 ZW=24:SW=2:GOSUB1650:RETURN