*** XMAS2001 ***
Author: Norbert Landsteiner
System: Commodore PET 2001 (or any other Commodore 8-bit)
Language: Commodore BASIC
Length of source code: 180 bytes
Lenth of executable: 182 bytes (incl. PRG-header)
Files:
XMAS2001.txt (source/listing)
XMAS2001.prg (executable)
Description:
The length of runs of asterisks is read from a DATA section, where 0
indicates the end of data -- and end of execution, as well. Leading
spaces (determined from the given length) and the appropriate ammount of
asterisks is then printed by a single statement. This is achieved by
using LEFT$() on a string variable, the definition of which also serves
as a festive underline/separator beneath the leading REMark.
Source code has been adjusted to fill the screen nicely, where possible.
Running instructions: LOAD and RUN.
Runnable Link (online emulator, type RUN to run, LIST to list):
https://www.masswerk.at/pet/?data=base64:MCBSRU0gQ0hSSVNUTUFTIENIQUxMRU5HRSAyMDIxIEJZIE4uTC4KMSBYJD0iKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKiIKMiBSRUFEIEE6SUYgQT0wIFRIRU4gRU5ECjMgUFJJTlQgU1BDKDIwLUErSU5UKEEvMikpO0xFRlQkKFgkLEEpCjQgR09UTzIKNSBEQVRBMSwzLDUsNywzLDcsMTEsMTUsNSwxMSwxNywyMywzLDMKNiBEQVRBMA==
Alternatively, navigate to <https://www.masswerk.at/pet/> and
drag-and-drop either TXT or PRG file onto the emulator's screen.
Norber Landsteiner
n.landsteiner@masswerk.at
Vienna, 2021-19-12