Attachment | Size |
---|---|
Xmas Program.mp3 | 411.26 KB |
IMG_0904.JPG | 1.28 MB |
This is a simple Basic program that makes your Apple1/Mimeo/etc a Christmas Decoration.
Attachment | Size |
---|---|
Xmas Program.mp3 | 411.26 KB |
IMG_0904.JPG | 1.28 MB |
This is a simple Basic program that makes your Apple1/Mimeo/etc a Christmas Decoration.
Please support the defense of Ukraine.
Direct or via Unclutter App
No Ads.
No Trackers.
No Social Media.
All Content Locally Hosted.
Built on Free Software.
We have complied with zero government requests for information.
~ Est. 1999 ~
A pillar of corporate stability since the second millenium.
© 1999-2999 Tom Owad
Load 004A.00FFR 0800.0FFFR
Most expensive Christmas tree in history!!
But I love it!! Thank you for sharing!!
Jennifer
Would like to try this out on my replica, can you paste the listing? I don't have a cassette adapter
Here is a listing
5 GOTO 220
10 PRINT “ _/\_”
20 PRINT “ <****>”
30 PRINT “ <**>”
40 PRINT “ / \”
50 PRINT “ /* \”
60 PRINT “ <_ 0_>“
80 PRINT “ / 0 \”
90 PRINT “ /0 * \“
100 PRINT “ / 0 \”
110 PRINT “ <_ 0 _>”
120 PRINT “ / 0 * \”
130 PRINT “ / 0\”
140 PRINT “ / * 0 * \”
150 PRINT “ <______ ______>”
160 PRINT “ !!”
170 PRINT “ !!”
172 PRINT
174 PRINT
180 PRINT “ MERRY CHRISTMAS & HAPPY NEW YEAR”
185 PRINT
190 PRINT
200 FOR I=1 TO 7000
210 NEXT I
220 FOR I=1 TO 25
225 PRINT
230 NEXT I
250 GOTO 10
1000 END
and an image map with spaces marked as "s" since the spaces are not displayed properly in the listing.
ssssssssssssssssss_/\_
sssssssssssssssss<****>
ssssssssssssssssss<**>
ssssssssssssssssss/ss\
sssssssssssssssss/*sss\
ssssssssssssssss<_sss0_>
sssssssssssssssss/s0ss\
ssssssssssssssss/0sss*s\
sssssssssssssss/sss0ssss\
ssssssssssssss<_ssssss0s_>
sssssssssssssss/ss0ss*ss\
ssssssssssssss/sssssssss0\
sssssssssssss/s*sss0sss*ss\
ssssssssssss<______ss______>
sssssssssssssssssss!!
sssssssssssssssssss!!
ssssMERRYsCHRISTMASs&sHAPPYsNEWsYEAR
Note that the Underscore entry is a problem since the Underscore ($DF) is used as backspace in Apple 1 Basic, however, the del ($FF) will also display as an underscore from the Character Generator so the Underscore symbols need to be enterred as del. If your keyboard does not have all the characters you can enter placeholder characters and edit the strings in the Basic program.
It's easier to make a Festivus pole.
10 PRINT "!!"
20 GOTO 10