10 INIT
20 OBJ 23,15
60 PERSPSET -300,-80
70 MODSET 0,0,0
90 M=1   :REM  VERGROESSERUNGSFAKTOR
1000 REM
1010 FORP=0TO23
1020 READX,Y,Z
1030 PSET P,X*M,Y*M,Z*M
1060 NEXT
1070 FORV=0TO15
1080 READA,B:LSET V,A,B
1090 NEXT
1100 DATA-70,0,0,70,0,0
1101 DATA60,4,0,60,-4,0
1102 DATA0,-70,0,0,70,0
1103 DATA4,60,0,-4,60,0
1104 DATA0,0,-70,0,0,70
1106 DATA4,0,60,-4,0,60
1107 DATA70,-10,0,78,-20,0
1108 DATA70,-20,0,78,-10,0
1109 DATA-2,80,0,-10,70,0
1110 DATA-6,75,0,-10,80,0
1111 DATA2,12,70,12,12,70
1112 DATA2,2,70,12,2,70
1140 REM
1150 DATA0,1,   2,1,    3,1
1151 DATA4,5,   6,5,    7,5
1152 DATA8,9,   10,9,   11,9
1153 DATA12,13, 14,15,  16,17
1154 DATA18,19, 20,21,  21,22
1155 DATA22,23
1180 DREH