100 REM DOKUMENTATION ZU SURFACE V1.1 110 IFPEEK(50178)+PEEK(50179)*256<>9888THENA=1:LOAD"SURFACE",8,1 120 IFA=1THENSYS49554 130 PRINT"[147]":_COLOR,15,2:GOSUB1000 140 _FRAME,0,0,39,24,"[211]URFACE [214]1.1" 150 _FRAME,1,1,21,7,"":_FRAME,21,1,38,7,"[205]ENUE":_FRAME,1,7,38,23,"[196]OKUMENTATION" 160 PRINT"[172][191][191][191][191] [211]URFACE [214]1.1" 170 PRINT"[161][161][161][161][161][161]" 180 PRINT"[162][187][162][187][187][187] (C) 1992" 190 PRINT"[188][146][187][161][146] [188][146][190]" 200 PRINT"[162][161][161][146] [161][161] [212]HOMAS [203]LEIN":_ICONS 210 REM MENUE 220 _ICOL,8,5,1,6 230 _WINDOW,22,2,37,6:_SHOW,M$(0),M+1,0,MR,O,MR,T:IFT<>13THEN230 240 _SHUT:PRINTLEFT$(M$(MR-1)+" ",16) 250 IFMR<4THEN:_WINDOW,2,8,37,22 260 ONMRGOSUB290,310,330,350,270:IFT=13ORT=88THEN220 265 IFT=43ANDMR<3THENMR=MR+1 267 IFT=45ANDMR>1THENMR=MR-1 269 GOTO260 270 FORI=0TO11:_UP,0,12,39,24:_DOWN,0,0,39,11:NEXT:PRINT"[147] "; 280 _OFF:END 290 _SHOW,B$(0),B+1,BE,0,BE,D,T 300 RETURN 310 _SHOW,SY$(0),S1+1,SY,0,SY,D,T 320 RETURN 330 _SHOW,SP$(0),S2+1,SP,0,SP,D,T 340 RETURN 350 _OFF:OPEN1,4,7:CLOSE1:IFSTTHEN:_ICONS:RETURN 360 OPEN1,4,7 370 FORI=0TOB:PRINT#1,B$(I):NEXT:PRINT#1:PRINT#1:PRINT#1 380 FORI=0TOS1:PRINT#1,SY$(I):NEXT:PRINT#1:PRINT#1:PRINT#1 390 FORI=0TOS2:PRINT#1,SP$(I):NEXT 400 CLOSE1:_ICONS:RETURN 1000 REM DATAS EINLESEN 1010 MR=1:BE=0:SY=0:SP=0 1020 READM:DIMM$(M):FORI=0TOM:READM$(I):NEXT 1030 READB:DIMB$(B):FORI=0TOB:READB$(I):NEXT 1040 READS1:DIMSY$(S1):FORI=0TOS1:READSY$(I):NEXT 1050 READS2:DIMSP$(S2):FORI=0TOS2:READSP$(I):NEXT 1060 RETURN 2000 REM DATAS 2010 DATA4,"[194]ASIC-[194]EFEHLE","[193]UFRUF MIT [211][217][211]","[211]PEICHERBELEGUNG","[193]USDRUCK","[197]NDE" 2020 DATA128 2030 DATA"[196]IE [194]ASIC-[194]EFEHLE","","" 2040 DATA"[211][213][210][198][193][195][197] WIRD MIT '[211][217][211]49554' INITIA-" 2050 DATA"LISIERT, [211][213][210][198][193][195][197]/[210][213][206] VERFUEGT UEBER" 2060 DATA"EINE [194]ASIC-[211]TARTZEILE UND KANN DES-" 2070 DATA"HALB MIT '[210][213][206]' GESTARTET WERDEN, AL-" 2080 DATA"DINGS IST DADURCH EIN [206]ACHLADEN" 2090 DATA"NICHT MOEGLICH. [196]IE [201]NITIALISIERUNG" 2100 DATA"DARF NUR EINMAL ERFOLGEN, DANACH" 2110 DATA"STEHEN DIE FOLGENDEN [194]EFEHLE ZUR" 2120 DATA"[214]ERFUEGUNG:","","" 2130 DATA"_[198][210][193][205][197],XO,YO,XU,YU,U$","" 2140 DATA"[218]EICHNET EINEN [210]AHMEN MIT DEN ANGE-" 2150 DATA"GEBENEN [197]CKEN UND DER [213]EBERSCHRIFT" 2160 DATA"U$. [203]REUZUNGEN MIT ANDEREN [210]AHMEN" 2170 DATA"WERDEN BERUECKSICHTIGT. [197]IN EINGE-" 2180 DATA"SCHALTETES [198]ENSTER WIRD GESCHLOSSEN.","","" 2190 DATA"_[215][201][206][196][207][215],XO,YO,XU,YU","" 2200 DATA"[207]EFFNET EIN [193]USGABEFENSTER INNERHALB" 2210 DATA"DER ANGEGEBENEN [199]RENZEN. [196]ER [193]BSTAND" 2220 DATA"ZUM [194]ILDSCHIRMRAND MUSS >1 SEIN.","","" 2230 DATA"_[211][200][213][212]","" 2240 DATA"[211]CHLIESST DAS [198]ENSTER. [193]LLE [193]USGABEN" 2250 DATA"GELTEN WIEDER FUER DEN GANZEN [194]ILD-" 2260 DATA"SCHIRM.","","" 2270 DATA"_[193][212],X,Y","" 2280 DATA"[211]ETZT DEN [195]URSOR AUF X/Y, BEZOGEN" 2290 DATA"AUF DIE LINKE OBERE [198]ENSTERECKE," 2300 DATA"OHNE [198]ENSTER AUF DEN GANZEN [194]ILD-" 2310 DATA"SCHIRM.","","" 2320 DATA"_[213][208],XO,YO,XU,YU","" 2330 DATA"[211]CROLLT DEN ANGEGEBENEN [194]EREICH EINE" 2340 DATA"[218]EILE NACH OBEN.","","" 2350 DATA"_[196][207][215][206],XO,YO,XU,YO","" 2360 DATA"[215]IE _[213][208], ABER NACH UNTEN.","","" 2370 DATA"_[211][200][207][215],F$(A),N,O1,R1,O2,R2,T","" 2380 DATA"[218]EIGT IM AKTUELLEN [198]ENSTER N [197]LEMEN-" 2390 DATA"TE DES [211]TRINGFELDES F$, BEGINNEND" 2400 DATA"BEI [197]LEMENT A AN. [213]MFASST DER ANGE-" 2410 DATA"GEBENE [194]EREICH MEHR [197]LEMENTE ALS DAS" 2420 DATA"[198]ENSTER [218]EILEN HAT, SO KANN MAN SICH" 2430 DATA"MIT [198]1-[198]7, [200]OME, [195]LR UND DEN [195]URSOR-" 2440 DATA"TASTEN BEWEGEN. O1 GIBT DAS AM [193]N-" 2450 DATA"FANG OBERSTE [197]LEMENT AN, R1, WELCHE" 2460 DATA"[218]EILE REVERS DARGESTELLT WERDEN SOLL" 2470 DATA"(BEI R1=0 KEINE). [201]N O2 UND R2 ER-" 2480 DATA"HAELT MAN DIE ENTSPRECHENDEN [215]ERTE" 2490 DATA"BEIM [214]ERLASSEN. [196]ER [195]URSOR STEHT DA-" 2500 DATA"NACH AUF DEM [193]NFANG DER REV. [218]EILE," 2510 DATA"FUER R1=0 IN DER ERSTEN. T ENTHAELT" 2520 DATA"DEN [193][211][195][201][201]-[195]ODE DER [212]ASTE, MIT DER" 2530 DATA"DER [194]EFEHL BEENDET WURDE('X', '+'," 2540 DATA"'-' ODER [210]ETURN).","","" 2550 DATA"_[198][197][212][195][200],R,V$,Z$,L,E$","" 2560 DATA"[203]ONTROLLIERTE [197]INGABE IN E$. [197]RLAUBT" 2570 DATA"SIND DIE IN Z$ ANGEGEBENEN [218]EICHEN," 2580 DATA"ABKUERZEND KOENNEN AUCH [195][212][210][204]-[206]([218]IF-" 2590 DATA"FERN), [195][212][210][204]-[203]([203]LEINBUCHSTABEN), [195][212][210][204]" 2600 DATA"-[199]([199]ROSSBUCHSTABEN) UND [195][212][210][204]-[218](ALLES" 2610 DATA"AUSSER [199]RAFIKZEICHEN, ? U. *) ANGE-" 2620 DATA"GEBEN WERDEN. V$ ENTHAELT DIE [193]NT-" 2630 DATA"WORTVORGABE, R BESTIMMT, OB NORMALE" 2640 DATA"(0) ODER REVERSE(>0) [218]EICHEN BENUTZT" 2650 DATA"WERDEN.","","" 2660 DATA"_[195][200][193][210][196][197][198],Z,B,D1,D2,D3,D4,D5,D6,D7,D8","" 2670 DATA"[193]ENDERT DAS [218]EICHEN MIT DEM [194][211]-[195]ODE" 2680 DATA"B IM [218]EICHENSATZ Z(0/1) GEMAESS DEN" 2690 DATA"[196]ATEN D1-D8.","","" 2700 DATA"_[195][207][204][207][210],R,H","" 2710 DATA"[194]ESTIMMT [210]AHMEN- UND [200]INTERGRUNDFAR-" 2720 DATA"BE. [208][207][203][197]53280/53281,... SOLLTE NICHT" 2730 DATA"BENUTZT WERDEN, DA DIE [211]PRITEDAR-" 2740 DATA"STELLUNG VON _[201][195][207][206][211] WEITERE [197]INSTEL-" 2750 DATA"LUNGEN BENOETIGT.","","" 2760 DATA"_[201][195][207][206][211]","" 2770 DATA"[211]TELLT IM UNTEREN [194]ILDSCHIRMRAND" 2780 DATA"ACHT [211]PRITES DAR, DIE UEBER EINEN" 2790 DATA"[202]OYSTICK IN [208]ORT 2 ANSTEUERBAR SIND" 2800 DATA"UND DEN [212]ASTEN [198]1, [198]3, [198]5, [198]7, -, +," 2810 DATA"X UND [210]ETURN ENTSPRECHEN. [193]UF-/[193]BBE-" 2820 DATA"WEGUNGEN WERDEN ALS [195]URSORSTEUERUNG" 2830 DATA"INTERPRETIERT.","","" 2840 DATA"_[201][195][207][204],A,F1,F2,R","" 2850 DATA"[211]ETZT DIE [198]ARBEN DER [211]PRITES(F1/F2)" 2860 DATA"UND DES [193]USWAHLRAHMENS(R). [211]ETZT DEN" 2870 DATA"[210]AHMEN AUF [211]PRITE A, BEI A=0 KEINE" 2880 DATA"[193]ENDERUNG.","","" 2890 DATA"_[207][198][198]","" 2900 DATA"[211]CHALTET _[201][195][207][206][211] WIEDER AB." 2910 DATA26 2920 DATA"[211][217][211]-[193]UFRUFE STATT [194]ASIC-[194]EFEHLE","","" 2930 DATA"[211]OLL [211]URFACE MIT ANDEREN [194]EFEHLSER-" 2940 DATA"WEITERUNGEN ZUSAMMEN BENUTZT WERDEN," 2950 DATA"SO KOENNEN ANSTATT DER NEUEN [194]EFEHLE" 2960 DATA"AUCH DIE FOLGENDEN [211][217][211]-[193]UFRUFE VER-" 2970 DATA"WENDET WERDEN. [196]IE [201]NITIALISIERUNG" 2980 DATA"MUSS IN DIESEM [198]ALL MIT [211][217][211]49564 ER-" 2990 DATA"FOLGEN.","","" 3000 DATA" [194]EFEHL: [211][217][211]-[193]DRESSE:","" 3010 DATA" _[198][210][193][205][197] 50176" 3020 DATA" _[215][201][206][196][207][215] 50498" 3030 DATA" _[211][200][213][212] 50563" 3040 DATA" _[193][212] 50450" 3050 DATA" _[213][208] 50947" 3060 DATA" _[196][207][215][206] 50954" 3070 DATA" _[211][200][207][215] 51700" 3080 DATA" _[198][197][212][195][200] 51077" 3090 DATA" _[195][200][193][210][196][197][198] 52272" 3100 DATA" _[195][207][204][207][210] 52334" 3110 DATA" _[201][195][207][206][211] 52446" 3120 DATA" _[201][195][207][204] 52688" 3130 DATA" _[207][198][198] 52741" 3140 DATA30 3150 DATA"[211]PEICHERBELEGUNG","","" 3160 DATA"[198]-[211]ET [201][201][201]: $[195]400-$[195][195][196][197]" 3170 DATA"[198]-[211]ET-[202]OY: $[195]19[195]-$[195]400" 3180 DATA" $[195][195][196][197]-$[195][197]3[195]" 3190 DATA"[211]URFACE-[194]AS: $[195]192-$[195]19[195]" 3200 DATA" $[195][197]3[195]-$[195][197][198]8","" 3210 DATA"[197]INSCHALTMELDUNG([211]URFACE/[210][213][206]):" 3220 DATA" $[195][197][198]8-$[195][198]2[195]","" 3230 DATA"[198]ETCH-[208]UFFER: $[195][198]00-$[196]000" 3240 DATA"[194]ILDSCHIRM: $[195]000-$[195]400" 3250 DATA"[218]EICHENSATZ: $[196]000-$[197]000" 3260 DATA"[211]PRITEDATEN: $[197]000-$[197]200","","" 3270 DATA"[196]ER NORMALE [194]ILDSCHIRMSPEICHER IST" 3280 DATA"UNGENUTZT UND KANN ZUR [196]ATENABLAGE" 3290 DATA"VERWENDET WERDEN.","" 3300 DATA"[210][213][206]/[211][212][207][208]-[212]ASTE ABSCHALTEN(NUR BEI" 3310 DATA"AUSGESCHALTETEN [201][195][207][206][211]):" 3320 DATA"[208][207][203][197]788,52:[208][207][203][197]52628,52:[208][207][203][197]52751,52" 3330 DATA"WIEDER EIN: ,49 STATT ,52" 3340 DATA"[196]IE [210]ESTORE-[212]ASTE IST IMMER ABGE-" 3350 DATA"SCHALTET.","" 3360 DATA"[212]EST OB [211]URFACE IM [211]PEICHER:" 3370 DATA"[208][197][197][203](50178)+[208][197][197][203](50179)*256=9888"