0010/* PSCROLLI
0020/* Scroll-Line
0030/* Klaus-Peter Plog
0040/*
0050DEFINE DATA LOCAL
00601 #TEST(A80) INIT <'                   Hello! This is a TEST!!!'>
00701 REDEFINE #TEST
0080  2 #TEST-CHR(A1/80)
00901 #LINE(A20)
01001 REDEFINE #LINE
0110  2 #LINE-CHR(A1/20)
01201 #I(I1)
0130END-DEFINE
0140/*
0150FOR #I = 1 TO 60
0160  ASSIGN #LINE-CHR(1 : 20) = #TEST-CHR(#I : #I+19)
0170  SET CONTROL 'N'
0180  EJECT
0190  WRITE NOTITLE NOHDR ///////// 20T #LINE
0200END-FOR
0210END