P ----DOCUMENTATION MAKER V.2.0---- ----------BY TOM BROWN----------- 53281,15:53280,15:646,0: .......SEE NOTES IN LINE 42-45....... "ENTER PROGRAM NAME:";PG$:PG$(PG$,16)".DOC" "1000 PG$="(34)""PG$" "(34) $ "GOTO6"; A 631,13:632,13:198,2: u " PROGRAM DOCUMENTATION MAKER " XX08:8:A$(XX)IN$::15 IN$"":IL38 "";
A$:A$""A$(34)10 " ";:IN(A$):IN13:
IN20(IN$)IN$(IN$,(IN$)1):A$;:10 8
(IN127)32(IN$)IL10 W
A$;:212,0:IN$IN$A$:10 g
I0I1010
"";:XII8:X;" D";(34);A$(XI):
"I=";I;":GOTO19";
Y631640:Y,13::198,10:
II9
"ANY MORE LINES?" A$:A$""21 A$"Y"6 / A$"N"21 N "";I;" D"(34)"" _ "GOTO27"; | 631,13:632,13:198,2: "";:X210:X: "GOTO30"; X631640:X,13::198,10: "";:X1018:X: "GOTO33"; X631640:X,13::198,10: 0 ! "";:X1927:X: A " "GOTO36"; b # X631640:X,13::198,10: } $ "";:X2836:X: % "GOTO39"; & X631640:X,13::198,10: ' "";:X3745:X: ( ""; ) X631640:X,13::198,10:
* : j
+ : 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! 0 : l"SELECT: CREEN RINTER";A$:A$"P"1007 " ";PG$;" ":X120:A$:A$"":1004 A$: "PRESS ANY KEY TO CONTINUE" B$:B$""1005 1002 4,4:4,PG$:4," " A$:A$""4: ,A$:4,A$:1008 W