1 CLS:PRINT TAB(32)"> SPACESHIP-DEMO <":LOCATE 3,26:PRINT"(C)opyright C.E.Software 2010":LOCATE 5,24:PRINT"programmiert von Carsten Engelmann":LOCATE 13,27:PRINT"Press <Space> to start demo!"
2 LOCATE 23,7:PRINT"<Nummernblock>=Schiff bewegen  <Z>=Schiff zoomen  <D>=Schiff drehen":LOCATE 25,31:PRINT"<ESC>=Demo abbrechen";
5 ON-(INKEY$<>" ")GOTO 5:SCREEN 9:OPEN"i",1,"SHIP.SPT":INPUT#1,C,D:M=C*2+1:N=D*2+1:IF M>N THEN R=M ELSE R=N
7 DIM A(R,R),B(7),C(7),D(R,R):FOR I=0 TO C:FOR J=0 TO D:LINE INPUT#1,Y$:A(I,J)=ASC(Y$)-32:NEXT J,I:CLOSE:FOR I=0 TO 7:READ B(I),C(I):NEXT
10 FOR I=0 TO C:FOR J=0 TO D:D(I,J)=A(I,J):NEXT J,I:M=C:N=D:E=C+1:F=D+1:G=INT((639-C)/2):H=INT((349-D)/2)
50 SCREEN,,B,1-B:B=1-B:DELAY .03:Y$=INKEY$:IF Y$="8" AND H>-F THEN H=H-2 ELSE IF Y$="2" AND H<350 THEN H=H+2 ELSE IF Y$="4" AND G>-E THEN G=G-2 ELSE IF Y$="6" AND G<640 THEN G=G+2 ELSE ON-(Y$="z")GOTO 91:ON-(Y$="d")GOTO 94:IF Y$=CHR$(27) THEN END
62 IF Y$="7" AND H>-F AND G>-E THEN H=H-2:G=G-2 ELSE IF Y$="9" AND H>-F AND G<640 THEN H=H-2:G=G+2 ELSE IF Y$="3" AND H<350 AND G<640 THEN H=H+2:G=G+2 ELSE IF Y$="1" AND H<350 AND G>-E THEN H=H+2:G=G-2
60 CLS:LINE(0,150)-(639,349),14,BF:COLOR 2:FOR I=0 TO 29:LINE(I*21+15,150)-(I*71-710,349):NEXT:J=160:A=10:FOR I=0 TO 9:LINE(0,J)-(639,J):A=A+2:J=J+A:NEXT
65 FOR I=0 TO 7:A=B(I):J=C(I):COLOR 15:LINE(A,J)-(A+1,J-3):LINE(A+1,J-3)-(A+2,J):LINE(A+2,J)-(A+7,J+1):LINE(A+7,J+1)-(A+2,J+2):LINE(A+2,J+2)-(A+1,J+5):LINE(A+1,J+5)-(A,J+2):LINE(A,J+2)-(A-5,J+1):LINE(A-5,J+1)-(A,J):PAINT(A+1,J+1)
70 COLOR 7:LINE(A-2,J-2)-(A+1,J-5):LINE(A+1,J-5)-(A+4,J-2):LINE(A+4,J-2)-(A+9,J+1):LINE(A+9,J+1)-(A+4,J+4):LINE(A+4,J+4)-(A+1,J+7):LINE(A+1,J+7)-(A-2,J+4):LINE(A-2,J+4)-(A-7,J+1):LINE(A-7,J+1)-(A-2,J-2):COLOR 8:LINE(A-4,J-3)-(A+1,J-8)
75 LINE(A+1,J-8)-(A+6,J-3):LINE(A+6,J-3)-(A+13,J+1):LINE(A+13,J+1)-(A+6,J+5):LINE(A+6,J+5)-(A+1,J+10):LINE(A+1,J+10)-(A-4,J+5):LINE(A-4,J+5)-(A-11,J+1):LINE(A-11,J+1)-(A-4,J-3):LINE(A-5,J-4)-(A+1,J-9):LINE(A+1,J-9)-(A+7,J-4)
80 LINE(A+7,J-4)-(A+15,J+1):LINE(A+15,J+1)-(A+7,J+6):LINE(A+7,J+6)-(A+1,J+11):LINE(A+1,J+11)-(A-5,J+6):LINE(A-5,J+6)-(A-13,J+1):LINE(A-13,J+1)-(A-5,J-4):NEXT:FOR I=0 TO C:FOR J=0 TO D:IF A(I,J) THEN PSET(G+I,H+J),A(I,J)
90 NEXT J,I:GOTO 50
91 O=1-O:IF O THEN C=C*2+1:D=D*2+1:FOR I=0 TO M:FOR J=0 TO N:FOR K=0 TO O:FOR L=0 TO O:A(I*2+K,J*2+L)=D(I,J):NEXT L,K,J,I:GOTO 10
93 C=(C-1)/2:D=(D-1)/2:FOR I=0 TO C:FOR J=0 TO D:A(I,J)=D(I*2,J*2):NEXT J,I:GOTO 10
94 FOR I=0 TO R:FOR J=0 TO R:IF J<N+1 THEN A(N-J,I)=D(I,J)
96 NEXT J,I:SWAP C,D:GOTO 10
98 DATA 70,50,140,120,210,20,280,90,350,30,420,110,490,20,560,90