0 A200:20: KARAKTERS OP HET GRAFISCH-SCHERM GL$"":GH$"":AL$"":AH$"" LE$" "!FR0:280!L ****> MENU <****%!V100R!`"*************************************"!j"* ZEICHEN AUF DEM BILDSCHIRM *"!t"*************************************"!~"* *"""* 1 Zum Programm. *"3""* 2 Zeichen auf eine Zeile. *"`""* 3 Zeilen auf den Schirm. *"""* 4 Zeichen entwerfen. *"""* *"""* 5 Beenden. *"#"* *"A#"* *"n#"* *"#"* Gib Deine Wahl ein! *"#"* *"#"*************************************"#$ $ $/$( ****> VERWERKEN KEUZE <****B$27110:TYIN48Z$<(TY1)(TY5)1330d$FSRTYm$P300$Z" Gedrueckt wurde: ";SR$$d$n" Ist das RICHTIG (J/N) ?"$x7110$IN13 1430$IN74 1110$TY5 1490%TY 1510,2010,3010,4010,5010$%1110-%950O% *****> HET PROGRAMMA <*****X%100%"Mit d. Programm werden die Moeglich-":%"keiten und die Unmoeglichkeiten der":%"Textausgabe im Grafik-Mode dargestellt."%::%7010%&""Das Programm kann vielleicht eine An-":S&,"leitung sein fuer die, die erstmalig":~&6"mit Text im Grafik-Mode arbeiten.":&@:&J7010&T"Zuerst folgt eine Uebersicht der":&^"im Progr. benutzten Abkuerzungen,Terme":'h"und Variablen." 'r7010'|100?'"Dot : Bildpunkt auf dem Grafikschirm"l'"KM : Zeichefeld (rechteckig), in dem"'" man mit Dots ein Zeichen"'" erstellen kann."'"LB : Linksobener Dot eines KM.":'7010 ("DH : Anzahl Dots (horizontal) in""(" einem KM."M("DV : Anzahl Dots (vertikal) im KM."s("HP : horizontale Position des"(" Dots im KM von links an."("VP : vertikale Position des"(" Dots im KM von oben an.": )"KM(DH-1,DV-1) : Feld fuer KM.")7010:1001)&" (HP,VP)=(0,0):"T)0"Obere linke Position von KM"v):"auf dem Grafik-Schirm."::)D" (HP,VP) = (HG-1-DH,VG-1-DV):")N"Untere rechte Position von KM")X"auf dem Grafik-Schirm.":)b7010*l"HG und VG sind BC-3 Variablen, die"A*v"in einem Programm aufgerufen werden"n*"koennen, bzw. die Anzahl der Dots auf"*"einer horizontalen oder vertikalen"*"Bildlinie angeben."*7010*:*" Viel Erfolg"*7010*+ *****> KARAKTERS OP EEN REGEL <*****!+100O+"****> Zeichen auf einer Zeile <*****":q+"Eine Erlaeuterung? (J/N) ?"{+7110+(IN13)(IN74)2070+ 2310+HO0:VE2:110+ "Mit diesem Teil koennen wir unter-":,*"suchen, wieviel Zeichen auf eine Zeile":6,4"des Grafikbildschirm passen."::@,>7010q,H"Das Programm fragt nach DH und zeichnet":,R"dann eine Anzahl von Zeichen in Reihe.":,\"0 bis 9 gelangen hintereinander auf den":,f"Schirm. Darunter wird zweimal die":#-p"Anzahl der Zeichen ausgegeben."--z70106-100d-"In der oberen wird das angegebene DH":-"verwendet, waehrend in der unteren":-"der normale grafische TEXT-Mode":-"verwendet wird."::-7010 ."Danach ist es moeglich, es mit einem ":3."anderem Wert zu versuchen."::Z."Normalerweise liegt DH bei 8,":."beim Experimentiren zwischen 3-14.".::."Viel Erfolg!":.7010. 100. VR$"Fuer welches DH (3-14) : ". HO0:VE0:110/$ GL$"0":GH$"9":AL$"3":AH$"14"/. 7210+/8 DH(AW$)9/B 600:CN0M/j I0:J0:CDHHGW/t VE.4u/~ HO.2HG 1(DH1)HG C/ SRI:300/ 650/ II1:I10 I0/ JJ1/ HO/ HO.2:"HG=",HG:VE.48/ SRJ:300:A$SR$0 B$"Das sind "A$" Zeichen."0 K(B$)0 I1 K/0 SR$(B$,I,1)80 650D0 HOHOCK0 I[0 HO0:VE.56k0 SR$B$:650u0( 761002 VR$"Noch ein anderes DH (J/N) ?"0< HO0:VE.8:SR$VR$:6500F 71100Z (IN13)(IN74)23100 1001 "Von jedem Zeichen kann HO und PH":.1 "ausgedruckt werden."::P1 "Ist das noetig (J/N) ?"::Z1 7110t1 (IN13)(IN74)2800~1 70101 1 63101, I1:CDHHG:PH016 HO.2VG 1(DH1)HG C1@ SRI:CN0:CT2:310:A$SR$2J SRPH:CN0:CT3:310:B$SR$ 2T SRHO:CN3:CT5:310:C$SR$T2h SR$SP$"Zeichen "A$"; PH = "B$"; HO = "C$b2r 350:360u2| II1:PHPHDH}2 HO2 2 *****> REGELS <*****2 1002 " *****> ZEILEN <*****":2 "Eine Erklaerung? (J/N) ?"2 7110 3 (IN13)(IN74)30703 3300'3 HO0:VE2:110S3 "Mit diesem Teil koennen wir unter-":~3 "suchen, wieviele Zeilen auf einen":3 "Grafikbildschirm passen."::3& 701030 "Das Programm fragt nach DV und gibt":4: "dann die mit gewaehlten DV moeglichen":4D "Zeilen aus."::M4N "Danach ist es moeglich, es mit einem":s4X "anderen DV auszuprobieren."::4b 7010:1004l "Normalerweise wird DV bei 8":4v "liegen, beim Experimentieren":4 "zwischen 3 und 30."::4 7010%5 "Von jeder Zeile kann abgelesen werden,":U5 "auf welchem VE und PV die Zeile liegt.":k5 :"Viel Erfolg!"u5 7010~5 1005 VR$"Fuer welches DV mit(3-30) : "5 HO0:VE0:1105 GL$"0":GH$"9":AL$"3":AH$"30"5 72105 DV(AW$)6H 600:CN06R I1:CDVVG:PV0!6\ HO0?6f VE.2VG 1(DV1)VG CI6p CICNh6z SRI:CN0:CT2:310:A$SR$6 SRPV:CN0:CT3:310:B$SR$6 SRVE:CN3:CT5:310:C$SR$6 CNCI6 SR$"Zeile "A$"; PV = "B$"; VE = "C$6 6506 II1:PVPVDV7 VE 7 I27 VEIC.2VG>7 SRI1:CN0:CT2:310:A$SR$`7 SRIDV:CN0:CT3:310:B$SR$7 SRVE:CN3:CT5:310:C$SR$7 CN17SR$"Zeile "A$"; PV = "B$"; VE = "C$76507VR$"Noch ein anderes DV (J/N) ?"8$VEIC:SR$VR$:CN0:650 8.7110'8B(IN13)(IN74)330008t100^8~"Die ermittelten Werte koennen ausge-":x8"druckt werden."::8"Ist das noetig (J/N) ?"::871108(IN13)(IN74)3800870108863108I1:CDVVG:PV0 9VE.2VG 1(DV1)VG C*9(SRI:CN0:CT2:310:A$SR$J92SRPV:CN0:CT3:310:B$SR$j9<SRVE:CN3:CT5:310:C$SR$9PSR$SP$"Zeile "A$"; PV = "B$"; VE = "C$9Z350:3609dII1:PVPVDV9nVE9x9 **> Zeichen entwerfen <**9100:" **> ZEICHEN ENTWERFEN <**":9:"Eine Erklaerung ? (J/N) ?"C:7110]:(IN13)(IN74)4080g:4310z:HO0:VE2:110:"Mit diesem Teil entwerfen wir ein"::"Zeichen auf dem TEXT-Schirm."::"Danach schauen wir auf dem GRAFIK-":$;"Schirm, wie das Zeichen aussieht."::.;"7010X;,"Die Zeichen konstruieren wir auf":;6"einer leeren Matrix, von der wir":;@"erst DH und DV angeben muessen."::;J"Waehle DH und DV nicht kleiner als 5":;T"und nicht groesser als 15." <^7010:100; OPGEVEN DH EN DV <**=100=VR$"Fuer welches DH zw. (5-15) : "=HO0:VE0:110=GL$"0":GH$"9":AL$"5":AH$"15"=7210 >DH(AW$)3>VR$"Fuer welches DV zw. (5-15) : "F>HO0:VE3:110k>&GL$"0":GH$"9":AL$"5":AH$"15"u>07210>:DV(AW$)>DHO0:VE5:110>N"Die leere Matrix erscheint nun auf":>X"dem Schirm. Fuer den Cursor steht ein *": ?b:"Viel Erfolg."?l70102? **> MATRIX OMLIJSTEN <**;?100N?KM(DH1,DV1)W?VE0l?HO0 DH1:110y?"+":HO?HODH1?VE1 DV1:110?"+":VE?VEDV1?HODH 0 1:110?"+":HO? HO0?VEDV1 1 1:110@ "+":VE@*HO0:VEDV2:110<@4"Gebe '1' oder '0' ein.":g@>"Korrigieren mit der Korrekturtaste."@\ **> MATRIX INVULLEN <**@fVE1 DV@pHO1 DH@z110:"*";@7110@(IN48)(IN49)4780@IN127 6010@4730A110:(IN);A(HODH)(VEDV) 6110'AHO/AVEEAHO0:VEDV2:110jA"Eine Augenblick uld a.u.b.":A"Fuelle gerade KM(DH-1,DV-1). "A **> ARRAY VULLEN <**AI0 DV1AJ0 DH1AHO1J:VE1IA220AKM(J,I)IN48BJBI3B **> KARAKTER OP HET TEKST SCHERM <**> OPNIEUW STARTEN VOOR ARRAYEh"Es wird einige Zeit dauern, da": Er70102E|"ich eine Weile zum Ausdruck":SE"des Zeichens benoetige.":wE"Unterbrechen mit d. S-Taste."E7010E600EV.2VG 1(DV1)VG DVVGEH.2HG 1(DH1)HG DHHGE200:(IN$"S")(IN$"s")5610E5670FHFVF7610:600F100)F::MF5450: >> NAAR EINDE ONDERDEELSF}F **> KARAKTER OP GRAFISCH SCHERM <**F&I0 DV1F0J0 DH1F:AKM(J,I)FDA1 CN0FNA0 5740FXHOHJHG:VEVIVGFb620FlJFvIFGp ***> VERBETEREN <***%Gz110:" ":G(HO1)(VE1)JGHO1 6060VGHOHO1\GfGHODHrGVEVE1xGG ***> LAATSTE DOT <***GHTHO:VTVEGHO0:VE23:110G"Ist der letzte Punkt richtig (J/N) ? ";G7110 H(IN13)(IN74)6190:H110:" ";PHHOHT:VEVT:6040VH$`H.7010pH8HOHT:VEVTvHBH **> VRAGEN OM SPATIES <**H100H"Wieviele Lehrzeichen sollen am":H"linken Rand stehen ";:SLHSP$"":SL0 6380 II1 SLISP$SP$" ""II0IVE6:1106IZI **> KARAKTER NAAR PRINTER <**dI A$""sII0 DV1IJ0 DH1I(AKM(J,I)I2A0 KR$" "I<A1 KR$"*"IFA$A$KR$IPJDH1 6510IZSR$SP$A$Id350:360:A$""InJJxIJ7010J5JX *****> SPATIEBALK <*****DJb120:VIVEXJlVE23:HO0:110Jv" ****> Druecke SPACE <****";J7110:IN32 7040JVE23:HO0:110J" ";JVEVI:110JK **> INPUT MET LEGE BUFFER <**/K200:IN$"" 71108K210>KXK  **> INPUT GETAL <**|K*HIHO:VIVE:AL(AL$):AH(AH$)K4AW$""K>VR$;KH7110KR(AW$"")((IN13)(IN127))7240K\IN127 7360KfIN13 7340Lp(IN$GL$)(IN$GH$)7300Lz7240(LAW$AW$IN$:AW(AW$)ALHO(VR$):110:AW$;UL(AW$)4 7400_L7240~L((AWAL)(AWAH))7400LLL(AW$):AW$(AW$,L1)LHO(VR$AW$):110:" ";LAW(AW$)L7240L7010LHOHI:VEVI:110:7480 MSR(AW$):300"MHOHI:VEVI:110BMSR$;" ist nicht erlaubt!";LM7010gM$HOHI:VEVI:110:7220mM.M8I1 (VR$AW$)MB" ";MLIMVM ****> SPATIEBALK GRAF <****MCICN:HIHO:VIVEMHO0:VE23.04NSR$">>>> SPACE !!!! >>>>"NCN0:650 N71102NIN32 7650@NCN1:650VNCNCI:HOHI:VEVI\N N0u********************************N:u* KARAKTERS OP GRAFISCH SCHERM *NDu* *NNu* EEN DOE EN TEST PROGRAMMA *OXu* *?Obu* VAN *eOlu* *O}* J.WIELES *O }* HOOFDWAL 68 *O}* 4207 EE GORINCHEM *O}* *#P(}* FEBRUARI 1989 *IP2}* *oP<}********************************uPF}PP} TROS-RADIO DD 890607PZ} Pd} Uebersetzt vonPn} Ronald KnakPx} Dr.-H.-Wolf-Str.1P} SchwerinP} 2 7 5 8Q} am 3.11.900Q} -------------------------------------aQ} Erstausstrahlung: Deutschlandsender KulturvQ}-spezial 910626am 3.11.900Q} -------------------------------------aQ} Erstausstrahlung: Deutschlandsender KulturvQ}-spezial 910626