home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #5 / Commodore_Disk_User_Vol.4_5_1991_-.d64 / prob1a (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  43 lines
  1. 10 open2,8,0,"$"
  2. 15 get#2,a$,a$,a$,a$
  3. 20 get#2,a$,b$
  4. 25 a=asc(a$+chr$(0)):b=asc(b$+chr$(0))
  5. 30 printmid$(str$(a+b*256),2)" ";
  6. 35 get#2,a$:a=asc(a$+chr$(0))
  7. 40 ifa<>0thenprinta$;:goto35
  8. 45 print:get#2,a$,a$
  9. 50 ifasc(a$+chr$(0))<>0then20
  10. 55 close2
  11. 60 :
  12. 65 :
  13. 70 :
  14. 100 rem *******************************
  15. 101 rem * explanation of program      *
  16. 102 rem * ======================      *
  17. 103 rem *                             *
  18. 104 rem * line10: open file with name *
  19. 105 rem *         '$' (directory)     *
  20. 106 rem *     15: read in four non-   *
  21. 107 rem *         significant bytes   *
  22. 108 rem *     20: read in a number    *
  23. 109 rem *         in lo/hi byte form  *
  24. 110 rem *     25: convert ascii codes *
  25. 111 rem *         to numeric values   *
  26. 112 rem *     30: print number on     *
  27. 113 rem *         left of screen      *
  28. 114 rem *     35: read in next byte   *
  29. 115 rem *         and get ascii value *
  30. 116 rem *     40: if end of entry not *
  31. 117 rem *         reached, then print *
  32. 118 rem *         character and go    *
  33. 119 rem *         back for another    *
  34. 120 rem *     45: carriage return +   *
  35. 121 rem *         get two more bytes  *
  36. 122 rem *     50: if last one is non- *
  37. 123 rem *         zero then end of    *
  38. 124 rem *         directory has not   *
  39. 125 rem *         been reached.       *
  40. 126 rem *     55: end of file - close *
  41. 127 rem *                             *
  42. 128 rem *******************************
  43.