File SCAN.BAS

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

@J RECORD A$@@@T DIM N(6),T(128)@@@Y PRINT "ENTER THE TOTAL NUMBER OF QUESTIONS"; @@@Z INPUT Q@@@[ J=128@@@\ PRINT "ENTER THE BEGINNING ROW NUMBER";@@@] INPUT B@@@^ M=0@@@( OPEN 8,"FI"@@@2 GET 8,10,M @@@3 CHANGE A$ TO N @@@7 IF A$="EOF" THEN 200 @@@< K=1  @@@? IF N(K)=76 THEN 99 @@AA T(J)=N(K)@@AF J=J-1@@AK K=K+1@@AP IF K>6 THEN 50 @@AU GO TO 63 @@A
 H=0@@A$ FOR L=(B+1)*2+1 TO 127 STEP2 @@A) GO SUB 400 @@A* H=H+1@@A. IF X$<>"X" THEN 120@@A0 PRINT H; @@A8 NEXT L @@BB PRINT@@BG H=50 @@BL FOR L=(B+1)*2+2 TO 128 STEP 2@@BV GO SUB 400 @@B[ H=H+1@@B  IF X$<>"X" THEN 170  @@B" PRINT H; @@B* NEXT L @@B/ PRINT\PRINT"------------"@@B0 J=128\K=K+1@@B1 IF K>6 THEN 50 @@B2 GO TO 63 @@B4J=Q @@B> GO TO 75 @@CH PRINT\PRINT "THATS ALL"@@CR STOP @@FP IF T(L)=64 THEN 410@@FQ IF T(L)=65 THEN 411@@FR IF T(L)=67 THEN 412@@FS IF T(L)=71 THEN 413@@FT IF T(L)=79 THEN 414@@FU IF T(L)=0 THEN 415 @@FV X$="X"\RETURN@@FZ X$="5"\RETURN@@F[ X$="4"\RETURN@@F\ X$="3"\RETURN@@F] X$="2"\RETURN@@F^ X$="1"\RETURN@@F
 X$="X"\RETURN@@IX END@@
?@@=0



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