0 PRINT"[147]":POKE53281,0:POKE53280,0:IFJ=.THENJ=1:LOAD">> 3. TEIL <<",8,1 1 GOTO3 2 PRINT"[147][144]P[207]44,32:P[207]6144,0:L[207]"CHR$(34)N$CHR$(34)",8":PRINT"?"CHR$(34)"BITTE DISKETTE MIT 'ZEILENMAMPFER'"CHR$(34)":?";:PRINTCHR$(34)"EINLEGEN UND 'SHIFT' DRUECKEN[144]"CHR$(34)":W[193]653,1":PRINT"P[207]44,8:L[207]"CHR$(34)">> 2. TEIL <<"CHR$(34)",8":PRINT"R[213]":FORI=0TO3:POKE631+I,13:NEXT:POKE198,4:NEW 3 PRINT"[147][158][172][183][163][183][146][187][159] HALLO, ICH BIN DER":PRINT"[158][180] [215] [146][187]":PRINT" [172][146][183][163] [150]Z E I L E N M A M P F E R":PRINT"[158][180] [183][184][146][187]":PRINT"[188][164] [172][146] [159](C) 1988 BY [158]IMPERATOR SOFTWARE":PRINT"[158] [163][163]":PRINT"[153]ICH BIN ENTFERNT MIT PAC-MAN VERWANDT, 4 [153]"ABER KEIN SPIEL. ICH HABE ABER - WIE":[153]"MEIN VETTER - AUCH UNHEIMLICHEN HUNGER.":[153]"ICH ERNAEHRE MICH HAUPTSAECHLICH VON":[153]"ZEILENNUMMERN, REM-BEFEHLEN UND ALLEM,":[153]"WAS IN BASIC-PROGRAMMEN NOCH SO ALLES":[153]"UEBERFLUESSIG IST. 5 PRINT"ICH SCHLAGE IHNEN EINE SYMBIOSE VOR:":PRINT"SIE LASSEN MICH AUF EIN BASIC-PROGRAMM":PRINT"LOS, AN DEM ICH MICH SATT FRESSEN KANN.":PRINT"DAFUER BEISSE ICH AUCH NUR DIE WIRKLICH":PRINT"UEBERFLUESSIGEN BYTES UND ZEILENNUMMERN 6 [153]"AB UND KLEBE DIE BROESEL WIEDER ZU EINEM":[153]"ONLAUFFAEHIGEN PROGRAMM ZUSAMMEN. [TASTE]":[151]198,0:[146]198,1:[161]U$:[153]"LOADPRINTDAS NEUE PROGRAMM HAT DANN FUER SIE":[153]"DREI VORTEILE:":[153]"1. ES IST KUERZER, DA JEDE UEBERFLUESSI- 7 PRINT"[145] GE ZEILENNUMMER (5 BYTES) DURCH EINEN":PRINT"[145] DOPPELPUNKT (1 BYTE) ERSETZT UND":PRINT" JEDER REM-BEFEHL GEFRESSEN WIRD.":PRINT"2. DAS PROGRAMM WIRD - VOR ALLEM BEI":PRINT" SPRUNGBEFEHLEN - ETWAS SCHNELLER. 8 [153]"3. ES KOENNEN UEBERLANGE ZEILEN ENTSTE-":[153]" HEN, DIE NICHT MEHR GEAENDERT WERDEN":[153]" KOENNEN. DABEI KANN EINE SOLCHE ZEILE":[153]"ON ABER NICHT LAENGER ALS 255 BYTES":[153]" WERDEN.":[153]"ES GIBT ALLERDINGS 3 EINSCHRAENKUNGEN: 9 PRINT"1. DAS PROGRAMM MUSS MINDESTENS 2 ZEILEN HABEN.":PRINT"2. ES DARF ABER MAXIMAL AUS 819 ZEILEN BESTEHEN.":PRINT"3. ES DARF HOECHSTENS 127 BLOECKE (32 K) LANG SEIN."SPC(19)"[TASTE]":POKE198,0:WAIT198,1:GETU$:PRINT"[147][153]NA, HABEN SIE NICHT LUST, MICH EINMAL 10 [153]"AUSZUPROBIEREN? BEHALTEN SIE ABER DAS":[153]"URSPRUNGSPROGRAMM - FALLS SIE ES SPAETER":[153]"ONNOCH EINMAL AENDERN MOECHTEN...":[153]"LEGEN SIE BITTE DIE DIE DISKETTE MIT DEM":[153]"ONFUTTER FUER MICH EIN, UND GEBEN SIE DEN":[133]"PROGRAMMNAMEN EIN";N$:[137]2