10 print a quater [31b]
Author: Logiker
Compo: LoveByte 2025
Category: 32 Byte Intro (Oldschool)
Description:
Small character version of a labyrinth using CPC special characters. Slashes have a quarter of the size of regular slashes. Using mode 2 it is an eighth.
Disk contents:
lab33.bas: Full version with all characters equally weighted. (Could be shortened by 2 bytes.)
lab31.bas: Truncated version with characters weighted almost equally. (Shortened by up to 2 bytes.)
lab30.bas: Saved one space from lab31.bas (not typable).
lab29.bas: Saved 2 spaces from lab31.bas (not typable).
Code:
Ideal distribution of characters:
10 print chr$(191.5+rnd(1)*11);:goto 10
Truncated version:
10 print chr$(192+rnd(1)*10);:goto 10
Side notes:
- The line number doesn't influence the codes size. 1, 10 or any other require the same space.
- Spaces after print and goto can be deleted, but on a file basis only. Not directly.
- chr$(n) rounds and doesn't just cut off the digits, hence the truncated version.
- I chose 31 bytes as file size as either the truncated version is valid or the full one with removed spaces.
- The AMSDOS file format has a header of 128 bytes.