10 MODE7
   20 PRINT""
   30 PRINT"‚˙˙˙˙˙  ˙˙  ˙˙  ˙˙ "
   40 PRINT"‚˙˙ ˙˙  ˙˙  ˙˙  ˙˙ "
   50 PRINT"‚˙˙˙˙˙  ˙˙  ˙˙  ˙˙ "
   60 PRINT"‚˙˙ ˙˙   ˙˙ ˙˙ ˙˙  "
   70 PRINT"‚˙˙ ˙˙    ˙˙˙˙˙˙   "
   80 PRINT""
   90 PRINT"„ALEX WHITEHEAD SOFTWARE"
  100  PRINT''CHR$(141)"MENU"
  110 PRINTCHR$(141)"MENU"
  120 PRINT
  130 PRINT
  140 PRINTCHR$(141)"1) Soh Cah Toa"
  150 PRINTCHR$(141)"1) Soh Cah Toa"
  160 PRINTCHR$(141)"2) Pythagoras"
  170 PRINTCHR$(141)"2) Pythagoras"
  180 PRINTCHR$(141)"3) Factors"
  190 PRINTCHR$(141)"3) Factors"
  200 A$=GET$
  210 IF A$="1" THEN PROCsoh
  220 IF A$="2" THEN MODE1:PROCpythag:MODE7
  230 IF A$="3" THEN PROCfactors
  240 RUN
  250 DEFPROCsoh
  260 CLS
  270 PRINTCHR$(141)"Soh‚Cah„Toa"
  280 PRINTCHR$(141)"Soh‚Cah„Toa"
  290 PRINT" †==========="
  300  INPUT"DO YOU WANT TO KNOW A)THE ANGLE OR                          B)A SIDE?" AS$
  310 INPUT"DO YOU KNOW OR NEED TO KNOW THE         HYPOTENUSE?" HYP$
  320 INPUT"DO YOU KNOW OR NEED TO KNOW THE         OPPOSITE?"OPP$
  330 INPUT"DO YOU KNOW OR NEED TO KNOW THE         ADJACENT?"ADJ$
  340  IF AS$="B" AND HYP$="Y" AND OPP$="Y" THEN PROCSIN
  350 IF AS$="B" AND HYP$="Y" AND ADJ$="Y" THEN PROCCOS
  360  IF AS$="B" AND OPP$="Y" AND ADJ$="Y" THEN PROCTAN
  370  IF AS$="A" AND OPP$="Y" AND HYP$="Y" THEN PROCSINANG
  380  IF AS$="A" AND HYP$="Y" AND ADJ$="Y" THEN PROCCOSANG
  390  IF AS$="A" AND OPP$="Y" AND ADJ$="Y" THEN PROCTANANG
  400  Z=GET
  410 ENDPROC
  420  REM*******************************
  430 DEF PROCSIN
  440 INPUT"DO YOU KNOW A)HYPOTENUSE OR B)OPPOSITE?" A$
  450 IF A$="A" THEN INPUT"WHAT IS IT?"HY :B$="A" ELSE INPUT"WHAT IS IT?"OP :B$="B"
  460  INPUT"ANGLE?"AN
  470  AN=RAD(AN)
  480 IF B$="A" THEN ANSWER= SIN(AN)*HY
  490 IF B$="B" THEN ANSWER=OP/SIN(AN)
  500 PRINT ANSWER
  510  ENDPROC
  520 DEF PROCCOS
  530 INPUT"DO YOU KNOW A)HYPOTENUSE OR B)ADJACENT?" A$
  540 IF A$="A" THEN INPUT"WHAT IS IT?"HY :B$="A" ELSE INPUT"WHAT IS IT?"AD :B$="B"
  550 INPUT"ANGLE?"AN
  560 AN=RAD(AN)
  570 IF B$="A" THEN ANSWER= COS(AN)*HY
  580 IF B$="B" THEN ANSWER=AD/COS(AN)
  590 PRINT ANSWER
  600 ENDPROC
  610 DEF PROCTAN
  620 INPUT"DO YOU KNOW A)OPPOSITE OR B)ADJACENT?" A$
  630 IF A$="A" THEN INPUT"WHAT IS IT?"OP:B$="A" ELSE INPUT"WHAT IS IT?"AD :B$="B"
  640 INPUT"ANGLE?"AN
  650 AN=RAD(AN)
  660 IF B$="A" THEN ANSWER= OP/TAN(AN)
  670 IF B$="B" THEN ANSWER= TAN(AN)*AD
  680 PRINT ANSWER
  690 ENDPROC
  700 DEF PROCSINANG
  710 INPUT"OPPOSIT?"OP
  720 INPUT"HYPOTENUSE?"HY
  730 ANSWER=ASN(OP/HY)
  740  ANSWER=DEG(ANSWER)
  750  PRINT ANSWER
  760  ENDPROC
  770 DEF PROCCOSANG
  780 INPUT"ADJACENT?"AD
  790 INPUT"HYPOTENUSE?"HY
  800 ANSWER=ACS(AD/HY)
  810 ANSWER=DEG(ANSWER)
  820 PRINT ANSWER
  830 ENDPROC
  840 DEF PROCTANANG
  850 INPUT"OPPOSITE?"OP
  860 INPUT"ADJACENT?"AD
  870 ANSWER=ATN(OP/AD)
  880 ANSWER=DEG(ANSWER)
  890 PRINT ANSWER
  900 ENDPROC
  910  DEFPROCpythag
  920  PRINT TAB(13,15)"Pythagoras"
  930  PRINT TAB(11,17)"By A.Whitehead"
  940  FOR T=0 TO 3000:NEXT
  950 CLS
  960  PRINT"PYTHAGORAS"
  970 VDU5
  980 MOVE 100,700
  990 DRAW 100,900
 1000 DRAW 300,700
 1010 DRAW 100,700
 1020 MOVE 240,800
 1030 PRINT"A"
 1040 MOVE 180,680
 1050 PRINT"B"
 1060 MOVE 60,800
 1070 PRINT"C"
 1080  MOVE 000,500
 1090  INPUT"WHICH SIDE DO YOU NEED TO KNOW?"SIDE$
 1100  IF SIDE$="A" THEN PROCSIDEA
 1110  IF SIDE$="B" THEN PROCSIDEB
 1120  IF SIDE$="C" THEN PROCSIDEC
 1130 ENDPROC
 1140  DEF PROCSIDEA
 1150  INPUT"SIDE B?"B:INPUT"SIDE C?"C : ANS= C^2+B^2
 1160  MOVE 000,300
 1170  ANSWER = SQR(ANS)
 1180  PRINT" A^2 = B^2 + C^2"
 1190  PRINT" A=SQR(A^2)"
 1200  PRINT "A^2=";B^2;"+";C^2
 1210  PRINT" A=SQR(";ANS;")"
 1220  PRINT
 1230  PRINT"SIDE A = ";ANSWER
 1240  A=GET
 1250  ENDPROC
 1260 DEF PROCSIDEB
 1270 INPUT"SIDE A?"A:INPUT"SIDE C?"C : ANS= A^2-C^2
 1280 MOVE 000,300
 1290 ANSWER = SQR(ANS)
 1300 PRINT" B^2 = A^2 - C^2"
 1310 PRINT" B=SQR(B^2)"
 1320  PRINT "B^2=";A^2;"-";C^2
 1330  PRINT
 1340 PRINT"SIDE B = ";ANSWER
 1350 A=GET
 1360 ENDPROC
 1370 DEF PROCSIDEC
 1380 INPUT"SIDE A?"A:INPUT"SIDE B?"B : ANS=A^2-B^2
 1390 MOVE 000,300
 1400 ANSWER = SQR(ANS)
 1410 PRINT" C^2 = A^2 - B^2"
 1420 PRINT" C=SQR(C^2)"
 1430  PRINT "C^2=";A^2;"-";B^2
 1440  PRINT" B=SQR(";ANS;")"
 1450  PRINT
 1460 PRINT"SIDE C = ";ANSWER
 1470 A=GET
 1480 ENDPROC
 1490  DEFPROCfactors
 1500 CLS
 1510  PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
 1520  PRINT CHR$(141)"           FACTORS"
 1530  PRINT CHR$(141)"           FACTORS"
 1540  PRINT
 1550  PRINT "         ƒBY A.WHITEHEAD"
 1560  FOR Z=1 TO 5000:NEXT Z
 1570  CLS
 1580  T=0
 1590 INPUT"ENTER No. WHICH YOU WANT TO KNOW THE"'"FACTORS OF  " Fnumber
 1600  H=INT(SQR(Fnumber))
 1610 FOR D=1 TO H
 1620  A=Fnumber/D
 1630 IF INT(A)=A THEN PRINT A"   ";D : T=T+2
 1640 NEXT D
 1650  IF T=2 THEN PRINT Fnumber" Is a PRIME number"
 1660  PRINT"TOTAL FACTORS " T
 1670 REPEATUNTILGET
 1680 ENDPROC