Skip to content

Instantly share code, notes, and snippets.

View scruss's full-sized avatar
💭
🦆

Stewart Russell scruss

💭
🦆
View GitHub Profile
View TAIPANH.bas
1 REM TAIPAN - HAYDEN BOOK CO COPYRIGHT 1986
2 REM BY ART CANFIL, KARL ALBRECHT, AND JIM MCCLENAHAN
3 REM TYPED, NOT EXHAUSTIVELY CHECKED, AND MILDLY TWEAKED BY DEAN OISBOID 2022
4 REM REPLACED DIRECT CTRL-G CALLS WITH BP$
5 REM INITIALIZATION (10-50)
10 HOME :A$ = " ":W$ = "ELDER BROTHER YU":LY$ = "LI YUEN":YS$ = "YAMATO & SMYTHE":TC$ = "O, S, T, A, P, OR R"
11 B$ = " "
14 REM OZZY REPLACED JUST BELOW WITH PROPER CTRL-G
15 BP$ = CHR$(7)
20 VTAB 4: INVERSE : PRINT A$: HTAB 15: PRINT "T A I P A N:": NORMAL : HTAB 13: PRINT "_________________"
@scruss
scruss / amazin.bas
Last active November 18, 2023 20:41
AMAZIN - by Jack Hauber. For DEC EDUSYSTEM 20 BASIC, from DEC EDU Newsletter Issue Number 4 (1972)
View amazin.bas
1 REM amazin
2 REM from https://archive.org/details/digital_edu_number_4/page/n1/mode/2up
100 RANDOMIZE
110 DIM W(25,103),V(25,103)
120 PRINT "WHAT ARE YOUR WIDTH AND LENGTH?"
121 INPUT H,V
122 PRINT
130 IF H<>1 THEN 150
131 IF V<>1 THEN 150
132 PRINT "MEANINGLESS DIMENSIONS, TRY AGAIN"
@scruss
scruss / is_z80.sh
Created February 25, 2023 04:56
linux tool to output the "Z80ness" of a CP/M-80 binary: the higher the number, the more likely the binary will only run on a Z80 chip
View is_z80.sh
#!/bin/bash
# is_z80 - guess if a binary is z80 or 8080
# from frequency of two-byte Z80 instructions
# scruss, 2023-02
# this might need gnu awk. Needs bc for sure
file="$1"
if
[ "$#" -eq 0 ]
@scruss
scruss / hootnanny-cleaned_up.py
Last active December 19, 2022 21:29
Slightly imperfect Python simulation of the "HOOT-NANNY" (or Magic Designer) drawing toy
View hootnanny-cleaned_up.py
#!/usr/bin/env python3
# hootnanny.py - simulate Hoot-Nanny / Magic Designer drawing toy
# Currently hard-coded to output figure "25KM" in HP-GL,
# a simple but somewhat obsolete plotting language.
# Output figures as close to actual sizes as I could manage.
# All dimensions in inches, unfortunately, but HP-GL is bilingual.
# scruss, 2022-02 - code cleanup - 2022-12
# Licence: CC-BY-SA - share freely, but credit me and make your
# improvements freely available for all
# -*- coding: utf-8 -*-
@scruss
scruss / collatz-memo.pl
Last active September 29, 2022 20:28
there's something badly wrong with raku ...
View collatz-memo.pl
#!/usr/bin/env perl
# collatz-memo.pl
# run time: appx 7 s
# output: max: 8400511 steps: 685
use v5.20;
use strict;
use warnings;
my ( $maxsteps, $maxval, $n, $steps, $x ) = qw/0 0 0 0 1/;
my @s;
@scruss
scruss / quakerdate.sh
Created September 26, 2022 19:06
quakerdate.sh - return today's (or a specified) date in Quaker (Society of Friends) customary date format
View quakerdate.sh
#!/usr/bin/env bash
# quakerdate - use GNU date to generate Quaker (Society of Friends)
# customary date format. Any args will be passed as the date to print
# scruss, 2022-09
# Mon 26 Sep 2022 -> Second day, the twenty-sixth of ninth month 2022
ordinals=(none First Second Third Fourth Fifth Sixth Seventh Eighth \
Ninth Tenth Eleventh Twelfth Thirteenth Fourteenth \
Fifteenth Sixteenth Seventeenth Eighteenth Nineteenth \
Twentieth Twenty-first Twenty-second Twenty-third \
@scruss
scruss / art_data.c
Last active August 26, 2022 19:20
stringart - from the MGR windowing desktop environment
View art_data.c
/* Copyright (c) 1987 Bellcore
* All Rights Reserved
* Permission is granted to copy or use this program, EXCEPT that it
* may not be sold for profit, the copyright notice must be reproduced
* on copies, and credit should be given to Bellcore where it is due.
* BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
*/
/* $Header: art_data.c,v 4.2 88/06/22 14:37:09 bianchi Exp $
$Source: /tmp/mgrsrc/demo/misc/RCS/art_data.c,v $
*/
@scruss
scruss / ThePrimeMinisterWontResign-OliverDarkshire.py
Created July 9, 2022 03:58
"The Prime Minister Won't Resign", an implementation of Oliver Darkshire's one page RPG - https://twitter.com/deathbybadger/status/1545372201402114049
View ThePrimeMinisterWontResign-OliverDarkshire.py
#!/usr/bin/env python3
#
# Implementation of Oliver Darkshire's one page RPG
# "The Prime Minister Won't Resign", published 2022-07-08
# https://twitter.com/deathbybadger/status/1545372201402114049
#
# written in deliberately simple python by scruss, 2022-07
# -*- coding: utf-8 -*-
import random
@scruss
scruss / STBEESSP.BAS
Created June 15, 2022 03:34
Speaks a limerick from SPO256-AL2 text phonemes: SPO256-AL2 emu on RC2040, CP/M MBasic
View STBEESSP.BAS
10 REM St Bees - scruss, 2022-06 - SPO256-AL2 emu on RC2040, CP/M MBasic
20 KAL$="PA1PA2PA3PA4PA5/OY/AY/EH/KK3/PP/JH/NN1/IH/TT2/RR1/AX/MM/TT1/DH1/IY/EY/DD1/UW1/AO/AA/YY2/AE/HH1/BB1/TH/UH/UW2/AW/DD2/GG3/VV/GG1/SH/ZH/RR2/FF/KK2/KK1/ZZ/NG/LL/WW/XR/WH/YY1/CH/ER1/ER2/OW/DH2/SS/NN2/HH2/OR/AR/YR/GG2/EL/BB2/"
30 ALV$="00*01*02*03*04*05*06*07*08**09*10*11**12*13**14**15*16*17**18**19*20*21**22**23*24*25**26*27**28**29*30*31**32*33**34**35*36**37*38*39**40*41**42**43*44*45*46*47*48*49**50*51**52**53*54**55*56**57**58*59*60*61**62*63***"
40 DEF FNLOOKUP$(N$)=LEFT$(RIGHT$(ALV$,LEN(KAL$)-INSTR(KAL$,N$)+1),2)
50 READ PHON$,TEXT$
60 IF PHON$="end" THEN GOTO 175
70 PRINT "(";TEXT$;")"
80 WHILE (LEN(PHON$)>0)
90 SPCPOS%=INSTR(PHON$," ")
100 IF SPCPOS%=0 THEN P$=PHON$:PHON$="" ELSE P$=LEFT$(PHON$,SPCPOS%-1):PHON$=RIGHT$(PHON$,LEN(PHON$)-SPCPOS%)
@scruss
scruss / computer_literacy_helvetica_outline.ps
Created May 30, 2022 21:41
lettering akin to BBC's computer literacy project
View computer_literacy_helvetica_outline.ps
%!PS-Adobe-2.0
%%BoundingBox: 36 400 286 550
%%HiResBoundingBox: 35.999999 399.995988 286.001991 550.007983
%%Title: modified from Blue Book Program 16, on page 203
%%EndComments
% scruss, 2022-05
% see https://stardot.org.uk/forums/viewtopic.php?f=3&t=24845
/makeoutlinedict 7 dict def