A simple graphic animation that draws the Ocean Pacific logo from eighties. Press any key to bypass the wait at the end.
PROG : 16509
D-FILE: 18654
VARS : 19447
E-LINE: 19448
STKBOT: 19448
STKEND: 19448
9999 means line number
PRINT means treat as KEYWORD P
10 REM **OP**SLR/1984*********
20 LET X=17
30 LET Y=25
40 LET X1=10
50 GOSUB 2000
60 LET X=35
70 LET Y=21
80 LET X1=6
90 GOSUB 2000
100 LET X=28
110 LET Y=26
120 LET X1=28
130 LET Y1=7
140 GOSUB 1000
150 LET X=29
160 LET X1=X
170 GOSUB 1000
180 LET X=24
190 LET Y1=Y
200 GOSUB 1000
210 LET Y=7
220 LET X1=33
230 LET Y1=Y
240 GOSUB 1000
250 PLOT 24,8
260 PLOT 33,8
270 PLOT 24,25
280 PLOT 24,24
290 LET X=9
300 LET Y=20
310 LET X1=X
330 LET Y1=28
340 GOSUB 1000
350 LET X=X1
360 LET Y=Y1
370 LET X1=12
380 LET Y1=31
390 GOSUB 1000
400 LET X=X1
410 LET Y=Y1
420 LET X1=19
430 GOSUB 1000
440 LET X=X1
450 LET X1=20
460 LET Y1=30
470 GOSUB 1000
480 LET X=X1
490 LET Y=Y1
500 LET Y1=27
510 GOSUB 1000
520 LET Y=Y1
530 LET X1=19
540 LET Y1=26
550 GOSUB 1000
560 LET X=X1
570 LET Y=Y1
580 LET X1=16
590 GOSUB 1000
600 LET X=X1
610 LET X1=15
620 LET Y1=27
630 GOSUB 1000
640 LET X=X1
650 LET Y=Y1
660 LET Y1=29
670 GOSUB 1000
680 LET Y=Y1
690 LET X1=17
700 GOSUB 1000
710 PLOT 18,28
720 LET X=15
730 LET Y=16
740 LET X1=12
750 LET Y1=21
760 GOSUB 1000
770 LET X=X1
780 LET Y=Y1
790 LET Y1=26
800 GOSUB 1000
810 LET Y=Y1
820 LET X1=14
830 LET Y1=28
840 GOSUB 1000
850 LET X=22
860 LET Y=18
870 LET X1=15
880 LET Y1=21
890 GOSUB 1000
900 LET X=X1
910 LET Y=Y1
920 LET Y1=24
930 GOSUB 1000
940 PLOT 16,25
950 PRINT AT 1,16;"öó¶· ²µ÷´ µ
µõµ";AT 2,16;" óµµõ µ÷ ²õµ ";
AT 3,16;"´²öò ÷µ²±µ µµ ";AT 19,
11;" óô µ · ²ò ñ÷óò ñ· ²";AT 20,
11;" ó ²õµõ ÷ñ µõ";AT 21,1
1;" µ µò ÷· ôõ · ôò ÷";
960 GOTO 2200
1000 LET A=X-X1
1010 LET B=Y-Y1
1020 LET C=(A AND ABS A>=ABS B)+
(B AND ABS B>=ABS A)
1030 IF C=0 THEN LET C=0.1
1040 FOR F=0 TO C STEP SGN C
1050 PLOT X+A/C*-F,Y+B/C*-F
1060 NEXT F
1070 RETURN
2000 FOR D=0 TO 360
2010 LET R=D*PI/180
2020 LET C=X+X1*COS R
2030 LET U=Y+X1*SIN R
2040 PLOT C,U
2050 NEXT D
2060 RETURN
2200 FOR D=1 TO 250
2210 LET S=SIN PI
2220 IF INKEY$<>"" THEN GOTO 250
0
2230 NEXT D
2500 FOR D=0 TO 21
2510 SCROLL
2520 NEXT D
2530 RUN
3000 SAVE "OP"
3010 RUN