<% A10000:20: SOURCE.V4 T$(200),J(200): ZEILEN JE0:HHO:Z((H1)5):ZH5(Z1)  FR=1:GOSUB 280  9000!$SR$"Erlaeuterung ? - J/N - "F!.HO((H(SR$))2):VE8:110:SR$;_!8210:IN74 10000r!B ------ MENUE!LFL0:100:9000!VSR$" M E N U E "!`9260!jHO0:VE3:110!t" 1 - Eingabe":!~" 2 - Anzeige-Bildschirm":"" 3 - Drucken":2"" 4 - Speichern (Write)":N"" 5 - Laden (Read)":i"" 6 - Berichtigen":"" 7 - Erweitern":"" 8 - Loeschen":"" 9 - Erlaeuterung":"" X - Ende ":"" Eingabe: 1...9 oder X ";"210 #IN88 1330#IN55 FL18#(IN49)(IN57)1250I# IN53 1310t#IN48 2000,3000,4000,5000,6000:1100#IN53 7000,2000,8000,10000:1100#( ------ ENDE#2100:9000#<SR$"ENDE - Sicher ? - J/N - "$FHO((H(SR$))2):VE8:110:SR$;&$P210:IN74 FR0:280:9500$Z1100E$d ------ EINGABET$100:9000$FL1 SR$" E r w e i t e r n ":2030$SR$" E i n g a b e "$9260$(FL1)(JE0) 9090:$HO4:VE3:110:9120% CT3:CN0:V4:J1:FL1 JJE1:2370%SRJ:T$(J)"":L0/% HO0:VEV:110B%*310:SR$;":";K%4210g%>(IN13)(IN64)IN$""%HIN127 120:HHHO:HOHH1:110:IN$""%RHO4 HO4:110%\IN28 120:HHHO1:HOHH:110:IN$""&fIN29 120:HHHO1:HOHH:110:IN$""#&p(IN30)(IN31)IN$"":2080H&zIN$;:T$(J)T$(J)IN$:L(T$(J))Y&IN64 2260w&L(5(Z1)) 2280:2070&IN13 2100&&V18 JJ1:VV1&120&VE18 100:9000:2370&2070&JEJ:T$(J)"" JEJ1'9040:FL0:'HO4:VEV3:110:'"Wiederholen ! - Taste ! ";C'210V' HO4:VEV:110r' N0 (T$(J)):" ";:N' HO4:VEV3:110'$ " ";'. '8 'B FL1 SR$" E r w e i t e r n ":2390'L SR$" E i n g a b e "(V 9260 (` HO4:VE3:110:9120((j V4;(t HO0:VE4:110\(~ SRJ1:310:SR$;":";T$(J1)f( V5:{( ------ ANZEIGE( 100:9000( SR$" A n z e i g e "( 9260( V3( JE0 9090:( J1 JE( HO0:VEV:110:T$(J):VV1) (T$(J))H VV1+) V17 9040:31202) J>) 9040:D)& S)0 100:9000q): SR$" A n z e i g e "{)D 9260)N V3)X )b ------ DRUCKEN)100:9000)SR$" D r u c k e n ")9260)JE0 9090:)HO0:VE3:110*"Drucker bereit ?"7*"Papier justiert ? - J/N -";K*210:IN74 S*Z0`*J1 JE*SR$" "T$(J):350:360:ZZ1*Z65 210:4140:Z1*J*"9040:*,N1 7:360:N:*6 ------ SPEICHERN*100:9000+SR$" S p e i c h e r n "+9260,+JE0 9090:?+HO0:VE5:110b+" 1 - BASICODE-3 (Cass.)":+" 2 - Ihr Computer (Cass.)":+" 3 - Ihr Computer (Disk.)":+" X - Abbruch"+HO0:VE12:110+ N0 H:"-";:N:,HO1:VE13:110:210,IN88 9040:/,((IN49)(IN51)51205,2H,<NF12(IN49)N,Fb,PHO0:VE11:110t,ZSRIN48:300,d"(";SR$;"):";,nHO5:VE11:110,x"Name (max. 7 Zch.): ";,F$"":F$,F$"" 9040:,NF$F$:500,SRJE:300:560--J1 JE -SR$T$(J))-560F-IN1 "Fehler !":JJEM-JV-580b-9040:u- ------ LADEN-p100:9000-zSR$" L a d e n "-9260--HO0:VE5:110-" 1 - BASICODE-3 (Cass.)": ." 2 - Ihr Computer (Cass.)":1." 3 - Ihr Computer (Disk.)":E." X - Abbruch"Y.HO0:VE12:110p.N1 H:"-";:N:.HO1:VE13:110:210.IN88 9040:.(IN49)(IN51)6120..$NF2(IN49)...8HO0:VE11:110.BSRIN48:300/L"(";SR$;"):";"/V" N a m e : ";0/`F$"":F$E/jF$"" 9040:P/tNF$F$^/~500:540t/JE$IN$:JE(JE$)/J1 JE/540/T$(J)IN$/IN1 "FEHLER !":JJE/J/580/9040:/ ------ BERICHTIGEN/X100:90000bSR$" Berichtigen "!0l926050vJE0 9090:H0HO0:VE3:110m0"Der Text umfasst";JE;"Zeilen."0"Start / Weiter => SPACE !"0"Ueberschreiben => 'C' !"0"Abbruch => 'X' !"0N1 H:"-";:N0J1:CT3:CN01SRJ:3101HO0:VE8:11071SR$;":";T$(J);:L(T$(J))O1HO0:VE8:110:210p1(IN67)(LZH) 7460:72001IN67 7260:72401IN88 9040:1 IN32 71401(JJE)(JE0) 9040:1 VE8 141*HO0:11014N1 H:" ";:N2>VE!2HJJ1:JJE1 9040:+2R7110E2\HO4:VE12:110:9120_2fT$"":HO0:VE13:110s2pSR$;":";T$(J);y2z2HO4:VE13:11022102IN13 IN$""2(IN27)(IN32)IN$"":73102IN127 IN$"":9180 3IN127 HOHO1:VE13:110:73103IN$;:T$T$IN$13IN13 7310>3T$(J)T$b3(IN13)(T$"")T$(J)"":7550p3VE8 15~3HO0:1103N1 H:" ";:N:3VE37520:3IN13 IN$""3$HO4:VE12:1103."Keine Berichtigung moeglich !" 48HO25:VE14:110 4B"Taste =>";:210&4L,4VJ4`T$"" T$(T$,(T$)1)P4jV4tc4~NJ JEu4T$(N)T$(N1)|4N4JJ1:JEJE1:4 ------ LOESCHEN4@100:90004JSR$" L o e s c h e n "4T92604^JE0 9090:5hSR$"LOESCHEN - Sicher ? - J/N - "?5rHO((H(SR$))2):VE8:110:SR$;N5|H1HO:210_5IN74 8090e55J1 JE:T$(J)"":J:JE05HOH1:VE10:1105"Quelltext geloescht !"59040:55 ------ SUBROUTINEN5(#SR$"Pascal - Quelltexte"!62#HO((H(SR$)6)2):VE0:110,6<#150:26F#J6P#SR$"Taste =>":250s6Z#HO((H(SR$)6)2):VE23:110:1506d#120:HOHO1:VE23:110:210:IN586n#6x#6#HO9:VE8:1106#"Kein Quellcode !":9040:6#6#N1 Z16#"----+";7#N 7#:7#'7# ------ ASCII 127M7#LX(T$(J)):LX2 T$(J)" ":LX1Y7#LZLX4n7#HOLZ:VE13:1107#IN127 92007$HOLZ:VE13:1107$" ";:T$(J)(T$(J),(T$(J))1):T$T$(J)7$7"$ ------ ZENTRIEREN8,$HO((H(SR$)6)2):VE1:11086$150:8@$18J$ ------ ERLAEUTERUNGENG8'100:9000:10820u8'"Mit diesem Programm kann der Quelltext"8$'"eines Pascal-Programms aufgestellt"8.'"und als sequentielles File (Diskette"88'"oder Cassette) gespeichert werden.":%9B'"Ob und inwieweit dieses File Grundlage"P9L'"einer Kompilation sein kann, haengt"9V'"von dem benutzten Pascal-Compiler ab.":9`'"Ggf. ist eine Konvertierung oder An-"9j'"passung erforderlich. In jedem Fall":t'"ist es moeglich, den Quelltext ueber".:~'"den Bildschirm oder den Drucker aus-"X:'"zugeben, ihn zu speichern oder als":'"BASICODE-File zu uebertragen."::'"Entsprechendes gilt fuer Programme,":'"die in Assembler oder einer anderen";'"Programmiersprache aufgestellt sind.";'9040:100:9000:10820;;'"Eingabehinweise (1):":g;'"- Es koennen alle ASCII-Zeichen ein-";'" gegeben werden - auch Sonderzeichen,";'" wie (,) (.) (:) (;).":;'"- Steuerzeichen koennen nicht ver-"<'" wendet werden. Es ist nur eine"6<(" Berichtigung (vergl. # 6) moeglich.":<< (i<("- Die Laenge einer Programmzeile ent-"<(" spricht der - je nach Computer - auf"<((" dem Bildschirm moeglichen Anzahl"<2(" von Zch./Zeile (32, 40, 42, 64, 80).":=<("- Die Eingabe einer Zeile wird mit"B=F(" ENTER / RETURN abgeschlossen."^=P(9040:100:9000:10820|=Z("Eingabehinweise (2):":=d("- Nur ENTER / RETURN bildet eine Leer-"=n(" zeile.":=x("- Die Eingabe eines Textes wird mit">(" der letzten Zeile abgeschlossen.";>(" Mit der Eingabe des Zeichens '@'"h>(" (Kaufmaennisches 'zu', Klammeraffe)">(" als letztes oder erstes Zeichen in">(" einer Zeile, kehrt das Programm in">(" das Haupt-Menu zurueck.":>(9040:100:9000:10820?("Speicherplatz:":??("Sollte nach Laden/RUN ein OUT OF"l?("MEMORY-Error angezeigt werden, ist in"?("Zeile # 1010 die Dimensionierung zu"?("ueberpruefen."?(9040:100:9000:10820?)"Berichtigen:": @)"Mit Betaetigung der Leertaste werden"6@)"die einzelnen Zeilen des Quelltextes"d@")"angezeigt. Nach Druecken der 'C'-Taste"@,)"kann die angezeigte Zeile berichtigt"@6)"(ueberschrieben) werden. Die Korrektur"@@)"wird mit ENTER/RETURN abgeschlossen.":AJ)"Die Berichtigung ist NICHT moeglich,"CAT)"wenn die tatsaechliche Zeilenlaenge"kA^)"groesser als die auf dem eigenen"Ah)"Computer darstellbare ist.":Ar)"Erweitern:":A|)"Mit diesem Programmteil kann ein"A)"Quelltext erweitert werden. Fuer"B)"Eingabe und Abschluss gelten die"=B)"Hinweise zu - EINGABE - ."YB)9040:100:9000:10820lB)"Loeschen:":B)"Im Modus BERICHTIGEN kann mit 'C'"B)"und ENTER/RETURN eine Textzeile ge-"B)"loescht werden.":C)"Soll zeichenweise von rechts geloescht"3C)"werden, so ist DELETE (ASCII 127) zu"FC)"druecken.":YC)"Ausdruck:":C)"Die Routine ist fuer den Druck von"C*"65 Zeilen (80 Zeichen/Zeile) + 7"C*"Leerzeilen je Seite eingestellt."C*"U.U. sind die Zeilen ab # 4000 ff."D&*"zu aendern."D0*9040:"D:*@DD*SR$" Erlaeuterung "JDN*9260_DX*HO0:VE3:110:eDb*D} --------------------------D } FRIEDRICH DORMEIERD} BISMARCKSTR. 11AD} D-1000 BERLIN 39D(} (030) 803 31 11D2}E<} C64/C128 - 8/1990"EF} --------------------------@EP} MIT DANK AN J. HAUBRICH[EZ} (STICHTING BASICODE)|Ed} --------------------------En} Erstausstrahlung: DS-KulturEx}-spezial 900822 HAUBRICH[EZ} (STICHTING BASICODE)|Ed} ----------------------