0 POKE53280,0:POKE53281,0:PRINT"":Q=RND(−TI)
1 PRINT"
2 PRINT"
3 PRINT"
4 PRINT"
5 PRINT"
6 PRINT"
100 DIMA$(50):DIMB$(50):DIMC$(50)
110 FORI=0TO24:READA$(I):NEXT
120 FORI=0TO20:READB$(I):NEXT
130 FORI=0TO26:READC$(I):NEXT
131 IFPEEK(203)<>60THEN131
132 PRINT""
140 X=25*RND(8):Y=21*RND(8):Z=27*RND(8)
200 PRINTA$(X)""B$(Y)""C$(Z);
205 IFVAL(A$(X))>0THENPRINT:GOTO500
210 PRINT""LEFT$(A$(X),1)LEFT$(B$(Y),1)LEFT$(C$(Z),1)""
500 GOTO131
510 :
1000 DATA1001,2001,2010,GERMAN,SWISS,INTERNATIONAL,UNITED,ORIGINAL,FINAL
1010 DATASMITH,NEW,AUSTRALIAN,MILITARY,ULTIMATE,INCREDIBLE,BIG,FAMOUS
1020 DATATHE,ACTIVE,AMAZING,REAL,CRAZY
1030 DATAMAGIC,TELEPHONE,MARVELLOUS
1099 :
1100 DATACRACKING,PACKING,SPREADING,SMASHING,CRUNCHING,FUTURE,BREAKING,RAMBO
1110 DATAIMPORTING,EXPORTING,LINKING,FUCKING,FORCE,RIPPING,BUSTING
1120 DATACOPY,SOFT,FUN,PIRATES,BYTE,
1199 :
1200 DATACREW,GROUP,ASSOCIATION,ACADEMY,BERLIN,SERVICE,TEAM
1210 DATACENTER,MAN,INC.,DUO,TRIO,NORWAY,DENMARK,SOFTWARE,SYSTEMS,EXPERTS
1220 DATACLAN,BROTHERS,BOYS,GUYS,BOUND,CIRCLE
1230 DATAMASTER,WIZARD,CONNECTION,PROJECTS
1299 :
READY.
