home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
87xx
/
8712a.d64
/
demo7.kreuz
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
601b
|
34 lines
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