Category : BASIC Source Code
Archive   : QBFAQR01.ZIP
Filename : POSTIT27.QRM

 
Output of file : POSTIT27.QRM contained in archive : QBFAQR01.ZIP
DEFINT A-Z:FOR A=0 TO 6:P(A)=2^A:NEXT:OPEN "B",1,"POSTIT27.ZIP"
T$="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789()"
G"qT0aeOaagaGbamYHkKH48zsOQjbaa8Cmaaadaaaaq90uuLevYCJlcf0uHPWEhyWggSldln
G"qchSqclKWbwCacguGbhyqb2CGfxSGcgGGcluGbvqGbxuGciuGbvyGcLyachGHchOaclCWc
G"eucbLqGcgqqbuuqc0CGbxKGgRWp)8V)(7ZWcSSallWZcSScRmeGiJqrf2CdAjQ528uGbsm
G"cfLBVL3h7)xGdlP91LRLq5pc5Kxg)MH735QrLFuVpRVDlX7KOh9CkQy4oIiFTu5x(6yF7x
G"EV(vTRgplx7hR(9M8Zwc)O8tDE58EJVd()V)(tDD(1M3wQ4WFV0Yv5Rq61DDbFdXUk)J61
G"(w9NJD7ouc8BfL3FQxhpBH7hseepS(PoU9Gr)2n2UkT8hTD)SSVb3NGFsZBL2xVJgJVT2)
G"3hpnpV)M))S8xUoQ(3R9)n2lxA7EDL)))8YLN1)F)4)8xUd)Ie)ZW9pUxYJXNkxR)sB7v3
G"Ek)xEs4ELPFtmMVoknV8RDz8)5OUR)JiCVTS(Vw(l7m9)R3Bx3Rm(6(FT8Z5z(FkwCzbU3
G"1F8vCV7omDkDVxcMFJNdd(LwM3G9EB(a0pJVvVx4CzF7QQb7tjMq5BEg0EWX6Y2CdGQarN
G"qS51L)V2(55E8FmAVjq)YAE02hA7Z)QxraP2EohY)7ZlWo54P89A(m(c3Zt17pk)QEKdZQ
G"jVhZLBs3w41ZRdq3HJ0F8phlFJ7V3IGY91GlxLpsv)RlZ1QH3Js91396J4lv)fo2dQ9pKO
G"hQQQ3ZXYIFxFuBA()hgFRFx7z(C5hHNZ57F8xNu0F)Nx16QT)lh6VFQRsRJRx)YSisXIwO
G"oMee4hCm2Xl9fN27i1eIoFr26XnJVKTPS7HRDLCJ1HC9NU)5vE2EASCVPE(1Xh0wa7L2HJ
G"XGJ8eDRpaWFP3ImT21MW1z46jINkbdkBwBPYh5JG943hR(0t0Q6RXb5WXb1fgBZ5lnLkAR
G"92xSyV)drt9z9Qb9D38onVV)rDto5X9ggkGpxRT8D)0((NxUoVcP2THFR5F9lwy3Fw3PSR
G"DzF2yOZ8kdz19QlVRv2NpRl3(8w(VTlINAzpRj9hNyfRyflFUG7lJVc9ssgNg970BSIvCS
G"O7yt7xNbWFjVJvYj2UvSuUlJ3c5TTE535n5YA83PSlMF6ggc9XVlAE8m5uMVnQjrt8w)Ni
G"4yYB12hXEKC((OXEDtER)SiN3)kpA138((q)34qMlnoY1flNL87(FnKnFFhsV9oAp(P74S
G"S73huNkxvztvGP0TH3B4d9HT8CClj64Ud113pI9cPRe72A2(EUVNaA)Rey8zDxJ4E12QAg
G"27a9TQo(k3hsvX5xsghIMQZDJSnVHOPcDEj79FfuprKPm9ltRZF0EX(5)JZXvJ7T4iY27B
G"WVIqic9OXeg)Hl2mmCm)KgRN294F3OYE()Bv8hQ)(C1kE942QXByMFwy8DqS51(TWDb496
G"d97v6Q2fdRAMDGQu1STIfUOEZDYszP5JyRs0HTFzlAXtBFV(qUJldvQTCAtJJjmW87tw)n
G"u2SwF8VjMSlbXS4Xr7v721UJtEmEXDBZ6AmYsEpC5QYLtyzBFAEx80IenAM)pnBOL3vRCf
G"cLWz5J9sHmT9EocXh(WfshN6OHVPe1Omielm7NCVUjfI2PDRedJih6HwisUtYj7SYmgzKE
G"0lSagVIX6Qz6wmJy4UrL7gW5xgIBQ7MOnOEz9wvNGLX0fvCcSooHNqaOTVwFSOOVxvU2iR
G"xVkdOrG9DDw9(vKhFDaN)LPiiC5wLFxuziIN9qb5FhV2(DZC3wiJDW5vHsmYjlwzBL8SKp
G"S83B0yMXqQShp65BuyPIQf221UJNFBKw7QvF2ar76yhli7dYJc)tLijmfoCsx1lZ5Pxn7L
G"8ftT6Dfsn30jXyAZlDTzU(YTPkVgQ92fniQjChnYh8B916DSxT1WUTd3V6(EDRwoAGTtE8
G"pkuP3VUwSG7gv8tRKuHj3cs)z4iUZX8knlcKce9phHR5E9WPRBS4tVZvR65hg9I)27(Ax6
G"4nnpnNRUQKfZAqa3xp(m)FK0(6B7L(u1)GWFDvh1YIAUXPxL3MsVkRENYSiYIkgYVcwwGJ
G"wqrflr4b9A9hpner33rD71U1V1goQN2F6K8)P8C61oTFVUSCJ07W3r9h359NsI9g1Aq3E)
G"EZLZP9YwO4x44ca64Ttm1FR4V2o)CgQkhpP5Lud3IqEl2Jmhkyo0L2SW98OXkfoou489GK
G")TRCvBPWm94POI14o3ceBprJlt04nhnUKJgVzPXLS14nDnUKLBpXGJlzYXB25OENOkO4Rw
G"iDJBtuPfvSYcQc3j1rXEkUh1TF3o)jzbZj)4yLChiADyGVHYipqhh3o2B4BOsUxEtipGlK
G"dcpS8IJfdpdcx)KygbxZtW1qHT7oT6mi5qrHORkf8)X2cv4qOck4hSbPa8rgsew)4ehf42
G"EGWv19aSc8g1U8xDKnonL9Tu40RgZLs6biLApoKdqFU6m)2BiPha6TF7x8h80SF4knas6s
G"XmpdIqVubGivt3IkhgNib)se4DyxloLuwzqV3)GEjLiS)08PoyKAdZQJ0ZHOVwPrlvCoEb
G"fa3rArdAP7P6iXTG2Nt73TBs)ihLb9F1QuTBvRAH)GZekalakuVJD5NWtLPxVGrSyAFJLz
G"3ToCCyR5KvMzed2dVadZk2tHnVB8i5lnpXAsEzNTaF6EdRSZjJyKrbQey92HLsVz6DAHhn
G"133K8UGLQLQuQmUX9DDQ43WFvggTXzH96CYkFnF5yjuYDr8TzsILLtDTBFU4400y7yJRRl
G"tQwe2fj0cYU6PwFZlJgYXK5lva8ofA9UnmzF7XrI83Q7FYVDR3Km0A1dyd416ofgNq4OjK
G"WtEWqgtK5)BN)FsbfqvQH(Gwe)63DV3qxzpLeTpZJTBzZQ4H8h2m(HDCDP07HBobFLw7k8
G"kULJTn5LrBvqQnnFMs8XZ)hN8IdLfLPxxDhYcUXV5TCxUeuH8MsRqbIhHBVtvzrNcA8ogB
G"h3PcjvhwIJg3(nuui33YCA()maXxenvS4xxILXkA0u4u2J2H4)jtZaxUVGjxthDCG8w2tr
G"9MupCo9GEOwVPGPhstofDlQMEknNIOho09MDm(8u68qU5nJt7pQDhe2YCKn2pL5Nu32sOT
G"mhPQhd2b3Dp6OXTE99HS6858jS)zJ0rsBBThKEv4c8oMOGs9iC4DgAyI03bfELoKVirek4
G"pLkDFqpZQbJ8akjnFteARD)MfpcNNWRWlllXQHGPNkoIIvxM1olCihUf24M5i6MalpuyGZ
G"MnWj4bJIr(QMj4Fz8f)ua5uPdSOjucDxqb5)Z2oFQDhPPjmptWBzcEkpceN9lbC2LeBhU3
G"noWhrEXrWV2ZYCIUZm7QpOIVx1XghEEG5dTPAcsVIy5c5iffRLwRl)SfQqg9mla3HBubZY
G"38S8wHarLJlvboIoovvZsapKcEeg4HEGRNi0p6zIVpawCIEMghqyMz4UXH2gP(h6ro(lmm
G"g33IgbMEGaHhpKGMHdPhtPg)4rIjLMGPpC)YemHcKu0RraPIMsqJ(yICQyjs8VxAKhbEyr
G"rR(Y6ZQ8se30SwIK3pmhdHK1cjoXfozDtOHbVrqDBt1JtvnbhqNAAIttVChtFFaijpBZNV
G"K4UpqioQLcojsupoljJ5Wvtgo5p(81mPOGDxepKy60PaqTvXxuPL6Sy)1geKkDIkdLZHRc
G"xvCSB2FDC5nQGULnKuTVry93ItdBCzwVHk7l2PojRR51fPNCe)siI5DhfLoHIcZwKssIET
G"yrLOQRBdrcfyDz082MqelsUbsgrLxRqvTED7kvhPAKlq85rQAUgNoM4NpYwj2DnZyyiHZy
G"utXOxB0iHnP04cXy4faZxnByaWK4BP9aip(Tl4GirZWytjuemsG1GrapPBse5V5Faf2Uj2
G"s7yh3(hmjhM0Qh06KONZp2YYVPNawtAAm2PaSsk058AzbkU4cCGl2RLUzaxsYqQfcFIaPi
G"gbfG006JfmjhaeUrKPrJS1XPLRWcAmIwsir50YjyW4OPJGgnvx0EhIO9AQqCj)j5tXvzfX
G"f5L5dRvOin1UGhgaGo(iELxKqBSROcOUH7Ofv6R)Nl9dzZxl3sYmoGl(2)SvfCMc8TH8tm
G"2IcMwiQ4dOisdUX1lzD9HWckTWQHYcYlpfBLvp8OXPhuySpOlQOYLAEkqqmaew7UeYH6Tn
G"MFND32Atm85IRZDHqCZc3(LMY)SNW9fdyKxaQ9Y98TkSnSiuXUThznrlOl7gbjvw4GRtFT
G"Z51kWbbXRO6amwyGF5reigiS(Az1eB2pFCv5keGND0V4EeqYi2Eqtj4y2b6wwJUNyjYS8d
G"HWwTxobux5hBEUoHjwnHP1VBCvxFt)uxRq1evWcvOk)PXTLGYUlCGRW4yEfuFCJScAoko7
G"focDUoSbWHO7pz12qcT4cGI20Nj7NBWbWLnG3fif3FJbfxHNWqtahbyQ12ZmuRYpuQXV95
G"v1kAHhUBtn8g9l8JhgHynPR2nsC6LwC8Wb3HivdNgNOfMPLtMzgndADuOOGqIWIRJPvgmS
G"gRhyAhIRTTb5DWb9ivnHdluc0PrtiQnAMBECGzqtHRXjKErZEdn)jrleVWj5MBipwJlieU
G"NJNgmgwO6ThNgmsSL0apvei5OgT(PfdNpuroTwHWjvymM2VGOb1LiNwK)6)BfRKkuLF)06
G"pnNOLAOinFRezHdjmliASA3j5NFQHcECcShQqCewhbwJGcIP9CzWAWdQCvcAHPgst1cyhV
G"9Cd4IVA1X1SbFuJ2G0ge2tIwR0mGQBfkYNwQzuOi)b5JcLNojAJsRWrHDRcIvos8hfcNtM
G"XiSlCe2lcKxq0682kXo9SKdB7XrRdKEnATJcNiE4FuOiAJ4Qpue2ak7XHI8nOXuvfF6phk
G"6uaVls(f(8O(D9trKxHQUs0qhJbdQSiXj6yy6FEd9j3hHIqhMmJjwfrbUQxx891H5wJLgo
G"nFmJTW1cWqlGPTTmfKieTHnSJJenA0i4HfJ5ytDqVXDcnK0Igkkiyt)UPuiPKfsrHumBQs
G"nrG3WCq)(KJbCy0kWid5c2ATND2DZgLDPOCzaDZO9dVnhqbBpDroNGgefE1E(0ibhEFqLD
G"RlXRHornNzdAWXPve5IReuiIRtoJcohG(eSA3fmLnnkrp1pGXsz2v9vMKpSqMD1LhiRUBd
G"1YZXr8dp4QsCjwsRUJ1315ABp0qG1QLrfcHC(WWbpFlsmWoMZs081ucAJU6CIi)FV74n7j
G"VuoFQkqqW6k7rkfjZ1XejrGvacWcGvNtj9ittgWTZjchLxKtyuasooMeQB7Xtv8QKle8iI
G"IGKayS9bracmhmleak55ajrYWv6uZea08FOzvmXU9YZMCaf6xmyNQbRstehwU4tCMdK0Yf
G"Aro8WgUlYF6yqAgooGDcomH(hwathPaMX(cUeaBqSvl8d2kdHxbqMTWhbkEwZGsmiyogjm
G"PK8nLfE(F)0K8DNdshTeSmujabxSlmTP4S0J9NLsQ8hRNpl3gnC7gfB)3)6lx)yoCU9P2T
G"bSqcQSGKBWIhkauvt0A(QbNs0sJNZgZeT8iUoRiv52uEP(V(ZI3o5(PS8SepAtUGAX5W(p
G"UGFSqIHq0juCoewq9JHtFZovvDHJXm5C83)kprWJf0Kf1DCftzUXHEdSWIzpAN7YQiflGc
G"vaP6k8BAeaNvHQsHE)GI4GL2XRR7qjaFL)Eb58rSxiHueKtTdQaOKJxJvp(HJ5lhiEfsbe
G"WpIhhx0HTsihLAoLuuMivxGCuL5JgQqne(VpVkJnQEBp)afFKgXoqGyMqWYNI8hCke)4eX
G"3g3L89IEuScZSS1L46GPI9I5v2yOCKqLVd92kOZRgcMRVFVcw3LNeUbRRHfLYRomp2KIkm
G"8fWoInKCckN)NFWeD(iELQw)2v3ibLQf)LQqjcoFTqgxWLgJKWWYePICHlZPEqgc1CeACj
G"I7rwj3dw7kx1wkSaT0PqW68HNnJFAIEjOt6crpm5HaMxJxGIUiajcdp8hw)WqFR8j0gOXF
G"hBvdxvCLtNnotwUqmRaYhpXKGuJJh2)0r8u)dbzowPLDkzveppSR3yuWzImtJitQVlSpvc
G"4flF8U(U2sioc0HXLx9DtLxJr2fa5PumZgWc0KDmyNbbOgEi8pgz5fj4M3HO9gMSsm(Loz
G"nuB1GgLg6PA9JTBJxnOjQJQkyj(KiyJAadOh3AWiAvGaOKk)A(AqbJtCYEPt5etCcbI50q
G"yPrYWWdm2zf1UQgepVDyGLyJQsYdK2tZf6OOggiLYJFkiPugAS1UZGOgfv8Nv5nMlMsmdm
G"XDD4fyrTVmi8cDHs9GXyPiwaho9NwifxiA8KyyJgwa1sbiWcaOaagaGbamYHkKH48zsOQj
G"baa8CmaaadaaaaaaaaaeaaGaaaaaaaaaaupnfvjrLm34IqbnfulvGbaaaaaeaabaGoaaaa
G"ukbaaaaa"
N=4836:K=255:IF LEN(C$)<>6448 THEN ?"Incomplete script file!":BEEP:END
FOR A=1 TO N:LOCATE ,1:?(100&*A)\N"% done";: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<>178 THEN ?"Bad checksum!":BEEP:END ELSE ?"Success!":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$:C$=C$+LEFT$(A$,70):END SUB


  3 Responses to “Category : BASIC Source Code
Archive   : QBFAQR01.ZIP
Filename : POSTIT27.QRM

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/