home *** CD-ROM | disk | FTP | other *** search
/ TCE Demo 2 / TCE_DEMO_CD2.iso / demo_cd_.2 / mags / stosser / stoser09.arj / stoser09.msa / TUT.9 / L3.ASC < prev    next >
Text File  |  1987-04-22  |  1KB  |  37 lines
  1. 10 rem **************************
  2. 20 rem ***                    ***
  3. 30 rem ***  UNSQUASHING FILES ***
  4. 40 rem ***                    ***
  5. 50 rem **************************
  6. 60 rem
  7. 70 rem screen init
  8. 80 rem
  9. 90 if mode<>0 then mode 0
  10. 100 cls : key off : curs off : hide on 
  11. 110 if length(1)<>0 then goto 260
  12. 120 DRV=drive : drive=0 : dir$="A:\"
  13. 130 rem
  14. 140 rem  picking the file to unsquash
  15. 150 rem
  16. 160 locate 10,10 : print "LOAD PACed FILE" : wait 50
  17. 170 if length(7)=0 then reserve as screen 7
  18. 180 cls : show on : PKD$=file select$("*.pac")
  19. 190 rem
  20. 200 rem  get size of file to unsquash
  21. 210 rem
  22. 220 open in #1,PKD$ : LF=lof(#1) : close #1
  23. 230 reserve as work 8,LF
  24. 240 hide on : bload PKD$,8
  25. 250 locate 10,10
  26. 260 print PKD$;" IS LOADED" : wait 50
  27. 270 cls
  28. 280 rem
  29. 290 rem  unsquashing file in a screen bank
  30. 300 rem
  31. 310 copy start(8),start(8)+LF to start(7)
  32. 320 unsquash 7,LF
  33. 330 get palette (7)
  34. 340 appear 7
  35. 350 centre "programme will end soon"
  36. 360 wait 200 : default end 
  37.