1 PROGRAM "Scroll.bas"
  100 ALLOCATE 36
  110 CODE SCROLL=HEX$("11,8b,0a,19,e5,d1,06,3c,c5,d5,06,2d,d5,e1,2b,c5,01,3b,00,1a,ed,b8,23,36,00,2b,2b,1b,c1,10,ed,d1,c1,10,e5,c9")
  120 SET VIDEOMODE1
  130 SET VIDEOCOLOR1
  140 SET VIDEOX30
  150 SET VIDEOY5
  160 OPEN #1:"video:"
  170 SET #1:PALETTE7,0,2,4
  180 DISPLAY #1:AT1FROM1TO5
  190 PLOT #1:10,179,
  200 PRINT #1:"ENTERPRISE scroll rutin"
  210 PLOT #1:10,36,
  220 PRINT #1:"INTERSTELLAR Software 1988"
  230 LET SPT=PEEK(49140)+PEEK(49141)*256
  240 LET CIM=PEEK(SPT+20)+PEEK(SPT+21)*256
  250 LET CIM=CIM-16384
  260 WAIT 2
  270 CALL USR(SCROLL,CIM)
  280 END