home *** CD-ROM | disk | FTP | other *** search
/ SeeIn AO / ALICE-CD.BIN / Šj”­ƒlƒbƒg�•‚»‚Ì‘¼ / nv_mini / source / nvdebug.adv < prev    next >
Text File  |  1998-08-31  |  3KB  |  110 lines
  1. ;===============================================================================
  2. ; NVSYSTEM-mini                                         programmed by ALICE SOFT
  3. ;===============================================================================
  4.  
  5. **DebugMsgPut f01:{ Debug=TRUE:ZD 2,f01:}~0,0:
  6. **DebugNumPut f01:{ Debug=TRUE:ZD 3,f01:}~0,0:
  7. **AbortMsgPut f01:~PutMessage f01:~0,0:
  8. **MessageBox  f01:~PutMessage f01:~0,0:
  9. ;===============================================================================
  10. **PutMessage f01:
  11.     US a01,30:
  12.     !a01:f01!
  13.     ML a02,a01:        ;; Get Strings Length
  14.  
  15.     !a11:24!
  16.     ~SetFSize a11:
  17.     ~SetFColor StrNrmColor:
  18.     !a14:a11*a02+16!
  19.     !a15:a11+StrYSpace+16!
  20.     !a12:(XSize-a14)/2!            ; (a12,a13) = Top X,Y value
  21.     !a13:(YSize-a15)/2!            ; (a14,a15) = X,Y Size
  22.  
  23.     CC a12,a13,a14,a15,XSize,YSize:                ;
  24.     WZ 0,0:                                        ;
  25.     CK 1,a12,a13,a14,a15,SelStrColor,224,0,0:    ;
  26.     CB a12+1,a13+1,a14-1,a15-1,SelStrColor:        ;
  27.     CB a12  ,a13  ,a14-1,a15-1,StrNrmColor:        ;
  28.     T a12+8,a13+8:X a01:                        ;
  29.     WZ 0,1:                                        ;
  30.  
  31.     ~SetFSize StrFontSize:
  32.     ~SetFColor StrFontColor:
  33.  
  34.     ~TimerSet 0:!a01:0!
  35.     <@ a01<100:
  36.         ~TimerGet:~~a01:
  37.         ~GetKey:
  38.         { Mkd\0:@exit_putmessage:}
  39.         >
  40. *exit_putmessage:
  41.     CC XSize,YSize,a14,a15,a12,a13:
  42.  
  43.     UG a01,30:
  44.     ~0,0:
  45. ;===============================================================================
  46.  
  47. **DebugNumPutData f01,f02:
  48.     US a01,30:
  49.     NB a01,f01,2:
  50.     { Debug=TRUE:
  51.         ~SetFSize 16:
  52.         B10,a29,a30:
  53.         CF 640-6*16,a02*18,6*16,18,0:
  54.         T 640-6*16+12,a02*18:
  55.         H5,a01:
  56.         ~SetFSize StrFontSize:
  57.         T a29,a30:
  58.         }
  59.     ~0,0:
  60. ;===============================================================================
  61. **StackCheck:        ~0,0:
  62. ;===============================================================================
  63. **StrArrayCheck:
  64.     US a01,30:
  65.     !a04:0xffff!
  66.     CC 0,YSize,XSize,YSize,0,0:
  67.  
  68. *Loop_StrArrayCheck:
  69.     ~GetKey:
  70.     < a01,0,StrXMax-1,1,1:
  71.         < a02,0,StrYMax-1,1,1:
  72.             ~GsP a01,a02:~~a03:
  73.                 { (sX[a03]<Msx)*(sY[a03]<Msy)*(Msx<(sX[a03]+sFSize[a03]))*(Msy<(sY[a03]+sFSize[a03])):
  74.                     @Skip_StrArrayCheck:}
  75.                 >
  76.             >
  77.     !a03:0xffff!
  78.  
  79. *Skip_StrArrayCheck:
  80.     { a03\a04:
  81.         { a04\0xffff:
  82.             CC sX[a04],sY[a04]+YSize,sFSize[a04],sFSize[a04],sX[a04],sY[a04]:
  83.             CC a13,a14+YSize,a11,a12,a13,a14:
  84.             }
  85.         { a03\0xffff:
  86.             CK 1,sX[a03],sY[a03],sFSize[a03],sFSize[a03],254,128,0,0:
  87.             ~SetFSize 16:
  88.             ~SetFColor StrNrmColor:
  89.             !a10:16!
  90.             !a11:5*a10!
  91.             !a12:5*(a10+StrYSpace)!
  92.             !a13:XSize-a11!
  93.             !a14:a10+StrYSpace!
  94.             CK 1,a13,a14,a11,a12,254,128,0,0:
  95.             T a13,a14*1:H 5,a01:
  96.             T a13,a14*2:H 5,a02:
  97.             T a13,a14*3:H 5,sX[a03]:
  98.             T a13,a14*4:H 5,sY[a03]:
  99.             ~SetFSize StrFontSize:
  100.             ~SetFColor StrFontColor:
  101.             }
  102.         !a04:a03!
  103.         }
  104. *Skip_StrArrayCheck1:
  105.         {(Mkd&32)\0:@Exit_StrArrayCheck:}
  106.         @Loop_StrArrayCheck:
  107. *Exit_StrArrayCheck:
  108.     UG a01,30:
  109.     ~0,0:
  110.