10  text$=" You can use this simple scrolling text routine in menu programs, pressing the SPACE-BAR will do something Wicked!!!  try it now!"
   20  REM Display Menu
   30  CLS:PRINT"„                                     ":PRINT"„‡         Main Menu"
   40  PRINT"„‡":PRINT"„‡<1> Option 1 of the Menu"
   50  PRINT"„‡<2> Option 2 of the Menu"
   60  PRINT"„‡<3> Option 3 of the Menu"
   70  PRINT"„"
   80  PRINT"‡This is a simple menu"
   90  PRINT"ƒThe text keeps on scrolling"
  100  PRINT"ƒuntil a key is pressed"
  110  VDU30
  120  PROCscreen
  130  A=GET
  140  IF A=42 THEN PROCstar
  150  DEFPROCscreen
  160  PROCmove(0,22):PRINT"‘,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"
  170  PROCscroll(text$,0,23,39,TRUE,800)
  180  REPEATUNTILADVAL(-3)=191:A=INKEY(0)
  190  GOTO 170
  200  DEFPROCkeycheck
  210  IF A=49 THEN CLS:PRINT"Option 1 Choosen":END
  220  IF A=50 THEN CLS:PRINT"Option 2 Choosen":END
  230  IF A=51 THEN CLS:PRINT"Option 3 Choosen":END
  240  ENDPROC
  250  DEFPROCscroll(msg$,X%,Y%,wdth%,dir%,wait%)
  260  len%=LEN(msg$)+wdth%+1
  270  FOR step%=len%*-(dir%=FALSE)TO len%*-(dir%=TRUE) STEP -(dir%*2+1)
  280  PROCmove(X%,Y%):PRINT"";MID$(STRING$(wdth%," ")+msg$+" ",step%,wdth%)
  290  FOR T%=1 TO wait%:NEXT
  300  REPEATUNTILADVAL(-3)=191:A=INKEY(0)
  310  IF A<>-1 THEN PROCkeycheck
  320  IF INKEY-99 THEN step%=step%-2
  330  NEXT step%
  340  ENDPROC
  350  REM This routine makes the
  360  REM PROCprint statement easier
  370  DEFPROCmove(x%,y%)
  380  xneg=0:yneg=0
  390  v=?&319:hh=?&318
  400  x%=x%-hh:y%=y%-v
  410  IF x%<0 THEN x%=x%*-1:xneg=1
  420  IF y%<0 THEN y%=y%*-1:yneg=1
  430  IF xneg=0 PRINT;STRING$(x%,CHR$9);
  440  IF xneg=1 PRINT;STRING$(x%,CHR$8);
  450  IF yneg=0 PRINT;STRING$(y%,CHR$10);
  460  IF yneg=1 PRINT;STRING$(y%,CHR$11);
  470  ENDPROC