1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | DEFINT A-Z One$ = "BR30 BU25 C1 R54 U45 L54 D45 BE20 P1, 1G20 C2 G20" Two$ = "R54 E20 L54 BD5 P2, 2 U5 C4 G20 U45 E20 D45 BL5 P4, 4 " Plot$ = One$ + Two$ APage% = 0 VPage% = 1 HPage% = 2 Angle% = 0 CLS SCREEN 8 , 0 , VPage%, VPage% PCOPY VPage%, HPage% SLEEP 1 DO SCREEN 8 , 0 , APage%, VPage% CLS 1 DRAW "TA" + STR$(Angle%) + Plot$ Angle% = (Angle% + 15 ) MOD 360 SWAP APage%, VPage% Kbd$ = INKEY$ SELECT CASE Kbd$ CASE CHR$( 0 ) + CHR$( 104 ) PCOPY HPage%, APage% SLEEP 3 CASE "" CASE ELSE EXIT DO END SELECT LOOP END |