Brotikasten

home *** CD-ROM | disk | FTP | other *** search

/ Brotikasten / BROTCD01.iso / c128 / diskc2.d64 / textl1 < prev next >

Wrap

Text File | 1995-07-31 | 7KB | 401 lines

"╡╫ELCOME TO ╒WE ╙CHWESIG'S ├ 128ER ├LUB╢" "╡**************************************╢" "╡╠IEBE ├-128-┬ENUTZERIN, LIEBER ├ 128- ╢" "╡┬ENUTZER ! ╢" "╡╫IE IN UNSERER ─IR ZUGESCHICKTEN ╠ISTE╢" "╡VERSPROCHEN, ERHAELTST ─U EINE ╠ISTE ╢" "╡MIT ╘IPS & ╘RICKS FUER DEN ├ 128. ╢" "╡ ╢" "╡╞UER DAS REIBUNGSLOSE ╞UNKTIONIEREN ╢" "╡DIESER ╘RICKS KOENNEN WIR JEDOCH NICHT╢" "╡GARANTIEREN, DA WIR NICHT ALLE AUS= ╢" "╡PROBIERT HABEN... ╢" "╡ ╢" "╡01. POKE 2598,64 SCHALTET BLINKENDEN ╢" "╡ ├URSOR AB ╢" "╡02. POKE 0,111:POKE1,51 SCHALTET DIE ╢" "╡ ─╔╬-╘ASTATUR ╢" "╡ EIN ╢" "╡03. POKE 0,47:POKE1,115 SCHALTET 02. ╢" "╡ WIEDER AUS ╢" "╡04. SYS57344 LOEST ╥ESET AUS ╢" "╡05. 10 POKE 21,64 ╢" "╡ 20 INPUT '' EINGABE:'';A$ ╢" "╡ 30 POKE 21,0 ╢" "╡ ─IESE ╨OKES LASSEN DAS ╞RAGEZEI= ╢" "╡ CHEN BEI DER INPUT-╥OUTINE VER= ╢" "╡ SCHWINDEN ! ╢" "╡06. 10 BANK 1:POKE65528,3 ╢" "╡ ─IESE ╨ROGRAMMZEILE MACHT EINEN ╢" "╡ ╥ESET DES ├ 128 UNMOEGLICH ! ╢" "╡07. 10 BANK 1:POKE65528,77:POKE65529, ╢" "╡ 255:GO 64 ╢" "╡ ─IESE ╨ROGRAMMZEILE SCHALTET DEN ╢" "╡ ├ 128 DAUERHAFT IN DEN 64ER-═ODUS.╢" "╡ ┴UCH EIN ╥ESET FUEHRT WIEDER IN ╢" "╡ DEN 64ER-═ODUS. ┴BHILFE SCHAFFT DA╢" "╡ NUR NOCH EIN ┴B- UND ERNEUTES ┴N= ╢" "╡ SCHALTEN DES ├OMPUTERS... ╢" "╡08. ╚AT MAN EIN ╨ROGRAMM MIT ╬┼╫ GE= ╢" "╡ LOESCHT UND MOECHTE ES 'RETTEN', ╢" "╡ SO KANN MAN DEN ╧╠─-┬EFEHL, DEN ╢" "╡ MANCHE ╥ECHNER KENNEN, WIE FOLGT ╢" "╡ EMULIEREN: ─RUECKE ZUERST DIE ╢" "╡ ╥╒╬/╙╘╧╨-╘ASTE. ╚ALTE SIE GEDRUEK=╢" "╡ KT, WAEHREND ─U NUN DIE ╥┼╙┼╘- ╢" "╡ ╘ASTE DRUECKST. ╙O GELANGST ─U IN ╢" "╡ DEN SOG. ═╧╬╔╘╧╥-┬ETRIEB, DEN ─U ╢" "╡ MIT ─RUECKEN DER ╘ASTE ╪ (UND AN= ╢" "╡ SCHLIESSEND NATUERLICH ╥┼╘╒╥╬) ╢" "╡ VERLAESST. ─EIN VERLOREN GEGLAUB= ╢" "╡ TES ╨ROGRAMM IST WIEDER DA. ┴UCH ╢" "╡ WENN SICH MAL EIN ╨ROGRAMM 'AUF= ╢" "╡ HAENGT', ALSO AUF NICHTS MEHR RE= ╢" "╡ AGIERT, KANN DIE O.G. ═ETHODE U.╒.╢" "╡ HELFEN ! ╢" "╡09. POKE 808,98 SCHALTET DIE ╥╒╬/╙╘╧╨-╢" "╡ ╘ASTE AUS. ─IES KANN ABER U.╒. ╢" "╡ BEIM ╬ACHLADEN VON WEITEREN ╨RO= ╢" "╡ GRAMMTEILEN ZU ╙CHWIERIGKEITEN MIT╢" "╡ DEM ─ISKETTENLAUFWERK FUEHREN. ╢" "╡10. POKE 776,1 IST EIN ╦ILLER-╨OKE: ╢" "╡ ╚IER HILFT NUR NOCH EIN ╥ESET ! ╢" "╡11. OPEN1,8,15,''U0>M0'':CLOSE1 ╢" "╡ SCHALTET DAS 1571-╠AUFWERK IN DEN ╢" "╡ 1541ER-═ODUS DES ├ 64. ╢" "╡12. OPEN1,8,15,''U0>M1'':CLOSE1 ╢" "╡ MACHT DIES WIEDER RUECKGAENGIG ╢" "╡13. 10 SCNCLR ╢" "╡ 20 CHAR1,0,20,''HALLO !'',1 ╢" "╡ 30 FORI=1TO40:NEXTI ╢" "╡ 40 CHAR1,0,20,''HALLO !'' ╢" "╡ 50 FORI=1TO40:NEXTI ╢" "╡ 60 GETA$:IFA$=''''THEN20 ╢" "╡ 70 PRINT''DU HAST EINE TASTE ╢" "╡ GEDRUECKT !'':GOTO20 ╢" "╡ ─IESES ╨ROGRAMM BRINGT EINEN ╢" "╡ HUEBSCHEN ┼FFEKT IN EINE ╘ASTATUR=╢" "╡ ABFRAGE. ╨ROBIERE MAL ANDERE ═OEG=╢" "╡ LICHKEITEN ! ╢" "╡14. SYS65357 SCHALTET DEN ├ 128 IN DEN╢" "╡ 64ER-═ODUS. ╢" "╡15. POKE2594,64 SCHALTET DIE ╘ASTEN= ╢" "╡ WIEDERHOLFUNKTION AUS.╢" "╡16. POKE2594,0 SCHALTET DIE ╘ASTEN= ╢" "╡ WIEDERHOLFUNKTION EIN.╢" "╡17. POKE208,0:WAIT208,1 HAELT DAS ╨RO=╢" "╡ GRAMM AN UND WARTET AUF EINEN ╘AS=╢" "╡ TENDRUCK, UM IM ╨ROGRAMM WEITER ╢" "╡ ZU MACHEN. ┼INFACHER GEHT'S ABER ╢" "╡ MIT GETKEYA$ ! ╢" "╡18. POKE247,0 SCHALTET ZWISCHEN DER ╢" "╡ ╟ROSS-/╦LEINSCHREIBUNG MITTELS ╢" "╡ ├╧══╧─╧╥┼/╙╚╔╞╘ UM. ╢" "╡19. POKE 247,128 SPERRT DIESE ╒MSCHAL=╢" "╡ TUNG. ╢" "╡20. PRINT5+''A''+-5 FUEHRT ZU EINEM ╢" "╡ ╨ROGRAMMABSTURZ. ╢" "╡21. BANK1:POKE65528,33 FUEHRT AUCH ZU ╢" "╡ EINEM ╨ROGRAMMABSTUUUUUUURRRRRZ. ╢" "╡22. POKE53280,8::::::::::POKE53280,2 ╢" "╡ ╩E NACHDEM, WIEVIELE ─OPPELPUNKTE ╢" "╡ ZWISCHEN BEIDEN ╨OKES STEHEN, ER= ╢" "╡ FOLGT DER ╞ARBWECHSEL SCHNELLER ╢" "╡ ODER LANGSAMER. ╢" "╡23. OPEN1,8,15,''M-W''+CHR$(7)+CHR$ ╢" "╡ (28)+CHR$(1)+CHR$(15):CLOSE1 ╢" "╡ MACHT DIE ╞LOPPY 1541 DURCH NEUES ╢" "╡ ╘AKTEN DES ╙CHRITTMOTORS SCHNELLER╢" "╡24. POKE235,15:POKE236,1:PRINT''(C) BY╢" "╡ UWE SCHWESIG'S 128ER-CLUB'' ╢" "╡ ─ER ╘EXT WIRD IN ┌EILE 15 GEDRUCKT╢" "╡ UND BEGINNT BEI ╙PALTE 1. ╢" "╡25. PEEK(235) GIBT DIE AKTUELLE ┌EILE ╢" "╡ AUS. ╢" "╡26. PEEK(236) GIBT DIE AKTUELLE ╙PALTE╢" "╡ AUS (EVTL. FUER EIGENE ═AL-ODER ╢" "╡ ╘EXTVERARBEITUNGSPROGRAMME INTER= ╢" "╡ ESSANT) ╢" "╡27. POKE248,128 SCHALTET ┬ILDSCHIRM= ╢" "╡ ROLLEN AUS. ╢" "╡28. POKE248,0 SCHALTET ┬ILDSCHIRMROL= ╢" "╡ LEN EIN. ╢" "╡29. POKE 43,1:POKE44,28 ╢" "╡ ─IESE ╨OKES - EINGEGEBEN IM 64ER- ╢" "╡ ═ODUS - GEBEN EIN SICH VORHER IM ╢" "╡ 128ER-═ODUS BEFINDLICHES ╨ROGRAMM ╢" "╡ ZUR ┬EARBEITUNG IM 64ER-═ODUS FREI╢" "╡30. 10 SCNCLR ╢" "╡ 20 POKE21,64 ╢" "╡ 30 INPUT''CODEWORT'';C$ ╢" "╡ 40 POKE 21,0 ╢" "╡ 50 IF C$=''UWE + ANNETTE'' THEN 80╢" "╡ 60 IF C$<>''UWE + ANNETTE'' THEN ╢" "╡ 70 ╢" "╡ 70 SYS57344 ╢" "╡ 80 RUN''MAINPROGRAMM ╢" "╡ ─IESES ╨ROGRAMM IST EIN ┬EISPIEL ╢" "╡ DAFUER, WIE MAN EINE ├ODEWORT-┴B= ╢" "╡ FRAGE PROGRAMMIEREN KOENNTE. ╢" "╡(├) ┬┘ ╒╫┼ ╙├╚╫┼╙╔╟'╙ 128ER-├╠╒┬ 1988 ╢" "@" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" ""