diff options
| author | Abigail <abigail@abigail.be> | 2021-10-13 02:32:35 +0200 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-10-13 02:32:35 +0200 |
| commit | 8f0be15d392803cdaa864a395c033abf6aa177dd (patch) | |
| tree | 354dbddf99480a43971d2630cc468a293080c182 | |
| parent | 55ef5170b12d97c33852518d6aae1531ec7e221e (diff) | |
| download | perlweeklychallenge-club-8f0be15d392803cdaa864a395c033abf6aa177dd.tar.gz perlweeklychallenge-club-8f0be15d392803cdaa864a395c033abf6aa177dd.tar.bz2 perlweeklychallenge-club-8f0be15d392803cdaa864a395c033abf6aa177dd.zip | |
BASIC solution for week 134
| -rw-r--r-- | challenge-134/abigail/README.md | 1 | ||||
| -rw-r--r-- | challenge-134/abigail/basic/ch-1.bas | 18 |
2 files changed, 19 insertions, 0 deletions
diff --git a/challenge-134/abigail/README.md b/challenge-134/abigail/README.md index 836c8ef566..7e426e1c10 100644 --- a/challenge-134/abigail/README.md +++ b/challenge-134/abigail/README.md @@ -4,6 +4,7 @@ * [AWK](awk/ch-1.awk) * [Bash](bash/ch-1.sh) +* [Basic](basic/ch-1.bas) * [bc](bc/ch-1.bc) * [Befunge-93](befunge-93/ch-1.bf93) * [C](c/ch-1.c) diff --git a/challenge-134/abigail/basic/ch-1.bas b/challenge-134/abigail/basic/ch-1.bas new file mode 100644 index 0000000000..d548a47195 --- /dev/null +++ b/challenge-134/abigail/basic/ch-1.bas @@ -0,0 +1,18 @@ +010 REM +020 REM See ../README.md +030 REM + +040 REM +050 REM Run as: basic ch-1.bas +060 REM + +100 DIM T(5) +110 T (1) = 789 +120 T (2) = 798 +130 T (3) = 879 +140 T (4) = 897 +150 T (5) = 978 + +200 FOR i = 1 TO 5 +210 PRINT 1023456000 + T (i) +220 NEXT i |