mdavey

' draw basic gradient for picocalc MMBasic

sub Draw()
  local x
  local y
  local width = 320
  local height = 320

  for x = 0 to width-1
    for y = 0 to height-1

mdavey

'Power dbm/watts conversion program for MMBasic


sub Wait_For_Enter ()
  PRINT
  INPUT "Press enter to return to menu..."; DUMMY$
end sub


Sub Dbm_To_Watts()

mdavey

options:
  parameters:
    author: ''
    catch_exceptions: 'True'
    category: '[GRC Hier Blocks]'
    cmake_opt: ''
    comment: ''
    copyright: ''
    description: ''
    gen_cmake: 'On'

mdavey

import telnetlib
import re
import time


class TPW8961N(object):

    def __init__(self, host):
        self.host = host

mdavey

__author__ = 'Matthew'

import re
import urllib


def parse_reportlist(filename):
    counter = 999
    urls = []
    with open(filename, 'r') as f:

mdavey

@echo off
call :inputbox "Video ID" "Download Youtube video as MP3"
youtube-dl.exe -x --audio-format mp3 https://www.youtube.com/watch?v=%input%
exit /b

:InputBox
set input=
set heading=%~2
set message=%~1
echo wscript.echo inputbox(WScript.Arguments(0),WScript.Arguments(1)) >"%temp%\input.vbs"

mdavey

--noescape--
 
local tag = doku.xml_tag
 
local unit = 19*2  -- Unit size, mapped straight to pixels
local space = 4    -- Spacing between keys (as pixels again)
 
local halfspace = space/2
local doublespace = space*2
 

mdavey

local function setoptions(f)
    local options = {}
    local currentname = nil
    local env = setmetatable({},
    {
        __index = function(self, method)
            if method == 'set' then
                return function(name)
                    if currentname ~= nil then
                        error('need to call "to" first')

mdavey

local function readsection(f)
    local colon = f:read(1)
    if colon == nil then return nil end
    if colon ~= ':' then error('section did not start with colon') end
    local data = ''
    while true do
        local char = f:read(1)
        if(char:byte() == 13) then
            f:read(1) -- eat cr
            return data

mdavey

BinaryFile = {}

BinaryFile.new = function(file)
    return setmetatable({file=file}, {__index=BinaryFile})
end

BinaryFile.readint32 = function(self)
    local data = self.file:read(4)
    return (data:byte(4) * (256^3)) +
           (data:byte(3) * (256^2)) +