home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / authors / len_tucker / stringtobank.amos / stringtobank.amosSourceCode
AMOS Source Code  |  1986-08-03  |  841b  |  31 lines
  1. Screen Open 0,640,256,4,Hires : Curs Off : Flash Off : Cls 0 : Paper 0
  2. ' these variables must be global in your main program
  3. Global DELIMITER,POSINBANK
  4. DELIMITER=10
  5. POSINBANK=0
  6. ' remember to reserve a bank first 
  7. Reserve As Work 10,500
  8. STRINGTOBANK_EASY[10,"This is test line"]
  9. STRINGTOBANK_EASY[10,"for the string to bank routine."]
  10. Bsave "temp.asc",Start(10) To Start(10)+POSINBANK
  11. Procedure STRINGTOBANK_CLASSIC[BANK,N$]
  12. If Length(10)>0
  13. N$=N$+Chr$(DELIMITER)
  14. Copy Varptr(N$),Varptr(N$)+Len(N$) To Start(BANK)+POSINBANK
  15. Add POSINBANK,Len(N$)
  16. Else 
  17. Print "Reserve a bank first.!!!"
  18. End If 
  19. End Proc
  20. Procedure STRINGTOBANK_EASY[BANK,N$]
  21. If Length(10)>0
  22. N$=N$+Chr$(DELIMITER)
  23. PK=Start(BANK)+POSINBANK
  24. For Z=1 To Len(N$)
  25. Poke PK+(Z-1),Asc(Mid$(N$,Z,1))
  26. Next Z
  27. POSINBANK=POSINBANK+Len(N$)
  28. Else 
  29. Print "Reserve a bank first.!!!"
  30. End If 
  31. End Proc