--- title: "Debugging Aid" type: "article" slug: "fast-load-programs-update" url: "http://localhost/article/fast-load-programs-update/" markdown_url: "http://localhost/article/fast-load-programs-update.md" published_at: "2024-01-28T18:13:01+00:00" modified_at: "2025-10-17T22:18:46+00:00" featured_image: url: "http://localhost/wp-content/uploads/2022/04/20230809-041332.jpg" excerpt: "When D$ is longer than 704 characters, report 5 errors prevent you from displaying the array when you PRINT D$. This short routine appended to PRO/FILE lets you read all the contents of D$ without a lot of fuss. Begin numbering the lines at 9000 or some other place where there's room. 9000 LET Y=704…" category: - name: "Pro/File Updates" slug: "pro-file-updates" taxonomy: "category" url: "http://localhost/category/periodicals/pro-file-updates/" post_tag: - name: "1984" slug: "year-1984" taxonomy: "post_tag" url: "http://localhost/tag/year-1984/" - name: "TS 1000" slug: "ts1000" taxonomy: "post_tag" url: "http://localhost/tag/ts1000/" - name: "Type-in program" slug: "type-in-program" taxonomy: "post_tag" url: "http://localhost/tag/type-in-program/" model: - name: "Timex/Sinclair 1000" slug: "ts-1000" taxonomy: "model" url: "http://localhost/model/ts-1000/" indiv: - name: "Irving Helbling" slug: "irving-helbling" taxonomy: "indiv" url: "http://localhost/indiv/irving-helbling/" publication_r: id: 39136 title: "Pro/File Updates" type: "periodical" url: "http://localhost/periodical/pro-file-updates/" authors: "Irving Helbling" volume: "1" issue: "2" issues_articles: - id: 52730 title: "Pro/file Updates v1 n2" type: "issue" url: "http://localhost/issue/pro-file-updates-v1-n2/" pages: "7" pubdate: "April 1984" product_reviews: - id: 14729 title: "ZX Pro/File" type: "product" url: "http://localhost/product/zx-pro-file-2/" archive_link: false --- # Debugging Aid When D$ is longer than 704 characters, report 5 errors prevent you from displaying the array when you PRINT D$. This short routine appended to PRO/FILE lets you read all the contents of D$ without a lot of fuss. Begin numbering the lines at 9000 or some other place where there’s room. ``` 9000 LET Y=704 9001 LET X=Y-703 9002 PRINT D$(X TO Y) 9003 LET K$=INKEY$ 9004 PAUSE 32000 9005 IF K$="" THEN LET Y=Y+704 9007 CLS 9008 IF D$(X)=" " THEN GOTO 9010 9009 GO TO 9001 9010 STOP ```