1010 Delay = 10 : Home$ = Chr$ (30) : Clr$ = Chr$ (26)
1020 Def Fnp$ (R, C) = Chr$ (27) + "=" + Chr$ (R+32) + Chr$ (C+32)
1030 Out 28, 10 : Out 29, 16 : Print Clr$
1040 For Row=1 To 23
1050  Print Fnp$ (Row, 40) "| |" Home$
1060 Next
1070 Empty$ = ""
1080 While Empty$ = ""
1090  Out 28, 10 : Out 29, 16 : Print
1100  For Row = 1 To 23
1110   Print Fnp$ (Row, 41) ;
1120   For Glide = 0 To 15
1130    Out 28, 11 : Out 29, Glide : Out 28, 10 : Out 29, Glide
1140    For Slow = 1 To Delay : Next
1150   Next
1160   Out 28, 10 : Out 29, 16 : Print Home$
1170  Next
1180  For Row = 23 To 1 Step -1
1190   Print Fnp$ (Row, 41) ;
1200   For Glide = 15 To 0 Step -1
1210    Out 28, 10
1220    If Glide <> 15 Then Out 29, Glide
1230    Out 28, 11 : Out 29, Glide
1240    For Slow = 1 To Delay : Next
1250   Next
1260   Out 28, 10 : Out 29, 16 : Print Home$
1270  Next
1280  Empty$ = Inkey$
1290 Wend
1300 Out 28, 10 : Out 29, 13 : Out 28, 11 : Out 29, 15
1310 Print Clr$
1320 System