SAMPLES: added samples

Author: chrisws

applications/CSV_Viewer.bas

@@ -0,0 +1,14 @@
+' 
+'	Using LOADLN,SPLIT
+'
+'	This program displays an CSV file
+'
+TLOAD "mycsv.csv", A
+PRINT "Name";TAB(30);"e-mail"
+PRINT STRING$(47,"-")
+FOR L IN A
+  SPLIT L, ",", B USE TRIM(x)
+  IF LEN(B)<2 THEN EXIT ' For empty lines
+  PRINT B(0);TAB(30);B(1)
+NEXT
+END

applications/Calendar.bas

@@ -0,0 +1,47 @@
+#sec:Main
+'
+'	Calendar (PalmOS version)
+'
+const box=18
+const lmar=80-box*7/2
+const tmar=34
+dim ds(0 to 6),ms(12,2)
+for i=0 to 6 : read ds(i) : next
+data "Su","Mo","Tu","We","Th","Fr","Sa"
+for i=1 to 2 : for j=1 to 12 : read ms(j,i)
+next : next
+data "January","February","March","April","May","June","July","August","September","October","November","December"
+data 31,28,31,30,31,30,31,31,30,31,30,31
+repeat
+  at 3,148
+  input "Month,Year? ",ln$
+  cls
+  if ln$=0 then stop
+  split ln$,"/,",v
+  if len(v)=2 then
+    m=val(v(0))
+    y=val(v(1))
+    d=(1461*(y+4800+(m-14)\12)\4+367*(m-2-12*((m-14)\12))\12-3*((y+4900+(m-14)\12)\100)\4+1)%7
+    ms(2,2)=28+(y%4=0 and (y%100<>0 or y%400=0))
+    n=ms(m,1)+" "+str$(y)
+    at 1+(160-txtw(n)-len(n))/2,tmar/2-txth(n)
+    print cat(1);n;cat(0)
+    rem # of rows
+    i=(ms(m,2)+d+6)\7
+    rem verticals
+    for n=0 to 7 : line lmar+box*n,tmar,lmar+box*n,tmar+box*i : next
+    rem horizontals
+    for n=0 to i : line lmar,tmar+box*n,lmar+box*7,tmar+box*n : next
+    for n=0 to 6
+      at lmar+1+box*n+(box-txtw(ds(n)))/2,tmar-2-txth(ds(n))
+      print ds(n)
+    next
+    for i=0 to ms(m,2)-1
+      row=(d+i)\7
+      col=(d+i)%7
+      n=str$(i+1)
+      at lmar+1+box*col+(box-txtw(n))/2,tmar+1+box*row+(box-txth(n))/2
+      print n
+    next
+  endif
+until

applications/Charmap.bas

@@ -0,0 +1,24 @@
+#!/usr/local/bin/sbasic -g
+'
+'	CHARMAP
+'	25/05/2000
+'
+cls
+ln=1
+for i=0 to 255
+	if (i<>12) and (i<>27) and (i<>10) and (i<>13)
+		? i;" ";chr$(i)+chr$(9);
+	else
+		? chr$(9);
+	fi
+	if ((i+1) mod 5) = 0 then
+		?
+		ln=ln+1
+		if ( ln mod 14) = 0
+			? "Pause...";
+			pause
+			?
+			ln=1
+		fi
+	endif
+next

applications/Easter_Butcher.bas

@@ -0,0 +1,30 @@
+'
+'	Easter-date calculator
+'
+? "Easter by the method of "+chr$(27)+"[1mButcher"+chr$(27)+"[21m"
+10 input "Enter a year : ",yr
+if yr=0 then 99
+ta=yr%19
+tb=yr\100
+tc=yr%100
+td=tb\4
+te=tb%4
+tf=(tb+8)\25
+tg=(tb-tf+1)\3
+th=(19*ta+tb-td-tg+15)%30
+ti=tc\4
+tk=tc%4
+tl=(32+2*te+2*ti-th-tk)%7
+tm=(ta+11*th+22*tl)\451
+day=th+tl-7*tm+114
+mon=day\31
+day=day%31+1
+if mon=3 then
+ ? "Sunday, March ";day;", ";yr
+else
+ ? "Sunday, April ";day;", ";yr
+fi
+goto 10
+99 end
+
+

applications/Easter_Carter.bas

@@ -0,0 +1,21 @@
+'
+'	Easter date calculator
+'
+? "Easter by the method of "+chr$(27)+"[1mCarter"+chr$(27)+"[21m"
+10 input "Enter a year : ",yr
+if yr=0 then 99
+if yr<1900 or yr>2099 then 89
+tb=225-11*(yr%19)
+td=(tb-21)%30+21
+te=(yr+yr\4+td+1)%7
+day=td+7-te
+if day<32 then
+ ? "Sunday, March ";day;", ";yr
+else
+ ? "Sunday, April ";day-31;", ";yr
+fi
+goto 10
+89 ? "1899 < year < 2100"
+goto 10
+99 end
+

applications/Easter_Oudin.bas

@@ -0,0 +1,25 @@
+'
+'	Easter-date calculator
+'
+? "Easter by the method of "+chr$(27)+"[1mOudin"+chr$(27)+"[21m"
+10 input "Enter a year : ",yr
+if yr=0 then 99
+tc = yr\100
+tg = yr%19
+tk = (tc-17)\25
+tl = (tc-tc\4-(tc-tk)\3+19*tg+15)%30
+tla=tl\28
+tlb=29\(tl+1)
+tlc=(21-tg)\11
+tl=tl-tla*(1-tla*tlb)*tlc
+tj=(yr+yr\4+tl+2-tc+tc\4)%7
+tl=tl-tj
+month=3+(tl+40)\44
+day=tl+28-31*(month\4)
+if month=3 then
+ ? "Sunday, March ";day;", ";yr
+else
+ ? "Sunday, April ";day;", ";yr
+fi
+goto 10
+99 end