Attachment | Size |
---|---|
![]() | 411.26 KB |
![]() | 1.28 MB |
This is a simple Basic program that makes your Apple1/Mimeo/etc a Christmas Decoration.
Attachment | Size |
---|---|
![]() | 411.26 KB |
![]() | 1.28 MB |
This is a simple Basic program that makes your Apple1/Mimeo/etc a Christmas Decoration.
Please support the defense of Ukraine.
Credit card, bank transfer
Bitcoin, Ethereum, Polkadot, USDT
via Unclutter App for Mac
No Ads.
No Trackers.
No Social Media.
All Content Locally Hosted.
Two Terabytes and Growing.
Built on Free Software.
We have complied with zero government requests for information.
This page, the entire Applefritter site, and all subsites of are copyright 1999-2999 by Tom Owad unless otherwise noted. All rights reserved. Apple, the Apple logo, Macintosh, Mac, MacOS, MacBook, iMac, and Mac Pro are trademarks of Apple Computer, Inc. LEGO®is a trademark of the LEGO Group of companies which does not sponsor, authorize or endorse this site (the feeling's mutual).
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