Bugfix samples

Author: Joe7M

applications/Calendar.bas

@@ -1,10 +1,6 @@
-#sec:Main
-'
-'	Calendar (PalmOS version)
-'
-const box=18
-const lmar=80-box*7/2
-const tmar=34
+const box=txth("Q") * 2
+const lmar=20
+const tmar=100
 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"
@@ -13,7 +9,7 @@ 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
+  locate 0,0
   input "Month,Year? ",ln$
   cls
   if ln$=0 then stop

applications/Factor.bas

@@ -1,5 +1,3 @@
-#sec:Main
-
 CONST s$=CHR$(27)+"[90m"
 CONST n$=CAT(0)
 REPEAT
@@ -35,7 +33,6 @@ REPEAT
   ELSE
     f$=f$+s$+str$(p)+n$
   ENDIF
-PRINT f$
+  PRINT f$
 UNTIL
-END
-
+END

applications/Weekday.bas

@@ -1,6 +1,6 @@
-'
-'	Day of week
-'
+'
+'	Day of week
+'
 dim days(0 to 6), mons(1 to 12)
 for m=0 to 6 : read days(m) : next m
 for m=1 to 12 : read mons(m) : next m
@@ -13,7 +13,7 @@ y=val(v(2))
 ?"Today is ";
 goto 11
 10 rem
-input "Date ?  ",ln$
+input "Date (M/D/Y)?  ",ln$
 if ln$=0 then stop
 split ln$,"/,",v
 if ubound(v)>1 then if len(v(2)) then y=val(v(2))

applications/calculator.bas

@@ -1,6 +1,4 @@
 
-env("TURBO=1")
-env("TITLE=Clock")
 color 0, 15
 cls
 
@@ -63,11 +61,11 @@ while 1
 
     if ucase(inkey)="Q" then exit
 
+    showpage
+    
     while start - timer = 0: wend
 
-    draw_arrow sa, sr, 15
-    draw_arrow ma, mr, 15
-    draw_arrow ha, hr, 15
+    circle cx, cy,  sr color 15 filled
 wend
 end