--- title: "List Looker" type: "article" slug: "list-looker" url: "http://localhost/article/list-looker/" markdown_url: "http://localhost/article/list-looker.md" published_at: "2020-10-27T17:13:40+00:00" modified_at: "2024-05-26T13:18:24+00:00" featured_image: url: "http://localhost/wp-content/uploads/2022/04/20230809-041332.jpg" excerpt: "View any file saved to disk as a character array. Enhancement to SDOS Mail Merge." post_tag: - name: "TS 2068" slug: "ts2068" taxonomy: "post_tag" url: "http://localhost/tag/ts2068/" - name: "Type-in program" slug: "type-in-program" taxonomy: "post_tag" url: "http://localhost/tag/type-in-program/" model: - name: "Timex/Sinclair 2068" slug: "ts-2068" taxonomy: "model" url: "http://localhost/model/ts-2068/" publication: "TS-2068 Up-date" publication_r: id: 10283 title: "Update Magazine" type: "periodical" url: "http://localhost/periodical/update-magazine/" issues_articles: - id: 26492 title: "Update January 1988" type: "issue" url: "http://localhost/issue/ts-2068-up-date-january-1988/" pages: "15-16" pubdate: "January 1988" archive_link: false volumeissue: "vn" article_media: - id: 72673 title: "UPDATE Magazine Issue Disk, January 1988 (Larken Edition)" type: "computer_media" url: "http://localhost/computer_media/update-magazine-issue-disk-january-1988-larken-edition/" --- # List Looker View any file saved to disk as a character array. Enhancement to SDOS Mail Merge. ## Source Code: UPDATE Magazine Issue Disk, January 1988 (Larken Edition) ``` 5 GO TO 9800 10 FOR n=1 TO 20: PRINT "n=";n: NEXT n 20 FOR y=1 TO 20: PRINT "y=";y: NEXT y 9800 BORDER 1: PAPER 1: INK 7: CLS : PRINT AT 10,4;"Your Choices are:"''TAB 4;"1. Operate in HOME BANK"''TAB 4;"2. Operate in DOCK BANK": INPUT "Enter your Choice ";a: IF a<1 OR a>2 THEN GO TO 9800 9802 IF a=1 THEN GO TO 10 9804 CLS : PRINT "If Operating in Dock Bank, do not let line 9998 operate."''"IF you want to MOVE the PROGRAM to Dock Bank, Type CONT ENTER.": STOP : CLS : CLEAR 9998 RESTORE 9998: FOR x=23296 TO 23340: READ y: POKE x,y: NEXT x: RANDOMIZE USR 23296: DATA 175,006,002,033,083,092,094,035,086,213,033,089,092,016,247,225,209,237,082,068,077,235,175,211,244,126,245,062,240,211,244,241,119,011,035,229,033,000,000,237,066,225,032,234,201 9999 RESTORE 9999: FOR x=32768 TO 32775: READ y: POKE x,y: NEXT x: DATA 1,2,8,128,15,1,0,0: OUT 244,0: CLS : PRINT "Your Program is in the Dock Bank"''"Please COPY the Followng:"''"If you are using RAM, You will LOSE the DOCK Program if you OFF the computer."''"When you RESET the computer by: RANDOMIZE USR 0, the program will come up running."''"You May BREAK the program. If you do, in order to gain controlof HOME BANK RAM, type ."''"You may then ENTER or LOAD and RUN a BASIC program in HOME BANK"''"When ready to RE-START the DOCK BANK program, type:"''"."''"ENTER When READY": PAUSE 0: POKE 23750,128: RANDOMIZE USR 0 ```