1 PROGRAM "ATTR.bas"
  100 ALLOCATE 26
  110 CODE SCROLL=HEX$("e5,d1,06,f0,c5,62,6b,06,2d,c5,37,3f,06,1e,cb,1e,23,10,fb,c1,10,f3,c1,10,eb,c9")
  120 SET VIDEOMODE15
  130 SET VIDEOX30
  140 SET VIDEOY5
  150 OPEN #1:"video:"
  160 SET #1:PALETTE7,0,2,4
  170 DISPLAY #1:AT1FROM1TO5
  180 PRINT #1,AT1,1:"ENTERPRISE ATTR scroll"
  190 PRINT #1,AT5,1:"INTERSTELLAR Software 1988"
  200 LET SPT=PEEK(49140)+PEEK(49141)*256
  210 LET CIM=PEEK(SPT+22)+PEEK(SPT+23)*256
  220 LET CIM=CIM-16384
  230 WAIT 2
  240 CALL USR(SCROLL,CIM)
  250 END