home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
87xx
/
8712a.d64
/
demo2.maske
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
76 lines
5 INIT
10 OBJ 25,66
90 M=2.5 :REM VERGROESSERUNGSFAKTOR
1010 FORP=0TO25
1020 READX,Y,Z
1030 PSET P,X*M,Y*M,Z*M
1060 NEXT
1070 FORV=0TO65
1080 READA,B:LSET V,A,B
1090 NEXT
1100 DATA0,-3,-34,0,25,-12,0,-18,-22
1101 DATA0,-31,-24,-8,-44,-19,8,-44,-19
1102 DATA-21,-25,-14,-28,-24,10
1103 DATA-18.5,2,-15,-7,-7,-19,-37,6,-2
1104 DATA-31,22.5,-6,-34,21,13,-17,16,-9
1106 DATA-11,31,-11,-36,32,2,11,31,-11
1108 DATA36,32,2,31,22.5,-6,34,21,13
1110 DATA17,16,-9,18.5,2,-13:REM
1112 DATA37,6,-2,7,-7,-19,21,-25,-14
1120 DATA28,-24,10
1140 REM
1150 DATA 11,14, 1,14
1151 DATA14,16, 0,1, 1,9
1152 DATA1,16, 0,9, 1,23
1153 DATA0,23, 9,23, 2,23
1154 DATA2,9, 2,6
1155 DATA2,24, 3,24, 3,6
1156 DATA3,4, 4,5, 3,5
1157 DATA4,6, 6,7, 4,7
1158 DATA6,9, 6,8, 8,9
1159 DATA6,10, 8,10, 6,10
1160 DATA7,10, 1,8, 8,13
1161 DATA1,13, 8,11, 11,13
1162 DATA 10,11, 11,12
1163 DATA10,12, 12,15, 11,15
1164 DATA14,15, 5,24, 23,24
1165 DATA5,25, 21,23, 21,24
1166 DATA21,22, 22,24, 22,25
1167 DATA24,25, 1,21, 21,23
1168 DATA1,23, 1,20, 20,21
1169 DATA18,20, 18,21
1170 DATA1,16, 16,18, 16,17
1171 DATA18,19, 19,22, 18,22
1172 DATA17,18, 17,19, 19,25
1173 DATA7,12
1175 MODSET 1,1,1
1176 PERSPSET -2000,-1700
1180 DWSET 0,0
1200 A=-2000:S=-1700
1900 DELSET 0,0,0
1980 DREH
2000 Y=-31*M
2010 PSET 3,0,Y,-22*M
2015 PERSPSET A,S
2020 \:Y=Y+4 :A=A+98 :S=S+98
2030 IFY<-19*MTHEN2010
3010 PSET 3,0,Y,-22*M
3015 PERSPSET A,S
3020 \:Y=Y-4 :A=A+98 :S=S+98
3030 IFY>-32*MTHEN3010
3040 DWSET 16,0
3050 Z=0:DY=4:
3060 PSET 3,0,Y,-22*M
3070 Z=Z+1:Y=Y+DY
3080 IFINT(Z/8)=Z/8THENDY=-DY
3090 \:IFZ<>64THEN3060
4000 PRINT"[147] UEBERNEHMEN SIE DIE STEUERUNG"
4010 PRINT" MIT DEM JOYSTICK IN CONTROLPORT 2"
4020 PRINT" ENDE=(RUN/STOP) "
4030 PRINT" (TASTE DRUECKEN)"
4040 GETA$:IFA$=""THEN4040
4100 DELSET 8,8,8
4110 DWSET 10,10
4120 MODSET 0,1,1
5000 \:GOTO3060