C to BASIC

 BBS: Inland Empire Archive
Date: 04-08-93 (11:42)             Number: 373
From: KEITH WATKINS                Refer#: NONE
  To: ARTHUR SHIPKOWSKI             Recvd: NO  
Subj: C to BASIC                     Conf: (2) Quik_Bas
'>> Start: pg. 4
G"DW9aozHQMfHsMdsfuKR4OJLAp2r8JSdrh0qJdw9H#id2CEuzMlCRgACgy4HJadp
G"6ZkpnC0sGaXjBlFqdAuu7Phk4UDokdBju9#G4U#WbDfwCRIWzC4qYpngbc2lw#j
G"2S4t13h$pHTc2e4s1dbG4AMVyeHpSNOgG2LPFaGUVyURRz$7jkf4CEdzi9kf$IP
G"g9bQx8wmGRam935#84TQfNN6OiX$pdqy5SnwJEocqvT0$VtBx8Od0pi6nqpP2tp
G"Mmbp2umgJx3PcN7rd4b8pZh9JpKrHiBrGiRfD1rGSJrN8iuDpYvB$oZUCoaSnym
G"3#HzuPtnjSAD5HzWXypYHl8UvWga4zR1DD1216UU6yC#xVjmBZKeTdsox8MSZ$G
G"m0huDiM4MCUV3apWkjMMBUOIXaADrn9VmEkzBgAR5uGy37HUK9uiv9fEQev$dYT
G"Fb5gwMj36XKBF9cBHH9w#TQBk5ETBc5wY02uXnF9JcWWdTGd4oj#Cp4kjgSWS6x
G"g1E#vFQXOnVWjcMP8gOaShFbOFM0JAVOPZ8X7o5MY5h93nTEm0E7MU9I8Fd5mUy
G"BA#bwCpc#bGskaUFTj1N7kqXCX$kd3P1R77X6h9iXTb2DlxTFGp3hW1VJaGoBtF
G"G$pd1Wq6Fr8RttQLdORMFvS$Gg8xGp6bNRxcH7la$)l#bMiP2M5$hKQZeoCIHyv
G"IpW9N4$sWN#0wi7DJVlfpEb80Z5van5jiJydBmToEXB8Fni$x9Qp6rozyg$Q#eD
G"tidbDcnjJ7QanzI746PWHWjguOMNl9cpXCbe4pQet0kHpa3wfHtCxS27I3D8eC4
G"bfWH3$tPiKeCV4VGOhf5h5Ih#wrffK2pKFhWWFfH70BJW9sS2ziKBmvc8E6Zn8d
G"e#YDKTAechEvOgjjq9ChXZwiqdTOfW0cVac61iiwP93QMd8TU4JCl9rrWP$zCRj
G"ckMk3hy#a5wFDbQygYDKhbczHN$r9Q2lgANUMf936#QeNaeTpaoqojSwT3jc02N
G"UpDGoFUjOlVUH$$h$mxVqXTGrGiVnzOv$a7jaQm3ccwdiU4Y1Grx91bYDroitMl
G"3ogTeRfossQmi8Cey73x6Ju4sHbIbOwNBd4E4fZFC1tTE7uQw5n0x5vCHLfu#Dv
G"qk4trHoq5FCcKfnM$RzDyDNtzcS$Hk5VDNa5VClyoVQ$Nlgfku9GKk#de7cNtG8
G"l7W7dy#h#vWt#o4Vl7CtER7bshMWqYrdsuPxV8WdPK#ls9rFWc$Kaw8WhQlM4sb
G"titPzd2EDPWbSbhmpG6PJQh9p0Fq0dQPsC0fFTc4s3E7qdSZySnNJ#8KmfTVF0j
G"2dWzGOXKlqsN0ON#5x6jM85t6fpVgJ$iJf2bx6RbUXo6KeYB9fYJsWEh6Hm1hps
G"GAlOfIqONx6vk8nU9roS4Wl2AlJeOrkmewJh5XJHGq6c7VVGBvHogBcynhig4fe
G"2BOPE9#I0meGCemB8h8AtjpajCaLGJYaCYymalBhp03OaoMNtnoGJ9bgWBfbXaS
G"ah7h1chFIo21X5UII#aU7nC8i6zhah7I4yV2A44nXXUgyHDagJJD$9URJJ9xxHJ
G"Fhh7I5zNih7g6z3ih7w6zFjh7i7zVjh767Eplh7k4yNlwLmmG$VGbCq20PcsPwx
G"32sQM22wwqY00kw5gw5Mxq2sqo03c38k30Ew0sxqIYXMsqgZCMtyCc2nnTJvUVD
G"UV1mtx3lx4Sq97kgEbxgbO2LJ9TSfGdnSUfKU9nzN9xgKRAfKMnTSTSaKQOnTZf
G"ec70nT0P5Ko7hKWnSNb5FRB0gisx0k3YW9KmPoLOvfGbjylzQIPhjiOhtUVnU1U
G"LoiTOplU1062Zeois37#MWHQotM0cuSwGMeO$6q$Qrtktl6xE7n6taLBWUsnjyG
G"rJ8boWbQAqRqfemi5pWC1f8a9anJRvas5auSsscgGXHxamdVafWSlGV4aOPiJMa
G"UQHRaoCrAaHfGKLW#bC8guGqKGfTOfTGfiyVMWycvGRGeKWeQy9aZegMWeMxfQh
G"4z5EocblycwyAhU4fpbpcc3bq3JqeySjCeRO0T1LTSnLgyVbZVahKc0apcA4Dhc
G"KBq5nSBVHD9nS7$bSeyYUWeSlZhS5OCKGEKGGKGIKG8KNobu7J6tFC9s1gqL3qf
G"OP1H5HDSRj3C7ww5Aw2#27eDHTTToJTLqZonJqVwZjBATBAjJMXIrrn5TUYaxXb
G"4YOMyz8BRtMAhDV6pMEdkz1pBDyn05SUNG155yDGa0L1vOSBCxA35pai20Ilhaz
G"NoaYIE32nECUgrRYGOLXYddUU2s4#gUYq6RJFQWNoBnlBBSMmaTha35XyUzdrhe
G"QZkYEyN7CeKsTXOs#aWAxGeaKfTJdailA3oaqwka1sdqGc*gaGMCwXf8XkPxjrb
G"(GQr)g*m0tmfJld1GabiXiuuHn3GwIAUnpfyGetquX2B59hzAD7yzBDjBzbjpNl
G"DjBAFRlrRpBOcMo5yPBEHBzMo8WvUVDSLDUZP6W1$wolVpd1ruKSnS59T1LouVf
G"b1Xo23YMOBbpQ$RZ4Aqi9J2YgwYccIN7O6yPBAPlBKFvC76itwXkxqm8nDKNByz
G"BBbbXJQJKW72y8n9i49lvjibPtFkvlQomEpeP3WnnA7M9niRzAyL7zsE323W1nB
G"b5ldkt4EdYqgYqq8wLVyS1Tnm6DJYuC8EpcV0#bPrtktlY2lR6MnnuTn9CSOry1
G"0BXwxZA2YkhPlMF5Von1ZAUBwuIc5l7H8kPubTwK0zivz5cSVizPiVRyfzktji7
G"zpbjmm3tW5EcHdtATViFp0W6wq623KSs#jiIFccHfTVW2tyzXJvUrzmuU3NYP#Q
G"p3Yi#cUdK30TUYDmdF95jeoipPmpjiwwtgMTLvLD3s2e#A6LAUQ7UTZ5SS#h8P0
G"LMTT01odvT0f8ZDCDCtRXJA3H56hgvxA27i2fu3O0eDpz5CtRElJ1Au0eqmLSmM
G"SyUKPajtj2IOGpxDCLxuhnxH9ETPfolxn#DSIXPDZwtvD3LYTmpowxNuPRzzxd3
G"WEgRNOSUUrP7ZOvnzIIEkwB2v$Xc38Ic1RkUnNAQI20eVs47DkdFmmBEvxsjwyI
G"VASGM1nYcAVnauz82amPlAixf3aGrfLLzZV1xjrk$eU8iEYOgBYgw6ggVdh3fRR
G"LZM7WwPSommvDEO41wDFuMgc3KfRwkHm0uFNstCPhPvfP2G4VHw2Fk0#x5kmTcx
G"tbZRNL4fMWq0LQ8lpHLONG3flCa71zD60KY5M32kgQvgwho5RfdLtN2XK8MT5HT
G"PsDcWRM8R6uArX4IURYInjtQtjAveIl#rz04mRtJXKg4vpVBBDE#fBzqhPEARbT
G"mHjmbPtgeTthM4Sj8l2WoNLnJT#xO55OTIx2$ZfndPMo8hUZXYBCMLWip33Kjqt
G"1fI6ch7zTz5xCZ8G4MlRhfZ4FTf76u7Bqk1Nofk1726auLqWM2#sr3WohPgUzv1
G"YQyNq#XsxB86XuErteVyKuB3UgAVXhIBFnwZ3xaoDBACA6OxgxxNnss5x2VoMtH
G"dTtqezYYoTytlzWo0YtfuQasDmUoylJRdnkX#mk5kPlXbPSNYrO21HrtyDXPOo0
G"yC$Acg4n2q46XFxVhkeBA5YG3UE3YymytjQZa$a1HcOvulcg2bnDV7BwSbXb5Wg
G"fXc5WgvHc5WMcix7u61yyJ#pdBasSjk#UKIDycOD0G4maFBNf2QqHnEPZJaqYKd
G"mfCafrotZrXr2gpnkb5ztRDQZBMLH9klvQykVGmf$hhpUqNh2WOZdCowxMvBkOV
G"D396xvpULZPKOLWQVJHfHPHGB2PbM5Hpmp0KWG3WyUhJ$teEtAd8ulp#o83DTZ5
G"GLltykJeweKrw4JYiuQE0QcEgz0uOZIPKHCmuYKYqjd#YqjtpdLmQNNHsgyNJkp
G"jmwYOvi0eHDdeknMUaKspLnKB0uhMcyozkiMH1mAIjD44sPBItkRMWRAY9ibXlA
G"gXeeeS2feqfOGErmgjc$eJyhYUc765y8QOeB8H0i3zJoKJCkG1jOSnpidjE1qnT
G"#TjBvMArX2457VjEd7LvADzfdKrxIXTO2Gmb1gqb8MxutJVBlpRH3rIlcca$2Iq
G"H6ZhbKKVyplilemecoTjGHjTOnHA3A0MOTrBcvibNfcWbqT0aeO*q(WrwECb24#
G"#Fid)yp)Gc*svuqe1urUq0tdrf0KM5acYmW1aIX8g3qNWKg3qq6GMYaItmKtaIj
G"ggYug5acZKg2ugcAM34rjsXPKMZ4MWWgqidxidqeg3qgAkM3yhkQq2iYXqN0SWg
G"OaqkYpAY2eg64cqaIKqhAYM58MeUWg#qcggqmNW0g4Cu4iN3Cg54vqiXLMq5uML
G"osAAvFwgGku38XqwgIEN0irUMN2KZPYcR2M2uggQvBcc4eMZqXGshrohxquIsLQ
G"Y2nwWLUvZm22G2jExro45ugkoK3WgxqK3mgkR(qTuacS(k*y(e7yfxejXa4wah)
G"Gqb(C/ab(i/m0tm5crpneulfGalaGc*gaGJtwXft1cLniCb(q$r)f/q)c)Gjh)d
G"9etUGeulfGalaGc*gaGDfTceMMfp3by)qPc)i/q)c)Wcn)mfuwpvfvUGeulfGal
G"aGc*baq5twXf5gTkmoi*T*e/q)c)qSo)d9etXa1sbiWcaO*GbaebNvCHHyu5vDO
G"*Fe)c/)G*y1d(WqpXumU8Kqkb1sbiWcaO-07KvCHXlEV4W+d*c/e(G*Kzg(WqpX
G"umUqurgb1sbiWcaO*GbaqbNvCHfeOoF#h)C6b)c/e(G*8Eg(WqpXumU0uqqb1sb
G"iWcaO*GbaqbNvCXQFx2AMHb(0uj)c/)G*mbh(WqpXumUuewfb1sbiWcaO*GbaOj
G"NvCbFSs6vsu)OAe(Gb/e(G*8jn(WqpXumUmeulfGalaGc*b(hz5XfyJ77$Hm)G9
G"*k/q)c)q15)svuqe1urUq0tdb1sfy,kaGcaqH)qX6+a"
N=15599:K=255:IF LEN(C$)<>20799 THEN ?"Bad script!":END
FOR A=1 TO N:LOCATE 1:?STRING$(50/N*A,177):IF L=0 THEN GOSUB G:L=6
W=T\P(6-L):GOSUB G:W=W OR T*P(L):L=L-2:B$=CHR$(W AND K):PUT 1,,B$:NEXT
?:IF C=108 THEN ?"Ok":END ELSE ?"Bad checksum!":END
G:I=I+1:T=INSTR(T$,MID$(C$,I,1))-1:C=(C+T)*2:C=C\256+(C AND 255):RETURN
SUB G(A$):SHARED C$:FOR Q=2 TO 9:DO:S=INSTR(A$,CHR$(Q+38))
IF S THEN A$=LEFT$(A$,S-1)+STRING$(Q,97)+MID$(A$,S+1)
LOOP WHILE S:NEXT:C$=C$+A$:END SUB
---------------------------CUT HERE------------------------
Arthur, these are the files we talked about put together
with Postit 6.0.  Let me know what you think as far as
converting the format.  These were all of the files I got.
This is 4 of 4.  Thanks.  -Keith


--- Opus-CBCS 1.79.x
 * Origin: Crystal Palace  The Ghost in the Machine  (1:382/1.0)
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET