100 '
103 ' STRUCTURED DEMO -- FRANK DIGIOIA
105 '
110 CALL PROMPT
120 WHILE A$<>"X"
130     IF A$="C" THEN CALL CREATE:ELSE CALL READ
140     CALL PROMPT
150 WEND
160 END
170 :
200 PROC CREATE
205 CALL GET-NAME
210 OPEN2,8,2,F$+",W"
212 PRINT"ENTER DATA..."
215 CALL GET-KEY
220 REPEAT
225     PRINT A$;
230     PRINT#2,A$;
235     REPEAT
240         CALL GET-KEY
245         PRINT A$;
247         PRINT#2,A$;
250     UNTIL A$ = CHR$(13)
255     CALL GET-KEY
260 UNTIL A$=CHR$(13)
265 PRINT#2:CLOSE2
270 RETURN
275 :
300 PROC READ
310 CALL GET-NAME
320 OPEN2,8,2,F$
330 WHILE ST=0
340     GET#2,A$
350     PRINT A$;
360 WEND
370 CLOSE2
380 RETURN
390 :
400 PROC GET-VALID-KEY
410 REPEAT
420     CALL GET-KEY
430 UNTIL A$="C" OR A$="D" OR A$="X"
440 RETURN
450 :
500 PROC GET-KEY
510 A$=""
520 WHILE A$=""
530     GET A$
540 WEND
550 RETURN
560 :
600 PROC GET-NAME
610 F$=""
620 WHILE F$=""
630     INPUT"FILENAME";F$
640 WEND
650 RETURN
660 :
700 PROC PROMPT
710 PRINT"TYPE C TO CREATE A DATA FILE"
720 PRINT"TYPE D TO DISPLAY A DATA FILE"
730 PRINT"TYPE X TO EXIT PROGRAM"
740 PRINT"NOTE: WHEN CREATING A DATA FILE"
750 PRINT"HIT <RETURN> TWICE TO END INPUT"
760 CALL GET-VALID-KEY
770 RETURN