*** 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 and drag-and-drop either TXT or PRG file onto the emulator's screen. Norber Landsteiner n.landsteiner@masswerk.at Vienna, 2021-19-12