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
(.txt)