OK LIST 1 REM ENTERPRISE 1983 10 PRINT:PRINT"********FUCK ON!********" 11 PRINT"$$$$$$$$$$$$$$$$$$$$$$$$" 13 PRINT"EIN TOTAL ABGEFUCKTES SPIEL FUER ARSCHLOECHER!" 14 PRINT"$$$$$$$$$$$$$$$$$$$$$$$$" 15 FORV=0TO3000:NEXTV 20 S=100 26 FORX=0TO40:PRINT:NEXTX 27 FORX=0TO300:Y=53000+RND(X)*2000:POKEY,46:NEXTX 28 FORI=0TO20:L=53000+RND(I)*2000:POKEL,111::NEXTI 31 FORX=54051TO54071STEP2:POKEX,246:NEXTX 32 FORX=54080TO54400:POKEX,161:NEXTX 50 K=57088:A=53549:POKE530,1:POKEK,127 60 IFA>54050THEN160 61 POKEA,11:POKEA+1,12:FORX=0TO50:NEXTX 70 IFPEEK(K)=127THEN100 75 IFPEEK(K)=191THEN200 80 IFPEEK(K)=223THEN300 85 IFPEEK(K)=253THEN400 86 IFPEEK(K)=239THEN500 87 IFPEEK(K)=247THEN600 88 IFPEEK(K)=251THEN700 89 Z=INT(RND(64)*100) 90 IFZ>STHEN70 91 M=54022+2*INT(RND(45)*10) 92 IFPEEK(M+31)=32THEN70 93 FORX=1TO25 94 POKEM,189:M=M-31 95 FORV=0TO10:NEXTV 96 POKEM+31,32 98 NEXTX 99 GOTO150 100 POKEA,32:POKEA+1,32:A=A-1:GOTO60 150 IFPEEK(A)=32THEN160 155 IFPEEK(A+1)=32THEN160 156 GOTO70 160 PRINT"ENTERPRISE IST ABGEFUCKT WORDEN(FREIHEIT FUER OBERBAYERN!!) 161 FORV=1TO1000 162 RUN 200 POKEA,32:POKEA+1,32:A=A+1:GOTO60 300 FORR=A+31TO54071STEP31:POKER,189 310 FORX=0TO10:NEXTX:POKER,32:NEXTR 320 GOTO80 400 RUN 410 END 500 POKEA,32:POKEA+1,32:A=A-32:GOTO60 600 POKEA,32:POKEA+1,32:A=A+32:GOTO60 700 POKEA,32:POKEA+1,32:A=A+31:GOTO60 OK