Ì+"èA´500:ˆ20:Ž --- BASICODE + PASCALW"òHT´HO:VT´VE:S$´"":I´1 ¦HT:S$´S$¬" ":‚I}"üHL´0:HR´HT:VL´2:VR´VT2:R$´"":†T$¤"Œ1410:HO´(HTÈ(SR$)6)¯2:VE´0:Œ110³"Œ150:ž:ž:žÉ"ž"Ausdruck ueber"è"$ž:ž" 1 den Bildschirm,"#.ž" 2 den Drucker" #8ž:ž"Welche Nummer ?";:Œ210D#BSC´IN48:žSC:ŠSCµ³2 ©SC´1:ˆ1220a#Lž:ž"Wieviel Leerzeichen"#V„"am Zeilenanfang ";HL#`ž:ž"Wieviel Text-Zeichen"Ä#j„"auf jeder Zeile ";I:HR´HL¬I1á#tž:ž"Wieviel Text-Zeilen"$~„"auf jeder Seite ";VR:VR´VR3&$ˆž"(E) Endlospapier oder "G$’ž"(L) Lose Blaetter (E/L) ";d$œŒ210:ŠIN´76 ©VL´1:ˆ1220}$¦ŠINµ³69 © Œ250:ˆ1160™$°ž:ž"Wieviel Leerzeilen"À$º„"am Seitenende ";VL:VR´VR¬VLß$ÄMM$´"":ŠHL³0 ©MM$´Í(S$,HL)%ÎŒ1380:M$´MM$:AL´VL:ŠSC´2 © Œ1360%ØŠÈ(R$)³HRHL © Œ1820:%âŒ1440:ŠR$µ³"" ©R$´R$¬" "M%ìR$´R$¬D$:ˆ1240s%öŠSC´2 ©SR$´M$¬SR$:Œ350:Œ360:ˆ1290œ%Œ120:žM$;SR$;:VE´VE¬1:HO´0:Œ110:HL´0º% M$´MM$:AL´AL¬1:ŠALµ´VR ©Ê%ŠSC´1 ©1380í%ŠVL³´0 ©I´1 ¦VL:Œ360:‚I:ˆ1350&(ž"Neues Blatt in Drucker einlegen";&2ž"druecke dann RETURN/ENTER"R&<Œ210:ŠINµ³13 ©1340\&FAL´VLƒ&PSR$´Í(S$,(HRHLÈ(T$))¯2)¬T$:Œ1270œ&ZSR$´"":Œ1270:AL´VL:°&dHO´3:VE´VT:Œ110Þ&nSR$´"Weiter: druecke ":Œ150õ&xŒ210:ŠINµ³13 ©1400'‚Œ100:AL´VL:SR$´T$,'ŒžÍ(S$,(HTÈ(SR$))¯23);:Œ1506'–ž:ž:>' †D$O'ªŠD$´"" ©1440f'´ŠÍ(D$,1)´"." ©1530~'¾ŠÍ(D$,1)µ³">" ©1490ž'ÈD$´Í(S$,23È(R$))¬Ï(D$,2):³'ÒŠÍ(D$,1)µ³"!" ©Ì'ÜŠD$´"!" ©D$´"":ˆ1520Û'æD$´Ï(D$,2)ë'ðŒ1760:ˆ1450ÿ'úŠD$µ³".E" ©1580(J´1:Œ1760:T$´"E N D E"D(SR$´"":Œ1270:Œ1270:SR$´T$:Œ1270:T$´""c(SR$´"":Œ1270:ŠALµ³VL ©1560l("ˆ950‰(,DD$´Ï(D$,2,1):D$´Ï(D$,3)(6ŠDD$µ³"R" ©1640ª(@ŠSC´2 ©Ø(JŠÈ(R$)¬6¬È(D$)³´HRHL ©SR$´R$:Œ1270:R$´""ö(TžM$;R$;:SR$´D$:Œ150:M$´"")^HL´HL¬È(R$)¬È(D$)¬6:R$´"":ˆ1440.)hŠDD$µ³"M" ©1670O)rI´Ê(D$):MM$´"":ŠI¬HL´0 ©1440h)|MM$´Í(S$,I¬HL):ˆ1440)†ŠDD$´"P" ©J´Ê(D$):Œ1760:Œ1780:ˆ1440»)ŠDD$´"T" ©T$´D$:J´10:Œ1760:Œ1780:ˆ1600Þ)šŠDD$´"Q" ©R$´R$¬Ì(34)¬D$:ˆ1440ò)¤ŠDD$µ³"F" ©1730*®J´Ê(D$):Œ1760(*¸J´J1:ŠJ³1 ©SR$´"":Œ1270:ˆ1720<*ÂŠDD$µ³"C" ©1750c*ÌSR$´Í(S$,(HRHLÈ(D$))¯2)¬D$:Œ1270m*Öˆ1440*àŒ1820:SR$´R$:Œ1270:R$´"":J´J1–*ê±*ôŠ(SC´1)²(AL¬J³VR)©1800Ê*þSR$´"":Œ1270:Œ1270:ê*ŠALµ³VL ©SR$´"":Œ1270:ˆ1800ð*+K´HRHL¬1È(M$)+&ŠÈ(R$)µ´K ©.+0ŠÏ(R$,K,1)´" " ©1870C+:K´K1:ŠK³0 ©1840T+DSR$´"":ˆ1880s+NSR$´Í(R$,K1):R$´Ï(R$,K¬1)ƒ+XŒ1270:ˆ1820¢+¨aƒ" - BASICODE + Pascal - "Ù+²aƒ"Mit dem Programm 'SOURCE.V4' kann der Quelltext",¼aƒ"(Sourcecode) eines Pascal-Programmes"2,Æaƒ"aufgestellt, geaendert, erweitert und"`,Ðaƒ"schliesslich als sequentielles File im"•,Úaƒ"BASICODE-3-Format gespeichert und uebertragen"¤,äaƒ"werden."×,îaƒ"!!Das Programm kann dann auf dem Bildschirm"-øaƒ"angezeigt oder auch ausgedruckt werden."9-bƒ"!!Einleitend muss darauf hingwiesen werden,"j-bƒ"!! - dass Pascal-Programme nur nach einer"œ-bƒ"Compilation ablaufen, die von dem Programm"Í- bƒ"'SOURCE.V4' nicht durchgefuehrt wird, und"Ø-*bƒ".P0".4bƒ" - dass die Einhaltung der Syntaxregeln von"<.>bƒ"Standard-Pascal und die Abweichungen, die"n.Hbƒ"einzelne Compiler bieten, nicht ueberwacht"ž.Rbƒ"wird. Das uebertragene Programm ist u.U."Ê.\bƒ"insoweit an den verwendeten Compiler"Ý.fbƒ"anzupassen."è.pbƒ".P0"/zbƒ"Voraussetzung fuer eine Nutzung der in den"K/„bƒ"Sendungen 'Computermagazin' und/oder 'REM"z/Žbƒ"spezial' ueber DS/Kultur ausgestrahlten"±/˜bƒ"Programme ist der Besitz eines Pascal-Compilers"ã/¢bƒ"und eines Disketten-Laufwerkes. Laeuft die"0¬bƒ"Compilation ueber Cassette ab - sofern"E0¶bƒ"moeglich -, so ist dies recht zeitaufwendig."x0Àbƒ"!!Im folgenden soll dargestellt werden, wie"®0Êbƒ"Pascal-Programme, die im BASICODE-3-Format als"à0Ôbƒ"sequentielle Files mit Hilfe des Programms"1Þbƒ"'SOURCE.V4' uebertragen wurden, auf dem"A1èbƒ".RCommodore C-64","und dem",".RC-128","als"i1òbƒ"Quelltexte fuer eine Compilation"Š1übƒ"verwendet werden koennen."•1cƒ".P0"±1cƒ".R1. Pascal-Compiler"â1cƒ"!!Es wurden folgende Compiler betrachtet:"þ1$cƒ"!!- Oxford-Pascal 64"%2.cƒ"! Limbic Systems UK Ltd., 1984"B28cƒ"!!- Oxford-Pascal 128"q2Bcƒ"! Systems Software (Oxford) Ltd., 1986"2Lcƒ"!!- Pascal 64 vers. 1.4"º2Vcƒ"! Markt & Technik Verlag AG, 1986"Ú2`cƒ"!!- Pascal 128 vers. 2.0"3jcƒ"! Markt & Technik Verlag AG, 1987".3tcƒ"!!- TurboPascal 3.0 (CP/M-Version)"T3~cƒ"! Borland International, 1987"_3ˆcƒ".P0"y3’cƒ".R2. Oxford-Pascal"¯3œcƒ"!!Der als BASICODE-File uebertragene Quelltext"Û3¦cƒ"ist mittels des Programms 'CON-1' zu"ð3°cƒ"konvertieren:"4ºcƒ"!! 'bname' -> 'name.src'"A4Äcƒ"!!Mit GET kann dieses File als Quelltext"j4Îcƒ"eingelesen und compiliert werden."š4Øcƒ"!!Ein auf Diskette mit PUT gespeichertes"Æ4âcƒ"Quellprogramm ist mit 'CON-2' in ein"ç4ìcƒ"BASICODE-File zu wandeln:"5öcƒ"!! 'name' -> 'bname'";5dƒ"!!Dieses File kann dann mit 'SOURCE.V4' weiter"T5 dƒ"behandelt werden."_5dƒ".P0"5dƒ"Die unter 'bname' gespeicherten Files im"Å5(dƒ"BASICODE-3-Format koennen NICHT mit GET direkt"ò52dƒ"als Quellprogramm eingelesen werden !"ý57–dƒ"! p. 264-267"c7 dƒ"!! Markt & Technik Verlag AG"n7ªdƒ".P0"ž7´dƒ"Der BASICODE-3 File ist mit dem Programm"Ð7¾dƒ"'CON-1' in ein sequentielles File fuer den"ö7Èdƒ"C64 bzw. C128 zu konvertieren:"8Òdƒ"!! 'bname' -> 'name.src'"E8Üdƒ"!!Das Programm 'name.src' kann mit dem"s8ædƒ"Befehl (primary command) INPUT bzw. IN"£8ðdƒ"als Sourcecode gelesen und anschliessend"½8údƒ"compiliert werden."ê8eƒ"!!Mit dem Befehl OUTPUT bzw. OUT kann"9eƒ"der Inhalt des Arbeitsspeichers, d.h. der"E9eƒ"Quelltext des Pascal-Programms als"r9"eƒ"sequentielles File gepeichert werden."}9,eƒ".P0"§96eƒ"Die fuer diese Schritte verlangten"Ñ9@eƒ"Parameter erhalten folgende Werte:"ö9Jeƒ"!!Device number : 8 oder 9":Teƒ"!Secondary address: 4"8:^eƒ"!!Name fuer IN: name.src,S,R"c:heƒ"! oder: 0:name.src,SEQ,READ"ƒ:reƒ"!Name fuer OUT: name,S,W"¬:|eƒ"! oder: @0:name,SEQ,WRITE"Ò:†eƒ"!!Code of delimiter : 13"ø:eƒ"!Truncate trailing spaces: YES"-;šeƒ"!!Das so gewonnene File kann dann mit 'CON-2'"];¤eƒ"in ein BASICODE-3-File gewandelt werden:"~;®eƒ"!! 'name.src' -> 'bname'"‰;¸eƒ".P0"©;Âeƒ".R4. TurboPascal 3.0","!"Û;Ìeƒ"!!Auch hier ist der BASICODE-3-File zuerst"<Öeƒ"mit 'CON-1' in ein sequentielles File zu"<àeƒ"wandeln:"<<êeƒ"!! 'bname' -> 'name.pas'"o<ôeƒ"!!Anschliessend ist dieser neue File in das" <þeƒ"CP/M- oder MS-DOS-Format zu konvertieren."Ì<fƒ"Dafuer stehen folgende Programme zur"ß<fƒ"Verfuegung:"=fƒ"!! - BIG BLUE READER 128/64"*=&fƒ"! SOGWAP Software (1986, 1988)"Y=0fƒ"!! - 'BDOS', '64er', 6/1989, p. 56 ff."ˆ=:fƒ"!! - 'Janus', '64er', 2/1990, p. 67 ff."“=Dfƒ".P0"¿=Nfƒ"Trotz vieler Muehe und Sorgfalt sind"ñ=Xfƒ"Fehler nicht ausgeschlossen; der Verfasser">bfƒ"ist fuer Hinweise dankbar !"B>lfƒ"!!Vielleicht ist dieses Programmsystem"u>vfƒ"fuer andere ein Anlass, Aehnliches fuer den"©>€fƒ"von ihnen benutzten Computer zu entwickeln !"É>Šfƒ"!!(c) Friedrich Dormeier"æ>”fƒ"! Bismarckstr. 11a"?žfƒ"! D-1000 Berlin 39"?¨fƒ"! (030) 803 31 11"*?²fƒ".P0"F?¼fƒ".RHinweis","von REM:"u?Æfƒ"!!Die listings von CON-1 und CON-2 sind"¨?Ðfƒ"nur beim Rundfunk zu erhalten, wenn Sie uns"Ö?Úfƒ"einen an sich selbst adressierten und "@äfƒ"ausreichend frankierten Briefumschlag"&@îfƒ"zuschicken. Unsere Adresse:"Y@øfƒ"!!Funkhaus Berlin, Deutschlandsender Kultur"‹@gƒ"!Computermagazin REM, Kennwort: C64-PASCAL"ž@gƒ"!Nalepastr."¹@gƒ"!O-1160 BERLIN",".E"Û@}Ž ---------------------------ø@ }Ž (C) FRIEDRICH DORMEIERA}Ž BISMARCKSTR. 11A.A}Ž W-1000 BERLIN 39FA(}Ž (030) 8033111LA2}ŽaA<}Ž C-128 - 8/1990ƒAF}Ž ---------------------------‰AP}ŽºAZ}Ž Erstausstrahlung: Deutschlandsender KulturÏAd}Ž-spezial 901114C-128 - 8/1990ƒAF}Ž ---------------------------