A4000:20: BASICODE-INFO 100 "=======================================" "*** ** *** *** *** *** *** ****"+!"* * * * * * * * * * * *"W!"*** * * ** * * * * * * *"!"* * **** * * * * * * * ***"!"* * * * * * * * * * * * "!"*** * * *** *** *** *** *** ****"!""*** * * **** ***""" * ** * * * *"I"" * * * * *** * * (C) BIDAT'89"e"" * * ** * * *"""*** * * * ***"""=======================================""""DIESES PROGRAMM INFORMIERT SIE UEBER"#"DEN SPRACHUMFANG VON BASICODE-3. GEBEN"B#"SIE EINEN BASIC-BEFEHL IHRES COMPUTERS"q#"EIN UND DAS PROGRAMM SAGT IHNEN, WIE"#"SIE MIT BASICODE-3 DIE ENTSPRECHENDE"#"FUNKTION AUSFUEHREN KOENNEN, ODER DASS"#"ES DAFUER NICHTS GLEICHWERTIGES GIBT." $:US$"BASICODE-3 INFO-SERVICE"Z$P$(88),P(88),Q$(63),R$(63),E(63),F(63),E$(24),F$(15)x$:I1 88:P$(I),P(I):I$$I1 63:Q$(I),R$(I),E(I),F(I)$.I:I1 24:E$(I):I$8I1 15:F$(I):I$B1120$L100$V:SR$US$:150:::%`"EINGABE BASIC-BEFEHL :";SR$@%j330:FR$SR$:100::SR$US$:150c%tFR$"ENDE" SR$FR$:150:950%x(FR$,5)"SONST" 2000:1200%~::SR$FR$:150::%1400%"UEBER DIESEN BEFEHL LIEGT KEINE INFOR-"&"MATION VOR. IN BASICODE-3 GIBT ES KEINE"7&"GENANNTEN FUNKTIONEN. WEITERHIN GIBT ES"f&"KEINE MASCHINENNAHEN FUNKTIONEN UND"&"NICHTS, WAS SPEZIELLE HARDWARE BRAUCHT"&"WIE SPRITES/PLAYER-MISSILE-GRAFIK, MAUS"&"U. JOYSTICK OD. SPEZIELLE SOUNDEFFEKTE."':24);"":210'11004'xJ0:I1 88:L(P$(I))U'(FR$,L)P$(I) JP(I):I89g'I:J0 1190'" IN BASICODE-3 :":'SR$Q$(J):(SR$)0 SR$"GOSUB "SR$'150::'"FUNKTION:":R$(J):'E(J)0 "EINGANGSPARAMETER:":E$(E(J))(2(F(J)0 "AUSGANGSPARAMETER:":F$(F(J))>(:1200X(100:SR$US$:150::u(SR$"SONSTIGES":150::("PROGRAMM:ZEILE1000-19999NUTZBAR"("ZEILE1000:A=STRINGSPACE:GOTO20"("ROUTINE IN 20 ENDET MIT SPRUNG ZU 1010")"DATAZEILEN:25000-29999",)"REMZEILEN :30000-32767"[)"BASICODE BENUTZT INTERN VARIABLEN OA-OZ")"NICHT VERWENDEN AUCH AS,AT,DI,EI,FN,GO")"GR,IF,LN,PI,SQ,ST,ST$,TI,TI$,TO")"ZEILENLAENGE MAXIMAL 60 ZEICHEN"))a"ABS",1,"AND",2,"ASC",3*a"ATN",4,"CHR",5,"COS",6:*a"DATA",7,"DEFFN",8,"DEF FN",8Y*a"DIM",9,"EXP",10,"FOR",11~*a"GOSUB",12,"GOTO",13,"GO TO",13*a"IF",14,"INPUT#",54,"INPUT",15*a"INT",16,"LEFT",17,"LEN",18*a"LET",19,"LN",20,"LOG",20+a"MID",21,"NEXT",11,"NOT",22%+b"ON",23,"OR",24,"PRINT#2",50K+ b"PRINT#",55,"PRINT",25,"READ",26r+b"REM",27,"RESTORE",28,"RETURN",29+ b"RIGHT",30,"SIN",31,"SGN",32+*b"SQR",33,"STEP",11,"TAB",34+4b"TAN",35,"THEN",14,"TO",11+>b"VAL",36,"CLS",37,"SCNCLR",37,Hb"POSITION",38,"AT",38-,Rb"LOCATE",38,"POS",39R,\b"INV",40,"FLASH",40,"BRIGHT",40w,fb"INKEY",41,"GET",41,"GETKEY",42,pb"SCREEN$",43,"VGET",43,zb"BEEP",44,"RND",45,"RAND",45,b"FRE",46,"STR$",47,"USING",48,b"UPCASE",49,"UCASE",49-b"LPRINT",50,"PRINT#2",50--b"SOUND",51,"PAUSE",52G-b"OPEN",53,"CLOSE",56e-b"GRAPHIC",57,"SCREEN",57-b"PLOT",58,"PSET",58,"DRAW",58-b"LINE",59,"DRAWTO",59,"DRAW TO",59-b"CHAR",60,"TEXT",60-b"STOP",61,"END",61.b"VARIABLE",62,"OPERATOR",63$.e"ABS(X)","ABSOLUTBETRAG",0,1O.e"AND","LOGISCHES UND (Z=X AND Y)",1,2z.e"ASC(X$)","ASCII-CODE 1. ZEICHEN",2,1.e"ATN(X)","ARCUSTANGENS VON X",3,3.e"CHR$(X)","ZEICHEN MIT ASCII-CODE X",3,4.e"COS(X)","COSINUS VON X",4,1!/e"DATA","KONSTANTENLISTE, AUCH STRINGS",0,0Y/e"DEFFNA(X)=F(X)","FUNKTIONSDEFINITION(A=A..Z)",3,1/e"DIM","FELDDEKLARATION MAX.2 DIM.AUCH STRINGS",0,0/e"EXP","EXPONENTIALFUNKTION",3,1/e"FOR I=A TO B STEP C","LAUFANWEISUNG",5,0 0e"GOSUB","UNTERPROGRAMMAUFRUF",6,010f"GOTO","UNBEDINGTER SPRUNG",6,0i0f"IF B THEN C","BEDINGTE ANWEISUNG ODER SPRUNG",7,00f"INPUT","EINGABEANWEISUNG FUER VARIABLE(NLISTE)"0&f8,500f"INT(X)","GANZZAHLIGER ANTEIL VON X",3,11:f"LEFT$(A$,N)","LINKER TEILSTRING",9,6+1Df"LEN(A$)","LAENGE EINES STRINGS",2,1`1Nf"LET A=B*C","WERTZUWEISUNG (LET KANN ENTFALLEN"i1Xf0,01bf"LOG(X)","NATUERLICHER LOGARITHMUS",3,11lf"MID$(A$,M,N)","MITTLERER TEILSTRING",10,11f"NOT","LOGISCHES NEIN A=NOT B",1,2%2f"ON X GOTO/GOSUB N","MEHRFACHVERZWEIGUNG UEBER X"/2f11,0W2f"OR","LOGISCHES ODER A=B OR C",1,22f"PRINT A;B","AUSGABE EINER VARIABLEN(LISTE)",0,72f"READ A,B","LESEN AUS DATA-TABELLE",0,52f"REM TEXT","KOMMENTAR",0,03f"RESTORE","DATA-ZEIGER SETZEN",0,023f"RETURN","RUECKKEHR AUS UNTERPROGRAMM",0,0_3f"RIGHT$(A$,N)","RECHTER TEILSTRING",9,13f"SIN(X)","SINUS VON X",4,13f"SGN(X)","VORZEICHENFUNKTION",3,83f"SQR(X)","QUADRATWURZEL",3,13 g"TAB(N)","POSITIONIERUNG AUF SPALTE N",3,04g"TAN(X)","TANGENS VON X",4,1B44g"VAL(X$)","WERT EINES STRINGS",2,1y4>g"100","TEXTMODUS EIN UND BILDSCHIRM LOESCHEN",0,04Hg"110","CURSOR POSITIONIEREN",12,04Rg"120","CURSORPOSITION ERMITTELN",0,94\g"150","DRUCKT AUFFAELLIG SR$",13,0"5fg"200","TASTATUR EINLESEN OHNE WARTEN",0,10Q5pg"210","TASTATUR EINLESEN MIT WARTEN",0,105zg"220","ZEICHEN VON BILDSCHIRM RUECKLESEN",12,115g"250","SIGNALTON AUSGEBEN",0,05g"260","ZUFALLSZAHL IN [0,1] ERMITTELN",0,16g"270","SPEICHER ORGANISIEREN",0,1276g"300","WANDELT WERT VON SR IN STRING SR$",15,13h6g"310","WANDELT WERT VON SR IN STRING",16,136g"330","WANDELT SR$ IN GROSSBUCHSTABEN",13,136g"350","DRUCKT SR$ OHNE ZEILENWECHSEL(GOSUB360)"6g13,0,"400","TONAUSGABE",17,0!7g"450","WARTET SD*0.1S ODER AUF TASTE",18,0C7g"500","DATEIEROEFFNUNG",19,0l7g"540","ZEILE LESEN AUS DATEI",20,147g"560","ZEILE IN DATEI SCHREIBEN",21,07g"580","DATEI ABSCHLIESSEN",20,07h"600","GRAFIKMODUS AKTIVIEREN, BILDSCHIRM LOE."7h0,15&8h"620","PUNKT SETZEN IN FARBE CN",22,0^8$h"630","LINIE VOM LETZTEN PUNKT ZUM AKTUELLEN",22,08.h"650","TEXT IM GRAFIKBEREICH AUSGEBEN",23,088h"950","PROGRAMMABSCHLUSS",0,08Bh"VARIABLEN","MAX.2 ALFANUM.ZEICHEN,1.ZEICH=BUCHST"8Lh24,0%9Vh"OPERATOREN","= ^ * / + - < <= <> >= >",0,0D9xi"B,C LOGISCHE AUSDRUECKE"Z9i"STRINGAUSDRUCK"v9i"NUMERISCHER AUSDRUCK"9i"WINKEL IM BOGENMASS"9i"A=ANFANGSWERT B=ENDWERT C=SCHRITTWEITE"9i"ZEILENNUMMER":i"B=LOG.AUSDRUCK C=ANWEISUNG OD.ZEILENNR.":i"TEXTKONSTANTE">:i"A$=STRINGAUSDRUCK N=ZEICHENZAHL"l:i"A$=STRINGAUSDRUCK M=STARTPOS. N=ANZAHL":i"X=NUM.AUSDRUCK N=LISTE VON ZEILENNUMMERN":i"HO=HORIZONTALE VE=VERTIKALE POSITION":i"SR$=STRING":i"FR=0 BREAK EIN FR=1 BREAK AUS";j"SR=NUMERISCHER WERT"D;j"SR=NUM.WERT CT=LAENGE CN=DEZIMALEN"r;j"SP=TONHOEHE SD=TONDAUER SV=LAUTSTAERKE";"j"SD=WARTEZEIT";,j"NF$=FILENAME NF=FILENR/MODUS 0=IN 1=OUT BASICODE";6j"NF=FILENUMMER";@j"NF=FILENUMMER SR$=STRING"m"HG=SPALTENZAHL VG=ZEILENZAHL IN PIXELN"5>}-----------------------------S> } (C) BIDAT 11.7.89o>} AUTOR:BERTHOLD BIENER>} R.-EYERMANN-RING 4/06>(} 5063 ERFURT>2} ENTWICKELT AUF COMMODORE +4><}-----------------------------?F} Erstausstrahlung: Radio DDR?P} 9005303 ERFURT>2} ENTWICKELT AUF COMMODORE +4><}-----------------------------?F} Ers