Below is an archive of three short programs which
complement the series of Apple ][+ demos from Mark
Kriegsman. All of them work regardless of the OS used.
The first two were written be me. They show something
like a scan line interrupt using a real dirty trick.
Both of them can be exited with the ESC key. While the
first one draws just a static image the second combines
the mode switching with flicker free full screen
animation. The problem remaining with the later is that
its timing depends on the 50 Hz screen refresh rate
used in Europe. I was unable to find timing constants
suitable for 60 Hz so I include the source code (text
files created with LISA 2.5G / DOS 3.3) for your own
experiments. IIgs users can switch to 50 Hz quick &
dirty with a POKE 49195,24 (don't call the CDA menu
after that). The Alternate Display Mode is also
*required* (Finally ! A real application for that beast
! ;-). BTW, the timing used for the page flipping in
Mark's 80 col demo is just bad for 50 Hz. To make it
useable with 50 Hz do the following under ProDOS BASIC:
      BLOAD IW0
      POKE 32785,21:REM was 23
      BSAVE IW0
The last program utilizes a similar technique as the 80
col demo to display two hires screens side by side,
i.e. with 560 pixels per line: The KOMPRESSOR takes
hires page 1 & 2 as input and shifts the even/odd
pixels to page 1/2 while setting the color bit in page
2 (the color bit of the original hires images will of
course get lost in this process). The FLIPPER shows the
complete picture by rapidly switching between the two
pages (same 50/60 Hz problem as above, but not so
critical here). Look into the KOMPRESSOR.DEMO for
details about the usage. Using 70 col software 140
chars/line become possible...
 
FiLeStArTfIlEsTaRt
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789()
NSCAN.GRAPH.SHK AQBWAAAACA(4MIAg2OFATFRHR0htAQBWAwuC
GVvTlzW6H4xHAAAAR0hCBIxWRMAAbFRHAEgEAEwAAAAAAAAAYBAAAAAFAAAAAAAA
GVvTpfK2DAAPAMAABAAAAoDAAAw4AQAAAAAAAAAAAAgAYZxOAIwF7AQBXglFFAgA
R0xCBIxWAMAAAAAAAAwAAAAAaAAAAAAAAAAIAAAABAAAAAAAAAAAAgMACAAAAMAA
8DAAFQoC(DAAAAgABN0UH5iTQFkUUpDSUhVRPxkLTVkU1YjLAIDMAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAb7PA7TIccmkAwmGTCQQDmy0JoBCgVoAkEBiJDmCUI4whYCyESFJvI6gZmnmN
TFEjI2oxApiBDlANa6wh8EGNDkgLZy4xAJnMhDKyOQgAyFzFRDL4RfEYc)WJTEKz
d2gxaojkykJFBCGpyCiHhgskRjGpTnkJjkH0WU4pg)GnTlDhSoiJNUQGiGIFJQQB
aMUGLEIWd5iQIKzuB2NecwIJMcnMQ32tDnIJHUgISlIFN6axaADHykAUVOTZAJlK
M5KTMigY60w0ik3SWhEpBRZ0c4ObUOL5iRSFi4DZRiYJetEJNb5joNT2yUD3CmyU
BpUh5NsA(aw(DakICUUJMmmflZXBX(b6xAJrbwKGdTWsIkgMkTYGMSC2qiA4T27d
J9u9Be5yRU3I4ZoKsKqAvtoh0oBKJw4c0oA)YggQggmceeMIIA1aoxYGnkIAPgmm
MivOGKKGqwo)nEICCjDpQlhrgE9KIYaJqIUbAKEGCKSC7EAArib7QbcEQzuNvNxK
EGHz0ABGQcU8vgvpqZCQLEDvIbEEcgEjhwZqpNhQtG(AcELKZYYQRzIfKu)SKPHA
sRbEAeLoijHhoyqiHLCygdoGFioYCyATH1DiFJPSEs5MwAEUhTaj7qhhRtA3qcnK
rQzMRyK0mKCiIEFr6BCK4k40TC1r9WkyuGCuTVmIWgAs0BmscU5MV54WlHzSNB60
hJeI2kS05KOv4eaJhErw0hHkkOuNJMLwciKKT8iKPibhf4Vy12YVcVJNOsk1qQz0
RGG2HqGi7xwKQ0gyDjqwECBDNOOY4YdMw44QjhEzCaRjMOMcI6spjok6jDQRduGp
yGCojt7GCGwsCtxnaW(2aR109UggokA6gJoCwtyBNOu0SitM34wo1Cqzdl4Oog7I
wUuc111FXUX2pnnXFebtgwtI)F7YhQRqqago5KGcD9lgEoEm64xgZeoM48QBIFEl
CiouVYbTdhWgJo9kjm5YpQU0oBFqmOIShKmJgohA)BIC7mltdbbbuvhju(du9A4G
OZIAYbU98I(3AMAAAAgAAEAAjDgOAAAAAAgBDAAABAAAAAAAXg1FFAgAXAAACcBW
MUAAbFRHAEgEAAwADAAAAAAAAAAAAUBAgAAAAAAAAAgAAAAAmRatAAAAAAgZDNFA
u4UQBJ1R6gEUYVEVM5CVFJ1TAAwUAAAAAAAAAAAA7)CIALVr8jFIg4QqgiPZnkKA
pyShZAyFnAK(phBmkBCBvkK(p2ShoACGQgI(HAa77nQuGAZm3DBiDkEIADQrQvZy
Q0q9YxEwgnK)NPgoQDcUKre(peP0EIKoADVzKnP0tiP0gBcUGVvThKM2DAAPAIAA
BAAAAoDAAAw4AQAAAAAAAAAAAAgAYdBAAIwFAAQBXg1FFAgAR0RDBIxWAMAAAAAA
AAwAAAAAaAAAAAAAAAAIAIAAAAwASRAAAMxQIsCATBAAOF0QSdkLIBVQJ1kOT5CW
PJ1QuwETwUjNAAgMAAAAb7PAEzY0cmkBwmGTCQQDmy0JoBCgVoAkEBiJDmCUI4wh
YCyESFJvI6gZkPWODHGvbwopU1QESgGgd4ghCnGNSwFeZ4oBkX2MBBJgIUwwi5CH
hBM5OE8oev0oDlJubw4J1ZiOyDJNToMhHUQKBDA9OQQlK2AGSlBTWDMsEmjrLiBN
LqI5kJ1ILgDgQQkgZUAG4gP7d2sB0LHMjgDvdy0JNaUn5nsaY6kBkW2MinkNWjEs
0ClIRVJ1VGMpKuEgKSOQJMTWWbUGylnMrhQhKByJB051Ogu9In2KTnHlYqkQZKlN
SwCBNU0wqGl0xXL1wFYtdR8JuCE2NQMnfCGGB97RN6evLqt5Oh(4MYogH6MHB98F
QYknDGO9diowN6Gvhm(8h84F9h0tAzmEY47LvCqZevhO6(yyz7IGbo7rwxhErfgO
GGqoLQN7KsjiCMyyC2)QD)oGU5iG2)DcQTvRkdBRD9Imkq0GsggohDJq((vsIAr(
iIYGwfwDRNuhrPgL7EgyskXBSgEkRKthIrxRJt8uEI64hojEvwfX1KBiGKzEQNYJ
WsUsPt)(D6CCAFLZQVoDkYT0jPCAikzLKC4a4aKIqo4kyhFpAzOCqMpygrYI7gsi
ixw8WlyTGECIKAOskgowUCjl1TkQRPL5keGGCAio0xIKWVi0BGKi6LA0sIjYVSBi
kVh0IsKWzioyX5DtBVaSHqlVKKHJMWWWETdoChmdoTTqOMEeiKQqOMF7CARjCaQt
KIAg4roJkkoIWzolQCrBJIKeAA0yj8T9BgqhKMavqCuQ6r(IQ8yEhjtFyFTDMMiQ
AQsNyoYYD0CkNYXMKKmUlupPEEigiACmQBBCVLUdYBLJ(AO231xwzaY4EEGANrNs
JP(sYtlK(ABZ0IycmykJpMuotvmVdVYtBgrfgp6JYvlAUoEuplBBFGIl(pFLagOG
U03GLGqhTlr)tpRGimWcT77QbAa6q3WpqPQhhEGeBMAoL25ZjJGceojIcYYYiBtG
N0p1hjfb4TUEqWqAw5xHzw7aABpyVutpRM22bjLXj)JIoH3aYansQICqBAvWKMCh
NOyMe6cN32ymVqI4rFz7EwBWga3ALzAPcB41pfscIiJWuxrIrh4V7AXQT0ZicLym
V4zKNTIfrq43vKNIqwAAwA0NfyIzjKaKarShflEAoiuNz04wCinGodCUhpKyQfkV
yufVi2xPmgSCSJ0lO8rSuz3ex9ZXdndIz7z3OUxq)FG3OXSgBOo4B0HQrJQE3ek7
kWhwTWsXSG)wlf4V15Qmet4zVZ)X1sevOpAo3HBkEYk4g0M8ksxgGgwH07DY91aH
gIdhVX3BcWiL(QwDBFEmFKGjhjOnAWWDsyBjv0zh0BH0VO2rAHkCdLrw3f1DvWx(
nct)hSgJIZkCetbY)RwN1wcxbCzVniG7qLwuh42bMvB5FNKWMYhLIsEgGUlAGCjQ
T9Q7TLuio7kwMEbMfhYoSIMvoCTqQwrzzmAgryAWs1adYtYbMCgRTxBGIcpEh1Az
IsA6XQN6EhnOokmec77ABUBIAGoOKA(V2yzxUkqtIhQYCJIo)mLSglcMI2iBOAeA
YVzZWCqzbxMcgQmmqn1g9GnEVrBF4ICDAYMWEVMmvCDgaJCxYOvLBSYvGspMZ07y
pV581EkoNd7PTrUXEKbmTXjpotMlZOtanSyvJU9NuTnzdjCKvUCtOlcnuw7gBYgd
kG6WVpMkkRiDfxZqZsuNai1zXhATjGIH7WCTEjSIt4wBIdMqUTIYGECemv2wIdcQ
p67zfM305YWRymQ1z6Wk0HPpvNDKVuU2iim8CAJCidxKIq5GKPCxmM80VCR0xH7U
wPVCMptHrYTymGIFCoAlZIMREsRHgU6060hCfobDVTEHJHkq1uTwsOoepSvgr3QX
66rfe5ITxzadZpewdobpNoftV3mqMzga4)reuWHcBUHZq)(Wqq6Ny9Dd(8Zj7ATE
VBCiktWq6ubW4AlRo8kgCn0aQ466owChrnKxYVRKXpQ8IGDEdo3sbAGECT46FYta
VgSOWvyVsiuzuGnVphSpCucWUab2AWjrwJd1HT8OfNt8C2Cl7FTZRFpt3bkRVNyW
ECsvhyUJalxsfRWrd)5u5imtC0fQ7MaTynu2BBrN11W27kQ8OLN4FeyBYq9YuTw(
FIrsuUn7lfIdZkXhkQG4762UQuruX5T(ILUIiUhAuKg8(SGow1h)AXUgTQQBKnwi
c45kGAm0Bg(ixDJYiOHpOVMODSeZNOAKr7IaSUfsgogKQJIgEOZKhizJYfAIarRQ
caI09lE2CFjAgFkUQFxxSpSxBgEYCaIAGGAZP4qCGPB0pbIAw3gt24gA9bt6rNJE
s33pQCKEgqhNFiA(NEs8iDsGYgbK(FixmiL2gUIMXmFdjVfwcaHEKOAViLCIu8Y5
cbwaZ3HsWhGgNd5c)IA)QmxrzUxHw0Zm1pKrUBN7iGHeYrWRRfQP(WDKcyRshPIf
KSeB06Xj5cvo3pS6OWsusGjhExBn2z)All(aA7)mug(NMZy9B1s9VmFltUpsT9Lz
ZNVCgzGGhAnFRiCBAFadRwGEEQMFsMjhiOSgXnmAWRb2TgEiFUEFBQCJrCxTTWk1
lxm6qg5rCASVtjxEt91z6oAcIgIic3PxFwIiQ3izCggDpMiIKEKSCCKUNEKuXqzb
PtQOCOB4kDRWAC7qEboz6igFIWIsqwLJze6CiNwscFRbPVQ4DiHAmARQaCiIABSq
JuhA)lFYYDqgNjKLGpswUUIhEEAo)AcAzHntcNOnn3z539c(fSnHXw5517EALitR
AwjFCAwAAAAA6AQAAMOAGAAAAAAAAwAAAIAAXAAACcBWAUAAYdBAAIwFd4QBSsVE
DAQAAAAAAMAAAAAAAAAAAAQFAACACAAAAMAARAAACQS0HAAAAAgABN0UH5iTQFkU
NpDSugVSSN0UMx0TAAAAAAAAAAAA(DAACuy2gIABrxuXYUQJ8zCCgEAQQLI5wI0C
CUGMiBGgKkogA5iJe0iBpOBqCVmvTASUpOgKCWGXUJhgKAkJYFEEUqwlNLAKDCAo
Z8kltyHNrBgogUcRpYAIo1QRnQpJMwykrZNfVNbpONYFDihGZFeAFGgqADIYVAqx
JDGALEkNCqg1MFYQ7zOwZvOmQzkg6RuFKehcZcm3YnSoKHxmX8H4(zQAQFxc)zlg
4JgKicK)ISAIDXDovpS0wigu6TKBvhy1l(7IWxZFRibrTa04AMSXAfxQGcZgpEkc
A1aC3CkLCeeblCmRFTxbusegXwjTILuqG(dnmBkQiS2MKRuJ5zfVout9rDiDAtYt
E41J48BynA8fuIVOpFic8hK0H41Ih2ic(77jEkZAAUEA4BshQRRBQnDuUcBlBeug
BCAZeBoZglGGQOAJFYQAILDWGIZBnGGoxsgppYQghCESGw4jDkCGcTARCFVWUx1d
BIgBkLDlbJQhUaS4xAUbhUZQAywUQogAACCSYBUCIAAIgCDDAlAAaaUgho6Zslph
mSpqKmGmaaYcxSXahoYaiCngSaSDIIKckqNMpggoCgKpEpiCZUeAJD0ZptkBEQgD
gCGlZaYgpDkYttpZFBAAetA0QBGeJhoYkpphGyg9QCVGaYUCx7qYfENFHifALNVU
VXVPFlFVVVd1AWwXOBwGYbU98IgTAMAAAAgAAEAAjDgOAAAAAAgBDAAABAAABAAA
Xg1FFAgAXEAACcBWQUAAbFRHAEgEAAwADAAAAAAAAAAAAIBAgAAAAAAAAAgAAAAA
toK5AAAAAAQLDNFAu4UQBJ1R6gEUJxkRFBFUAAgUAAAAAAAAAAAAAAAAAfVrALVr
ADVrATVrDsBIAXVrD0BIADALg9OEgCQpAI6D9DN64DNiKHsog1P0GVvTlWL2DAAP
AIAABAAAAoDAAAw4AYAAAAAAAAAgAAQAYdRAAIwFBAQBXg1FFAgAR0BEBIxWAMAA
AAAAAAwAAAAAVAAAAAAAAAAIAIAAAAAApOFAAAQ6AkOATBAAOF0QSdkLIBVQPtkO
SBVTTNVRAI1TAAAAAAAAAAAApiNAGUIAgAAoxCIq4Bi(xiMgOCi(KhJgAqNIIjqC
oAMyliO0AkmBQDcyAka2gaQhoCCA8HLgAiHI8HLyA6IIYoEmgQRa4Ao2KQR6IjMq
QjCwGUq4JDQaTDNwAJKGNCWqgCIar5IAAkLgAkJYQjMQo5(9gjOgqDNYmpEYmpkz
mp0zmpkzmp0zmpkzmp0zKBmzK9sZK5sZK9sZK5sZK9sZK5sZm9sZOb2zpoKY6XIw
FokS6Xo(7XoiKogCKsvJKsvJlqvZfky(gkgqKufhFCUCgkQ)l(fh8Xo(g5fhPXKq
RCYCOXq)R(XKghp(GVvTBLG2DAAPAIAABAAAAoDAAAw4AwPABAAAAAACAAQAYdRA
AIwFBAQBXg1FFAgAR0REBIxWAMAAAAAAAAwAAAAAaAAAAAAAAAAIAIAAAAAAK1NA
AEAQBAEATBAAOF0QSdkLIBVQPtkOSBVTTNVRuI1TNVERAAwTAAAAIgDAXCAF6EpO
6MjksAzkyEMMskzNBbTOxwCM6ETOsAzkyEMMskzNxkTMyMpOskzNwEMM5EDLsBQM
A4BCTqDk5cjMBDDL5wCMyEsNskzNxkTMwMpOBDDL5cjM5EDLTqTM5cjMBDDLxwCM
AETOogwkioLASJEBL5UVQ10TTVkUS90U6qjICRgIOVlUJxkRFBFUAIiUygwmU5LA
fDAJAwDCSqTkTqzMwwCM2woO1QjMSqDNTqDMwwCM3ITw5wSOwEsN5EDLTqTMwwCM
3ITwxwSO6ETO3IzkwwSOsATwxkTMJUCAQCgRzIpOwMpO6ADLyYDj0UDNwIpOyMpO
skzNwEMM2kDL3ITwxwSO6ETOsAzkyEMMskzNxkTMyMpOskzNwEMM5EDL1AQMAAVC
yMDj4YzN3woOAgjNalwPU5LAJqDJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
Aw(I