Stewart Russell scruss

## 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 ]

## 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 -*-

## 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;

## 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 \

## 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 $
*/

## 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

## 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%)

## 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

## alfred_pc.bas
5 REM Mad Computer Edition with Logo Code October 1985 - PC GW-BASIC
6 REM https://redd.it/s9sudr
10 SIZE=1.2:XC=150:YC=110
20 KEY OFF:SCREEN 1:CLS:COLOR 7,0
30 READ X,Y,X1,Y1
40 IF X=999 THEN GOTO 90
50 FX=X*SIZE+XC:FY=199-(Y+YC)
60 LX=X1*SIZE+XC:LY=199-(Y1+YC)
70 LINE (FX,FY)-(LX,LY),2:LINE (FX+1,FY)-(LX+1,LY),2
80 GOTO 30

## alfred_bbc.bas
10 SIZE=1.2:XC=640:YC=512:SCL=5
20 MODE 2:COLOUR 4:COLOUR 135:GCOL 0,1:CLS:VDU 23,1,0;0;0;0;
30 READ X,Y,X1,Y1
40 IF X=999 THEN GOTO 90
50 FX=SCL*X*SIZE+XC:FY=SCL*Y+YC
60 LX=SCL*X1*SIZE+XC:LY=SCL*Y1+YC
70 MOVE FX,FY:DRAW LX,LY: REM MOVE FX+1,FY:DRAW LX+1,LY
80 GOTO 30
90 VDU 31,2,30:PRINT"WHAT, ME WORRY?";
100 A$=INKEY$(0):IF A$="" THEN GOTO 100
	#!/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 ]
	#!/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 --
	#!/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;
	#!/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 \
	/* 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 $
	*/
	#!/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
	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$="000102030405060708*0910111213141516171819202122232425*262728293031*323334353637383940414243444546474849*5051525354555657585960616263***"
	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%)
	%!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
	5 REM Mad Computer Edition with Logo Code October 1985 - PC GW-BASIC
	6 REM https://redd.it/s9sudr
	10 SIZE=1.2:XC=150:YC=110
	20 KEY OFF:SCREEN 1:CLS:COLOR 7,0
	30 READ X,Y,X1,Y1
	40 IF X=999 THEN GOTO 90
	50 FX=X*SIZE+XC:FY=199-(Y+YC)
	60 LX=X1*SIZE+XC:LY=199-(Y1+YC)
	70 LINE (FX,FY)-(LX,LY),2:LINE (FX+1,FY)-(LX+1,LY),2
	80 GOTO 30
	10 SIZE=1.2:XC=640:YC=512:SCL=5
	20 MODE 2:COLOUR 4:COLOUR 135:GCOL 0,1:CLS:VDU 23,1,0;0;0;0;
	30 READ X,Y,X1,Y1
	40 IF X=999 THEN GOTO 90
	50 FX=SCLXSIZE+XC:FY=SCL*Y+YC
	60 LX=SCLX1SIZE+XC:LY=SCL*Y1+YC
	70 MOVE FX,FY:DRAW LX,LY: REM MOVE FX+1,FY:DRAW LX+1,LY
	80 GOTO 30
	90 VDU 31,2,30:PRINT"WHAT, ME WORRY?";
	100 A$=INKEY$(0):IF A$="" THEN GOTO 100