‚17ÿÿœ A.FRIEDRICH GBW HA/NEU (C)1987KÃÿÿ1112:‰:œ!€9í°Í!"_ÉÍðÍ'ÍðÉÍð!6#6ï!6"»·#6"¹·!D"Á·!¤"¾·É!6*V+ý~þ +~þb(Íð!6ÉÍðÕÕ §(yþH õábyí°þ(> >> ÍðÍðÑ> ÀW{þz( þ> : ·§È>>Ö 0Æ þ ÍðÍðÉýåþ@0í[¦·þ`0Ö í[¨·í[¬·Ö`þ 8í[ª·Ö o&)))ý!ý"ª·~õËËñËËó#ýrýrýsýsý#ý# ÜÍð# ¢ ¡£ ýáÉ.œ BASIC-ERWEITERUNG FUER KC85/3 OKVU$(1)´"MENUE":U$(2)´"PEEK-PROGRAMM"pU$(3)´"BASIC-PLAETZE"‚U$(4)´"POKEN"™U$(5)´"ASCII-CODE"´U$(6)´"ZEICHENBASTELN"ÓU$(7)´"ZEICHENSATZ-ZEIGER"ïU$(8)´"FUNKTIONSTASTEN" U$(9)´"CURSOR-TASTEN":S´1:Œ400( Ý0,31,0,39:â0,7:™Džá(0,0);": G+A : PAGE "`žá(0,12);S:žá(0,14);":"s(žá(0,16);U$(S)€2Ý:â7,0:™†<ž½F‘ S Œ 1000,2000,3000,4000,5000,6000,7000,9000,8000ÅPÛ10ÎZâ0,7êdžá(31,15);"WEITER MIT";nžá(31,26);Ì(141);xžá(31,28);"(1->MENUE)";0‚A$´Õ:ŠA$´""ˆ130<ŒK´Ë(A$)S–ŠK´13 © S´S¬1:ˆ180q Š Kµ49 ² K³57 ©â16,7:ˆ100|ªS´K­48Ž´Š S´10 ˆ10000–¾ˆ10¬Ý0,31,0,39:â7,0:™ÂšÝ5,26,5,34:â0,7:™Ø¤Ý6,25,6,33:â7,0:™â®ž:ž:žñ¸ž#2" PEEK" ž:ž" UND" Ìž Öž#2" POKE"$ àž:ž:ž:žF êž" by A. Lange"l ôž" 1988":ž:žt ùÛ20ž þâ0,7:ž" KANN'S LOSGEHEN?(Y) ";² A$´Õ:ŠA$´""ˆ520¸ × èŽ ------------------------Ý òŽì üŽ MENUEò Ž Ž ------------------------ Ž $Ž% .ž:ž3 8 L´1 ¦ 9I Bžá(2®L¬4,4);U$(L)a Lžá(2®L¬4,28);"--->"t Vžá(2®L¬4,34);Lz W‚€ `œ ÐŽ ---------------------¢ ÚŽº äŽ PEEK - SCHLEIFEÀ îŽÜ øŽ ---------------------â Ž ž" MIT DEM FOLGENDEN PROGRAMM WERDEN"9 ž" IM WEITEREN VERSCHIEDENE SPEICHER-"\ ž" PLAETZE 'BESICHTIGT'.":ž:žb *žu 4ž#2" 10 CLS":ž‰ >ž#2" 20 INPUT";— Hž#2Ì(34);¦ Rž#2"ANF?";´ \ž#2Ì(34); fž#2";A":žà pž#2" 30 PRINT A, PEEK(A)"ú zž#2" , DEEK(A)":ž „ž#2" 40 A$=INKEY$:IF A$="( Žž#2" ";< ˜ž#2Ì(34);Ì(34);P ¢ž#2" GOTO 40":žo ¬ž#2" 50 A=A+1 : GOTO 30":ž{ ­ß23:Û40 ®žá(6,15);"PROGRAMM EINGEBEN!"¨ ¯Û40:ß7Ê ±žá(6,15);"PROGRAMM EINGEBEN!"Ð ¶ó ¸ Ž ***** BASIC-PLAETZE *****  ž" DAS BASIC-PROGRAMM IST AUF DEN"D Ì ž" SPEICHERPLAETZEN AB 1025 UNTERGE-"V Ö ž" BRACHT.":žƒ à ž" JEDE BASIC-ZEILE IST DORT FOLGENDER-"Ÿ ê ž" MASSEN NOTIERT:":ž:žË ô ž" -- AUF ZWEI SPEICHERPLAETZEN STEHT"ø þ ž" DIE ANFANGSADRESSE DER NAECHSTEN"( ž" PROGRAMM-ZEILE. (ALSO SIEHE DEEK)":žW ž" -- ZWEI PLAETZE FUER DIE ZEILEN-NR.":ž„ ž" -- ASCII-CODE DER EINZELNEN ZEICHEN"¯& ž" DER BASIC-ZEILE. (AUCH STEUER-"Õ( ž" ZEICHEN, ALSO NICHT IMMER"ö* ž" BUCHSTABENGETREU!)":ž0 ž" -- 00 ALS ZEILENABSCHLUSS": ž:N ž#2" GLEICH MAL":žVX ž#2" UEBERPRUEFEN!"\b ž~l ž" ( ANF. = 1025 )";„€ Ÿ Ž ***** POKEN *****˪ž" UM DEN NEUEN BEFEHL AUSZUPROBIEREN,"õ´ž" WIRD ZUNAECHST EINE WEITERE ZEILE"¾ž" (REM-ZEILE) EINGEFUEGT:"Èž:ž9Òž#2" 15 !!!!!!!!!!!!!!"AÜž:žoæž" AUSRUFEZEICHEN HAT DEN ASCII-CODE 33."›ðž" MIT DEM 'BESICHTIGUNGSPROGRAMM' DIE"Åúž" SPEICHERPLAETZE SUCHEN, AUF DENEN"îž" EINE 33 STEHT. DIE ERSTE 33 MUSS"ž" BLEIBEN,DIE WEITEREN KOENNEN MIT DEM"Gž" BEFEHL POKE SP,I VERAENDERT WERDEN:"O"ž:žh,ž#2" POKE .... , 65"p6ž:žš@ž" UND >ENTER< SETZT AUF DEN ENSPRE-"ÂJž" CHENDEN SPEICHERPLATZ SP EIN A."ÈTžä^ž#2" AUSPROBIEREN!" hž:ž" UND IM LISTING UEBERPRUEFEN!";‡ˆžB’ž" ZUM POKEN MUSS MAN DEN ASCII-CODE"jœž" DER ZEICHEN KENNEN. DIE ZEICHEN"Žžž" UND DIE JEWEILIGE CODE-ZAHL"µ¦ž" LIEFERT DAS FOLGENDE PROGRAMM:"½°ž:žÎºž#2" 80 CLS"ÔÄžóΞ#2" 82 FOR I=33 TO 255":žØž#2" 84 PRINT CHR$(I),I"(âž:ž#2" 86 NEXT":ž:žRìž" MERKEN: ZAHLEN AB 48 , BUCHSTABEN"öž" AB 65 ! JETZT SIND SOGAR SCHON EIN-"¦ž" GRIFFE INS PROGRAMM MOEGLICH !"Í ž" GOTO 30 AENDERN IN GOTO 20":ž:žêž#2" AUSPROBIEREN!"ð|pÝ1, 9,0,39:ž*zž" SOLLEN IN EINEM PROGRAMM ZEICHEN"X„ž" VERWENDET WERDEN, DIE NICHT IN DIESER"‚Žž" LISTE VORKOMMEN, SO KANN MAN SICH"§˜ž" AUCH ZEICHEN SELBER BASTELN."Û¢ž:ž" DABEI GEHT MAN FOLGENDERMASSEN VOR:":ž:Û30ð¤ò0,172,319,172,7 ¬ž á (9,27);"WEITER?(Y)";#¶A$´Õ:Š A$´""ˆ6070QÀ™:ž:ž" --> 8 X 8 KAESTCHEN GROSSES FELD"mÊž" AUFZEICHNEN.":žuÞÛ30{üŽ‡Z´1 ¦9—K´180­16®Z ©ò44,K,172,K,4¯$‚»B Z´1¦9ÉLK´28¬16®ZÚVò K,164,K,36à`‚ jƒ12,14,14,12,14,16,16,10,16,18,20,8,20,10,20,12,20,14,20,16Ztƒ20,18,20,20,24,8,24,10,24,12,24,14,24,16,24,18,24,20dvÛ20:žxž á(9,27);"WEITER?(Y)"–zA$´Õ:Š A$´"" ˆ6266ž|™:žÉ~ž" --> JEDES KAESTCHEN IST EIN PIXEL"ó€ž" DES ZU ZEICHNENDEN ZEICHENS."!‚ž" DIE FUER DAS ZEICHEN NOTWENDIGEN"I„ž" PIXEL JETZT MARKIEREN:":Û70T…‹ 6250d† L´ 1 ¦ 19qˆ† A,B:Û5‚’ž á(A,B);"["ˆœ‚¦Û50«°ž á(9,27);"WEITER?(Y)"ÁºA$´Õ:Š A$´""ˆ6330ÇÄŽÏΙ:žýØž" --> JEDE DER ACHT ZEILEN STELLT EINE"+âž" DUALZAHL DAR (PIXEL MARKIERT ->1"Sìž" NICHT MARKIERT ->0). DIESE"|öž" DUALZAHLEN WERDEN NUN IHREM"¥ž" STELLENWERT ENTSPRECHEND..."´ Û140:â23,0Öžá(10,4);" 128. . . 8 4 2 1 Û40:ß7:žá(10,4);" 128. . . 8 4 2 1":Û404(ž" ...IN DEZIMALZAHLEN UMGEWANDELT.":Û40i2ƒ" 8"," 20"," 34"," 0","127"," 0","127"," 0"v< L´1 ¦8~F†A$–Pžá ((10¬2®L),25);A$ZÛ5§\‚:Û50Å^ž" ZAHLEN MERKEN!!!"Ó`Û20:é8,27çdž" WEITER?(Y)";ünA$´Õ:ŠA$´""ˆ6510xŽ‚ŽŒ™:ž>–ž" --> DIESE ZAHLEN KOMMEN DANN IN EINE"W ž" DATA-ZEILE."_ªÛ50q´Ý10,30,0,39:™y¾ž:ž–Èž#2" 100 DATA 8,20,34,0"¸Òž" "ÒÜž#2" 127,0,127,0"òæž" "ðž" "úÛ10 Ž&Ž,Ž2"Ý<,é8,27N6ž"WEITER?(Y)"c;A$´Õ:ŠA$´""ˆ6715r@Ý1, 9,0,39zJ™:ž¢Tž" --> ANSCHLIESSEND WERDEN DIESE"Ð^ž" ZAHLEN IN DEN BILDWIEDERHOLSPEI-"ýhž" CHER GEPOKT. ANFANGSADRESSE IST"|ž" 15368 ( MIT VPOKE )."'†Û60-Ý;šé18,2:ß23W¤ž#2"110 A=15368":Û30:ß7r¥é18,2:ž#2"110 A=15368"§Ý1, 9,0,39›©žá(9,25);"WEITER?(Y)"°«A$´Õ:ŠA$´""ˆ6827à­™:ž:ž" --> DAS POKEN ERFOLGT ZWECKMAESSIG"¯ž" MIT EINER (SPAETER AUF GROESSERE"=±ž" DATENMENGEN -MEHR ZEICHEN- ERWEI-"g³ž" TERBAREN) FOR-NEXT-SCHLEIFE."…µÛ40:žá(9,27);"WEITER?(Y)"š·A$´Õ:ŠA$´""ˆ6839´¸™:Ý:é25,0:I´1¦13:ž:‚¼¹Û30Æ»é13,2⽞#2"120 FOR L=A TO A+7"ìž:Û15Ìž#2" 130 READ Z" Öž:Û15%àž#2" 140 VPOKE L , Z"/êž:Û15Bôž#2" 150 NEXT"Lž:ž:žTÛ50€ž" DIESES PROGRAMM EINGEBEN UND"¨&ž" LAUFEN LASSEN >RUN 100ž" UNSER ZEICHEN GESCHRIEBEN."w!Rž" DAS KLEINE A IST WIEDER VERFUEGBAR"¡!\ž" NACH DEM BEFEHL VPOKE 14249,254 .®!fž:ž:Û 30Ê!pž#2" AUSPROBIEREN!"æ!zž á(29,27);"WEITER?(Y)"ý!„A$´Õ:Š A$´"" ˆ7300"‰™:ž/"Žž" UNSER ZEICHEN KANN AUCH MIT DEM "Y"˜ž" GROSSEN A AUFGERUFEN WERDEN. DER"„"¢ž" DAFUER ZUSTAENDIGE ZEIGER (CCTL0)"²"¬ž" WIRD MIT VPOKE 14247,187 UMGESTELLT."á"¶ž" ZURUECKSTELLEN MIT VPOKE 14247,238 !!"ç"Àž#Êž" !!! VORSICHT BEIM AUSPROBIEREN !!!!!"C#Ôž" (DIE GROSSBUCHSTABEN SIND DANN WEG!)"I#Þžq#èž" UNGEFAEHRLICHER IST ES MIT DEN" #òž" ZEIGERN VON 14251 UND 14253 (ZURUECK-"Ë#üž" GESTELLT WERDEN SIE EBENFALLS AUF"ã#ž" 238 BZW. 254):"é#ž$ ž#2" VPOKE 14251,187" $ ž8$ž" IN DIESEM FALL KANN DAS ZEICHEN ABER"I$ž" NUR MIT"O$$žj$.ž#2" PRINT CHR$(193)"p$8žž$Bž" AUFGERUFEN WERDEN(BZW.MIT CHR$(225)."¤$LžË$Vž" UMSEITIG DIE ZUSAMMENFASSUNG:"è$`ž á(29,27);"WEITER?(Y)";þ$jA$´Õ:Š A$´""ˆ7530%t™:ž2%~ž" VPOKE- BEM. BELEGUNG FUER "C%ˆž" ADRESSE "r%’ž" DES EIGENE STANDARD-"¡%œž" ZEIGERS ZEICHEN ZEICHEN":žÌ%¦ž" 14247 GROSSBUCHST. 187 238"÷%°ž" 14249 KLEINBUCHST. 187 254""&ºž" 14251 AB CHR$(193) 187 238"M&Äž" 14253 AB CHR$(225) 187 254"U&Ξ:žj&Ðò0,155,319,155,7p&Òž—&Øž" ANSTELLE DER 187 KOENNEN ANERE"Ã&âž" WERTE BENUTZT WERDEN,WENN DIE DATEN"î&ìž" AUF ANDERE SPEICHERBEREICHE GELEGT"'öž" WERDEN:":ž-'ž" A = ANFANG DES AUF DEN ZEIGER"^' ž" SPEICHERBEREICHES ZU POKENDER WERT":ž€'ž" 14856 . . . . . . . . 185"¢'ž" 15112 . . . . . . . . 186"Ä'(ž" 15368 . . . . . . . . 187"æ'2ž" 15624 . . . . . . . . 188"(<ž" 15880 . . . . . . . . 189"*(Fž" 16136 . . . . . . . . 190"0(Pž^(xž" ALLES KLAR ZUM SCHOENSCHREIBEN?"d(‚Žj(Œp(@Ž‹(JŽ -------------------‘(TŽ (^Ž CURSOR¦(hŽÁ(rŽ -------------------Ç(|ŽÍ(†ŽÓ(žû(šž" DIE TABELLE MIT DEM ASCII-CODE"$)¤ž" BEGANN AB 33 MIT DEN DRUCKBAREN"L)®ž" ZEICHEN. NIEDRIGERE CODE-WERTE"t)¸ž" BESITZEN STEUERFUNKTIONEN. DAS"š)ž" FOLGENDE PROGRAMM KANN DIESE"Ç)Ìž" CODE-WERTE NACH TASTENDRUCK ZEIGEN:"Ï)Öž:žê)àž#2"200 A$ = INKEY$":žÿ)áž#2"210 IF A$="; *âž#2Ì(34);*äž#2Ì(34);.*æž#2"GOTO200":žI*ôž#2"220 K = ASC(A$)":ž`*þž#2"230 PRINT K":žv* ž#2"240 GOTO 200"|* ž›* ž á(27,23);"AUSPROBIEREN!"¶*& žá(29,23);"WEITER?(Y)"Ë*0 A$´Õ:ŠA$´""ˆ8240Ñ*: ™×*D ž+N ž" MIT DEM BEFEHL 'PRINT CHR$(K)' KANN"-+X ž" NUN AUCH DIE JEWEILIGE FUNKTION"I+b ž" AUSGELOEST WERDEN."O+l žv+v ž" IM DIREKT-MODUS AUSPROBIEREN:"~+€ ž:ž˜+Š ž#2" PRINT CHR$(7)":ž³+” ž#2" PRINT CHR$(12)":žÎ+ž ž#2" PRINT CHR$(16)":žç+¨ ž:ž:ò0,100,319,100,7,² ž:ž" ALS ABSCHLUSS SOLL NUN NOCH EIN"=,¼ ž" MINI-PROGRAMM VORGESTELLT WERDEN,"e,Æ ž" DAS DEN ASCII-CODE DER CURSOR-",Ð ž" TASTEN BENUTZT, UM EINEN BILD-"¨,Ú ž" PUNKT ZU STEUERN:"Ã,ä žá(29,27);"WEITER?(Y)"Ù,î A$´Õ:Š A$´""ˆ8430ß,ø ™ç,!ž:ž- !ž#2"1 X=160 : Y=120":ž-!ž#2"2 PSETX,Y,7":ž?- !ž#2"3 A$=INKEY$":ž:ž#2"4 IF A$=";M-!!ž#2Ì(34);[-"!ž#2Ì(34);n-#!ž#2" GOTO 3":ž-*!ž#2"5 IF K=8 THEN X=X-1":ž¬-4!ž#2"6 IF K=9 THEN X=X+1":žË->!ž#2"7 IF K=10THEN Y=Y-1":žê-H!ž#2"8 IF K=11THEN Y=Y+1":žþ-R!ž#2"9 GOTO 2":ž.\!Ž .f!Ž.p!Ž.z!.#".(#ŽE.2#Ž ***** FUNKT.-TASTEN *****K.<#ŽQ.F#ŽW.P#Ž|.Z#ž" DER SPEICHERBEREICH FUER DIE"©.d#ž" FUNKTIONSTASTEN LIEGT IM BILDWIEDER-"×.n#ž" HOLSPEICHER. UM DORT HINEINZUSCHAUEN,"/x#ž" BENUTZT MAN DEN BEFEHL 'VPEEK' ."/‚#ž4/Œ#ž" DAZU WIRD DAS 'BESICHTIGUNGSPROGRAMM'"V/–#ž" IN ZEILE 30 GEAENDERT ZU:"b/ #ž:ž" ";/ª#ž#2"30 PRINT A,VPEEK(A)"…/´#ž®/¾#ž" JETZT ERST EINMAL ZWEI ODER DREI"Ø/È#ž" FUNKTIONSTASTEN BELEGEN UND DANN "þ/Ò#ž" 'BESICHTIGEN'! (ANF. = 14592)"0Ü#ž-0æ#ž" DIE BELEGUNG DER FUNKTIONSTASTEN"[0ð#ž" ENTSPRICHT GENAU DEN DORT GESPEICHER-"…0ú#ž" TEN ASCII-WERTEN. JEWEILS EINE 00"±0$ž" WIRKT ALS TRENNZEICHEN ZWISCHEN DEN"Õ0$ž" EINZELNEN TASTENBELEGUNGEN."Û0$ž 1"$ž" MIT 'VPOKE' KANN MAN NUN AUCH WEITERE"31,$ž" TASTEN BELEGEN: MIT DEM BESICHTI-"a16$ž" GUNGSPROGRAMM DAS ENDE DER BISHERIGEN"1@$ž" BELEGUNG AUFSUCHEN, DANN DIE ASCII-"¹1J$ž" WERTE DES GEWUENSCHTEN BEFEHLS DORT"â1T$ž" HINEINVPOKEN. (Z.B.:ENTER -> 13)"ý1^$žá(29,27);"WEITER?(Y)"2h$A$´Õ:ŠA$´""ˆ93202r$™:ž:žI2|$ž" GUENSTIG IST DIES MIT EINER SCHLEIFE"v2†$ž" WIE BEIM ZEICHENBASTELN (ZEILE 100)."£2$ž" BEIM AENDERN DES PROGRAMMS BEACHTEN:"©2š¤žÖ²¤$ž"  - DATA's WERDEN DIE ASCII-WERTE DER"ó2®$ž"  EINZELNEN TASTEN."ù2°$ž3²$ž" - 00 ALS TRENNZEICHEN NICHT"43´$ž" VERGESSEN!":3¸$ž\3Â$ž" - ANFANGSWERT A AENDERN!"b3Ì$žŽ3Ö$ž" - IN FOR...-ZEILE ANZAHL DER DATEN"£3à$ž" BEACHTEN."«3ê$ž:žÂ3ô$ž#2" VIEL ERFOLG!"Ê3þ$ž:žõ3%ž" EIN SOLCHES MINI-PROGRAMM KANN MAN"4%ž" AUCH IN EIN RICHTIGES PROGRAMM"H4%ž" EINBAUEN UND SO IM LAUFENDEN BASIC-"u4&%ž" PROGRAMM DIE FUNKTIONSTASTEN BELEGEN" 40%ž" UND SOGAR NOCH MITTENDRIN AENDERN!"¦4:%ž¬4D%ž²4N%Ž¸4X%Ž¾4b%ŽÄ4l%ŽÊ4v%ŽÐ4€%Ö4'Ü4'Ž5'œ!!!!!!B!!!!!!!!!!!!!!!!!!!!!!!5'Ž ***** ENDE ***** 5$'Ž45.'Ý0,31,0,39:â7,0>58'™:ž:žD5B'ž`5L'ž#2" AUF WIEDERSEHEN!"o5V' L´1 ¦ 20u5['ž{5`'‚5t'€Ž ***** ENDE ***** 5$'Ž45.'Ý0,31,0,39:â7,0>58'™:ž:žD5B'ž`5L'ž#2" AUF WIEDERSEHEN!"o5V' L´1 ¦ 20u5['žÿÿÿÿÿÿ