;; my little black book v0.0;А .fiend t$[8] ;each record can have 8 lines (0..7)А АА А│ u.fiend(5000) ;5000 max entriesА *ptr.fiend(10) ;pointers for multi column printingА2 p$=160:А2 f$=64 ;file requester variables╧ 0 ;use workbenchА setupwindowА newfiendcol=2:wid=42:hi=9:А printsetА╗ ev.l=┼ А ev=$40 А! gh=┼ А" gh=-1 А gh А 0:А newfiend А 1:А deletefiend А 2:А lastfiend А 3:А nextfiend А 4:test=0:А doprintout А 5:А doload А 6:А dosave А 20:А search А 21:А nxsearch А 30:col=╝(╞(0,30)):А printset А 31:wid=╝(╞(0,31)):А printset А 32:hi=╝(╞(0,32)):А printset А 33:test=1:А doprintout А А А gh>9 АB gh<18 А! i=gh-10:А updatefieldА╝ ev=$200А.printset ╞ 0,30,▌Г(col):╞ 0,30 ;update string gadgets ╞ 0,31,▌Г(wid):╞ 0,31 ;for label printing ╞ 0,32,▌Г(hi):╞ 0,32 ;controls А.search srch$=▄Ш(╞(0,20)) ;get search string └ u() ;start from scratch.nxsearch А └(u()) ;loop through looking А i=0 А 7 А ▄Й(▄Ш(u()\t[i]),srch$) А! А╛ А:А drawfiend А А┴ А.nextfiend А АЙ └(u()) А! └ u() ;roll around А drawfiend:А.lastfiend А АЙ └(u()) А! └ u() А drawfiend:А.deletefiend └ u() ;if last item А АЙ └(u()) ;create a blank one А АЙ └(u()) А! А newfiend А└ А drawfiend:А.newfiend А └(u()) u()\t[0]="**NEW**":А drawfiend А└ А.updatefield u()\t[i]=╞(0,10+i) А i<7 А! ╞ 0,10+i+1 А.drawfiend А i=0 А 7:╞ 0,10+i,u()\t[i]:╞ 0,10+i:А ╞ 0,10:╞ 0,10:А.doload f$=╠("LOAD FILE",p$,f$) ;read file from disk А ╛(0,f$) ;works with any text file └ u():╛ 0:i=0 ;separated by blank lines А АЙ ╛ (0) a$=▌(128) А i=0 АB a$<>"" А! └ u() А a$<>"" u()\t[i]=a$:А i<7 А! i+1 А" i=0 А" i=0 А└ А┴ ╛ 0 А└ А drawfiend:А.dosave f$=╠("SAVE FILE",p$,f$) ;write data to disk А ╛(0,f$) ╛ 0 └ u() А └(u()) А i=0 А 7:▌В u()\t[i]:А А┴ ╛ 0 А└ А.setupwindow А╚ gads А i=0 А 6 А a$:a$=▄Ц(a$,6):╞ 0,8+i*58,16,0,i,a$ А А i=0 А 7:╞ 0,6,32+i*11,0,10+i,128,400:А ╞ 0,140,130,0,20,32,200 ╞ 0,360,130,0,21,"NEXT" А i=0 А 2 ╞ 0,100,154+i*14,0,30+i,64,100 А ╞ 0,240,170,0,33,"TEST PRINT XXXXXXX" ┼ 0,50,0,420,200,$100e,"MY LITTLE BLUE BOOK",1,2,0 ┼ 16,121:▌Б "SEARCH STRING:" ╞ 10,128,400,16 ┼ 16,145:▌Б "COLUMNS:" ┼ 16,159:▌Б " WIDTH:" ┼ 16,173:▌Б " HEIGHT:" ╞ 10,152,400,44 Аgads:А$ "ADD",DELETE,<=,=>,"PRINT",LOAD,SAVE.doprintout А ╛(0,"prt:") ;output to printer ╛ 0 А test=0 ;if not test mode └ u() А └(u()) ;set up pointers for next n fields *ptr(1)=u() А i=2 А col А └(u()) А! *ptr(i)=u() А А j=0 А hi-1 ;then using pointers print out stickers А j<8 А i=1 А col:▌Б ▄Ф(*ptr(i)\t[j],wid):А А└ ▌В "" А А┴ А" А k=1 А 2 ;test run of colx2 stickers А j=0 А hi-1 А j<8 А i=1 А col:▌Б ▄И("X",wid-2),"..":А А└ ▌В "" А А А└ ╛ 0 А└ А