From 4d8e492f51cec9843071dce25f8d49559ccf23d8 Mon Sep 17 00:00:00 2001
From: Vasco Costa <vascomacosta@gmail.com>
Date: Sat, 30 Mar 2024 14:51:08 +0000
Subject: [PATCH] Refactor to stay under 80 chars

---
 tasks.bas | 342 ++++++++++++++++++++++++++++--------------------------
 1 file changed, 178 insertions(+), 164 deletions(-)

diff --git a/tasks.bas b/tasks.bas
index d51b60c..1d2b8da 100644
--- a/tasks.bas
+++ b/tasks.bas
@@ -1,171 +1,185 @@
-   10 VER$ = "v0.3.1"
-   20 FILE$ = "/.tasks.db"
-   30 DIM TASKS$(7), STATES$(7)
-   40 VDU 23,240,0,3,7,14,220,248,112,0
-   50 VDU 23,241,0,231,102,60,60,102,231,0
-   60 :
-   70 REM =====================================================================
-   80 REM Main program
-   90 REM =====================================================================
-  100 :
-  110 MODE 3
-  120 VDU 23,1,0;0;0;0;
-  130 COLOUR 15: COLOUR 132
-  140 CLS
-  150 PROC_SHOW_TITLE
-  160 PROC_READ_TASKS
-  170 PROC_SHOW_TASKS
-  180 REPEAT
-  190   OPT$ = INKEY$(1000)
-  200   IF VAL(OPT$) > 0 AND VAL(OPT$) < 9 THEN  PROC_TOGGLE_STATE(VAL(OPT$) - 1): PROC_SHOW_TASKS
-  210   IF OPT$ = "a" OR OPT$ = "A" THEN PROC_EDIT_TASK(0): PROC_SHOW_TASKS
-  220   IF OPT$ = "b" OR OPT$ = "B" THEN PROC_EDIT_TASK(1): PROC_SHOW_TASKS
-  230   IF OPT$ = "c" OR OPT$ = "C" THEN PROC_EDIT_TASK(2): PROC_SHOW_TASKS
-  240   IF OPT$ = "d" OR OPT$ = "D" THEN PROC_EDIT_TASK(3): PROC_SHOW_TASKS
-  250   IF OPT$ = "e" OR OPT$ = "E" THEN PROC_EDIT_TASK(4): PROC_SHOW_TASKS
-  260   IF OPT$ = "f" OR OPT$ = "F" THEN PROC_EDIT_TASK(5): PROC_SHOW_TASKS
-  270   IF OPT$ = "g" OR OPT$ = "G" THEN PROC_EDIT_TASK(6): PROC_SHOW_TASKS
-  280   IF OPT$ = "h" OR OPT$ = "H" THEN PROC_EDIT_TASK(7): PROC_SHOW_TASKS
-  290   IF OPT$ = "r" OR OPT$ = "R" THEN PROC_CREATE_DB: PROC_READ_TASKS: PROC_SHOW_TASKS
-  300 UNTIL OPT$ = "q" OR OPT$ = "Q"
-  310 CLS
-  320 PRINT CHR$(169); " 2024 gluon - https://github.com/vascocosta/agon-tasks"
-  330 VDU 23,1,1;0;0;0;
-  340 END
-  350 :
-  360 REM =====================================================================
-  370 REM Procedure to read tasks
-  380 REM =====================================================================
-  390 :
-  400 DEF PROC_READ_TASKS
-  410 LOCAL FD, I, STATE$, TASK$
-  420 FOR I = 0 TO 7
-  430   TASKS$(I) = ""
-  440   STATES$(I) = ""
-  450 NEXT I
-  460 FD = OPENIN FILE$
-  470 IF FD = 0 THEN PROC_CREATE_DB: FD = OPENIN FILE$
-  480 I = 0
-  490 REPEAT
-  500   INPUT#FD, TASK$
-  510   INPUT#FD, STATE$
-  520   TASKS$(I) = FN_CLEAN_STR(TASK$)
-  530   STATES$(I) = FN_CLEAN_STR(STATE$)
-  540   I = I + 1
-  550 UNTIL EOF#FD
-  560 CLOSE#FD
-  570 ENDPROC
-  580 :
-  590 REM =====================================================================
-  600 REM Procedure to save tasks
-  610 REM =====================================================================
-  620 :
-  630 DEF PROC_SAVE_TASKS
-  640 LOCAL FD, I
-  650 FD = OPENOUT FILE$
-  660 IF FD = 0 THEN PRINT "COULD NOT OPEN TASKS FILE": END
-  670 FOR I = 0 TO 7
-  680   IF TASKS$(I) <> "" AND STATES$(I) <> "" THEN PRINT#FD, LEFT$(TASKS$(I), 39), STATES$(I)
-  690 NEXT I
-  700 CLOSE#FD
-  710 ENDPROC
-  720 :
-  730 REM =====================================================================
-  740 REM Procedure to show tasks
-  750 REM =====================================================================
-  760 :
-  770 DEF PROC_SHOW_TASKS
-  780 CLS
-  790 PROC_SHOW_TITLE
-  800 MOVE 160,860
-  810 GCOL 0, 14: DRAW 1120,860
-  820 FOR I = 0 TO 7
-  830   COLOUR 10: PRINT TAB(10, I + 6) CHR$(65 + I);
-  840   COLOUR 7: PRINT " edit  ";
-  850   COLOUR 10: PRINT STR$(I + 1);
-  860   COLOUR 7: PRINT " toggle" + "  ";
-  870   COLOUR 15: PRINT LEFT$(TASKS$(I), 39);
-  880   IF STATES$(I) = CHR$(240) THEN COLOUR 10 ELSE COLOUR 9
-  890   PRINT TAB(69, I + 6) STATES$(I)
-  900   COLOUR 15
-  910 NEXT I
-  920 MOVE 160,500
-  930 GCOL 0, 14: DRAW 1120,500
-  940 PROC_SHOW_MENU
-  950 VDU 31,10,18
-  960 ENDPROC
-  970 :
-  980 REM =====================================================================
-  990 REM Procedure to toggle the state
- 1000 REM =====================================================================
- 1010 :
- 1020 DEF PROC_TOGGLE_STATE(I)
- 1030 IF STATES$(I) = CHR$(241) THEN STATES$(I) = CHR$(240) ELSE STATES$(I) = CHR$(241)
- 1040 SOUND 1,-7,200,1
- 1050 PROC_SAVE_TASKS
- 1060 ENDPROC
- 1070 :
- 1080 REM =====================================================================
- 1090 REM Procedure to edit a task
- 1100 REM =====================================================================
+   10 REM =====================================================================
+   20 REM TASKS - Copyright (c) 2024 Vasco Costa (gluon)
+   30 REM Simple tasks/todo list program for the Agon Light 8-bit computer
+   40 REM =====================================================================
+   50 :
+   60 REM =====================================================================
+   70 REM Global definitions
+   80 REM =====================================================================
+   90 :
+  100 VER$ = "v0.3.1"
+  110 FILE$ = "/.tasks.db"
+  120 DIM TASKS$(7), STATES$(7)
+  130 TICK$ = CHR$(240)
+  140 CROSS$ = CHR$(241)
+  150 VDU 23,240,0,3,7,14,220,248,112,0
+  160 VDU 23,241,0,231,102,60,60,102,231,0
+  170 :
+  180 REM =====================================================================
+  190 REM Main program
+  200 REM =====================================================================
+  210 :
+  220 MODE 3
+  230 VDU 23,1,0;0;0;0;
+  240 COLOUR 15: COLOUR 132
+  250 CLS
+  260 PROC_SHOW_TITLE
+  270 PROC_READ_TASKS
+  280 PROC_SHOW_TASKS
+  290 REPEAT
+  300   K$ = GET$
+  310   V = VAL(K$)
+  320   IF ASC(K$) < 97 THEN K$ = CHR$(ASC(K$) + 32)
+  330   IF V > 0 AND V < 9 THEN  PROC_TOGGLE_STATE(V - 1): PROC_SHOW_TASKS
+  340   IF K$ = "a" THEN PROC_EDIT_TASK(0): PROC_SHOW_TASKS
+  350   IF K$ = "b" THEN PROC_EDIT_TASK(1): PROC_SHOW_TASKS
+  360   IF K$ = "c" THEN PROC_EDIT_TASK(2): PROC_SHOW_TASKS
+  370   IF K$ = "d" THEN PROC_EDIT_TASK(3): PROC_SHOW_TASKS
+  380   IF K$ = "e" THEN PROC_EDIT_TASK(4): PROC_SHOW_TASKS
+  390   IF K$ = "f" THEN PROC_EDIT_TASK(5): PROC_SHOW_TASKS
+  400   IF K$ = "g" THEN PROC_EDIT_TASK(6): PROC_SHOW_TASKS
+  410   IF K$ = "h" THEN PROC_EDIT_TASK(7): PROC_SHOW_TASKS
+  420   IF K$ = "r" THEN PROC_CREATE_DB: PROC_READ_TASKS: PROC_SHOW_TASKS
+  430 UNTIL K$ = "q"
+  440 CLS
+  450 PRINT CHR$(169); " 2024 gluon - https://github.com/vascocosta/agon-tasks"
+  460 VDU 23,1,1;0;0;0;
+  470 END
+  480 :
+  490 REM =====================================================================
+  500 REM Procedure to read tasks
+  510 REM =====================================================================
+  520 :
+  530 DEF PROC_READ_TASKS
+  540 LOCAL FD, I, STATE$, TASK$
+  550 FOR I = 0 TO 7
+  560   TASKS$(I) = ""
+  570   STATES$(I) = ""
+  580 NEXT I
+  590 FD = OPENIN FILE$
+  600 IF FD = 0 THEN PROC_CREATE_DB: FD = OPENIN FILE$
+  610 I = 0
+  620 REPEAT
+  630   INPUT#FD, TASK$
+  640   INPUT#FD, STATE$
+  650   TASKS$(I) = FN_CLEAN_STR(TASK$)
+  660   STATES$(I) = FN_CLEAN_STR(STATE$)
+  670   I = I + 1
+  680 UNTIL EOF#FD
+  690 CLOSE#FD
+  700 ENDPROC
+  710 :
+  720 REM =====================================================================
+  730 REM Procedure to save tasks
+  740 REM =====================================================================
+  750 :
+  760 DEF PROC_SAVE_TASKS
+  770 LOCAL FD, I, T$
+  780 FD = OPENOUT FILE$
+  790 IF FD = 0 THEN PRINT "COULD NOT OPEN TASKS FILE": END
+  800 FOR I = 0 TO 7
+  810   T$ = LEFT$(TASKS$(I), 39)
+  820   IF TASKS$(I) <> "" AND STATES$(I) <> "" THEN PRINT#FD, T$, STATES$(I)
+  830 NEXT I
+  840 CLOSE#FD
+  850 ENDPROC
+  860 :
+  870 REM =====================================================================
+  880 REM Procedure to show tasks
+  890 REM =====================================================================
+  900 :
+  910 DEF PROC_SHOW_TASKS
+  920 CLS
+  930 PROC_SHOW_TITLE
+  940 MOVE 160,860
+  950 GCOL 0, 14: DRAW 1120,860
+  960 FOR I = 0 TO 7
+  970   COLOUR 10: PRINT TAB(10, I + 6) CHR$(65 + I);
+  980   COLOUR 7: PRINT " edit  ";
+  990   COLOUR 10: PRINT STR$(I + 1);
+ 1000   COLOUR 7: PRINT " toggle" + "  ";
+ 1010   COLOUR 15: PRINT LEFT$(TASKS$(I), 39);
+ 1020   IF STATES$(I) = CHR$(240) THEN COLOUR 10 ELSE COLOUR 9
+ 1030   PRINT TAB(69, I + 6) STATES$(I)
+ 1040   COLOUR 15
+ 1050 NEXT I
+ 1060 MOVE 160,500
+ 1070 GCOL 0, 14: DRAW 1120,500
+ 1080 PROC_SHOW_MENU
+ 1090 VDU 31,10,18
+ 1100 ENDPROC
  1110 :
- 1120 DEF PROC_EDIT_TASK(I)
- 1130 LOCAL TEXT$
- 1140 VDU 23,1,1;0;0;0;
- 1150 INPUT "Description"; TEXT$
- 1160 TASKS$(I) = TEXT$
- 1170 STATES$(I) = CHR$(241)
- 1180 PROC_SAVE_TASKS
- 1190 VDU 23,1,0;0;0;0;
+ 1120 REM =====================================================================
+ 1130 REM Procedure to toggle the state
+ 1140 REM =====================================================================
+ 1150 :
+ 1160 DEF PROC_TOGGLE_STATE(I)
+ 1170 IF STATES$(I) = CROSS$ THEN STATES$(I) = TICK$ ELSE STATES$(I) = CROSS$
+ 1180 SOUND 1,-7,200,1
+ 1190 PROC_SAVE_TASKS
  1200 ENDPROC
  1210 :
  1220 REM =====================================================================
- 1230 REM Procedure to show the title
+ 1230 REM Procedure to edit a task
  1240 REM =====================================================================
  1250 :
- 1260 DEF PROC_SHOW_TITLE
- 1270 PRINT TAB(33, 1) "TASKS (" + VER$ + ")"
- 1280 ENDPROC
- 1290 :
- 1300 REM =====================================================================
- 1310 REM Procedure to show the menu
- 1320 REM =====================================================================
- 1330 :
- 1340 DEF PROC_SHOW_MENU
- 1350 COLOUR 10: PRINT TAB(10, 16) CHR$(240);
- 1360 COLOUR 7: PRINT " finished task / ";
- 1370 COLOUR 9: PRINT CHR$(241);
- 1380 COLOUR 7: PRINT " unfinished task / 40 char limit per task"
- 1390 COLOUR 10: PRINT TAB(10, 20) "A-H";
- 1400 COLOUR 7: PRINT " edit corresponding task"
- 1410 COLOUR 10: PRINT TAB(45, 20) "R";
- 1420 COLOUR 7: PRINT " reset all tasks from db";
- 1430 COLOUR 10: PRINT TAB(10, 21) "1-8";
- 1440 COLOUR 7: PRINT " toggle corresponding task"
- 1450 COLOUR 10: PRINT TAB(45, 21)"Q";
- 1460 COLOUR 7: PRINT " leave the tasks program"
- 1470 COLOUR 15: PRINT TAB(34, 25) CHR$(169); " 2024 gluon"
- 1480 ENDPROC
- 1490 :
- 1500 REM =====================================================================
- 1510 REM Procedure to create the database
- 1520 REM =====================================================================
- 1530 :
- 1540 DEF PROC_CREATE_DB
- 1550 FD = OPENOUT FILE$
- 1560 PRINT#FD, ""
- 1570 CLOSE#FD
- 1580 ENDPROC
- 1590 :
- 1600 REM =====================================================================
- 1610 REM Function to clean a string
- 1620 REM =====================================================================
+ 1260 DEF PROC_EDIT_TASK(I)
+ 1270 LOCAL TEXT$
+ 1280 VDU 23,1,1;0;0;0;
+ 1290 INPUT "Description"; TEXT$
+ 1300 TASKS$(I) = TEXT$
+ 1310 STATES$(I) = CHR$(241)
+ 1320 PROC_SAVE_TASKS
+ 1330 VDU 23,1,0;0;0;0;
+ 1340 ENDPROC
+ 1350 :
+ 1360 REM =====================================================================
+ 1370 REM Procedure to show the title
+ 1380 REM =====================================================================
+ 1390 :
+ 1400 DEF PROC_SHOW_TITLE
+ 1410 PRINT TAB(33, 1) "TASKS (" + VER$ + ")"
+ 1420 ENDPROC
+ 1430 :
+ 1440 REM =====================================================================
+ 1450 REM Procedure to show the menu
+ 1460 REM =====================================================================
+ 1470 :
+ 1480 DEF PROC_SHOW_MENU
+ 1490 COLOUR 10: PRINT TAB(10, 16) CHR$(240);
+ 1500 COLOUR 7: PRINT " finished task / ";
+ 1510 COLOUR 9: PRINT CHR$(241);
+ 1520 COLOUR 7: PRINT " unfinished task / 40 char limit per task"
+ 1530 COLOUR 10: PRINT TAB(10, 20) "A-H";
+ 1540 COLOUR 7: PRINT " edit corresponding task"
+ 1550 COLOUR 10: PRINT TAB(45, 20) "R";
+ 1560 COLOUR 7: PRINT " reset all tasks from db";
+ 1570 COLOUR 10: PRINT TAB(10, 21) "1-8";
+ 1580 COLOUR 7: PRINT " toggle corresponding task"
+ 1590 COLOUR 10: PRINT TAB(45, 21)"Q";
+ 1600 COLOUR 7: PRINT " leave the tasks program"
+ 1610 COLOUR 15: PRINT TAB(34, 25) CHR$(169); " 2024 gluon"
+ 1620 ENDPROC
  1630 :
- 1640 DEF FN_CLEAN_STR(S$)
- 1650 LOCAL C$, I
- 1660 C$ = ""
- 1670 FOR I = 1 TO LEN(S$)
- 1680   IF MID$(S$, I, 1) <> CHR$(10) THEN C$ = C$ + MID$(S$, I, 1)
- 1690 NEXT I
- 1700 = C$
- 1710 ENDDEF
+ 1640 REM =====================================================================
+ 1650 REM Procedure to create the database
+ 1660 REM =====================================================================
+ 1670 :
+ 1680 DEF PROC_CREATE_DB
+ 1690 FD = OPENOUT FILE$
+ 1700 PRINT#FD, ""
+ 1710 CLOSE#FD
+ 1720 ENDPROC
+ 1730 :
+ 1740 REM =====================================================================
+ 1750 REM Function to clean a string
+ 1760 REM =====================================================================
+ 1770 :
+ 1780 DEF FN_CLEAN_STR(S$)
+ 1790 LOCAL C$, I
+ 1800 C$ = ""
+ 1810 FOR I = 1 TO LEN(S$)
+ 1820   IF MID$(S$, I, 1) <> CHR$(10) THEN C$ = C$ + MID$(S$, I, 1)
+ 1830 NEXT I
+ 1840 = C$
+ 1850 ENDDEF