home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
87xx
/
8712a.d64
/
demo1.zimmer
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
93 lines
1 INIT
2 OBJ 33,36
3 M=150
5 REM ZIMMER
50 DATA 0,0,0, 4,0,0, 4,2.5,0
60 DATA 0,2.5,0,0,0,5, 4,0,5
70 DATA 4,2.5,5,0,2.5,5
110 DATA 0,1, 1,2, 2,3, 3,0
120 DATA 0,4, 1,5, 2,6, 3,7
130 DATA 4,5, 5,6, 6,7, 7,4
190 REM FENSTER
240 DATA 0,0,0, 1.5,0,0, 3,0,0
250 DATA 3,1.25,0,1.5,1.25,0, 0,1.25,0
290 DATA 0,2, 2,3, 3,5
300 DATA 5,0, 1,4
350 REM SITZGRUPPE
440 DATA 0,0,0, 0,0,1
450 DATA 0,.75,0, 0,.75,1
460 DATA 2,.75,0, 1,0,1, 1,0,2.5
470 DATA 2,0,2.5, 2,.75,2.5,1,.75,2.5
480 DATA 1,.75,1, 0,1.5,0, 2,1.5,0
490 DATA 2,1.5,2.5
530 DATA 0,1, 1,5, 0,11, 1,3, 8,9
540 DATA 2,4, 4,8, 2,3, 3,10, 11,12
550 DATA 5,10, 5,6, 6,7, 6,9, 7,13
560 DATA 12,13,9,10
570 REM TUER
620 DATA 0,0,0, 0,0,1, 0,2,1, 0,2,0
660 DATA 0,3, 2,3, 1,2
2010 REM ZIMMER
2020 FORI=0TO7:READA,B,C
2030 PSET I,A*M,B*M,C*M
2040 NEXT
2050 FORI=0TO11 :READG,H
2060 LSET I,G,H
2070 NEXT
2080 REM FENSTER
2090 P=8 :L=12
2100 X=.5*M :Y=1*M :Z=5*M
2110 FORI=0TO5:READA,B,C
2130 PSET I+P,A*M+X,B*M+Y,C*M+Z
2140 NEXT
2150 FORI=0TO4:READG,H
2160 LSET I+L,G+P,H+P
2170 NEXT
2180 REM SITZGRUPPE
2190 P=8+6 :L=12+5
2200 X=2*M :Y=0 :Z=0
2210 FORI=0TO13:READ A,B,C
2230 PSET I+P,A*M+X,B*M,C*M
2240 NEXT
2250 DIM SL(16,1)
2260 FORI=0TO16
2270 READ SL(I,0),SL(I,1)
2280 NEXT
2290 DIM T(3,2),TL(2,1)
2300 FORI=0TO3
2310 READ T(I,0),T(I,1),T(I,2)
2320 NEXT
2330 FORI=0TO2
2340 READ TL(I,0),TL(I,1)
2350 NEXT
3080 REM TUER
3090 P=28:L=34
3100 X=0 :Y=0 :Z=.5*M
3110 FORI=0TO3
3130 PSET I+P,T(I,0)*M,T(I,1)*M,T(I,2)*M+Z
3140 NEXT
3150 FORI=0TO2
3160 LSET I+L,TL(I,0)+P,TL(I,1)+P
3170 NEXT
3180 MODSET 1,1,1
3190 PERSPSET 0,1*M
3200 ANFSET 256,-1,5*M,-1.5*M,-M
3210 DWSET 0,0
3220 DELSET -8/30*M,0,0
3230 DREH
3240 P=8+6 :L=12+5
3250 X=2*M :Y=0 :Z=0
3255 FORI=1TO16:\:NEXT
3260 FORI=0TO16
3270 LSET I+L,SL(I,0)+P,SL(I,1)+P
3280 NEXT:\
3285 DWSET -20,0
3290 FORI=1TO13:\:NEXT
3295 DWSET -25,0
3300 DELSET 0,0,-.2*M
3330 FORI=1TO20:\:NEXT
3400 DWSET -6,-2
3410 DELSET .34*M,-.06*M,-.22*M
3420 FORI=1TO30:\:NEXT
4000 RUN