Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DBASEBBS.ZIP
Filename : COMMENT.PRG

 
Output of file : COMMENT.PRG contained in archive : DBASEBBS.ZIP
@ 0,0 clea
use comment
appe blan
repl fname with rfname
repl lname with rlname
repl date with date()
? [No word wrap! Please end line with carriage return before end.]
? [Maximum of 20 lines in comment.]
? [Date: ]+dtoc(date)+[ From: ]+trim(rFNAME)+[ ]+trim(rLNAME)
accept "To > " to xto
repl to with xto
if len(trim(to))=0
retu
endi
? [ End here \/]
accept "1:" to xline1
repl line1 with xline1
if line1<>space(70)
accept "2:" to xline2
repl line2 with xline2
endi
if line2<>space(70)
accept "3:" to xline3
repl line3 with xline3
endi
if line3<>space(70)
accept "4:" to xline4
repl line4 with xline4
endi
if line4<>space(70)
accept "5:" to xline5
repl line5 with xline5
endi
if line5<>space(70)
accept "6:" to xline6
repl line6 with xline6
endi
if line6<>space(70)
accept "7:" to xline7
repl line7 with xline7
endi
if line7<>space(70)
accept "8:" to xline8
repl line8 with xline8
endi
if line8<>space(70)
accept "9:" to xline9
repl line9 with xline9
endi
if line9<>space(70)
accept "10:" to xline10
repl line10 with xline10
endi
if line10<>space(70)
accept "11:" to xline11
repl line11 with xline11
endi
if line11<>space(70)
accept "12:" to xline12
repl line12 with xline12
endi
if line12<>space(70)
accept "13:" to xline13
repl line13 with xline13
endi
if line13<>space(70)
accept "14:" to xline14
repl line14 with xline14
endi
if line14<>space(70)
accept "15:" to xline15
repl line15 with xline15
endi
if line15<>space(70)
accept "16:" to xline16
repl line16 with xline16
endi
if line16<>space(70)
accept "17:" to xline17
repl line17 with xline17
endi
if line18<>space(70)
accept "18:" to xline18
repl line18 with xline18
endi
if line18<>space(70)
accept "19:" to xline19
repl line19 with xline19
endi
if line19<>space(70)
accept "20:" to xline20
repl line20 with xline20
endi




  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DBASEBBS.ZIP
Filename : COMMENT.PRG

  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/