Initial data commit

Task/Trabb-Pardo-Knuth-algorithm/Commodore-BASIC/trabb-pardo-knuth-algorithm.basic

@@ -0,0 +1,23 @@
+10 REM TRABB PARDO-KNUTH ALGORITHM
+20 REM USED "MAGIC NUMBERS" BECAUSE OF STRICT SPECIFICATION OF THE ALGORITHM.
+30 DEF FNF(N)=SQR(ABS(N))+5*N*N*N
+40 DIM S(10)
+50 PRINT "ENTER 11 NUMBERS."
+60 FOR I=0 TO 10
+70 PRINT STR$(I+1);
+80 INPUT S(I)
+90 NEXT I
+100 PRINT
+110 REM REVERSE
+120 FOR I=0 TO 10/2
+130 TMP=S(I)
+140 S(I)=S(10-I)
+150 S(10-I)=TMP
+160 NEXT I
+170 REM RESULTS
+180 FOR I=0 TO 10
+190 PRINT "F(";STR$(S(I));") =";
+200 R=FNF(S(I))
+210 IF R>400 THEN PRINT " OVERFLOW":ELSE PRINT R
+220 NEXT I
+230 END