5 POKE52,48:POKE56,48:CLR
10 REM FIRST CLEAR SPRITE MEMORY
20 FORT=0TO63:POKE12288+T,0:NEXT
30 :
40 REM NEXT POKE IN A BALL SHAPE
50 POKE12288,56:POKE12291,124:POKE12294,124:POKE12297,56
60 :
70 REM NOW SET BACKGROUND/BORDER TO BLACK
80 POKE53280,0:POKE53281,0
90 :
100 REM SET X AND Y FOR SPRITE 0
110 X=53248:Y=53249
120 :
130 REM M IS OUR MULTIPLIER TO CONVERT RADIANS TO REGULAR NUMBERS
140 M=.0174532925
150 :
160 REM SET UP SPRITE POINTERS, ETC.
170 POKEX+21,1:POKE2040,192:POKEX+39,2
180 :
190 REM SET TO LOWERCASE LETTERS AND CLEAR SCREEN
200 PRINT"[147][129]        [205]ARK [202]ORDAN'S [193]NGULIZER"
210 :
220 REM POSITION SPRITE AT 55,220 -- NEAR THE BOTTOM LEFT OF SCREEN
230 POKEX,55:POKEY,220
240 :
250 REM LET USER DETERMINE ANGLE TO MOVE SPRITE
260 PRINT"[154][215]HAT ANGLE? ([159]1 - 89[154]) ";:L=2:GOSUB50000:AN=VAL(Q9$)
265 IFAN<1ORAN>89THENPRINT"[145]                               [145]":GOTO260
270 :
280 REM AND HOW FAR TO MOVE
285 PRINT
290 PRINT"[154][200]OW FAR RIGHT? ([159]1 - 200[154]) ";:L=3:GOSUB50000:B=VAL(Q9$)
295 IFB<1ORB>200THENPRINT"[145]                               [145]":GOTO290
300 :
310 REM FIND THE TAN AND SIN
320 TA=TAN(AN*M):SI=SIN(X*M)
330 :
340 REM CALCULATE VERTICAL SIDE (A) AND HYPOTENUSE (C)
350 A=B*TA:C=-(A/SI)
360 :
370 REM PRINT ALL THREE SIDES LENGTHS
380 PRINT"[154][216]="A,"[154][217]="B:PRINT"[154][200]YPOTENUSE="C
390 :
400 REM SET CREATE FACTORS FOR MOVING SPRITE ON (null) AXIS
410 YY=0:AA=A/B
420 :
430 REM MOVE SPRITE HOWEVER FAR USER DETERMINED FOR LENGTH (X) VIA LOOP
440 FORI=1TOB
450 :
460 REM ADD Y FACTOR EACH TIME THROUGH
470 YY=YY+AA
480 :
490 REM MOVE SPRITE OVER 1 EACH TIME THROUGH LOOP
500 POKEX,PEEK(X)+1
510 :
520 REM MOVE SPRITE UP FACTORED AMOUNT EACH TIME THROUGH LOOP
530 IFYY>220THENI=B:GOTO560
535 POKEY,220-YY
540 :
550 REM FINISH LOOP
560 NEXT
570 :
580 REM FINISH WITH LOOP TO ALLOW REPEAT
590 PRINT"[159]       ([193][159])GAIN?    ([204][159])OADSTAR?
600 [161]A$:[139]A$[179][177]"A"[175]A$[179][177]"L"[167]600
610 [139]A$[178]"A"[167]200
620 [151]X[170]21,0:[159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
630 [139]ER[179][177]63[167][128]
640 [153]"LOADSTOPLOAD"[199](34)"HELLO CONNECT"[199](34)",8"
650 [153]"RUN"
660 [151]631,13:[151]632,13:[151]198,2:[128]
10000 [159]15,8,15,"S0:JOURNAL":[160]15:[148]"JOURNAL",8:[128]
50000 Q9$[178]"":U9[178]53280:[151]198,0
50010 [161]A$
50020 [151]646,[187](1)[172]15[170]1:[153]"TOCMD";:[139]A$[178]""[167]50010
50030 [139]A$[178][199](13)[167][153]" ":[142]
50040 [139](A$[178][199](20)[175][195](Q9$))[167]Q9$[178][200](Q9$,[195](Q9$)[171]1):[137]50080
50050 [139][195](Q9$)[177][178]L[167]T9%[178][194](U9):[151]U9,1:[151]U9,T9%:[137]50010
50060 [139]A$[179]" "[176](A$[177][199](127)[175]A$[179][199](160))[176]A$[178][199](34)[167]50010
50070 Q9$[178]Q9$[170]A$
50080 [153]""A$;:[137]50010