*NAME DATAPAD % F$(200):N=1:D=0:1,66:Q=0:1,67 k 0,0);"DATAPAD by P.R.ILLMAN. Menu driven allowing 200 items up to 32 characters long to be stored" (0,1); "and processed. ESCAPE will work but data is first saved to ""DATAdata"" file and can be retrieved on next RUN." 20,3); "First time users and those wishing to retrievent data - PRESS 1";0,4); "Those wishing to erase old file and create new one - PRESS 2" <START F P__RECALL Z T^E dgraphics npage xdisplay X=(0) H X="Z" 80,1);N-1;" ENTRIES": TT=11500::80,1);" "  X="N" entry  X="R" review % X=252 D>1 D=D-1:redisplay ) X=253 D=<(N-2) D=D+1:redisplay  X="E" erase  X="S" search Q=Q+1  Q=1000 OUT , X=-1 X = 0 X<> 83 X<> 78 Dx@  search C1,82:1,84:62,2);" TYPE INITIAL ":1,82:1,84:57,2);" " Y=(0) S$=(Y) " Y=-1 TNA ,S=1 N-1 V6 F$(S),1)=S$ D=S:57,2);"""S""";62,2);"SEARCH ":redisplay:tB@ @ ~J1,82:1,84: 62,2);" NO ENTRY UNDER ";S$;" ":1,82:1,84: T=1 3000::62,2);"SEARCH ";57,2);"""S"""; T ^ entry +h5,3);" " Pr1,82,:1,84: 62,4);" TYPE ENTRY - PRESS ENTER ":1,82:1,84:57,4)" " |80,1);N-1;" ENTRIES" H1,67: 5,3),F$(N):5,3)" ":1,67 \ F$(N)>32 5,3);"ITEM TOO LONG - TRY AGAIN ": T=1 4000::page:DhA 762,4);"NEW ENTRY ";57,4);"""N""" N=N+1:X=0 D=N-1:redisplay  N>2 sort D=1: redisplay 80,1);" "   review I57,6);" ":1,82:1,84:62,6);" PRESS ""H"" TO HOLD ":1,82:1,84  D=1 N-1 redisplay  TT =1 150 XX=(0) M XX ="H" X=-1:57,6);"""R""";62,6);"REVIEW ": Dx@ & TT 0 D C:D=1:57,6);"""R""";62,6);"REVIEW ":redisplay D N display X5,3);F$(D) bX=-1 l v redisplay /5,3);" " display   sort <1,84:1,82:5,4);" SORTING - PLEASE WAIT ":1,82:1,84  C=1 N  SORT = 1 (N-2) O F$(SORT)>F$(SORT+1) TEMP$=F$(SORT):F$(SORT)=F$(SORT+1):F$(SORT+1)=TEMP$ > F$(SORT)="" F$(SORT)=F$(SORT+1):F$(SORT+1)=F$(SORT+2) A F$(SORT)=(130) F$(SORT)=F$(SORT+1):F$(SORT+1)=F$(SORT+2)  SORT  C  F$(N-1)="" N=N-1 (5,4);" "    graphics 4 1,138,"=","A",191,191,176,176,176,176,176,176 4*1,138,"=","B",191,191,128,128,128,128,128,128 441,138,"=","C",191,191,131,131,131,131,131,131 4>1,138,"=","D",131,131,131,131,131,131,131,131 4H1,138,"=","E",131,131,131,131,131,131,191,191 4R1,138,"=","F",128,128,128,128,128,128,191,191 4\1,138,"=","G",176,176,176,176,176,176,191,191 4f1,138,"=","H",176,176,176,176,176,176,176,176 4p1,138,"=","I",191,191,191,191,191,191,191,191 zUDCA$=(1)+(130)+"?"+"A" UDCB$=(1)+(130)+"?"+"B" UDCC$=(1)+(130)+"?"+"C" UDCD$=(1)+(130)+"?"+"D" UDCE$=(1)+(130)+"?"+"E" UDCF$=(1)+(130)+"?"+"F" UDCG$=(1)+(130)+"?"+"G" UDCH$=(1)+(130)+"?"+"H" UDCI$=(1)+(130)+"?"+"I"   page  61,1);UDCA$;40,1);UDCC$;40,5);UDCE$;1,5);UDCG$ 5 C=2 39:C,1);UDCB$;C,5);UDCF$;C,6);UDCI$: \1,2);UDCH$;1,3);UDCH$;1,4);UDCH$;40,2);UDCD$;40,3);UDCD$;40,4);UDCD$;40,6);UDCI$  CC=2 6:41,CC);UDCI$: 0,6) $1,83 @.55,0);UDCA$;93,0);UDCC$;55,7);UDCG$;93,7)UDCE$;:0,0); (8C=56 92:C,0);UDCB$;C,7)UDCF$: +B CC=16:55,CC);UDCH$;93,CC);UDCD$: L NORMALISE V1,83:1,66 `1,66:70,1);"DATAPAD" &j57,2);"""S""";:62,2);"SEARCH"; Mt57,3);:1,241:62,3);"PAGE FORWARD";79,3);:1,240:83,3);"PAGE BACK" &~57,4);"""N""";62,4);"NEW ENTRY" "57,5);"""E""";62,5);"ERASE" #57,6);"""R""";62,6);"REVIEW"   erase N57,5);" ":1,82:1,84:62,5);" ERASE ENTRY? PRESS Y/N ":1,82:1,84 YY=(0) N YY="N" 57,5);"""E""";62,5);"ERASE ":D=0:tB@ q YY="Y" F$(D)=(130):57,5);"""E""";62,5);"ERASE ":sort:N=N-1:D=1:redisplay:Dx@ # YY=-1 YY<>89 YY<>78tzD   OUT D * Go to index after a period so that auto switch off operates. Q=0 *CLI #I   =17 1,66:1,67 (CHANNEL=("DATAdata") 2#CHANNEL,N #< C=1 (N-1):#CHANNEL,F$(C): F#CHANNEL P Z d __RECALL nRECALL =("DATAdata") x RECALL=0 DZ@ #RECALL,N & C=1(N-1):#RECALL,A$:F$(C)=A$: #RECALL   START J=(0)  J = "1" DP@  J = "2" d\E & J =-1 J <>49 J <> 50 ttE !65,4);"ARE YOU SURE? (Y/N)" JJ=(0)  JJ="Y" DZ@ 3 JJ="N" 65,4);" PRESS 2 ":ttE & JJ =-1 JJ<>89 JJ<>78 dfE  A$(3,5) " C=13 ,A$(C,1) 6 @AA=("DATA") JAA T#AA,A ^A h rAA=("DATA") |#AA