Initial data commit

Task/Mad-Libs/Applesoft-BASIC/mad-libs.basic

@@ -0,0 +1,31 @@
+ 100  DIM L$(100),W$(50),T$(50)
+ 110  LET M$ =  CHR$ (13)
+ 120  FOR L = 1 TO 1E9
+ 130      READ L$(L)
+ 140      IF  LEN (L$(L)) THEN  NEXT L
+ 150  FOR I = 1 TO L
+ 160      LET M = 0
+ 170      LET N$(0) = ""
+ 180      FOR J = 1 TO  LEN (L$(I))
+ 190          LET C$ =  MID$ (L$(I),J,1)
+ 200          IF C$ = "<" AND  NOT M THEN M = 1:C$ = "":N$(M) = ""
+ 210          IF C$ = ">" AND M THEN  GOSUB 300:M = 0:C$ = W$(Z)
+ 220      LET N$(M) = N$(M) + C$
+ 230      NEXT J
+ 240      LET L$(I) = N$(0)
+ 250  NEXT I
+ 260  FOR I = 1 TO L
+ 270      PRINT M$L$(I);
+ 280  NEXT
+ 290  END
+ 300  FOR Z = 0 TO T
+ 310      IF T$(Z) = N$(M) THEN  RETURN
+ 320  NEXT Z
+ 330  LET T = Z
+ 340  LET T$(Z) = N$(M)
+ 350  PRINT M$"ENTER A "T$(Z);
+ 360  INPUT "? ";W$(Z)
+ 370  RETURN
+ 380  DATA "<NAME> WENT FOR A WALK IN THE PARK. <HE OR SHE>"
+ 390  DATA "FOUND A <NOUN>. <NAME> DECIDED TO TAKE IT HOME."
+ 990  DATA