Data update

Task/Multiplication-tables/VBScript/multiplication-tables.vb

@@ -1,18 +0,0 @@
-function pad(s,n) if n<0 then pad= right(space(-n) & s ,-n) else  pad= left(s& space(n),n) end if
-End Function
-Sub print(s):
-  On Error Resume Next
-  WScript.stdout.Write (s)
-  If  err= &h80070006& Then WScript.Echo " Please run this script with CScript": WScript.quit
-End Sub
-For i=1 To 12
-  print pad(i,-4)
-Next
-print vbCrLf & String(48,"_")
-For i=1 To 12
-  print vbCrLf
-  For j=1 To 12
-    if j<i Then print Space(4) Else  print pad(i*j,-4)
-  Next
-  print "|"& pad(i,-2)
-Next