File LISTR.BAS

Directory of image this file is from
This file as a plain text file

10 RECORD A$
15 DIM N(6) 
20 M=0
21 PRINT "ENTER THE NUMBER OF ROWS PER PAGE"; 
22 INPUT S
30 OPEN 8,"FI"
35 GET 8,10,M 
38 IF A$="EOF" THEN 200 
40 CHANGE A$ TO N 
50 FOR I=1 TO 6 
51 IF N(I)=64 THEN 71 
52 IF N(I)=65 THEN 72 
53 IF N(I)=67 THEN 73 
54 IF N(I)=71 THEN 74 
55 IF N(I)=79 THEN 75 
56 IF N(I)=0  THEN 76 
57 IF N(I)=76 THEN 80 
58 PRINT "X";\GO TO 90
71 PRINT "1";\GO TO 90
72 PRINT "2";\GO TO 90
73 PRINT "3";\GO TO 90
74 PRINT "4";\GO TO 90
75 PRINT "5";\GO TO 90
76 PRINT "6";\GO TO 90
80 PRINT
85 GO TO 120
90 K=K+1
100 IF K<S THEN 120  
105 PRINT
110 K=0
120 NEXT I 
130 GO TO 35 
200 PRINT\PRINT "THAT'S ALL" 
500 END



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search