ZX81 Listing for op.p


ZX81 program listing for **OP**SLR/1984*********

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 18654
VARS  : 19447
E-LINE: 19448
STKBOT: 19448
STKEND: 19448

LEGEND

9999 is a line number
PRINT is keyword P


PROGRAM LISTING

  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