home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a039 / 5.ddi / TABLES / TABLES.ZIP / RECAP.SC < prev    next >
Encoding:
Text File  |  1990-08-25  |  963 b   |  30 lines
  1. EDIT "products"                        ; Intro Ex 10-1
  2. Home Ins                               ; Ex 10-2
  3.     MOVETO [Stock #] "632"
  4.     Right "Portable suntan machine"
  5.     Right "350" Right "12000"
  6. MOVETO [Stock #]                       ; Ex 10-3
  7.     LOCATE 234
  8.     Del
  9. MOVETO [Stock #]                       ; Ex 10-4
  10.     LOCATE 890
  11.     MOVETO [Description]
  12.         "/leashes"
  13.     [Price] = 385000
  14. MOVETO [Stock #]                       ; Ex 10-5
  15.     LOCATE 235
  16.     [Price] = 1499000
  17. End Down "983"                         ; Ex 10-6
  18.     Right  "Gourmet Kenya film safari"
  19.     Right Right "50000" Enter
  20.     "209" Right "Gucci exec workstation"
  21.     Right "19" Right  "449999.99"
  22. MOVETO [Price]                         ; Ex 15-1 & 15-2
  23.     SCAN
  24.         Backspace Backspace  "95"
  25.     ENDSCAN
  26. Do_It!                                 ; end edit
  27. IF ISTABLE("newrecs")                  ; Ex 11-1 & 11-2
  28.     THEN COPY "newrecs" "orders"
  29. ENDIF
  30.