P ----DOCUMENTATION MAKER V.2.0---- ----------BY TOM BROWN----------- 0,16:1,1:4,16:5,1:6,16: .......SEE NOTES IN LINE 42-45....... "ENTER PROGRAM NAME:";PG$:PG$(PG$,16)".DOC" "1000 PG$="(34)""PG$" "(34) % "GOTO6"; B 842,13:843,13:208,2: v " PROGRAM DOCUMENTATION MAKER " XX08:8:A$(XX)IN$::15 IN$"":IL( (2))2 "";
A$:A$""A$(34)10 " ";:IN(A$):IN13: " IN20(IN$)IN$(IN$,(IN$)1):A$;:10 @
(IN127)32(IN$)IL10 _ A$;:244,0:IN$IN$A$:10 o I0I1010 %:"";:XII8:X;" D";(34);A$(XI): "I=";I;":GOTO19"; Y842851:Y,13::208,10: &:II9 "ANY MORE LINES?" A$:A$""21 , A$"Y"6 < A$"N"21 Z "";I;" D"(34)"" k "GOTO27"; %:842,13:843,13:208,2: "";:X210:X: "GOTO30"; X842851:X,13::208,10: "";:X1018:X: "GOTO33"; $ X842851:X,13::208,10: ? ! "";:X1927:X: P " "GOTO36"; q # X842851:X,13::208,10: $ "";:X2836:X: % "GOTO39"; & X842851:X,13::208,10: ' "";:X3746:X: ( ""; !) X842851:X,13::208,10:&: 0!* : |!+ : THIS PROGRAM WILL ALTER ITSELF BECOME YOUR SELFNING !, : DOCUMENTATI! ALL PARTS OF THE PROGRAM USED DO THIS "- : WILL BE ERASED, LEAVING LY YOUR FINISHED PROGRAM! _". : LINE GTH MATICALLY SIZES ITSELF 40 80 COLS. " : ""SELECT: CREEN RINTER";A$:A$"P"1007 "" ";PG$;" ":X120:A$:A$"":1004 #A$: (#"PRESS ANY KEY TO CONTINUE" <#B$:B$""1005 F#1002 ]#4,4:4,PG$:4," " r#A$:A$""4: #A$:4,A$:1008 W