File LISTR.BAS

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

@J RECORD A$@@@O DIM N(6) @@@T M=0@@@U PRINT "ENTER THE NUMBER OF ROWS PER PAGE"; @@@V INPUT S@@@^ OPEN 8,"FI"@@@
 GET 8,10,M @@@& IF A$="EOF" THEN 200 @@@( CHANGE A$ TO N @@@2 FOR I=1 TO 6 @@@3 IF N(I)=64 THEN 71 @@@4 IF N(I)=65 THEN 72 @@@5 IF N(I)=67 THEN 73 @@@6 IF N(I)=71 THEN 74 @@@7 IF N(I)=79 THEN 75 @@@8 IF N(I)=0  THEN 76 @@@9 IF N(I)=76 THEN 80 @@@: PRINT "X";\GO TO 90@@AG PRINT "1";\GO TO 90@@AH PRINT "2";\GO TO 90@@AI PRINT "3";\GO TO 90@@AJ PRINT "4";\GO TO 90@@AK PRINT "5";\GO TO 90@@AL PRINT "6";\GO TO 90@@AP PRINT@@AU GO TO 120@@AZ K=K+1@@A$ IF K<S THEN 120  @@A) PRINT@@A. K=0@@A8 NEXT I @@BB GO TO 35 @@CH PRINT\PRINT "THAT'S ALL" @@G4 END@@
?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YBYAY@YTX=% *
H!X?YD%\IE\K%=*CI>>(+1H YDH X?H\Y@I>8!HXYA%\I>X:%;IAK>= +)8!HX=H+?XXY>-<I>>(+9: ID> $E@O%\+U;T=?$E@AA@@V@&@F?8?GM<LKL/M
[?.M@@[?YR%:JAYUK??(**%'H?> **: 



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