start bastext 1025
start tok64 d64-4mh9Nq
5 REM *    4 character at a time     *
10 PUTc
20 CPROG0,1:REM ** set pointer **
21 CPROG "****************"
22 CPROG "*{.*14}*"
23 CPROG "*{.*10}*{.*3}*"
24 CPROG "*{.*9}**{.*3}*"
25 CPROG "*{.*8}***{.*3}*"
26 CPROG "*{.*7}****{.*3}*"
27 CPROG "*{.*6}**.**{.*3}*"
28 CPROG "*{.*5}**..**{.*3}*":CPROG0,3
29 CPROG "*{.*4}**{.*3}**{.*3}*"
30 CPROG "*{.*3}**********.*"
31 CPROG "*{.*9}**{.*3}*"
32 CPROG "*{.*9}**{.*3}*"
33 CPROG "*{.*9}**{.*3}*"
34 CPROG "*{.*9}**{.*3}*"
35 CPROG "*{.*14}*"
36 CPROG "****************"
90 PRINT"{clear}{down*13}{space*9}ab":REM    ****  display them in order  ****
100 PRINT"{space*9}cd":
110 PUT
stop tok64
(bastext 1.0)