home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / programming / amos / ldos_demo / examples / ldos / lload.amos / lload.amosSourceCode
Encoding:
AMOS Source Code  |  1992-01-18  |  602 b   |  30 lines
  1. 'Simple LOAD 
  2. F$="dh0:testprg/wb/kick.175.20" : Rem 512 Kb file
  3. Reserve As Work 10,1024 : ST=Start(10)
  4.  Extension_10_0006 1,F$,0
  5. A=1024
  6. L= Extension_10_0182(F$)
  7. _TOT#=L/1024
  8. SETUP
  9. Locate 13,22 : Print " 0 bytes"
  10. Locate 60,22 : Print L;" bytes"
  11. While A
  12.    DISP[CNT/A,L/A,_TOT#]
  13.    A= Extension_10_0024(1,ST,1024)
  14.    CNT=CNT+A
  15. Wend 
  16.  Extension_10_0016 1
  17. Procedure DISP[A,E,NUM#]
  18.    SCALE#=40/NUM#
  19.    POS=40-(E-A)*SCALE#
  20.    Dec POS
  21.    If E-A=0
  22.       POS=39
  23.    End If 
  24.    Bar 120,150 To 131+(POS*10),170
  25. End Proc
  26. Procedure SETUP
  27.    Screen Open 1,640,256,4,Hires
  28.    Ink 2,
  29.    Box 120,150 To 520,170
  30. End Proc