2000#10: *** PILOT ***-I$""A826:(0)13VI$I$((0)):3 :M200:X0:Y0:A0:P0:Z0:I$"":S%(9),N%(26),S$(26),L$(M),C$(15):F%0"**** PILOT V2.1 ****":X826831:Z:X,Z::X015C$(X)::32,207,255,133,0,969LIST,RUN,SAVE,LOAD,NEW,BASIC,PLIST,T,J,E,U,M,C,A,I,HH("PILOT."g22::(I$)32(I$)150<(I$,1)" "I$(I$,2):60FL(I$):L0200PL1:HM:R$"":X1(I$):(I$,X,1)" "X:140ZR$(I$,X1):I$(I$,X1)$dL(R$):HL:X1(R$): (R$,X,1)"-":120FnL((R$,X1)):H((R$,X1))SxL0L1`H0HMX06:I$(C$(X),(I$)):"UNBEKANNTES KOMMANDO":40X1400,1000,500,600,700,800,390LM"ZEILENNUMMER AUSSERHALB DES BEREICHS":40%X((L)):X$(I$,X):X$""L$(L)"":50F(X$,1)" "X$(X$,2):220X3:(X$,2,1)":"X4:(X$,3,1)":"L$(L)X$:50Z715:(X$,1)C$(Z):"FALSCHES KOMMANDO":40(X$,2,1)"Y"ZZ10(X$,2,1)"N"ZZ20L$(L)(Z6)(X$,X):501,4:4101,37XLH:L$(X)""450fX$":":Z(L$(X)):Z30X$(L$(X),1):440Z20ZZ20:X$"N"X$Z10ZZ10:X$"Y"X$X$C$(Z6)X$1,X;X$;(L$(X),2)X$:X$""1:40:1:401,1,1,R$:"SAVING"R$:**DISC** 600 OPEN1,8,2,R$+",S,W":PRINT"SAVING "R$SX1M:L$(X)""530w1,X;(13)(34)L$(X)(34)(13);X:1:40X1,1,0,R$:"LOADING"R$Y**DISC** 600 PRINT"LOADING "R$:OPEN1,8,2,R$+",S,R"b1,X:ST630l1,L$(X):ST0610 v1:40102 " ZURUECK ZU BASIC...":^L0:X125:N%(X)0:S$(X)""::P0:F%0}LL1:LML$(L)"END"40X$:X$"@"40L$(L)""1010X(L$(L)):X401010X20XX20:F%11010X10XX10:F%010107C$(L$(L),2):X1100,1220,1300,1200,1500,1600,1700,1800,1900WB"FEHLER #"E"IN ZEILE"L:40LZ0:(C$,1)";"Z1:C$(C$,(C$)1)QX1(C$):X$(C$,X,1):X$"#"1150VX$"$"1160`X$;::Z0j1010~1190:X$(N%(Y)):1120 1190:X$S$(Y):1120<XX1:Y((C$,X,1))64:Y1Y26E1:1090BUP8E3:1090gPP1:S%(P)L(C$)0L(C$)1:1010X1M:C$L$(X):E2:1090LX:1010P0E4:1090LS%(P):PP1:1010 X1:C$C$",":X$AC$:(C$,1)"$"1590-ZX(C$):(C$,Z,1)","hZ$(C$,X,ZX):Y1(X$):(X$,Y,(Z$))Z$F%1:1010:Z(C$)XZ1:1510"F%0:10106Y((C$,2))64:Y1Y26E1:1090;X$S$(Y):X4:@A3:Z0:X$"":(C$,1)"#"(C$,3,1)"="E5:1090;JY1:X$(C$,A,1):AA1:(C$,A,1)"-"AA1:Y1rT(C$,A,1)"#"YY((C$,A)):AA((Y))1:1650^X((C$,A1))64:X1X26E1:1090cX18YY(1):1650hYYN%(X):AA2rX$"="ZYwX$"-"ZZY|X$"+"ZZYX$"*"ZZY)X$"/"Y0E6:1090;X$"/"ZZYNA(C$)1610}YN%(X1):X40(C$,X4)"-"X4AZZX((C$,2))64:X1X26E1:1090Z32767Z32767E7:1090N%(X)Z:1010C$""2:AC$I$::1010X((C$,2))64:X1X26E1:1090B2:Z(I$)::(C$,1)"#"N%(X)Z\(C$,1)"$"S$(X)I$f1010(C$,1)"#"E5:1090X((C$,2))64:X1X26E1:1090AN%(X):X$(C$,3,1):(C$,4,1)"#"X((C$,4)):1840&X((C$,5))64:X1X26E1:1090+XN%(X)40F%0:X$"<"AXF%1I:X$">"AXF%1^DX$"="AXF%1hN1010xl"";:1010" ERKLAERUNG (J/N) ?A$:A$""2010A$"J"" *** PILOT *** HAT FOLGENDE KOMMANDOS " LIST AA-EE " RUN " SAVE& " LOAD2 " NEW@ *" BASIC^ 4" PLIST AA-EE (DRUCKER)h >3000 H" * VARIABLEN * R"PILOT VARIABLEN BESTE-HEN ENTWEDER AUS '$' FUER";!\" STRINGS ODER '#' FUER NUMERISCHE VARIABLEN GEFOLGT VON(!f"EINEM EINZELNEN BUCHSTABEN.X!p"#N ODER $S IST RICHTIG$NAME IST FALSCH.b!z3000{!" * STATEMENTS *!"T: AUSGABE VON TEXT ODER VARIABLEN AUF DEM BILDSCHIRM";!"1T:VAL#X ->'VAL25'!" J: UND U:9""J: ENTSPRICHT GOTO UNDU: GOSUB.2 J:*PRINT SPRINGT ZUM UNTER-l"" PROGAMM MIT DEM NAMEN (LABEL) PRINT""LABELS NUR AM ANFANG DER ZEILE OHNE NACHF. STATMENTS.""" E: ENTSPRICHT RETURN"3000#"M: MATCH VERGLEICHT OB MEHRERE WOERTER IN EINEM STRING ODER IM";K#" INPUT PUFFER STEHEN10 M:JA,OK,J,KLAR#"PRUEFT OB JA,OK,J ODERKLAR IM INPUT PUFFER STEHEN. 10 M:$N JA,OK#"DURCHSUCHT DEN STRING.IST DAS WORT GEFUNDEN WIRD DIE 'Y' FLAG$"GESETZT, ANDERNFALLS 'N' FLAG (SIEHE MODI-FIKATION).Y$ "I: IF VERGLEICH, OB VAR. >,< ODER = SIND. ZB. 20 I:#N>9c$ 3000$ "C: COMPUTE RECHNEN IN DEN GRUNDRECHENARTEN 30 C:#N=#G*10/#T+10$$ "A: ACCEPT EING. VON WERTEN. ZB. 40 A:#N&%. "41 A:.. EINGABE IN DEN INPUTPUFFER, DER DURCH M: GENUTZT WIRD";M%8 " H: HOME ENTSPR. CLEAR SCREEN.%B " E: END STOPPT DAS PRG KANN NICHT MODIFI- ZIERT WERDEN%L " ***MODIFIKATION***%V "ALLE KOMMANDOS KOENNENDURCH'Y'ODER'N7 MODIFIZIERT WERDEN-&` "ZB. TY:JA DRUCKT'JA' NUR WENN DIE Y-FLAG GESETZT IST.7&j 3000T&t " * FEHLERMELDUNGEN *q&~ "1 FALSCHER VAR. NAME& "2 UNBEKANNTES LABEL& "3 SPEICHER VOLL& "4 SPEICHER LEER& "5 FALSCHE FORMATIERUNG& "6 TEILUNG DURCH 0' "7 WERT >32767' 3000Q' " UM EIN PILOT PRG. ZU STOPPEN, DIE @ TASTE DRUECKEN' "VON BASIC OHNE PRG. VERLUST MIT GOTO40 ZU PILOT ZURUECK' "VARIABLE M IN ZEILE 10 SETZT DIE MAX. ZEILENZAHL FEST.' " << TASTE >>' A$:A$""3010(