%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:108 File Name:CALENDAR Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record "DAY"?\->D "MONTH"?\->M "YEAR"?\->Y 2+D+2M+\Int (3(M+1)/5)+Y+\Int (Y/4)-\Int (Y/100)+\Int (Y/400)\->W 7*\Frac (W/7)\->W "WEEK DAY IS ":W %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:88 File Name:FACTORS Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record "NUMBER"?\->N N\->X \While \Frac (X/2)=0 2\DispX/2\->X \WhileEnd \For 3\->D \To \sqrtN \Step 2 \Lbl 1 \If \Frac (X/D)=0 \Then D\DispX/D\->X \Goto1 \IfEnd \Next X %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:250 File Name:DISPLAY Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record {1,0}\->\List 6 \Send(\List 6) {3,1,\(-)1}\->\List 6 \Send(\List 6) \Cls "NO OF POINTS"?\->N \Seq(X,X,0,N-1,1)\->\List 1 \Seq(0,X,1,N,1)\->\List 2 \(-)2\->\Xmin:N\->\Xmax:5\->\Xscl \(-)5\->\Ymin:40\->\Ymax:5\->\Yscl \Text 2,10,"TEMP" \Text 58,100,"TIME" "PRESS EXE TO START" "READING TEMPERATURE"\Disp\For 1\->T \To N \Receive(A) \PlotOn T,A A\->\List 2[T] \Next {1,0}\->\List 6 \Send(\List 6) %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:92 File Name:DIFFLIST Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record "DATA MUST BE LIST 1" \Dim \List 1\->N \Seq(0,X,1,N-1,1)\->\List 2 \For 1\->K \To N-1 \List 1[K+1]-\List 1[K]\->\List 2[K] \Next \List 2 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:116 File Name:BINPROB Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record "NUMBER"?\->N "PROBABILITY"?\->P "PROB (X=0) IS" (1-P)^N\Disp\Seq(0,X,1,N,1)\->\List 1 \For 1\->X \To N N\nCrX*P^X*(1-P)^(N-X)\->\List 1[X] \Next \List 1 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:175 File Name:MANDLBRT Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \(-)0.8\->\Xmin \(-)0.4\->\Xmax 0.5\->\Ymin 0.7\->\Ymax (\Xmax-\Xmin)/127\->H (\Ymax-\Ymin)/63\->V \Xmin\->X \Ymin\->Y \While X<\Xmax+H \While Y<\Ymax+V X+\{i}Y\->Z 0\->N Z\->C \While \Abs Z<2\ And N<30 Z\x^2+C\->Z N+1\->N \WhileEnd \If N>29 \Then \Plot X,Y \IfEnd Y+V\->Y \WhileEnd \Ymin\->Y X+H\->X \WhileEnd \Stop %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:122 File Name:DIRECFLD Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record (\Xmax-\Xmin)/126\->H (\Ymax-\Ymin)/62\->V \Xmin-4H\->X \While X<\Xmax X+10H\->X \For \Ymin-5V\->Y \To \Ymax \Step 9V \Y 1\->M 1/\sqrt(1+M\x^2)\->F \F-Line X-3FH,Y-3FMH,X+3FH,Y+3FMH \Next \WhileEnd %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:112 File Name:D.E.PLOT Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record "INITIAL X= "?\->A "INITIAL Y= "?\->B \PlotOn A,B (\Xmax-\Xmin)/126\->H \While A<\Xmax A\->X B\->Y A+H\->C \Y 1*H\->V B+V\->D \F-Line A,B,C,D C\->A D\->B \WhileEnd %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:118 File Name:SAMPLE Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record "P ="?\->P "SAMPLE SIZE"?\->N "NO OF SAMPLES"?\->X \Seq(0,A,1,X,1)\->\List 1 \For 1\->J \To X 0\->S \For 1\->K \To N S+\Int (\Ran#+P)\->S \Next S/N\->\List 1[J] \Next \List 1 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:64 File Name:ARCHIMED Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record "NO. POINTS"?\->N:0\->S \For 1\->X \To N \Ran#\->A:\Ran#\->B \If BS \IfEnd:\Next S/N %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:167 File Name:SAMPDIST Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record "POPULATION IN LIST1" \Dim (\List 1)\->D "SAMPLE SIZE"?\->N "NO OF SAMPLES"?\->S \Seq(0,X,1,N,1)\->\List 2 \Seq(0,X,1,S,1)\->\List 3 \For 1\->J \To S \For 1\->K \To N \Int (D\Ran#+1)\->X \List 1[X]\->\List 2[K] \Next \Mean\List 2)\->\List 3[J] \Next %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:89 File Name:COIN Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record "NO OF TOSSES"?\->N \Seq(0,X,1,60,1)\->\List 1 \For 1\->J \To 60 0\->X \For 1\->K \To N \Int (\Ran#+0.5)+X\->X \Next X\->\List 1[J] \Next %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:169 File Name:CARDS Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record "NO TO COLLECT"?\->N \Seq(0,X,1,100,1)\->\List 1 \Seq(0,X,1,N,1)\->\List 2 \For 1\->T \To 100 \Int (N\Ran#+1)\->K K\->\List 1[T] 1\->\List 2[K] 0\->S \For 1\->M \To N \If \List 2[M]=1 \Then S+1\->S \IfEnd \Next \If S=N \Then "NO OF CARDS =" T \Stop \IfEnd \Next %End