LIST

 1  HOME 
 2  POKE 49205,28: POKE 49162,0
 4  IF  PEEK (49205) <  > 28 THEN  GOTO 13
 5 B =  PEEK (49249):C =  PEEK (49250): POKE 254,B: POKE 255,C
 6  IF B > 127 OR C > 127 THEN  FOR I = 1 TO 80:A =  PEEK (49200): NEXT I
     
 13  GOSUB 500
 15  PRINT  CHR$ (4);"BRUN RAMDRIVE"
 20  POKE 16384,0: POKE 16385,0: POKE 16386,0
 22  POKE 103,1: POKE 104,64: POKE 105,3: POKE 106,64
 25  PRINT  CHR$ (4);"RUN LOADCON"
 500  PRINT "/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\"
 502  PRINT "                  BEX"
 504  PRINT "\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/"
 505  PRINT 
 510  PRINT "Copyright (C) 1985-1992 by": PRINT "     Raised Dot Computin
     g, Inc."
 520  PRINT 
 530  PRINT "For more information about braille"
 540  PRINT "translation & word processing programs,"
 550  PRINT "contact:": PRINT 
 560  PRINT "Raised Dot Computing, Inc."
 570  PRINT "408 South Baldwin Street"
 580  PRINT "Madison, Wisconsin 53703"
 590  PRINT 
 600  PRINT "(608) 257-9595  general business"
 605  PRINT 
 610  PRINT "(608) 257-8833  technical questions"
 620  PRINT : PRINT "RAMDRIVE (c) 1984 Applied Engineering"
 625  PRINT "AmDOS 3.5 (c) 1986 Gary B. Little"
 630  PRINT "All Rights Reserved"
 650  RETURN 

]