home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D05.D64 / prob1a (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.3 KB  |  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.