File DECODE.BAS

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

@E DIM N(5) @@@J RECORD A$@@@T RECORD X(128)@@@^ OPEN 8,"IGI" @@@( OPEN 9,"IGI2"@@@2 M8=0\M9=0@@@7 J=1@@@< I=1@@AF GET 8,10,M8@@AP CHANGE A$ TO N @@AZ GOSUB 300@@A. J=J+1@@A8 IF J=129 THEN 150@@BB I=I+1@@BL IF I<=6 THEN 90@@BN IF M8>1560 THEN 200@@BQ GO TO 60 @@BV PUT 9,20,M9@@B[ PRINT M9-1 @@B  J=1@@B! I=I+1@@B" IF I<=6 THEN 165 @@B
 GET 8,10,M8@@B$ I=1@@B% I=I+1@@B& IF I<=6 THEN 90@@B' GO TO 142@@B* GO TO 130  @@CH CLOSE 8@@CR CLOSE 9@@C\ STOP @@D, IF N(I)=32 THEN 400@@D- IF N(I)=64 THEN 401@@D. IF N(I)=48 THEN 402@@D/ IF N(I)=40 THEN 403@@D0 IF N(I)=36 THEN 404@@D1 IF N(I)=34 THEN 405@@D2 IF N(I)=33 THEN 406@@D3 GO TO 407@@FP X(J)=0\RETURN@@FQ X(J)=1\RETURN@@FR X(J)=2\RETURN@@FS X(J)=3\RETURN@@FT X(J)=4\RETURN@@FU X(J)=5\RETURN@@FV X(J)=6\RETURN@@FW X(J)=7\RETURN@@W\ END@@
?@@@@W\ END@@
?@@: ID> @@@@PL@@@@PV@@@@PV@@@@PT@@@@@@@@@@@@@@@@P]@@@@@@@@@@PV@@@@PT@@@@PT@@@@P\@@@@@@@@@@@@@@@@PV@@@@@@@@@@PT@@@@P\@@@@P^@@@@PL@@@@@@@@@@@@@@@@P
@@@@@@@@@@PT@@@@PV@@@@PL@@@@PV@@@@@@@@@@@@@@@@P
@@@@@@@@@@PL@@@@@@@@@@PT@@@@



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