) A500:20: ** PASCOMP-KCc ** HTHO:VTVE:S$"":I1 HT:S$S$" ":I HL0:HRHT:VL2:VRVT2:R$"":T$!1410:HO(HT(SR$)6)2:VE0:110$!150::::!"Ausdruck ueber"Y!$:" 1 den Bildschirm,"r!." 2 den Drucker"!8:"Welche Nummer ?";:210!BSCIN48:SC:SC2 SC1:1220!L:"Wieviel Leerzeichen"!V"am Zeilenanfang ";HL"`:"Wieviel Text-Zeichen"5"j"auf jeder Zeile ";I:HRHLI1R"t:"Wieviel Text-Zeilen"x"~"auf jeder Seite ";VR:VRVR3""(E) Endlospapier oder """(L) Lose Blaetter (E/L) ";"210:IN76 VL1:1220"IN69 250:1160 #:"Wieviel Leerzeilen"1#"am Seitenende ";VL:VRVRVLP#MM$"":HL0 MM$(S$,HL)u#1380:M$MM$:ALVL:SC2 1360#(R$)HRHL 1820#1440:R$"" R$R$" "#R$R$D$:1240#SC2 SR$M$SR$:350:360:1290 $120:M$;SR$;:VEVE1:HO0:110:HL0+$ M$MM$:ALAL1:ALVR ;$SC1 1380^$VL0 I1 VL:360:I:1350$("Neues Blatt in Drucker einlegen"$2"druecke dann RETURN/ENTER"$<210:IN13 1340$FALVL$PSR$(S$,(HRHL(T$))2)T$:1270 %ZSR$"":1270:ALVL:!%dHO3:VEVT:110O%nSR$"Weiter: druecke ":150f%x210:IN13 1400|%100:ALVL:SR$T$%(S$,(HT(SR$))23);:150%::%D$%D$"" 1440%(D$,1)"." 1530%(D$,1)">" 1490&D$(S$,23(R$))(D$,2):$&(D$,1)"!" =&D$"!" D$"":1520L&D$(D$,2)\&1760:1450p&D$".E" 1580&J1:1760:T$"E N D E"&SR$"":1270:1270:SR$T$:1270:T$""&SR$"":1270:ALVL 1560&"950&,DD$(D$,2,1):D$(D$,3)'6DD$"R" 1640'@SC2 I'J(R$)6(D$)HRHL SR$R$:1270:R$""g'TM$;R$;:SR$D$:150:M$""'^HLHL(R$)(D$)6:R$"":1440'hDD$"M" 1670'rI(D$):MM$"":IHL0 1440'|MM$(S$,IHL):1440(DD$"P" J(D$):1760:1780:1440,(DD$"T" T$D$:J10:1760:1780:1600O(DD$"Q" R$R$(34)D$:1440c(DD$"F" 1730u(J(D$):1760(JJ1:J1 SR$"":1270:1720(DD$"C" 1750(SR$(S$,(HRHL(D$))2)D$:1270(1440)1820:SR$R$:1270:R$"":JJ1)")(SC1)(ALJVR)1800;)SR$"":1270:1270:[)ALVL SR$"":1270:1800a)u)KHRHL1(M$))&(R$)K )0(R$,K,1)" " 1870):KK1:K0 1840)DSR$"":1880)NSR$(R$,K1):R$(R$,K1))X1270:1820)b *a"PASCAL-Compiler KC compact"4*a".RH I N W E I S"j*a"!!Diese Dokumentation stimmt in vielem mit dem"*a"Begleitmaterial zum Rundfunkprogrammierkurs"*a"PASCAL ueberein. Trotzdem koennen geringe"*a"Abweichungen auftreten. So ist z.B. die"/+a"Ersatzkonstruktion fuer die KC 85-Compiler"_+a"(/ und /) beim KC-compact durch eckige"}+a"Klammern zu ersetzen."+b"!Dies ist zu beachten, wenn beim KC-c mit Hilfe"+ b"von PASCON die vom Rundfunk ausgestrahlten",b"PASCAL-Quellprogramme genutzt werden."., b".P0",".RP A S C O N"\,*b"!!Mit diesem Programm werden die KC 85",4b"Pascaltexte in KC-compact Pascalquelltexte",>b"konvertiert. Zu beachten ist jedoch, dass diese",Hb"konvertierten Programme nur durch die Eingabe"-Rb"!.RG"," oder ",".Rg"O-\b"!in den KC-c Pascal-Compiler eingelesen werden."y-fb"Moeglich ist auch das Einlesen mit"-pb"G,,Leerzeichen. Die Angabe eines Namens"-zb"nach dem 2. Komma ist nicht moeglich."-b".P0",".RLaden des Compilers"+.b"!!Nach dem Laden eines kurzen Vorprogrammes"a.b"besteht die Moeglichkeit, die obere RAM-Grenze".b"zu veraendern (wie mit MEMORY xxxx in BASIC).".b"Danach erfolgt das Laden des Compilers, der ein"/b"selbststartendes MC-Programm ist und ca.20 KByte":/b"Speicherraum beansprucht.","!Somit stehen dem"p/b"Anwender noch max. 25 KByte fuer den Quelltext"/b"oder andere Programme zur Verfuegung.",".P0"/b"Nach dem Start des Compilers werden alle in der"0b"Kommandoebene aufrufbaren Funktionen auf dem"D0b"Bildschirm angezeigt. Ihr Aufruf erfolgt ueber"v0b"die Eingabe des einzigen im Kommando gross"0c"geschriebenen Buchstabens, gefolgt von bis zu 4"0c"Parametern.","!!Ein Verlassen des Compilers"1c"und damit der Uebergang zum KC-BASIC ist nur"G1$c"mit einem Kaltstart des KC moeglich (Tasten"z1.c"CTRL, SHIFT und ESC gleichzeitig druecken)."18c".P0",".RKommandobeschreibungen"1Bc"!!!G,,s","!!Laden von Quelltext von Kassette"2Lc"!Fehlt der Programmname s, wird die erste")2Vc"angebotene Datei eingelesen."[2`c"!!!L n,m","!!Listen des Quelltextes auf TV"2jc"!entspricht dem LIST-Kommando in BASIC, n und m"2tc"koennen fehlen"2~c"!!!Z n,m","!!Quelltextausgabe ueber Drucker"3c"!Dieses Kommando entspricht dem Kommando L n,m."J3c"!!!P n,m,s","!!Ausgabe des Quelltextes auf Kass."~3c"!Die Parameter n (1.Zeilennummer), m (letzte"3c"Zeilennummer) und s (Dateiname) sind unbedingt"3c"anzugeben, da sonst zwar eine Ausgabe erfolgt,"4c"aber die zuletzt eingegebenen Parameter"34c"eingesetzt werden."k4c"!!!U","!!Anzeige der letzten im Quelltextspeich."4c"vorhandenen Zeilennummer (Abfrage z.B. vor dem"4c"Kommando P zur Ermittlung von m)."4c"!!!S n","!!Einstellen der Aufzeichnungs - "25c"Geschw.","!Fuer n=0 oder fehlendes n wird 1000"g5d"baud (langsam) eingestellt. Jeder andere Wert"5 d"fuer n stellt 2000 baud (schnell) ein."5d"!!!X","!!Hexadez. Anzeige der ersten und letzten"5d"Adresse des Quelltextspeichers")6(d"!!!W","!!Umschalten zwischen 40 und 80 Zeichen"R62d"je Bildschirmzeile (alternierend)"6e"Compiler das Programm. Jede andere Taste bewirkt"8>e"die Rueckkehr in die Kommandoebene."o>e"!!!R","!!Start eines bereits mit C uebersetzten">e"Programmes">e"!!!T n","!!Uebersetzen des Quelltextes ab Zeile">e"n (bzw. bei fehlendem n des gesamten"?e"Quelltextes) und bei Beantwortung der Frage"B?e"'OK ?' mit Y oder y Abspeichern des"t?f"Objektcodes einschl. Runtime auf Kassette."?f"!!ACHTUNG!","!Dabei wird der Compiler zerstoert!"?f"!!Genauere Hinweise bitte in der Compiler-"@&f"Beschreibung (S.9) nachlesen!":@0f"!!!A","!!Neufestlegung der Speicherbereiche des"U@:f"Compilers im Dialog"s@Df".P",".RWortsymbole","!"@Nf"!AND DOWNTO IN PACKED TO"@Xf"!ARRAY ELSE LABEL PROCEDURE TYPE"@bf"!BEGIN END MOD PROGRAM UNTIL"!Alf"!CASE FORWARD NIL RECORD VAR"NAvf"!CONST FUNCTION NOT REPEAT WHILE"zAf"!DIV GOTO OF SET WITH"Af"!DO IF OR THEN"Af".P",".RStadardbezeichner","!"Af"!CONST","!MAXINT=32767; FALSE, TRUE"Bf"!!!TYPE","!!BOOLEAN=(FALSE,TRUE)"CBf"!CHAR (erweiterter ASCII-Zeichensatz)"dBf"!INTEGER=-MAXINT...MAXINT"~Bf"!REAL","!!!VAR","!"Bf"!ERRFLAG, ERRCHK: BOOLEAN"Bf"!RA, RB, RC, RD, RE, RF, RH, RL: CHAR"Bf"!RAF, RBC, RDE,RHL: INTEGER"Cf"!!!PROCEDURE","!!AFTER, ENT, ENV, EVERY,"TCf"EXTERNAL, HALT, INLINE, MARK, NEW, ONSQ, OUT,"Cg"PAGE, POKE, READ, READLN, RELEASE, SOUND,"C g"TIN, TOUT, USER, WRITE, WRITELN"Cg"!!!FUNCTION","!!ABS, ADDR, ARCTAN, CHR, COS,"D g"ENTIER, EOLN, EXP, FRAC, INCH, INITEVENT, INP,"GD*g"LN, ODD, ORD, PEEK, PRED, RANDOM, REMAIN,"|D4g"ROUND, SIN, SIZE, SQR, SORT, SUCC, TAN, TRUNC"D>g".P",".REinschraenkungen"DHg"!!Es sind keine File-Typen implementiert, jedoch" ERg"koennen Variablen beliebigen Typs auf Kassette"4E\g"oder Diskette abgespeichert werden."eEfg"!!Ein Record-Typ darf keinen Variant-Teil"Epg"enthalten.","!!PROCEDUREs oder FUNCTIONs"Ezg"sind nicht als Parameter zugelassen."Eg".P",".RFehlermeldung"Fg"!!Von den 73 moeglichen Fehlermeldungen des"FFg"Compilers stimmen die ersten 70 in Reihenfolge"wFg"und Inhalt mit denen ueberein, die in dem"Fg"schriftlichen Begleitmaterial zum Rundfunkkurs"Fg"PASCAL aufgefuehrt sind."Fg"!Dazu kommen noch die Meldungen:"'Gg"!!71 der Parameter muss eine Prozedur sein"XGg"!72 der Parameter muss eine parameterlose"yGg".M3","Prozedur sein",".M0"Gg"!73 max. fuenf Huellkurvenabschnitte"Gg".M3","zulaessig",".M0"Gg"!!Anmerkung der Redaktion REM:"Hh"!Es sind noch Exemplare der KC 85/87 Pascal"LHh"Compiler Beschreibungen vorhanden. Bezug:"{Hh"!Adressierter Rueckumschlag A5 und lose"H$h"Briefmarken im Wert von 2,-DM.",".E"H} ***************************H } H} PASCAL-Compiler zum KC compact I} (Kurzbeschreibung)I(} )I2} Andreas GartenII<} Friedersdorfer Siedlung 2_IF} O-8514 PULSNITZfIP} IZ} KC compact / 30.09.90Id} In} ***************************Ix}I} Erstausstrahlung: Deutschlandsender KulturI}-spezial 9011140.09.90Id} In} ***************************Ix}I} Erstausstrahlung: Deutschlandsender KulturI}-spezial 901114