This is some OLD source code I THRU together back in the early 80's.

There's 2 pieces of code here.

1)BIG MAC SOURCE TEXT, [8-bit sampler/display patch for DOS 3.3]
This just grabs a sample from and old ADC <--> DAC and displays it on the 
screen.
  I did say it was some OLD code.

2)BIG MAC SOURCE TEXT, [calculate and plot a SIN function]
This uses FPBASICS MATH to calculate a ALMOST perfect SIN and then
goes and displays it.

BOTH the SCREEN plots, use a SMALL ROUTINE that PLOTS on a 256 by 192 screen. e.g. page 1 [HGR]


FiLeStArTfIlEsTaRt
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789()
Ocalcandplot.bxyAIBgAAAAAA(4LIAgD3GAtlgFJYxwAIBgAwBJ
MdkCCA(4BEAgD3GAtlgFJYxwWDgAPAQEMF0QOF0QMBFRuQ1TLh0UAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAOBAApbU9BUObAIw6AAAAhlgF
AoADWAAAMEWCAAgCAAgAAAAAAAAARYNAAAAAAAAAOBAAYbU98E)AAEAAAAwAAEAA
jDwLAAAAAAABAAAACAAAEAAAMEWCAAgCJQAAKwQYAAAAhlgFAoADAAAADAAAAAAA
AAAAA8AAgAAAAAAAAAAAAEAAAAAAAAAAAAAyAIAAAAgAAAAAA8A(I4NAUBAAF5kL
TVFWuYjLMF0QA4yQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAs4SPM(2cmUAhFJU
IqABqGlIRBCgMCKhlVgByRKBCHOMMajIwkGCTochqUUKoQmKGbMReykgiECBQIm8
akzIilEERmQJHhAkilgFDa0wYWlJCkEUWmUhzxglCDD3QoYsCKlKYGKDNK(84cDI
aRkBRiIxf(DGinEOSpQUiZzrKkoHSmUBQOVIRFoDHbwAoSlICFMFJKS1AXTuylgQ
MgEppRXuLAHNV7mMzS3vSFkDSiMZfckIhV4zQk4dN3hIRYoaV6(wwZFIBXr(Q4e2
SJlJbljXrFMpP7WKSUhMSlAB5FDGNm)MWE0oc8EKRW4(ytQFhNS5yQF(VkE5f4bg
A52cArb3Brd44hvgOGCZA1g1SECMaTMBf3GIx0tx79aBh7mtyjmg6bG5bod9DDLr
PNL6(PMQE8wYYqoxK6zrhqG3bTQsEE4GoAkzuLKkLMtr26xtI(4UEzyoQMEUoSBO
AhNiEuAtLptjfrQkvikdkN6oG5KHg4pIYQ8SQu(q2IsxFJFDELB3qgU0SQCdXVSx
9ICZwYaJCKyahqNDSdiOiK4kooYiPyCziADQGCSp8IqcKZC5QsAEBBuRfwQiK8GV
zYcIrQgAiApgECSikICYEKZJ5c40iz2T3zjzPPP7deAQXossJqwyRpkvrEGBE0vP
XANViuxBnQhNIISHIboJngI8CjAQ4ZZCJ(MHFxEk0gSNrCxkOucgVjiCsNDHLjoI
BxOUEXRiJB)AUh57C5T1iiRQKNYCDHChSJOJ0TsAVgJh95BBJEC341ZPVJqgXSQy
8SviatOjgdaPhpYlPp2QGCJCfFUDN5024kdV0KbxWYiTPJUf9)hTZYANROhiC8BR
(Mtp0EfROFNuhVQIpaY4lsANajVlEmUwJ2QPZVRTVNrQy5oFiWalppApNalIFoMk
UGuCKK2U47KCLdEYQHrRd7QEC(be4b8f7g2UmYp)dyymbaaqKQpyOGCBIIqa4Qq)
9Sm6TICWzW56OlDwwIJKGdmuY4cS9Fa7otNQGktik0u2LUDJIGKKYriMqYIoaiq6
b1xU966alFh7uRME8WemKx9XmeyyvKUrg1JyCXAFhCwU1AcMwzZzM)3mkoYexxj3
bvYb1Qp)P9Eu66UvbfbWbeRdwtj3Qf3vB)ev8ZTrS846sNzBOcsVSHv4iwy4QOSi
1hEoO9CpzTKOeYH4nlue177pfG36nqAdKKJojK)e)qmmGsb4ise4a)rjlGc8qzLo
PCSIMIKaSy(tJ1sokNXpUMpAoQNxBRlJ7lpZOi0EP0CgKcYpPhGWnrshYkChhWUY
Bs40ATY(JBJkoOkKQ7tw3EB9DtaLPIbT4pDmyQgqz4kaDEwAAT)woldF4AiXYpWT
MtDIDCVthSoHCKXxEG7KoeobJHWADjJfnwh9CQXOcpooGFE(oEXGKxNSQeKF5czw
Xq4RIhk(Ajuawhmj0H2KMnqIzRhUVpYqfNnLSgiSJ)asJFkaDCFkEQjXBTBkSlcC
qQG0Ms6wIESIRlZcABJS5elQ1HzrIkRSNWLeAixHpW0WebGJyJYBctcnVIOrDwjz
khqG9tAKIRCZXiBlwCh9QDlCqjuoWR41RieLXBtT2ZICduWItsAKvstMEaRjqKVY
RebPJTRztuMiFYKyToBUz61qEN7E(FDqgQKBhgWUzCQGyDjTWDkUKiDpM1I0Txu1
Ah6q86ou5aT6rMWGVS73T2ECUUdczuDFpcc2IEL)kzRg0wymd2zAsAJKBidsnOt9
sj3yj4(IAjETnIpkoEOQBIAM5bpCkuChZUGglLogokBchzSqEB3WKUWAOvs(jyaq
NFJsWsMSEMqug41iWYGEtUMk001bKe9otAzifUJ5TVFIjII5Vglu6vJVwqlKweam
PXCigTPJN6jqiThF0WdOusSiqjMWwH0Vp72Aem657VKBemKRUD2J6psp47FkVpsk
zZiUroadzsvOJytqSwSheFc3DRDfKYrRpXkCG)3I2ZhUdFcUjPpI0axqBaFxmJjk
X5YqAqNBMJ)N01VQyWkF42EImEmSTBkTGzCShV3oGUil2aSBEAsnN6l1hGHLBxWQ
)PIUDpCTaOoUygip4jhtS5Exy5OAeuZlIS1j0AOB8BhmaSAZjqGjRFKvFxkSxb0S
t6jpRIgIHlKJsFO6zKCtrm2jVHx8wYp4IhQQYZueMsho4ab1k5WrDAQQmxhFp9gj
GSR1(ez8(5UCOJbZpUxcWEfpZcjrLnsWTIFQlT865J0ckUt4Z(ETFhWQWK1oJdse
NqVkfbL8FiRtbuSzWbl(JPnQDp4r4(tw1cC1jtZmLgJ7(EuAjpWjVI8ohBsnoSW4
Mf0uCXMny)yWtctmuXF6wc3jfECXyhch8JMPjDenWdVChslvuO5kWQIXF0KYevo2
SP6cJ1RYkpA9U0Q8ryJL4SmK7AYQykq8vEOp5RQCyxniUsReXexlU0rT5FsBjpAz
I4V2tI8BUQhAkchGxdp8kAASyDxtSwoVEzFqOQPbFkDVawiF(Bxe4b4cGMKrwUPB
mry)sooDKTZhaaUepNuLQsx3zon1uCk0Qmey4KOaUZHahbqDdo1c4lB1VZrz0(oT
hUHqobN)wPkahy1FWNIIIg0vvqbq9v7sNof7g34Zbmsvt2NwbwDkqNP3A5w9AyqI
KRM3hYagiJxCEQirkBtENOqWlNlKhm0UauVfiD0VxmmkBReh1uJppZdiSGhFPaF8
vpSDl1V0QB5J0qBCcTB2(ToYeDs934cXFBJCXZnOBYS(ApZ11eLPwPelkvpa6YIe
hTIluYDGRilWG3Rk6HDbBgyelp1vSeBKq1rXDS6LFekLjO1UmYfIJMwpLj)SVuqg
OdElFFAOFKFP6xeykxKPRZ04RWHYdtrZR4ZVQ4kmF(xFfMJ4HuWbPPaL7ZSHJa9p
0ChVbZiVBdmcBHweQCmNpNKAy5yyjmyaDCUZgAMHAnzgPdbweYLhFAMzBBaMQqGD
8sxAh0MZOMhfDCibAvhxLiNaZJenYr3j11(G8MaEQDnDAOA(1dAQDgl2ACBAgDQb
OBAAYbU98cKLAEAAAAgAAEAAjDwLAAAAAAABAAAACAAAQAAAMEWCAAgCJABAKwQY
AAAAhlgFAoADAAAADAAAAAAAAAAAA4AAgAAAAAAACAgAAAAAnBAAAAgDAYA(uQFA
YVkTuMVVQ5iNU9ETAAAAAAAAAAAAAAAAAAAAAAAAAM7LLY42UtdAgiG1TuoYqilI
hlGTIswooGEKCEEDTosgeSEExEATMW8wPehiSFLJWSEBqU1JpliICFKEU1lhGwNE
GLoIYyEJyzBaJpEByBDGgQJ0NXwUpVUGigrTVkQJcWkKSCBgFaWhxyBpChtWWN4c
121J7kgFFQ4ENSGLS2qmFaqlN3WK7jotX6mlLjEuBDkLUlC1kmUqpllUQgkskBSK
BgIwNVwIC0ggxTgDRoMRESCEhlKDUE8opeoKCBGgIuABMSSExCA3Ro0YNaa0RbAV
CHuM01ghNxh9mhAJZBUzx5NmQIG5AR0JtmHHTSqsK2EIxDANJcT2yZzGNcGCQmUh
dWSIcjggTTEHEh0Iu8)dTwbfXy60I6ziTSTRlC11ydBTTSPcIbX3NiIqBgOsMGPq
JGMAbR0JigoouDFouAciEYy2AphAZYoANTiDOQNN50IbCwy0MAcwBR4N85tBIK2Q
IKGofnzjCKHeSmCpqIEe4R6IQkgoBimgGaBi64KmwCJEYgSANvmtCniIi0yEEQJz
ArrahuN4WxCQ)GGikTj)dUMcQjkk3EAN0ClWoKqImggIsOuEknaONL1AzCRlq0s4
wPv2CJBN20AdEwEkUYQAOyUOraBt4KHZD3nOjkY0hOg7kKpRHFFw0jHEgIasPjLh
wANS1G5UroyzSCbaCSG9Kd)TUFWlNCw0Ulc0NCTQnpFvIycxF(GBYdlMiNzUmWiO
MzCQarUGqkYQwiomqmCxFKKEguqHSCrIwPmudmQo6IGolt4PgcaTtuokL(xx9Ifv
LgFEogAb3two2SBWFID7s47FYwUKuPikKzooJK(QjegSjgMEvCigTGGzbPNSlc8X
)soI3wzQvuYuioIcEn1KzZAGXA0n6ABSQzsHjk6QmVbNWXRUN21t0OL67UxPqkbl
iQkIoaRiyqogQlEBPTOD13PajeC1iZJJk4j3gZQYBWQBiCxZJ6uSaFCBmQoDQMnD
QkdMXp)kUO8YSJVI5gXUuYRBIGm3j6w(d(DrogohcfyR1iZvIrHL(tsoQxdkTgX7
OFElWXPvDPac2NPngOsbB5MTkWCCh0N0WVAfjqnXc3qEdsoEoIF3Wagkhg2pQx57
8A60h8rYbrkNu0xt4A7jYPYhJdKSoxdgbtY1ML6J4UqmQytTbzYHSAftlkCPgIIJ
oES6tA3pa(dO7(63ckjwEwcmwSZ1KDd5gJ8uG0HhGigP4t6AF6R7ybHaFcluhkXo
iYpSQ)cuS1zrGJMooMIWMWoZq(CBqifgkTodnFcQavPtgh4Ess(McbAkJ9VeATJv
m5aB76zBkDo1ZsyFLYSiPqPRTIw)sJZkMMSDx5smaMokrVsD7dgCcSV4NEhsEAh1
CF2kVAuskEJoTJYwMgVuaOjOL0IZJRpia4sHhwByycGiUKwRAfnBt1GOCZoKJ1F6
EUE0uUN7xgeCGDaIVcCVyQq8OunxIo8UZ77PAaYyEHmC0gidQIBLooFBY9oQyMKo
icqICg3VAcaD0Y9JMpQo3pEcVYkLEFqTjF8PJ2gAukDwMassCuy1kKXFMMPELLJS
MIy2zghuyHxf0digyrvEhQoxxJLShmoUoHdGQvynoGJMOEVeSgV)E7GQRSSNxBhS
oUIh1YoIluixJ9iEOWUhbojyenlILjLwR3IBiAUNHkhw1YMlaGjPmT6R29SMcPeT
GpZE7LODYaiGnBDkskkmUBtApPIibaEVBn9HTSMbApoMlqUAGlMRKfKsqZJbIDFo
pqiFRTQxEZKBjwS4p2XOmA2E7QF0JUCEyCDclkjEEqHmk6QAsGaCH2a2MkhoTpNl
AiyvcawzCG82agITt5)kgwCQ7kUqtlc(iCg7ooBgaQnoJChMSF5bKLAWeYFPQxKL
E6ijiWsSpJlxTFlIOnqUXsGACb0yGYVqNMNDjStVVbyRCHtUnhAW2mzxACs5MEN1
6edXkvRol2a90VtslgJL1FrwBMNTobZTL8UZjaiICG8FEr9CESCoYZlDGJIgEQFj
mErzQK1bqVswArJBQSAbfoKhj7VdJC0UI637u4Q(dm(IKEyJ942BHFBmqTDMIwM(
BwegWEsKCiMGgUAYhBK8BjWjhWRexJqXJEH740T63mUhsGLrbJjtNU9vuTCyFzWM
WZqLU2cEEbBMkVeUBXtWKREosq)vXCothbwPAoQabLWp2SvNm0AuYfiIkhHilQ4w
FEMToZoCwf2fo7(Xl0LJLIYMZTc4qIBjAO1fmSlbpb9U0QMrCARMAY7aYQoY4llq
hGLDaCsa4Ar9V3iBFlo0dIO7GHKVo2xyEGpfEkhY6UArNEonEPOWseAGI3wCytI0
iPCEGBhKUpWGz6ao0YApvo8rAIhsaB8nI(LKBEZM2(DwMBQAA0KAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
Ackd